equal
deleted
inserted
replaced
135 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
135 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
136 for i:= 0 to 4 do |
136 for i:= 0 to 4 do |
137 begin |
137 begin |
138 dX:= rndSign(GetRandom * _0_1); |
138 dX:= rndSign(GetRandom * _0_1); |
139 dY:= (GetRandom - _3) * _0_08; |
139 dY:= (GetRandom - _3) * _0_08; |
140 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0); |
140 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25); |
|
141 end |
|
142 end; |
|
143 gtWatermelon: begin |
|
144 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound); |
|
145 for i:= 0 to 5 do |
|
146 begin |
|
147 dX:= rndSign(GetRandom * _0_1); |
|
148 dY:= (GetRandom - _3) * _0_08; |
|
149 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 75); |
141 end |
150 end |
142 end |
151 end |
143 end; |
152 end; |
144 DeleteGear(Gear); |
153 DeleteGear(Gear); |
145 exit |
154 exit |
155 begin |
164 begin |
156 AllInactive:= false; |
165 AllInactive:= false; |
157 doStepFallingGear(Gear); |
166 doStepFallingGear(Gear); |
158 if (Gear^.State and gstCollision) <> 0 then |
167 if (Gear^.State and gstCollision) <> 0 then |
159 begin |
168 begin |
160 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound); |
169 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound); |
161 DeleteGear(Gear); |
170 DeleteGear(Gear); |
162 exit |
171 exit |
163 end; |
172 end; |
164 if (GameTicks and $1F) = 0 then |
173 if (GameTicks and $1F) = 0 then |
165 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |
174 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |