{"id":1146,"date":"2023-11-30T15:05:10","date_gmt":"2023-11-30T15:05:10","guid":{"rendered":"https:\/\/research.swissdigitization.ch\/?p=1146"},"modified":"2024-04-22T07:37:42","modified_gmt":"2024-04-22T07:37:42","slug":"einfaches-action-spiel-in-basic-experimentelle-archeologie","status":"publish","type":"post","link":"https:\/\/research.swissdigitization.ch\/?p=1146","title":{"rendered":"Einfaches Action-Spiel in Basic (Experimentelle Archeologie)"},"content":{"rendered":"\n

Wie hier<\/a> eingef\u00fchrt verf\u00fcgt der C64 ebenfalls \u00fcber eine Basic-Schnittstelle als ‚Interface‘ f\u00fcr den C64 wie auch um zu Programmieren. Es ist mehr oder weniger die erste eingebaute Anwendung. <\/p>\n\n\n\n

BASIC entstand bekanntlich 1964 als einfach erlernbare Programmiersprache<\/a>, der man bis heute ihren klassischen Sprachansatz ansieht. Es ist eine Art Shellerweiterung mit Zeilen. <\/p>\n\n\n\n

Viele 8Bit-Computer kamen ebenso wie der C64 mit Basic daher. Einige waren einfacher gestrickt als der C64 f\u00fcr Games andere mehr (vgl. Atari 400) in Sachen Farbe, Sprites, Scrolling. Diese Features wurden nat\u00fcrlich damals bis heute genutzt in BASIC-Aptippspielen, die zus\u00e4tzlich noch oft auch Assemblerpasagen enthielten. All diese mache recht komplexe Spiele in Basic m\u00f6glich. Am besten sieht man das bis heute etwa an Super-Marble-Boy<\/a> des Amiga Game Design Veteranen Roman Werner.
<\/p>\n\n\n\n

Minimales Actionspiel in Basic?<\/h2>\n\n\n\n

Turnbasierte Spiele in Basic gibt es selbstverst\u00e4ndlich viele. Eines der Kursspiele in den 80er Jahren war etwa HangMan. Simple und einfach und doch gut zu zeigen, wie eine Spielmechanik programmiert werden kann.<\/p>\n\n\n\n

Standardbasic<\/strong><\/h2>\n\n\n\n

Aber ist es m\u00f6glich (eine Recherche steht noch aus) ein Action-Spiel zu machen, das allein in BASIC programmiert ist und auf allen Systemen l\u00e4uft? Was nat\u00fcrlich jede Art von Spezialfeatures per se ausschliesst und das ausgehend vom C64 Basic. <\/p>\n\n\n\n

Ausgabe<\/strong>: Print<\/h2>\n\n\n\n

In Sachen Ausgaben ist BASIC nicht gerade der Hit. Die meisten Basics aber besitzen sicher PRINT. Und was auch interessant ist – es gibt meist PRINT String und PRINT String Return. Einen allgmeinen Standard zum Positionieren des Cursors existiert – soweit bekannt – in Basic nicht. Es gibt nur sehr viele Hacks f\u00fcr jedes System. Und damit sollte sich doch auch ein Actionspiel machen lassen. Zudem bringt PRINT mit RETURN die M\u00f6glichkeit mit den Bildschirm zu scrollen.<\/p>\n\n\n\n

Gamekonzept?<\/h2>\n\n\n\n

Ist es m\u00f6glich in einer Linie ein Gamekonzept zu erschaffen? Ein einfaches Shoot-Em-Up oder Sammlerspiel? Diese Frage hat vor einigen Jahren eigentlich Robin Baumgarten beantwortet mit seinem Line Whobbler<\/a>. Es ist ein eindimensionales Rollenspiel mit einem LED-Lichtstreifen und einem Extrakontroller. Das Konzept ist beeindruckend einfach und funktioniert sehr gut.<\/p>\n\n\n\n

Ausgehend aus diesem Konzept liess sich schnell etwas entwickeln, was an Line whobbler erinnert, aber visuelle einen anderen Weg ging.<\/p>\n\n\n\n

Version 1: <\/strong>ein kontrollierbarer Punkt – Endpunkt<\/h2>\n\n\n\n

Ein simple kontrollierbarer Punkt. Er kann nach links und rechts gesteuert werden und zieht automatisch gescrollt einen Schweif hinter sich her. <\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Technisch wird zuerst die Position per Space geschrieben und danach der Avatar hingeh\u00e4ngt. Das Ganze ist je weiter links umso schneller (weniger Spaces), als gegen rechts. Das Ergebnis ist interessant. <\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n


Allerdings bricht das Spiel schon die erste Regel: Es nutzt einen Peek, um die Tastatur auszulesen.<\/strong> Basic war 1964 in dem damaligen Paradigma nat\u00fcrlich als Input\/Output-Sprache (ohne Keypressed-Abfragen – sondern mit Return als Abschluss einer Eingabe – Input) designed. <\/p>\n\n\n\n

Version 2: Fange ein Zeitextra<\/h2>\n\n\n\n

Die zweite Version addierte einen Extra, das man holen musste, um weiterspielen zu k\u00f6nnen. Sobald es gefangen war, wurde es per Zufall wieder anderswo ‚gespawnt‘. Im gesamten eine minimale Gamemechanik. Idee: L\u00e4uft die Zeit aus, ist das Spiel zu Ende. Wie weit bist du gekommen?<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n\n\n\n\n

Technisch wiederum gel\u00f6st wie bis anhin. Die Mechanik funktioniert und ist einigermassen interessant. Das visuelle Ergebnis funktionierte sehr gut, da es das Spielgeschehen in eine „Grafik“ verwandelt(e).<\/p>\n\n\n\n

10 print \"last line\"\n15 let c = 5\n20 let e = 12\n\n50 for i=0 to 20\n\n51 if i=c then print \"*\";\n52 if i=e then print \"-\";\n60 print \" \";\n70 next i\n71 print \" \"\n\n90 a = peek(197)\n91 if a=10 and c>1 then c = c - 1\n92 if a=18 and c<19 then c = c + 1\n100 goto 50<\/code><\/pre>\n\n\n\n
Das Problem: Es ist eher ein Stocken, denn ein fl\u00fcssiges Spiel. Der Basic-Interpreter kam da schon an seine Grenzen. <\/strong><\/p>\n\n\n\n
Eine zweite Version mit String-Concat-‚Optimierung‘ war auch nicht viel besser. <\/strong><\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Eine Begrenzung des Spiels etwa auf 20 Zeichenbreite brachte auch nicht den erhofften Geschwindigkeitszuwachs.<\/p>\n\n\n\n
Basic Fazit<\/h2>\n\n\n\n
Das Spielkonzept scheint zu funktionieren und bedient sich dabei der Endlosrunners und der Idee von Line whobbler. Die hier ausprobierten Implementationen sind aber zu langsam (selbst die If-Statements verlangsamen das Spiel ungemein) und ein Grundproblem nutzen einen Peek. Dies scheint aber einfach nicht anders l\u00f6sbar zu sein.<\/p>\n\n\n\n
Todo: Ausprobieren des Codes in anderen Basics dieser Zeit etwa des ZX81 oder des Atari-Basic etc.
Todo: Inkey$ nutzen – weil eine Art Standard<\/p>\n\n\n\n
Next Step: 16\/32Bit Atari ST\/Amiga<\/h2>\n\n\n\n
Interessant ist die Frage, wie sah es bei der n\u00e4chsten Generation von Computern aus, dem Atari ST oder dem Amiga. L\u00e4uft das Spiel hier merklich schneller? <\/p>\n\n\n\n
Atari ST Basic<\/strong><\/p>\n\n\n\n
F\u00fcrs folgende Experiment wurde eine Atari ST online Emulator benutzt, der im Laufwerk A auch ein Basic enth\u00e4lt: pce-emulator ><\/a><\/p>\n\n\n\n
Das Atari ST Basic orientiert sich in seiner Bedienung noch stark an der Idee einer Shell. Hier kann man tippen oder man clickt das Menu an, dann l\u00f6st es in der Shell den Befehl aus. Der Background mal im Vordergrund. <\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Der Editor ist ’schwierig‘ er arbeitet zwar wie ein Edit-Fenster, nur kann man mit der Maus nicht reinklicken sondern muss per Cursor hinfahren. Das Ende der Zeile wird auch nicht verwaltet. Mit Cursor-Links zum Ende der Zeile etc. Es ist mehr eine Art grosser Array aus Zeichen das Textfeld\/window. Nicht mit Return best\u00e4tigte Zeilen bleiben ausgebleicht und werden nicht ausgef\u00fchrt. \u00dcberall k\u00f6nnen neue Zeilen er\u00f6ffnet werden mit einer neuen Zeilenzahl. Diese werden anschliessend geordnet. Zudem scheinen fehlerhafte Zeilen auch ausgegraut zu werden. Editieren kann man nur per Befehl EDIT.<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Eine erste Demo erstellt man relativ schnell (F\u00fcr Mac Chrome-User: Esc – Fullscreen \/ = : ‚ \/ “ : shift \u00e4 \/ ; option \u00f6 \/ $: shift 4 \/ * : shift 8 \/ + : shift ^). Die Demo ist deutlich schneller als die C64 Version. Fraglich noch, ob hier ein echter Atari ST im Speed abgebildet ist. <\/p>\n\n\n\n
Leider funktioniert hier der Input noch \u00fcberhaupt nicht wie gew\u00fcnscht. Inkey$ geht anscheinend \u00fcberhaupt nicht. Und Inp(x) ist auch keine Keypressed-Funktion. <\/p>\n\n\n\n
M\u00f6gliche L\u00f6sung:  inp(-2) gibt 0 oder 1 zur\u00fcck f\u00fcr anstehende Keys, dann alle auslesen mit inp(2). Kommt Zeit kommt Rat.<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n

Todo: Vervollst\u00e4ndigung des Beispiels…<\/p>\n\n\n\n
Heutige: Moderne Basics<\/h2>\n\n\n\n
Ein weiterer Interessanter Approach w\u00e4re nat\u00fcrlich sich moderne Basics anzusehen. Also Visual Basics und Co, um es dort auch zum implementieren und zu schauen, wie performant das Ganze w\u00e4re. Allerdings ist hier klar, moderne Basics kommen alle ohne Zeilennummern daher.<\/p>\n\n\n\n
Heute: Fantasy-Console Pico8<\/h2>\n\n\n\n
In den letzten Jahren sind sogenannte Fantasy-consolen wie Pico8 entstanden. Diese propagieren eine Art Programmieren wie damals 8bit Farbtiefe, 8bit Sound mit der Power eines modernen Rechners. Wie sieht eine Realisierung hier aus?<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Das Spiel wird genau gleich in implementiert allerdings in LUA. Hier aber compiliert und l\u00e4uft einwandfrei.<\/p>\n\n\n\n
p = 4\ne = 5\nt = 100\nfunction _draw() \nstr = \"\"\nfor i=0,24 do\n  str = str .. chr(20+t%10)\n\t if (p==i) str = str .. \"\u2b05\ufe0f\"\n\t if (e==i) str = str .. \"\u274e\"\nend\nif (p==e) then \ne=flr(rnd(25))\nt=t+30\nend\nif (btn(0) and p>0) p=p-1 \nif (btn(1) and p<25) p=p+1 \nstr = str .. \" \" .. t\nt=t-1\nprint (str)\nend<\/code><\/pre>\n\n\n\n
Mit ein bisschen Demoscene-EyeCandy sieht das dann so aus:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Der Code dazu arbeitet mit viel String-inline-Farben und Chars abh\u00e4ngig von hochz\u00e4hlenden und modelierten Zahlen.\n\np = 4\ne = 5\nt = 100\ns = 0\nfunction _draw() \nstr = \"\"\ns = s+1\nc = \"\"\nfor i=0,24 do\n  c = (0+s%5) \nif (p==e) c = 8\n  str = str .. \"\\f\"..c\n  str = str  .. chr(20+t%10+s%4)\n\t if (p==i) str = str .. \"\\f\"..(6+s%3)..\"\u2b05\ufe0f\\f\"..c\n\t if (e==i) str = str .. \"\\f\"..(8+s%2)..chr(30+s%23)..\"\\f\"..c\nend\nif (p==e) then \ne=flr(rnd(25))\nt=t+30\nend\nif (btn(0) and p>0) p=p-1 \nif (btn(1) and p<25) p=p+1 \nstr = str .. \" \\f9\" .. t\nt=t-1\nprint (str)\nend<\/code><\/pre>\n\n\n\n
ToDo: Mit Gegner<\/p>\n\n\n\n
Das Spiel macht grunds\u00e4tzlich Spass und l\u00e4sst sich auch einfach aufbohren. Ein bewegendes Extra und ein Gegner w\u00e4re nat\u00fcrlich lustig, sowie die M\u00f6glichkeit \u00fcber den Gegner* zu springen.<\/p>\n\n\n\n
Nachtrag<\/strong><\/p>\n\n\n\n
Der Micro BBC erm\u00f6glicht auch als 8Bit eine fast perfekte BASIC Variante mit genug Speed. Siehe diese Variante hier:<\/p>\n\n\n\n
\n
Micro BBC – ein schnelles BASIC und eine 8Bit Variante des LineRunners<\/a><\/blockquote>