hedgewars/uGearsHandlersMess.pas
changeset 11530 a52fb6485403
parent 11529 58b4e357bcbf
child 11531 d1cf1ff6cabb
equal deleted inserted replaced
11529:58b4e357bcbf 11530:a52fb6485403
  3225                 end;
  3225                 end;
  3226             gi := gi^.NextGear
  3226             gi := gi^.NextGear
  3227             end;
  3227             end;
  3228 //////////////////////////////////////////////////////////////////////
  3228 //////////////////////////////////////////////////////////////////////
  3229         Gear^.doStep := @doStepCakeExpl;
  3229         Gear^.doStep := @doStepCakeExpl;
  3230         if partyEpicness > 6 then
  3230         if (partyEpicness > 6) and (abs(90 - abs(trunc(Gear^.DirAngle))) < 20) then
  3231             begin
  3231             begin
  3232             for i := 0 to (2 * partyEpicness) do
  3232             for i := 0 to (2 * partyEpicness) do
  3233                 begin
  3233                 begin
  3234                 sparkles:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg, 1);
  3234                 sparkles:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg, 1);
  3235                 if sparkles <> nil then
  3235                 if sparkles <> nil then