828 // push game variables so they may be modified by the script |
828 // push game variables so they may be modified by the script |
829 ScriptSetInteger('GameFlags', GameFlags); |
829 ScriptSetInteger('GameFlags', GameFlags); |
830 ScriptSetString('Seed', cSeed); |
830 ScriptSetString('Seed', cSeed); |
831 ScriptSetInteger('TurnTime', cHedgehogTurnTime); |
831 ScriptSetInteger('TurnTime', cHedgehogTurnTime); |
832 ScriptSetInteger('CaseFreq', cCaseFactor); |
832 ScriptSetInteger('CaseFreq', cCaseFactor); |
|
833 ScriptSetInteger('HealthCaseProb', cHealthCaseProb); |
|
834 ScriptSetInteger('HealthCaseAmount', cHealthCaseAmount); |
833 ScriptSetInteger('MinesNum', cLandMines); |
835 ScriptSetInteger('MinesNum', cLandMines); |
834 ScriptSetInteger('Explosives', cExplosives); |
836 ScriptSetInteger('Explosives', cExplosives); |
835 ScriptSetInteger('Delay', cInactDelay); |
837 ScriptSetInteger('Delay', cInactDelay); |
836 ScriptSetInteger('Ready', cReadyDelay); |
838 ScriptSetInteger('Ready', cReadyDelay); |
837 ScriptSetInteger('SuddenDeathTurns', cSuddenDTurns); |
839 ScriptSetInteger('SuddenDeathTurns', cSuddenDTurns); |
|
840 ScriptSetInteger('WaterRise', cWaterRise); |
|
841 ScriptSetInteger('HealthDecrease', cHealthDecrease); |
838 ScriptSetString('Map', ''); |
842 ScriptSetString('Map', ''); |
839 ScriptSetString('Theme', ''); |
843 ScriptSetString('Theme', ''); |
840 |
844 |
841 // import locale |
845 // import locale |
842 s:= cLocaleFName; |
846 s:= cLocaleFName; |
849 // pop game variables |
853 // pop game variables |
850 ParseCommand('seed ' + ScriptGetString('Seed'), true); |
854 ParseCommand('seed ' + ScriptGetString('Seed'), true); |
851 ParseCommand('$gmflags ' + ScriptGetString('GameFlags'), true); |
855 ParseCommand('$gmflags ' + ScriptGetString('GameFlags'), true); |
852 ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true); |
856 ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true); |
853 ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true); |
857 ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true); |
|
858 ParseCommand('$healthprob ' + ScriptGetString('HealthCaseProb'), true); |
|
859 ParseCommand('$hcaseamount ' + ScriptGetString('HealthCaseAmount'), true); |
854 ParseCommand('$minesnum ' + ScriptGetString('MinesNum'), true); |
860 ParseCommand('$minesnum ' + ScriptGetString('MinesNum'), true); |
855 ParseCommand('$explosives ' + ScriptGetString('Explosives'), true); |
861 ParseCommand('$explosives ' + ScriptGetString('Explosives'), true); |
856 ParseCommand('$delay ' + ScriptGetString('Delay'), true); |
862 ParseCommand('$delay ' + ScriptGetString('Delay'), true); |
857 ParseCommand('$ready ' + ScriptGetString('Ready'), true); |
863 ParseCommand('$ready ' + ScriptGetString('Ready'), true); |
858 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true); |
864 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true); |
|
865 ParseCommand('$waterrise ' + ScriptGetString('WaterRise'), true); |
|
866 ParseCommand('$healthdec ' + ScriptGetString('HealthDecrease'), true); |
859 if ScriptGetString('Map') <> '' then |
867 if ScriptGetString('Map') <> '' then |
860 ParseCommand('map ' + ScriptGetString('Map'), true); |
868 ParseCommand('map ' + ScriptGetString('Map'), true); |
861 if ScriptGetString('Theme') <> '' then |
869 if ScriptGetString('Theme') <> '' then |
862 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
870 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
863 |
871 |
1046 ScriptSetInteger('gfRandomOrder', gfRandomOrder); |
1054 ScriptSetInteger('gfRandomOrder', gfRandomOrder); |
1047 ScriptSetInteger('gfKing', gfKing); |
1055 ScriptSetInteger('gfKing', gfKing); |
1048 ScriptSetInteger('gfPlaceHog', gfPlaceHog); |
1056 ScriptSetInteger('gfPlaceHog', gfPlaceHog); |
1049 ScriptSetInteger('gfSharedAmmo', gfSharedAmmo); |
1057 ScriptSetInteger('gfSharedAmmo', gfSharedAmmo); |
1050 ScriptSetInteger('gfDisableGirders', gfDisableGirders); |
1058 ScriptSetInteger('gfDisableGirders', gfDisableGirders); |
|
1059 ScriptSetInteger('gfDisableLandObjects', gfDisableLandObjects); |
|
1060 ScriptSetInteger('gfAISurvival', gfAISurvival); |
|
1061 ScriptSetInteger('gfInfAttack', gfInfAttack); |
|
1062 ScriptSetInteger('gfResetWeps', gfResetWeps); |
|
1063 ScriptSetInteger('gfPerHogAmmo', gfPerHogAmmo); |
1051 |
1064 |
1052 ScriptSetInteger('gmLeft', gmLeft); |
1065 ScriptSetInteger('gmLeft', gmLeft); |
1053 ScriptSetInteger('gmRight', gmRight); |
1066 ScriptSetInteger('gmRight', gmRight); |
1054 ScriptSetInteger('gmUp', gmUp); |
1067 ScriptSetInteger('gmUp', gmUp); |
1055 ScriptSetInteger('gmDown', gmDown); |
1068 ScriptSetInteger('gmDown', gmDown); |