Type gegner
 Field X
 Field Y
 Field Typ
 Field Energy
 ...
End Type

Type gegner
 Field X
 Field Y
 Field Typ
 Field Energy
 Field Bewaffnung.Waffe
End Type

Type Waffe
 Field Parent.gegner
 Field wasauchimmer
End Type

Jede Waffe durchgegangen wird, nicht nur die von diesem gegner.

MfG

;////////////////////////////////////////
;/
;/

Function GL_add_weapon2Player (Player_ID,Weap_Type=0)
                        
                        
       ; Weap (GUN !) type ist hier erstmal egal da es ja nur um Types geht
               
       weap             = GL_Create_WeaponObj ()
   
        WeaponOBJ\PlayerOBJ = Player_ID
   
       WeaponOBJ\Weap_Type = Rand(        5 )
   
       WeaponOBJ\Ammo       = Rand( 500,1000 )
                              
End Function

;/
;/
;////////////////////////////////////////

type parent
field hallo
end type

type child
field childhallo
field parent.parent
end type

[...]

for i.parent = each parent
print i\hallo
for j.child = each child
if j\parent = i
print j\childhallo
endif
next
next

Type gegner
 Field X
 Field Y
 Field Typ
 Field Energy
 Field wBank  ; Waffen Bank
 Field Bez$
End Type

Type Waffe
 Field Bez$   
 Field Parent.gegner
 Field Energy
 Field BankPos ; Position inerhalb der Bank
End Type

Global FDG.Gegner
Global Gds.Gegner


g.Gegner  = New Gegner
g\bez = "Fluch der Galaxis"
g\x = 50
g\y = 100
g\typ =1
g\energy = 250

GDS = G


g.Gegner  = New Gegner
g\bez = "Grobasch der Sternenschlaechter"
g\x = 400
g\y = 100
g\typ =1
g\energy = 250

FDG = G


Dim wArr$(6)
wArr$(0) = "Laserkanone"
wArr$(1) = "Plasmakanone"
wArr$(2) = "Disrupter"
wArr$(3) = "Torpedowerfer"
wArr$(4) =  "Partikelschleufder"
wArr$(5) =  "Antimaterie Impulsgeber"
wArr$(6) =  "Ionenkanone"




For i = 0 To 99
   w.waffe = New Waffe
   w\bez = warr(Rand(0,6))
   If Rand(0,1) = 0 Then
      w\Parent = FDG
   Else
      w\Parent = Gds
   EndIf
   w\Energy = Rand(10,250)
   AddWaffeToGegner(w)
Next



ShowWaffen GDS
ShowWaffen FDG



Function ShowWaffen(G.Gegner)
   Local B
   Local BS
   Local w.Waffe
   Local wHnd
   DebugLog ""
   DebugLog "Gegner: " + g\bez
   DebugLog "--------------------------"
   B = g\wBank
   BS = BankSize(g\wBank) - 4
   For I = 0 To BS Step 4
      whnd = PeekInt(B,I)
      w = Object.Waffe(wHnd)
      DebugLog "Name der Waffe: " + w\bez + "  energy: " + w\energy + "  Pos: " + w\bankPos
   Next
End Function




w.waffe = First Waffe
DeleteWaffe W
w.waffe = Last Waffe
DeleteWaffe W
w.waffe = First Waffe
For i = 0 To 2
   W.Waffe = After w
Next
deleteWaffe W

      

Function AddWaffeToGegner(w.Waffe)
   Local G.Gegner
   G = w\Parent
   If g\wBank = 0 Then  g\wBank = CreateBank(0)
   Local BS = BankSize(g\wBank)
   ResizeBank g\wBank, BS+4
   PokeInt g\wBank, BS,Handle(w)
   w\BankPos = BS
End Function


Function DeleteWaffe(w.waffe)
   Local G.Gegner
   G = w\Parent
   Local BS = BankSize(g\wBank)
   DebugLog " Bankzieze von " + g\bez + " " + BS
   
   ;Wenn die Waffe die erste Waffe in der Bank ist .....
   If w\BankPos = 0 Then
   DebugLog "Erste Waffe von " + g\bez + " wird gelöscht  Pos: " + w\Bankpos     
     CopyBank g\wBank,4,g\wBank,0,BS-4
   ;Wenn die Waffe die letzte Waffe in der Bank ist .....
   ElseIf w\BankPos = BS Then
      DebugLog    "Letze Waffe von " + g\bez + " wird gelöscht  Pos: " + w\Bankpos     
       ResizeBank g\wBank ,BS-4 :<<<<<LÖSCHEN
   ;Wenn die Waffe irgendwo in der Bank ist .......
   Else
      DebugLog "Eine Waffe von " + g\bez + " wird gelöscht   Pos: " + w\Bankpos     
       CopyBank g\wBank, 0, g\wBank,  0, w\BankPos-4
       CopyBank g\wBank, w\BankPos,  g\wBank, w\BankPos,BS -w\BankPos
   EndIf
   ResizeBank g\wBank, BS-4
   Delete W
End Function