...
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
LOADSPRITE "../raumschiff.bmp", 0
LOADSPRITE "../schuss.png", 1
GLOBAL playerx = 400
GLOBAL playery = 400
TYPE schuss
x
y
ENDTYPE
LOCAL schuesse[] AS schuss
// HAUPTSCHLEIFE
WHILE TRUE
IF KEY (203) THEN playerx = playerx -4
IF KEY (205) THEN playerx = playerx +4
IF KEY (57) AND warten < GETTIMERALL()
schuss.y = 400
schuss.x = playerx+5
DIMPUSH schuesse[],schuss
warten = GETTIMERALL()+200
ENDIF
FOREACH laser IN schuesse[]
DEC laser.y, 2
IF laser.y < 0 THEN DELETE laser
DRAWSPRITE 1, laser.x, laser.y
NEXT
playerx = MAX(MIN(playerx, 600),0)
DRAWSPRITE 0, playerx, playery
SHOWSCREEN
WEND
// Hauptschleife Ende
QuoteLOADSPRITE "../raumschiff.bmp", 0
GLOBAL playerx = 400
GLOBAL playery = 400
// HAUPTSCHLEIFE
WHILE TRUE
IF KEY (203) THEN playerx = playerx -2
IF KEY (205) THEN playerx = playerx +2
DRAWSPRITE 0, 400, 400
SHOWSCREEN
WEND
// Hauptschleife Ende
QuoteLOADSPRITE "../raumschiff.bmp", 0
playerx = 400
playery = 400
QuoteLOADSPRITE "../GLBasic/Spaceshooters/raumschiff.bmp", 0
// HAUPTSCHLEIFE
WHILE TRUE
DRAWSPRITE 0, 400, 400
SHOWSCREEN
WEND
END
Quote[*** Configuration: WIN32 ***V
precompiling:
GPC - GLBasic Precompiler V.8.044 SN:c3f4402d - 2D, WIN32
Spaceshooters.gbas (failed to open)
Wordcount:0 commands
compiling:
IncrediBuild skips: Spaceshooters.gbas,
linking:
*** ERROR - Kann Programm nicht überschreiben. Läuft es noch?
_______________________________________
*** Fertig ***
Dauer: 1.6 sek. Zeit: 21:41
Erstellen: 0 erfolgreich.
*** 1 FEHLGESCHLAGEN ***
QuoteLOADSPRITE "../GLBasic/Spaceshooters/raumschiff.bmp", 0
// HAUPTSCHLEIFE
WHILE TRUE
SHOWSCREEN
WEND
// Hauptschleife Ende
Quotelinking:
*** ERROR - Kann Programm nicht überschreiben. Läuft es noch?
_______________________________________
*** Fertig ***
Dauer: 4.3 sek. Zeit: 21:27
Erstellen: 0 erfolgreich.
*** 1 FEHLGESCHLAGEN ***