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

Annotation of /archive/bernie/Objects.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (hide 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 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

  ViewVC Help
Powered by ViewVC 1.1.26