Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "Fight Simulator"
- <VERSION XZIP>
- <CONSTANT RELEASEID 1>
- "Main loop"
- <CONSTANT GAME-BANNER
- "Attempt no.2 at Fight Simulator, this time using 0.9 library on Linux!">
- <ROUTINE GO ()
- <CRLF> <CRLF>
- <TELL "Attempt no.2 at Fight Simulator, this time using 0.9 library on Linux!" CR CR>
- <INIT-STATUS-LINE>
- <V-VERSION> <CRLF>
- <SETG HERE ,GYM>
- <MOVE ,PLAYER ,HERE>
- <V-LOOK>
- <MAIN-LOOP>>
- <INSERT-FILE "parser">
- "Objects"
- <OBJECT KNIFE
- (DESC "knife")
- (SYNONYM KNIFE CLOAK)
- (IN GYM)
- (FLAGS TAKEBIT)
- (ACTION KNIFE-R)>
- <ROUTINE KNIFE-R ()
- <COND (<VERB? EXAMINE> <TELL "A knife, looks like it belonged to a Dwarf from another game..." CR>)>>
- <OBJECT GUN
- (DESC "gun")
- (SYNONYM GUN PISTOL SHOOTER)
- (IN GYM)
- (FLAGS TAKEBIT)
- (ACTION GUN-R)>
- <ROUTINE GUN-R ()
- <COND (<VERB? EXAMINE> <TELL "A gun?? What is this, the Wild West?!" CR>)>>
- <ROOM GYM
- (DESC "Gym")
- (IN ROOMS)
- (FLAGS LIGHTBIT)>
- ;----------------------------------------------------------------------
- "Stickman"
- ;----------------------------------------------------------------------
- <OBJECT STICKMAN
- (DESC "Stickman")
- (IN GYM)
- (SYNONYM STICKMAN MAN FIGHTER)
- (ACTION STICKMAN-R)
- (FLAGS ATTACKBIT)>
- <ROUTINE STICKMAN-R ()
- <COND (<VERB? EXAMINE>
- <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>)
- (<VERB? ATTACK>
- <COND
- (<HELD? ,KNIFE> <RTRUE>
- <TELL "You attack with the knife .... Stab Stab!">)
- (ELSE <TELL "With what? Your bare hands?" CR>)>)>>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement