equal
deleted
inserted
replaced
143 gtWatermelon: begin |
143 gtWatermelon: begin |
144 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound); |
144 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound); |
145 for i:= 0 to 5 do |
145 for i:= 0 to 5 do |
146 begin |
146 begin |
147 dX:= rndSign(GetRandom * _0_1); |
147 dX:= rndSign(GetRandom * _0_1); |
148 dY:= (GetRandom - _3) * _0_08; |
148 dY:= (GetRandom - _2) * _0_2; |
149 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 75); |
149 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60; |
150 end |
150 end |
151 end |
151 end |
152 end; |
152 end; |
153 DeleteGear(Gear); |
153 DeleteGear(Gear); |
154 exit |
154 exit |
168 begin |
168 begin |
169 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound); |
169 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound); |
170 DeleteGear(Gear); |
170 DeleteGear(Gear); |
171 exit |
171 exit |
172 end; |
172 end; |
173 if (GameTicks and $1F) = 0 then |
173 |
174 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |
174 if Gear^.Kind = gtMelonPiece then |
|
175 CalcRotationDirAngle(Gear) |
|
176 else |
|
177 if (GameTicks and $1F) = 0 then |
|
178 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |
175 end; |
179 end; |
176 |
180 |
177 //////////////////////////////////////////////////////////////////////////////// |
181 //////////////////////////////////////////////////////////////////////////////// |
178 procedure doStepGrenade(Gear: PGear); |
182 procedure doStepGrenade(Gear: PGear); |
179 begin |
183 begin |