Neue Wirtschaftssimulation in Basic (C128, Kawari, Mega65, X16)

Goodwell · 18. November 2022

Zitat von 1570

Und dann wird der wahrscheinlich deutlich komplexer als Blitz!64 sein, für das ich auch schon einen guten Monat Zeit zum Umbauen im Rahmen von Reblitz64 gebraucht habe.

Reblitz64 ist richtig gut, das verwende ich echt gern.

Aber dann wird es halt Blitz128 im Warp Mode bleiben müssen

Zitat von 1570

Ich würde nicht den C128 als Zielsystem für was Neues wählen

Der C128 ist Teil der Reise. Wenn es mir nur um das Spiel an sich gehen würde, würde ich das nicht als Video dokumentieren.

Alleine das Schneiden des Videos hat länger gedauert als ich bisher fürs Programmieren gebraucht habe.

Ich finde den Gedanken einfach spannend, zu sehen, wie lang der C128 als Platform ausreichend ist, ab wann nicht mehr, und vor allem: warum nicht mehr.

Die Perspektive, dass man jederzeit einen X16 oder einen Mega65 zur Zielplatform ernennen kann, hilft dem Unterfangen natürlich.

80x25 ist für mich in der jetzigen Phase relevant, weil der Textmodus am schnellsten zu Ergebnissen führt.

Sollte sich ein Grafikzauberer finden, der Lust hat, eine grafische Oberfläche dafür zu zaubern, kann das natürlich auch am C64 laufen. Mit FPGA und REU wäre der C64 dann natürlich die bessere Platform.

Zitat von 1570

Und/oder natürlich was anderes als ausgerechnet BASIC nehmen, es gibt einige andere Sprachen und Libraries, die ähnlich einfach sind, aber viel besser zum 6510 passen, siehe z.B. die Pascal-Variante von TRSE:
https://lemonspawn.com/gallery_/

Dieses Projekt ist ja auch nicht als "das ultimative Projekt" gedacht.

Nach diesem wird hoffentlich ein anderes kommen, da kann ich dann noch immer auf andere Sprachen fokussieren.

Erreichen möchte ich dadurch, dass die Leute sehen, dass Commodore Basic nicht automatisch schlecht ist nur weil es alt ist, und dass es keine Sackgasse ist.

Und dass es relativ einfach ist, Code so zu gestalten, dass er relativ einfach auch auf andere Basic Dialekte angepasst werden kann.

Und dass dann mehr Basic Programme entstehen, die einfacher auch auf Mega65 und X16 portiert werden können (ohne bloß im C64 Modus zu laufen)

Eigentlich ist es ein Bildungsprojekt

Wenn das Spiel niemand spielt (weil C128), werden vielleicht trotzdem die Videos geschaut.

Meinen Job werde ich weder wegen dem Spiel noch wegen den YouTube Einnahmen aufgeben können.

Ich bin halt Idealist

Lynx · 18. November 2022

Zitat von 1570

"Es sollte dann zumindest in Vice [x128] fehlerfrei laufen" ist leider angesichts Vice 3.6.1 C128 Basic rechnet falsch gar nicht so einfach...

Naja, wenn man absichtlich oder unwissend verbugte Versionen nutzt, muss man leider auch mit den Auswirkungen leben.

unter 3.6.2-dev r42547 z.B. ist alles fein:

Ticker · 18. November 2022

Ich bin begeistert!!!

WiSim spukt mir schon eine Weile im Kopf herum. Ich bin mit meinem BASIC aber noch nicht so weit.

Für mich als MEGA´ner hat dein Ansatz einen besonderen Reiz.

Bitte weiter so und unbedingt nochmal über den Blog nachdenken.

GEILES PROJEKT!!!

cethewe74 · 18. November 2022

Zitat von Goodwell

Hallo Zusammen,

ich arbeite an einer neuen Wirtschaftssimulation in Basic.
Um wieder mal was Neues auszuprobieren werde ich den Fortschritt in einem YouTube-Kanal dokumentieren, deshalb spoilere ich mal nicht zu viel.

[Externes Medium: https://www.youtube.com/watch?v=32goi0jiCMU]

Bin gespannt wie es ankommt.

Alles anzeigen

Ich finde es hammergeil.

Sehr gut strukturiert. Sinnvoller Flow. Angenehme Stimme.

Bitte weitermachen

Danke dir!

Zyrian · 18. November 2022

Jetzt hatte ich auch Zeit das Video komplett zu sehen.

Super Arbeit.

Ich kann die nächsten Folgen kaum erwarten.

Ich finde es schon sehr praktisch, daß wo ich gerade anfange eine WiSim zu planen, du hier dieses tolle Projekt startest und mit dem Proportionalschriften Projekt auch die Optik, die ich mir vorstelle, möglich werden könnte.

Da für mich WiSims immer die wichtigsten Spiele waren, wäre ich natürlich begeistert, wenn das alles eine Welle neuer Spiele auslösen würde.

Mach auf jeden Fall weiter so

T3V6 · 18. November 2022

Hier sind schon 1285 Antworten, aber ich habe gerade erst das Video gesehen:

Top Sache!

Das geplante Spiel ist mir bisher ziemlich wurscht, aber ich finde es interessant, was für Vorüberlegungen gemacht werden. Ein Benchmarking wäre mir vor 30-35 Jahren nicht eingefallen.

Und obwohl ich einiges im Video mehr als einmal anschauen musste (ich begreife wohl inzwischen zu langsam...), war es sehr gut erklärt und hat meine Rechen-/Basic-Logik wieder aufgefrischt. Ich freue mich auf weitere Videos (obwohl ich Angst habe, abgehängt zu werden!)

Sledgie · 19. November 2022

Warte auch gespannt auf dein nächstes Video. Das erste ist sehr verständlich und nachvollziehbar.

Goodwell · 20. November 2022

1570 nochmal zu ReBlitz

Wäre eine Anpassung an dem x16 überschaubar?

Ich würde meinen, man muss die Adressen der Befehle an den x16 anpassen und eben die neuen Keywords hinzufügen.

Triffts das, oder hau ich hier nur mit gefährlichem Halbwissen um mich?

1570 · 20. November 2022

Goodwell Kann ich leider nicht sagen, kann sein, dass das einfach so direkt schon geht...? Ansonsten müsste man vermutlich die Blitz-Runtime anpassen. Die habe ich mir noch gar nicht weiter angesehen, sondern nur den Compiler an sich, was zwei unterschiedliche Paar Schuhe sind. - Ehrlich gesagt bin ich persönlich gar nicht am X16 oder C128 oder so interessiert, aber vielleicht mag jemand anders draufschauen, Reblitz ist ja als Source verfügbar (wobei wie gesagt die Runtime nicht weiter auseinandergenommen oder kommentiert wurde).

Goodwell · 20. November 2022

Direkt ausführen geht nicht, da landet man direkt im Monitor.

Is kein Problem wenn das nicht dein Fokus ist. Genau wie du sagst: es ist ja open source. Und dafür gebührt dir schon dank.

Danke für den Tip mit der Runtime. Wenns nötig werden sollte, werd ich da mal ansetzen

Zyrian · 21. November 2022

Hi,

1570 hatte ja als Basic-Alternative TRSE vorgeschlagen, und da ich das noch nicht kannte, habe ich den Benchmark mit TRSE nachprogrammiert.

In TRSE ist so einiges anders als in Pascal und ich fühlte mich da erst recht eingeengt, aber zum Schluss ist dann doch ein lauffähiges Programm dabei rausgekommen.

Damit haben wir dann auch einen Wert für TRSE. Wie aussagekräftig der ist kann ich aber nicht sagen, weil ich das Programm doch sehr umstellen musste.

Hier mal der Quellcode:

Code

program C64Project;
var
Key : Byte = 0;
i : integer = 0;
TF : integer = 60;
G : integer = 1;
SZ : integer = 0;
S : integer = 0;
K : integer = 0;
B : ARRAY[8] of integer;
const
Ausgabe : Byte = 0;
function TI():integer;
var
t1,t2 : byte = 0;
begin
t1:=peek(^162,0);
t2:=peek(^161,0)-65280;
TI:=CreateInteger(t2, t1);
end;
procedure berechnen ();
begin
B[0]:=B[0]+1.5*G ; B[1]:=B[1]+2.3*G ; B[2]:=B[2]+2.8*G ; B[3]:=B[3]+4*G;
B[4]:=B[4]+6*G ; B[5]:=B[5]+2.4*G ; B[6]:=B[6]+2.9*G ; B[7]:=B[7]+4.1*G;
end;
begin
ClearScreen($20, ^$0400);
ClearScreen(white, ^$D800);
moveto(1,1,$04);
printstring("ECHTZEIT :",nil,nil);
moveto(1,2,$04);
printstring("GESCHWINDIGKEIT :",nil,nil);
moveto(1,3,$04);
printstring("SPIELZEIT :",nil,nil);
moveto(1,4,$04);
printstring("KAPAZITAET :",nil,nil);
poke(^162,0,0);
poke(^161,0,0);
poke(^160,0,0);
S:=TI();
while true do
begin
if TI()-S > TF then
begin
// Geschwindigkeit verändern
Key:=GetKey();
if Key <> 0 then
begin
if ((Key = "+") and (G < 5)) then G+=1;
if ((Key = "-") and (G > 0)) then G-=1;
end;
Key:=0;
//
SZ:=SZ+G;
S:=TI();
if G <> 0 then berechnen();
moveto(19,1,$04);
printdecimal(TI()/TF,4);
moveto(19,2,$04);
printdecimal(G,4);
moveto(19,3,$04);
printdecimal(SZ,4);
moveto(19,4,$04);
printdecimal(K,4);
K:=0;
if ((G>0) and (Ausgabe = 1)) then begin
for i := 0 to 7 do
begin
moveto(1,6+i,$04);
printdecimal(B[i],4);
end;
end;
end;
K+=1;
end;
end.

Alles anzeigen

Und im Anhang die Werte:

mit Ausgabe von B()

ohne Ausgabe von B()

Goodwell · 21. November 2022

Zyrian sehr interessant, danke

1570 · 21. November 2022

Im Original zählt K/Kapazität "Anzahl der Tastenabfragen, die in der Restzeit (nach der Berechnung) pro Sekunde noch ausgeführt werden können", im TRSE-Beispiel wird aber "Anzahl der if TI()-S > TF-Abfragen, die in der Restzeit ausgeführt werden können" gezählt, wenn ich das richtig sehe. Ansonsten wäre der Wert auch vermutlich nicht dermaßen hoch.

Ihr solltet echt einfach eine längere Berechnung machen (am besten Integer, Float ist eh' auf dem C64 nix) und von der eben die Zeit messen, dann ist das nicht so verwirrend.

Snoopy · 21. November 2022

Bei "Neue Wirtschaftssimulation in Basic" finde ich mindestens drei Sachen gut: Neu, Wirtschaftssimulation und BASIC.

Es wäre schade, wenn das BASIC hinten runterfällt und das Spiel mit Compiler oder gar mit anderen Sprachen umgesetzt wird.

Ticker · 21. November 2022

Da sehe ich mich auch.
Das ganze in BASIC wäre der große Wurf, und dass das möglich ist hast du ja schon gezeigt.
Ich bin weiter sehr gespannt.

Goodwell · 21. November 2022

Der Vergleich mit TRSE oder Assembler ist natürlich sehr interessant.

Vor allem, weil es gut Auskunft darüber gibt, wieviel schneller oder langsamer gewisse Sprachen in der Praxis für bestimmte Anwendungsfälle wirklich sind.

Ansonsten hört man ja nur pauschale Aussagen wie: Assembler ist 1000x schneller als Basic. Punkt.

Aber keine Angst: meine Ausführungen werden sich immer um Basic drehen

Teil meiner Motivation ist ja, zu zeigen, dass Basic für Spielspaß reicht.

Für Grafik, Sound und Zuckerguss kann man auch bei einer Wirtschaftssimulation dann noch mit Assembler drübergehen.

Und Basic bleibt Basic, selbst wenn man es zum Schluss durch einen Basic-Compiler jagt.

T3V6 · 21. November 2022

Ich hätte nix gegen compiliertes Basic zum Spielen mit Speed...

Aber auch in Basic-Quellcode sollte es startbar sein.

Man kann den Interpreter-Speedunterschied erleben, aber dafür auch den Code nachverfolgen.

Zyrian · 21. November 2022

Das sollte auch nur ein Test werden.

Ich möchte auch die Entwicklung in BASIC sehen.

Bei meinem Programm handelt sich ja auch nur um einen Test, und sollte nur die Messungen vervollständigen.

Und glaubt mir, ihr wollt nicht mal eben was TRSE coden. das ist alles etwas anders als in anderen Umgebungen.

Es kann viel, aber man muss sich auch lange einarbeiten.

Also LIEBEND GERN weiter in Basic.

PS: 1570 Ich sag ja das Programm ist mit der heißen Nadel gestrickt

Goodwell · 21. November 2022

Zyrian ich finds super dass dich die Motivation gepackt hat, das auszuprobieren.

Wenn dir wieder mal danach ist, immer gern her damit

1570 · 21. November 2022

Zitat von Zyrian

Und glaubt mir, ihr wollt nicht mal eben was TRSE coden. das ist alles etwas anders als in anderen Umgebungen.

Naja, die "IDE" von BASIC V2 ist auch jetzt nicht so ganz Industriestandard.

Neue Wirtschaftssimulation in Basic (C128, Kawari, Mega65, X16)

Ähnliche Themen

Commodore Basic für Sieger

WIP: Zeit der Gilden (fka Der Brauer) [2023]