equal
deleted
inserted
replaced
1095 exit |
1095 exit |
1096 end |
1096 end |
1097 end else begin |
1097 end else begin |
1098 if Gear^.Timer > 0 then dec(Gear^.Timer) |
1098 if Gear^.Timer > 0 then dec(Gear^.Timer) |
1099 else begin |
1099 else begin |
1100 // doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0); |
1100 AmmoShove(Gear, 5, 5); |
|
1101 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 3, 0); |
1101 dec(Gear^.Health); |
1102 dec(Gear^.Health); |
1102 Gear^.Timer:= 1250 - Gear^.Angle * 12 |
1103 Gear^.Timer:= 1250 - Gear^.Angle * 12 |
1103 end |
1104 end |
1104 end; |
1105 end; |
1105 |
1106 |
1106 if (((GameTicks div 8) mod 64) = Gear^.Angle) then |
1107 //if (((GameTicks div 8) mod 64) = Gear^.Tag) then |
1107 AmmoFlameWork(Gear); |
1108 // AmmoFlameWork(Gear); |
1108 |
1109 |
1109 if Gear^.Health = 0 then |
1110 if Gear^.Health = 0 then |
1110 DeleteGear(Gear) |
1111 DeleteGear(Gear) |
1111 end; |
1112 end; |
1112 |
1113 |