;*************************************************************
;------- Wurftaste -------------------------------------------
	If KeyHit(42) Then 
	f\wurf = 1
	f\wd = 100

	
	f\wd = EntityY(piv)+100
	
	
s	= s+1

t=s^2


f\b = 3*t
f\bb= 3
f\g = -9.81*t
f\wi= 45
	
	
f\wd = 100
	
te = 2 * (f\bb*(Sin(f\wi) / f\g))


f\eX = f\bb * t * Cos(f\wi)
f\eY = f\bb * t * Sin(f\wi) - (f\g / 2)
f\eZ = (f\b / f\g) * Sin(2*(f\wi))


f\st = f\bb * Sin(f\wi) - f\g
	

	ResetEntity f\obj
	
				f\status = 0                              
			EntityParent f\obj,0              
			ScaleEntity f\obj,7,7,7        
			EntityType f\obj,type_objekte  
			
				If f\wurf = 1

	;If f\wd >= -100

;--- Variablen Update -------------------------
s=1

t=s^2


f\b = 3*t
f\bb= 3
f\g = -9.81*t
s	= s+1
t=s^2
;---
f\eY = f\bb * t * Sin(f\wi) - (f\g / 2)
	f\eX = f\bb * t * Cos(f\wi)
	
	
	f\eZ = 0 / (f\b * (Sin(f\wi) / f\g))
	

;--------------------------------------------

PositionEntity f\obj,EntityX(f\obj),f\wd,EntityZ(f\obj)+f\eX


f\wd = f\wd - 10

f\st = f\wd


;MoveEntity f\obj,0,f\st,f\eX


;End If 

;PositionEntity f\obj,EntityX(f\obj)+0,EntityY(f\obj)+0,f\eX
;MoveEntity f\obj,0,0,30
TranslateEntity f\obj,0,f\g,0

If EntityCollided(f\obj, type_land) Then 
f\status=0
f\wurf=0
End If 
End If 
		End If 
[/code]

Danke!!!