16-Bit Streifen
Übersicht
BlitzBasic Beginners-Corner
|
Devils ChildBetreff: 16-Bit Streifen |
 Mi, Jun 08, 2005 15:59Antworten mit Zitat 
|
|---|---|---|
|
hi!
ich hab folgendes prob! ich hab ne map, die unter 32 bit nit läuft, weil die texturen so viel speicher fressen. blubb, dann hab ichs halt im 16 bit modus laufen, nur da sind so abartig hässliche streifen, ihr kennt das doch alle 
die camerarange kann ich nicht unendlich hochschrauben, als wat nu? |
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Klaas |
Mi, Jun 08, 2005 16:24 Antworten mit Zitat
|
|
|---|---|---|
|
was haben die Streifen mit der CameraRange zu tun?
Warum machst du die Texturen nicht kleiner? |
||
|
|
Devils Child |
Mi, Jun 08, 2005 16:33 Antworten mit Zitat
|
|---|---|---|
|
Klaas hat Folgendes geschrieben: was haben die Streifen mit der CameraRange zu tun?
Warum machst du die Texturen nicht kleiner? ... dan tu dochmal in deinen spielen camerarange cam, .00001, 10000000 rein, und du wirst sehen. und die texturen sind bereits klein. lass solche unsinnigen beiträge in zukunft bleinen 
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Klaas |
Mi, Jun 08, 2005 16:36 Antworten mit Zitat
|
|
|---|---|---|
|
Zitat: ... dan tu dochmal in deinen spielen camerarange cam, .00001, 10000000 rein
warum sollte man sowas tun? Das is ja die Performancebremse schlechthin. |
||
|
|
Devils Child |
Mi, Jun 08, 2005 16:38 Antworten mit Zitat
|
|---|---|---|
|
probiers doch mal, dann siehst du die fehlerhafte tiefenberechnung des w-/z-buffers. nur ich MUSS eine camerarange von .3, 1000 reintun und KANN NICHT eine von 100, 1000 reintun.
kann mir mal irgendein anderer helfen? klaas scheint nur ärger zu suchen 
und klaas: wenn du keine ahnung vom programmieren hast, dann geh gefälligst in dei beginners-corner 
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Dreamora |
Mi, Jun 08, 2005 18:22 Antworten mit Zitat
|
|
|---|---|---|
|
Er hat schon recht:
Wenn deine Grafikkarte echt derart wenig speicher hat, dass du auf 16 statt 32 Bit runter musst, dann kannst du gegen die Streifen nur bedingt etwas machen, da sie einfach von der Farbtiefe her kommen. Dither ist eigentlich das einzige, aber das aktiviert Blitz bereits automatisch im 16Bit modus ... Es wäre also besser, wenn du einfach kleinere 32Bit texturen nimmst. Am Rande: Hast du eventuell alle mit der 256er flag geladen? Wenn ja: nicht machen, wenn es dafür keinen wirklichen Grund gibt |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
BIG BUG |
Mi, Jun 08, 2005 20:59 Antworten mit Zitat
|
|
|---|---|---|
|
~EDITIERT~ Keine Beschimpfungen! Dreamora |
||
|
B3D-Exporter für Cinema4D!(V1.4)
MD2-Exporter für Cinema4D!(final) |
||
|
|
Devils Child |
Mi, Jun 08, 2005 21:18 Antworten mit Zitat
|
|---|---|---|
| was ist eine 256 flag? | ||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Dreamora |
Mi, Jun 08, 2005 21:21 Antworten mit Zitat
|
|
|---|---|---|
| 256 ist die VRAM Ladeflag. Wenn diese nicht benutzt wird, kannst du eigentlich garnicht zuwenig Grafikspeicher haben, da Blitz dann die Texturen im SystemRAM parkt bis sie gebraucht werden ... | ||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
|
|
Devils Child |
Mi, Jun 08, 2005 21:51 Antworten mit Zitat
|
|---|---|---|
| was auch immer das is...wie kann ich es de-aktivieren? | ||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Dreamora |
Mi, Jun 08, 2005 22:05 Antworten mit Zitat
|
|
|---|---|---|
| Schau in der Hilfe nach wie das mit den Ladeflags funktioniert (loadtexture). Aber da du nicht zu wissen scheinst, wie sie gehen, kannst du sie auch nicht aktiviert haben. | ||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
|
|
Devils Child |
Mi, Jun 08, 2005 22:20 Antworten mit Zitat
|
|---|---|---|
|
naja gut, ich muss jetztt pennen gehen, und guck es mir morgen an, ok.
ach und noch was: wenn diese ladeflag nit aktiviert ist, wie kommt es dann, dass bei meine gforce4 bei 2600 mhz es so ruckelt(hab mein schulgelände geproggt, is also ziemlich groß )
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Dreamora |
Mi, Jun 08, 2005 22:46 Antworten mit Zitat
|
|
|---|---|---|
|
Eventuell zu viele Objekte oder zu viele Surfaces (verschiedene Texturen).
Das lässt sich ohne Source Code und eventuell infos über die verwendeten Medien nicht wirklich sagen. |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
Dreamora |
Mi, Jun 08, 2005 23:19 Antworten mit Zitat
|
|
|---|---|---|
|
~VERSCHOBEN~ Gehört eher hier her Dreamora ~DELETED~ Posting von Klaas. Wenn du ich gerne besser fühlen möchtest, dann such dir bitte ein Hobby. Das ist hier keine Schulklasse sprich gedisst wird nicht! Dreamora |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
|
|
Devils Child |
Do, Jun 09, 2005 14:16 Antworten mit Zitat
|
|---|---|---|
|
ok, dreamora
hier sind infos: ich hab einfach geschrieben: wand=createcube() baumstamm=createcylinder() .... ... .. . und das 400 mal untereinander
dazu texturen, scharf(150 stück ungefähr) gut...ich weiss dasi ist nicht grad ne methode, aber scream3d funtzt net. alo, mein schulhof hat 12.000 polys, dazu 2 meshes mit je 10.000 polys machen also 32.000 polys. kanns du mit helfen, BITTE 
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Dreamora |
Do, Jun 09, 2005 14:21 Antworten mit Zitat
|
|
|---|---|---|
|
Definitiv zu viele Texturen
10-20 Texturen + Lightmaps ist das maximum das man für einen normalen Level braucht. |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
fliege |
Do, Jun 09, 2005 14:51 Antworten mit Zitat
|
|
|---|---|---|
|
Hast du denn outdoor sowei indoor textur auf inmal geladen? Wenn ja, dann teil das doch mal in zwei oder mehrere Bereiche...Wenn du draußen bist, kannst du nicht durch die Glasschweiben durchsehen, und wenn du drinnen bist kannst du nicht nach außen sehen. Damit könntest du sehr viel speicher sparen, insofern du outdoor und indoor benutzt
Hoffe, es hilft dir, Fliege |
||
| Wer weiß was kommt.. ? | ||
|
|
Devils Child |
Do, Jun 09, 2005 14:55 Antworten mit Zitat
|
|---|---|---|
| ich habe NUR outdor bereiche: fakt is man kann meinen schulhof nuit in bereiche aufteilen, und ich brauche nunmal 150-200 texturen... | ||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
|
Jan_Ehemaliger Admin |
Do, Jun 09, 2005 15:24 Antworten mit Zitat
|
|---|---|---|
| gib aml die medien und den Code zum Testen! | ||
| between angels and insects | ||
|
|
Devils Child |
Do, Jun 09, 2005 15:34 Antworten mit Zitat
|
|---|---|---|
|
ok, hier:
[code:1:c3780bc933]Graphics3D 800, 600, 16, 1 SetBuffer BackBuffer() SeedRnd MilliSecs() Dither True WBuffer False HidePointer AmbientLight 255, 255, 255 Font1 = LoadFont("Arial Black", GraphicsHeight() / 20, True, False, False) Font2 = LoadFont("Arial Black", GraphicsHeight() / 30, False, False, False) Font3 = LoadFont("Arial Black", GraphicsHeight() / 40, False, False, False) ;Map ShowLoadingText("SchulHof"): Gosub SchulHof ShowLoadingText("Insel"): Gosub Insel ShowLoadingText("Trakt0"): Gosub Trakt0 ShowLoadingText("Trakt1"): Gosub Trakt1 ShowLoadingText("Trakt2"): Gosub Trakt2 ShowLoadingText("Trakt3"): Gosub Trakt3 ShowLoadingText("KleineSportHalle"): Gosub KleineSportHalle ShowLoadingText("GangZwischenTrakt0Und1"): Gosub GangZwischenTrakt0Und1 ShowLoadingText("GangZwischenTrakt1Und2"): Gosub GangZwischenTrakt1Und2 ShowLoadingText("GangZwischenTrakt2Und3"): Gosub GangZwischenTrakt2Und3 ShowLoadingText("HofZwischenTrakt1Und2"): Gosub HofZwischenTrakt1Und2 ShowLoadingText("HofZwischenTrakt2Und3"): Gosub HofZwischenTrakt2Und3 ShowLoadingText("FahhradHof"): Gosub FahrradHof ShowLoadingText("ÖkoHaus"): Gosub Oekohaus ShowLoadingText("Aula"): Gosub Aula ShowLoadingText("GruenesKlassenZimmer"): Gosub GruenesKlassenZimmer ;SkyBox SkyBox = CreateMesh() Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_FR.bmp", 49)): AddVertex Surf, -1, 1, -1, 0, 0: AddVertex Surf, 1, 1, -1, 1, 0: AddVertex Surf, 1, -1, -1, 1, 1: AddVertex Surf, -1, -1, -1, 0, 1: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_BK.bmp", 49)): AddVertex Surf, 1, 1, 1, 0, 0: AddVertex Surf, -1, 1, 1, 1, 0: AddVertex Surf, -1, -1, 1, 1, 1: AddVertex Surf, 1, -1, 1, 0, 1: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_LF.bmp", 49)): AddVertex Surf, 1, 1, -1, 0, 0: AddVertex Surf, 1, 1, 1, 1, 0: AddVertex Surf, 1, -1, 1, 1, 1: AddVertex Surf, 1, -1, -1, 0, 1: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_RT.bmp", 49)): AddVertex Surf, -1, 1, 1, 0, 0: AddVertex Surf, -1, 1, -1, 1, 0: AddVertex Surf, -1, -1, -1, 1, 1: AddVertex Surf, -1, -1, 1, 0, 1: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_UP.bmp", 49)): AddVertex Surf, -1, 1, 1, 0, 1: AddVertex Surf, 1, 1, 1, 0, 0: AddVertex Surf, 1, 1, -1, 1, 0: AddVertex Surf, -1, 1, -1, 1, 1: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 Surf = CreateSurface(SkyBox, LoadBrush("Textures\Else\Sky_DN.bmp", 49)): AddVertex Surf, -1, -1, -1, 1, 0: AddVertex Surf, 1, -1, -1, 1, 1: AddVertex Surf, 1, -1, 1, 0, 1: AddVertex Surf, -1, -1, 1, 0, 0: AddTriangle Surf, 0, 1, 2: AddTriangle Surf, 0, 2, 3 ScaleMesh SkyBox, 1000, 1000, 1000 FlipMesh SkyBox EntityOrder SkyBox, 999999 ;Camera Cam = CreateCamera() CameraRange Cam, 1, 1000000 EntityRadius Cam, 1.5 EntityType Cam, BODY ;Alles in den Hauptspeicher laden PositionEntity Cam, 0, 1000, 0 RotateEntity Cam, 90, 0, 0 RenderWorld PositionEntity Cam, 5, 5, 5 RotateEntity Cam, 0, 0, 0 ;Pivot Pivot = CreatePivot() ;Collisionen Const SCENE = 1 Const BODY = 2 Collisions BODY, SCENE, 2, 3 ;Configuration Cfg_Speed# = .5 fps = 1000 amb# = 0 WillEnd = False Repeat ;Camera bewegung For i = 1 To Int(100 / fps) If KeyDown(17) Or KeyDown(200) Then ZSpeed# = ZSpeed# + .05 If KeyDown(31) Or KeyDown(208) Then ZSpeed# = ZSpeed# - .05 If KeyDown(30) Or KeyDown(203) Then XSpeed# = XSpeed# - .05 If KeyDown(32) Or KeyDown(205) Then XSpeed# = XSpeed# + .05 XSpeed# = XSpeed# * .9 ZSpeed# = ZSpeed# * .9 MoveEntity Cam, XSpeed#, 0, ZSpeed# ;Mausbewegung xs# = (MouseXSpeed() - xs#) / 3 + xs# ys# = (MouseYSpeed() - ys#) / 3 + ys# TurnEntity Cam, ys#, 0, 0, 0 TurnEntity Cam, 0, -xs#, 0, 1 If EntityPitch(Cam) + y_speed# < -75 pitch = -75 flipped = True ElseIf EntityPitch(Cam) + y_speed# > 75 pitch = 75 fliped = True Else pitch = EntityPitch(Cam) + myspeed flipped = False EndIf If flipped Then RotateEntity Cam, pitch, EntityYaw(Cam) - MouseXSpeed(), 0 MoveMouse GraphicsWidth() / 2, GraphicsHeight() / 2 RotateEntity Cam, EntityPitch(Cam), EntityYaw(Cam), 0 ;getting light If amb# < 255 And WillEnd = False Then amb# = amb# + 1 AmbientLight amb, amb, amb EntityColor SkyBox, amb, amb, amb EndIf If KeyHit(1) And WillEnd = False Then WillEnd = True If WillEnd Then ;getting light away amb# = amb# - 1 AmbientLight amb, amb, amb EntityColor SkyBox, amb, amb, amb If amb# < 1 Then End SetFont Font1 Locate 350, 300: Print "Bye, bye." EndIf Next ;FPS time# = MilliSecs() If time# - oldtime# <> 0 Then fps = Int(1 / (time# - oldtime#) * 1000) If fps = 0 Then fps = 1 oldtime# = MilliSecs() ;SkyBox PositionEntity SkyBox, EntityX(Cam), EntityY(Cam), EntityZ(Cam) ;Render-System UpdateWorld RenderWorld Flip ;CameraPick CameraPick(Cam, GraphicsWidth() / 2, GraphicsHeight() / 2) PositionEntity Pivot, PickedX(), PickedY(), PickedZ() distance = Int(EntityDistance(Cam, Pivot)) If distance > 10000 Then dis$ = "---" Else dis$ = Str$(distance) ;Debug Line SetFont Font2 Color 255, 255, 255 Locate 1, 1 Print "CamPos = " + Int(EntityX(Cam)) + " " + Int(EntityY(Cam)) + " " + Int(EntityZ(Cam)) + " Angl = " + Int(EntityPitch(Cam)) + " " + Int(EntityYaw(Cam)) + " " + Int(EntityRoll(Cam)) Print "Resolution = " + GraphicsWidth() + "x" + GraphicsHeight() + " (" + (GraphicsWidth() * GraphicsHeight()) + " Pixel)" Print "PolygonsInView = " + TrisRendered() Print "Distance = " + dis$ Print "FPS = " + fps ;Copyrights SetFont Font1 For i = 1 To 10 a = i * 25.6 Color a, a, a Locate GraphicsWidth() / 30 + 1 + i, GraphicsHeight() - GraphicsHeight() / 10 + i: Print "School Camera Movement" Next SetFont Font3 Color 255, 255, 255 Locate GraphicsWidth() / 30, GraphicsHeight() / 1.03: Print "Copyright by Martin Fiser and Dietmar Herzberg 2004-2005. All rights reserved." Forever End ; ------------------------------------------------------------------------------------------- ; ------------------------------------- Functions ------------------------------------------- ; ------------------------------------------------------------------------------------------- .DeclareEntity EntityType Mesh, SCENE EntityPickMode Mesh, 2 Return Function CreateTreeCluster(xs, ys, zs, x, y, z) Mesh = CreateMesh() ClusterTex = LoadTexture("Textures\Else\Cluster.bmp", 4) For i = 1 To (xs + ys + zs) * 3 Mesh2 = CreateWall(False) RotateEntity Mesh2, Rand(1, 359), Rand(1, 359), Rand(1, 359) ScaleEntity Mesh2, 5, .001, 5 PositionEntity Mesh2, x + Rand(-xs, xs), y + Rand(-ys / 2, ys), z + Rand(-zs, zs) EntityTexture Mesh2, ClusterTex AddMesh Mesh2, Mesh Next Return Mesh End Function Function CreateWall(ds) Mesh = CreateMesh() Surf = CreateSurface(Mesh) v1 = AddVertex(Surf, -1, 0, 1, 1, 0) v2 = AddVertex(Surf, 1, 0, -1, 0, 1) v3 = AddVertex(Surf, -1, 0, -1, 0, 0) v4 = AddVertex(Surf, 1, 0, 1, 1, 1) tri1 = AddTriangle(Surf, v3, v1, v2) tri2 = AddTriangle(Surf, v4, v2, v1) If ds Then tri1 = AddTriangle(Surf, v3, v2, v1) tri2 = AddTriangle(Surf, v4, v1, v2) EndIf Return Mesh End Function Function ShowLoadingText(txt$) Print "Laden von: " + txt$ End Function ; ------------------------------------------------------------------------------------------- ; -------------------------------------- Entitys -------------------------------------------- ;-------------------------------------------------------------------------------------------- .Schulhof ;HauptBoden Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Hof\HauptBoden.jpg") ScaleTexture Textur, .02, .02 EntityTexture Mesh, Textur ScaleEntity Mesh, 100, .001, 90 PositionEntity Mesh, -6, 0, 59.5 Gosub DeclareEntity Return .Insel ;InselRand Mesh = CreateWall(False) Textur = LoadTexture ("Textures\School\Insel\Rand.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .03, .03 ScaleEntity Mesh, 17, .001, 14 PositionEntity Mesh, 0, .01, 0 Gosub DeclareEntity ;InselHauptBoden Textur = LoadTexture ("Textures\School\Insel\HauptBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .015, .01 ScaleEntity Mesh, 16.9, .001, 13.9 PositionEntity Mesh, 0, .02, 0 Gosub DeclareEntity ;InselErhebungsRand1 Textur = LoadTexture ("Textures\School\Insel\ErhebungsRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .15, 2.5 ScaleEntity Mesh, 6, .5, 6 PositionEntity Mesh, -4.5, .5, -.25 Gosub DeclareEntity ;InselErhebungsBoden1; Textur = LoadTexture ("Textures\School\Insel\ErhebungsBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, .1 ScaleEntity Mesh, 5.7, .001, 5.7 PositionEntity Mesh, -4.5, 1.03, -.25 Gosub DeclareEntity ;InselErhebungsRand2 Textur = LoadTexture ("Textures\School\Insel\ErhebungsRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .15, 2.5 ScaleEntity Mesh, 8, .2, 8 PositionEntity Mesh, 3, .2, -2.5 Gosub DeclareEntity ;InselErhebungsBoden2; Textur = LoadTexture ("Textures\School\Insel\ErhebungsBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .07, .07 ScaleEntity Mesh, 7.8, .001, 7.8 PositionEntity Mesh, 3, .403, -2.5 Gosub DeclareEntity ;InselErhebungsRand3 Textur = LoadTexture ("Textures\School\Insel\ErhebungsRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .15, 2.5 ScaleEntity Mesh, 6, .17, 8 PositionEntity Mesh, 1, .22, 4 Gosub DeclareEntity ;InselErhebungsBoden3 Textur = LoadTexture ("Textures\School\Insel\ErhebungsBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, .15 ScaleEntity Mesh, 5.7, .001, 3.7 PositionEntity Mesh, 1, .42, 8 Gosub DeclareEntity ;GulliDeckel1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture ("Textures\School\Insel\GulliDeckel.jpg") ScaleEntity Mesh, .25, .001, .25 PositionEntity Mesh, 15.7, .05, 8 Gosub DeclareEntity ;GulliDeckel2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture ("Textures\School\Insel\GulliDeckel.jpg") ScaleEntity Mesh, .25, .001, .25 PositionEntity Mesh, -7.5, .05, 7.5 Gosub DeclareEntity ;BaumStamm1 Textur = LoadTexture ("Textures\School\Insel\BaumStamm.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, .5, 4, .5 PositionEntity Mesh, -3.5, 4, .7 Gosub DeclareEntity ;BaumKrone1 Mesh = CreateTreeCluster(5, 5, 5, -3.5, 11, .7) Gosub DeclareEntity ;SitzBank1 Textur = LoadTexture ("Textures\School\Insel\SitzBank.bmp") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, 1.6, .05, 1.6 PositionEntity Mesh, -3.5, 1.8, .7 Gosub DeclareEntity ;BaumStamm2 Textur = LoadTexture ("Textures\School\Insel\BaumStamm.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, .4, 5, .4 PositionEntity Mesh, 4, 5, 1 Gosub DeclareEntity Mesh = CreateTreeCluster(4, 5, 6, 4, 12, 1) Gosub DeclareEntity ;SitzBank2 Textur = LoadTexture ("Textures\School\Insel\SitzBank.bmp") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, 1.6, .05, 1.6 PositionEntity Mesh, 4, 1.3, 1 Gosub DeclareEntity ;BaumStamm3 Textur = LoadTexture ("Textures\School\Insel\BaumStamm.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, .5, 5, .5 PositionEntity Mesh, 5.5, 5, -3.5 Gosub DeclareEntity Mesh = CreateTreeCluster(5, 5, 7, 5.5, 11.5, -3.5) Gosub DeclareEntity ;SitzBank3 Textur = LoadTexture ("Textures\School\Insel\SitzBank.bmp") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, 1.6, .05, 1.6 PositionEntity Mesh, 5.5, 1.3, -3.5 Gosub DeclareEntity ;BaumStamm4 Textur = LoadTexture ("Textures\School\Insel\BaumStamm.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, .5, 5, .5 PositionEntity Mesh, 0, 5, 9 Gosub DeclareEntity Mesh = CreateTreeCluster(4, 5, 4.5, 0, 10.5, 9) Gosub DeclareEntity ;SitzBank4 Textur = LoadTexture ("Textures\School\Insel\SitzBank.bmp") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleEntity Mesh, 1.6, .05, 1.6 PositionEntity Mesh, 0, 1.3, 9 Gosub DeclareEntity Return .Trakt0 ;EingangsTürWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\EingangsTürWand.jpg") ScaleEntity Mesh, 12, .001, 7.5 PositionEntity Mesh, -62.5, 12, -38 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;KleineSeitenWand1 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\KleineSeitenWand1.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .25, 1 ScaleEntity Mesh, 12, .001, 7.5 PositionEntity Mesh, -62.5, 12, -53 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;KleineSeitenWand2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleineSeitenWand2.jpg") ScaleEntity Mesh, 12, .001, 7.5 PositionEntity Mesh, -82.5, 12, -53 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;HauptSeitenWand1 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\HauptSeitenWand1.jpg") ScaleTexture Textur, .04, 1 EntityTexture Mesh, Textur ScaleEntity Mesh, 12, .001, 58 PositionEntity Mesh, -62.5, 12, 27.5 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;HauptSeitenWand2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\HauptSeitenWand2.jpg") ScaleTexture Textur, .1, 1 EntityTexture Mesh, Textur ScaleEntity Mesh, 12, .001, 54.5 PositionEntity Mesh, -82.5, 12, 31 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Hintere Mauer1 Mesh = CreateCube() Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, 11, 12, .5 PositionEntity Mesh, -72.5, 12, -61 Gosub DeclareEntity ;Hintere Mauer2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .045, .03 ScaleEntity Mesh, 12, .001, 11 PositionEntity Mesh, -72.5, 12, -61.51 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;Vordere Mauer1 Mesh = CreateCube() Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, 11, 12, .5 PositionEntity Mesh, -72.5, 12, 86 Gosub DeclareEntity ;Vordere Mauer2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .045, .03 ScaleEntity Mesh, 12, .001, 11 PositionEntity Mesh, -72.5, 12, 86.51 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -77.5, 20, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -77.5, 18, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten3 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -77.5, 16, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten4 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -79.5, 20, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten5 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -79.5, 18, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesFensterHinten6 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\KleinesFensterHinten.jpg") ScaleEntity Mesh, .3, .001, .3 PositionEntity Mesh, -79.5, 16, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;Ausbuchtung_Seite1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\Ausbuchtung_Seite1.jpg") ScaleEntity Mesh, 12, .001, 3 PositionEntity Mesh, -85.5, 12, -23.5 RotateEntity Mesh, 180, -90, 90 Gosub DeclareEntity ;Ausbuchtung_Vorne Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\Ausbuchtung_Vorne.jpg") ScaleEntity Mesh, 12, .001, 3 PositionEntity Mesh, -88.5, 12, -26.5 RotateEntity Mesh, 180, 0, 90 Gosub DeclareEntity ;Ausbuchtung_Seite2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\Ausbuchtung_Seite2.jpg") ScaleEntity Mesh, 12, .001, 3 PositionEntity Mesh, -85.5, 12, -29.5 RotateEntity Mesh, 180, 90, 90 Gosub DeclareEntity ;ZiegelWand1 Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, .5, 12, .5 PositionEntity Mesh, -62, 12, -30 Gosub DeclareEntity ;ZiegelWand2 Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, .5, 12, .5 PositionEntity Mesh, -62, 12, -45.5 Gosub DeclareEntity ;ZiegelWand3 Textur = LoadTexture("Textures\School\Trakt0\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, .5, 12, .5 PositionEntity Mesh, -83, 12, -45.5 Gosub DeclareEntity ;EingangsTürWand_Draußen Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\EingangsTürWand_Draußen.jpg") ScaleEntity Mesh, 12, .001, 8 PositionEntity Mesh, -82.5, 12, -37.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;ÜberDachung_Decke Mesh = CreateCube() Textur = LoadTexture("Textures\School\Trakt0\ÜberDachung_Decke.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .5 ScaleEntity Mesh, 4, .2, 6 PositionEntity Mesh, -86.5, 6, -39 Gosub DeclareEntity ;ÜberDachung_Dach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\Dach.bmp") EntityTexture Mesh, Textur ScaleTexture Textur, .3, .3 ScaleEntity Mesh, 4, .001, 6 PositionEntity Mesh, -86.5, 6.21, -39 Gosub DeclareEntity ;HauptDach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\Dach.bmp") EntityTexture Mesh, Textur ScaleTexture Textur, .07, .3 ScaleEntity Mesh, 10, .001, 73 PositionEntity Mesh, -72.5, 24, 12.5 Gosub DeclareEntity ;Ausbuchtung_Dach Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\Dach.bmp") ScaleEntity Mesh, 3, .001, 3 PositionEntity Mesh, -85.5, 24, -26.5 Gosub DeclareEntity ;SchornStein_VordereUndHintereSeite Mesh = CreateCube() EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\SchornStein.jpg") ScaleEntity Mesh, 3, 1.5, 1 PositionEntity Mesh, -70, 25.5, 55 Gosub DeclareEntity ;SchornStein_RechteUndLinke Mesh = CreateCube() Textur = LoadTexture("Textures\School\Trakt0\SchornStein.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .3, 1 ScaleEntity Mesh, 2.99, 1.5, 1.01 PositionEntity Mesh, -70, 25.5, 55 Gosub DeclareEntity ;SchornStein_Dach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\Dach.bmp") EntityTexture Mesh, Textur ScaleTexture Textur, 2, 1 ScaleEntity Mesh, 2.99, .001, .99 PositionEntity Mesh, -70, 27.01, 55 Gosub DeclareEntity ;DirektorFenster Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt0\DirektorFenster.jpg") ScaleTexture Textur, .2, 1 EntityTexture Mesh, Textur ScaleEntity Mesh, 3.5, .001, 11 PositionEntity Mesh, -62.49, 3.5, 51 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;HintereTür Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\HintereTür.jpg") ScaleEntity Mesh, 3, .001, 3 PositionEntity Mesh, -77.5, 3, 86.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;Graffiti Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt0\Grafitti.jpg") ScaleEntity Mesh, 3.5, .001, 5.5 PositionEntity Mesh, -82.51, 3.5, 80 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity Return .Trakt1 ;EingangsTürWand1 Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .04 ScaleEntity Mesh, .5, 9, 5 PositionEntity Mesh, -20, 9, -35.5 Gosub DeclareEntity ;EingangsTürWand1(VorderSeite) Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .08, .04 ScaleEntity Mesh, 9, .001, 5 PositionEntity Mesh, -19.49, 9, -35.5 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;EingangsTür Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\EingangsTür.jpg") ScaleEntity Mesh, 2.7, .001, 2.5 PositionEntity Mesh, -19.48, 2.7, -35.5 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;HauptSeitenWand1 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt1\HauptSeitenWand1.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .25, 1 ScaleEntity Mesh, 9.5, .001, 36 PositionEntity Mesh, -20.5, 8.5, -76.5 RotateEntity Mesh, 180, 180, 90 Gosub DeclareEntity ;HauptSeitenWand2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt1\HauptSeitenWand2.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .15, 1 ScaleEntity Mesh, 7.5, .001, 32.01 PositionEntity Mesh, -43.49, 6.5, -72.5 RotateEntity Mesh, 180, 0, 90 Gosub DeclareEntity ;KleineWandVorne Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .07, .04 ScaleEntity Mesh, 9, .001, 8 PositionEntity Mesh, -27.5, 9, -30.49 RotateEntity Mesh, 180, -90, 90 Gosub DeclareEntity ;EingangsTürWand2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\EingangsTürWand2.jpg") ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, -43.49, 7, -35.49 RotateEntity Mesh, 180, 0, 90 Gosub DeclareEntity ;Hintere Wand(ZiegelWand)1 Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, 8.5, 9.5, .5 PositionEntity Mesh, -28, 8.5, -113 Gosub DeclareEntity ;Hintere Wand(ZiegelWand)2 Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .05, .03 ScaleEntity Mesh, 9.5, .001, 8.5 PositionEntity Mesh, -28, 8.5, -113.51 RotateEntity Mesh, 180, 90, 90 Gosub DeclareEntity ;HauptDach Textur = LoadTexture("Textures\School\Trakt1\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .15, .7 ScaleEntity Mesh, 7.5, .001, 41 PositionEntity Mesh, -28, 18, -71.5 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, -20, 8.5, -58 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, -20, 8.5, -76.5 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt1\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, -20, 8.5, -94.5 Gosub DeclareEntity ;KleineSeitenWand1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\KleineSeitenWand1.jpg") ScaleEntity Mesh, 7, .001, 5.5 PositionEntity Mesh, -25.5, 7, -25 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;KleineSeitenWand2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\KleineSeitenWand2.jpg") ScaleEntity Mesh, 7, .001, 5.5 PositionEntity Mesh, -43.5, 7, -25 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;WandVorne Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\WandVorne.jpg") ScaleEntity Mesh, 7, .001, 9 PositionEntity Mesh, -34.5, 7, -19.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesDach Textur = LoadTexture("Textures\School\Trakt1\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, 1 ScaleEntity Mesh, 9, .001, 42.5 PositionEntity Mesh, -34.5, 14, -62 Gosub DeclareEntity ;Erde(VorBoden) Textur = LoadTexture("Textures\School\Trakt1\Erde.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .2, .2 ScaleEntity Mesh, 11, .001, 4 PositionEntity Mesh, -34.5, .01, -21.5 Gosub DeclareEntity ;Hintere Ecke1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\HintereEcke1.jpg") ScaleEntity Mesh, 7.5, .001, 4 PositionEntity Mesh, -39.5, 6.5, -104.5 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;Hintere Ecke2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt1\HintereEcke2.jpg") ScaleEntity Mesh, 7.5, .001, 4 PositionEntity Mesh, -35.5, 6.5, -108.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;KleinesFenster Textur = LoadTexture("Textures\School\Trakt1\KleinesFenster.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .1 ScaleEntity Mesh, 41, .001, 2 PositionEntity Mesh, -35.5, 16, -71.5 RotateEntity Mesh, 90, 180, -90 Gosub DeclareEntity Return .Trakt2 ;WandVorne Textur = LoadTexture("Textures\School\Trakt2\WandVorne.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 7, .001, 8 PositionEntity Mesh, 24, 7, -20 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;Busch1 Textur = LoadTexture("Textures\School\Trakt2\Busch.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .1, .1 ScaleEntity Mesh, 7 , .5, 7 PositionEntity Mesh, 28, .5, -24 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;Busch2 Textur = LoadTexture("Textures\School\Trakt2\Busch.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .05, .1 ScaleEntity Mesh, 5.5, .5, 2.5 PositionEntity Mesh, 15.5, .5, -22 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BuschRand1 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .025, 1 ScaleEntity Mesh, .15, .7, 7 PositionEntity Mesh, 28, .7, -17 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BuschRand2 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .025, 1 ScaleEntity Mesh, .15, .7, 7 PositionEntity Mesh, 35, .7, -24 Gosub DeclareEntity ;BuschRand3 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .075, 1 ScaleEntity Mesh, .15, .7, 2.5 PositionEntity Mesh, 15.5, .7, -16.5 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BuschRand4 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .035, 1 ScaleEntity Mesh, .15, .7, 5.5 PositionEntity Mesh, 13, .7, -22 Gosub DeclareEntity ;BuschRand5 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .075, 1 ScaleEntity Mesh, .15, .7, 2 PositionEntity Mesh, 18, .7, -18.5 Gosub DeclareEntity ;BuschRand6 Textur = LoadTexture("Textures\School\Trakt2\BuschRand.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .07, 1 ScaleEntity Mesh, .15, .7, 2 PositionEntity Mesh, 21, .7, -19 Gosub DeclareEntity ;Kleine SeitenWand1 Textur = LoadTexture("Textures\School\Trakt2\KleineSeitenWand1.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 7, .001, 5.5 PositionEntity Mesh, 32, 7, -25.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;Kleine SeitenWand2 Textur = LoadTexture("Textures\School\Trakt2\KleineSeitenWand2.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 7, .001, 5.25 PositionEntity Mesh, 15.99, 7, -25.25 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Kleine Wand Vorne Textur = LoadTexture("Textures\School\Trakt2\KleineWandVorne.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 9, .001, 7 PositionEntity Mesh, 28, 9, -30.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;KleinesDach Textur = LoadTexture("Textures\School\Trakt2\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, 1 ScaleEntity Mesh, 8, .001, 43.75 PositionEntity Mesh, 24, 14, -63.75 Gosub DeclareEntity ;EingangsTürWand1 Textur = LoadTexture("Textures\School\Trakt2\EingangsTürWand1.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 9, .001, 5 PositionEntity Mesh, 35.01, 9, -35.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;EingangsTürWand2 Textur = LoadTexture("Textures\School\Trakt2\EingangsTürWand2.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, 15.99, 7, -35.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;ZiegelWand bei Eingangstür1 Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9, 4.99 PositionEntity Mesh, 34.5, 9, -35.5 Gosub DeclareEntity ;HauptSeitenWand1 Textur = LoadTexture("Textures\School\Trakt2\HauptSeitenWand1.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .25, 1 ScaleEntity Mesh, 9.5, .001, 36 PositionEntity Mesh, 34, 8.5, -76.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;HauptSeitenWand2 Textur = LoadTexture("Textures\School\Trakt2\HauptSeitenWand2.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .15, 1 ScaleEntity Mesh, 7.5, .001, 33.5 PositionEntity Mesh, 16, 6.5, -74 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 34.5, 8.5, -58 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 34.5, 8.5, -76.5 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 34.5, 8.5, -94.5 Gosub DeclareEntity ;Hintere Wand(ZiegelWand)1 Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, 7.5, 9.5, .5 PositionEntity Mesh, 27.5, 8.5, -113 Gosub DeclareEntity ;Hintere Wand(ZiegelWand)2 Textur = LoadTexture("Textures\School\Trakt2\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .05, .03 ScaleEntity Mesh, 9.5, .001, 7.5 PositionEntity Mesh, 27.5, 8.5, -113.51 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;HauptDach Textur = LoadTexture("Textures\School\Trakt2\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .15, .4 ScaleEntity Mesh, 6.5, .001, 41 PositionEntity Mesh, 27.5, 18, -71.5 Gosub DeclareEntity ;Hintere Ecke1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt2\HintereEcke1.jpg") ScaleEntity Mesh, 7.5, .001, 2.5 PositionEntity Mesh, 18.5, 6.5, -107.5 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;Hintere Ecke2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt2\HintereEcke2.jpg") ScaleEntity Mesh, 7.5, .001, 2.5 PositionEntity Mesh, 21, 6.5, -110 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;KleineFenster Textur = LoadTexture("Textures\School\Trakt2\KleinesFenster.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, 1 ScaleEntity Mesh, 2, .001, 41 PositionEntity Mesh, 21, 16, -71.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity Return .Trakt3 ;HauptSeitenWand1 Textur = LoadTexture("Textures\School\Trakt3\HauptSeitenWand1.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .25, 1 ScaleEntity Mesh, 9.5, .001, 36 PositionEntity Mesh, 94, 8.5, -70.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;HauptSeitenWand2 Textur = LoadTexture("Textures\School\Trakt3\HauptSeitenWand2.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .15, 1 ScaleEntity Mesh, 7.5, .001, 31 PositionEntity Mesh, 70, 6.5, -71.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Hintere Ecke1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\HintereEcke1.jpg") ScaleEntity Mesh, 7.5, .001, 2.5 PositionEntity Mesh, 72.5, 6.5, -102.5 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;Hintere Ecke2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\HintereEcke2.jpg") ScaleEntity Mesh, 7.5, .001, 2 PositionEntity Mesh, 75, 6.5, -104.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Hinterer EckenBoden Mesh = CreateCylinder() EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\Rand.jpg") ScaleEntity Mesh, 5, .2, 4 PositionEntity Mesh, 75, -.8, -102.5 Gosub DeclareEntity ;Hinterer EckenRasen Mesh = CreateCylinder() EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\Rasen.jpg") ScaleEntity Mesh, 4.7, .001, 3.7 PositionEntity Mesh, 75, -.59, -102.5 Gosub DeclareEntity ;Hintere Mauer Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .03 ScaleEntity Mesh, .5, 9.5, 10.5 PositionEntity Mesh, 84.5, 8.5, -106.5 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;Hintere Wand Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .045, .03 ScaleEntity Mesh, 9.5, .001, 10.5 PositionEntity Mesh, 84.5, 8.5, -107.01 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 94.5, 8.5, -52.5 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 94.5, 8.5, -71 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, .5 PositionEntity Mesh, 94.5, 8.5, -89 Gosub DeclareEntity ;EingangsTürWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\EingangsTürWand.jpg") ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, 70, 7, -35.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Kleine SeitenWand1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\KleineSeitenWand1.jpg") ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, 88, 7, -25.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;Kleine SeitenWand2 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\KleineSeitenWand2.jpg") ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, 70, 7, -25.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;Wand vorne Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\Trakt3\WandVorne.jpg") ScaleEntity Mesh, 7, .001, 9 PositionEntity Mesh, 79, 7, -20.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;Kleine Wand Vorne Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .06, .03 ScaleEntity Mesh, 9, .001, 9.5 PositionEntity Mesh, 84.5, 9, -30.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;ZiegelWand bei Trakt Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .5, .03 ScaleEntity Mesh, .5, 9.5, 2 PositionEntity Mesh, 94.5, 8.5, -32.5 Gosub DeclareEntity ;ZiegelWand bei Trakt(Deckwand) Textur = LoadTexture("Textures\School\Trakt3\Ziegel.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .15, .03 ScaleEntity Mesh, 9.5, .001, 2 PositionEntity Mesh, 95.01, 8.5, -32.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;KleinesDach Textur = LoadTexture("Textures\School\Trakt3\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .1 ScaleEntity Mesh, 41, .001, 9 PositionEntity Mesh, 79, 14, -61.5 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;HauptDach Textur = LoadTexture("Textures\School\Trakt3\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .6, .15 ScaleEntity Mesh, 38, .001, 9.5 PositionEntity Mesh, 84.5, 18, -68.5 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;HintererGang1 Textur = LoadTexture("Textures\School\Trakt3\HintererGangBoden.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, .05, .04 ScaleEntity Mesh, 8, .001, 7 PositionEntity Mesh, 75, -.99, -102.5 Gosub DeclareEntity ;HintererGang2 Textur = LoadTexture("Textures\School\Trakt3\HintererGangBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .25, .17 ScaleEntity Mesh, 1.5, .001, 2 PositionEntity Mesh, 68.5, -.98, -100.5 Gosub DeclareEntity ;HintererGang3 Textur = LoadTexture("Textures\School\Trakt3\HintererGangBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .2, .015 ScaleEntity Mesh, 10, .001, 1.25 PositionEntity Mesh, 85, -.98, -108.25 Gosub DeclareEntity ;HintererGang4 Textur = LoadTexture("Textures\School\Trakt3\HintererGangBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .2, .02 ScaleEntity Mesh, 7.5, .001, 1.25 PositionEntity Mesh, 99, -.97, -103.5 RotateEntity Mesh, 0, 45, 0 Gosub DeclareEntity ;KleineFenster Textur = LoadTexture("Textures\School\Trakt3\KleinesFenster.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, .1, 1 ScaleEntity Mesh, 2, .001, 38 PositionEntity Mesh, 75, 16, -68.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity Return .KleineSportHalle ;Gang_SeitenWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\Gang_SeintenWand.jpg") ScaleEntity Mesh, 3.5, .001, 13 PositionEntity Mesh, 107, 3.5, -34.51 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;HauptSeitenWand1 Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\HauptSeitenWand1.jpg") ScaleEntity Mesh, 11, .001, 27 PositionEntity Mesh, 144, 10, -16.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;HauptSeitenWand2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\HauptSeitenWand2.jpg") ScaleTexture Textur, .2, 1 EntityTexture Mesh, Textur ScaleEntity Mesh, 11, .001, 27 PositionEntity Mesh, 120, 10, -16.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;ZiegelWand hinten1 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Ziegel.jpg") ScaleTexture Textur, 1, .03 EntityTexture Mesh, Textur ScaleEntity Mesh, 13, 11, .5 PositionEntity Mesh, 132, 10, -44 Gosub DeclareEntity ;ZiegelWand hinten2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Ziegel.jpg") ScaleTexture Textur, .03, .03 EntityTexture Mesh, Textur ScaleEntity Mesh, 11, .001, 13 PositionEntity Mesh, 132, 10, -44.501 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;ZiegelWand vorne1 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Ziegel.jpg") ScaleTexture Textur, 1, .03 EntityTexture Mesh, Textur ScaleEntity Mesh, 13, 11, .5 PositionEntity Mesh, 132, 10, 11 Gosub DeclareEntity ;ZiegelWand vorne2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Ziegel.jpg") ScaleTexture Textur, .04, .03 EntityTexture Mesh, Textur ScaleEntity Mesh, 11, .001, 13 PositionEntity Mesh, 132, 10, 11.51 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;LüftungSchwimmbad Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\LüftungSchwimmbad.jpg") ScaleEntity Mesh, .6, .001, .5 PositionEntity Mesh, 141, 0, 11.52 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;HauptDach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Dach.bmp") ScaleTexture Textur, .3, .3 EntityTexture Mesh, Textur ScaleEntity Mesh, 12, .001, 27 PositionEntity Mesh, 132, 21, -16.5 Gosub DeclareEntity ;KleineSeitenWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\KleineSeitenWand.jpg") ScaleEntity Mesh, 4, .001, 4 PositionEntity Mesh, 140, 3, 15.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;Säule1 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Säule.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .5, 11, .5 PositionEntity Mesh, 144.5, 10, 1.5 Gosub DeclareEntity ;Säule2 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Säule.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .5, 11, .5 PositionEntity Mesh, 144.5, 10, -7.5 Gosub DeclareEntity ;Säule3 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Säule.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .5, 11, .5 PositionEntity Mesh, 144.5, 10, -16.5 Gosub DeclareEntity ;Säule4 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Säule.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .5, 11, .5 PositionEntity Mesh, 144.5, 10, -25.5 Gosub DeclareEntity ;Säule5 Mesh = CreateCube() Textur = LoadTexture("Textures\School\KleineSportHalle\Säule.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .5, 11, .5 PositionEntity Mesh, 144.5, 10, -34.5 Gosub DeclareEntity ;LüftungsTurm Mesh = CreateCube() EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\LüftungsTurm.jpg") ScaleEntity Mesh, .6, 2, .8 PositionEntity Mesh, 144.5, 1, 8.5 Gosub DeclareEntity ;LüftungsTurmVorne Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\LüftungsTurmVorne.jpg") ScaleEntity Mesh, 2, .001, .8 PositionEntity Mesh, 145.11, 1, 8.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;Gang_Rand1 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Gang_Rand1.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, .5, 1 ScaleEntity Mesh, .5, .001, 13 PositionEntity Mesh, 107, -.5, -35.5 RotateEntity Mesh, 0, -90, -90 Gosub DeclareEntity ;Gang_Rand2 Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Gang_Rand2.jpg") EntityTexture Mesh, Textur ScaleTexture Textur, 1, .12 ScaleEntity Mesh, 13, .001, .5 PositionEntity Mesh, 107, 0, -35 Gosub DeclareEntity ;SitzBank1 Mesh = CreateCube() EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\SitzBank.jpg") ScaleEntity Mesh, .5, .5, 6 PositionEntity Mesh, 150, -.5, 17.5 Gosub DeclareEntity ;SitzBank2 Mesh = CreateCube() EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\SitzBank.jpg") ScaleEntity Mesh, .5, .5, 4 PositionEntity Mesh, 145, -.5, 23.5 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;SitzBankBoden Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\Erde.bmp") ScaleEntity Mesh, 7, .001, 5 PositionEntity Mesh, 145, -.99, 16 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BaumStamm1 Mesh = CreateCylinder() EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\BaumStamm.jpg") ScaleEntity Mesh, .3, 2.5, .3 PositionEntity Mesh, 146, 1.5, 16 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BaumKrone1 Mesh = CreateTreeCluster(3, 5, 3.5, 146, 9, 16) Gosub DeclareEntity ;BaumStamm2 Mesh = CreateCylinder() EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\BaumStamm.jpg") ScaleEntity Mesh, .3, 2.5, .3 PositionEntity Mesh, 143, 1.5, 20 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;BaumKrone2 Mesh = CreateTreeCluster(3, 7, 3.5, 143, 9, 20) Gosub DeclareEntity ;Busch1 Mesh = CreateTreeCluster(1, 1, 2, 146, 0, 14) Gosub DeclareEntity ;EingangsWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\EingangsWand.jpg") ScaleEntity Mesh, 4, .001, 15 PositionEntity Mesh, 125, 3, 19.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;GroßeSeitenWand Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\GroßeSeitenWand.jpg") ScaleTexture Textur, .1, 1 EntityTexture Mesh, Textur ScaleEntity Mesh, 4, .001, 22 PositionEntity Mesh, 110, 3, -2.5 RotateEntity Mesh, 0, 180, -90 Gosub DeclareEntity ;KleinesDach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Dach.bmp") ScaleTexture Textur, .1, .1 EntityTexture Mesh, Textur ScaleEntity Mesh, 15, .001, 22 PositionEntity Mesh, 125, 7, -2.5 Gosub DeclareEntity ;KleineWandHinten Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\KleineWandHinten.jpg") ScaleEntity Mesh, 4, .001, 5 PositionEntity Mesh, 105, 3, -24.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;WandHinten Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\WandHinten.jpg") ScaleEntity Mesh, 4, .001, 2 PositionEntity Mesh, 100, 3, -22.5 RotateEntity Mesh, 0, 0, -90 Gosub DeclareEntity ;GraffityWand Mesh = CreateWall(False) EntityTexture Mesh, LoadTexture("Textures\School\KleineSportHalle\graffityWand.jpg") ScaleEntity Mesh, 4, .001, 6 PositionEntity Mesh, 94, 3, -20.5 RotateEntity Mesh, 0, 90, -90 Gosub DeclareEntity ;Gang_Dach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Dach.bmp") EntityTexture Mesh, Textur ScaleTexture Textur, .4, .2 ScaleEntity Mesh, 13, .001, 5.02 PositionEntity Mesh, 107, 7, -29.51 Gosub DeclareEntity ;Kleines_RaumDach Mesh = CreateWall(False) Textur = LoadTexture("Textures\School\KleineSportHalle\Dach.bmp") EntityTexture Mesh, Textur ScaleTexture Textur, .2, .4 ScaleEntity Mesh, 6, .001, 5 PositionEntity Mesh, 94, 6.99, -25.5 Gosub DeclareEntity Return .GangZwischenTrakt0Und1 ;HauptBoden Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\HauptBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, 9.5, .001, 5.5 PositionEntity Mesh, -53, 0, -36 Gosub DeclareEntity ;Decke Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Decke.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .2 ScaleEntity Mesh, .2, 9.3, 5.5 PositionEntity Mesh, -53, 6, -36 RotateEntity Mesh, 0, 0, 90 Gosub DeclareEntity ;Dach Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .6 ScaleEntity Mesh, 9.3, .001, 5.5 PositionEntity Mesh, -53, 6.21, -36 Gosub DeclareEntity ;HauptWand Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\HauptWand.jpg", 4) Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .143, 1 ScaleEntity Mesh, 9.5, 3, .05 PositionEntity Mesh, -53, 3, -41.5 Gosub DeclareEntity ;GlasScheibe Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\GlasScheibe.jpg", 4) Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .1, .3 ScaleEntity Mesh, 9.48, 3, .03 PositionEntity Mesh, -53, 3, -41.5 EntityAlpha Mesh, .9 Gosub DeclareEntity ;InfoTafel Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\InfoTafel.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleEntity Mesh, .15, 1, 2.5 PositionEntity Mesh, -48, 4, -41.25 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;InfoTafelHinten Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\InfoTafelHinten.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleEntity Mesh, .001, 1, 2.5 PositionEntity Mesh, -48, 4, -41.41 RotateEntity Mesh, 0, 90, 0 Gosub DeclareEntity ;SitzLehne1 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\SitzLehne.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .4, 1 ScaleEntity Mesh, 4, .2, .1 PositionEntity Mesh, -47, 2, -41 Gosub DeclareEntity ;SitzLehne2 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\SitzLehne.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .4, 1 ScaleEntity Mesh, 4, .2, .1 PositionEntity Mesh, -58, 2, -41 Gosub DeclareEntity ;SitzBank1 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\SitzBank.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .4, 1 ScaleEntity Mesh, 4, .05, .7 PositionEntity Mesh, -47, 1.4, -40.5 Gosub DeclareEntity ;SitzBank2 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\SitzBank.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, .4, 1 ScaleEntity Mesh, 4, .05, .7 PositionEntity Mesh, -58, 1.4, -40.5 Gosub DeclareEntity ;Stange1 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -45.5, 3, -32 Gosub DeclareEntity ;Stange2 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -46.5, 3, -32 Gosub DeclareEntity ;Stange3 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange2.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -45.5, 3, -40 Gosub DeclareEntity ;Stange4 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange3.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -46.5, 3, -40 Gosub DeclareEntity ;Stange5 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange4.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -50.5, 3, -40 Gosub DeclareEntity ;Stange6 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -54.5, 3, -40 Gosub DeclareEntity ;Stange7 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange2.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -60.5, 3, -40 Gosub DeclareEntity ;Stange8 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange3.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -61.5, 3, -40 Gosub DeclareEntity ;Stange9 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -60.5, 3, -32 Gosub DeclareEntity ;Stange10 Textur = LoadTexture("Textures\School\GangZwischenTrakt0Und1\Stange4.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -61.5, 3, -32 Gosub DeclareEntity Return .GangZwischenTrakt1Und2 ;HauptBoden Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\HauptBoden.jpg") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .2 ScaleEntity Mesh, 18, .001, 5 PositionEntity Mesh, -2, 0, -35.5 Gosub DeclareEntity ;Decke Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Decke.jpg") Mesh = CreateCube() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .1 ScaleEntity Mesh, .2, 17.5, 5 PositionEntity Mesh, -2, 6, -35.5 RotateEntity Mesh, 0, 0, 90 Gosub DeclareEntity ;Dach Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Dach.bmp") Mesh = CreateWall(False) EntityTexture Mesh, Textur ScaleTexture Textur, 1, .2 ScaleEntity Mesh, 17.5, .001, 5 PositionEntity Mesh, -2, 6.21, -35.5 Gosub DeclareEntity ;Stange1 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -15.5, 3, -32 Gosub DeclareEntity ;Stange2 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange1.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -16.5, 3, -32 Gosub DeclareEntity ;Stange3 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange2.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -15.5, 3, -39 Gosub DeclareEntity ;Stange4 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange2.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, -16.5, 3, -39 Gosub DeclareEntity ;Stange5 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange2.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, 11.5, 3, -39 Gosub DeclareEntity ;Stange6 Textur = LoadTexture("Textures\School\GangZwischenTrakt1Und2\Stange3.jpg") Mesh = CreateCylinder() EntityTexture Mesh, Textur ScaleTexture Textur, 1, .3 ScaleEntity Mesh, .15, 3, .15 PositionEntity Mesh, 12.5, 3, -39 Gosub DeclareE |
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group