equal
deleted
inserted
replaced
464 descr:= ''; // avoid compiler hint |
464 descr:= ''; // avoid compiler hint |
465 AddAmmoStore |
465 AddAmmoStore |
466 end; |
466 end; |
467 |
467 |
468 procedure initModule; |
468 procedure initModule; |
|
469 var i: Longword; |
469 begin |
470 begin |
470 RegisterVariable('ammloadt', vtCommand, @SetAmmoLoadout, false); |
471 RegisterVariable('ammloadt', vtCommand, @SetAmmoLoadout, false); |
471 RegisterVariable('ammdelay', vtCommand, @SetAmmoDelay, false); |
472 RegisterVariable('ammdelay', vtCommand, @SetAmmoDelay, false); |
472 RegisterVariable('ammprob', vtCommand, @SetAmmoProbability, false); |
473 RegisterVariable('ammprob', vtCommand, @SetAmmoProbability, false); |
473 RegisterVariable('ammreinf', vtCommand, @SetAmmoReinforcement, false); |
474 RegisterVariable('ammreinf', vtCommand, @SetAmmoReinforcement, false); |
476 StoreCnt:= 0; |
477 StoreCnt:= 0; |
477 ammoLoadout:= ''; |
478 ammoLoadout:= ''; |
478 ammoProbability:= ''; |
479 ammoProbability:= ''; |
479 ammoDelay:= ''; |
480 ammoDelay:= ''; |
480 ammoReinforcement:= ''; |
481 ammoReinforcement:= ''; |
|
482 for i:=1 to ord(High(TAmmoType)) do |
|
483 begin |
|
484 ammoLoadout:= ammoLoadout + '0'; |
|
485 ammoProbability:= ammoProbability + '0'; |
|
486 ammoDelay:= ammoDelay + '0'; |
|
487 ammoReinforcement:= ammoReinforcement + '0' |
|
488 end; |
481 FillChar(InitialCounts, sizeof(InitialCounts), 0) |
489 FillChar(InitialCounts, sizeof(InitialCounts), 0) |
482 end; |
490 end; |
483 |
491 |
484 procedure freeModule; |
492 procedure freeModule; |
485 var i: LongWord; |
493 var i: LongWord; |