Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | rem Blut vorbereiten |
| 2 | remstart |
||
| 3 | load image "bitmap\BloodSplat.bmp", 6 |
||
| 4 | dim grav#(300) |
||
| 5 | dim inuse(300) |
||
| 6 | dim posx#(300) |
||
| 7 | dim posy#(300) |
||
| 8 | dim droprate#(300) |
||
| 9 | dim life(300) |
||
| 10 | dim hpos#(300) |
||
| 11 | for x = 500 to 800 |
||
| 12 | make object plain x, 15, 15 |
||
| 13 | texture object x, 6 |
||
| 14 | ghost object on x |
||
| 15 | hide object x |
||
| 16 | next x |
||
| 17 | remend |
||
| 18 | |||
| 19 | |||
| 20 | |||
| 21 | do |
||
| 22 | |||
| 23 | remstart |
||
| 24 | bloodok = 1 |
||
| 25 | |||
| 26 | rem Blut |
||
| 27 | for tr = 1 to 3 |
||
| 28 | for x = 100 to 300 |
||
| 29 | if inuse(x) = 0 then goto skp |
||
| 30 | next x |
||
| 31 | x = 1 |
||
| 32 | skp: |
||
| 33 | inuse(x) = 1 |
||
| 34 | posx#(x) = 0 - mx |
||
| 35 | posy#(x) = 0 - my |
||
| 36 | droprate#(x) = 0 - (rnd(12) / 2) |
||
| 37 | if bloodok = 1 then droprate#(x) = 0 - (rnd(12)) |
||
| 38 | grav#(x) = .2 + rnd(10) / 11 |
||
| 39 | if grav#(x) = 0 then grav#(x) = .05 |
||
| 40 | hpos#(x) = (rnd(300) / 300) - 1.5 |
||
| 41 | if bloodok = 1 then hpos#(x) = (rnd(200) / 50) - 2 |
||
| 42 | show object x + 500 |
||
| 43 | next tr |
||
| 44 | actv = 0 |
||
| 45 | for x = 100 to 300 |
||
| 46 | if inuse(x) = 1 |
||
| 47 | inc actv |
||
| 48 | posx#(x) = posx#(x) + hpos#(x) |
||
| 49 | posy#(x) = posy#(x) - droprate#(x) |
||
| 50 | droprate#(x) = droprate#(x) + grav#(x) |
||
| 51 | position object x + 500,posx#(x), posy#(x), 0 - life(x) |
||
| 52 | zrotate object x + 500, wrapvalue(life(x) * 5) |
||
| 53 | life(x) = life(x) + 3 |
||
| 54 | if life(x) > 300 or posy#(x) < -300 then life(x) = 0 |
||
| 55 | inuse(x) = 0 |
||
| 56 | hide object x + 500 |
||
| 57 | endif |
||
| 58 | next x |
||
| 59 | remend |
||
| 60 | |||
| 61 | loop |