diff -r e9191c693e44 -r 24677a82531d hedgewars/uGears.pas --- a/hedgewars/uGears.pas Thu Sep 18 14:44:44 2008 +0000 +++ b/hedgewars/uGears.pas Thu Sep 18 16:16:41 2008 +0000 @@ -141,7 +141,9 @@ @doStepCake, @doStepSeduction, @doStepBomb, - @doStepCluster + @doStepCluster, + @doStepBomb, + @doStepSmokeTrace ); procedure InsertGearToList(Gear: PGear); @@ -245,7 +247,8 @@ Result^.Radius:= 10; Result^.Timer:= 4000 end; - gtSmokeTrace: begin + gtSmokeTrace, + gtEvilTrace: begin Result^.X:= Result^.X - _16; Result^.Y:= Result^.Y - _16; Result^.State:= 8 @@ -327,6 +330,11 @@ Result^.Z:= cOnHHZ; if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3 end; + gtHellishBomb: begin + Result^.Radius:= 4; + Result^.Elasticity:= _0_5; + Result^.Friction:= _0_96; + end; end; InsertGearToList(Result); AddGear:= Result @@ -1088,7 +1096,9 @@ DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 5 - Gear^.Pos, hwSign(Gear^.dX), 0); gtWatermelon: DrawRotatedf(sprWatermelon, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 0, Gear^.DirAngle); gtMelonPiece: DrawRotatedf(sprWatermelon, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 1, 0, Gear^.DirAngle); - end; + gtHellishBomb: DrawRotated(sprHellishBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle); + gtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State); + end; Gear:= Gear^.NextGear end; end;