equal
deleted
inserted
replaced
821 |
821 |
822 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn |
822 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn |
823 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here. |
823 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here. |
824 procedure EndTurnCleanup; |
824 procedure EndTurnCleanup; |
825 var i: LongInt; |
825 var i: LongInt; |
826 iterator: PGear; |
|
827 begin |
826 begin |
828 SpeechText:= ''; // in case it has not been consumed |
827 SpeechText:= ''; // in case it has not been consumed |
829 |
828 |
830 if (GameFlags and gfLowGravity) = 0 then |
829 if (GameFlags and gfLowGravity) = 0 then |
831 cGravity:= cMaxWindSpeed * 2; |
830 cGravity:= cMaxWindSpeed * 2; |
855 |
854 |
856 if (Gear <> nil) then |
855 if (Gear <> nil) then |
857 if (GameFlags and gfInvulnerable) = 0 then |
856 if (GameFlags and gfInvulnerable) = 0 then |
858 Gear^.Invulnerable:= false; |
857 Gear^.Invulnerable:= false; |
859 end; |
858 end; |
860 iterator:= GearsList; |
|
861 while iterator <> nil do |
|
862 begin |
|
863 if (iterator^.Kind = gtPortal) then iterator^.Timer:= 0; |
|
864 iterator:= iterator^.NextGear; |
|
865 end; |
|
866 end; |
859 end; |
867 |
860 |
868 procedure ApplyDamage(Gear: PGear; Damage: Longword); |
861 procedure ApplyDamage(Gear: PGear; Damage: Longword); |
869 var s: shortstring; |
862 var s: shortstring; |
870 vampDmg, tmpDmg, i: Longword; |
863 vampDmg, tmpDmg, i: Longword; |