| 1 |
james |
23 |
REM Objects |
| 2 |
|
|
|
| 3 |
|
|
PROC inito: |
| 4 |
|
|
o%(1)=1 :o$(1)="money" |
| 5 |
|
|
o%(2)=3 :o$(2)="jacket" |
| 6 |
|
|
o%(3)=-1 :o$(3)="knife" |
| 7 |
|
|
o%(4)=6 :o$(4)="meths" |
| 8 |
|
|
o%(5)=9 :o$(5)="microphone" |
| 9 |
|
|
o%(6)=0 :o$(6)="book" |
| 10 |
|
|
o%(7)=0 :o$(7)="apples" |
| 11 |
|
|
o%(8)=0 :o$(8)="contact lens" |
| 12 |
|
|
o%(9)=0 :o$(9)="pie" |
| 13 |
|
|
o%(10)=0 :o$(10)="mpwcs" |
| 14 |
|
|
o%(11)=0 :o$(11)="rugby ball" |
| 15 |
|
|
o%(12)=0 :o$(12)="ninja gloves" |
| 16 |
|
|
o%(13)=0 :o$(13)="printout" |
| 17 |
|
|
ENDP |
| 18 |
|
|
|
| 19 |
|
|
PROC xo:(o%) |
| 20 |
|
|
IF o%=1 :out:("There isn't very much.") |
| 21 |
|
|
ELSEIF o%=2 :out:("The jacket is your second self. Without it you are virtually nothing! It is usually used to carry your large ego, and a couple of pens.") |
| 22 |
|
|
ELSEIF o%=3 :out:("It's a cheap swiss army-knife imitation.") |
| 23 |
|
|
ELSEIF o%=4 :out:("The bottle is almost full. It's strong stuff.") |
| 24 |
|
|
ELSEIF o%=5 :out:("This is a microphone.") |
| 25 |
|
|
ELSEIF o%=6 :out:("You open the book and begin to read:") |
| 26 |
|
|
out:("/""For thousands of years we have been pondering the state of our non-physical world. After years of meditation we have found the road that leads to flight."" #") |
| 27 |
|
|
out:("You turn the page eagerly. Maybe this religion isn't so bad after all.") |
| 28 |
|
|
out:("/""The words of flight are: 'ego volo volere'"" #") |
| 29 |
|
|
ELSEIF o%=7 :out:("Some tasty-looking apples.") |
| 30 |
|
|
ELSEIF o%=8 :out:("It's Gomersall's contact lens.") |
| 31 |
|
|
ELSEIF o%=9 :out:("It's a Mr Kipling's pie from the factory.") |
| 32 |
|
|
ELSEIF o%=10 :out:("This cunning device can change the season of an area at any time.") |
| 33 |
|
|
ELSEIF o%=11 :out:("The rugby ball has 'Jon' written on it.") |
| 34 |
|
|
ElSEIF o%=12 :out:("The gloves have the palms covered in small spikes, so they make climbing easy.") |
| 35 |
|
|
ELSEIF o%=13 :out:("The paper is covered in rows of numbers.") |
| 36 |
|
|
ENDIF |
| 37 |
|
|
ENDP |
| 38 |
|
|
|
| 39 |
|
|
PROC eato:(o%) |
| 40 |
|
|
IF o%=4 :out:("You drain the bottle of meths, and collapse from alcohol poisoning.") |
| 41 |
|
|
end: |
| 42 |
|
|
ELSEIF o%=7 :out:("You eat the apples.") |
| 43 |
|
|
o%(7)=0 |
| 44 |
|
|
ELSEIF o%=9 :out:("You take a bite out of the pie. You crunch on something and spit it out. It's Gomersall's contact lens!") |
| 45 |
|
|
o%(9)=0 |
| 46 |
|
|
o%(8)=-1 |
| 47 |
|
|
score: |
| 48 |
|
|
ELSE |
| 49 |
|
|
out:("That would be a stupid thing to do") |
| 50 |
|
|
ENDIF |
| 51 |
|
|
ENDP |
Parent Directory
| 
Revision Log