Graphics3D 800,600
Tram=CreateCube()
MoveEntity tram, 0,1,0


Camera=CreateCamera(Tram)
CameraFogMode camera,1
CameraFogColor Camera,255,255,255
CameraFogRange Camera,1,300


;Zufalls_Landschaft:
SeedRnd 12345

Boden=CreatePlane()
EntityColor boden,115,115,115
Himmel=CreateSphere(32)
FlipMesh himmel
ScaleEntity Himmel,800,99,800
EntityColor himmel,0,0,255
MoveEntity himmel,0,0,00
For i=0 To 99
	b=CreateCube()
	ScaleEntity b, Rand(4),Rand(8),Rand(4)
	EntityColor b,Rand(255),Rand(255),Rand(255)
	MoveEntity b,100-Rand(200),0,100-Rand(200)
Next
Licht=CreateLight()
TurnEntity licht, 0,90,0
MoveEntity licht,-30,30,30
Startpunkt=CreateCylinder()
ScaleEntity Startpunkt,1,200,1
MoveEntity StartPunkt, -3,0,0
Fahrstrecke#=-20
MoveEntity tram,0,0,-20


Repeat
	RenderWorld()
	Text 10,20, "Weg:" + Int(FahrStrecke#)
	Text 10,40, "Himmelsrichtung:" + Int(Winkel#)
	Text 10,60, "Position-X:" + Int(EntityX(Tram))
	Text 10,80, "Position-Y:" + Int(EntityZ(Tram))
	Text 10,100, "Abschnitt:" + Int(Abschnitt)
	Text 10,550, "Press P for PAUSE"
	Flip 0

For i=0 To 9
	MoveEntity Tram,0,0,.01
	FahrStrecke#=FahrStrecke+.01


	If Fahrstrecke>12 And Abschnitt=0 Then
		Abschnitt=1
	ElseIf Fahrstrecke>60 And Abschnitt=2 Then
		Abschnitt=3
	ElseIf Fahrstrecke>86 And Abschnitt=4 Then
		Abschnitt=5
	ElseIf Fahrstrecke>160 And Abschnitt=6 Then
		Abschnitt=7
	ElseIf Fahrstrecke>188 And Abschnitt=8 Then
		Abschnitt=9
	ElseIf Fahrstrecke>235 And Abschnitt=10 Then
		Abschnitt=11
	Else
		
	EndIf
	
	If Abschnitt=1 Then
		If Winkel#<82 Then
			TurnEntity tram,0,.03,0
		Else
			Abschnitt=2
		EndIf
	ElseIf Abschnitt=3 Then
		If (Winkel#>0) And (Winkel<83) Then
			TurnEntity tram,0,-.05,0
		Else
			Abschnitt=4
		EndIf
	ElseIf Abschnitt=5 Then
		If Winkel#>270 Then
			TurnEntity tram,0,-.05,0
		Else
			Abschnitt=6
		EndIf
	ElseIf Abschnitt=7 Then
		If Winkel#>125 Then
			TurnEntity tram,0,-.05,0
		Else
			Abschnitt=8
		EndIf
	ElseIf Abschnitt=9 Then
		If Winkel#<180 Then
			TurnEntity tram,0,0.1,0
		Else
			Abschnitt=10
		EndIf
	ElseIf Abschnitt=11 Then
		If Winkel#>1 Then
			TurnEntity tram,0,-0.045,0
		Else
			PositionEntity Tram,0,1,0
			RotateEntity Tram,0,0,0			
			FahrStrecke=0
			Abschnitt=0
		EndIf
	Else
	
	EndIf

	winkel=(EntityYaw(tram)+360) Mod 360
Next
	
	If KeyHit(25) Then 
		If Stopp=0 Then
			FlushKeys()
			Stopp=1
			WaitKey()
		Else
			Stopp=0
		EndIf
	EndIf 
Until KeyHit(1)

Graphics3D 800,800


camera=CreateCamera()
MoveEntity camera, -60,60,0
TurnEntity camera, 90,0,0
AmbientLight 255,255,255
tram=CreateCube()
tram2=CreateCube()
tram3=CreateCube()
tram4=CreateCube()
EntityColor tram4,255,0,0

Global a#=1
Global w#=1
Global b#=1

Repeat
	MoveEntity tram,0,0,a
	TurnEntity tram,0,w,0

	MoveEntity tram2,0,0,a/2
	TurnEntity tram2,0,w/2,0

	MoveEntity tram3,0,0,a/7
	TurnEntity tram3,0,w/7,0

	MoveEntity tram4,0,0,b/7
	TurnEntity tram4,0,b/7,0

	RenderWorld
	Text 100,100, "Press A or Q to change Speed of red tram!  Speed="+b
	If KeyDown(16) Then
		b=b*1.01
	ElseIf KeyDown(30) Then
		b=b/1.01
	EndIf	
	Flip
	
Until KeyHit(1)