equal
deleted
inserted
replaced
370 if ScriptGetString('Theme') <> '' then |
370 if ScriptGetString('Theme') <> '' then |
371 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
371 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
372 |
372 |
373 ScriptPrepareAmmoStore; |
373 ScriptPrepareAmmoStore; |
374 ScriptCall('onAmmoStoreInit'); |
374 ScriptCall('onAmmoStoreInit'); |
375 ScriptApplyAmmoStore; // doing 6 times - this is just temporary for now |
|
376 ScriptApplyAmmoStore; |
|
377 ScriptApplyAmmoStore; |
|
378 ScriptApplyAmmoStore; |
|
379 ScriptApplyAmmoStore; |
|
380 ScriptApplyAmmoStore; |
375 ScriptApplyAmmoStore; |
381 end; |
376 end; |
382 |
377 |
383 procedure ScriptLoad(name : shortstring); |
378 procedure ScriptLoad(name : shortstring); |
384 var ret : LongInt; |
379 var ret : LongInt; |
474 ScriptAmmoStore[ord(ammo) + ord(high(TAmmoType))]:= inttostr(propability)[1]; |
469 ScriptAmmoStore[ord(ammo) + ord(high(TAmmoType))]:= inttostr(propability)[1]; |
475 ScriptAmmoStore[ord(ammo) + 2 * ord(high(TAmmoType))]:= inttostr(delay)[1]; |
470 ScriptAmmoStore[ord(ammo) + 2 * ord(high(TAmmoType))]:= inttostr(delay)[1]; |
476 end; |
471 end; |
477 |
472 |
478 procedure ScriptApplyAmmoStore; |
473 procedure ScriptApplyAmmoStore; |
479 begin |
474 var i : LongInt; |
|
475 begin |
|
476 for i:= 0 to Pred(TeamsCount) do |
480 AddAmmoStore(ScriptAmmoStore); |
477 AddAmmoStore(ScriptAmmoStore); |
481 end; |
478 end; |
482 |
479 |
483 // small helper functions making registering enums a lot easier |
480 // small helper functions making registering enums a lot easier |
484 function str(const en : TGearType) : shortstring; overload; |
481 function str(const en : TGearType) : shortstring; overload; |