Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | rem Sound |
| 2 | load sound "sound\thunder.wav", 2 |
||
| 3 | load sound "sound\thunder2.wav", 3 |
||
| 4 | |||
| 5 | do |
||
| 6 | |||
| 7 | activate = 1 |
||
| 8 | |||
| 9 | rem Wetter |
||
| 10 | if inkey$() = "3" and activate = 1 then Wetter$ = "" |
||
| 11 | if Wetter$ = "" |
||
| 12 | set ambient light 40 |
||
| 13 | if fog available() = 1 |
||
| 14 | fog on |
||
| 15 | fog distance 7500 |
||
| 16 | fog color rgb(135, 119, 99) |
||
| 17 | endif |
||
| 18 | if sound exist(4) = 1 |
||
| 19 | stop sound 4 |
||
| 20 | delete sound 4 |
||
| 21 | endif |
||
| 22 | endif |
||
| 23 | |||
| 24 | if inkey$() = "0" and activate = 1 |
||
| 25 | Wetter$ = "day" |
||
| 26 | if fog available() = 1 |
||
| 27 | Fog on |
||
| 28 | Fog distance 4000 |
||
| 29 | Fog color RGB(128, 128, 128) |
||
| 30 | endif |
||
| 31 | Color Backdrop RGB(128, 128, 128) |
||
| 32 | Load sound "sound\crickets.wav", 4 |
||
| 33 | Loop sound 4 |
||
| 34 | endif |
||
| 35 | |||
| 36 | if inkey$() = "1" and activate = 1 |
||
| 37 | Wetter$ = "thunder" |
||
| 38 | if fog available() = 1 |
||
| 39 | Fog on |
||
| 40 | rem Nur wenn Lampe da: Fog distance 1000 |
||
| 41 | Fog distance 500 |
||
| 42 | Fog color RGB(0, 0, 0) |
||
| 43 | endif |
||
| 44 | Color Backdrop RGB(0, 0, 0) |
||
| 45 | Load sound "sound\rain.wav", 4 |
||
| 46 | Loop sound 4 |
||
| 47 | endif |
||
| 48 | |||
| 49 | if inkey$() = "2" and activate = 1 |
||
| 50 | Wetter$ = "sun" |
||
| 51 | if fog available() = 1 |
||
| 52 | Fog on |
||
| 53 | Fog distance 7000 |
||
| 54 | Fog color RGB(255, 255, 255) |
||
| 55 | endif |
||
| 56 | Color Backdrop RGB(20, 150, 200) |
||
| 57 | Load sound "sound\river.wav", 4 |
||
| 58 | Loop sound 4 |
||
| 59 | endif |
||
| 60 | |||
| 61 | rem Donner |
||
| 62 | if wetter$ = "thunder" |
||
| 63 | if rnd(100) = 50 |
||
| 64 | ink rgb(255, 0, 0), rgb(255, 255, 255) |
||
| 65 | cls |
||
| 66 | sync |
||
| 67 | if rnd(2) = 1 |
||
| 68 | set sound pan 3, -5000 + rnd(10000) |
||
| 69 | play sound 3 |
||
| 70 | else |
||
| 71 | set sound pan 2, -5000 + rnd(10000) |
||
| 72 | play sound 2 |
||
| 73 | endif |
||
| 74 | endif |
||
| 75 | endif |
||
| 76 | |||
| 77 | loop |