Type objekt

Field id
Field obj
Field textur
Field texgr
Field objgr
Field etype

Field masse
Field reibung

Field status
Field status2
Field attacke, angriff
Field wurf

Field ex, ey, ez
Field wi, b, g, bb
Field st, sx, sy
Field s, t, wd

End Type 
;... inner Haupschleife ...

If KeyHit(48) Then TypeSetzen(1, nv, 1, \"Text/Rauh03.jpg\", 9, 9, type_objekte, 9, 2, EntityX(piv), EntityY(piv), EntityZ(piv))
;--- die Funktion ---
Function Typesetzen(id#, objekt$, mesh#, textur$, texgr#, objgr#, ent$, masse#, reibung#, ox, oy, oz)

o.objekt = New objekt

o\id = id#

Select mesh#

Case 1
o\obj = CreateSphere(9)
o\textur = LoadTexture(textur)
EntityTexture o\obj, o\textur
ScaleEntity o\obj,objgr,objgr,objgr
EntityType o\obj, ent$
EntityRadius o\obj, objgr

Case 2 
o\obj = CopyEntity(objekt)

End Select 

o\masse = masse#
o\reibung = reibung#

;--- benötige Variablen für den Wurf ---

o\b = 3*t
o\bb= 3
o\g = -9.81*t
o\wi= 45	
o\wd = EntityY(o\obj)+100	
te = 2 * (f\bb*(Sin(f\wi) / f\g))
o\eX = f\bb * t * Cos(f\wi)
o\eY = f\bb * t * Sin(f\wi) - (f\g / 2)
o\eZ = 0 / (f\b * (Sin(f\wi) / f\g))
o\st = f\bb * Sin(f\wi) - f\g

;---
PositionEntity o\obj, ox, oy, oz



End Function