TIB: Source to Cards.82p


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

TIB: Source to Cards.82p




Even More Source...

\START82\
\COMMENT=4¥­Æ×8 file dated 07¼>h> file dated 07/19
\NAME=CARDS
\FILE=D:\PERSONAL\CARDS.82P
:FullScreen
:ClrHome
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:FnOff 
:ZStandard
:ClrDraw
:Text(24,17,"CARDS VERSION V2.0"
:Text(30,12,"BY: CHRIS MACDOUGALD"
:Lbl A
:Menu("CARD GAMES 2.0  ","C.B. V2.0",B,"C.P. V1.0",E,"S.C.
V2.0",H,"EXI\#\
T",\@\
:Lbl B
:ClrDraw
:FullScreen
:Menu("CALCULATOR B.J. ","PLAY",D,"",B,"HELP",C,"MENU",A
:Lbl C
:Text(0,37,"-HELP-"
:Text(6,2,"*MAKE YOUR BET THEN HIT"
:Text(12,8," or STAY. IN ATTEMPT TO"
:Text(18,8,"GET A CARD TOTAL OF 21."
:Text(24,2,"\deg\HIT: Y="
:Text(30,2,"\deg\STAY: WINDOW"
:Text(36,2,"\deg\QUIT: 9"
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto B
:Lbl D
:1000\->\A
:Repeat A\<=\0
:ClrDraw
:ClrHome
:Split
:Text(0,5,"-CALCULATOR BLACKJACK-"
:Text(12,5,"YOU HAVE: ",A
:Text(24,12,"HOW MUCH DO YOU BET?"
:Repeat B>0 and B\<=\A
:ClrHome
:Input "BET: ",B
:iPart B\->\B
:End
:0\->\C
:ClrDraw
:Text(0,5,"-CALCULATOR BLACKJACK-"
:Text(6,5,"YOU:"
:Text(18,5,"DEALER:"
:0\->\E
:0\->\H
:Repeat F=12 or F=74 or C=5 or H\>=\21
:While C\<=\1 or F=11
:C+1\->\C
:E+15\->\E
:iPart (13)rand+1\->\D
:If D=1
:Text(12,E,"A"
:If D=11
:Text(12,E,"J"
:If D=12
:Text(12,E,"Q"
:If D=13
:Text(12,E,"K"
:If D\>=\2 and D\<=\10
:Text(12,E,D
:If D>10
:10\->\D
:If D=1
:Then
:Repeat D=1 or D=11
:ClrHome
:Input "(1 or 11): ",D
:End
:End
:H+D\->\H
:0\->\F
:Disp "   HIT: Y=","  STAY: WINDOW","  QUIT: 9"
:End
:Text(6,60,"TOTAL: ",H
:getKey\->\F
:End
:If F=74
:Goto B
:0\->\I
:0\->\K
:0\->\L
:Repeat I\>=\16 or L=5
:L+1\->\L
:iPart (13)rand+1\->\J
:K+15\->\K
:If J=1
:Text(24,K,"A"
:If J=11
:Text(24,K,"J"
:If J=12
:Text(24,K,"Q"
:If J=13
:Text(24,K,"K"
:If J\>=\2 and J\<=\10
:Text(24,K,J
:If J>10
:10\->\J
:I+J\->\I
:If J=1 and I=11 or J=10 and I=1
:I+10\->\I
:Text(18,60,"TOTAL: ",I
:End
:If H=21 and I\<>\21 or I>21 and H\<=\21 or H\<=\21 and C=5 or H>I and
\#\
H\<=\21
:Then
:Text(6,35,"WIN"
:A+B\->\A
:Else
:Text(18,35,"WINS"
:A-B\->\A
:End
:If H=I
:Then
:Text(6,35,"TIED"
:Text(18,35,"TIED  "
:A+B\->\A
:End
:ClrHome
:Disp "  PRESS  ENTER"
:Pause 
:End
:ClrHome
:Disp "   GAME  OVER","  PRESS  ENTER"
:Pause 
:Goto B
:Lbl E
:FullScreen
:ClrDraw
:{1,1}\->\dim [E]
:Menu("CALCULATOR POKER","PLAY",G,"",E,"HELP",F,"MENU",A
:Lbl F
:Text(0,37,"-HELP-"
:Text(6,2,"*YOU TRY TO GET A HIGHER"
:Text(12,8,"CARD FACE VALUE SCORE"
:Text(18,8,"THAN THE DEALER."
:Text(24,2,"\deg\HOLD: Y=...GRAPH"
:Text(30,2,"\deg\STAY: 2nd"
:Text(36,2,"\deg\QUIT: 9"
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto E
:Lbl G
:1000\->\A
:{4,13}\->\dim [E]
:Repeat A\<=\0
:Split
:ClrDraw
:Text(0,13,"-CALCULATOR POKER-"
:Text(12,5,"YOU HAVE: ",A
:Text(24,12,"HOW MUCH DO YOU BET?"
:Repeat B>0 and B\<=\A
:ClrHome
:Input "BET: ",B
:iPart B\->\B
:End
:Fill(0,[E]
:0\->\C
:0\->\O
:Repeat O\>=\2
:O+1\->\O
:While C\<=\4
:iPart (4)rand+1\->\D
:iPart (13)rand+1\->\I
:If [E](D,I)\<>\1
:Then
:C+1\->\C
:1\->\[E](D,I
:End
:End
:ClrDraw
:ClrHome
:Text(0,13,"-CALCULATOR POKER-"
:Text(6,13,"YOU:"
:Disp "HOLD: Y=...GRAPH","STAY: 2ND","QUIT: 9"
:0\->\C
:For(I,1,13
:For(D,1,4
:If [E](D,I)=1
:Then
:2\->\[E](D,I
:C+15\->\C
:If C=15
:D\->\H
:If C=15
:I\->\M
:If C=30
:D\->\G
:If C=30
:I\->\L
:If C=45
:D\->\F
:If C=45
:I\->\K
:If C=60
:D\->\E
:If C=60
:I\->\J
:If C=75
:D\->\N
:If C=75
:I\->\S
:If D=1
:Text(12,C,"C"
:If D=2
:Text(12,C,"D"
:If D=3
:Text(12,C,"H"
:If D=4
:Text(12,C,"S"
:If I=1
:Text(18,C,"A"
:If I=11
:Text(18,C,"J"
:If I=12
:Text(18,C,"Q"
:If I=13
:Text(18,C,"K"
:If I\>=\2 and I\<=\10
:Text(18,C,I
:End
:End
:End
:0\->\C
:If O<2
:Then
:Repeat P=21
:0\->\P
:getKey\->\P
:If P=74
:Goto E
:If P=11 and [E](H,M)\<>\1
:Then
:Text(24,15,"H"
:1\->\[E](H,M
:C+1\->\C
:0\->\P
:End
:If P=11 and [E](H,M)=1
:Then
:Text(24,15,"     "
:2\->\[E](H,M
:C-1\->\C
:End
:If P=12 and [E](G,L)\<>\1
:Then
:Text(24,30,"H"
:1\->\[E](G,L
:C+1\->\C
:0\->\P
:End
:If P=12 and [E](G,L)=1
:Then
:Text(24,30,"     "
:2\->\[E](G,L
:C-1\->\C
:End
:If P=13 and [E](F,K)\<>\1
:Then
:Text(24,45,"H"
:1\->\[E](F,K
:C+1\->\C
:0\->\P
:End
:If P=13 and [E](F,K)=1
:Then
:Text(24,45,"      "
:2\->\[E](F,K
:C-1\->\C
:End
:If P=14 and [E](E,J)\<>\1
:Then
:Text(24,60,"H"
:1\->\[E](E,J
:C+1\->\C
:0\->\P
:End
:If P=14 and [E](E,J)=1
:Then
:Text(24,60,"      "
:C-1\->\C
:2\->\[E](E,J
:End
:If P=15 and [E](N,S)\<>\1
:Then
:Text(24,75,"H"
:1\->\[E](N,S
:C+1\->\C
:0\->\P
:End
:If P=15 and [E](N,S)=1
:Then
:Text(24,75,"      "
:C-1\->\C
:2\->\[E](N,S
:End
:End
:End
:End
:ClrHome
:Disp "  PRESS  ENTER"
:Pause 
:0\->\Q
:iPart (10)rand\->\R
:If J=K or J=L or J=M or J=S or K=L or K=M or K=S or L=M or L=S or M=S
:1\->\Q
:If (J=K and (L=M or M=S or L=S)) or (J=L and (K=M or M=S or S=K)) or
(\#\
J=M and (K=L or L=S or S=K)) or (J=S and (K=L or K=M or L=M)) or (K=L
a\#\
nd (S=M or J=M or J=S)) or (K=M and (L=S or J=L or J=S)) or (K=S and
(J\#\
=M or J=L or M=L)) or (L=M and (K=J or S=J or K=S)) or (L=S and (J=K
or\#\
 J=M or K=M)) or (M=S and (J=K or J=L or L=K))
:2\->\Q
:If (J=K and (K=L or K=M or K=S)) or (J=L and (L=M or L=S)) or (J=M
and\#\
 M=S) or (K=L and (L=M or L=S)) or (K=M and M=S) or (L=M and M=S)
:3\->\Q
:If M+1=L and L+1=K and K+1=J and J+1=S
:4\->\Q
:If E=F and F=G and G=H and H=N
:5\->\Q
:If (J=K and K=L and M=S) or (J=K and K=M and L=S) or (J=K and K=S and
\#\
L=M) or (J=K and K=L and K=S) or (J=L and L=S and K=M) or (J=M and M=S
\#\
and K=L) or (K=L and L=M and J=S) or (K=L and L=S and J=M) or (K=M and
\#\
M=S and J=L) or (L=M and M=S and J=K)
:6\->\Q
:If (J=K and K=L and L=M) or (J=K and K=L and L=S) or (J=K and K=M and
\#\
M=S) or (J=L and L=M and M=S) or (K=L and L=M and M=S)
:7\->\Q
:If Q=5 and J+1=K and K+1=L and L+1=M and M+1=S
:8\->\Q
:If Q=5 and J=1 and K=10 and L=11 and M=12 and S=13
:9\->\Q
:ClrHome
:ClrDraw
:Text(0,13,"-CALCULATOR POKER-"
:Text(6,13,"YOU:"
:Text(18,13,"DEALER:"
:If Q=1
:Text(12,20,"ONE PAIR"
:If Q=2
:Text(12,20,"TWO PAIR"
:If Q=3
:Text(12,20,"THREE OF A KIND"
:If Q=4
:Text(12,20,"STRAIGHT"
:If Q=5
:Text(12,20,"FLUSH"
:If Q=6
:Text(12,20,"FULL HOUSE"
:If Q=7
:Text(12,20,"FOUR OF A KIND"
:If Q=8
:Text(12,20,"STRAIGHT FLUSH"
:If Q=9
:Text(12,20,"ROYAL FLUSH"
:If Q\>=\R
:Then
:A+B\->\A
:Text(6,40,"WIN"
:Else
:A-B\->\A
:Text(18,40,"WINS"
:End
:Disp "  PRESS  ENTER"
:Pause 
:End
:ClrHome
:Disp "   GAME  OVER","  PRESS  ENTER"
:Pause 
:Goto E
:Lbl H
:ClrDraw
:FullScreen
:Menu("SLOTS CALCULATOR","PLAY",J,"",H,"HELP",I,"MENU",A
:Lbl I
:Text(0,37,"-HELP-"
:Text(6,2,"*MAKE YOUR BET THEN STOP"
:Text(12,8,"THE SPINNERS IN ATTEMPT"
:Text(18,8,"TO MATCH ALL THREE."
:Text(24,2,"\deg\STOP: WINDOW...TRACE"
:Text(30,2,"\deg\QUIT: 9"
:Text(57,27,"PRESS ENTER"
:Pause 
:Goto H
:Lbl J
:1000\->\A
:Repeat A\<=\0
:ClrDraw
:ClrHome
:Split
:Text(0,13,"-SLOTS CALCULATOR-"
:Text(12,5,"YOU HAVE: ",A
:Text(24,12,"HOW MUCH DO YOU BET?"
:Repeat B>0 and B\<=\A
:ClrHome
:Input "BET: ",B
:iPart B\->\B
:End
:ClrDraw
:0\->\C
:0\->\D
:0\->\E
:Text(0,13,"-SLOTS CALCULATOR-"
:Line(\(-)\3.5,4,3,4
:Line(\(-)\3.5,\(-)\4,3,\(-)\4
:Line(\(-)\3.5,4,\(-)\3.5,\(-)\10
:Line(3,4,3,\(-)\10
:Text(24,35,"\deg\"
:Text(24,45,"\deg\"
:Text(24,55,"\deg\"
:Disp "  STOP: WINDOW,","ZOOM, AND TRACE.","  QUIT: 9"
:Repeat C\<>\0 and D\<>\0 and E\<>\0
:iPart (9)rand+1\->\G
:If C=0
:Text(12,35,G
:iPart (9)rand+1\->\H
:If D=0
:Text(12,45,H
:iPart (9)rand+1\->\I
:If E=0
:Text(12,55,I
:0\->\F
:getKey\->\F
:If F=74
:Goto H
:If F=12
:G\->\C
:If F=13
:H\->\D
:If F=14
:I\->\E
:End
:ClrHome
:Disp "  PRESS  ENTER"
:Pause 
:If C=D or D=E or E=C
:A+B\->\A
:If C=D and D=E
:A+(B*2)\->\A
:If C\<>\D and D\<>\E and E\<>\C
:A-B\->\A
:End
:ClrHome
:Disp "   GAME  OVER","  PRESS  ENTER"
:Pause 
:Goto H
:Lbl \@\
:FullScreen
:ClrDraw
:RectGC
:CoordOn
:GridOff
:AxesOn
:LabelOff
:ZStandard
:FnOn 
:ClrHome
\STOP82\

Enjoy!