Re: TIB: Re: another problem
[Prev][Next][Index][Thread]
Re: TIB: Re: another problem
still the same problem. wont pause before re-entering the other program
(it probably isnt concerned in the matter, but, below is the main program
it's running from) (and again, im sure there are better ways to code it, but,
oh well)
:DelVar(M)
:DelVar(N)
:Goto BEG
:Lbl EQUIP1
:EQUIP1
:ClLCD
:Lbl BEG
:Outpt(1,1,"You are at the entrance to an abandoned castle")
:Lbl TOP1
:Menu(1,"Enter",ONE,2,"Leave",TWO,4,"Exam",EXAM1,5,"Equip",EQUIP1)
:Lbl TWO
:ClLCD
:Disp "Wimp"
:Stop
:Lbl EXAM1
:ClLCD
:Outpt(1,1,"You see a door that is so fallen apart you wonder why it's even
still there. It would never keep anyone out")
:Goto TOP2
:Lbl EQUIP2
:EQUIP1
:Lbl TOP2
:Menu(1,"Enter",ONE,2,"Leave",TWO,4,"Exam",EXAM0,5,"Equip",EQUIP2)
:Lbl EXAM0
:ClLCD
:Pause "You see nothing new"
:Goto TOP2
:Lbl TWO
:ClLCD
:Disp "Wimp"
:Stop
:Lbl EQUIP3
:EQUIP1
:Lbl ONE
:ClLCD
:Outpt(1,1,"As you enter you see a large doorway to the north. The exit to
the castle is back to the south.")
:Menu(1,"North",THREE,2,"South",BEG,4,"Exam",EXAM2,5,"Equip",EQUIP3)
:Lbl EXAM2
:ClLCD
:Outpt(1,1,"You see a small closet off to the east")
:Goto PASTEQ
:Lbl EQUIP4
:EQUIP1
:Lbl PASTEQ
:Menu(1,"North",THREE,2,"East",FOUR,3,"South",BEG,4,"Exam",EXAM2,5,"Equip",EQU
IP4)
:Lbl FOUR
:ClLCD
:Outpt(1,1,"You see a small crowbar on a shelf of the closet.")
:Outpt(4,1,"You take it")
:1üM
:Outpt(5,1,"Select EQUIP at any time to check your equipment"
:Pause
:ClLCD
:Goto FOUR2
:Lbl EQUIP5
:EQUIP1
:Lbl FOUR2
:Outpt(1,1,"You are in an empty closet")
:Lbl FOUR3
:Menu(1,"Leave",ONE2,4,"Exam",EXAM3,5,"Equip",EQUIP5)
:Lbl EXAM3
:ClLCD
:Outpt(1,1,"You are in a small empty closet. Hope you aren't afraid of small
spaces")
:Goto FOUR3
:Lbl EQUIP6
:EQUIP1
:Lbl ONE2
:ClLCD
:Outpt(1,1,"As you enter you see a large doorway to the north and a small
closet to the east. The exit to the castle is back to the south.")
:Menu(1,"North",THREE,2,"East",FOUR2,3,"South",BEG,4,"Exam",EXAM4,5,"Equip",EQ
UIP6)
:Lbl EXAM4
:ClLCD
:Outpt(1,1,"You see nothing new")
:Goto ONE2
:Lbl EQUIP7
:EQUIP1
:Lbl THREE
:ClLCD
:Outpt(1,1,"You enter a damp, dimly lit room. You smell dead animal corpses
on the air. How pleasant.")
:Menu(1,"North",FIVE,2,"South",ONE2,4,"Exam",EXAM5,5,"Equip",EQUIP7)
:Lbl EXAM5
:ClLCD
:Outpt(1,1,"You see a torch on the wall. You take the torch")
:1üN
:Pause
:Goto THREE2
:Lbl EQUIP8
:EQUIP1
:Lbl THREE2
:ClLCD
:If N==1
:Goto THREE3
:Else
:Goto THREE
:Lbl THREE3
:Outpt(1,1,"Holding up the the torch, you now see an exit on the west wall")
:Lbl THREE4
:Menu(1,"North",FIVE,2,"West",SIX,3,"South",ONE2,4,"Exam",EXAM6,5,"Equip",EQUI
P8)
:Lbl EXAM6
:ClLCD
:Outpt(1,1,"You see nothing new")
:Pause
:ClLCD
:Goto THREE4