Fehlt noch - kommt mit dem nächsten Update - oder dem übernächsten...
Danke für den Tip,
Gernot
Danke für den Tip,
Gernot
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu # # #
GLBasic starten, warten bis es geladen hat.
Jetzt das Projekt laden und unter dem Menüpunkt "Projekt/Optionen"
die Klappe "Platform" öffnen und "Linux" wählen.
Das Häkchen "Erstellen für diese Platform" aktivieren.
Nochmal wieder holen für die Platform "PocketPC".
Jetzt kommt der schwierigste Teil - Kompilieren:
Dazu in der Toolbar den Knopf "Erstellen" drücken und warten.
Das kann jetzt gut und gerne 20 Sekunden dauern,
also eher am Wochenende probieren.
Jetzt den Knopf "Ordner öffnen" wählen und die Dateien "Name.linux"
auf einen Linux-Rechner kopieren bzw. "Name_ce.exe" auf den
PocketPC übertragen.
"Name" ist natürlich mit dem Projektnamen zu ersetzen.
So, beim nächsten Mal schreibe ich wie man aus einem
2D Spiel ein 3D Spiel macht.
# # #
// ------------------------------------------------------------- //
// -=# ELLPISE #=-
// ------------------------------------------------------------- //
FUNCTION Ellipse: x, y, w, h, col
LOCAL dy, xi
w=w/2
h=h/2
x=x+w
FOR dy = -h TO h
xi = w/h * SQR(h*h - dy*dy)
DRAWRECT x-xi, y+dy+h, xi+xi, 1, col
NEXT
ENDFUNCTION // ELLIPSE
// ------------------------------------------------------------- //
// -=# ELLPISE #=-
// ------------------------------------------------------------- //
FUNCTION Ellipse: x, y, w, h, col
LOCAL dy, xi
w=w/2
h=h/2
x=x+w
FOR dy = -h TO h
xi = w/h * SQR(h*h - dy*dy)
DRAWRECT x-xi, y+dy+h, xi+xi, 1, col
NEXT
ENDFUNCTION // ELLIPSE
IF irgendwas THEN was_anderes();
IF irgendwas; was_anderes(); ELSE; was_ganz_anderes();
Das ist der Grund, warum ich's immer in eigene Zeilen schreibe:IF irgendwas
was_anderes();
ELSE
was_ganz_anderes();
ENDIF
Also, jeder Zeilenumbruch ist (wenn kein _ vorausgeht) gleichzeitig ein ; Zeichen.IF b1 AND down=FALSE
down=TRUE
neu =was gewählt ist
IF neu = selektion
startgame ...
ELSE
selektion=neu
ENDIF
ENDIF
IF b1=FALSE THEN down=FALSE
WHILE TRUE
dx = KEY(205) - KEY(203)
dy = KEY(208) - KEY(200)
PRINT "DX: "+ dx + " DY: " + dy, 100, 100
SHOWSCREEN
WEND
Wenn der Spieler nicht schräg gehen darf, dann noch: IF dx THEN dy=0 // oder anders 'rum
elseif ist natürlich manchmal fein. Das werd ich einbauen.