/[james]/archive/bernie/Objects.opl
ViewVC logotype

Contents of /archive/bernie/Objects.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (show annotations) (download)
Thu Mar 13 12:07:05 2003 UTC (21 years, 7 months ago) by james
File size: 2133 byte(s)
Initial import.

1 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

  ViewVC Help
Powered by ViewVC 1.1.26