Intro: It's too bad almost nobody will ever see this!
;
; Object one, the player. not many options.
;
Object:1 Player
Flag:Holds 30
Flag:Score 0
Flag:Location 2
Verb:Look
Test:1=1
Desc: If you have to ask me what you look like, you need to get out more. A lot more.
Desc:---
Desc:
Verb:Score
Test:1=1
Desc:Your current score is:
Code:Call TextDisp GetFlag(PlayerNum,'Score') " out of " MaxScore
;
; Object 2, the kitchen, only one option
;
Object:2 Kitchen
Flag:Holds 999999
Content:1
Content:7
Content:4
Verb:Look
Test:1=1
Desc: The kitchen of this small sample is rather plain. There is a potbellied stove, but no wood or matches. The cupboards are bare. It makes you think of old ladies without bones for dogs.
Desc:---
Desc:
;
; Object 3, the Hall.
;
Object:3 Hallway
Flag:Holds 999999
Content:5
Content:6
Content:8
Verb:Look
Test:1=1
Desc: The hallway is as barren as the kitchen. You would guess that the building was abandoned, except for the large doberman here. The dog is thin and seems VERY hungry.
;
; Object 4, exit from Kitchen to Hall
;
Object:4 East; from kitchen to hall
Flag:Location 2
IVerb:Go
Test:1=1
Desc: You leave the rather depressing kitchen and wander into the hall.
Desc:---
Desc:
Code:Call MovePlayer 3
;
; Object 5, exit from hall to kitchen
;
Object:5 West; from hall to kitchen
Flag:Location 3
IVerb:Go
Test:1=1
Desc: You wander into the kitchen
Desc:---
Desc:
Code:Call MovePlayer 2
;
; object 6, from hall to endgame
;
Object:6 East; out of house - Endgame
Flag:Location 3
IVerb:Go
Test:IsPresent(8)
Desc: You try to dash past the growling dog, but he snaps at you wildly and drives you away from the outside exit.
Test:1=1
Desc: You walk calmly past the dog, but he is concentrating completely on his meal and ignores you.
Desc:
Desc: You step into the bright sunshine and breathe the fresh country air. You just can't keep from thinking "Is there more?" Well, not in this sample.
Desc:---
Desc:
Code:Call AddScore 10
Code:Call EndGame
;
; Object 7, the yummy raw steak
;
Object:7 Raw Steak
Flag:Weight 1
Flag:Location 2
Flag:FirstGet 0
Verb:Look
Test:1=1
Desc: The steak is big and juicy. It is also quite raw. You wonder how it could be so fresh without any refrigeration.
Desc:---
Desc:
Verb:Get
Test:IsHolding(7)
Desc: You already have the steak, silly!
Desc:---
Desc:
Test:IsPresent(7)
Desc: You pick up the raw steak.
Desc:---
Desc:
Code:Call MoveObject 7, PlayerNum
Code:If GetFlag(7, "FirstGet") = 0 Then Do; Call AddScore(5); Call SetFlag 7, "FirstGet", 1; End
Test:1=1
Desc:Error, Error will robinson.
Desc:---
Desc:
Verb:Drop
Test:IsHolding(7) & (GetFlag(1, 'Location') \= 3)
Desc: You put the raw steak on the nearest suitable surface.
Desc:---
Desc:
Code:Call MoveObject 7, GetFlag(1,'Location')
Test:IsHolding(7) & (GetFlag(1, 'Location') = 3)
Desc: You toss the steak to the slavering dog. He leaps on it like he has not eaten in weeks. Once he has eaten, the dog seems much friendlier toward you.
Desc:---
Desc:
Code:Call MoveObject 8, 10 /* send the mean dog to nowhere */
Code:Call MoveObject 9, 3 /* get the happy dog from nowhere */
Code:Call MoveObject 7, 10 /* send the steak to nowhere */
Code:Call AddScore(5)
Test:1=1
Desc: But you aren't holding the steak!
Verb:Eat
Test:1=1
Desc: You want to eat the yucky raw steak! Yeeeech! No, I will not allow it.
Desc:---
Desc:
;
; Object 8, the mean dog
;
Object:8 Growling Dog
Flag:Location 3
Verb:Look
Test:1=1
Desc: The dog is lean, but still looks very strong. He weighs about 70 or 80 pounds. Since he is snarling at you ominously, you have a very good view of his long, sharp teeth.
Desc:
Desc: He seems to be a guard dog. However, he is guarding the front door, so instead of keeping intruders out, he is keeping you in.
Desc:---
Desc:
Verb:Kick
Test:1=1
Desc: Bad move. You kick the dog soundly. He gives a yelp, looks at you angrily, and leaps. It only takes a few minutes for him to savage your throat open and kill you dead.
Desc:---
Desc:
Code:Call EndGame
Verb:Pet
Test:1=1
Desc:You reach out to pet the dog, and he snaps wildly at your hand. you barely snatch it back in time.
Desc:---
Desc:
;
; Object 9, the happy dog
;
Object:9 Happy Dog
Flag:Location 10
Verb:Look
Test:1=1
Desc: The dog seems quite satisfied, and has curled up beside the door.
Desc:---
Desc:
Verb:Pet
Test:1=1
Desc: You reach out an pat the dog's head. He looks at you with big brown eyes, then rests his head on his paws in satisfaction.
Desc:---
Desc:
Verb:Kick
Test:1=1
Desc: Bad move. You kick the dog soundly. This immediatly snaps him out of his after dinner lethargy. He gives a yelp, looks at you angrily, and leaps. It only takes a few minutes for him to savage your throat open and kill you dead.
Desc:---
Desc:
Code:Call EndGame
;
; Object 10, the place where things with mo location are stored
;
Object:10 nowhere
Flag:Holds 999999
;
; the introduction text
;
Intro:
Intro: You have woken up on the kitchen floor of a strange house. You have no idea how you got here, or whee you are. All you want to do is get out of this house and find your way home!