| 0,0 → 1,77 |
|---|
| 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 |