REM Objects

PROC inito:
o%(1)=1  :o$(1)="money"
o%(2)=3  :o$(2)="jacket"
o%(3)=-1 :o$(3)="knife"
o%(4)=6  :o$(4)="meths"
o%(5)=9  :o$(5)="microphone"
o%(6)=0  :o$(6)="book"
o%(7)=0  :o$(7)="apples"
o%(8)=0  :o$(8)="contact lens"
o%(9)=0  :o$(9)="pie"
o%(10)=0 :o$(10)="mpwcs"
o%(11)=0 :o$(11)="rugby ball"
o%(12)=0 :o$(12)="ninja gloves"
o%(13)=0 :o$(13)="printout"
ENDP

PROC xo:(o%)
IF o%=1     :out:("There isn't very much.")
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.")
ELSEIF o%=3 :out:("It's a cheap swiss army-knife imitation.")
ELSEIF o%=4 :out:("The bottle is almost full. It's strong stuff.")
ELSEIF o%=5 :out:("This is a microphone.")
ELSEIF o%=6 :out:("You open the book and begin to read:")
             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."" #")
             out:("You turn the page eagerly. Maybe this religion isn't so bad after all.")
             out:("/""The words of flight are: 'ego volo volere'"" #")
ELSEIF o%=7 :out:("Some tasty-looking apples.")
ELSEIF o%=8 :out:("It's Gomersall's contact lens.")
ELSEIF o%=9 :out:("It's a Mr Kipling's pie from the factory.")
ELSEIF o%=10 :out:("This cunning device can change the season of an area at any time.")
ELSEIF o%=11 :out:("The rugby ball has 'Jon' written on it.")
ElSEIF o%=12 :out:("The gloves have the palms covered in small spikes, so they make climbing easy.")
ELSEIF o%=13 :out:("The paper is covered in rows of numbers.")
ENDIF
ENDP

PROC eato:(o%)
IF o%=4     :out:("You drain the bottle of meths, and collapse from alcohol poisoning.")
             end:
ELSEIF o%=7 :out:("You eat the apples.")
             o%(7)=0
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!")
             o%(9)=0
             o%(8)=-1
             score:
ELSE
out:("That would be a stupid thing to do")
ENDIF
ENDP
