| changeset 360 | ab6a94334d6d |
| parent 357 | 165a040e4cfa |
| child 364 | 52cb4d6f84b7 |
| 359:59fbfc65fbda | 360:ab6a94334d6d |
|---|---|
635 FindPlace(AddGear(0, 0, gtMine, 0, 0, 0, 0), false, 0, 2048); |
635 FindPlace(AddGear(0, 0, gtMine, 0, 0, 0, 0), false, 0, 2048); |
636 end; |
636 end; |
637 |
637 |
638 procedure AddClouds; |
638 procedure AddClouds; |
639 var i: integer; |
639 var i: integer; |
640 dx, dy: hwFloat; |
|
640 begin |
641 begin |
641 for i:= 0 to cCloudsNumber do |
642 for i:= 0 to cCloudsNumber do |
642 AddGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, gtCloud, random(4), |
643 begin |
643 // (0.5-random)*0.1, ((i mod 2) * 2 - 1) * (0.005 + 0.015*random), 0) |
644 dx.isNegative:= random(2) = 1; |
644 0, 0, 0) |
645 dx.QWordValue:= random(214748364); |
646 dy.isNegative:= (i and 1) = 1; |
|
647 dy.QWordValue:= 21474836 + random(64424509); |
|
648 AddGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, |
|
649 gtCloud, random(4), dx, dy, 0) |
|
650 end |
|
645 end; |
651 end; |
646 |
652 |
647 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); |
653 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); |
648 var Gear: PGear; |
654 var Gear: PGear; |
649 dmg: integer; |
655 dmg: integer; |