Sharp PC-E500 Krokorennen

Krokorennen

Die Umsetzung des Spiels Krokorennen

kroko.txt (6.072 Bytes)

5 LET SGA=900: LET SGB=900:LET SGC=900
6 CLS
10 PRINT "Willkommen zum Krokorennen!"
20 PRINT "Gewonnen hat, wer als erstes"
30 PRINT "ueber 3000 DM erspielt hat."
40 PRINT "Copyright by Holger Herrmann"
50 A$=INPUT $ (1)
60 CLS :PRINT "Anzahl Spieler (1-3)?"
70 SP$=INPUT $ (1)
80 IF SP$<>"1" AND SP$<>"2" AND SP$<>"3" THEN GOTO 60
90 LET SPKA=0:LET SPKB=0:LET SPKC=0:LET SPGA=0:LET SPGB=0:LET SPGC=0
100 IF SGA>0 THEN
110 PRINT "Spieler 1:"
120 INPUT "Auf welches Krokodiel wollen sie setzen (1-4)?" ;SPKA:CLS : IF SPKA<>1 AND SPKA<>2 AND SPKA<>3 AND SPKA<>4 THEN GOTO 120
130 PRINT "Sie haben ";SGA;"DM.":INPUT "Wieviel wollen sie setzen?";SPGA:CLS
140 IF SPGA>SGA OR SPGA<=0 THEN : PRINT "So viel Geld haben sie nicht!":GOTO 130:ENDIF
150 LET SGA=SGA-SPGA
160 ENDIF
170 IF SP$="2" OR SP$="3" THEN
180 IF SGB>0 THEN
190 PRINT "Spieler 2:":INPUT "Auf welches Krokodiel wollen sie setzen (1-4)?";SPKB:CLS :IF SPKB<>1 AND SPKB<>2 AND SPKB<>3 AND SPKB<>4 THEN GOTO 190
200 PRINT "Sie haben ";SGB;" DM.":INPUT "Wieviel wollen sie setzen?";SPGB:CLS
210 IF SPGB>SGB OR SPGB<=0 THEN : PRINT "So viel Geld haben sie nicht!":GOTO 200: ENDIF
220 LET SGB=SGB-SPGB
230 ENDIF
240 ENDIF
250 IF SP$="3" THEN
260 IF SGC>0 THEN
270 PRINT "Spieler 3:":INPUT "Auf welches Krokodiel wollen sie setzen (1-4)?";SPKC:CLS : IF SPKC<>1 AND SPKC<>2 AND SPKC<>3 AND SPKC<>4 THEN GOTO 270
280 PRINT "Sie haben ";SGC;" DM.":INPUT "Wieviel wollen sie setzen?";SPGC:CLS
290 IF SPGC>SGC OR SPGC<=0 THEN : PRINT "So viel Geld haben sie nicht!": GOTO 280:ENDIF
300 LET SGC=SGC-SPGC
310 ENDIF
320 ENDIF
330 GOTO 340
340 PRINT "1"
350 PRINT "2"
360 PRINT "3"
370 PRINT "4"
380 LET YA=7
390 LET XA=15
400 GOTO 1370
410 LET XA=15
420 LET YA=YA+8
430 IF YA>33 THEN GOTO 450
440 GOTO 1370
450 LET YA=0:LET AY=7 :LET BY=15: LET CY=23:LET DY=31
460 LET AX=15:LET BX=15:LET CX=15:LET DX=15
470 IF AX>215 THEN :LET Z=1: GOTO 730:ENDIF
480 IF BX>215 THEN : LET Z=2: GOTO 730:ENDIF
490 IF CX>215 THEN : LET Z=3: GOTO 730: ENDIF
500 IF DX>215 THEN :LET Z=4: GOTO 730: ENDIF
510 RANDOMIZE :LET I=RND (4)
520 IF I=1 THEN GOTO 570
530 IF I=2 THEN GOTO 610
540 IF I=3 THEN GOTO 650
550 IF I=4 THEN GOTO 690
560 IF I<>1 AND I<>2 AND I<>3 AND I<>4 THEN GOTO 470
570 REM LET XA=AX AND YA=AY
580 LET AX=AX+7
590 LET XA=AX:LET YA=AY
600 GOTO 1630
610 REM LET XA=BX AND YA=BY
620 LET BX=BX+7
630 LET XA=BX:LET YA=BY
640 GOTO 1630
650 REM LET XA=CX AND YA=CY
660 LET CX=CX+7
670 LET XA=CX:LET YA=CY
680 GOTO 1630
690 REM LET XA=DX AND YA=DY
700 LET DX=DX+7
710 LET XA=DX:LET YA=DY
720 GOTO 1630
730 CLS
735 PRINT "Der Gewinner ist Startnummer ";Z
740 IF SPKA=THEN SGA=SGA+2*SPGA
750 IF SPKB=THEN SGB=SGB+2*SPGB
760 IF SPKC=THEN SGC=SGC+2*SPGC
770 A$=INPUT $(1)
780 PRINT "Spieler 1 hat jetzt ";SGA;" DM."
790 IF SP$="2" THEN
800 PRINT "Spieler 2 hat jetzt ";SGB;" DM."
810 ENDIF
820 IF SP$="3" THEN
830 PRINT "Spieler 2 hat jetzt ";SGB;" DM."
840 PRINT "Spieler 3 hat jetzt ";SGC;" DM."
850 ENDIF
860 W$=INPUT $(1)
870 IF SP$="1" THEN
880 IF SGA>3000 THEN GOTO 1140
890 IF SGA=0 THEN
900 GOTO 1090
910 ENDIF
920 ENDIF
930 IF SP$="2" THEN
940 IF SGA>3000 THEN 1140
950 IF SGB>3000 THEN 1140
960 IF SGA+SGB=0 THEN
970 GOTO 1090
980 ENDIF
990 ENDIF
1000 IF SP$="3" THEN
1010 IF SGA>3000 THEN GOTO 1140
1020 IF SGB>3000 THEN GOTO 1140
1030 IF SGC>3000 THEN GOTO 1140
1040 IF SGA+SGB+SGC=0 THEN
1050 GOTO 1090
1060 ENDIF
1070 ENDIF
1080 CLS :GOTO 90
1090 PRINT "Alle Spieler sind pleite!"
1100 INPUT "Nocheinmal neu anfangen (J/N)?";BB$
1110 IF BB$="J" THEN GOTO 5
1120 IF BB$="N" THEN END
1130 IF BB$<>"J" AND BB$<>"N" THEN GOTO 1090
1140 IF SGA>3000 THEN
1150 PRINT " Spieler 1 hat ueber 3000 DM erspielt!"
1160 IF SGA>SGB AND SGA>SGC THEN
1170 PRINT "Damit hat Spieler 1 gewonnen!"
1180 ENDIF
1190 ENDIF
1200 IF SGB>3000 THEN
1210 PRINT "Spieler 2 hat ueber 3000 DM erspielt."
1220 IF SGB>SGA AND SGB>SGC THEN
1230 PRINT "Damit hat Spieler 2 gewonnen!"
1240 ENDIF
1250 ENDIF
1260 IF SGC>3000 THEN
1270 PRINT "Spieler 3 hat ueber 3000 DM erspielt!"
1280 IF SGC>SGB AND SGC>SGA THEN
1290 PRINT "Damit hat Spieler 3 gewonnen!"
1300 ENDIF
1310 ENDIF
1320 PRINT "Wollen sie nocheinmal spielen (J/N)?"
1330 DD$=INPUT $ (1)
1340 IF DD$="J" THEN GOTO 5
1350 IF DD$="N" THEN END
1360 IF DD$="J" AND DD$="N" THEN GOTO 1320
1370 REM *********  KROKO1.BAS FAENGT AN
1380 GCURSOR (XA,YA)
1390 GPRINT "0060F0B0B8B83CFEBC3E3C3E3CFEBC181C181412"
1400 GCURSOR (XA,YA)
1410 LET XA=XA+1
1420 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C7EBC181C181818"
1430 GCURSOR (XA,YA)
1440 LET XA=XA+1
1450 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C7E7C181C181412"
1460 GCURSOR (XA,YA)
1470 LET XA=XA+1
1480 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C3E7C581C181818"
1490 GCURSOR (XA,YA)
1500 LET XA=XA+1
1510 GPRINT "0060F0B0B8B83C7EBC3E3C3E3C3EFC981C181412"
1520 GCURSOR (XA,YA)
1530 LET XA=XA+1
1540 GPRINT "0060F0B0B8B83C7E7C3E3C3E3CFEBC181C181818"
1550 GCURSOR (XA,YA)
1560 LET XA=XA+1
1570 GPRINT "0060F0B0B8B83C3E7C7E3C3E3CFEBC181C181412"
1580 GCURSOR (XA,YA)
1590 LET XA=XA+1
1600 GPRINT "0060F0B0B8B83C3EFCBE3C3E3CFEBC181C181818"
1610 REM IF XA>216 THEN END
1620 GOTO 410
1630 REM *********** KROKO2.BAS FAENGT AN
1640 GCURSOR (XA,YA)
1650 GPRINT "0060F0B0B8B83CFEBC3E3C3E3CFEBC181C181412"
1660 GCURSOR (XA,YA)
1670 LET XA=XA+1
1680 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C7EBC181C181818"
1690 GCURSOR (XA,YA)
1700 LET XA=XA+1
1710 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C7E7C181C181412"
1720 GCURSOR (XA,YA)
1730 LET XA=XA+1
1740 GPRINT "0060F0B0B8B83CFEBC3E3C3E3C3E7C581C181818"
1750 GCURSOR (XA,YA)
1760 LET XA=XA+1
1770 GPRINT "0060F0B0B8B83C7EBC3E3C3E3C3EFC981C181412"
1780 GCURSOR (XA,YA)
1790 LET XA=XA+1
1800 GPRINT "0060F0B0B8B83C7E7C3E3C3E3CFEBC181C181818"
1810 GCURSOR (XA,YA)
1820 LET XA=XA+1
1830 GPRINT "0060F0B0B8B83C3E7C7E3C3E3CFEBC181C181412"
1840 GCURSOR (XA,YA)
1850 LET XA=XA+1
1860 GPRINT "0060F0B0B8B83C3EFCBE3C3E3CFEBC181C181818"
1870 REM IF XA>216 THEN END
1880 GOTO 470

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