1948 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
1948 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
1949 ScriptSetInteger('GameTime', GameTicks); |
1949 ScriptSetInteger('GameTime', GameTicks); |
1950 ScriptSetInteger('RealTime', RealTicks); |
1950 ScriptSetInteger('RealTime', RealTicks); |
1951 ScriptSetInteger('TotalRounds', TotalRounds); |
1951 ScriptSetInteger('TotalRounds', TotalRounds); |
1952 ScriptSetInteger('WaterLine', cWaterLine); |
1952 ScriptSetInteger('WaterLine', cWaterLine); |
1953 ScriptSetInteger('LeftX', leftX); |
1953 if GameTicks = 0 then |
1954 ScriptSetInteger('RightX', rightX); |
1954 begin |
1955 ScriptSetInteger('TopY', topY); |
1955 ScriptSetInteger('LAND_WIDTH', LAND_WIDTH); |
|
1956 ScriptSetInteger('LAND_HEIGHT', LAND_HEIGHT); |
|
1957 ScriptSetInteger('LeftX', leftX); |
|
1958 ScriptSetInteger('RightX', rightX); |
|
1959 ScriptSetInteger('TopY', topY) |
|
1960 end; |
1956 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then |
1961 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then |
1957 ScriptSetInteger('CurrentHedgehog', CurrentHedgehog^.Gear^.UID) |
1962 ScriptSetInteger('CurrentHedgehog', CurrentHedgehog^.Gear^.UID) |
1958 else |
1963 else |
1959 ScriptSetNil('CurrentHedgehog'); |
1964 ScriptSetNil('CurrentHedgehog'); |
1960 end; |
1965 end; |
2147 luaopen_string(luaState); |
2152 luaopen_string(luaState); |
2148 luaopen_math(luaState); |
2153 luaopen_math(luaState); |
2149 luaopen_table(luaState); |
2154 luaopen_table(luaState); |
2150 |
2155 |
2151 // import some variables |
2156 // import some variables |
2152 ScriptSetInteger('LAND_WIDTH', LAND_WIDTH); |
|
2153 ScriptSetInteger('LAND_HEIGHT', LAND_HEIGHT); |
|
2154 ScriptSetString(_S'L', cLocale); |
2157 ScriptSetString(_S'L', cLocale); |
2155 |
2158 |
2156 // import game flags |
2159 // import game flags |
2157 ScriptSetInteger('gfForts', gfForts); |
2160 ScriptSetInteger('gfForts', gfForts); |
2158 ScriptSetInteger('gfMultiWeapon', gfMultiWeapon); |
2161 ScriptSetInteger('gfMultiWeapon', gfMultiWeapon); |