type s_schuss ; alle sachen, die mit dem s-objekt zu tun haben, bekomme so ein hübsches s_ als präfix
 field name$
 field mesh
 field power
 field speed#
 field rate
 field lifetime
end type


; funktionen dazu
function s_createschuss(bla,bla)
 s.s_schuss = new s_schuss
 ;werte zuweisen
end function

function s_updateschuss(s.s_schuss)
 moveentity s\mesh,0,0,s\speed
 ;blabla
 s\lifetime = s\lifetime - 1
 if s\lifetime = 0 then freeentity s\mesh : delete s.s_schuss
end function

function s_updateschuesse()
 for s.s_schuss = each s_schuss
  updateschuss(s)
 next
end function

Type PlayerType
 field Entity
 field EntityWaffe
end type
Type SchussType
 field ...
 field speed#
 field p.PlayerType
end type
global eforceblaster=loadmesh(...)
NameEntity eforceblaster,"Blaster"
EntityType eforceblaster,type_force ;<- reicht glaube ich einmal (wegen
CopyEntity)

Function s_createschuss.SchussType(p.PlayerType)

s.SchussType= New SchussType
s\p=p ;<- :-)

s\entity =CopyEntity(eforceblaster)

local speed#
select entityname(eforceblaster)
case "Blaster"
 speed=0.1
default
 speed=0.01
end select

s\speed =speed
s\rate =100
s\lifetime =200

PositionEntity s\entity,EntityX(p\EntityWaffe,True),EntityY(p\EntityWaffe,True)-0.3,EntityZ(p\EntityWaffe,True)

RotateEntity ....

 return s ;wenn man es gebrauchen kann

End Function

Function SchussFree(s.SchussType)

 freeentity s\entity
 delete s

End Function

type Force
field speed#,lifetime,power,rate,entity
...

entitytype entity.Force,type_force

force_blaster.Force = new Force
force_laser.Force = new Force
force_minnigun.Force = new Force

force_blaster\speed = .3
force_blaster\lifetime = 300
force_blaster\power = 10
force_blaster\rate = 80
force_blaster\entity = loadmesh("...")

force_laser\speed = .8
force_laser\lifetime = 400
force_laser\power = 20
force_laser\rate = 50
force_laser\entity = loadmesh("...")

force_minnigun\speed = .4
force_minnigun\lifetime = 200
force_minnigun\power = 15
force_minnigun\rate = 40
force_minnigun\entity = loadmesh("...")

f.Force    = New Force
f\name    = "blaster"
f\speed    = .3
f\lifetime    = 300
f\power    = 10
f\rate    = 80
f\entity    = CreateSphere(5)
ScaleEntity f\entity,0.15,0.1,0.1

f.Force    = New Force
f\name    = "laser"
f\speed    = .8
f\lifetime    = 400
f\power    = 20
f\rate    = 50
f\entity    = CreateSphere(5)
ScaleEntity f\entity,0.3,0.1,0.1

f.Force    = New Force
f\name    = "minnigun"
f\speed    = .4
f\lifetime    = 200
f\power    = 15
f\rate    = 40
f\entity    = LoadMesh("mesh_beamer.3ds")
ScaleEntity f\entity,1,1,1

f.Force   = New Force
f\name    = "nuka"
f\speed    = .3
f\lifetime    = 300
f\power    = 100
f\rate    = 200
f\entity    = LoadMesh("mesh_beamer.3ds")
ScaleEntity f\entity,2.6,2.5,2.5


Function weaponSelect.SelectedWeapon(inna$)

   For chk.Force = Each Force
   
      If chk\name = inna Then
   
         sel.SelectedWeapon = First SelectedWeapon
         
         sel\name       = chk\name
         sel\power       = chk\power
         sel\entity       = chk\entity
         sel\speed       = chk\speed
         sel\lifetime    = chk\lifetime
         sel\rate       = chk\rate

         Exit
      
      End If

   Next
   
   Return sel

End Function

global selWeapon.Force ;<- kann man auch im Spieler Type unter bringen

selWeapon=weaponFind("nuka")
if selWeapon<>null then
 '... kann schießen
endif

Function weaponFind.Force (inna$)
   
   local chk.Force   

   For chk.Force = Each Force     
      If chk\name = inna Then  return chk
   Next
   
   Return null

End Function