Portierung von LocoBasic zu Basic V7.0 am Beispiel Frutty Man

Tale-X · Jun 27th 2016

In diesem Threads soll anhand eines Beispielprogramms gezeigt werden, wie ein LocoBasic-Programm nach Basic V7.0 portiert werden kann. Das portierte Programm soll dabei vom Verhalten und Aufbau möglichst dicht am Originalprogramm sein. Allerdings ist es notwendig, an der einen oder anderen Stelle deutlich abzuweichen... Die Ziele dabei sind: die Möglichkeiten von Basic V7.0 aufzuzeigen, ein Verständnis für LocoBasic zu bekommen und Mut zu machen, andere interessante Basicprogramme zu portieren. Und nun zum Programm...

Vor (fast) genau 30 Jahren, genauer September 1986, veröffentlichte die Compute das Geschicklichkeitsspiel "Frutty Man" für den Schneider CPC. Geschrieben wurde es von "unserem" oobdoo, der damals noch einen ganz normalen bürgerlichen Namen trug. Die meisten dürften dieses Ereignis verpasst haben, da wir ja alle mehr oder weniger damit beschäftigt waren zu zeigen, dass der Commodore besser ist als der Atari (oder war's umgekehrt?)... Zum Glück hat oobdoo die Screenshots und das Listing auf seine Homepage gestellt, so dass wir jetzt ans Portieren gehen können. Compute bezeichnet Frutty Man als "Gerüst- und Sammelspiel" und hebt den Special Effect beim Absturz der Spielfigur hervor (das ganze Gerüst wird erschüttert). Eine Info, die wir noch brauchen werden...

Soviel erst mal zur Einstimmung, im nächsten Beitrag geht es dann um den Aufbau des Programms, verwendete Befehle und den gewählten Ansatz. Einige technische Überlegungen finden sich bereits in folgendem Thread: LocoBasic vs. Basic 3.5/7.0. Wobei ich nicht verheimlichen will, dass sich MacBacon und Syshack schon intensiv damit auseinandergesetzt haben...

Tale-X · Jun 28th 2016

So, erst mal den gebugfixten Code von Syshack holen ( LocoBasic vs. Basic 3.5/7.0) und weiter geht's im Programm. Zur weiteren Bearbeitung des Quellcodes habe ich Notepad++ verwendet - das hat paar nette Details, die das Leben einfacher machen. Als erstes habe ich die zerhächselten Zeilen wieder zusammengesetzt, damit wieder alles schick aussieht. Das Programm ist 274 Zeilen lang, die längste Zeile ist Zeile 1330 mit 236 Zeichen...

Der grobe Hauptprogrammablauf ist wie folgt (in Klammern die Farbe mit dem der Codeabschnitt markiert ist):

Zeile 100- 400 (grün): Initialisieren
Symbole (=Grafikelemente) definieren, Farbpalette festlegen, Grafikmodus sowie Rand- und Hintergrundfarbe setzen. Außerdem Spielfeldarray und Codefolge für Transparent an/aus festlegen und dann ab nach Zeile 1520
Zeile 1520-1600 (cyan): Titelbild zeigen
... und auf Feuerknopf warten. Ist der gedrückt - ab nach 410
Zeile 410- 510 (gelb): Hauptroutine
... (440) nacheinander die Level zeichnen und bei jedem Level
... 450-510 Joystick abfragen, Monster- und Spielerbewegung initieren
Je nach Todesart Zeile 1310-1400 (Absturz) oder 1610-1640 (Monster berührt) (schwarz)
... wenn noch Leben vorhanden sind - weiter nach 440 (Nr. 3 in dieser Liste)
... wenn alle Leben aufgebraucht - weiter nach 1410
Zeile 1410-1510 (schwarz): Game Over
... und dann zum Titelbild

Die Teil-/Unterprogrammbereiche:

Monsterbewegung und -berührung (rot):
- 520-570 - Vergleich Spielerposition zu Monsterposition und entsprechende Bewegung
- 880-1250 - die einzelnen Bewegungen
Spielerbewegung und Absturzprüfungen (blau):
- 580-870 - die einzelnen Bewegungen
Früchte einsammeln (weiß)
- 1260 - 1300 - ggf. Erfolgsmeldung fürs Erreichen des Levelzieles
Levelroutinen (grün durchgestrichen)
- 1650 - 1900 - Level 1 zeichnen
- 1910 - 2220 - Level 2 zeichnen
- 2230 - 2500 - Level 3 zeichnen
- 2510 - 2690 - Level 4 zeichnen

Jenseits der 2700 gibt es noch kleine Unterprogramme für Statustext, Spielfigur malen, Spielfeldarray zurücksetzen usw.

Soviel zum Codegerüst, als nächstes kommen die verwendeten Variablen...

Tale-X · Jun 28th 2016

Variablen

Variablenname	Bedeutung
a	Laufvariable, mehrfach verwendet
an1$	Transparenter Hintergrund beim Zeichnen aktivieren
an2$	Transparenter Hintergrund beim Zeichnen deaktivieren
fru	Anzahl gesammelter Früchte
frs	Anzahl benötigter Früchte
gx, gy, gs	Position und Schrittgeschwindigkeit des Monsters
ggx, ggy	Alte Position des Monsters
hsc, sc	Highscore, Score
j	Joystick (Position, Feuerknopf)
lev	Aktuelles Level
ma	Anzahl Leben
qwe	Hilfsvariable für Verzögerungsschleifen, Soundeffekte, Startbildschirm...
ra(20,25)	Spielfeld, Inhalt hat folgende Bedeutung: 10 - Frucht 5 - Leiter 4 - Plattform/Boden 0 - leer
x, y	Position des Spielers
xx, yy	Alte Position des Spielers
zx, zy	Position der jeweiligen Frucht beim Spielfeldaufbau

Symbole
Wenn mehrere Charaktere für ein Objekt angegeben sind, dann werden diese Charaktere in der angegebenen Reihenfolge mit transparentem Hintergrund übereinandergezeichnet.

Objekt	Charakter (Ascii-Code)
Frucht	102 + 101
Plattform	100
Leiter	103
Monster	98 + 97 + 99
Spielfigur	95 + 96 + 94 + 91 + 93 + 92

Tale-X · Jun 28th 2016

Kleiner Infohappen zwischendurch... eine imho unverzichtbare Hilfe beim Lesen/Verstehen von Loco Basic ist:
http://www.cpcwiki.eu/index.php/Locomotive_BASIC

Das Gegenstück dazu ist:
http://www.c64-wiki.de/index.php/BASIC_7.0

oobdoo · Jun 28th 2016

Hülllffää, mein Frutty Man wird seziert.

Bei meiner Z80 Umsetzung wollte ich zuerst die Level genau 'malen' wie im BASIC. Das wurde aber zu umständlich, so das ich das über ein Array gelöst hatte.

***MacB darf nicht mitlesen***

Ich habe das mit Excel gemacht: Wert in Excel suchen

***MacB darf wieder mitlesen***

Tale-X · Jun 28th 2016

Und nicht nur das... im Moment bin ich am Umstricken, d.h. alle Variablennamen, die länger als zwei Zeichen sind werden auf zwei Zeichen eingekürzt (daher auch die Tabelle oben, da weiß ich, welche Variablennamen frei sind).

Allerdings kam bereits von MacB der berechtigte Einwand, dass es klüger ist, das Programm vor der Konversion zu entwirren. Ich dagegen finde es besser, wenn zumindest hier im Beispiel die erste portierte Fassung noch erkennbare Parallelen zum Ursprungsprogramm hat.

Ich werde dafür an anderer Stelle erst mal einige Vereinfachungen vornehmen: es läuft vorerst im Textmodus, die Spielfiguren werden durch unmodifizierte Ascii-Zeichen repräsentiert und Farbe ist monochrom. Das verbessert die Lesbarkeit des Quelltextes und erleichtert das Umstrukturieren. Nach der Umstrukturierung kann es wieder auf hübsch getrimmt werden.

oobdoo · Jun 28th 2016

Quote from Tale-X

Ich werde dafür an anderer Stelle erst mal einige Vereinfachungen vornehmen: es läuft vorerst im Textmodus, die Spielfiguren werden durch unmodifizierte Ascii-Zeichen repräsentiert und Farbe ist monochrom.

Ok, vorerst.

Aber daran denken. Es ist nur da Frutty Man drin, wo sich auch die Antennen vom Frutty bewegen und die Augen vom Monster blinken.

Tale-X · Jun 28th 2016

Deshalb sind also die vielen Blinke-Inks da drin... hab mich schon gewundert

Und bis die Antennen sich bewegen und die Augen blinken nennen wir es dann Veggie Man. Die sehen auch oft recht farblos aus

Nachtrag: Mann gibt es viele Fallstricke. Locate gibt's zwar in beiden Basicdialekten, gilt aber bei Commodore nur für den Grafikcursor. Window hat zwar die gleiche Bedeutung, aber die Reihenfolge der Parameter ist anders und bei den Cursorpositionen beginnt CBM beim Zählen mit 0 und CPC mit 1.

Mac Bacon · Jun 28th 2016

Quote from Tale-X

Locate gibt's zwar in beiden Basicdialekten, gilt aber bei Commodore nur für den Grafikcursor.

PEN p:LOCATE x,y:PRINT "text" kannst Du durch COLOR 5, p:CHAR 1, x, y, "text" ersetzen.

Tale-X · Jun 28th 2016

Jein... da gibt es paar Haken: einmal eine andere Basis beim Zählen, so dass es richtig heißen müsste: CHAR 1, x-1, y-1, "text"

Und dann ist p nicht die Farbe, sondern der Paletteneintrag. Die Farbe für p wurde vorher mit INK gesetzt. Oobdoo nutzt das z.B., um das Level "unsichtbar" zu zeichnen (alle INKs schwarz) und erst danach sichtbar zu machen (alle INKs bekommen wieder ihre Farbe) (so zumindest meine Interpretation - Bugfixing im CPC-Emulator ist nicht meine Stärke)

Mac Bacon · Jun 28th 2016

Quote from Tale-X

eine andere Basis bei Zählen, so dass es richtig heißen müsste: CHAR 1, x-1, y-1, "text"

Das stellt man natürlich komplett auf nullbasierte Offsets um. Zur Laufzeit umrechnen ist leicht suboptimal.

Quote from Tale-X

Und dann ist p nicht die Farbe, sondern der Paletteneintrag.

Klar, aber Palettenregister in der Form hat der VIC nun mal nicht. Braucht man hier auch nicht - den Spieler und das Monster kann man per (ggfs. sogar Overlay-)Sprites erzeugen, für den Levelhintergrund reicht das normale Color-RAM völlig aus. Man könnte sogar ECM benutzen.
Unsichtbar-und-sichtbar-machen ginge am einfachsten mit FAST und SLOW.

Tale-X · Jun 28th 2016

Ja klar, mir ging's um die korrekte Umsetzung des LOCATE-Befehls. Und wenn da LOCATE x,y steht, dann ist CHAR,x,y,... um eine Zeile und eine Spalte versetzt. Und wenn man sich die Listings so anschaut, muss man mächtig viel ändern. So viele hardcodierte Zahlen...

Das Palettenregister hat beim CPC noch ne weitere Funktion - werden per INK zwei Farben zugewiesen, werden mit den beiden Farben ein Blinkeffekt erzeugt.

FAST und SLOW hatte ich schon dafür schon ins Auge gefasst... nebenbei ist damit auch der Effekt von DI und SI mit abgefrühstückt

RKSoft · Jun 29th 2016

Darf man seinen Senf hier dazugeben? Habe mir den Spass mal gemacht und habe Frutty Man für den Plus/4 in BASIC 3.5 (passt ja auch zu 7.0) portiert. Ist aber noch nicht komplett fertig, da ich derzeit eine Fehlermeldung erhalte.

Out of Memory Error in 560

Wahrscheinlich liegts an den vielen GOSUB Sprüngen. Zeichensatz ist noch nicht erstellt und die CHR$ müssen noch verändert werden. SOUND Befehle hab ich mal auskommentiert (REM).

Code

100 rem '''''''''''''''''''''
110 rem '''' frutty man '''''
120 rem '''''''''''''''''''''
130 rem '
190 rem '...neue zeichen...
200 rem symbol after 90
210 rem symbol 91,0,0,126,195,129,129,195,126
220 rem symbol 92,0,0,0,0,0,36,24,0
230 rem symbol 93,0,0,0,36,0,0,0,0
240 rem symbol 94,0,36,0,0,0,0,0,0
250 rem symbol 95,72,0,0,0,0,0,0,0
260 rem symbol 96,18,0,0,0,0,0,0,0
270 rem symbol 97,56,124,214,254,198,186,254,170
280 rem symbol 98,0,0,40,0,0,0,0,0
290 rem symbol 99,0,0,0,0,56,68,0,0
300 rem symbol 100,255,66,66,165,255,0,0,0
310 rem symbol 101,0,0,60,126,118,110,126,60
320 rem symbol 102,6,8,0,0,0,0,0,0
330 rem symbol 103,126,66,126,66,126,66,126,66
340 rem '...farben definieren...
350 color 1,1
360 color 0,1:color 4,1
370 rem '...variablen definieren...
380 clr:dim ra(20,24)
390 rem an1$=chr$(22)+chr$(1):an2$=chr$(22)+chr$(0)
400 goto 1520
410 lev=0:hsc=sc:ma=4:gs=0.5
420 rem '...hauptprogramm...
430 lev=lev+1: if lev=5 then lev=1
440 scnclr:on lev gosub 1650,1910,2230,2510
450 do:j=joy(1):gosub 520
460 if j=0 then goto 450
470 if j=7 then gosub 580
480 if j=1 and ra(x,y)=5 then gosub 780
490 if j=3 then gosub 680
500 if j=5 and ra(x,y+1)=5 then gosub 830
510 loop
520 rem '...bewegung monster...
530 if gy>y then gosub 1070
540 if gy<t then gosub 880
550 if gx<x then gosub 960
560 if gx>x then gosub 1150
570 return
580 rem '...figur links...
590 xx=x:yy=y:x=x-1
600 if x<=1 then x=1
610 if ra(x,y)=4 then x=x+1:return
620 if ra(xx,yy)=5 then char1,xx,yy,chr$(166):goto 650
630 if ra(x,y)=10 then ra(x,y)=0:gosub 1260
640 char1,xx,yy," "
650 gosub 2760
660 if ra(x,y+1)=0 then exit:goto 1310
670 return
680 rem '...figur rechts...
690 xx=x:yy=y:x=x+1
700 if x>=20 then x=20
710 if ra(x,y)=4 then x=x-1:return
720 if ra(xx,yy)=5 then char1,xx,yy,chr$(166):goto 750
730 if ra(x,y)=10 then ra(x,y)=0:gosub 1260
740 char1,xx,yy," "
750 gosub 2760
760 if ra(x,y+1)=0 then exit:goto 1310
770 return
780 rem '...figur hoch...
790 xx=x:yy=y:y=y-1
800 if ra(x,y)=0 then y=y
810 char1,xx,yy,chr$(166)
820 gosub 2760:return
830 rem '...figur runter...
840 xx=x:yy=y:y=y+1
850 if ra(xx,yy)=0 then char1,xx,yy," ":goto 870
860 char1,xx,yy,chr$(166)
870 gosub 2760:return
880 rem '...monster runter...
890 if ra(gx,gy+1)<>5 then return
900 ggx=gx:ggy=gy:gy=gy+gs:rem sound 2,284,10,15,1,1
910 if ra(ggx,ggy)=0 then char1,ggx,ggy," ":goto 930
920 char1,ggx,ggy,chr$(166)
930 gosub 2870
940 if gx=x and gy=y then exit:goto 1610
950 return
960 rem '...monster rechts...
970 ggx=gx:ggy=gy:gx=gx+gs:rem sound 2,284,10,15,1,1
980 if gx>=20 then gx=20
990 if ra(gx,gy+1)=0 then gx=gx-gs:return
1000 if ra(gx,gy)=4 then gx=gx-gs:return
1010 if ra(ggx,ggy)=5 then char1,ggx,ggy,chr$(166):goto 1040
1020 if ra(gx,gy)=10 then gx=gx+1:char1,ggx,ggy," ":gosub 2870
1030 char1,ggx,ggy," "
1040 gosub 2870
1050 if gx=x and gy=y then exit:goto 1610
1060 return
1070 rem '...monster hoch...
1080 if ra(gx,gy)<>5 then return
1090 ggx=gx:ggy=gy:gy=gy-gs:rem sound 2,284,10,15,1,1
1100 if ra(gx,gy)=0 then gy=gy
1110 char1,ggx,ggy,chr$(166)
1120 gosub 2870
1130 if gx=x and gy=y then exit:goto 1610
1140 return
1150 rem '...monster links...
1160 ggx=gx:ggy=gy:gx=gx-gs:rem sound 2,284,10,15,1,1
1170 if gx<=1 then gx=1
1180 if ra(gx,gy+1)=0 then gx=gx+gs:return
1190 if ra(gx,gy)=4 then gx=gx+gs:return
1200 if ra(ggx,ggy)=5 then char1,ggx,ggy,chr$(166):goto 1230
1210 if ra(gx,gy)=10 then gx=gx-1:char1,ggx,ggy," ":gosub 2870
1220 char1,ggx,ggy," "
1230 gosub 2870
1240 if gx=x and gy=y then exit:goto 1610
1250 return
1260 rem '...frucht eingesammelt...
1270 rem env 1,100,2,2,1,1,1:ent 1,100,-2,2:sound 1,284,200,1,1,1
1280 sc=sc+1:if sc>hsc then hsc=sc
1290 fru=fru+1
1292 if fru<>frs then gosub 2700:return
1294 gosub 640:gosub 2700:color1,11:char1,2,3,"level":printlev" geschafft"
1296 for qwe=1 to 6000:next:sc=sc+5:hsc=sc:goto 420
1300 rem gosub 2700:return
1310 rem '...figur abgestuerzt...
1320 xx=x:yy=y:y=y+1
1330 if ra(x,y)<=0 then char1,xx,yy," ":goto 1350
1340 rem for qwe=7 to 0 step -1:sound 4,0,1,qwe,4,0,31:next
1342 color1,2:char1,xx,yy+1,chr$(238)
1344 for qwe=1 to 20:char1,xx,yy," ":char1,xx,yy+1," ":next
1350 gosub 2760
1360 if ra(x,y+1)=0 then goto 1320
1370 if y<20 then goto 1320
1380 rem out &bc00,8:out &bd00,1:
1382 for qwe=7 to 0 step -3:
1383 rem sound 1,0,41-qwe,qwe,4,0,31:
1384 color1,2:char1,x,y,chr$(238):next
1385 for qwe=1 to 100:next:char1,x,y," "
1390 ma=ma-1:if ma=0 then for qwe=1 to 5000:next:goto 1410
1400 for qwe=1 to 5000:next: goto 440
1410 rem '...game over...
1420 color0,1:color4,1:color1,2:gosub 2830
1430 char1,5,3,chr$(135):printstring$(10,131)chr$(139)
1440 char1,5,4,chr$(133):color1,2:print"frutty man";:color1,6:print chr$(138)
1450 char1,5,5,chr$(141):printstring$(10,140)chr$(142)
1460 scnclr:color1,8:char1,5,3,"game over"
1470 color1,7:char1,2,14,"level:":printlev
1480 char1,2,16,"score:":printsc:char1,2,18,"hsc :":printhsc:color1,11
1490 char1,2,21,"druecke feuertaste":gosub 2850
1500 if joy(1)=128 then goto 1520
1510 goto 1500
1520 rem '...titelbild...
1530 color0,1:scnclr:gosub 2830
1540 for qwe=3 to 18:color1,12:char1,qwe,5,chr$(102)
1542 color1,11:char1,qwe,5,chr$(101):color1,12:char1,qwe,9,chr$(102)
1544 color1,11:char1,qwe,9,chr$(101):next
1550 for qwe=6 to 8:color1,12:char1,3,qwe,chr$(102)
1552 color1,11:char1,3,qwe,chr$(101):color1,12:char1,18,qwe,chr$(102)
1554 color1,11:char1,18,qwe,chr$(101):next
1560 color1,3:char1,5,7,"frutty man":color1,4:char1,10,12,"by"
1570 color1,1:char1,3,16,"andreas leicht"
1572 color1,13:print:print:print" copyright 1986"
1580 color1,8:char1,2,22,"druecke feuerknopf":gosub 2850
1590 if joy(1)=128 then goto 410
1600 goto 1590
1610 rem '...monster beruehrt...
1620 ma=ma-1:gosub 2700:rem for qwe=1 to 400 step 50:sound 2,qwe,10,5:next
1630 if ma=0 then for qwe=1 to 4000:next:goto 1410
1640 for qwe=1 to 1000:next:goto 440
1650 rem '...level 1...
1660 gosub 2790:gosub 2830:x=1:y=20:gx=20:gy=20:frs=12:gosub 2700:gosub 2810
1670 for a=4 to 9:ra(3,a)=5:color1,13:char1,3,a,chr$(166):next
1680 for a=2 to 5:ra(11,a)=5:color1,13:char1,11,a,chr$(166):next
1690 for a=2 to 20:ra(19,a)=5:color1,13:char1,19,a,chr$(166):next
1700 for a=6 to 11:ra(13,a)=5:color1,13:char1,13,a,chr$(166):next
1710 for a=10 to 15:ra(6,a)=5:color1,13:char1,6,a,chr$(166):next
1720 for a=10 to 18:ra(17,a)=5:color1,13:char1,17,a,chr$(166):next
1730 for a=16 to 20:ra(1,a)=5:color1,13:char1,1,a,chr$(166):next
1740 for a=16 to 18:ra(8,a)=5:color1,13:char1,8,a,chr$(166):next
1750 for a=19 to 20:ra(12,a)=5:color1,13:char1,12,a,chr$(166):next
1760 for a=2 to 10:ra(a,2)=4:color1,10:char1,a,2,chr$(100):next
1770 for a=12 to 18:ra(a,2)=4:char1,a,2,chr$(100):next
1780 for a=4 to 9:ra(a,4)=4:char1,a,4,chr$(100):next
1790 for a=8 to 12:ra(a,6)=4:char1,a,6,chr$(100):next
1800 for a=14 to 17:ra(a,6)=4:char1,a,6,chr$(100):next
1810 for a=7 to 11:ra(a,10)=4:char1,a,10,chr$(100):next
1812 ra(15,10)=4:char1,15,10,chr$(100):ra(16,10)=4:char1,16,10,chr$(100)
1820 for a=7 to 16:ra(a,12)=4:char1,a,12,chr$(100):next
1830 for a=13 to 16:ra(a,14)=4:char1,a,14,chr$(100)
1832 ra(a,16)=4:char1,a,16,chr$(100):next
1840 for a=2 to 7:ra(a,16)=4:char1,a,16,chr$(100):next
1850 for a=9 to 11:ra(a,16)=4:char1,a,16,chr$(100):next
1852 for a=13 to 16:ra(a,16)=4:char1,a,16,chr$(100):next
1860 for a=8 to 10:ra(a,19)=4:char1,a,19,chr$(100):next
1862 for a=13 to 17:ra(a,19)=4:char1,a,19,chr$(100):next
1870 for a=2 to 5:ra(a,10)=4:char1,a,10,chr$(100):next
1880 data 2,1,9,3,8,5,17,5,11,9,15,9,11,11,13,13,11,15,13,15,10,18
1890 restore 1880:for qwe=1 to 11:read zx,zy:ra(zx,zy)=10:color1,12
1892 char1,zx,zy,chr$(102):color1,11:char1,zx,zy,chr$(101):next
1900 gosub 2760:gosub 2870:gosub 2850:return
1910 rem '...level 2...
1920 gosub 2790:gosub 2830:x=1:y=20:gx=20:gy=1:frs=6:gosub 2700:gosub 2810
1930 for a=2 to 12:ra(5,a)=5:color1,13:char1,5,a,chr$(166):next
1940 for a=2 to 4:ra(9,a)=5:char1,9,a,chr$(166):ra(13,a)=5
1942 char1,13,a,chr$(166):ra(16,a)=5:char1,16,a,chr$(166):next
1950 for a=5 to 20:ra(20,a)=5:char1,20,a,chr$(166):next
1960 for a=7 to 10:ra(17,a)=5:char1,17,a,chr$(166):next
1970 ra(10,7)=5:char1,10,7,chr$(166):ra(10,8)=5:char1,10,8,chr$(166)
1980 for a=9 to 15:ra(12,a)=5:char1,12,a,chr$(166):next
1990 ra(6,13)=5:char1,6,13,chr$(166):ra(6,14)=5:char1,6,14,chr$(166)
2000 for a=13 to 20:ra(2,a)=5::char1,2,a,chr$(166):next
2010 for a=15 to 20:ra(4,a)=5:char1,4,a,chr$(166):next
2020 for a=15 to 20:ra(16,a)=5:char1,16,a,chr$(166):next
2030 ra(6,17)=5:char1,6,17,chr$(166):ra(6,18)=5:char1,6,18,chr$(166)
2040 ra(8,17)=5:char1,8,17,chr$(166):ra(8,18)=5:char1,8,18,chr$(166)
2050 ra(11,17)=5:char1,11,17,chr$(166):ra(11,18)=5:char1,11,18,chr$(166)
2060 ra(14,17)=5:char1,14,17,chr$(166):ra(14,18)=5:char1,14,18,chr$(166)
2070 for a=5 to 15:ra(a,19)=4:color1,10:char1,a,19,chr$(100):next
2080 ra(7,17)=4:char1,7,17,chr$(100):ra(12,17)=4:char1,12,17,chr$(100)
2082 ra(13,17)=4:char1,13,17,chr$(100)
2090 for a=5 to 15:ra(a,15)=4:char1,a,15,chr$(100):next
2100 for a=6 to 11:ra(a,9)=4:char1,a,9,chr$(100):next
2110 for a=6 to 19:ra(a,5)=4:char1,a,5,chr$(100):next
2120 for a=11 to 16:ra(a,7)=4:char1,a,7,chr$(100):next
2130 for a=13 to 18:ra(a,11)=4:char1,a,11,chr$(100):next
2140 for a=3 to 5:ra(a,13)=4:char1,a,13,chr$(100):next
2150 for a=17 to 19:ra(a,15)=4:char1,a,15,chr$(100):next
2160 for a=2 to 4:ra(a,2)=4:char1,a,2,chr$(100):next
2170 for a=6 to 8:ra(a,2)=4:char1,a,2,chr$(100):next
2180 for a=10 to 12:ra(a,2)=4:char1,a,2,chr$(100):next
2190 for a=17 to 20:ra(a,2)=4:char1,a,2,chr$(100):next
2200 data 2,1,7,8,18,14,7,16,13,16
2210 restore 2200:for qwe=1 to 5:read zx,zy:ra(zx,zy)=10:color1,12
2212 char1,zx,zy,chr$(102):color1,11:char1,zx,zy,chr$(101):next
2220 gosub 2760:gosub 2870:gosub 2850:return
2230 rem '...level 3...
2240 gosub 2790:gosub 2830:x=20:y=1:gx=20:gy=20:frs=11:gosub 2700:gosub 2810
2250 for a=2 to 20:ra(a,19)=4:color1,10:char1,a,19,chr$(100):next
2260 for a=1 to 4:ra(a,16)=4:char1,a,16,chr$(100):next
2270 for a=5 to 9:ra(a,17)=4:char1,a,17,chr$(100):next
2280 for a=10 to 12:ra(a,16)=4:char1,a,16,chr$(100):next
2290 for a=13 to 17:ra(a,17)=4:char1,a,17,chr$(100):next
2300 for a=12 to 19:ra(a,14)=4:char1,a,14,chr$(100):ra(a,11)=4
2302 char1,a,11,chr$(100):ra(a,9)=4:char1,a,9,chr$(100):next
2310 for a=5 to 10:ra(a,12)=4:char1,a,12,chr$(100):ra(a,9)=4
2312 char1,a,9,chr$(100):next
2320 for a=6 to 14:ra(a,5)=4:char1,a,5,chr$(100):next
2330 for a=2 to 5:ra(a,6)=4:char1,a,6,chr$(100):next
2340 for a=17 to 19:ra(a,6)=4:char1,a,6,chr$(100):next
2350 for a=8 to 10:ra(a,2)=4:char1,a,2,chr$(100):next
2360 ra(15,4)=4:char1,15,4,chr$(100):ra(16,4)=4:char1,16,4,chr$(100)
2370 ra(17,3)=4:char1,17,3,chr$(100):ra(18,3)=4:char1,18,3,chr$(100)
2380 ra(19,2)=2:char1,19,2,chr$(100):ra(20,2)=4:char1,20,2,chr$(100)
2390 for a=6 to 18:ra(20,a)=5:color1,13:char1,20,a,chr$(166):next
2400 ra(18,17)=5:char1,18,17:print chr$(166):ra(18,18)=5:char1,18,18,chr$(166)
2410 ra(18,2)=5:char1,18,2,chr$(166):ra(16,3)=5:char1,16,3,chr$(166)
2420 ra(14,4)=5:char1,14,4,chr$(166):ra(5,5)=5:char1,5,5,chr$(166)
2430 for a=2 to 4:ra(11,a)=5:char1,11,a,chr$(166):next
2440 for a=6 to 15:ra(1,a)=5:char1,1,a,chr$(166):next
2450 for a=9 to 15:ra(11,a)=5:char1,11,a,chr$(166):next
2460 ra(5,16)=5:char1,5,16,chr$(166):ra(9,16)=5:char1,9,16,chr$(166)
2462 ra(13,16)=5:char1,13,16,chr$(166)
2470 ra(1,19)=5:char1,1,19,chr$(166):ra(1,20)=5:char1,1,20,chr$(166)
2480 data 8,1,17,5,5,8,16,8,16,10,5,11,16,13,7,16,17,16,10,20
2490 restore 2480:for qwe=1 to 10:read zx,zy:ra(zx,zy)=10:color1,12
2492 char1,zx,zy,chr$(102):color1,11:char1,zx,zy,chr$(101):next
2500 gosub 2760:gosub 2870:gosub 2850:return
2510 rem '...level 4...
2520 gosub 2790:gosub 2830:x=1:y=1:gx=1:gy=20:frs=11:gosub 2700:gosub 2810
2530 for a=2 to 20:ra(3,a)=5:color1,13:char1,3,a,chr$(166):next
2540 for a=2 to 20:ra(9,a)=5:char1,9,a,chr$(166):next
2550 for a=2 to 20:ra(16,a)=5:char1,16,a,chr$(166):next
2560 color1,10:ra(1,2)=4:char1,1,2,chr$(100):ra(2,2)=4:char1,2,2,chr$(100)
2570 for a=4 to 8
2580 ra(a,2)=4:char1,a,2,chr$(100):ra(a,5)=4:char1,a,5,chr$(100)
2590 ra(a,8)=4:char1,a,8,chr$(100):ra(a,11)=4:char1,a,11,chr$(100)
2600 ra(a,15)=4:char1,a,15,chr$(100):ra(a,18)=4:char1,a,18,chr$(100):next
2610 for a=10 to 15
2620 ra(a,3)=4:char1,a,3,chr$(100):ra(a,6)=4:char1,a,6,chr$(100)
2630 ra(a,9)=4:char1,a,9,chr$(100):ra(a,13)=4:char1,a,13,chr$(100)
2640 ra(a,17)=4:char1,a,17,chr$(100):next
2650 for a=17 to 20:ra(a,2)=4:char1,a,2,chr$(100):next
2660 data 6,1,19,1,13,2,6,4,6,7,6,10,13,12,6,14,13,16,6,17
2670 restore 2660:for qwe=1 to 10:read zx,zy:ra(zx,zy)=10:color1,12
2672 char1,zx,zy,chr$(102):color1,11:char1,zx,zy,chr$(101):next
2680 gosub 2760:gosub 2870:gosub 2850 :return
2690 return: rem for aus=0 to 13:ink aus,0:next:return
2700 rem '...anzeigen...
2710 color1,8:char1,1,22,"level:":printlev;
2712 color1,4:print" ";chr$(164);" 1986"
2720 color1,8:char1,1,23,"score:":printsc
2730 for a=2 to 20:ra(3,a)=5:color1,13:char1,3,a,chr$(166):next
2740 char1,1,24,"man :":printma
2750 return
2760 rem '...figur setzen...
2770 rem color1,5:char1,x,y,chr$(95):color1,6:char1,x,y,chr$(96)
2772 rem color1,4:char1,x,y,chr$(94):
2775 rem color1,1:char1,x,y,chr$(91):color1,3:char1,x,y,chr$(93)
2777 color1,2:char1,x,y,chr$(119)
2780 return
2790 rem '...dimensionieren...
2800 fru=1
2802 for a=0 to 20:for b=0 to 24:ra(a,b)=0:nextb,a
2808 return
2810 rem '...grundlinie...
2820 color1,10:for a=1 to 20:char1,a,21,chr$(100):ra(a,21)=4:next:return
2830 rem '...farbe aus...
2835 return
2840 return: rem for a=0 to 13:ink a,0:next:return
2850 rem '...farbe an...
2860 return
2870 rem '...monster setzen...
2880 color1,9:char1,gx,gy,chr$(98):color1,7:char1,gx,gy,chr$(97)
2882 color1,8:char1,gx,gy,chr$(99)
2890 return

Display More

oobdoo · Jun 29th 2016

Quote from RKSoft

Darf man seinen Senf hier dazugeben? Habe mir den Spass mal gemacht und habe Frutty Man für den Plus/4 in BASIC 3.5 (passt ja auch zu 7.0) portiert. Ist aber noch nicht komplett fertig, da ich derzeit eine Fehlermeldung erhalte.

Out of Memory Error in 560

Wahrscheinlich liegts an den vielen GOSUB Sprüngen. Zeichensatz ist noch nicht erstellt und die CHR$ müssen noch verändert werden. SOUND Befehle hab ich mal auskommentiert (REM).

Dürfte daran liegen, das ich im Original Frutty Man mit GOSUB in Unterprogramme reinspringe und mit GOTO wieder raus, was auf Dauer nicht funktionieren kann. Hatte MacB festgestellt. Leider kann ich diesen Teil vom Thread nicht wiederfinden. Ist der verloren gegangen beim Thread aufsplitten?

RKSoft · Jun 29th 2016

also müßte ich den code komplett überarbeiten, damit er an Geschwindigkeit zulegt (daher do-loop Schleife) und die GOSUB Routine meist entfernen, falls sie nicht benötigt werden. Okay, ich bin grad am Zeichensatz dran. Wenn gewünscht, kann ich das Resultat hier ja weiterhin posten.

Mac Bacon · Jun 29th 2016

Quote from oobdoo

Dürfte daran liegen, das ich im Original Frutty Man mit GOSUB in Unterprogramme reinspringe und mit GOTO wieder raus, was auf Dauer nicht funktionieren kann. Hatte MacB festgestellt. Leider kann ich diesen Teil vom Thread nicht wiederfinden.

Hier

Mac Bacon · Jun 29th 2016

Quote from RKSoft

Code

450 do:j=joy(1):gosub 520

460 if j=0 then goto 450

Mit dem GOTO 450 wird zum DO gesprungen und somit werden ständig neue Schleifen geöffnet => das ist quasi eine weitere Instanz des mit-GOTO-in-die-falsche-Schachteltiefe-springen-Fehlers.
In diesem speziellen Fall dürfte es reichen, das DO zu Zeile 449 zu verschieben, aber grundsätzlich geht es halt nicht ohne Aufräumen/Entspaghettifizierung ab.

EDIT: Bevor das jetzt falsch rüberkommt: Grundsätzlich ist DO/LOOP für solche Aufräumaktionen natürlich genau richtig. Punktweise Optimierungen beseitigen aber nicht die im Original enthaltenen Strukturfehler - daher habe ich bei "meiner Version" erst einmal versucht, das Ganze übersichtlicher zu machen.

Tale-X · Jun 29th 2016

Quote from RKSoft

Darf man seinen Senf hier dazugeben? Habe mir den Spass mal gemacht und habe Frutty Man für den Plus/4 in BASIC 3.5 (passt ja auch zu 7.0) portiert. Ist aber noch nicht komplett fertig, da ich derzeit eine Fehlermeldung erhalte.
...

Auch die meisten char-Befehle haben noch die falschen Koordinaten (Versatz um 1) - siehe oben. Das bitte noch korrigieren Wäre auch prima, wenn Du schreibst, welche Sachen Du alles geändert hast (Abfrage Feuerknopf z. B.), damit andere es später beim Konvertieren einfacher haben. Soll ja ein Lernthread werden

@Mac: was hältst Du davon, wenn nach der Simplifizierung die Neustrukturierung begonnen wird?

Nachtrag: ich sehe gerade, die Versatzkorrektur betrifft nicht nur den char-Befehl, sondern auch das Array mit der Levelinfo - potenzieller Stolperstein.

RKSoft · Jun 29th 2016

Puh, da hab ich einiges geändert und angepasst. Ich habe hier erstmal eine spielbare Version, welche aber noch Fehler aufweist. Zeichensatz hab ich an die Gegenheiten des Commodore-Computers angepasst (8x8 Pixel) und leicht verändert. Farben müssen noch verändert werden.

Beim Einsameln der Frucht crasht das Spiel. Ich seh mir das morgen aber mal an. Der Computerfuzzi ist komischerweise noch bei 0,0 Koordinate, wieso weiss ich leider nocht nicht.
Wie gesagt, sind noch Fehler drin, aber es wird langsam. Für den C128er müssten paar DATAs und 2 POKEs angepasst werden, damit auch dort der Zeichensatz korrekt kopiert und gesetzt wird.

Ich hoffe, ich kann den Changelog kurz hier wiedergeben:

DO-LOOP Schleife im Hauptprogramm genommen, da schneller
JOY Werte an Plus/4 angepasst (7 = links, 1 = hoch, 3 = rechts und 5 = runter, sowie Feuerknopf mit 128)
SOUND vorerst komplett enfernt
doppeltes Level in Zeile 440 entfernt
CPC Befehle ala PEN, INK usw. entfernt und durch COLOR ersetzt
CPC Befehl LOCATE durch CHAR ersetzt.
Spieler- und Computerroutine überarbeitet und von GOSUBS usw. befreit (Ausnahme die Einnahme einer Frucht)
Bewegungsvariablen für Spieler ala XM und YM und für den Computer GXM und GYM gesetzt
die gesetzten CHR$ Werte (Bildschirmcodes für Zeichen usw.) habe an den Zeichensatz angepasst
Spielerinfoanzeige (SCORE usw.) habe ich mal temporär rechts neben des Spielfeld gelegt

Bitte, bitte, verzeiht mir, wenn es noch wahnsinnig viel zu verbessern gibt. Mein letzte (richtiges) BASIC Coding war 1997.

Code

100 rem '''''''''''''''''''''
110 rem '''' frutty man '''''
120 rem '''''''''''''''''''''
140 gosub 3000:color 1,2:color 0,1:color 4,1:dim ra(20,21):goto 1520
410 rem ...hauptprogramm...
420 lev=0:hsc=sc:ma=4
430 lev=lev+1: if lev=5 then lev=1
440 scnclr:on lev gosub 1650,1910,2230,2510
445 xm=0:ym=0:ply=102:gxm=0:gym=0:gly=98
450 do
470 if joy(1)=7 and x-1>1 then if ra(x-1,y)<>4 then xm=-1
480 if joy(1)=1 and y-1>0 then if ra(x,y)=5 then ym=-1
490 if joy(1)=3 and x+1<20 then if ra(x+1,y)<>4 then xm=1
500 if joy(1)=5 and y+1<21 then if ra(x,y+1)=5 then ym=1
502 if ra(x+xm,y+ym)=10 then ra(x+xm,y+ym)=0:gosub 1260
504 if ra(x,y)=5 then char1,x,y,chr$(97):else char1,x,y," "
506 if xm<0 or ym<0 then ply=102:else ply=101
508 x=x+xm:y=y+ym:xm=0:ym=0:char1,x,y,chr$(ply)
510 if ra(x,y+1)=0 then exit:goto 1310
520 rem ...bewegung monster...
530 if gy>y and gy>0 then if ra(gx,gy-1)=5 then gym=-1
540 if gy<y and gy<21 then if ra(gx,gy+1)=5 then gym=1
550 if gx<x and gx+1<20 then if ra(gx+1,gy)<>4 then gxm=1
560 if gx>x and gx-1>1 then if ra(gx-1,gy)<>4 then gxm=-1
562 if ra(gx,gy)=5 then char1,gx,gy,chr$(97):else char1,gx,gy," "
564 if gxm>0 or gym>0 then gly=99:else gly=98
566 gx=gx+gxm:gy=gy+gym:gxm=0:gym=0:char1,gx,gy,chr$(gly)
570 if gx=x and gy=y then exit:goto 1610
580 loop
1260 rem ...frucht eingesammelt...
1280 sc=sc+1:fru=fru+1:if sc>hsc then hsc=sc
1290 gosub 2700:if fru<>frs then return
1294 exit:color1,11:char1,2,3,"":print"level "lev" geschafft!"
1296 for qwe=1 to 6000:next:sc=sc+5:hsc=sc:goto 430
1310 rem ...figur abgestuerzt...
1320 do
1320 if ra(x,y)=5 then char1,x,y,chr$(97)
1330 if ra(x,y)=4 then char1,x,y,chr$(96)
1340 if ra(x,y)<>4 or ra(x,y)<>5 then char1,x,y," "
1350 y=y+1:color1,2:char1,x,y,chr$(ply)
1360 while(y<24)
1370 ma=ma-1:if ma=0 then goto 1410
1400 for qwe=1 to 5000:next: goto 440
1410 rem ...game over...
1420 color0,1:color4,1:color1,2
1430 char1,5,3,chr$(96):printstring$(10,131)chr$(96)
1440 char1,5,4,chr$(96):color1,2:print"frutty man";:color1,6:print chr$(138)
1450 char1,5,5,chr$(96):printstring$(10,140)chr$(142)
1460 scnclr:color1,8:char1,5,3,"game over"
1470 color1,7:char1,2,14,"level:":printlev
1480 char1,2,16,"score:":printsc:char1,2,18,"hsc :":printhsc:color1,11
1490 char1,2,21,"druecke feuertaste"
1500 if joy(1)=128 then goto 1520
1510 goto 1500
1520 rem '...titelbild...
1530 color0,1:scnclr
1540 for qwe=3 to 18:color1,12:char1,qwe,5,chr$(100)
1542 color1,11:char1,qwe,5,chr$(100):color1,12:char1,qwe,9,chr$(100)
1544 color1,11:char1,qwe,9,chr$(100):next
1550 for qwe=6 to 8:color1,12:char1,3,qwe,chr$(100)
1552 color1,11:char1,3,qwe,chr$(100):color1,12:char1,18,qwe,chr$(100)
1554 color1,11:char1,18,qwe,chr$(100):next
1560 color1,3:char1,5,7,"frutty man":color1,4:char1,10,12,"by"
1570 color1,1:char1,3,16,"andreas leicht"
1572 color1,13:print:print:print" copyright 1986"
1580 color1,8:char1,2,22,"druecke feuerknopf"
1590 if joy(1)=128 then goto 410
1600 goto 1590
1610 rem '...monster beruehrt...
1620 ma=ma-1:gosub 2700:rem for qwe=1 to 400 step 50:sound 2,qwe,10,5:next
1630 if ma=0 then goto 1410
1640 for qwe=1 to 1000:next:goto 440
1650 rem '...level 1...
1660 gosub 2790:x=1:y=20:gx=20:gy=20:frs=12:gosub 2700
1670 for a=4 to 9:ra(3,a)=5:color1,13:char1,3,a,chr$(97):next
1680 for a=2 to 5:ra(11,a)=5:color1,13:char1,11,a,chr$(97):next
1690 for a=2 to 20:ra(19,a)=5:color1,13:char1,19,a,chr$(97):next
1700 for a=6 to 11:ra(13,a)=5:color1,13:char1,13,a,chr$(97):next
1710 for a=10 to 15:ra(6,a)=5:color1,13:char1,6,a,chr$(97):next
1720 for a=10 to 18:ra(17,a)=5:color1,13:char1,17,a,chr$(97):next
1730 for a=16 to 20:ra(1,a)=5:color1,13:char1,1,a,chr$(97):next
1740 for a=16 to 18:ra(8,a)=5:color1,13:char1,8,a,chr$(97):next
1750 for a=19 to 20:ra(12,a)=5:color1,13:char1,12,a,chr$(97):next
1760 for a=2 to 10:ra(a,2)=4:color1,10:char1,a,2,chr$(96):next
1770 for a=12 to 18:ra(a,2)=4:char1,a,2,chr$(96):next
1780 for a=4 to 9:ra(a,4)=4:char1,a,4,chr$(96):next
1790 for a=8 to 12:ra(a,6)=4:char1,a,6,chr$(96):next
1800 for a=14 to 17:ra(a,6)=4:char1,a,6,chr$(96):next
1810 for a=7 to 11:ra(a,10)=4:char1,a,10,chr$(96):next
1812 ra(15,10)=4:char1,15,10,chr$(96):ra(16,10)=4:char1,16,10,chr$(96)
1820 for a=7 to 16:ra(a,12)=4:char1,a,12,chr$(96):next
1830 for a=13 to 16:ra(a,14)=4:char1,a,14,chr$(96)
1832 ra(a,16)=4:char1,a,16,chr$(96):next
1840 for a=2 to 7:ra(a,16)=4:char1,a,16,chr$(96):next
1850 for a=9 to 11:ra(a,16)=4:char1,a,16,chr$(96):next
1852 for a=13 to 16:ra(a,16)=4:char1,a,16,chr$(96):next
1860 for a=8 to 10:ra(a,19)=4:char1,a,19,chr$(96):next
1862 for a=13 to 17:ra(a,19)=4:char1,a,19,chr$(96):next
1870 for a=2 to 5:ra(a,10)=4:char1,a,10,chr$(96):next
1880 data 2,1,9,3,8,5,17,5,11,9,15,9,11,11,13,13,11,15,13,15,10,18
1890 restore 1880:for qwe=1 to 11:read zx,zy:ra(zx,zy)=10:color1,12
1892 char1,zx,zy,chr$(100):next
1896 color1,13:for a=1 to 20:ra(a,21)=5:char1,a,21,chr$(96):next
1900 return
1910 rem '...level 2...
1920 gosub 2790:x=1:y=20:gx=20:gy=1:frs=6:gosub 2700
1930 for a=2 to 12:ra(5,a)=5:color1,13:char1,5,a,chr$(97):next
1940 for a=2 to 4:ra(9,a)=5:char1,9,a,chr$(97):ra(13,a)=5
1942 char1,13,a,chr$(97):ra(16,a)=5:char1,16,a,chr$(97):next
1950 for a=5 to 20:ra(20,a)=5:char1,20,a,chr$(97):next
1960 for a=7 to 10:ra(17,a)=5:char1,17,a,chr$(97):next
1970 ra(10,7)=5:char1,10,7,chr$(97):ra(10,8)=5:char1,10,8,chr$(97)
1980 for a=9 to 15:ra(12,a)=5:char1,12,a,chr$(97):next
1990 ra(6,13)=5:char1,6,13,chr$(97):ra(6,14)=5:char1,6,14,chr$(97)
2000 for a=13 to 20:ra(2,a)=5::char1,2,a,chr$(97):next
2010 for a=15 to 20:ra(4,a)=5:char1,4,a,chr$(97):next
2020 for a=15 to 20:ra(16,a)=5:char1,16,a,chr$(97):next
2030 ra(6,17)=5:char1,6,17,chr$(97):ra(6,18)=5:char1,6,18,chr$(97)
2040 ra(8,17)=5:char1,8,17,chr$(97):ra(8,18)=5:char1,8,18,chr$(97)
2050 ra(11,17)=5:char1,11,17,chr$(97):ra(11,18)=5:char1,11,18,chr$(97)
2060 ra(14,17)=5:char1,14,17,chr$(97):ra(14,18)=5:char1,14,18,chr$(97)
2070 for a=5 to 15:ra(a,19)=4:color1,10:char1,a,19,chr$(96):next
2080 ra(7,17)=4:char1,7,17,chr$(96):ra(12,17)=4:char1,12,17,chr$(96)
2082 ra(13,17)=4:char1,13,17,chr$(96)
2090 for a=5 to 15:ra(a,15)=4:char1,a,15,chr$(96):next
2100 for a=6 to 11:ra(a,9)=4:char1,a,9,chr$(96):next
2110 for a=6 to 19:ra(a,5)=4:char1,a,5,chr$(96):next
2120 for a=11 to 16:ra(a,7)=4:char1,a,7,chr$(96):next
2130 for a=13 to 18:ra(a,11)=4:char1,a,11,chr$(96):next
2140 for a=3 to 5:ra(a,13)=4:char1,a,13,chr$(96):next
2150 for a=17 to 19:ra(a,15)=4:char1,a,15,chr$(96):next
2160 for a=2 to 4:ra(a,2)=4:char1,a,2,chr$(96):next
2170 for a=6 to 8:ra(a,2)=4:char1,a,2,chr$(96):next
2180 for a=10 to 12:ra(a,2)=4:char1,a,2,chr$(96):next
2190 for a=17 to 20:ra(a,2)=4:char1,a,2,chr$(96):next
2200 data 2,1,7,8,18,14,7,16,13,16
2210 restore 2200:for qwe=1 to 5:read zx,zy:ra(zx,zy)=10:color1,12
2212 char1,zx,zy,chr$(100):next
2216 color1,13:for a=1 to 20:ra(a,21)=5:char1,a,21,chr$(96):next
2220 return
2230 rem '...level 3...
2240 gosub 2790:x=20:y=1:gx=20:gy=20:frs=11:gosub 2700
2250 for a=2 to 20:ra(a,19)=4:color1,10:char1,a,19,chr$(96):next
2260 for a=1 to 4:ra(a,16)=4:char1,a,16,chr$(96):next
2270 for a=5 to 9:ra(a,17)=4:char1,a,17,chr$(96):next
2280 for a=10 to 12:ra(a,16)=4:char1,a,16,chr$(96):next
2290 for a=13 to 17:ra(a,17)=4:char1,a,17,chr$(96):next
2300 for a=12 to 19:ra(a,14)=4:char1,a,14,chr$(96):ra(a,11)=4
2302 char1,a,11,chr$(96):ra(a,9)=4:char1,a,9,chr$(96):next
2310 for a=5 to 10:ra(a,12)=4:char1,a,12,chr$(96):ra(a,9)=4
2312 char1,a,9,chr$(96):next
2320 for a=6 to 14:ra(a,5)=4:char1,a,5,chr$(96):next
2330 for a=2 to 5:ra(a,6)=4:char1,a,6,chr$(96):next
2340 for a=17 to 19:ra(a,6)=4:char1,a,6,chr$(96):next
2350 for a=8 to 10:ra(a,2)=4:char1,a,2,chr$(96):next
2360 ra(15,4)=4:char1,15,4,chr$(96):ra(16,4)=4:char1,16,4,chr$(96)
2370 ra(17,3)=4:char1,17,3,chr$(96):ra(18,3)=4:char1,18,3,chr$(96)
2380 ra(19,2)=2:char1,19,2,chr$(96):ra(20,2)=4:char1,20,2,chr$(96)
2390 for a=6 to 18:ra(20,a)=5:color1,13:char1,20,a,chr$(97):next
2400 ra(18,17)=5:char1,18,17:print chr$(97):ra(18,18)=5:char1,18,18,chr$(97)
2410 ra(18,2)=5:char1,18,2,chr$(97):ra(16,3)=5:char1,16,3,chr$(97)
2420 ra(14,4)=5:char1,14,4,chr$(97):ra(5,5)=5:char1,5,5,chr$(97)
2430 for a=2 to 4:ra(11,a)=5:char1,11,a,chr$(97):next
2440 for a=6 to 15:ra(1,a)=5:char1,1,a,chr$(97):next
2450 for a=9 to 15:ra(11,a)=5:char1,11,a,chr$(97):next
2460 ra(5,16)=5:char1,5,16,chr$(97):ra(9,16)=5:char1,9,16,chr$(97)
2462 ra(13,16)=5:char1,13,16,chr$(97)
2470 ra(1,19)=5:char1,1,19,chr$(97):ra(1,20)=5:char1,1,20,chr$(97)
2480 data 8,1,17,5,5,8,16,8,16,10,5,11,16,13,7,16,17,16,10,20
2490 restore 2480:for qwe=1 to 10:read zx,zy:ra(zx,zy)=10:color1,12
2492 char1,zx,zy,chr$(100):next
2496 color1,13:for a=1 to 20:ra(a,21)=5:char1,a,21,chr$(96):next
2500 return
2510 rem '...level 4...
2520 gosub 2790:x=1:y=1:gx=1:gy=20:frs=11:gosub 2700
2530 for a=2 to 20:ra(3,a)=5:color1,13:char1,3,a,chr$(97):next
2540 for a=2 to 20:ra(9,a)=5:char1,9,a,chr$(97):next
2550 for a=2 to 20:ra(16,a)=5:char1,16,a,chr$(97):next
2560 color1,10:ra(1,2)=4:char1,1,2,chr$(96):ra(2,2)=4:char1,2,2,chr$(96)
2570 for a=4 to 8
2580 ra(a,2)=4:char1,a,2,chr$(96):ra(a,5)=4:char1,a,5,chr$(96)
2590 ra(a,8)=4:char1,a,8,chr$(96):ra(a,11)=4:char1,a,11,chr$(96)
2600 ra(a,15)=4:char1,a,15,chr$(96):ra(a,18)=4:char1,a,18,chr$(96):next
2610 for a=10 to 15
2620 ra(a,3)=4:char1,a,3,chr$(96):ra(a,6)=4:char1,a,6,chr$(96)
2630 ra(a,9)=4:char1,a,9,chr$(96):ra(a,13)=4:char1,a,13,chr$(96)
2640 ra(a,17)=4:char1,a,17,chr$(96):next
2650 for a=17 to 20:ra(a,2)=4:char1,a,2,chr$(96):next
2660 data 6,1,19,1,13,2,6,4,6,7,6,10,13,12,6,14,13,16,6,17
2670 restore 2660:for qwe=1 to 10:read zx,zy:ra(zx,zy)=10:color1,12
2672 char1,zx,zy,chr$(100):next
2676 color1,13:for a=1 to 20:ra(a,21)=5:char1,a,21,chr$(96):next
2680 return
2700 rem ...anzeigen...
2710 color1,8:char1,22,5,"level:":printlev
2720 color1,4:char1,22,6,"score:":printsc
2730 color1,8:char1,22,7,"man: ":printma
2740 return
2790 rem ...dimensionieren...
2800 fru=1:for a=0 to 20:for b=0 to 21:ra(a,b)=0:nextb,a
2810 return
3000 rem ...zeichensatz (code aus basic-spiel hostage)...
3010 restore 3020:for i=832 to 849:readx:poke i,x:next:sys 832
3020 data 162,0,189,0,208,157,0,64,189,0,209,157,0,65,202,208,241,96
3030 restore 3040:for i=16896 to 16951:readx:poke i,x:next
3040 data 255,102,195,195,102,255,0,0
3050 data 126,102,126,102,126,102,126,102
3060 data 60,126,135,215,215,255,255,219
3070 data 60,126,225,235,235,255,255,219
3080 data 14,24,126,223,255,255,255,126
3090 data 54,36,126,195,235,255,247,126
3100 data 108,36,126,195,215,255,239,126
3110 poke 65298,peek(65298) and 251: poke 65299,peek(65299) and 3 or 64
3120 return

Display More

Tale-X · Jun 29th 2016

Da ist ein gaaaanz fieser Fehler drin - Du hast die Variablennamen nicht gekürzt (CBM Basic achtet bei Variablennamen nur auf die ersten beiden Zeichen). Alle Variablen, die drei Buchstaben lang sind, müssen auf zwei Buchstaben Länge gekürzt werden - im dritten Beitrag ist die Liste der Variablen, da kannst Du die dreibuchstabigen raussuchen und passende zweibuchstabige ableiten. Dürfte manche Kuriosität im Programmverhalten beseitigen.

Ansonsten - sieht schon sehr schön aus

Portierung von LocoBasic zu Basic V7.0 am Beispiel Frutty Man

Similar Threads

Portable Basic-Spiele mit Source?

Huck on the Mississippi

Wurde von euch mal ein Listing in einem Homecomputermagazin abgedruckt?

Frutty Man +4

Spielfelder im 2x2-Modus

Im Keller gefunden

BBC Micro/BBC Basic

SID-File - Freestyle/Breakdance/Electro

Tags