hedgewars/GSHandlers.inc
changeset 1697 ea3eddd73f2c
parent 1696 bb1e305320a1
child 1698 993c42413387
equal deleted inserted replaced
1696:bb1e305320a1 1697:ea3eddd73f2c
  2034 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
  2034 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
  2035 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
  2035 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
  2036 		end;
  2036 		end;
  2037 	DeleteGear(Gear);
  2037 	DeleteGear(Gear);
  2038 	AfterAttack;
  2038 	AfterAttack;
       
  2039 	TurnTimeLeft:= 14 * 125;
       
  2040 	ParseCommand('/taunt '#1, true)
  2039 	end;
  2041 	end;
  2040 
  2042 
  2041 if CheckGearDrowning(Gear) then
  2043 if CheckGearDrowning(Gear) then
  2042 	AfterAttack
  2044 	begin
       
  2045 	AfterAttack;
       
  2046 	TurnTimeLeft:= 14 * 125;
       
  2047 	ParseCommand('/taunt '#1, true)
       
  2048 	end
  2043 end;
  2049 end;
  2044 
  2050 
  2045 procedure doStepRCPlane(Gear: PGear);
  2051 procedure doStepRCPlane(Gear: PGear);
  2046 var HHGear: PGear;
  2052 var HHGear: PGear;
  2047 begin
  2053 begin