Graphics 640,480
SetBuffer BackBuffer()

Type schuss ; Das Type anlegen
 Field x,y
End Type

Repeat ; Die Hauptschleife
Cls
; Die Alienblaster 6001 auf den Bildschirm pinseln
Color 0,255,0
Rect MouseX(),MouseY(),10,35,1
 
; Hier der erste wichtige Teil
If MouseHit(1) ; Wenn linke Maustaste betätigt
 s.schuss=New schuss ; Eine neue Instanz anlegen
 ; s ist hier eine Variable die auf die Instanz verweist
 ; Man kann auch jede andere Variable verwenden, zu
 ; beachten ist nur das diese Variable nur noch für
 ; das Type verwendet werden kann!
 s\x=MouseX() ; Wir weisen dem Eintrag die Position der Maus zu
 ; Die Variable bezeichnet das Type, nach dem Backslash
 ; folgt das Feld
 s\y=MouseY() ; Bei Y verfahren wir ebenso
EndIf

Color 255,255,0
For s.schuss=Each schuss ; Unter Verwendung der Variable
 ; gehen wir alle vorhandenen Einträge des Types durch
 Oval s\x,s\y,10,10,1 ; Für jeden Eintrag pinsln wir
 ; einen Schuss auf den Bildschirm
 s\y=s\y-3 ; Die Position verändern
 If s\y<0 ; wenn der Schuss den Bildschirm verlässt...
  Delete s.schuss ; ...löschen wir selbigen
  ; Hier ist auch eine beliebte Fehlerquelle:
  ; Nach dem löschen kann auf diesen Eintrag nicht mehr zugegriffen werden!
  ; Daher ist diese Prüfung möglichst immer am Ende der Schleife
  ; durchzuführen
 EndIf
Next

Flip
Until KeyHit(1)
End

Type Laser
  Field Start_X,Start_Y,Start_Z
  Field End_X,End_Y,End_Z
  Field Begin_millisecs
  Field Entity_Handle
  Field Damage#
End Type

Type Laser
  Field pos_X,pos_Y,pos_Z
  Field Entity_Handle
  Field Speed
  Field Damage#
End Type

blubb=LoadImage(\"blubb.bmp\")

blubb2 = blubb

DrawImage blubb2,0,0

Graphics 1024,768,16,1
SetBuffer BackBuffer ()


Global Kanonex =512
Global Kanoney =384
Global aim

Repeat
    Cls

    aim = ATan2(MouseY()-KanoneY,MouseX()-KanoneX)
    If aim < 0 Then aim = aim + 360

    If MouseHit (1)
        For i = 0 To 20
            Bam.Schuss = New Schuss
            Bam\PosX = KanoneX + Cos(aim) * 20
            Bam\PosY = KanoneY + Sin(aim) * 20
            bam\Speed = Rnd(4,6)
            bam\richtung= Rnd(aim-10,aim+10)
            Bam\Lifetime = Rnd (100,120)
        Next
    EndIf


For Bam = Each Schuss
Bam\PosX = Bam\PosX + Cos(bam\richtung)*bam\speed
Bam\PosY = Bam\Posy + Sin(bam\richtung)*bam\speed
Bam\Lifetime = bam\Lifetime - 1
Oval Bam\PosX - 3 , Bam\PosY - 3 , 6 , 6
If bam\Lifetime < 0 Then Delete bam
Next



    Marker(MouseX(),MouseY())
    GeschtzZeichnen(KanoneX,KanoneY)

    Delay 5
    Flip
Until KeyHit(1)

End


Type Schuss
   Field PosX#
   Field PosY#
   Field Speed#
   Field richtung
   Field Lifetime
End Type


Function Marker(x,y)
    Plot x,y
    Line x-10,y,x-5,y
    Line x+10,y,x+5,y
    Line x,y-10,x,y-5
    Line x,y+10,x,y+5
End Function

Function GeschtzZeichnen(X,Y)

    Rect x-7,y-7,14,14,0

    ax = X + ( Cos(aim-  8) * 20 )
    ay = Y + ( Sin(aim-  8) * 20 )
    bx = X + ( Cos(aim-135) *  3 )
    by = Y + ( Sin(aim-135) *  3 )
    cx = X + ( Cos(aim-225) *  3 )
    cy = Y + ( Sin(aim-225) *  3 )
    dx = X + ( Cos(aim-352) * 20 )
    dy = Y + ( Sin(aim-352) * 20 )

    Line ax,ay,bx,by
    Line bx,by,cx,cy
    Line cx,cy,dx,dy
    Line dx,dy,ax,ay
End Function

;dekleration
Type laser
  Field Speed#,entity_handle%
End Type

;D3D 7 initialisieren
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
cam=CreateCamera()

;Player init.
player= CreateCube()

Repeat
   If KeyHit(58) Or KeyHit(57) Or KeyHit(28) Or KeyHit(27) Then
       create_schuss(Player)
   EndIf
   update_schusse()
   RenderWorld
   Flip
Until KeyHit(1)

Function create_schuss(Player%)
   Local schuss.laser
   If Not(player) Then RuntimeError \"Bloody Beginner!\"
   schuss = New laser
   schuss\Speed#=0.01
   schuss\entity_handle%=CreateCube()
   PositionEntity schuss\entity_handle,EntityX(player),EntityY(player),EntityZ(player)
  RotateEntity schuss\entity_handle,EntityPitch(player),EntityYaw(player),EntityRoll(player)
End Function

Function update_schusse()
   Local l.laser
  For l = Each laser
    MoveEntity l\entity_handle,0,0, l\speed#
  Next

End Function

blubb

blubb