equal
deleted
inserted
replaced
416 |
416 |
417 for a:= Low(TAmmoType) to High(TAmmoType) do |
417 for a:= Low(TAmmoType) to High(TAmmoType) do |
418 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
418 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
419 end; |
419 end; |
420 |
420 |
|
421 |
|
422 |
|
423 procedure chAddAmmoStore(var descr: shortstring); |
|
424 begin |
|
425 descr:= ''; // avoid compiler hint |
|
426 AddAmmoStore |
|
427 end; |
|
428 |
421 procedure initModule; |
429 procedure initModule; |
422 begin |
430 begin |
|
431 RegisterVariable('ammloadt', vtCommand, @SetAmmoLoadout, false); |
|
432 RegisterVariable('ammdelay', vtCommand, @SetAmmoDelay, false); |
|
433 RegisterVariable('ammprob', vtCommand, @SetAmmoProbability, false); |
|
434 RegisterVariable('ammreinf', vtCommand, @SetAmmoReinforcement, false); |
|
435 RegisterVariable('ammstore', vtCommand, @chAddAmmoStore , false); |
|
436 |
423 StoreCnt:= 0; |
437 StoreCnt:= 0; |
424 ammoLoadout:= ''; |
438 ammoLoadout:= ''; |
425 ammoProbability:= ''; |
439 ammoProbability:= ''; |
426 ammoDelay:= ''; |
440 ammoDelay:= ''; |
427 ammoReinforcement:= ''; |
441 ammoReinforcement:= ''; |