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 |