2307 function lc_testrectforobstacle(L : Plua_State) : LongInt; Cdecl; |
2307 function lc_testrectforobstacle(L : Plua_State) : LongInt; Cdecl; |
2308 var rtn: Boolean; |
2308 var rtn: Boolean; |
2309 begin |
2309 begin |
2310 if CheckLuaParamCount(L, 5, 'TestRectForObstacle', 'x1, y1, x2, y2, landOnly') then |
2310 if CheckLuaParamCount(L, 5, 'TestRectForObstacle', 'x1, y1, x2, y2, landOnly') then |
2311 begin |
2311 begin |
2312 rtn:= TestRectancleForObstacle( |
2312 rtn:= TestRectangleForObstacle( |
2313 lua_tointeger(L, 1), |
2313 lua_tointeger(L, 1), |
2314 lua_tointeger(L, 2), |
2314 lua_tointeger(L, 2), |
2315 lua_tointeger(L, 3), |
2315 lua_tointeger(L, 3), |
2316 lua_tointeger(L, 4), |
2316 lua_tointeger(L, 4), |
2317 lua_toboolean(L, 5) |
2317 lua_toboolean(L, 5) |
3025 ScriptSetInteger('gstHHDriven' , gstHHDriven); |
3025 ScriptSetInteger('gstHHDriven' , gstHHDriven); |
3026 ScriptSetInteger('gstMoving' , gstMoving); |
3026 ScriptSetInteger('gstMoving' , gstMoving); |
3027 ScriptSetInteger('gstAttacked' , gstAttacked); |
3027 ScriptSetInteger('gstAttacked' , gstAttacked); |
3028 ScriptSetInteger('gstAttacking' , gstAttacking); |
3028 ScriptSetInteger('gstAttacking' , gstAttacking); |
3029 ScriptSetInteger('gstCollision' , gstCollision); |
3029 ScriptSetInteger('gstCollision' , gstCollision); |
3030 ScriptSetInteger('gstHHChooseTarget', gstHHChooseTarget); |
3030 ScriptSetInteger('gstChooseTarget', gstChooseTarget); |
3031 ScriptSetInteger('gstHHJumping' , gstHHJumping); |
3031 ScriptSetInteger('gstHHJumping' , gstHHJumping); |
3032 ScriptSetInteger('gsttmpFlag' , gsttmpFlag); |
3032 ScriptSetInteger('gsttmpFlag' , gsttmpFlag); |
3033 ScriptSetInteger('gstHHThinking' , gstHHThinking); |
3033 ScriptSetInteger('gstHHThinking' , gstHHThinking); |
3034 ScriptSetInteger('gstNoDamage' , gstNoDamage); |
3034 ScriptSetInteger('gstNoDamage' , gstNoDamage); |
3035 ScriptSetInteger('gstHHHJump' , gstHHHJump); |
3035 ScriptSetInteger('gstHHHJump' , gstHHHJump); |