Graphics3D 640, 480, 0, 2 
SetBuffer BackBuffer() 
main_cam = CreateCamera() 
CameraViewport main_cam, 0, 0, 640, 480 
CameraClsColor main_cam, 63, 63, 127 

main_light = CreateLight(2) 
LightRange main_light, 3000
PositionEntity main_light,0,100,-100

anim_obj = LoadAnimMesh("Alien1\Alien1.b3d")
ScaleMesh anim_obj,0.5,0.5,0.5;Wenn auskommentiert, dann gehts.
ExtractAnimSeq anim_obj,0,40
ExtractAnimSeq anim_obj,41,60
anim_tex=LoadTexture("Alien1\Alientex1.jpg")
EntityTexture anim_obj,anim_tex
PositionEntity main_cam, 0, 30, - 80 
PointEntity main_cam, anim_obj 
PositionEntity main_cam, 0, 50, - 80 

Local anim_speed#
Repeat 
	If KeyDown(75) Then 
		anim_speed=anim_speed-0.5
	ElseIf KeyDown(77) Then
		anim_speed=anim_speed+0.5
	End If
	
	Animate anim_obj,1,anim_speed,1,1
	
	If KeyDown(203) Then TurnEntity anim_obj, 0, 2, 0 
	If KeyDown(205) Then TurnEntity anim_obj, 0, - 2, 0 
	If KeyDown(200) Then TurnEntity anim_obj, 2, 0, 0 
	If KeyDown(208) Then TurnEntity anim_obj, - 2,0, 0 
	If KeyDown(201) Then MoveEntity main_cam,0,0,1
	If KeyDown(209) Then MoveEntity main_cam,0,0,-1
	UpdateWorld() 
	RenderWorld() 
	Text 0, 0, "Benutze Pfeiltasten" 
	Flip 
Until KeyHit(1) 
End 

Player.TPlayer=New TPlayer;Neuen Spieler erstellen
	Player\entity=LoadAnimMesh("Modells\Alien1\Alien1.b3d")
	EntityTexture Player\entity,LoadTexture("Modells\Alien1\Alientex1.jpg")
	ScaleEntity Player\entity,0.05,0.05,0.05
	RotateMesh Player\entity,0,180,0
	ExtractAnimSeq Player\entity,0,40
	ExtractAnimSeq Player\entity,41,60
	Player\campiv=CreatePivot(Player\entity);Camera pivot erstellen
	Player\Cam=CreateCamera(Player\campiv);Camera erstellen
	Player\shot_piv=CreatePivot();Pivot für die schüsse
	PositionEntity Player\Cam,0,5,-10;Camera positionieren
	PositionEntity Player\entity,Player_start[0],Player_start[1],Player_start[2];Spieler positionieren