Herramientas de usuario

Herramientas del sitio


es:backgammon

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Ambos lados, revisión anteriorRevisión previa
Próxima revisiónAmbos lados, revisión siguiente
es:backgammon [2017/02/08 14:12] – [Listado] jevicaces:backgammon [2017/02/08 15:21] – Arreglados pequeños errores robcfg
Línea 52: Línea 52:
 230 GOTO 120 230 GOTO 120
 240 ' 240 '
-250 ' Maschinencoda+250 ' Maschinencode
 260 DATA &H01,&H09,&HF5 260 DATA &H01,&H09,&HF5
 270 DATA &HCD,&H5A,&HFC 270 DATA &HCD,&H5A,&HFC
Línea 154: Línea 154:
 1250 PRINT "Der Computer stellt Sie am rechten Rand dar !" 1250 PRINT "Der Computer stellt Sie am rechten Rand dar !"
 1260 PRINT "Sie Züge müßen entsprechend der Augenzahl ausgeführt werden!" 1260 PRINT "Sie Züge müßen entsprechend der Augenzahl ausgeführt werden!"
-1270 PRINT "Dabel kann man nur auf Felder setzen die entweder schon von eigenen Steinen"+1270 PRINT "Dabei kann man nur auf Felder setzen die entweder schon von eigenen Steinen"
 1280 PRINT "besetzt, frei oder von maximal einem gegnerischen Stein besetzt sind"  1280 PRINT "besetzt, frei oder von maximal einem gegnerischen Stein besetzt sind" 
 1290 PRINT "Im letzten Fall wird der gegnerische Stein geschlagen, und muß beim nächsten" 1290 PRINT "Im letzten Fall wird der gegnerische Stein geschlagen, und muß beim nächsten"
Línea 161: Línea 161:
 1320 PRINT "gesetzt. (Für SIE Felder 19-24)" 1320 PRINT "gesetzt. (Für SIE Felder 19-24)"
 1330 PRINT "Sind die Felder schon besetzt, so kannder Zug nicht ausgeführt werden und" 1330 PRINT "Sind die Felder schon besetzt, so kannder Zug nicht ausgeführt werden und"
-1340 PRINT "der Gegner 1st an der Reihe !"+1340 PRINT "der Gegner ist an der Reihe !"
 1350 GOSUB 1580 1350 GOSUB 1580
 1360 PRINT "Werden zwei gleiche Zahlen gewürfelt (Pasch), so kann man die entsprechende" 1360 PRINT "Werden zwei gleiche Zahlen gewürfelt (Pasch), so kann man die entsprechende"
Línea 167: Línea 167:
 1380 PRINT:PRINT "Ist es einem Spieler gelungen alle 15 Steine in die letzten 6 Felder zu" 1380 PRINT:PRINT "Ist es einem Spieler gelungen alle 15 Steine in die letzten 6 Felder zu"
 1390 PRINT "bringen, so kann er mit dem rauswürfeln beginnen!" 1390 PRINT "bringen, so kann er mit dem rauswürfeln beginnen!"
-1400 PRINT "Dabei muB er die richtige Augenzahl werfen."+1400 PRINT "Dabei muß er die richtige Augenzahl werfen."
 1410 PRINT "Der Stein auf diesem Feld wird dann ausdem Spiel genommen." 1410 PRINT "Der Stein auf diesem Feld wird dann ausdem Spiel genommen."
 1420 PRINT "Sieger ist er als erster keine Steine mehr hat !" 1420 PRINT "Sieger ist er als erster keine Steine mehr hat !"
Línea 292: Línea 292:
 950 RETURN 950 RETURN
 960 ' 960 '
-970 ' weiBes Feld ohne Steine zeichnen (v.unten)+970 ' weißes Feld ohne Steine zeichnen (v.unten)
 980 PRINT "   "+CHR$(255)"   " 980 PRINT "   "+CHR$(255)"   "
 990 PRINT"   "+CHR$(254)"   " 990 PRINT"   "+CHR$(254)"   "
Línea 662: Línea 662:
 4650 NEXT q 4650 NEXT q
 4660 RETURN 4660 RETURN
-4670 ' Ejecutar tren+4670 ' Einen Zug ausführen
 4680 zahl(1)=MAX(zahl(1),zahl(2)) 4680 zahl(1)=MAX(zahl(1),zahl(2))
 4690 IF pasch=4 THEN zahl(1)=ma 4690 IF pasch=4 THEN zahl(1)=ma
es/backgammon.txt · Última modificación: 2022/06/29 02:11 por jevicac