hedgewars-draft: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:db01cc79f278
+:4c017ae1226a
 Result^.Y:= Result^.Y - 16;
 Result^.State:= 8
 end;
 gtRope: begin
 Result^.Radius:= 3;
-Result^.Friction:= 500;
+Result^.Friction:= 450;
 RopePoints.Count:= 0;
 end;
 gtExplosion: begin
 Result^.X:= Result^.X - 25;
 Result^.Y:= Result^.Y - 25;
 end;
 CountGears:= Result
 end;
 procedure SpawnBoxOfSmth;
+var t: LongInt;
+i: TAmmoType;
 begin
 if (CountGears(gtCase) >= 5) or (getrandom(cCaseFactor) <> 0) then exit;
 FollowGear:= AddGear(0, 0, gtCase, 0, 0, 0, 0);
 case getrandom(2) of
 0: begin
 FollowGear^.Health:= 25;
 FollowGear^.Pos:= posCaseHealth
 end;
 1: begin
+t:= 0;
+for i:= Low(TAmmoType) to High(TAmmoType) do
+inc(t, Ammoz[i].Probability);
+t:= GetRandom(t);
+i:= Low(TAmmoType);
+dec(t, Ammoz[i].Probability);
+while t >= 0 do
+begin
+inc(i);
+dec(t, Ammoz[i].Probability)
+end;
 FollowGear^.Pos:= posCaseAmmo;
-FollowGear^.State:= Longword(amMineStrike)
+FollowGear^.State:= Longword(i)
 end;
 end;
 FindPlace(FollowGear, true, 0, 2048)
 end;