SHARE
TWEET

Untitled

a guest Nov 19th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. "Fight Simulator"
  2.  
  3. <VERSION XZIP>
  4. <CONSTANT RELEASEID 1>
  5.  
  6. "Main loop"
  7.  
  8. <CONSTANT GAME-BANNER
  9. "Attempt no.2 at Fight Simulator, this time using 0.9 library on Linux!">
  10.  
  11.  
  12. <ROUTINE GO ()
  13.     <CRLF> <CRLF>
  14.     <TELL "Attempt no.2 at Fight Simulator, this time using 0.9 library on Linux!" CR CR>
  15.     <INIT-STATUS-LINE>
  16.     <V-VERSION> <CRLF>
  17.     <SETG HERE ,GYM>
  18.     <MOVE ,PLAYER ,HERE>
  19.     <V-LOOK>
  20.     <MAIN-LOOP>>
  21.  
  22. <INSERT-FILE "parser">
  23.  
  24. "Objects"
  25.  
  26. <OBJECT KNIFE
  27.     (DESC "knife")
  28.     (SYNONYM KNIFE CLOAK)
  29.     (IN GYM)
  30.     (FLAGS TAKEBIT)
  31.     (ACTION KNIFE-R)>
  32.  
  33. <ROUTINE KNIFE-R ()
  34.     <COND (<VERB? EXAMINE> <TELL "A knife, looks like it belonged to a Dwarf from another game..." CR>)>>
  35.  
  36. <OBJECT GUN
  37.     (DESC "gun")
  38.     (SYNONYM GUN PISTOL SHOOTER)
  39.     (IN GYM)
  40.     (FLAGS TAKEBIT)
  41.     (ACTION GUN-R)>
  42.  
  43. <ROUTINE GUN-R ()
  44.     <COND (<VERB? EXAMINE> <TELL "A gun??  What is this, the Wild West?!" CR>)>>
  45.    
  46. <ROOM GYM
  47.     (DESC "Gym")
  48.     (IN ROOMS)
  49.     (FLAGS LIGHTBIT)>
  50.  
  51. ;----------------------------------------------------------------------
  52. "Stickman"
  53. ;----------------------------------------------------------------------
  54.  
  55. <OBJECT STICKMAN
  56.     (DESC "Stickman")
  57.     (IN GYM)
  58.     (SYNONYM STICKMAN MAN FIGHTER)
  59.     (ACTION STICKMAN-R)
  60.     (FLAGS ATTACKBIT)>
  61.  
  62. <ROUTINE STICKMAN-R ()
  63.     <COND (<VERB? EXAMINE>
  64.             <TELL "You look at Stickman, he looks at you.  You look at him looking at you, he looks at you looking at him looking at you looking at him ... and so forth." CR>)
  65.  
  66.            
  67.             (<VERB? ATTACK>
  68.                 <COND
  69.                     (<HELD? ,KNIFE> <RTRUE>
  70.                         <TELL "You attack with the knife .... Stab Stab!">)
  71.                        
  72.                         (ELSE <TELL "With what? Your bare hands?" CR>)>)>>
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top