2207 if cWindSpeed.isNegative then |
2207 if cWindSpeed.isNegative then |
2208 CWindSpeedf := -cWindSpeedf; |
2208 CWindSpeedf := -cWindSpeedf; |
2209 AddVisualGear(0, 0, vgtSmoothWindBar); |
2209 AddVisualGear(0, 0, vgtSmoothWindBar); |
2210 end; |
2210 end; |
2211 lc_setwind:= 0 |
2211 lc_setwind:= 0 |
2212 end; |
|
2213 |
|
2214 function lc_getdatapath(L : Plua_State) : LongInt; Cdecl; |
|
2215 begin |
|
2216 if CheckLuaParamCount(L, 0, 'GetDataPath', '') then |
|
2217 lua_pushstring(L, str2pchar(cPathz[ptData])) |
|
2218 else |
|
2219 lua_pushnil(L); |
|
2220 lc_getdatapath:= 1 |
|
2221 end; |
|
2222 |
|
2223 function lc_getuserdatapath(L : Plua_State) : LongInt; Cdecl; |
|
2224 begin |
|
2225 if CheckLuaParamCount(L, 0, 'GetUserDataPath', '') then |
|
2226 lua_pushstring(L, str2pchar(cPathz[ptData])) |
|
2227 else |
|
2228 lua_pushnil(L); |
|
2229 lc_getuserdatapath:= 1 |
|
2230 end; |
2212 end; |
2231 |
2213 |
2232 function lc_maphasborder(L : Plua_State) : LongInt; Cdecl; |
2214 function lc_maphasborder(L : Plua_State) : LongInt; Cdecl; |
2233 begin |
2215 begin |
2234 if CheckLuaParamCount(L, 0, 'MapHasBorder', '') then |
2216 if CheckLuaParamCount(L, 0, 'MapHasBorder', '') then |
3336 lua_register(luaState, _P'SetGearPos', @lc_setgearpos); |
3318 lua_register(luaState, _P'SetGearPos', @lc_setgearpos); |
3337 lua_register(luaState, _P'GetGearCollisionMask', @lc_getgearcollisionmask); |
3319 lua_register(luaState, _P'GetGearCollisionMask', @lc_getgearcollisionmask); |
3338 lua_register(luaState, _P'SetGearCollisionMask', @lc_setgearcollisionmask); |
3320 lua_register(luaState, _P'SetGearCollisionMask', @lc_setgearcollisionmask); |
3339 lua_register(luaState, _P'GetRandom', @lc_getrandom); |
3321 lua_register(luaState, _P'GetRandom', @lc_getrandom); |
3340 lua_register(luaState, _P'SetWind', @lc_setwind); |
3322 lua_register(luaState, _P'SetWind', @lc_setwind); |
3341 lua_register(luaState, _P'GetDataPath', @lc_getdatapath); |
|
3342 lua_register(luaState, _P'GetUserDataPath', @lc_getuserdatapath); |
|
3343 lua_register(luaState, _P'MapHasBorder', @lc_maphasborder); |
3323 lua_register(luaState, _P'MapHasBorder', @lc_maphasborder); |
3344 lua_register(luaState, _P'GetHogHat', @lc_gethoghat); |
3324 lua_register(luaState, _P'GetHogHat', @lc_gethoghat); |
3345 lua_register(luaState, _P'SetHogHat', @lc_sethoghat); |
3325 lua_register(luaState, _P'SetHogHat', @lc_sethoghat); |
3346 lua_register(luaState, _P'EraseSprite', @lc_erasesprite); |
3326 lua_register(luaState, _P'EraseSprite', @lc_erasesprite); |
3347 lua_register(luaState, _P'PlaceSprite', @lc_placesprite); |
3327 lua_register(luaState, _P'PlaceSprite', @lc_placesprite); |