hedgewars/uGearsHedgehog.pas
changeset 9509 5b3f2ea156c9
parent 9507 821452415337
child 9521 8054d9d775fd
child 9526 2fd51591b260
equal deleted inserted replaced
9507:821452415337 9509:5b3f2ea156c9
  1274 end;
  1274 end;
  1275 
  1275 
  1276 ////////////////////////////////////////////////////////////////////////////////
  1276 ////////////////////////////////////////////////////////////////////////////////
  1277 procedure doStepHedgehog(Gear: PGear);
  1277 procedure doStepHedgehog(Gear: PGear);
  1278 begin
  1278 begin
  1279 if WorldWrap(Gear) and (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) then
  1279 if WorldWrap(Gear) and (WorldEdge <> weBounce) and 
       
  1280   (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) then
  1280    CurAmmoGear^.PortalCounter:= 1;
  1281    CurAmmoGear^.PortalCounter:= 1;
  1281 
  1282 
  1282 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
  1283 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
  1283 if (Gear^.Message and gmDestroy) <> 0 then
  1284 if (Gear^.Message and gmDestroy) <> 0 then
  1284     begin
  1285     begin