equal
deleted
inserted
replaced
2073 or (t^.Count <> 0) |
2073 or (t^.Count <> 0) |
2074 or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY)) |
2074 or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY)) |
2075 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX))) |
2075 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX))) |
2076 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then |
2076 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then |
2077 begin //out of time or exited ground |
2077 begin //out of time or exited ground |
|
2078 StopSound(sndPickhammer); |
2078 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
2079 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
2079 DeleteGear(Gear); |
2080 DeleteGear(Gear); |
2080 exit |
2081 exit |
2081 end; |
2082 end; |
2082 |
2083 |
2112 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
2113 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
2113 DeleteGear(Gear); |
2114 DeleteGear(Gear); |
2114 exit; |
2115 exit; |
2115 end; |
2116 end; |
2116 |
2117 |
|
2118 PlaySound(sndPickhammer, true, nil); |
2117 Gear^.doStep:= @doStepDrillDrilling; |
2119 Gear^.doStep:= @doStepDrillDrilling; |
2118 dec(Gear^.Timer) |
2120 dec(Gear^.Timer) |
2119 end |
2121 end |
2120 end; |
2122 end; |
2121 |
2123 |