equal
deleted
inserted
replaced
1101 if lua_gettop(L) <> 3 then |
1101 if lua_gettop(L) <> 3 then |
1102 LuaError('Lua: Wrong number of parameters passed to SetEffect!') |
1102 LuaError('Lua: Wrong number of parameters passed to SetEffect!') |
1103 else begin |
1103 else begin |
1104 gear := GearByUID(lua_tointeger(L, 1)); |
1104 gear := GearByUID(lua_tointeger(L, 1)); |
1105 if (gear <> nil) and (gear^.Hedgehog <> nil) then |
1105 if (gear <> nil) and (gear^.Hedgehog <> nil) then |
1106 gear^.Hedgehog^.Effects[THogEffect(lua_tointeger(L, 2))]:= lua_toboolean(L, 3); |
1106 gear^.Hedgehog^.Effects[THogEffect(lua_tointeger(L, 2))]:= lua_tointeger(L, 3); |
1107 end; |
1107 end; |
1108 lc_seteffect := 0; |
1108 lc_seteffect := 0; |
1109 end; |
1109 end; |
1110 function lc_geteffect(L : Plua_State) : LongInt; Cdecl; |
1110 function lc_geteffect(L : Plua_State) : LongInt; Cdecl; |
1111 var gear : PGear; |
1111 var gear : PGear; |
1116 end |
1116 end |
1117 else |
1117 else |
1118 begin |
1118 begin |
1119 gear:= GearByUID(lua_tointeger(L, 1)); |
1119 gear:= GearByUID(lua_tointeger(L, 1)); |
1120 if (gear <> nil) and (gear^.Hedgehog <> nil) then |
1120 if (gear <> nil) and (gear^.Hedgehog <> nil) then |
1121 lua_pushboolean(L, gear^.Hedgehog^.Effects[THogEffect(lua_tointeger(L, 2))]) |
1121 lua_pushinteger(L, gear^.Hedgehog^.Effects[THogEffect(lua_tointeger(L, 2))]) |
1122 else |
1122 else |
1123 lua_pushboolean(L, false) |
1123 lua_pushinteger(L, 0) |
1124 end; |
1124 end; |
1125 lc_geteffect:= 1 |
1125 lc_geteffect:= 1 |
1126 end; |
1126 end; |
1127 |
1127 |
1128 function lc_setstate(L : Plua_State) : LongInt; Cdecl; |
1128 function lc_setstate(L : Plua_State) : LongInt; Cdecl; |