home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Educate
/
Educate.zip
/
radf100.zip
/
FUNCTION.TXT
< prev
next >
Wrap
Text File
|
1995-04-23
|
3KB
|
69 lines
DoVerb <Object #>, <Verb #>
Checks the !Test level, if a match is found, the !Desc level for
that !Test is displayed, and the !Code executed
MovePlayer <Destination Object>
Moves the object PlayerNum to <Destination Object>.
WeightCheck(<Object # to Move>, <Object # of New Location>)
1) add up the 'Weight' flags of the new location.
2) if the current weight plus the new object is greater than the 'Holds' flag
of the new location, return 0, otherwise return 1.
MoveObject <Object # moved>, <Object # of New Location>
1) Add the object moved to the Content level of the new location
2) Change the 'Location' Flag of the object moved
3) Remove the Object Moved from the old location
4) Compress the remaining objects in the Content level of the old
Location, so that there are no gaps.
GetFlag( <Object#>, <Flag name>)
Returns the value of the given flag
SetFlag( <Object#>, <Flag Name>, <Value>)
Sets <Value> into flag <Flag Name> of object <Object#>.
ObjectNum( <Object Name> )
Return the internal number given the object name
NOTE: This only works on unique object names, before the ';'
DoIVerb <Object #>
Checks the !Test level, if a match is found, the !Desc level for
that !Test is displayed, and the !Code executed
FillObjBox
Clears the Objects box, and then fills it with the objects in the Location flag of
Object PlayerNum.
FillInventoryBox
Fills the inventory box with the items contained in object PlayerNum
FillVerbBox( <Object Number> )
Fills the Verb box with the verbs associated with the object <Object Number>
AddScore <number>
Adds <number> to the 'Score' flag of object PlayerNum.
IsHolding( <Object Number> )
Returns 1 if Object is in the player's inventory.
Returns 0 otherwise
IsPresent( <Object number> )
Returns 1 of Object is in the same location as the player
Returns 0 otherwise
EndGame
Turns off all windows, and displays 'use file menu to load, restore or quit'
VerbNum(<Object Number>, <Verb Name>)
Returns the index number of verb <verb name> in object <Object Number>,
or 0 if not found.
AddFlag <Object Number>, <Flag Name>, <value to add>
Adds the <value> to the current value of the specified flag
and saves the result in the flag.
InLocation(<Location #>, <Item Number>)
Returns a 1 if the <Item> is in the specified <Location>,
Returns 0 otherwise.