equal
deleted
inserted
replaced
96 ScriptLoaded : boolean; |
96 ScriptLoaded : boolean; |
97 mapDims : boolean; |
97 mapDims : boolean; |
98 |
98 |
99 procedure ScriptPrepareAmmoStore; forward; |
99 procedure ScriptPrepareAmmoStore; forward; |
100 procedure ScriptApplyAmmoStore; forward; |
100 procedure ScriptApplyAmmoStore; forward; |
101 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); forward; |
101 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward; |
102 |
102 |
103 procedure LuaError(s: shortstring); |
103 procedure LuaError(s: shortstring); |
104 begin |
104 begin |
105 WriteLnToConsole(s); |
105 WriteLnToConsole(s); |
106 AddChatString(#5 + s); |
106 AddChatString(#5 + s); |
2229 ScriptAmmoDelay:= ScriptAmmoDelay + '0'; |
2229 ScriptAmmoDelay:= ScriptAmmoDelay + '0'; |
2230 ScriptAmmoReinforcement:= ScriptAmmoReinforcement + '0'; |
2230 ScriptAmmoReinforcement:= ScriptAmmoReinforcement + '0'; |
2231 end; |
2231 end; |
2232 end; |
2232 end; |
2233 |
2233 |
2234 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); |
2234 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); |
2235 begin |
2235 begin |
2236 //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 |
2236 //if (ord(ammo) < 1) or (count > 9) or (count < 0) or (probability < 0) or (probability > 8) or (delay < 0) or (delay > 9) or (reinforcement < 0) or (reinforcement > 8) then |
2237 if (ord(ammo) < 1) or (count > 9) or (propability > 8) or (delay > 9) or (reinforcement > 8) then |
2237 if (ord(ammo) < 1) or (count > 9) or (probability > 8) or (delay > 9) or (reinforcement > 8) then |
2238 exit; |
2238 exit; |
2239 ScriptAmmoLoadout[ord(ammo)]:= inttostr(count)[1]; |
2239 ScriptAmmoLoadout[ord(ammo)]:= inttostr(count)[1]; |
2240 ScriptAmmoProbability[ord(ammo)]:= inttostr(propability)[1]; |
2240 ScriptAmmoProbability[ord(ammo)]:= inttostr(probability)[1]; |
2241 ScriptAmmoDelay[ord(ammo)]:= inttostr(delay)[1]; |
2241 ScriptAmmoDelay[ord(ammo)]:= inttostr(delay)[1]; |
2242 ScriptAmmoReinforcement[ord(ammo)]:= inttostr(reinforcement)[1]; |
2242 ScriptAmmoReinforcement[ord(ammo)]:= inttostr(reinforcement)[1]; |
2243 end; |
2243 end; |
2244 |
2244 |
2245 procedure ScriptApplyAmmoStore; |
2245 procedure ScriptApplyAmmoStore; |