hedgewars/uGearsHedgehog.pas
changeset 7598 f06d8603097c
parent 7597 1ef520fea21c
child 7602 a620319d377e
equal deleted inserted replaced
7597:1ef520fea21c 7598:f06d8603097c
   634                                 gi^.dX:= _90-(GetRandomf*_360);
   634                                 gi^.dX:= _90-(GetRandomf*_360);
   635                                 gi^.dY:= _90-(GetRandomf*_360)
   635                                 gi^.dY:= _90-(GetRandomf*_360)
   636                                 end;
   636                                 end;
   637                             gi := gi^.NextGear
   637                             gi := gi^.NextGear
   638                             end;
   638                             end;
   639                         ag:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAddAmmo, gstInvisible, _0, _0, GetRandom(100)+10);
   639                         ag:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAddAmmo, gstInvisible, _0, _0, GetRandom(125)+25);
   640                         ag^.Pos:= Gear^.Pos;
   640                         ag^.Pos:= Gear^.Pos;
   641                         ag^.Power:= Gear^.Power
   641                         ag^.Power:= Gear^.Power
   642                         end;
   642                         end;
   643                     end;
   643                     end;
   644      posCaseHealth: begin
   644      posCaseHealth: begin