Subversion Repositories forest

rem Sound
load sound "sound\thunder.wav", 2
load sound "sound\thunder2.wav", 3

do

   activate = 1

   rem Wetter
   if inkey$() = "3" and activate = 1 then Wetter$ = ""
   if Wetter$ = ""
     set ambient light 40
     if fog available() = 1
        fog on
        fog distance 7500
        fog color rgb(135, 119, 99)
     endif
     if sound exist(4) = 1
       stop sound 4
       delete sound 4
     endif
   endif

   if inkey$() = "0" and activate = 1
     Wetter$ = "day"
     if fog available() = 1
        Fog on
        Fog distance 4000
        Fog color RGB(128, 128, 128)
     endif
     Color Backdrop RGB(128, 128, 128)
     Load sound "sound\crickets.wav", 4
     Loop sound 4
   endif

   if inkey$() = "1" and activate = 1
     Wetter$ = "thunder"
     if fog available() = 1
        Fog on
        rem Nur wenn Lampe da: Fog distance 1000
        Fog distance 500
        Fog color RGB(0, 0, 0)
     endif
     Color Backdrop RGB(0, 0, 0)
     Load sound "sound\rain.wav", 4
     Loop sound 4
   endif

   if inkey$() = "2" and activate = 1
     Wetter$ = "sun"
     if fog available() = 1
        Fog on
        Fog distance 7000
        Fog color RGB(255, 255, 255)
     endif
     Color Backdrop RGB(20, 150, 200)
     Load sound "sound\river.wav", 4
     Loop sound 4
   endif

   rem Donner
   if wetter$ = "thunder"
     if rnd(100) = 50
        ink rgb(255, 0, 0), rgb(255, 255, 255)
        cls
        sync
        if rnd(2) = 1
           set sound pan 3, -5000 + rnd(10000)
           play sound 3
        else
           set sound pan 2, -5000 + rnd(10000)
           play sound 2
        endif
     endif
   endif

loop