Type schuss ; Type namens Schuss erstellen
   Field x ; schuss folgende "attribute" geben, x und y
   Field y
End Type


Global px#


Graphics 800,600,32,2 ;Graphics initialisieren

px#=400 ; die Player X position auf 400 setzen (mitte)


While Not KeyHit(1) ; Beginn der Schleife, so lange durchrattern bis ESC gedrückt wird
Cls 


keys()
schüsse_malen()

Flip 60
Wend   ; nun haben wir alles gemacht, wieder rauf zu wend !
End






Function keys() ;Hier wird alles mit der Interaktion mit der Tastatur behandelt

If KeyDown(205) px#=px#+0.7
If KeyDown(203) px#=px#-0.7
If KeyHit(57)
   s.schuss=New schuss
   s\x=px#
   s\y=0
EndIf

End Function


Function schüsse_malen() ; Hier wird jede Instanz von schuss durchgeangen und behandelt

For s.schuss = Each schuss
s\y=s\y+5 ;Nach unten bewegen
Color 80,255,80
Oval s\x,s\y,10,30 ;Zeichnen
Color 255,255,255
If s\y>600 Delete s.schuss ;Falls er vom Bildschirm rand verschwindet, löschen (Preformance!)
Next
Rect px#,10,10,10

End Function

;grafik initialisieren

;variablen definieren

;arrys

;evt includes


;---------HAUPTSCHLEIFE-----------

     ; - Aufruf vierschiedener funktionen
     ;funktion1 (spieler updaten)
     ;funktion2 (Map malen)

;--------ende hauptschleife-------



;funktion 1 (  .. )
;if wert = wert then....




;funktion 2 (.....)
If wert = wert then ....