Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 9487 fbe203c1d11e
parent 9485 3dee8a3b0406
child 9505 56e0cca99e20
equal deleted inserted replaced
9485:3dee8a3b0406 9487:fbe203c1d11e 
  1321 var
 
  1321 var
 
  1322     i, ei, x, y: LongInt;
 
  1322     i, ei, x, y: LongInt;
 
  1323     HHGear: PGear;
 
  1323     HHGear: PGear;
 
  1324 begin
 
  1324 begin
 
  1325     AllInactive := false;
 
  1325     AllInactive := false;
 
       
  1326     WorldWrap(Gear);
 
  1326     HHGear := Gear^.Hedgehog^.Gear;
 
  1327     HHGear := Gear^.Hedgehog^.Gear;
 
  1327     dec(Gear^.Timer);
 
  1328     dec(Gear^.Timer);
 
  1328     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then
 
  1329     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then
 
  1329         dec(TurnTimeLeft);
 
  1330         dec(TurnTimeLeft);
 
  1330     if (TurnTimeLeft = 0) or (Gear^.Timer = 0)
 
  1331     if (TurnTimeLeft = 0) or (Gear^.Timer = 0)
 
  1444     HHGear: PGear;
 
  1445     HHGear: PGear;
 
  1445     b: boolean;
 
  1446     b: boolean;
 
  1446     prevX: LongInt;
 
  1447     prevX: LongInt;
 
  1447 begin
 
  1448 begin
 
  1448     AllInactive := false;
 
  1449     AllInactive := false;
 
       
  1450     WorldWrap(Gear);
 
  1449     dec(Gear^.Timer);
 
  1451     dec(Gear^.Timer);
 
  1450     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then
 
  1452     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then
 
  1451         dec(TurnTimeLeft);
 
  1453         dec(TurnTimeLeft);
 
  1452 
  1454 
  1453     if Gear^.Hedgehog^.Gear = nil then
 
  1455     if Gear^.Hedgehog^.Gear = nil then
hedgewars