Subversion Repositories forest

rem Nightmare Forest

rem   by Daniel Marschall

rem ToDo:

rem   Nebel-Himmel-Probleme

rem   DynArray

rem   Steifen am Boden

rem   Radar wackelt

rem   Verifizieren der Dateien

rem   :startgame weglassen

rem   Streifen am Boden und am Himmel...

rem   Baum teiltransparenz

rem   Radar lieber als Matrix. Viele Probleme wie z.B. mit Skorpion transparenz

rem   Unscharfes Radar, Radar ganz dyn. zeichnen? Rader stay on top

rem   Menü: musik aus --> an: loop von position 0!

rem   Horizont machen...

rem breitbild

rem mausumkehrung einstellbar

rem 	die gegner kommen erst nach einer bestimmten zeit. spawnen weit weg vom spieler

rem stars.bmp (5000px) braucht lange zum laden. 1000px ist verpixelt

// Read configuration

open to read 1, "config.txt"

read string 1, dummy$ : rem header

framerate = fileReadInt(1)

clockSpeedFactor = fileReadInt(1)

clockBlinksPerSecond = fileReadInt(1)

clockShowSeconds = fileReadInt(1)

beginClockSeconds = fileReadInt(1)

enemyRotateSmoothness = fileReadInt(1)

maxRunEnergy = fileReadInt(1)

waterLevel = fileReadInt(1)

waterMovement = fileReadInt(1)

sound3dVolumeCor = fileReadInt(1)

invertMouse = fileReadInt(1)

test = fileReadInt(1)

camerarange = fileReadInt(1)

close file 1

rem SCHEISSE! bei 3000 ist die framerate total am arsch! was mach ich nur?

rem #constant cMaxTrees 3000

#constant cMaxTrees 200

#constant cMapSizeX 10000

#constant cMapSizeZ 10000

#constant idxMonsterBase 1000

#constant cMaxEnemies 20   : rem todo: 0 heißt 1 , das ist verwirrend

rem Setup & Startbildschirm

if check display mode( desktop width(), desktop height(), screen depth() ) then set display mode desktop width(), desktop height(), screen depth()

hide mouse

randomize timer()

Sync On

Sync Rate framerate

load bitmap "bitmap\titlescreen.jpg"

gosub _menu

_startgame:

ink rgb(255, 230, 0), 0

load bitmap "bitmap\titlescreen.jpg"

text 28, 550, "Level wird geladen..."

sync

rem Setup

Set camera range 1, camerarange

Autocam off

runEnergy# = maxRunEnergy

clockSeconds = beginClockSeconds

gosub _create_floor

gosub _create_sky

gosub _create_trees

gosub _draw_trees

gosub _create_water

gosub _create_radar

rem Bildschirm neu aufbauen

cls

sync

rem Lichtversuch

make light 1

rem Radar vorbereiten

radarpointcolor = 150

gosub _create_enemies

gosub _setupClock

Rem Forest atmo

load sound "sound\forestbg.wav", 1

loop sound 1

load sound "music\pause.wav", 5

load sound "sound\walk.wav", 10

rem Pause Menu

load image "bitmap\titlescreen.jpg",95

sprite 95,0,0,95

set sprite 95, 1, 0

hide sprite 95

rem Hauptschleife

do

    Disable EscapeKey

    gosub _handle_weather

    gosub _handle_player

    gosub _handle_radar

    gosub _handle_enemies

    gosub _handleClock

    if EscapeKey() = 1

        repeat

            sync

        until not (EscapeKey() = 1)

        gosub _pausemenu

    endif

    sync

loop

_pausemenu:

rem TODO: geht nicht

rem    show sprite 95

rem    load bitmap "bitmap\titlescreen.jpg",0

    gosub _stop_game_sounds

    loop sound 5

    repeat

        text 28, 550, "Pause. ESC=Weiter. Runter=Ende."

        sync

        if DownKey() = 1

            goto _exit

        ENDIF

    UNTIL EscapeKey() = 1

    repeat

        sync

    until not (EscapeKey() = 1)

    stop sound 5

    loop sound 1

    hide sprite 95

    rem TODO: das bringt nix. wenn man die maus bewegt, wird nach der pause die kamera gescrollt

    set cursor 0, 0

return

_handle_weather:

   rem Wetter

   color ambient light rgb(64,64,128)

rem   set ambient light 1

set ambient light 50

   if fog available() = 1

      fog on

      fog distance 600

      fog color rgb(0, 0, 0)

   endif

   if test = 1

        SET MATRIX WIREFRAME ON 1

        SET MATRIX WIREFRAME ON 3

    endif

   rem test

   remstart

   xx = xx - 1

   if xx <= 0 then xx = 100

   set object specular 126, 0

   SET OBJECT SPECULAR POWER 126,xx

   set object specular 127, 0

   SET OBJECT SPECULAR POWER 127,xx

   remend

rem   fade object 126, xx

rem   fade object 127, xx

   rem test trees

   remstart

       pX# = Camera Position X()

    pZ# = Camera Position Z()

        eX# = Object Position X(126)

        eZ# = Object Position Z(126)

        deltaX# = pX#-eX#

        deltaZ# = pZ#-eZ#

                aa# = atanfull(deltaX#, deltaZ#)

                 rotate object 126, 0, aa#, 0

remend

    rem Stars are moving

    scroll object texture 2, 0.00002, 0

    rem TODO: doch lieber eine plane mit scroll object texture?

    rem man kann "fog" einschalten, aber "ambient light" (problem) ausmachen per set object

    if waterMovement > 0

        if waterdir=0

            watermov=watermov+1

            if watermov=waterMovement

                waterdir=1

            endif

        ENDIF

        if waterdir=1

            watermov=watermov-1

            if watermov=-1

                waterdir=0

            endif

        ENDIF

    endif

    position matrix 3, watermov, waterLevel, watermov

return

_handle_enemies:

    pX# = Camera Position X()

    pZ# = Camera Position Z()

    for t = 0 to cMaxEnemies

        eX# = Object Position X(idxMonsterBase+t)

        eY# = Object Position Y(idxMonsterBase+t)

        eZ# = Object Position Z(idxMonsterBase+t)

        eRX# = Object Angle X(idxMonsterBase+t)

        eRY# = Object Angle Y(idxMonsterBase+t)

        eRZ# = Object Angle Z(idxMonsterBase+t)

        deltaX# = pX#-eX#

        deltaZ# = pZ#-eZ#

        rem TODO: cor file

        yPosOffset# = 20

        dist# = sqrt( deltaX#*deltaX# + deltaZ#*deltaZ# )

        if clockSeconds > 1

            if not sound playing(idxMonsterBase+t)

                set sound volume idxMonsterBase+t, 0

                rem TODO: beliebiges startoffset?

                loop sound idxMonsterBase+t

            endif

        endif

        rem The mixing of 3dsound is bullshit (too loud from far distance, and not very loud on close distance),

        rem so we mix the volume ourself

        if sound3dVolumeCor>0 and dist#<sound3dVolumeCor then set sound volume idxMonsterBase+t, (1-(dist#/sound3dVolumeCor))*100

        if dist# > 10 : rem <-- at least a distance of 10 so that atanfull() does not bug, when deltas becomes 0

            if dist# < enemyAwarenessRadius(t)

                enemyAngle(t) = atanfull(deltaX#, deltaZ#)

                enemyAngle(t) = WrapValue(enemyAngle(t)+180)

                enemyCurSpeed(t) = enemyMaxSpeed(t)

            else

                if enemyWalkTimeout(t) <= 0

                    enemyWalkTimeout(t) = RndBetween(enemyWalkTimeoutMin(t), enemyWalkTimeoutMax(t))

                    enemyAngle(t) = RndBetween(0,359)

                    enemyCurSpeed(t) = RndBetween(0, enemyMaxSpeed(t))

                ENDIF

                enemyWalkTimeout(t) = enemyWalkTimeout(t) - 1

            endif

            if enemyCurSpeed(t) = 0

                gosub scorpChangeToIdle

            else

                gosub scorpChangeToWalk

                rem TODO: also make animation slower/faster

            endif

            a# = WrapValue(enemyAngle(t) + 180)

            XTest# = Newxvalue(eX#, a#, enemyCurSpeed(t))

            ZTest# = Newzvalue(eZ#, a#, enemyCurSpeed(t))

            if XTest# > 0 and XTest# < cMapSizeX then eX# = XTest#

            if ZTest# > 0 and ZTest# < cMapSizeZ then eZ# = ZTest#

            if XTest# <= 0 or XTest# >= cMapSizeX or ZTest# <= 0 or ZTest# >= cMapSizeZ

                rem Kehrtwende, um den Kartenrand zu verlassen

                enemyAngle(t) = WrapValue(enemyAngle(t)+180)

                enemyWalkTimeout(t) = RndBetween(enemyWalkTimeoutMin(t), enemyWalkTimeoutMax(t))

                enemyCurSpeed(t) = RndBetween(0, enemyMaxSpeed(t))

            endif

            eY# = floorHeight#(eX#, eZ#) + yPosOffset#

            Position Object idxMonsterBase+t, eX#, eY#, eZ#

            Position Sound idxMonsterBase+t, eX#, eY#, eZ#

            eRY# = smoothRotate#(eRY#, enemyAngle(t), enemyRotateSmoothness)

            rotate object idxMonsterBase+t, eRX#, eRY#, eRZ#

        endif

    next

return

_handle_player:

   set cursor 0, 0

   oldcAY# = cAY#

   oldcAX# = cAX#

   X# = camera position x()

   Y# = camera position y()

   Z# = camera position z()

   if invertMouse = 1

       cAX# = WrapValue(cAX# - MousemoveY() * 0.2)

   else

       cAX# = WrapValue(cAX# + MousemoveY() * 0.2)

   endif

   cAY# = WrapValue(cAY# + MousemoveX() * 0.2)

   cAZ# = Camera angle Z()   

   rem Sprungroutine

   jumpBoost = 1

   if sprungdelay > 0 then dec sprungdelay

   if MouseClick() = 2 and sprung = 0 and sprungrev = 0 and sprungdelay = 0 and obentimer = 0 then sprung = sprung + 5

   if sprung > 0

     if sprungrev = 0

       if obentimer = 0

         if sprung < 70 then sprung = sprung + 5

         if sprung > 69 then sprung = sprung + 2

       endif

       if sprung > 79 and obentimer < 5 then obentimer = obentimer + 1

       if obentimer > 2

         obentimer = 0

         sprungrev = 1

       endif

     else

       if sprungrev = 1

         sprung = sprung - 5

         if sprung < 1

           sprungrev = 0

           sprung = 0

           sprungdelay = 15

         endif

       endif

     endif

   endif

    rem Laufen

    speedboost# = 1

    if upPressed()+downPressed()+leftPressed()+rightPressed() = 0

        runEnergy# = runEnergy# + 2

        stop sound 10

    else

        if not sound playing(10) then loop sound 10

        energyChanged = 0

        if ShiftKey()+ControlKey() = 1 : rem shift+control at the same time = walk normal

            rem TODO: es ruckelt trotzdem noch

            if ControlKey()=1 and runEnergy#>0 : rem Energy >1 , damit es nicht ruckelt (run-walk-run-walk-run-walk) . 3 = walk regain

                speedboost# = 2

                runEnergy# = runEnergy# - 1

                energyChanged = 1

            endif

            if ShiftKey()=1

                speedboost# = 0.5

                runEnergy# = runEnergy# + 0.5

                energyChanged = 1

            endif

        endif

        if not energyChanged then runEnergy# = runEnergy# + 1

        if upPressed()

            XTest# = Newxvalue(X#, cAY#, 7*speedboost#)

            ZTest# = Newzvalue(Z#, cAY#, 7*speedboost#)

            if XTest# > 0 and XTest# < cMapSizeX then X# = XTest#

            if ZTest# > 0 and ZTest# < cMapSizeZ then Z# = ZTest#

        endif

        if downPressed()

            XTest# = Newxvalue(X#, Wrapvalue(cAY# - 180), 5*(speedboost#/2))

            ZTest# = Newzvalue(Z#, Wrapvalue(cAY# - 180), 5*(speedboost#/2))

            if XTest# > 0 and XTest# < cMapSizeX then X# = XTest#

            if ZTest# > 0 and ZTest# < cMapSizeZ then Z# = ZTest#

        endif

        if leftPressed()

            XTest# = Newxvalue(X#, Wrapvalue(cAY# - 90), 5*(speedboost#/1.3))

            ZTest# = Newzvalue(Z#, Wrapvalue(cAY# - 90), 5*(speedboost#/1.3))

            if XTest# > 0 and XTest# < cMapSizeX then X# = XTest#

            if ZTest# > 0 and ZTest# < cMapSizeZ then Z# = ZTest#

        endif

        if rightPressed()

            XTest# = Newxvalue(X#, Wrapvalue(cAY# + 90), 5*(speedboost#/1.3))

            ZTest# = Newzvalue(Z#, Wrapvalue(cAY# + 90), 5*(speedboost#/1.3))

            if XTest# > 0 and XTest# < cMapSizeX then X# = XTest#

            if ZTest# > 0 and ZTest# < cMapSizeZ then Z# = ZTest#

        endif

    endif

    if runEnergy# > maxRunEnergy then runEnergy# = maxRunEnergy

    print "Run energy: ", runEnergy#

    Rem Rotate camera

    cTestX# = WrapValue(cAX# - 180)

    if cTestX# > 225 then cAX# = 45

    if cTestX# < 135 then cAX# = 315

    YRotate camera CurveAngle(cAY#, oldcAY#, 24)

    XRotate camera CurveAngle(cAX#, oldcAX#, 24)

    Rem Position Camera

    Y# = floorHeight#(X#, Z#) + 85 + sprung*jumpBoost

    Position Camera X#, Y#, Z#

    Rem Position Listener

    Position Listener X#, Y#, Z#

    Rotate Listener 0, cAY#, 0

    rem Sky sphere follows player

    position object 2, X#, Y#, Z#

    rem zrotate object 51, cAY#

return

_fademenu:

   if fade > 100 then fadedir = 0

   if fade < 50 then fadedir = 1

   if fadedir = 1

      fade = fade + 2.5

   else

      fade = fade - 2.5

   endif

   rem Beleuchtet

   ink rgb(255, fade, 0), 0

   set text font "Tahoma"

   set text size 26

   if menu = 1

     if pos = 1 then text 260, 255, "Neues Spiel starten"

     if pos = 2 then text 260, 285, "Spiel laden"

     if pos = 3 then text 260, 315, "Einstellungen"

     if pos = 4 then text 260, 345, "Spiel beenden"

   endif

   if menu = 3

     if pos = 1

        if sound = 1 then text 260, 255, "Ton: An"

        if sound = 0 then text 260, 255, "Ton: Aus"

     endif

     if pos = 2

        if music = 1 then text 260, 285, "Musik: An"

        if music = 0 then text 260, 285, "Musik: Aus"

     endif

     if pos = 3 then text 260, 315, "Hauptmenü"

   endif

   rem Normal

   ink rgb(255, 230, 0), 0

   if menu = 1

     if pos <> 1 then text 260, 255, "Neues Spiel starten"

     if pos <> 2 then text 260, 285, "Spiel laden"

     if pos <> 3 then text 260, 315, "Einstellungen"

     if pos <> 4 then text 260, 345, "Spiel beenden"

   endif

   if menu = 3

     if pos <> 1

        if sound = 1 then text 260, 255, "Ton: An"

        if sound = 0 then text 260, 255, "Ton: Aus"

     endif

     if pos <> 2

        if music = 1 then text 260, 285, "Musik: An"

        if music = 0 then text 260, 285, "Musik: Aus"

     endif

     if pos <> 3 then text 260, 315, "Hauptmenü"

   endif

   sync

return

_handle_radar:

   rem Leuchtpunkt

   if radarpointrev = 0

     inc radarpointcolor, 3

   else

     dec radarpointcolor, 3

   endif

   if radarpointcolor > 255

     radarpointrev = 1

     radarpointcolor = 254

   endif

   if radarpointcolor < 150

     radarpointrev = 0

     radarpointcolor = 149

   endif

   rem Bäume

    for t = 0 to cMaxTrees

     x = (baumx(t) / 62.5) + 7.5

     y = screen height() - 7.5 - (baumz(t) / 62.5)

     rem ink rgb(0, radarpointcolor, 0), 0

     ink rgb(0, 50, 0), 0

     circle x, y, 1

     circle x, y, 0

   next i

   rem Player

   x = (X# / 62.5) + 7.5

   y = screen height() - 7.5 - (Z# / 62.5)

   ink rgb(0, 0, radarpointcolor), 0

   circle x, y, 1

   circle x, y, 0

   rem Enemies

   for t = 0 to cMaxEnemies

       x = (object position x(idxMonsterBase+t) / 62.5) + 7.5

       y = screen height() - 7.5 - (object position z(idxMonsterBase+t) / 62.5)

       ink rgb(radarpointcolor, 0, 0), 0

       circle x, y, 1

       circle x, y, 0

   next

return

_draw_trees:

    // TODO: mit clone object arbeiten?

    load image "bitmap\tree.bmp", 4

    make object plain 52, 200, 400

    make mesh from object 52, 52

    add limb 52, 1, 52

    rotate limb 52, 1, 0, 90, 0

    make mesh from object 52, 52

    delete object 52

    // Methode 1: 1 Baum = 1 Object

    for t = 0 to cMaxTrees

       make object 1500+t, 52, 4

       rx = baumx(t)

       rz = baumz(t)

       position object 1500+t, rx, floorHeight#(rx, rz)+190, rz

      set object 1500+t, 1, 1, 0

    next t

    // Methode 2: Alle Bäume = 1 Objekt

    remstart

    make object 52, 52, 0 : rem TODO: da ist ein baum an offset 0,0,0

    for t = 0 to cMaxTrees

       add limb 52, t+1, 52

       rx = baumx(t)

       rz = baumz(t)

       offset limb 52, t, rx, floorHeight#(rx, rz), rz

    next t

    make mesh from object 52, 52

    delete object 52

    make object 52, 52, 4

    position object 52, 0, 190, 0

    set object 52, 1, 1, 0

    remend

    rem test todo

    rx = 500

    rz = 500

    load image "bitmap\dark-forest.jpg", 127

     MAKE OBJECT BOX  127, 500, 350, 500

         position object 127, rx, floorHeight#(rx,rz)+175, rz

rem    set object 127, 1, 0, 0, 0, 0, 1, 0

    texture object 127, 127

    rx = 1700

    rz = 500

    load image "bitmap\dark-forest2.jpg", 126

     MAKE OBJECT CYLINDER 126, 350

     scale object 126, 180, 100, 180 : rem percent!

         position object 126, rx, floorHeight#(rx,rz)+150, rz

    set object 126, 1, 0, 0, 0, 0, 1, 0 

rem    texture object 126, 126

    rem Make flat mesh piece

    make object plain 998,300,300

    hide object 998

    make mesh from object 1,998

    delete object 998

    rem const

    h=-40

    li=0

    end_x = 400

    end_y = 400

    for i = 0 to 10

        w = RndBetween(150,250)

        a = a + RndBetween(-80,80)

        start_x = end_x

        start_y = end_y  

        center_x = start_x + (w/2) * cos(a)

        center_y = start_y + (w/2) * sin(a)

        end_x = start_x + w * cos(a)

        end_y = start_y + w * sin(a)

        li=li+1

        add limb 126,li,1

        rotate limb 126, li, 0, -a, 0

        offset limb 126,li,center_x,floorHeight#(center_x,center_y)+h,center_y

    next

    set object cull 126, 0 

    set object ambient 126, 0   

    texture object 126, 126

return

_create_trees:

    dim baumx(cMaxTrees)

    dim baumz(cMaxTrees)

    for t = 0 to cMaxTrees

        repeat

            x = rnd(cMapSizeX)

            z = rnd(cMapSizeZ)

            ok = 1

            if isInCircle(x,z,5000,5000,2000) then ok=0 : rem TODO: später für büschel anwenden

        until ok=1

        baumx(t) = x

        baumz(t) = z

    NEXT

return

_menu:

  load bitmap "bitmap\titlescreen.jpg"

  set text font "times"

  set text size 27

  fade = 100

  pos = 1

  menu = 1

  sound = 1

  do

     gosub _fademenu

     if ( downkey() = 1 and pos < 4 and menu = 1 ) or ( downkey() = 1 and pos < 3 and menu = 3 )

       inc pos

       while downkey() = 1

          gosub _fademenu

       endwhile

     endif

     if upkey() = 1 and pos > 1

       dec pos

       while upkey() = 1

          gosub _fademenu

       endwhile

     endif

     if returnkey() = 1

       if menu = 1

          if pos = 1 then gosub _startgame

          if pos = 2

            rem load bitmap "bitmap\titlescreen.jpg"

            rem menu = 2

            rem pos = 1

          endif

          if pos = 3

            load bitmap "bitmap\titlescreen.jpg"

            menu = 3

            pos = 1

          endif

          if pos = 4 then end

       else

         if menu = 3

            if pos = 1

              if sound = 1

                sound = 0

              else

                sound = 1

              endif

              load bitmap "bitmap\titlescreen.jpg"

            endif

            if pos = 2

              if music = 1

                music = 0

              else

                music = 1

              endif

              load bitmap "bitmap\titlescreen.jpg"

            endif

            if pos = 3

              load bitmap "bitmap\titlescreen.jpg"

              menu = 1

              pos = 1

            endif

         endif

       endif

       while returnkey() = 1

          gosub _fademenu

       endwhile

     endif

  loop

return

_create_enemies:

    dim enemySpeed(cMaxEnemies)

    dim enemyDir(cMaxEnemies)

    dim enemyWalkTimeout(cMaxEnemies)

    dim enemyWalkTimeoutMin(cMaxEnemies)

    dim enemyWalkTimeoutMax(cMaxEnemies)

    dim enemyAwarenessRadius(cMaxEnemies)

    dim enemyCurSpeed(cMaxEnemies)

    dim enemyMaxSpeed(cMaxEnemies)

    dim enemyAngle(cMaxEnemies)

    dim enemyCurrentAnim(cMaxEnemies)

    for t = 0 to cMaxEnemies

        if t=0        

            Load 3Dsound "test.wav",idxMonsterBase+t

        else

            Clone Sound idxMonsterBase+t, idxMonsterBase

        endif

        x# = RndBetween(1000, 9000)

        z# = RndBetween(1000, 9000)

        enemyAwarenessRadius(t) = RndBetween(600, 1300)

        enemyMaxSpeed(t) = RndBetween(1, 4)

        enemyWalkTimeoutMin(t) = 200

        enemyWalkTimeoutMax(t) = 300

        if t = 0

            animScorpIdleStart = 0

            Load object "obj\scorpion\ScorpIdle.x", idxMonsterBase+t

            animScorpIdleEnd = total object frames(idxMonsterBase+t)

            animScorpWalkStart = animScorpIdleEnd+1

            Append object "obj\scorpion\ScorpWalk.x", idxMonsterBase+t, animScorpWalkStart

            animScorpWalkEnd = total object frames(idxMonsterBase+t)

        else

            Clone Object idxMonsterBase+t, idxMonsterBase        

        endif

        y# = floorHeight#(x#, z#) : rem TODO  + yPosOffset#

        position object idxMonsterBase+t, x#, y#, z#

        Position Sound idxMonsterBase+t, x#, y#, z#

        fix object pivot idxMonsterBase+t

        gosub scorpChangeToWalk

        set object collision on idxMonsterBase+t

    NEXT

return

scorpChangeToIdle:

    rem TODO: smoothness (interpolation)

    if enemyCurrentAnim(t) <> 1

        loop object idxMonsterBase+t, animScorpIdleStart, animScorpIdleEnd

        enemyCurrentAnim(t) = 1

    endif

return

scorpChangeToWalk:

    rem TODO: smoothness (interpolation)

    if enemyCurrentAnim(t) <> 2

        loop object idxMonsterBase+t, animScorpWalkStart, animScorpWalkEnd

        enemyCurrentAnim(t) = 2

    endif

return

_setupClock:

    set text font "arial" : set text size 30 : set text transparent

    // Session variables

    clockTickCounter=0

    clockCurrentMidDot=0

    clockTicksPerSecond = framerate

return

_handleClock:

    if mod(clockTickCounter*clockBlinksPerSecond, clockTicksPerSecond) = 0

        clockCurrentMidDot = 1 - clockCurrentMidDot

    endif

    if mod(clockTickCounter*clockSpeedFactor, clockTicksPerSecond) = 0

        clockSeconds = clockSeconds + 1

    endif

    gosub _printClock

    clockTickCounter = clockTickCounter + 1

RETURN

_create_water:

    remstart

    make object plain 3, 20000, 20000

    load image "bitmap\GM01B02.bmp", 3

    texture object 3, 3

    position object 3, 0, waterLevel, 0

    xrotate object 3, 90

    set object light 3, 1

    ghost object on 3

    remend

    remstart

    make object plain 3, 10000, 10000

    load image "bitmap\GM01B02a.bmp",3

    texture object 3, 3

    xrotate object 3, 90

    position object 3, 5000,waterLevel, 5000

    set object ambient 3,0

    ghost object on 3

    remend

    remstart

    rem TODO: geht nicht zusammen mit fog

    make object plain 3, 10000, 10000

    load image "bitmap\GM01B02c.bmp", 3

    texture object 3, 3

    xrotate object 3, 90

    position object 3, 5000, waterLevel, 5000

    set object ambient 3, 0

    rem set object ambient 3, 1

    rem ghost object on 3

    remend

    make matrix 3, cMapSizeX+2*waterMovement, cMapSizeZ+2*waterMovement, 15, 15

    load image "bitmap\water.bmp", 3

    prepare matrix texture 3, 3, 1, 1

    fill matrix 3, 0, 1

    position matrix 3, 0, waterLevel, 0

    ghost matrix on 3

    set matrix 3, 0, 0, 1, 1, 1, 1, 1

    update matrix 3

return

_create_floor:

    rem Boden

    make matrix 1, cMapSizeX, cMapSizeZ, 15, 15

    load image "bitmap\forest_floor_texture.jpg", 1

    prepare matrix texture 1, 1, 1, 1

    fill matrix 1, 0, 1

    set matrix 1, 0, 0, 1, 1, 1, 1, 1

    randomize matrix 1, 130

    rem TEST

    rem TODO: aber man kann 40,40 nicht updaten?!

    set matrix height 1, 10, 10, 1000

    update matrix 1

    remstart

    currentmatrix=1

    for z=1 to 20

       for x=1 to 20

          rem Get matrix heights

          rem print x, " - ", z

          rem sync

          rem sleep 100

          h8#=get matrix height(currentmatrix,x,z-1)

          h4#=get matrix height(currentmatrix,x-1,z)

          h#=get matrix height(currentmatrix,x,z)

          h2#=get matrix height(currentmatrix,x,z)

          rem Calculate projected angle X using heights

          x1#=(x-1)*25.0 : y1#=h#

          x2#=(x+0)*25.0 : y2#=h4#

          dx#=x2#-x1#

          dy#=y2#-y1#

          ax#=atanfull(dx#,dy#)

          ax#=wrapvalue(90-ax#)

          rem Calculate projected angle Z using heights

          z1#=(z-1)*25.0 : y1#=h2#

          z2#=(z+0)*25.0 : y2#=h8#

          dz#=z2#-z1#

          dy#=y2#-y1#

          az#=atanfull(dz#,dy#)

          az#=wrapvalue(90-az#)

          rem Make normal from projected angle

          nx#=sin(ax#)

          ny#=cos(ax#)

          nz#=sin(az#)

          rem Setting matrix normal for smoothness

          set matrix normal currentmatrix,x,z,nx#,ny#,nz#

       next x

    next z

    update matrix currentmatrix

    remend

return

_create_sky:

    if test = 1 

        load image "bitmap\tree.bmp", 2

    else

       load image "bitmap\stars.bmp", 2

    endif

    make object sphere 2, (landsize * 2) - 500

rem    make object sphere 2, -4000

    set object collision off 2

    rem scale object 2, 2000, 750, 2000

    scale object 2, 600, 120, 600

    set object 2, 1, 0, 0, 0, 0, 1, 1

    texture object 2, 2

rem    fade object 2, 0

    backdrop off

    if test = 1

        backdrop on

        set object wireframe 2, 1

    endif

return

_create_radar:

    rem Karte - Abstand zur Kamera: 1.1

    remstart

    load image "map\ST01L01a.bmp", 5

    make object plain 51, 0.352, 0.352

    lock object on 51

    position object 51, -0.6908, -0.4675, 1.1

    ghost object on 51

    texture object 51, 5

    remend

    rem Karte - Abstand zur Kamera: 1.5

    load image "map\ST01L01a.bmp", 5

    make object plain 51, 0.48, 0.48

    lock object on 51

    position object 51, -0.942, -0.6375, 1.5

    ghost object on 51

    texture object 51, 5

return

_printClock:

    if clockCurrentMidDot = 0

        middle$ = " "

    else

        middle$ = ":"

    endif

    min = clockSeconds/60

    hours = min/60

    if clockShowSeconds

        secsText$ = middle$+TwoDigit$(mod(clockSeconds,60))

    else

        secsText$ = ""

    endif

    print "Time: ", TwoDigit$(mod(hours,24)), middle$, TwoDigit$(mod(min,60)), secsText$

return

rem Rotate smooth, and rotate in the direction with the lowest distance

rem "turn object left" ist das kommando

function smoothRotate#(von#, nach#, smoothness)

    if (von# > 270) and (nach# < 90)

        ret# = WrapValue(von# + (360 - von# + nach#)/smoothness)

    else

        if (von# < 90) and (nach# > 270)

            ret# = WrapValue(von# - (360 - nach# + von#)/smoothness)

        else

            ret# = von# + (nach# - von#)/smoothness

        endif

    endif

endfunction ret#

function floorHeight#(X#, Z#)

    rem TODO: implement water

    ret# = Get Ground Height(1, X#, Z#)

ENDFUNCTION ret#

function upPressed()

    ret = UpKey()=1 or keystate(17)=1 or joystick up()=1

ENDFUNCTION ret

function leftPressed()

    ret = LeftKey()=1 or keystate(30)=1 or joystick left()=1

ENDFUNCTION ret

function rightPressed()

    ret = RightKey()=1 or keystate(32)=1 or joystick right()=1

ENDFUNCTION ret

function downPressed()

    ret = DownKey()=1 or keystate(31)=1 or joystick down()=1

ENDFUNCTION ret

function TwoDigit$(value)

    if value < 10

        ret$ = "0"+STR$(value)

    else

        ret$ = STR$(value)

    ENDIF

ENDFUNCTION ret$

function mod(num,modulus)

   value=num-((num/modulus)*modulus)

endfunction value

function fileReadInt(fileNum)

    read string 1, s$

    ret=val(s$)

ENDFUNCTION ret

function RndBetween(a,b)

    ret = a+Rnd(b-a)

ENDFUNCTION ret

function isInCircle(pX#,pY#,cX#,cY#,cR#)

    ret = sqrt( (pX#-cX#)*(pX#-cX#) + (pY#-cY#)*(pY#-cY#) ) <= cR#

ENDFUNCTION ret

_stop_game_sounds:

    Stop Sound 1  : rem sound\forestbg.wav

    Stop Sound 5  : rem music\pause.wav

    Stop Sound 10 : rem sound\walk.wav

    for t = 0 to cMaxEnemies

        Stop Sound idxMonsterBase+t

    next t

return

_exit:

    exit