equal
deleted
inserted
replaced
3235 DeleteGear(Gear) |
3235 DeleteGear(Gear) |
3236 end; |
3236 end; |
3237 |
3237 |
3238 AfterAttack; |
3238 AfterAttack; |
3239 CurAmmoGear := nil; |
3239 CurAmmoGear := nil; |
3240 if (GameFlags and gfInfAttack) = 0 then TurnTimeLeft := 14 * 125; |
3240 if (GameFlags and gfInfAttack) = 0 then |
|
3241 begin |
|
3242 if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft; |
|
3243 TurnTimeLeft:= 14 * 125; |
|
3244 end; |
3241 |
3245 |
3242 HHGear^.Message := 0; |
3246 HHGear^.Message := 0; |
3243 ParseCommand('/taunt '#1, true) |
3247 ParseCommand('/taunt '#1, true) |
3244 end |
3248 end |
3245 end; |
3249 end; |
4076 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4080 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4077 CurrentHedgehog^.Gear^.Active := true; |
4081 CurrentHedgehog^.Gear^.Active := true; |
4078 CurrentHedgehog^.Gear^.X := Gear^.X; |
4082 CurrentHedgehog^.Gear^.X := Gear^.X; |
4079 CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128; |
4083 CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128; |
4080 CurrentHedgehog^.Unplaced := false; |
4084 CurrentHedgehog^.Unplaced := false; |
|
4085 if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft; |
4081 TurnTimeLeft:= 0 |
4086 TurnTimeLeft:= 0 |
4082 end; |
4087 end; |
4083 ResumeMusic |
4088 ResumeMusic |
4084 end; |
4089 end; |
4085 exit |
4090 exit |
4095 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4100 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4096 CurrentHedgehog^.Gear^.Active := true; |
4101 CurrentHedgehog^.Gear^.Active := true; |
4097 CurrentHedgehog^.Gear^.X := Gear^.X; |
4102 CurrentHedgehog^.Gear^.X := Gear^.X; |
4098 CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128; |
4103 CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128; |
4099 CurrentHedgehog^.Unplaced := false; |
4104 CurrentHedgehog^.Unplaced := false; |
|
4105 if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft; |
4100 TurnTimeLeft:= 0 |
4106 TurnTimeLeft:= 0 |
4101 end; |
4107 end; |
4102 ResumeMusic |
4108 ResumeMusic |
4103 end |
4109 end |
4104 else if (Gear^.State and gstCollision) <> 0 then |
4110 else if (Gear^.State and gstCollision) <> 0 then |