hedgewars/uGearsHedgehog.pas
changeset 11629 56aa40beedf0
parent 11518 d44d2ab7ce4a
child 11770 10860d4bca22
equal deleted inserted replaced
11628:515d2d38ab8b 11629:56aa40beedf0
   683 var s: shortstring;
   683 var s: shortstring;
   684     i: LongInt;
   684     i: LongInt;
   685     vga: PVisualGear;
   685     vga: PVisualGear;
   686     ag, gi: PGear;
   686     ag, gi: PGear;
   687 begin
   687 begin
       
   688 if Gear^.State and gstFrozen <> 0 then exit;
       
   689 
   688 Gear^.Message:= gmDestroy;
   690 Gear^.Message:= gmDestroy;
   689 if (Gear^.Pos and posCaseExplode) <> 0 then
   691 if (Gear^.Pos and posCaseExplode) <> 0 then
   690     if (Gear^.Pos and posCasePoison) <> 0 then
   692     if (Gear^.Pos and posCasePoison) <> 0 then
   691         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned)
   693         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned)
   692     else
   694     else
  1251         and (HHGear^.dY > _0_39)
  1253         and (HHGear^.dY > _0_39)
  1252         and (CurAmmoType = amParachute) then
  1254         and (CurAmmoType = amParachute) then
  1253             HHGear^.Message:= HHGear^.Message or gmAttack;
  1255             HHGear^.Message:= HHGear^.Message or gmAttack;
  1254     // check for case with ammo
  1256     // check for case with ammo
  1255     t:= CheckGearNear(HHGear, gtCase, 36, 36);
  1257     t:= CheckGearNear(HHGear, gtCase, 36, 36);
  1256     if (t <> nil) and (t^.State and gstFrozen = 0) then
  1258     if (t <> nil) then
  1257         PickUp(HHGear, t)
  1259         PickUp(HHGear, t)
  1258     end;
  1260     end;
  1259 
  1261 
  1260 if (CurAmmoGear = nil) then
  1262 if (CurAmmoGear = nil) then
  1261     if (((HHGear^.Message and gmAttack) <> 0)
  1263     if (((HHGear^.Message and gmAttack) <> 0)