;Text3D made by AMY
;Text3D wandelt einen beliebigen Text in ein Mesh um

Graphics3D 800,600,32,2
camera=CreateCamera()
camlight=CreateLight(2,camera)
UnpackFiles("Signs.pack")

TestLine$="^1234567890ß#'?=)(/&%$§"+Chr(34)+"!°@²³{[]}\+~*-_.:,;µqwertzuiopasdfghjklyxcvbnmQWERTZUIOPASDFGHJKLYXCVBNM><|"

TL1=Create3DText(TestLine,0,4,5,2.3)
TL2=Create3DText("Welcome to 3D-Text",0,0,5,0.2)
TL3=Create3DText("3D-Text is presented by AMY from AMYsCBI",0,-4,5,0.2)
TL4=Create3DText("AMYsCBI wants to be a Trademark of AMY",0,-6,5,0.2)

Repeat
Movement(camera)
RenderWorld
Text 0,0,"Pos: "+EntityX(camera)+","+EntityY(camera)+","+EntityZ(camera)
Text 0,13,"Tris: "+TrisRendered()
If KeyHit(3) Then WFMode=1-WFMode
WireFrame WFMode
Flip
Until KeyHit(1)
CleanUp

Function Create3DText(TextString$,X,Y,Z,Abstand#)
TextMesh=CreateMesh()
Local Position#
For I=1 To Len(TextString)
	Select Mid(TextString,I,1)
		Case "A"
			Letter=LoadMesh("Big\a.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "B"
			Letter=LoadMesh("Big\b.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "C"
			Letter=LoadMesh("Big\c.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "D"
			Letter=LoadMesh("Big\d.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "E"
			Letter=LoadMesh("Big\e.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "F"
			Letter=LoadMesh("Big\f.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "G"
			Letter=LoadMesh("Big\g.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "H"
			Letter=LoadMesh("Big\h.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "I"
			Letter=LoadMesh("Big\i.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand+0.5
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "J"
			Letter=LoadMesh("Big\j.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "K"
			Letter=LoadMesh("Big\k.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "L"
			Letter=LoadMesh("Big\l.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "M"
			Letter=LoadMesh("Big\m.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "N"
			Letter=LoadMesh("Big\n.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "O"
			Letter=LoadMesh("Big\o.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "P"
			Letter=LoadMesh("Big\p.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "Q"
			Letter=LoadMesh("Big\q.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "R"
			Letter=LoadMesh("Big\r.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "S"
			Letter=LoadMesh("Big\s.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "T"
			Letter=LoadMesh("Big\t.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "U"
			Letter=LoadMesh("Big\u.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand-0.2
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "V"
			Letter=LoadMesh("Big\v.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "W"
			Letter=LoadMesh("Big\w.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand-0.3
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "X"
			Letter=LoadMesh("Big\x.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "Y"
			Letter=LoadMesh("Big\y.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "Z"
			Letter=LoadMesh("Big\z.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "a"
			Letter=LoadMesh("Small\a.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "b"
			Letter=LoadMesh("Small\b.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "c"
			Letter=LoadMesh("Small\c.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "d"
			Letter=LoadMesh("Small\d.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "e"
			Letter=LoadMesh("Small\e.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand-0.3
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "f"
			Letter=LoadMesh("Small\f.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "g"
			Letter=LoadMesh("Small\g.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "h"
			Letter=LoadMesh("Small\h.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "i"
			Letter=LoadMesh("Small\i.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand+0.3
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "j"
			Letter=LoadMesh("Small\j.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "k"
			Letter=LoadMesh("Small\k.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "l"
			Letter=LoadMesh("Small\l.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand+0.3
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "m"
			Letter=LoadMesh("Small\m.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "n"
			Letter=LoadMesh("Small\n.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "o"
			Letter=LoadMesh("Small\o.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "p"
			Letter=LoadMesh("Small\p.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "q"
			Letter=LoadMesh("Small\q.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "r"
			Letter=LoadMesh("Small\r.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "s"
			Letter=LoadMesh("Small\s.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "t"
			Letter=LoadMesh("Small\t.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "u"
			Letter=LoadMesh("Small\u.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand-0.2
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "v"
			Letter=LoadMesh("Small\v.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "w"
			Letter=LoadMesh("Small\w.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand-0.3
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "x"
			Letter=LoadMesh("Small\x.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "y"
			Letter=LoadMesh("Small\y.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "z"
			Letter=LoadMesh("Small\z.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "0"
			Letter=LoadMesh("Signs\0.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "1"
			Letter=LoadMesh("Signs\1.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "2"
			Letter=LoadMesh("Signs\2.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "3"
			Letter=LoadMesh("Signs\3.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "4"
			Letter=LoadMesh("Signs\4.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "5"
			Letter=LoadMesh("Signs\5.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "6"
			Letter=LoadMesh("Signs\6.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "7"
			Letter=LoadMesh("Signs\7.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "8"
			Letter=LoadMesh("Signs\8.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "9"
			Letter=LoadMesh("Signs\9.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "!"
			Letter=LoadMesh("Signs\!.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case Chr(34)
			Letter=LoadMesh("Signs\doublequote.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "§"
			Letter=LoadMesh("Signs\§.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "$"
			Letter=LoadMesh("Signs\$.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "%"
			Letter=LoadMesh("Signs\%.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "&"
			Letter=LoadMesh("Signs\&.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "/"
			Letter=LoadMesh("Signs\slash.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "("
			Letter=LoadMesh("Signs\(.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ")"
			Letter=LoadMesh("Signs\).3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "="
			Letter=LoadMesh("Signs\=.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "?"
			Letter=LoadMesh("Signs\QuestionSign.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "'","´","`"
			Letter=LoadMesh("Signs\'.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "²"
			Letter=LoadMesh("Signs\².3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "³"
			Letter=LoadMesh("Signs\³.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "#"
			Letter=LoadMesh("Signs\#.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "+"
			Letter=LoadMesh("Signs\+.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "*"
			Letter=LoadMesh("Signs\star.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "~"
			Letter=LoadMesh("Signs\~.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "µ"
			Letter=LoadMesh("Signs\µ.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "°"
			Letter=LoadMesh("Signs\°.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ","
			Letter=LoadMesh("Signs\,.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "("
			Letter=LoadMesh("Signs\(.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ")"
			Letter=LoadMesh("Signs\).3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "-"
			Letter=LoadMesh("Signs\-.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ";"
			Letter=LoadMesh("Signs\;.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "."
			Letter=LoadMesh("Signs\Point.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ":"
			Letter=LoadMesh("Signs\DoublePoint.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "ß"
			Letter=LoadMesh("Signs\ß.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "|"
			Letter=LoadMesh("Signs\Line.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "\"
			Letter=LoadMesh("Signs\backslash.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "<"
			Letter=LoadMesh("Signs\arrowleft.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case ">"
			Letter=LoadMesh("Signs\arrowright.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "_"
			Letter=LoadMesh("Signs\_.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "@"
			Letter=LoadMesh("Signs\@.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "^"
			Letter=LoadMesh("Signs\^.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "{"
			Letter=LoadMesh("Signs\{.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "}"
			Letter=LoadMesh("Signs\}.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "["
			Letter=LoadMesh("Signs\[.3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Case "]"
			Letter=LoadMesh("Signs\].3ds")
			PositionMesh Letter,X+Position,Y,Z
			Position=Position+MeshWidth(Letter)+Abstand
			AddMesh Letter,TextMesh
			FreeEntity Letter
		Default
			Position=Position+.5+Abstand
	End Select
Next
Return TextMesh
End Function
Function Movement(camera)
  mspeedx=MouseXSpeed()
  mspeedy=MouseYSpeed()
  msensivityX#=mspeedx/2
  msensivityY#=mspeedy/2
If mspeedy<>0 Then TurnEntity camera,msensivityy,0 ,0
If mspeedx<>0 Then TurnEntity camera,0,-msensivityX,0
  If KeyDown(54) Then movespeed#=.1 Else movespeed=.3
  If KeyDown(32)=True Then MoveEntity camera, movespeed, 0, 0;205
  If KeyDown(30)=True Then MoveEntity camera,-movespeed, 0, 0;203
  If KeyDown(201)=True Then MoveEntity camera, 0, movespeed, 0;201
  If KeyDown(209)=True Then MoveEntity camera, 0,-movespeed, 0;209
  If KeyDown(31)=True Then MoveEntity camera, 0, 0,-movespeed;208
  If KeyDown(17)=True Then MoveEntity camera, 0, 0, movespeed;200
  MoveMouse 512,384
End Function
Function UnpackFiles(Archive$)
ArchFile=ReadFile(Archive)
Repeat
CompressedFileName$=ReadLine(ArchFile)
CompressedFileDir$=GetFilePathFromString(CompressedFileName)
If FileType(CompressedFileDir$)=0 Then CreateDir CompressedFileDir$
UnpackedFile=WriteFile(CompressedFileName)
CompressedFileSize=ReadLine(ArchFile)
For I=1 To CompressedFileSize
	WriteByte UnpackedFile,ReadByte(ArchFile)
Next
CloseFile(UnpackedFile)
Until Eof(ArchFile)
End Function
Function GetFilenameFromString$(Path$)
Repeat
	BackUpP=P+1
	P=Instr(Path,"\",BackUpP)
Until P=0
Filename$=Mid$(Path,BackUpP)
Return filename
End Function
Function GetFilepathFromString$(Path$)
Repeat
	BackUpP=P+1
	P=Instr(Path,"\",BackUpP)
Until P=0
BackUpP=BackUpP-1
Filepath$=Left$(Path,BackUpP)
Return Filepath$
End Function
Function CleanUp()
If FileType("Big")=2 Then
	ID=ReadDir("Big")
	Repeat
		File$=NextFile(ID)
		If File="" Then Exit
		If FileType("Big\"+File)=1 Then DeleteFile "Big\"+File
	Forever
	CloseDir(ID)
	DeleteDir "Big"
EndIf
If FileType("Small")=2 Then
	ID=ReadDir("Small")
	Repeat
		File$=NextFile(ID)
		If File="" Then Exit
		If FileType("Small\"+File)=1 Then DeleteFile "Small\"+File
	Forever
	CloseDir(ID)
	DeleteDir "Small"
EndIf
If FileType("Signs")=2 Then
	ID=ReadDir("Signs")
	Repeat
		File$=NextFile(ID)
		If File="" Then Exit
		If FileType("Signs\"+File)=1 Then DeleteFile "Signs\"+File
	Forever
	CloseDir(ID)
	DeleteDir "Signs"
EndIf
End Function
;