equal
deleted
inserted
replaced
131 dec(Gear^.Timer); |
131 dec(Gear^.Timer); |
132 if Gear^.Timer = 0 then |
132 if Gear^.Timer = 0 then |
133 begin |
133 begin |
134 case Gear^.Kind of |
134 case Gear^.Kind of |
135 gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
135 gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
136 gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 15, EXPLAutoSound); |
136 gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound); |
137 gtClusterBomb: begin |
137 gtClusterBomb: begin |
138 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
138 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
139 for i:= 0 to 4 do |
139 for i:= 0 to 4 do |
140 begin |
140 begin |
141 dX:= rndSign(GetRandom * _0_1); |
141 dX:= rndSign(GetRandom * _0_1); |