TIB: Source code to Game1.85P


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

TIB: Source code to Game1.85P




Hello Folks,
	Here is the source.

:Outpt(1,1," By:Chris MacDougald ")
:Lbl S
:ClLCD
:Outpt(3,5,"Select a GAME")
:Outpt(5,6,"Version 4.1")
:Menu(1,"B.J.",B,2,"I.C.",I,3,"R.R.",Y,5,"EXIT",E)
:Pause 
:Goto S
:Lbl B
:1000üE
:0üF
:ClLCD
:Outpt(4,7,"BlackJack")
:Menu(1,"Play",Q,3,"",C,4,"Help",T,5,"Exit",S)
:Lbl C
:E+9000üE
:Lbl Q
:If E÷0
:Menu(1,"Again",B,5,"Exit",S)
:ClLCD
:Disp "+-------------------+","You have:",E,"","","How much do you
bet?","+-------------------+"
:Input "$ ",F
:iPart (F)üF
:If F<0
:0üF
:If F>E
:EüF
:1üK
:0üB
:Lbl J
:0üA
:iPart 13rand+1üA
:AüC
:If A>10
:10üA
:A+BüB
:If A==1 and (B==11 or B==1)
:10+BüB
:Disp "+-------------------+","Your card:",A,"","Your
total:",B,"+-------------------+"
:If C==1
:Outpt(3,20,"A ")
:If C==11
:Outpt(3,20,"J ")
:If C==12
:Outpt(3,20,"Q ")
:If C==13
:Outpt(3,20,"K ")
:If K÷4
:Menu(1,"Hit",L,2,"Stay",s,5,"Quit",B)
:Lbl s
:0üC
:0üD
:iPart 13rand+1üC
:If C>10
:10üC
:Lbl N
:iPart 13rand+1üD
:If D>10
:C+DüC
:If C÷15
:Goto N
:ClLCD
:Disp "+-------------------+","Your total:",B,"","Dealer
total:",C,"+-------------------+"
:If B==C or B>21 and C>21
:Menu(1,"Tied",Q,5,"Quit",B)
:If B==21 or B÷21 and C>21 or B>C and B<21 and C<21 or K==5 and B÷21
:Then
:E+FüE
:Menu(1,"Gain",Q,5,"Quit",B)
:End
:E-FüE
:Menu(1,"Loss",Q,5,"Quit",B)
:Lbl L
:1+KüK
:Goto J
:Lbl T
:Disp "     -Help File-","   The object of the "," game is to get your
"," total equal to 21.  ","","","     Press ENTER"
:Pause 
:Goto B
:Lbl I
:0üR
:0üL
:0üW
:ClLCD
:Outpt(4,3,"Internal Calc-bat")
:Menu(1,"Play",X,4,"Help",U,5,"Exit",S)
:Lbl U
:ClLCD
:Disp "     -Help File-","Move L: L Arw","Move R: R Arw","Block: D
Arw","Fireball: U Arw","Special: ?","     Press ENTER"
:Pause 
:Disp "     -Help File-","Hi Kick: EXIT","Low Kick: xúVAR","Hi Punch:
2nd","Low Punch: ALPHA","Quit/Pause: 4","     Press ENTER"
:Pause 
:Goto I
:Lbl X
:0üG
:ClLCD
:Repeat Gù1 and G÷4 or G==8
:Disp "Select
Opponent:","1)Angular","2)Herman","3)Oberan","4)Killatous","","8)Practice"
:Input "(1-4 or 8): ",G
:End
:Lbl D
:100üT
:99üA
:99üB
:4üC
:18üD
:R+1üR
:If Rù4
:Goto I
:ClLCD
:Disp "+-P1-+-Time----+-P2-+","|    |         |   
|","+----+---------+----+"
:Outpt(8,1,"+-------------------+")
:If G÷8
:Outpt(1,17,"CALC")
:Outpt(2,7,W)
:Outpt(2,15,L)
:Outpt(5,C,"O")
:Outpt(5,D,"O")
:Outpt(6,C,"Á=")
:Outpt(6,D-1,"=2")
:If G==8
:Outpt(6,D,"P")
:If G==1
:Outpt(6,D,"A")
:If G==2
:Outpt(6,D,"H")
:If G==3
:Outpt(6,D,"O")
:If G==4
:Outpt(6,D,"K")
:Outpt(7,C,"|>")
:Outpt(7,D-1,"<|")
:Outpt(4,8,"Round")
:Outpt(4,14,R)
:For(I,1,500)
:End
:Outpt(4,8,"FIGHT !")
:Lbl P
:T-1üT
:Outpt(1,14,"-")
:Outpt(1,13,T)
:Outpt(2,4," ")
:Outpt(2,3,A)
:Outpt(2,19," ")
:Outpt(2,18,B)
:If G==8 and B÷0
:Goto I
:If B÷0 or A÷0 or T÷0
:Goto R
:0üE
:0üF
:If Gø9
:getKyüE
:If G==9
:Then
:getKyüE
:End
:If G÷7
:Then
:If G==1
:iPart 5rand+1üK
:If G==2
:iPart 10rand+1üK
:If G==3
:iPart 15rand+1üK
:If G==4
:iPart 21rand+1üK
:If K==1 or K==13 or D-4>C
:26üF
:If K==11 and D-3÷C or K==12 and D-3÷C or K==18 and D-3÷C
:22üF
:If K==2 and D-3÷C or K==14 and D-3÷C or K==19 and D-3÷C
:32üF
:If K==8 and D-3÷C or K==16 and D-3÷C
:21üF
:If K==9 and D-3÷C or K==3 and D-3÷C
:31üF
:If K==6 or K==17
:24üF
:If K==4
:34üF
:If K==7
:25üF
:If K==5 and D-3>C
:11üF
:If K==10
:12üF
:If K==15
:13üF
:If K==20
:14üF
:If K==21
:15üF
:If F==0 and D-3÷C
:22üF
:If F==0 and D-3>C
:26üF
:End
:If E==82 or F==82
:Menu(1,"Cont",P,5,"Quit",I)
:If E==26 and C+4÷D
:C+1üC
:If F==26 and D-4ùC
:D-1üD
:If E==24 and Cù3
:C-1üC
:If F==24 and D÷19
:D+1üD
:If E==34
:Outpt(6,C+1,")")
:If F==34
:Outpt(6,D-1,"(")
:If E==25 and C+4<D
:Then
:Outpt(4,7,"Fireballô")
:C+2üK
:Repeat K+2>D
:Outpt(6,K," ô")
:For(I,1,35)
:End
:K+1üK
:End
:If Fø34
:B-3üB
:End
:If F==25 and D-4>C
:Then
:Outpt(4,7,"Fireball*")
:D-3üK
:Repeat K-1<C
:Outpt(6,K,"* ")
:For(I,1,35)
:End
:K-1üK
:End
:If Eø34
:A-3üA
:End
:If E==21
:Then
:Outpt(5,C+1,"/")
:Outpt(6,C-1,"<Á ")
:If Fø34 and C+3ùD
:B-1üB
:End
:If F==21
:Then
:Outpt(5,D-1,"|")
:Outpt(6,D+1,">")
:Outpt(6,D-1," ")
:If Eø34 and D-3÷C
:A-1üA
:End
:If E==22
:Then
:Outpt(5,C-1,"<O//")
:Outpt(6,C+1,"/")
:Outpt(7,C+1," ")
:If Fø34 and C+3ùD
:B-3üB
:End
:If F==22
:Then
:Outpt(5,D-2,"|<O>")
:Outpt(6,D-1,"-")
:Outpt(7,D-1," ")
:If Eø34 and D-3÷C
:A-3üA
:End
:If E==31
:Then
:Outpt(5,C-1,"<")
:Outpt(6,C+1,"-")
:If Fø34 and C+3ùD
:B-1üB
:End
:If F==31
:Then
:Outpt(5,D+1,">")
:Outpt(6,D-1,"-")
:If Eø34 and D-3÷C
:A-1üA
:End
:If E==32
:Then
:Outpt(5,C-1,"<O>")
:Outpt(6,C+1,"--")
:Outpt(7,C+1," ")
:If Fø34 and C+4==D
:B-1üB
:If Fø34 and C+3ùD
:B-2üB
:End
:If F==32
:Then
:Outpt(5,D-1,"<O>")
:Outpt(6,D-2,"--")
:Outpt(7,D-1," |")
:If Eø34 and D-4==C
:A-1üA
:If Eø34 and D-3÷C
:A-2üA
:End
:If E==11 and C+3<D
:Then
:C+2üK
:Outpt(6,C,"Á<")
:While K+1<D
:Outpt(6,K,"-ù")
:K+1üK
:End
:If Fø34
:Then
:Outpt(4,7,"Come here")
:Repeat D-3÷C
:Outpt(5,D,"(O ")
:Outpt(6,D-1,"ùX) ")
:Outpt(7,D-1,"<| ")
:D-1üD
:End
:B-5üB
:End
:End
:If F==11 and D-3>C
:Then
:D-3üK
:Outpt(6,D-1,">")
:While K-1>C
:Outpt(6,K,"÷-")
:K-1üK
:End
:If Fø34
:Then
:Outpt(4,7,"Come here")
:Repeat C+3ùD
:Outpt(5,C-1," O)")
:Outpt(6,C-1," (X÷")
:Outpt(7,C," |>")
:C+1üC
:End
:A-5üA
:End
:End
:If F==12
:Then
:D-2üK
:Outpt(4,7,"Floor saw")
:For(I,1,200)
:End
:While K-1>C
:Outpt(7,K,"Q")
:K-1üK
:End
:For(I,1,50)
:End
:A-6üA
:End
:If F==13
:Then
:Outpt(4,7,"High jump")
:For(I,1,200)
:End
:Outpt(6,D-1,"   ")
:Outpt(7,D-1,"   ")
:While D-3>C
:Outpt(4,D-1,"<O> ")
:Outpt(5,D-2,"--M-- ")
:For(I,1,75)
:End
:D-1üD
:End
:C+3üD
:A-7üA
:End
:If F==14
:Then
:C+3üK
:Outpt(7,D-1,"   ")
:Outpt(6,D-1,"   ")
:Outpt(5,D-1,"   ")
:For(I,1,400)
:End
:Outpt(4,6,"Where is he?")
:For(I,1,300)
:End
:Outpt(5,K-1,"|O")
:Outpt(6,K,"?>")
:Outpt(7,K-1,"<|")
:For(I,1,200)
:End
:A-8üA
:End
:If F==15
:Then
:Outpt(4,7,"Lightning")
:For(I,1,300)
:End
:Outpt(5,D-1,"|O|")
:Outpt(6,D-1,"'É'")
:For(I,1,200)
:End
:Outpt(4,D-1,"Å Å")
:Outpt(4,C-1,"ÂÂÂ")
:For(I,1,300)
:End
:A-9üA
:End
:If Eø0 or Fø0 or T==99
:Then
:For(I,4,7)
:Outpt(I,1,"                     ")
:End
:Outpt(5,C,"O")
:Outpt(6,C,"Á=")
:Outpt(7,C,"|>")
:Outpt(5,D,"O")
:Outpt(6,D-1,"=2")
:If G==8
:Outpt(6,D,"P")
:If G==1
:Outpt(6,D,"A")
:If G==2
:Outpt(6,D,"H")
:If G==3
:Outpt(6,D,"O")
:If G==4
:Outpt(6,D,"K")
:Outpt(7,D-1,"<|")
:End
:If B==0 and Rù3 and Wù2 or E==61 or F==61
:Goto F
:Goto P
:Lbl F
:Outpt(3,7,"FATALITY!")
:iPart 5randüK
:If K==0
:Then
:Outpt(4,5,"I'm shrinking"
:Outpt(5,D-1,"   ")
:Outpt(6,D-1," O ")
:For(I,1,200)
:End
:Outpt(6,D-1,"   ")
:Outpt(7,D-1," & ")
:End
:If K==1
:Then
:Outpt(4,4,"Ice cold stuff!")
:Outpt(6,C+1,"<")
:Outpt(5,C,"@")
:C+2üE
:Repeat EùD-2
:Outpt(5,E+1," ~")
:For(I,1,50)
:End
:E+1üE
:End
:Outpt(5,D-1,"[O]")
:Outpt(6,D-1,"[Á]")
:Outpt(7,D-1,"[|]")
:End
:If K==2
:Then
:Outpt(4,4,"A Tyrannosaurus")
:For(I,1,500)
:End
:Outpt(4,4,"               ")
:Outpt(4,D-1,"U U")
:For(I,1,200)
:End
:Outpt(5,D-1,"UOU")
:For(I,1,100)
:End
:Outpt(5,D-1,"   ")
:0üE
:Repeat Eù5
:Outpt(4,D-1," U")
:For(I,1,75)
:End
:Outpt(4,D-1,"U ")
:For(I,1,75)
:End
:E+1üE
:End
:End
:If K==3
:Then
:Outpt(4,6,"Let's dance")
:Outpt(5,D+1,"/")
:Outpt(5,C+1,"/")
:Outpt(6,D-1,"/")
:Outpt(6,C-1,"/Á ")
:End
:If K==4
:Then
:Outpt(4,5,"Don't look up")
:For(I,1,500)
:End
:Outpt(5,D-1,"+-+"
:Outpt(6,D-1,"|$|")
:Outpt(7,D-1,"+-+")
:Outpt(4,2,"That's one big safe")
:End
:Outpt(8,6,"Press-ENTER")
:Pause 
:Lbl R
:If A>B
:1üK
:If B>A or B==A
:2üK
:If B>A and G÷8 or B==A and G÷8
:3üK
:If K==2 or K==3
:L+1üL
:If K==1
:W+1üW
:ClLCD
:Outpt(1,7,"-Results-")
:Outpt(7,6,"Press ENTER")
:Outpt(3,6," PLAYER")
:Outpt(3,15,K)
:Outpt(4,9,"WIN'S")
:If K==3
:Outpt(3,6,"CALCULATER?")
:Pause 
:If Rù3
:Then
:Outpt(3,6," PLAYER  1 ")
:If L>W and G==9
:Outpt(3,15,"2")
:If L>W and G÷8
:Outpt(3,6,"CALCULATER?")
:Outpt(5,9,"FIGHT")
:Pause 
:End
:Goto D
:Lbl Y
:ClLCD
:Outpt(4,7,"Road Rage")
:Menu(1,"Play",G,4,"Help",H,5,"Exit",S)
:Lbl H
:ClLCD
:Disp "     -Help File-","  You must avoid the","other riders &
finish","the race to win.","","Speed up: U Arw","     Press ENTER"
:Pause 
:Disp "     -Help File-","Slow down: D Arw","Move R: R Arw","Move L: L
Arw","Weapon: 2nd","Quit/Pause: 4","     Press ENTER"
:Pause 
:Goto Y
:Lbl G
:ClLCD
:Disp "Skill level:","1)Hard","2)Easy","","","",""
:Input "(1-2): ",L
:iPart LüL
:If L÷0 or Lù3
:Goto G
:5üA
:11üB
:0üG
:6üD
:7üJ
:2üM
:0üO
:0üP
:0üQ
:0üN
:3üH
:Lbl K
:P+5üP
:ClLCD
:Outpt(4,6,"Distance:")
:Outpt(4,16,P)
:Outpt(5,6,"Press ENTER"
:Pause 
:ClLCD
:Outpt(1,1,"+Points:----+----m/h+")
:Outpt(8,1,"+Life:----+Dist:----+")
:Lbl O
:For(C,2,7)
:Outpt(C,D,"|  '   '  |")
:End
:If A==2
:60üF
:If A==3
:50üF
:If A==4
:40üF
:If A==5
:30üF
:If A==6
:20üF
:If A==7
:10üF
:Outpt(1,15,F)
:O+(F/10)üO
:iPart (O/100)üG
:Outpt(8,18,G)
:Outpt(8,8,H)
:Outpt(1,10,Q)
:0üE
:getKyüE
:If E==82
:Menu(1,"Cont",O,5,"Quit",Y)
:If E==25 and A-1ù2
:A-1üA
:If E==34 and A+1÷7
:A+1üA
:If E==24 and B-1ùD+1
:B-1üB
:If E==26 and B+1÷D+9
:B+1üB
:Outpt(A,B,"A")
:iPart 2rand+1üI
:If L==1
:Then
:If M÷2
:8üM
:If M==8
:D+iPart 9rand+1üN
:End
:If IùL
:Then
:If Jù7
:1üJ
:If J==1
:D+iPart 9rand+1üK
:If K==N
:K-1üN
:If N==D
:K+1üN
:End
:If KùD+1 and J<7 or NùD+1 and M>2
:Then
:J+1üJ
:M-1üM
:Outpt(J,K,"O")
:If L==1
:Outpt(M,N,"O")
:For(Z,1,20)
:End
:End
:If E==21
:Then
:Outpt(A,B-1,"-A-")
:If A==J and (B-1==K or B+1==K) or A==M and (B-1==N or B+1==N)
:Q+1üQ
:End
:If (Q/10)==1
:H+1üH
:If Qù10
:0üQ
:If A==J and B==K or A==M and B==N
:H-1üH
:If GùP
:Menu(1,"Next",K,5,"Quit",Y)
:If H÷0
:Menu(1,"Again",G,5,"Quit",Y)
:Goto O
:Lbl E
:ClLCD