hedgewars/uGears.pas
changeset 3976 abaf741a4e21
parent 3963 6090d2a2472e
child 3997 6baa46aad645
child 3999 411e71912f4c
equal deleted inserted replaced
3975:3f605cca9215 3976:abaf741a4e21
   532                 gear^.Timer:= 10;
   532                 gear^.Timer:= 10;
   533                 gear^.Health:= 500;
   533                 gear^.Health:= 500;
   534                 end;
   534                 end;
   535  gtPoisonCloud: begin
   535  gtPoisonCloud: begin
   536                 gear^.Timer:= 5000;
   536                 gear^.Timer:= 5000;
   537                 gear^.dY:= int2hwfloat((-4 + getRandom(8))) / 1000;
   537                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   538                 end;
   538                 end;
   539  gtResurrector: begin
   539  gtResurrector: begin
   540                 gear^.Radius := 100;
   540                 gear^.Radius := 100;
   541                 end;
   541                 end;
   542     end;
   542     end;
  1032 begin
  1032 begin
  1033 with PHedgehog(Gear^.Hedgehog)^ do
  1033 with PHedgehog(Gear^.Hedgehog)^ do
  1034     begin
  1034     begin
  1035     if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
  1035     if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
  1036         exit;
  1036         exit;
  1037     DrawTexture(round(sx + 16), round(sy + 16), ropeIconTex);
  1037     DrawTexture(round(int64(sx) + 16), round(int64(sy) + 16), ropeIconTex);
  1038     DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(sx + 30), round(sy + 30), ord(CurAmmoType) - 1, 1, 32, 32);
  1038     DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(int64(sx) + 30), round(int64(sy) + 30), ord(CurAmmoType) - 1, 1, 32, 32);
  1039     end;
  1039     end;
  1040 end;
  1040 end;
  1041 
  1041 
  1042 procedure DrawRopeLinesRQ(Gear: PGear);
  1042 procedure DrawRopeLinesRQ(Gear: PGear);
  1043 begin
  1043 begin