changeset 13783 | e2d902745fd5 |
parent 13769 | c46998ecd8fa |
child 13795 | 552f0d5ab3e7 |
13782:3fa9e30927f1 | 13783:e2d902745fd5 |
---|---|
2197 |
2197 |
2198 function lc_setsoundmask(L : Plua_State) : LongInt; Cdecl; |
2198 function lc_setsoundmask(L : Plua_State) : LongInt; Cdecl; |
2199 var s: LongInt; |
2199 var s: LongInt; |
2200 soundState: boolean; |
2200 soundState: boolean; |
2201 const |
2201 const |
2202 call = 'SetSoundMasked'; |
2202 call = 'SetSoundMask'; |
2203 params = 'soundId, isMasked]'; |
2203 params = 'soundId, isMasked'; |
2204 begin |
2204 begin |
2205 if CheckLuaParamCount(L, 2, call, params) then |
2205 if CheckLuaParamCount(L, 2, call, params) then |
2206 begin |
2206 begin |
2207 s:= LuaToSoundOrd(L, 1, call, params); |
2207 s:= LuaToSoundOrd(L, 1, call, params); |
2208 if s <> Ord(sndNone) then |
2208 if s <> Ord(sndNone) then |
2808 tint : LongWord; |
2808 tint : LongWord; |
2809 i, n : LongInt; |
2809 i, n : LongInt; |
2810 placed, behind, flipHoriz, flipVert : boolean; |
2810 placed, behind, flipHoriz, flipVert : boolean; |
2811 const |
2811 const |
2812 call = 'PlaceSprite'; |
2812 call = 'PlaceSprite'; |
2813 params = 'x, y, sprite, frameIdx, tint, behind, flipHoriz, flipVert, [, landFlag, ... ]'; |
2813 params = 'x, y, sprite, frameIdx, tint, behind, flipHoriz, flipVert [, landFlag, ... ]'; |
2814 begin |
2814 begin |
2815 placed:= false; |
2815 placed:= false; |
2816 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then |
2816 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then |
2817 begin |
2817 begin |
2818 if not lua_isnoneornil(L, 5) then |
2818 if not lua_isnoneornil(L, 5) then |
2856 lf : Word; |
2856 lf : Word; |
2857 i, n : LongInt; |
2857 i, n : LongInt; |
2858 eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert : boolean; |
2858 eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert : boolean; |
2859 const |
2859 const |
2860 call = 'EraseSprite'; |
2860 call = 'EraseSprite'; |
2861 params = 'x, y, sprite, frameIdx, eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert, [, landFlag, ... ]'; |
2861 params = 'x, y, sprite, frameIdx, eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert [, landFlag, ... ]'; |
2862 begin |
2862 begin |
2863 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then |
2863 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then |
2864 begin |
2864 begin |
2865 if not lua_isnoneornil(L, 5) then |
2865 if not lua_isnoneornil(L, 5) then |
2866 eraseOnLFMatch := lua_toboolean(L, 5) |
2866 eraseOnLFMatch := lua_toboolean(L, 5) |
3210 end; |
3210 end; |
3211 |
3211 |
3212 function lc_setturntimeleft(L : Plua_State) : LongInt; Cdecl; |
3212 function lc_setturntimeleft(L : Plua_State) : LongInt; Cdecl; |
3213 var number: Int64; |
3213 var number: Int64; |
3214 begin |
3214 begin |
3215 if CheckLuaParamCount(L, 1, 'SetTurnTimeLeft', 'TurnTimeLeft') then |
3215 if CheckLuaParamCount(L, 1, 'SetTurnTimeLeft', 'newTurnTimeLeft') then |
3216 begin |
3216 begin |
3217 number:= Trunc(lua_tonumber(L, 1)); |
3217 number:= Trunc(lua_tonumber(L, 1)); |
3218 if number < 0 then |
3218 if number < 0 then |
3219 number:= 0; |
3219 number:= 0; |
3220 if number > cMaxTurnTime then |
3220 if number > cMaxTurnTime then |
3227 end; |
3227 end; |
3228 |
3228 |
3229 function lc_setreadytimeleft(L : Plua_State) : LongInt; Cdecl; |
3229 function lc_setreadytimeleft(L : Plua_State) : LongInt; Cdecl; |
3230 var number: Int64; |
3230 var number: Int64; |
3231 begin |
3231 begin |
3232 if CheckLuaParamCount(L, 1, 'SetReadyTimeLeft', 'ReadyTimeLeft') then |
3232 if CheckLuaParamCount(L, 1, 'SetReadyTimeLeft', 'newReadyTimeLeft') then |
3233 begin |
3233 begin |
3234 number:= Trunc(lua_tonumber(L, 1)); |
3234 number:= Trunc(lua_tonumber(L, 1)); |
3235 if number < 0 then |
3235 if number < 0 then |
3236 number:= 0; |
3236 number:= 0; |
3237 if number > cMaxTurnTime then |
3237 if number > cMaxTurnTime then |