equal
deleted
inserted
replaced
118 if Gear^.Timer = 0 then |
118 if Gear^.Timer = 0 then |
119 begin |
119 begin |
120 case Gear^.Kind of |
120 case Gear^.Kind of |
121 gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
121 gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
122 gtClusterBomb: begin |
122 gtClusterBomb: begin |
123 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound); |
123 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
124 for i:= 0 to 4 do |
124 for i:= 0 to 4 do |
125 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, (getrandom - _0_5) * _0_2, (getrandom - _3) * _0_08, 0); |
125 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, rndSign(GetRandom * _0_1), (GetRandom - _3) * _0_08, 0); |
126 end |
126 end |
127 end; |
127 end; |
128 DeleteGear(Gear); |
128 DeleteGear(Gear); |
129 exit |
129 exit |
130 end; |
130 end; |
136 begin |
136 begin |
137 AllInactive:= false; |
137 AllInactive:= false; |
138 doStepFallingGear(Gear); |
138 doStepFallingGear(Gear); |
139 if (Gear^.State and gstCollision) <> 0 then |
139 if (Gear^.State and gstCollision) <> 0 then |
140 begin |
140 begin |
141 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
141 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound); |
142 DeleteGear(Gear); |
142 DeleteGear(Gear); |
143 exit |
143 exit |
144 end; |
144 end; |
145 if (GameTicks and $1F) = 0 then |
145 if (GameTicks and $1F) = 0 then |
146 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |
146 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |