hedgewars: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:453917e94e55
+:a7f02b902b6f
 if (Gear^.Kind = gtHedgehog) and (((GameFlags and gfInfAttack) = 0) or ((Gear^.dX.QWordValue < _0_000004.QWordValue)
 and (Gear^.dY.QWordValue < _0_000004.QWordValue))) then
 begin
 if (not isInMultiShoot) then
 inc(Gear^.Damage, Gear^.Karma);
-if (Gear^.Damage <> 0) and (not Gear^.Invulnerable) then
+if ((Gear^.Damage <> 0) and (not Gear^.Invulnerable)) then
 begin
 CheckNoDamage:= false;
 dmg:= Gear^.Damage;
 if Gear^.Health < dmg then
 team:= Gear^.Hedgehog^.Team;
 for i:= 0 to Pred(team^.HedgehogsNumber) do
 if (team^.Hedgehogs[i].Gear <> nil) and (not team^.Hedgehogs[i].King)
 and (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage) then
 flag:= true;
-if not flag then
+if (not flag) then
 begin
 inc(tmp, 5);
 if (GameFlags and gfResetHealth) <> 0 then
 dec(Gear^.Hedgehog^.InitialHealth, 5)
 end
 if curHandledGear^.Message and gmRemoveFromList <> 0 then
 begin
 RemoveGearFromList(curHandledGear);
 // since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block
 if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear);
-curHandledGear^.Message:= curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList))
+curHandledGear^.Message:= (curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList)))
 end;
 if curHandledGear^.Active then
 begin
 if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then
 begin
 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
 playSound(sndSuddenDeath);
 StopMusic //No SDMusic for now
 //ChangeMusic(SDMusic)
 end
-else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then
+else if ((TotalRounds < cSuddenDTurns) and (not isInMultiShoot)) then
 begin
 i:= cSuddenDTurns - TotalRounds;
 s:= inttostr(i);
 if i = 1 then
 AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)
 step:= stChDmg
 end
 end;
 stSpawn:
 begin
-if not isInMultiShoot then
+if (not isInMultiShoot) then
 SpawnBoxOfSmth;
 inc(step)
 end;
 stNTurn:
 begin
 and (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
 begin
 CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstHHChooseTarget;
 isCursorVisible := true
 end;
-CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and (not gstAttacked);
+CurrentHedgehog^.Gear^.State:= (CurrentHedgehog^.Gear^.State and (not gstAttacked));
 end;
 if delay2 = 0 then
 begin
 if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0)
 and (CurAmmoGear = nil) then
 DeleteCI(t);
 t^.dX:= t^.dX + Gear^.dX * dmg * _0_01 + SignAs(cHHKick, Gear^.dX);
 t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
 t^.State:= t^.State or gstMoving;
-if t^.Kind = gtKnife then t^.State:= t^.State and (not gstCollision);
+if t^.Kind = gtKnife then t^.State:= (t^.State and (not gstCollision));
 t^.Active:= true;
 FollowGear:= t
 end
 end;
 gtGrave: begin
 else
 Gear^.State:= Gear^.State or gstWinner;
 if (Gear^.Kind = gtExplosives) and (Ammo^.Kind = gtBlowtorch) then
 begin
 if (Ammo^.Hedgehog^.Gear <> nil) then
-Ammo^.Hedgehog^.Gear^.State:= Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable);
+Ammo^.Hedgehog^.Gear^.State:= (Ammo^.Hedgehog^.Gear^.State and (not gstNotKickable));
 ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg * 100, dsUnknown); // crank up damage for explosives + blowtorch
 end;
 if (Gear^.Kind = gtHedgehog) and Gear^.Hedgehog^.King then
 begin
 if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
 begin
 Gear^.Active:= true;
 DeleteCI(Gear);
 Gear^.State:= Gear^.State or gstMoving;
-if Gear^.Kind = gtKnife then Gear^.State:= Gear^.State and (not gstCollision);
+if Gear^.Kind = gtKnife then Gear^.State:= (Gear^.State and (not gstCollision));
 // move the gear upwards a bit to throw it over tiny obstacles at start
 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
 begin
-if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX))
+if (not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX)))
 or (TestCollisionYwithGear(Gear, -1) <> 0)) then
 Gear^.Y:= Gear^.Y - _1;
-if not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX))
+if (not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX)))
 or (TestCollisionYwithGear(Gear, -1) <> 0)) then
 Gear^.Y:= Gear^.Y - _1;
-if not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX))
+if (not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX)))
 or (TestCollisionYwithGear(Gear, -1) <> 0)) then
 Gear^.Y:= Gear^.Y - _1;
 end
 end;
 begin
 t:= GearsList;
 while t <> nil do
 begin
 if (t^.Kind = gtHedgehog) and (t^.Y < Ammo^.Y) then
-if not (hwSqr(Ammo^.X - t^.X) + hwSqr(Ammo^.Y - t^.Y - int2hwFloat(cHHRadius)) * 2 > _2) then
+if (not (hwSqr(Ammo^.X - t^.X) + hwSqr(Ammo^.Y - t^.Y - int2hwFloat(cHHRadius)) * 2 > _2)) then
 begin
 ApplyDamage(t, 5);
 t^.dX:= t^.dX + (t^.X - Ammo^.X) * _0_02;
 t^.dY:= - _0_25;
 t^.Active:= true;
 procedure chSkip(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
-if not isExternalSource then
+if (not isExternalSource) then
 SendIPC(_S',');
 uStats.Skipped;
 skipFlag:= true
 end;

branch	webgl
changeset 8099	a7f02b902b6f
parent 8096	453917e94e55
child 8330	aaefa587e277