Sharp PC-E500 POKER

POKER

Ein PokerSpiel für den PC-E500 von Sharp

POKER (3.947 Bytes)

900*POKA:CLS:CLEAR
910PRINT "Videopoker"
920PRINT " MPS 2007"
930DIM G$(12)
940DIM ST(51)
950DIM KW(4,1)
960DIM CH(4)
970G=20:REM GELD
980G$(0)="E01804020201"
990G$(1)="010101010101"
1000G$(2)="02020418E0"
1010G$(3)="FF0000000000"
1020G$(4)="00000000FF"
1030G$(5)="071820404080"
1040G$(6)="808080808080"
1050G$(7)="4040201807"
1060G$(8)="18BCBEFFBEBC18"
1070G$(9)="0E31418241310E"
1080G$(10)="08142241221408"
1090G$(11)="085C4A7F4A5C08"
1100RANDOMIZE
1110E=1
1120G=G-E
1130LOCATE 0,2:PRINT "+/- 0=Deal";
1140GOSUB *KMON
1150A$=INKEY$ :IF A$=""THEN 1150
1160IF A$="+"THEN IF G>0 AND E<50THEN E=E+1:G=G-1
1170IF A$="-"AND E>0THEN E=E-1:G=G+1
1180IF A$="0"THEN 1200
1190GOTO 1140
1200A=0
1210GOSUB *KRND
1220CLS
1230GOSUB *KSORT
1240FOR X=0TO 4:GOSUB *KART:NEXT
1250GOSUB *KMON
1260A$=INKEY$ :IF A$=""THEN 1260
1270IF A$="0"THEN 1400
1280 REM
1290 IF A$="1" THEN CH(0)=1-CH(0)
1300 IF A$="2" THEN CH(1)=1-CH(1)
1310 IF A$="3" THEN CH(2)=1-CH(2)
1320 IF A$="4" THEN CH(3)=1-CH(3)
1330 IF A$="5" THEN CH(4)=1-CH(4)
1340 REM
1350FOR X=0TO 4
1360GOSUB 2250
1370IF CH(X)=1THEN LOCATE X*4+1,3:PRINT "Ex";
1380NEXT
1390GOTO 1260
1400FOR X=0TO 4
1410IF CH(X)=1THEN KW(X,0)=99
1420NEXT
1430GOSUB *KSORT
1440IF KX(0,0)=99THEN A=0:GOTO 1480
1450FOR X=0TO 4
1460IF KW(X,0)<99THEN A=X+1
1470NEXT
1480GOSUB *KRND:GOSUB *KSORT
1490FOR X=0TO 4:GOSUB *KART:NEXT
1500W0=KW(0,0):W1=KW(1,0):W2=KW(2,0):W3=KW(3,0):W4=KW(4,0)
1510F0=KW(0,1):F1=KW(1,1):F2=KW(2,1):F3=KW(3,1):F4=KW(4,1)
1520IF W0<>8 OR W1<>9 OR W2<>10 OR W3<>11 OR W4<>12 THEN 1540
1530G=G+E*100:LOCATE 2,3:PRINT "RoyalFlash!!!":GOTO 1870
1540IF W1-W0<>1THEN 1620
1550IF W2-W1<>1THEN 1620
1560IF W3-W2<>1THEN 1620
1570IF W4-W3<>1THEN 1620
1580IF F0=F1 AND F1=F2 AND F2=F3 AND F3=F4 THEN 1610
1590G=G+E*10:LOCATE 2,3:PRINT "Straight!!!"
1600GOTO 1870
1610G=G+E*50:LOCATE 2,3:PRINT "StraightFlush!!!":GOTO 1870
1620IF F0=F1 AND F1=F2 AND F2=F3 AND F3=F4 THEN 1640
1630GOTO 1650
1640G=G+E*15:LOCATE 2,3:PRINT "Flush!!!":GOTO 1870
1650IF W0=W1 AND W4=W3 THEN IF W1=W2 OR W3=W2 THEN 1670
1660GOTO 1680
1670G=G+E*20:LOCATE 2,3:PRINT "FullHouse!!!":GOTO1870
1680IF W1=W2 AND W2=W3 THEN 1700
1690GOTO 1730
1700IF W0=W1 AND W3=W4 THEN 1720
1710GOTO 1730
1720G=G+E*30:LOCATE 2,3:PRINT "4er!!!":GOTO 1870
1730A=0:FOR X=0TO 2
1740IF KW(X,0)=KW(X+1,0) AND KW(X+1,0)=KW(X+2,0)THEN A=1
1750 NEXT
1760IF A=1THEN G=G+E*6:LOCATE 2,3:PRINT "3er!!!":GOTO 1870
1770IF W0=W1 AND W2=W3 THEN 1810
1780IF W0=W1 AND W3=W4 THEN 1810
1790IF W1=W2 AND W3=W4 THEN 1810
1800GOTO 1820
1810G=G+E*4:LOCATE 2,3:PRINT "2 Paar!!!":GOTO 1870
1820A=0:FOR X=0TO 3
1830IF KW(X,0)=KW(X+1,0)THEN A=1
1840NEXT
1850IF A=1THEN G=G+E*2:LOCATE 2,3:PRINT "Paar!!!":GOTO 1870
1860LOCATE 2,3:PRINT "Nix"
1870ERASE ST:DIM ST(51)
1880FOR X=0TO 4:CH(X)=0:NEXT
1890IF INKEY$ =""THEN 1870
1900CLS:GOTO 1120
1910*KRND
1920IF A>4THEN 1990
1930R=RND 13:F=RND 4
1940R=R-1:F=F-1
1950Q=F*13+R
1960IF ST(Q)=1THEN 1930
1970ST(Q)=1:KW(A,0)=R:KW(A,1)=F
1980A=A+1:IF A<5THEN 1930
1990RETURN
2000*KSORT
2010Q=0
2020FOR A=1TO 4
2030IF KW(A,0)<KW(A-1,0)THEN
2040R=KW(A-1,0):F=KW(A-1,1)
2050KW(A-1,0)=KW(A,0):KW(A-1,1)=KW(A,1)
2060KW(A,0)=R:KW(A,1)=F
2070Q=1
2080ENDIF
2090NEXT
2100IF Q=1THEN 2010
2110RETURN
2120*KART
2130GCURSOR (X*24,7):GPRINT G$(0);G$(1);G$(1);G$(2);
2140GCURSOR (X*24,15):GPRINT G$(3);
2150GCURSOR (X*24+18,15):GPRINT G$(4);
2160GCURSOR (X*24,23):GPRINT G$(3);
2170GCURSOR (X*24+18,23):GPRINT G$(4);
2180GCURSOR (X*24+8,12):GPRINT G$(KW(X,1)+8);
2190LOCATE X*4+1,2
2200IF KW(X,0)<9THEN PRINT USING "##";KW(X,0)+2;
2210IF KW(X,0)=9THEN PRINT " B";
2220IF KW(X,0)=10THEN PRINT " D";
2230IF KW(X,0)=11THEN PRINT " K";
2240IF KW(X,0)=12THEN PRINT " A";
2250GCURSOR (X*24,31):GPRINT G$(5);G$(6);G$(6);G$(7);
2260RETURN
2270*KMON
2280LOCATE 20,1:PRINT "Geld:";:PRINT USING "####";G;
2290LOCATE 20,2:PRINT "Einsatz:";:PRINT USING "##";E;
2300RETURN

Generated by (c) Casio FX-850P/FX-880P Notepad 2.00

(c) by herbstmoen@web.de - http://blog.manib.bplaced.net