;----------------------------- Cannibal.ADV ---------------------------

ADVENTURE

PASSWORD jroj


VAR
timer           0      ; keep track of moves
energy          0      ; becomes 4 when you eat the snicker
dig             0      ; ability to dig in 0=sand 1=dirt 2=rock 3=wood/tree

RoomNumber      1      ; room number 1-16
LastRoomNumber  1      ; to see if a new scene needs to be loaded
$device                ; will be null, or "ram:" if enough ram space
$filename              ; filename variable for loading files
ChosenPic              ; 0-18 for picture in room array chosen to move
pic                    ; 0-4 for position on scrollbar
ObjNum                 ; 1-19 for movable objects
ObjTotal               ; total movable objects in this room
SBPosition             ; 0-14 for scroll bar position
SBSize          5      ; scroll bar size, will hold 5 objects max.
MaxMov         19      ; maximum movable objects = 19 (1-19)
Slot                   ; temporary variable for openings in inventory
NewX                   ; new MouseX position
NewY                   ; new MouseY position
OldX                   ; old mouseX position
OldY                   ; old mouseY position
$tx                    ; text string to be printed
temp            0      ; temporary variable for various uses
temp1           0      ; temporary variable for various uses
temp2           0      ; temporary variable for various uses
$temp                  ; temporary string for various uses
$letter                ; single character for getstring
$sentence              ; built up sentence of input
sentence               ; length of the $sentence
TextPosition           ; position text on graphic screen
MaxLines        5      ; maximum lines in text window before pause
CountLines             ; counter for lines displayed in text window
$return                ; RETURN cannot be defined here
return                 ; =1 when RETURN is pressed
$backspace             ; BACKSPACE cannot be defined here
backspace              ; =1 when backspace is pressed
MainLoop               ; main loop while variable
TextColor      13      ; default text color (blue)
white           8      ; palette color for white
blue           13      ; palette color for blue
red             9      ; palette color for red
green          28      ; palette color for green
brown          18      ; palette color for brown
dummy                  ; dummy variable
val                    ; value of the input character
UpArrowActive      0   ; =1 if scrollbar up arrow shows
DownArrowActive    0   ; =1 if scrollbar down arrow shows
ButtonUsed             ;
x1                     ;\
y1                     ; \
x2                     ;  \ variables for block copies
y2                     ;  / showing buttons depressed
x                      ; /
y                      ;/
GoN         -13        ; offset to add to N button, (lighted)
GoS         -13        ; offset to add to S button, (lighted)
GoE         -13        ; offset to add to E button, (lighted)
GoW          13        ; offset to add to W button, (dark)
GoU          13        ; offset to add to U button, (dark)
GoD          13        ; offset to add to D button, (dark)
offset      -13        ; offset to pop button up

ENDVAR

ROOM
 Cannibal.rooms
ENDROOM

OBJECT
 NonMovable.obj
 Movable1.obj
 Movable2.obj
 NPC.obj
ENDOBJECT

SUB
 Cannibal.SUB
 GetDrop.SUB
 MainLoop.SUB
 StartUp.SUB
ENDSUB

VOCAB
 Cannibal.VOC
ENDVOCAB

INITROOM  west_end_of_beach

ENDADVENTURE

;---------------------------------------------------------------------