;---------------------------- Movable2.obj --------------------------- object 09seagull name seagull, bird adj dead initroom top_of_the_boulder code endcode action look, examine $tx := "This dead old seagull is stiff and" call print $tx := "starting to smell a bit." call print endact action get, take, grab call get endact action drop call drop endact action eat, consume, chew, swallow $tx := "Yeck! No way! You'd rather starve!" call print endact endobject ;-------------------------------------------------------------------- object 10coconut name coconut adj hard, old initroom in_the_tree code endcode action look, examine $tx := "The hard old coconut is probably not" call print $tx := "edible; it looks hard and dried out." call print endact action get, take, grab call get endact action drop call drop endact action break, open call BreakCoconut endact action eat $tx := "Open it first..." call print endact endobject ;-------------------------------------------------------------------- object 11blade name blade adj shovel initroom rock_room code endcode action look, examine $tx := "It's a wide shovel blade, without any" call print $tx := "handle." call print endact action get, take, grab call get endact action drop call drop endact action put, connect, stick, push if objnoun is 12handle then if player has 12handle then $tx := "OK. The completed shovel looks useful." call print ObjNum := 12 call DestroyObject ObjNum := 11 call DestroyObject ObjNum := 13 mode 2, draw color 2, ObjNum rect 2, x,y, x,y ; put new object in inventory array mode 0, overlay copy 2,ObjNum * 15 - 15,183,ObjNum * 15 - 1,199,0,x * 16 + 266,y * 18 + 17 placeobj 13shovel, thisroom grab 13shovel else call NoHave endif else call CantDoThat endif endact endobject ;-------------------------------------------------------------------- object 12handle name handle adj shovel attrib Found N endattrib initroom unused code endcode action look, examine $tx := "It's a long wood handle that will fit" call print $tx := "into a shovel blade." call print endact action get, take, grab call get endact action drop call drop endact action put, connect, stick, push if objnoun is 11blade then if player has 11blade then $tx := "OK. The completed shovel looks useful." call print ObjNum := 12 call DestroyObject ObjNum := 11 call DestroyObject ObjNum := 13 mode 2, draw color 2, ObjNum rect 2, x,y, x,y ; put new object in inventory array mode 0, overlay copy 2,ObjNum * 15 - 15,183,ObjNum * 15 - 1,199,0,x * 16 + 266,y * 18 + 17 placeobj 13shovel, thisroom grab 13shovel else call NoHave endif else call CantDoThat endif endact action light, burn call NoBurn endact endobject ;-------------------------------------------------------------------- object 13shovel name shovel initroom unused code endcode action look, examine $tx := "It's a pretty handy looking shovel." call print endact action get, take, grab call get endact action drop call drop endact action use $tx := "Do you mean dig? Please be specific." call print endact endobject ;-------------------------------------------------------------------- object 14hammer name hammer adj old initroom in_the_cave code endcode action look, examine $tx := "It's a quite servicable old hammer." call print endact action get, take, grab call get endact action drop call drop endact action use $tx := "Please be more specific. For example," call print $tx := "PULL THE NAILS or BREAK THE BOTTLE." call print endact endobject ;-------------------------------------------------------------------- object 15chisel name chisel adj dull attrib found N endattrib initroom unused code endcode action look, examine $tx := "It's an old chisel, somewhat rusty." call print endact action get, take, grab call get endact action drop call drop endact action use $tx := "Please be more specific. For example," call print $tx := "BREAK THE COCONUT." call print endact endobject ;-------------------------------------------------------------------- object 16driftwood name driftwood, wood adj dry attrib found N endattrib initroom unused code endcode action look, examine $tx := "It's weathered driftwood, quite dry." call print $tx := "It would make great kindling..." call print endact action get, take, grab call get endact action drop call drop endact action burn, light call NoBurn endact endobject ;-------------------------------------------------------------------- object 17gun name gun adj flare attrib found N endattrib initroom unused code endcode action look, examine $tx := "It's an emergency flare gun, but there's" call print $tx := "no flare in it." call print endact action get, take, grab call get endact action drop call drop endact action use, shoot $tx := "But it has no flare in it. You can't." call print endact endobject ;-------------------------------------------------------------------- object 18matches name matches, book, match adj wet attrib found N endattrib initroom unused code endcode action look, examine $tx := "The book of matches is wet..." call print endact action get, take, grab call get endact action drop call drop endact action burn, light, strike $tx := "Nothing... Wet matches don't burn." call print endact action dry $tx := "You might try leaving them somewhere" call print $tx := "in the sun for a while..." call print endact endobject ;-------------------------------------------------------------------- object 19flyer name flyer adj advertising initroom top_of_the_shack code endcode action look, examine, read $tx := "The advertising flyer says:" call print $tx := "\34 For more information on how this game" call print $tx := "was made, read THE VISIONARY PROGRAMMERS" call print $tx := "HANDBOOK by John Olsen. Available from" call print $tx := "your computer store, or Oxxi Aegis." call print endact action get, take, grab call get endact action drop call drop endact action burn, light call NoBurn endact endobject ;--------------------------------------------------------------------