1718 ScriptSetString('Seed', cSeed); |
1718 ScriptSetString('Seed', cSeed); |
1719 ScriptSetInteger('TemplateFilter', cTemplateFilter); |
1719 ScriptSetInteger('TemplateFilter', cTemplateFilter); |
1720 ScriptSetInteger('MapGen', cMapGen); |
1720 ScriptSetInteger('MapGen', cMapGen); |
1721 ScriptSetInteger('ScreenHeight', cScreenHeight); |
1721 ScriptSetInteger('ScreenHeight', cScreenHeight); |
1722 ScriptSetInteger('ScreenWidth', cScreenWidth); |
1722 ScriptSetInteger('ScreenWidth', cScreenWidth); |
1723 ScriptSetInteger('LeftX', leftX); |
|
1724 ScriptSetInteger('RightX', rightX); |
|
1725 ScriptSetInteger('TopY', topY); |
|
1726 ScriptSetInteger('TurnTime', cHedgehogTurnTime); |
1723 ScriptSetInteger('TurnTime', cHedgehogTurnTime); |
1727 ScriptSetInteger('CaseFreq', cCaseFactor); |
1724 ScriptSetInteger('CaseFreq', cCaseFactor); |
1728 ScriptSetInteger('HealthCaseProb', cHealthCaseProb); |
1725 ScriptSetInteger('HealthCaseProb', cHealthCaseProb); |
1729 ScriptSetInteger('HealthCaseAmount', cHealthCaseAmount); |
1726 ScriptSetInteger('HealthCaseAmount', cHealthCaseAmount); |
1730 ScriptSetInteger('DamagePercent', cDamagePercent); |
1727 ScriptSetInteger('DamagePercent', cDamagePercent); |
1855 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
1852 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
1856 ScriptSetInteger('GameTime', GameTicks); |
1853 ScriptSetInteger('GameTime', GameTicks); |
1857 ScriptSetInteger('RealTime', RealTicks); |
1854 ScriptSetInteger('RealTime', RealTicks); |
1858 ScriptSetInteger('TotalRounds', TotalRounds); |
1855 ScriptSetInteger('TotalRounds', TotalRounds); |
1859 ScriptSetInteger('WaterLine', cWaterLine); |
1856 ScriptSetInteger('WaterLine', cWaterLine); |
|
1857 ScriptSetInteger('LeftX', leftX); |
|
1858 ScriptSetInteger('RightX', rightX); |
|
1859 ScriptSetInteger('TopY', topY); |
1860 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then |
1860 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then |
1861 ScriptSetInteger('CurrentHedgehog', CurrentHedgehog^.Gear^.UID) |
1861 ScriptSetInteger('CurrentHedgehog', CurrentHedgehog^.Gear^.UID) |
1862 else |
1862 else |
1863 ScriptSetNil('CurrentHedgehog'); |
1863 ScriptSetNil('CurrentHedgehog'); |
1864 end; |
1864 end; |