TIB: There has to be an easier way to do this (TI-86)


[Prev][Next][Index][Thread]

TIB: There has to be an easier way to do this (TI-86)




someone tell me there's an easier way to write a BASIC rpg-like text-based 
game on the ti-86 than the way im doing it (c&p below). if you run the 
program it should be obvious what im trying to do (although there is one 
problem where if you enter the secret room on the east of the room to the 
north of the start even if you dont get the crowbar when you go back west and 
then north for some reason the program gives the room description that it 
should give if you had both the crowbar and the torch, but dont worry about 
that, all im looking for is is there an easier way of doing this? there must 
be since the program is taking up a huge amount of space [about 3000+] and 
all it is right now is 4 rooms)
by the way, the "EQUIP1" it refers to is another program that displays what 
items you have. dont worry about that.



:0üA
:0üB
:0üM
:0üN
:Goto BEG
:Lbl EQUIP1
:EQUIP1
:Pause 
:ClLCD
:Goto BEG
:ClLCD
:Lbl EQIP
:EQUIP1
:Pause 
:ClLCD
:Goto BEG2
:Lbl BEG2
:ClLCD
:Outpt(1,1,"You are at the enterance to an abandoned castle")
:Lbl TOPP
:Menu(1,"Enter",ONETWO,2,"Leave",TWO,4,"Exam",EXAMEN,5,"Equip",EQIP)
:Lbl EXAMEN
:Outpt(1,1,"You see a door that is so fallen apart you wonder why it is even 
still there. It would never keep anyone out")
: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
:Pause 
:ClLCD
:Outpt(1,1,"You are at the enterance to an abandoned castle")
:Lbl TOP2
:Menu(1,"Enter",ONE,2,"Leave",TWO,4,"Exam",EXAM0,5,"Equip",EQUIP2)
:Lbl EXAM0
:ClLCD
:Outpt(1,1,"You see nothing new")
:Goto TOP2
:Lbl TWO
:ClLCD
:Disp "Wimp"
:Stop
:Lbl EQUIP3
:EQUIP1
:Pause 
:ClLCD
: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
:1üA
:ClLCD
:Outpt(1,1,"You see a small closet off to the east")
:Goto PASTEQ
:Lbl EQUIP4
:EQUIP1
:Pause 
:Lbl ONETWO
:ClLCD
:Outpt(1,1,"As you enter, you see a large doorway to the north, a closet to 
the east. The exit is back to the south"
:Lbl PASTEQ
:Menu(1,"North",THREE,2,"East",FOUR2,3,"S 
outh",BEG2,4,"Exam",EXAM2,5,"Equip",EQUIP4)
:Lbl FOUR2
:ClLCD
:Outpt(1,1,"You are in a small closet.")
:Goto PASTEQ2
:Lbl EQUIP01
:EQUIP1
:Pause 
:ClLCD
:Lbl PASTEQ2
:Menu(1,"Leave",ONE2,4,"Exam",EXAM3,5,"Equip",EQUIP01)
:Lbl EXAM3
:If M==1:Goto EXAM3B
:If M==0: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
:Pause 
:ClLCD
:Lbl FOUR2
:ClLCD
:Outpt(1,1,"You are in an empty closet")
:Lbl FOUR3
:Menu(1,"Leave",ONE2,4,"Exam",EXAM3A,5,"Equip",EQUIP5)
:Lbl EXAM3A
:ClLCD
:If M==1
:Then
:Goto EXAM3B
:If Mø1
:Then
:Goto EXAM3
:Lbl EXAM3B
:ClLCD
:Outpt(1,1,"You are in a small empty closet. Hope you aren't afraid of small 
spaces")
:Pause 
:Goto FOUR2
:Lbl EQUIP6
:EQUIP1
:Pause 
:ClLCD
: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.")
:Lbl ONEONE
:Menu(1,"North",THREEOH,2,"East",FOUR2,3,"South",BEG2,4,"Exam",EXAM4,5,"Equip"
,EQUIP6)
:Lbl THREEOH
:If B==1:Goto THREE
:If B==0:Goto THREE4
:Lbl EXAM4
:ClLCD
:Outpt(1,1,"You see nothing new")
:Goto ONEONE
:Lbl EQUIP7
:EQUIP1
:Pause 
:ClLCD
:Lbl THREE
:ClLCD
:Outpt(1,1,"You enter a damp, dimly lit room. You smell dead animal corpses 
on the air. How pleasant.")
:Lbl CROWB
:Menu(1,"North",FIVE,2,"South",ONE020,4,"Exam",EXAM5,5,"Equip",EQUIP7)
:Lbl ONE020
:If A==1:Goto ONE2
:If A==0:Goto ONE
:Lbl EXAM5
:ClLCD
:If M==1
:Goto CROWY
:If Mø1
:Goto CROWN
:Lbl CROWY
:Outpt(1,1,"You see a torch on the wall. You use your crowbar to pry it out 
of its hole. You take the torch")
:1üB
:Pause 
:Goto THREE2
:Lbl CROWN
:Outpt(1,1,"You see a torch in the wall. However, no matter how you try, you 
can not seem to get it loose")
:Goto CROWB
:Lbl EQUIP8
:EQUIP1
:Pause 
:ClLCD
: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")
:Pause
:Lbl THREE4
:Outpt(1,1,"You are in a dimly lit room, the main light coming from your 
torch")
: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