equal
deleted
inserted
replaced
1786 end; |
1786 end; |
1787 end; |
1787 end; |
1788 |
1788 |
1789 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); |
1789 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); |
1790 begin |
1790 begin |
1791 if (ord(ammo) < 1) or (count > 9) or (count < 0) or (propability < 0) or (propability > 8) or (delay < 0) or (delay > 9) or (reinforcement < 0) or (reinforcement > 8) then |
1791 //if (ord(ammo) < 1) or (count > 9) or (count < 0) or (propability < 0) or (propability > 8) or (delay < 0) or (delay > 9) or (reinforcement < 0) or (reinforcement > 8) then |
|
1792 if (ord(ammo) < 1) or (count > 9) or (propability > 8) or (delay > 9) or (reinforcement > 8) then |
1792 exit; |
1793 exit; |
1793 ScriptAmmoLoadout[ord(ammo)]:= inttostr(count)[1]; |
1794 ScriptAmmoLoadout[ord(ammo)]:= inttostr(count)[1]; |
1794 ScriptAmmoProbability[ord(ammo)]:= inttostr(propability)[1]; |
1795 ScriptAmmoProbability[ord(ammo)]:= inttostr(propability)[1]; |
1795 ScriptAmmoDelay[ord(ammo)]:= inttostr(delay)[1]; |
1796 ScriptAmmoDelay[ord(ammo)]:= inttostr(delay)[1]; |
1796 ScriptAmmoReinforcement[ord(ammo)]:= inttostr(reinforcement)[1]; |
1797 ScriptAmmoReinforcement[ord(ammo)]:= inttostr(reinforcement)[1]; |