Show Posts
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.
// --------------------------------- //
// Project: letzter versuch
// Start: Friday, February 15, 2008
// IDE Version: 5.172
GLOBAL playery = 400
GLOBAL playerx = 200
//---------------------------------------------------------------------------------------
LOADSPRITE "../thomas/raumschiff.png", 0
LOADSPRITE "../thomas/asteroid.png", 2
LOADSPRITE "../thomas/laser.png", 1
//--------------------------------------------------------------------------------------
TYPE SCHUSS //SCHUSS mit feld >>x<< und Feld >>y<< vormerken
x
y
ENDTYPE
//---------------------------------------------------------------------------------------
LOCAL schuesse[] AS SCHUSS //schuesse[] als variable(veränderbar) AS(als) SCHUSS
//---------------------------------------------------------------------------------------
WHILE TRUE //wenn wahr dann......
//---------------------------------------------------------------------------------------
IF KEY(203) THEN playerx =playerx -2 // Bewegung des Spieler Raumschiffes
IF KEY(205) THEN playerx =playerx +2 //Tasten druck wird geprüft und wenn ja(while true) dann minus oder plus nach links oder rechts
//---------------------------------------------------------------------------------------
playerx = MAX(MIN(playerx,600),16) //Begrenzung des Spielers auf die x-Achse des Spielfeldes zwischen 16
//und 600 (16 = 16 pixel vom linken Rand weg und 600 = rechter Rand)
//---------------------------------------------------------------------------------------
LOCAL schuss AS SCHUSS //nach dem Abschuss wird der schuss als Neuer SCHUSS der widerum als variable schuesse[]
//,(wir erinnern uns,SCHUSS wurde als TYPE SCHUSS hinterlegt,vor der Schleife)
//---------------------------------------------------------------------------------------
IF KEY(57) AND warten = GETTIMERALL() <<Pause bis zum nächsten Schuss
schuss.y=400 //Wenn Space(Leertaste) gedrückt dann den schuss.y <-auf der y-Achse malen hier 400
schuss.x = playerx+10 //hier wird der schuss auf der x-Achse gemalt anhand der Raumschiff Position +10 nach rechts
//damit er in der Mitte der Grafik erscheint
DIMPUSH schuesse[], schuss //fügt ein neues Feld(in unserem Fall einen Schuss ein) hier steht schuss als Wert der eingetragen wird in ->
//schuesse[] ( schuesse[] wurden ja "LOCAL" als "SCHUSS" bezeichnet)
//Also zum Verständniss >>schuss<< wird in die Variable schuesse[] "+einen schuss"eingetragen, die widerum in
//den Type SCHUSS hinterlegt wird.
warten = GETTIMERALL()+200
ENDIF
//---------------------------------------------------------------------------------------
FOREACH laser IN schuesse[] //Das verstehe ich noch nicht so ganz, >>Foreach<< heißt soviel wie >> "Für jeden" <<
//Hier wird irgendwie aus dem Schuss eine neue Variable namens laser
//die in schuesse[], die widerum in den Type SCHUSS erstellt werden, denke ich.
DEC laser.y, 2 // hier wird der laser.y, also die y-achse pro durchlauf um 2 verringert (DEC = verringern),das heißt der laser geht 2 Felder auf y-achse hoch
// wir erinnern uns (INC = erhöhen) der Variable Beispiel a = 5 wird bei jedem durchlauf um wert x veringert (INC a,(1 =x)
IF laser.y < 0 THEN DELETE laser //wenn der laser kleiner 0 auf der y-achse ist, bitte löschen
DRAWSPRITE 1,laser.x,laser.y //Naja und hier zeichnen wir den laser(schuss) auf den Bildschirm
NEXT
//---------------------------------------------------------------------------------------
DRAWSPRITE 0,playerx,playery
SHOWSCREEN
WENDDamit nicht durchgehend geschossen wird habe ich noch eine Pause mit warten = GETTIMERALL() eingebaut.Type schiessen
Field psx
Field psy
End Type
For schuss.schiessen = Each schiessen
schuss\psy = schuss\psy -2
schuss\psx = schuss\psx
DrawImage laser,schuss\psx,schuss\psy,0
If schuss\psy < 0 Then Delete schuss.schiessen
Next
If KeyDown(57)
zaehler = zaehler +1
If zaehler = 15 Then
schuss.schiessen = New schiessen
schuss\psx = px +10
schuss\psy = py
zaehler = 0
EndIf
EndIf
For schuss.schiessen=Each schiessenWenn ich den obigen Code als Anfänger lese verstehe ich nur Bahnhof, Koffertragen.Wenn ich Kreisfunktionen schreiben könnte,meinste dass ich dann hier fragen würde?!?!Quote from: jasper111Kannste Kreise nicht einbauen?Wie Gernot schon sagte. Nimm Paint und mal die Ellipse oder den Kreis. Oder schreib dir eine Kreisfunction wenn du das unbedingt brauchst. Dann hast du ja deinen Kreis Befehl.
DrawCircle(rad1,rad2,color)
Ist rad1<>rad2 hast du eine Ellipse.
Cheers
))