Wo ist hier der Fehler??

Previous topic - Next topic

Schranz0r

Na du sollst es ja lernen, ich hab dir jetzt gezeigt wie es richtig geht, musst du ja nurnoch richtig umsetzen. :)
Du solltest evtl mal kleiner anfangen, weil Types bzw. die Standartsachen wie For-Next scheind mir so, als h?ttest du das noch nicht ganz verstanden?!
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

Nobody

Quote from: Kitty Hello on 2009-Apr-15
Code (glbasic) Select

time = GETTIMERALL()
IF MOUSEAXIS(3) AND delay<time

Das musste man vertauschen, damit man schießen kann.

Seltsamerweise hatte ich kl. Probleme als ich von Konsole auf Windows umgeschalten habe.

Bitte schalte den Debug Modus einmal aus, und wieder neu ein.

Code (glbasic) Select
// --------------------------------- //
// Project: Blaster
// Start: Thursday, April 05, 2007
// IDE Version: 4.145


TYPE SHOT
x
y
ENDTYPE

TYPE FOE
x
y
speed=3
amour=4
ENDTYPE

TYPE BOOM
x
y
time
ENDTYPE



LOCAL newshot AS SHOT
LOCAL newbug  AS FOE


LOCAL shots[] AS SHOT
LOCAL bugs[] AS FOE
LOCAL poof[] AS BOOM




LOADSPRITE "ship.PNG", 0
LOADSPRITE "shot.PNG", 1
LOADSPRITE "bug.PNG",  2
LOADSPRITE "boom.PNG", 3






playerx = 320
WHILE TRUE

INC playerx, MOUSEAXIS(0)

playerx=MAX(MIN(playerx,600),40)


time = GETTIMERALL()

newshot.x = playerx
newshot.y = 400

DIMPUSH shots[], newshot

delay = GETTIMERALL() + 100
ENDIF


IF MOUSEAXIS(3) AND delay
IF time>nextbug
nextbug = time + 500
DIMPUSH bugs[], newbug
ENDIF

FOREACH bug IN bugs[]
INC bug.x, bug.speed
IF bug.x<0 OR bug.x>620
INC bug.y, 32
bug.speed = -bug.speed
ENDIF
didhit=FALSE
FOREACH pop IN shots[]
IF BOXCOLL(pop.x, pop.y, 8,8, bug.x, bug.y, 32,32)
didhit=TRUE
DELETE pop
ENDIF
NEXT
IF didhit
LOCAL p AS BOOM
p.x = bug.x
p.y = bug.y
p.time = time
DIMPUSH poof[], p
DELETE bug
ENDIF
DRAWSPRITE 2, bug.x, bug.y
NEXT


FOREACH p IN poof[]
LOCAL pos = (time - p.time) / 1000
IF pos > 1 THEN DELETE p
ALPHAMODE 1-pos
ROTOZOOMSPRITE 3, p.x, p.y, pos*1000, 1+pos*3
NEXT
ALPHAMODE 0




FOREACH pop IN shots[]

DEC pop.y, 5

IF pop.y<0 THEN DELETE pop


DRAWSPRITE 1, pop.x, pop.y
NEXT


DRAWSPRITE 0, playerx, 400

SHOWSCREEN
WEND






so habe ich gemacht aber es startet immer noch nicht.
Quote from: Schranz0r on 2009-Apr-15


Na du sollst es ja lernen, ich hab dir jetzt gezeigt wie es richtig geht, musst du ja nurnoch richtig umsetzen. :)
Du solltest evtl mal kleiner anfangen, weil Types bzw. die Standartsachen wie For-Next scheind mir so, als hättest du das noch nicht ganz verstanden?!
ich habe auch kein vernüftiges tutorial gefunden ich habe mir eins genommen und einfach man befolgt

BumbleBee

Was macht das ENDIF da oben ohne IF. Oder seh ich schon schlecht? ;)

Hier nach

delay = GETTIMERALL() + 100
ENDIF


Cheers
The day will come...

CPU Intel(R) Core(TM) i5-3570k, 3.4GHz, AMD Radeon 7800 , 8 GB RAM, Windows 10 Home 64Bit

Kitty Hello

Ich habe das Gef?hl, dass Du ein bischen weiter unten einsteigen solltest.
Schau Dir mal die Tutorials im Handbuch an (F1 im Editor).

Nobody

da ist ein tutorial danke werde ich mal machen^^

Schranz0r

@ Gernot:

Glaube wir sollten dochmal ein gr??eres Tutorial machen :D
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

Kitty Hello

Das Horiz-Shooter Tut ist ja auch ganz gut.
Ich wei?, das Buch/Script f?r einen Unterricht w?re mal cool.

Schranz0r

hatte ja mal Wiki angefangen, aber alleine hatte ich da auch keine Lust das zu machen :(
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

Nobody

so hi ich habe jetzt mein ersten spiel fertig aus dem tutorial nun habe ich noch eine frage kann man irgent wie ein intro ein bauen das ein bild zeigt und dann vieleicht noch ein und dann erst das spiel startet

Kitty Hello

Code (glbasic) Select

BLENDSCREEN "MainBild.png"
KEYWAIT
BLACKSCREEN


Du solltest wirklich versuchen zu verstehen, was Du programmiert hat. Lies die Beschreibung der Befehle die Du verwendet hast, und frag' wenn Du Dir nicht sicher bist.

Nobody