TIB: Re: IM DUMB, BIG FAVOR (LC-4)
[Prev][Next][Index][Thread]
TIB: Re: IM DUMB, BIG FAVOR (LC-4)
\START82\
\COMMENT=Program file dated 08/25/96, 18:58
\NAME=DRAGSTER
\FILE=C:\TISOFT~1\82PROGS\DRAGSTER.82P
:ClrHome
:For(A,1,4)
:For(\@\,1,25)
:End
:Output(A,2,"A"):End
:ClrHome
:Output(4,2,"A"):8\->\A
:Repeat A=4
:For(\@\,1,25)
:End
:Output(A,3,"C"):A-1\->\A
:End
:ClrHome
:Output(4,2,"AC")
:For(A,1,4)
:For(\@\,1,15)
:End
:Output(A,4,"M"):End
:ClrHome
:Output(4,2,"ACM")
:8\->\A
:Repeat A=4
:For(\@\,1,25)
:End
:Output(A,5,"E"):A-1\->\A
:End
:ClrHome
:Output(4,2,"ACME")
:For(A,1,7)
:For(\@\,1,40)
:End
:Output(5,A," SOFTWARE")
:End
:Output(1,1,"****************"
:Output(8,1,"****PRESENTS****"
:For(A,1,8)
:Output(A,1,"*"):Output(A,16,"*")
:End
:For(\@\,1,500)
:End
:150000\->\M:0\->\S:0\->\G:0\->\T:0\->\U:0\->\V:0\->\Z:Lbl A:ClrHome
:ClrDraw:AxesOff:FnOff :ZStandard:If
M<0:0\->\M:0\->\I:15\->\A:Menu("-D\#\
RAG RACING-","-RACE AWAY",C,"-BODY SHOP",B,"-BUY
CARS",Q,"-GAMBLE",F,"-\#\
INFO",E,"-EXIT",D)
:Lbl D:Disp "THANK YOU FOR":Disp "PLAYING DRAGSTER":Stop:Lbl E
:Text(1,1,"DRAG RACING - JOHN MARTIN")
:Text(7,1,"-----------------------")
:Text(15,1,"THE OBJECT IS TO RACE AND
:Text(22,1,"BUILD UP MONEY TO BUY
:Text(29,1,"PARTS TO WIN.
:Text(36,1,"YOU ALSO HAVE THE OPTION
:Text(43,1,"OF BETTING MONEY ON CARS
:Text(50,1,"TO INCREASE YOUR TOTAL.
:Pause
:For(\@\,15,50
:Text(\@\,1,"
\#\
"
:\@\+6\->\\@\:End
:Text(15,1,"ACCEL:ACCELARATE-(5,000)"):Text(22,1,"ENGINE:SPEED-(30,000)\#\
"):Text(29,1,"TIRES:CONTROL-(100)"):Text(36,1,"SHOCKS:CONTROL-(200)")
:Text(43,1,"RACING=(1000)")
:Text(55,24,"*GOOD LUCK*"):Pause :Goto A
:Lbl B:1\->\A
:If G=0:Then
:Text(25,3,"** YOU DONT HAVE A CAR **"):Pause :Goto A:End
:Repeat A>S
:If A\<=\S
:Text(15,48-(A*4),"O")
:A+1\->\A:End:1\->\A
:Repeat A>T
:If A\<=\T
:Text(25,48-(A*4),"O")
:A+1\->\A:End:1\->\A
:Repeat A>U
:If A\<=\U
:Text(35,48-(A*4),"O"):A+1\->\A
:End:1\->\A
:Repeat A>V
:If A\<=\V
:Text(45,48-(A*4),"O"):A+1\->\A:End:Text(1,1,"* DRAG RACING BODY
SHOP\#\
*
:Text(7,2,"-----------------------
:Text(51,2,"-----------------------
:Text(15,5,"[
:Text(15,48,"]-(WHEELS)
:Text(25,5,"[
:Text(25,48,"]-(SHOCKS)
:Text(45,25,"[
:Text(45,48,"]-(ACCELL)
:Text(35,25,"[
:Text(35,48,"]-(ENGINE)
:If G=1
:Text(40,7,"I{}>
:If G=2
:Text(40,7,"I[ ]>
:If G=3
:Text(40,7,"I( )>
:15\->\A
:Text(57,1,"RACES=
:Text(57,25,Z
:Text(57,39,"MONEY=
:Repeat K=105
:If M\<>\N
:Text(57,66," ")
:M\->\N
:Text(57,66,M
:getKey\->\K
:If K=25 or K=34:Text(A,90,"
:If K=25 and A>15:A-10\->\A
:If K=34 and A<45:A+10\->\A
:Text(A,90,"<
:If K=26:Then
:If A=15 and S>0:Then
:Text(15,48-S*4," "):S-1\->\S:If S\<>\\(-)\1:M+100\->\M:End
:If A=25 and T>0:Then
:Text(25,48-(T*4)," "):T-1\->\T:If T\<>\\(-)\1:M+200\->\M:End
:If A=45 and V>0:Then
:Text(45,48-(V*4)," "):V-1\->\V:If V\<>\\(-)\1:M+5000\->\M:End
:If A=35 and U>0:Then
:Text(35,48-(U*4)," "):U-1\->\U:If U\<>\\(-)\1:M+30000\->\M:End:End
:If K=24:Then
:If A=15 and S<10 and M>99:Then
:M-100\->\M:S+1\->\S
:Text(15,48-(S*4),"O"):End
:If A=25 and T<10 and M>199:Then:M-200\->\M:T+1\->\T
:Text(25,48-(T*4),"O"):End
:If A=45 and V<5 and
M>4999:Then:M-5000\->\M:V+1\->\V:Text(45,48-(V*4),\#\
"O"):End
:If A=35 and U<5 and
M>29999:Then:M-30000\->\M:U+1\->\U:Text(35,48-(U*4\#\
),"O"):End:End
:End:Goto A
:Lbl C
:If G=0 and I\<>\1:Then:Text(25,3,"** YOU DONT HAVE A CAR **":Pause
:Go\#\
to A:End
:If M<1000 and I\<>\1:Then
:Text(25,2,"* YOU NEED 1000 TO ENTER *":Pause
:Goto A:End
:Z+1\->\Z:1\->\A:1\->\D
:U*G\->\B:V*G\->\C
:round(rand*4,0)\->\E
:round(rand*4,0)+1\->\F
:If I\<>\1
:round(rand*4G,0)\->\E
:If I\<>\1
:round(rand*4G,0)+1\->\F
:Line(\(-)\10,10,10,10):Line(10,\(-)\10,\(-)\10,\(-)\10):Line(\(-)\10,8\#\
.8,10,8.8):Line(\(-)\10,\(-)\8.8,10,\(-)\8.8):Line(10,1.2,\(-)\10,1.2):\#\
Line(10,\(-)\1.2,\(-)\10,\(-)\1.2):If G=1 or I=1
:Text(11,A,"I{}>")
:If G=2 and I\<>\1
:Text(11,A,"I[ ]>
:If G=3 and I\<>\1
:Text(11,A,"I( )>
:Text(44,D,"I{}>")
:round(rand*(10*((S/10)+1)*((T/10)+1)),0)\->\R
:M+100\->\M
:Lbl \@\
:M-100\->\M
:Text(28,1,"O O O")
:If C=0:1\->\C
:For(\@\,1,50
:getKey\->\K
:If K=26 and I=0:Goto \@\
:If \@\=20:Then
:Pxl-On(30,2
:Pxl-On(32,2
:Pxl-On(31,2)
:End
:If \@\=40:Then
:Pxl-On(32,9
:Pxl-On(31,9)
:Pxl-On(30,9
:End
:If \@\=50:Then
:Pxl-On(30,16
:Pxl-On(31,16)
:Pxl-On(32,16)
:End:End
:If I=1:Goto H
:Lbl Z
:getKey\->\K
:If K\<>\26:B-G\->\B
:If B<0:0\->\B
:If K=26:B+C\->\B
:E+F\->\E
:If R\<>\3
:Text(11,A," ")
:If R\<>\1
:Text(44,D," ")
:If R\<>\1:D+E\->\D
:If R\<>\3:A+B\->\A
:If A>91 and D>91:Goto W
:If R=3 and D>80:Goto O
:If A>91:Goto Y
:If D>91:Goto X
:If G=1
:Text(11,A,"I{}>")
:If G=2
:Text(11,A,"I[ ]>
:If G=3
:Text(11,A,"I( )>
:Text(44,D,"I{}>")
:Goto Z
:Lbl Y:M+10000\->\M:If D<91:Text(44,D,"I{}>")
:Text(28,30,"PLAYER-1")
:Pause :Goto A
:Lbl X:M-1000\->\M
:If A<91:Then
:If G=1
:Text(11,A,"I{}>")
:If G=2
:Text(11,A,"I[ ]>
:If G=3
:Text(11,A,"I( )>
:End
:Text(28,30,"PLAYER-2")
:Pause :Goto A
:Lbl W
:If A>D:Goto Y
:If D>A:Goto X
:Text(28,30,"ITS A TIE")
:Pause :Goto A
:Lbl O:M-1000\->\M
:round(rand*4,0)\->\R
:If R=1:Then
:Text(28,30,"ENGINE FAILURE")
:U-2\->\U:End
:If R=0:Then
:Text(28,30,"OVERHEATING")
:U-1\->\U:V-1\->\V
:S-2\->\S:T-2\->\T:End:If R=2:Then
:Text(28,30,"TIRE BLOW OUT")
:S-8\->\S:End
:If R=3:Then
:Text(28,30,"EXPLOSION")
:Text(7,4,"())
:Text(15,4,"(()
:Text(11,1,"(()()"):0\->\S:0\->\T:0\->\U:0\->\V:0\->\G:End
:If R=4:Then
:Text(28,30,"SHOCK FAILURE"):S-1\->\S:0\->\T:End
:If S<0:0\->\S
:If T<0:0\->\T
:If U<0:0\->\U
:If V<0:0\->\V
:Pause :Goto A
:Lbl F:ClrHome
:If M<1:Then
:Text(25,2,"*** SORRY NO MONEY ***"):Pause :Goto A:End
:Disp "MONEY=
:Disp "(M)=BET ALL"
:Disp "(0)=TO STOP"
:Output(1,7,M
:Input "BET?",O
:If O=0:Goto A
:If O>M or O<1:Goto F
:Input "CAR 1-OR-2?",P
:If P\<>\1 and P\<>\2:Goto F
:Z-1\->\Z
:1\->\I:Goto C
:Lbl H:1\->\A:1\->\D
:round(rand*4,0)+1\->\B
:round(rand*4,0)+1\->\C
:Lbl G
:Text(11,A," "
:Text(44,D," "
:A+B\->\A:B+C\->\B
:D+E\->\D:E+F\->\E
:If A>91 and D>91:Goto I
:If A>91:Goto J
:If D>91:Goto K
:Text(11,A,"I{}>
:Text(44,D,"I{}>
:Goto G
:Lbl I
:If A>D:Goto J
:If A<D:Goto K
:Text(28,30,"ITS A TIE"):3\->\Q
:Pause :Goto A
:Lbl J
:Text(28,30,"PLAYER-1")
:If D<91
:Text(44,D,"I{}>
:If P=1:1\->\Q
:If P=2:0\->\Q
:Pause :Goto N
:Lbl K
:If A<91
:Text(11,A,"I{}>
:Text(28,30,"PLAYER-2")
:If P=1:0\->\Q
:If P=2:1\->\Q
:Pause :Goto N
:Lbl N
:If Q=1
:Text(28,1," YOU WON!!!")
:If Q=0
:Text(28,1," YOU LOST "):If Q=1:M+O\->\M
:If Q=0:M-O\->\M
:Text(28,37," MONEY=
:Text(28,67,M
:Pause :Goto A
:Lbl Q
:Text(1,1,"** THE CAR DEALERSHIP **")
:Text(7,1,"--------------------------")
:Text(15,1,"I{}>=(SLOW)(100,000)-")
:Text(25,1,"I[ ]>= (GOOD)(350,000)-")
:Text(35,1,"I( )>= (FAST) (800,000)-")
:Text(45,30,"SELL YOUR CAR-
:If G=1
:Text(45,2," I{}>
:If G=2
:Text(45,2," I[ ]>
:If G=3
:Text(45,2," I( )>
:If G=0
:Text(45,2,"(NONE)")
:Text(55,62,"EXIT-")
:Text(55,1,"MONEY=
:Text(55,28,"
:Text(55,28,M
:Repeat K=105
:getKey\->\K
:If K=34 or K=25:Text(A,81,"
:If K=34 and A<55:A+10\->\A
:If K=25 and A>15:A-10\->\A
:Text(A,81,"<III
:End
:If A=45:Then
:(S*100)+(T*200)+(U*30000)+(V*5000)+M\->\M
:If G=1
:M+100000\->\M
:If G=2
:M+350000\->\M
:If G=3
:M+800000\->\M
:If G=0:Then
:Text(1,1," YOU DONT HAVE A CAR ")
:For(\@\,1,300):End:Goto Q:End:0\->\G:0\->\S:0\->\T:0\->\U:0\->\V:Goto
\#\
Q:End
:If A=55:Goto A
:If A=35 and M>799999:Then
:M-800000\->\M:3\->\G
:Goto P:End
:If A=25 and M>349999:Then
:M-350000\->\M:2\->\G
:Goto P:End
:If A=15 and M>99999:Then
:M-100000\->\M:1\->\G
:Goto P:End
:Text(1,1," NOT ENOUGH MONEY ")
:For(\@\,1,150
:End:Goto Q
:Lbl P
:Text(1,1," CAR PURCHASED!!!
"):0\->\S:\#\
0\->\T:0\->\U:0\->\V:For(\@\,1,150
:End:Goto Q
\STOP82\
References: