hedgewars: comparison hedgewars/uScript.pas

equal deleted inserted replaced

-:fbc5f217f291
+:e5ed72b40c57
 if lua_getstack(luaState, 1, @LuaDebugInfo) = 0 then
 exit(false); // stack not deep enough
 // get source name and line count
-lua_getinfo(luaState, 'Sl', @LuaDebugInfo);
+lua_getinfo(luaState, PChar('Sl'), @LuaDebugInfo);
 exit(true);
 end;
 procedure LuaError(s: shortstring);
 var src: shortstring;
 // TODO: i18n?
 LuaCallError('Wrong number of parameters! (is: ' + inttostr(wrongcount) + ', should be: '+ expected + ')', call, paramsyntax);
 end;
 // compare with allowed count
-function CheckLuaParameterCount(L : Plua_State; count: LongInt; call, paramsyntax: shortstring): boolean; inline;
+function CheckLuaParamCount(L : Plua_State; count: LongInt; call, paramsyntax: shortstring): boolean; inline;
 var c: LongInt;
 begin
 c:= lua_gettop(L);
 if c <> count then
 begin
 LuaParameterCountError('exactly ' + inttostr(count), call, paramsyntax, c);
 exit(false);
 end;
-CheckLuaParameterCount:= true;
+CheckLuaParamCount:= true;
 end;
 // check if is either count1 or count2
-function CheckAndFetchLuaParameterCount(L : Plua_State; count1, count2: LongInt; call, paramsyntax: shortstring; out actual: LongInt): boolean; inline;
+function CheckAndFetchParamCount(L : Plua_State; count1, count2: LongInt; call, paramsyntax: shortstring; out actual: LongInt): boolean; inline;
 begin
 actual:= lua_gettop(L);
 if (actual <> count1) and (actual <> count2) then
 begin
 LuaParameterCountError('either ' + inttostr(count1) + ' or ' + inttostr(count2), call, paramsyntax, actual);
 exit(false);
 end;
-CheckAndFetchLuaParameterCount:= true;
+CheckAndFetchParamCount:= true;
 end;
 // check if is same or higher as minCount
-function CheckAndFetchLuaParameterCount(L : Plua_State; minCount: LongInt; call, paramsyntax: shortstring; out actual: LongInt): boolean; inline;
+function CheckAndFetchLuaParamMinCount(L : Plua_State; minCount: LongInt; call, paramsyntax: shortstring; out actual: LongInt): boolean; inline;
 begin
 actual:= lua_gettop(L);
 if (actual < minCount) then
 begin
 LuaParameterCountError(inttostr(minCount) + ' or more', call, paramsyntax, actual);
 exit(false);
 end;
-CheckAndFetchLuaParameterCount:= true;
+CheckAndFetchLuaParamMinCount:= true;
 end;
 function LuaToGearTypeOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
 // wrapped calls //
 // functions called from Lua:
 // function(L : Plua_State) : LongInt; Cdecl;
 // where L contains the state, returns the number of return values on the stack
-// call CheckLuaParameterCount or CheckAndFetchLuaParameterCount
+// call CheckLuaParamCount or CheckAndFetchParamCount
 // to validate/get the number of passed arguments (see their call definitions)
 //
 // use as return value the number of variables pushed back to the lua script
 function lc_band(L: PLua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 2, 'band', 'value1, value2') then
+if CheckLuaParamCount(L, 2, 'band', 'value1, value2') then
 lua_pushinteger(L, lua_tointeger(L, 2) and lua_tointeger(L, 1))
 else
 lua_pushnil(L);
 lc_band := 1;
 end;
 function lc_bor(L: PLua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 2, 'bor', 'value1, value2') then
+if CheckLuaParamCount(L, 2, 'bor', 'value1, value2') then
 lua_pushinteger(L, lua_tointeger(L, 2) or lua_tointeger(L, 1))
 else
 lua_pushnil(L);
 lc_bor := 1;
 end;
 function lc_bnot(L: PLua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'bnot', 'value') then
+if CheckLuaParamCount(L, 1, 'bnot', 'value') then
 lua_pushinteger(L, (not lua_tointeger(L, 1)))
 else
 lua_pushnil(L);
 lc_bnot := 1;
 end;
 function lc_div(L: PLua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 2, 'div', 'dividend, divisor') then
+if CheckLuaParamCount(L, 2, 'div', 'dividend, divisor') then
 lua_pushinteger(L, lua_tointeger(L, 1) div lua_tointeger(L, 2))
 else
 lua_pushnil(L);
 lc_div := 1;
 end;
 function lc_getinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetInputMask', '') then
+if CheckLuaParamCount(L, 0, 'GetInputMask', '') then
 lua_pushinteger(L, InputMask);
 lc_getinputmask:= 1
 end;
 function lc_setinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'SetInputMask', 'mask') then
+if CheckLuaParamCount(L, 1, 'SetInputMask', 'mask') then
 InputMask:= lua_tointeger(L, 1);
 lc_setinputmask:= 0
 end;
 function lc_writelntoconsole(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'WriteLnToConsole', 'string') then
+if CheckLuaParamCount(L, 1, 'WriteLnToConsole', 'string') then
 WriteLnToConsole('Lua: ' + lua_tostring(L ,1));
 lc_writelntoconsole:= 0;
 end;
 function lc_parsecommand(L : Plua_State) : LongInt; Cdecl;
 var t: PChar;
 i,c: LongWord;
 s: shortstring;
 begin
-if CheckLuaParameterCount(L, 1, 'ParseCommand', 'string') then
+if CheckLuaParamCount(L, 1, 'ParseCommand', 'string') then
 begin
 t:= lua_tolstring(L, 1, Psize_t(@c));
 for i:= 1 to c do s[i]:= t[i-1];
 s[0]:= char(c);
 const
 call = 'SetWeapon';
 params = 'ammoType';
 begin
 // no point to run this without any CurrentHedgehog
-if (CurrentHedgehog <> nil) and (CheckLuaParameterCount(L, 1, call, params)) then
+if (CurrentHedgehog <> nil) and (CheckLuaParamCount(L, 1, call, params)) then
 begin
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
 ParseCommand('setweap ' + char(at), true, true);
 end;
 s, a, cs, fa: LongInt;
 const
 call = 'SetNextWeapon';
 params = '';
 begin
-if (CurrentHedgehog <> nil) and (CheckLuaParameterCount(L, 0, call, params)) then
+if (CurrentHedgehog <> nil) and (CheckLuaParamCount(L, 0, call, params)) then
 begin
 at:= -1;
 with CurrentHedgehog^ do
 begin
 cs:= 0; // current slot
 lc_setnextweapon:= 0;
 end;
 function lc_showmission(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 5, 'ShowMission', 'caption, subcaption, text, icon, time') then
+if CheckLuaParamCount(L, 5, 'ShowMission', 'caption, subcaption, text, icon, time') then
 ShowMission(lua_tostringA(L, 1), lua_tostringA(L, 2), lua_tostringA(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
 lc_showmission:= 0;
 end;
 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl;
 var i, n : integer;
 begin
 // can have 1 or more arguments
-if CheckAndFetchLuaParameterCount(L, 1, 'EnableGameFlags', 'gameFlag, ... ', n) then
+if CheckAndFetchLuaParamMinCount(L, 1, 'EnableGameFlags', 'gameFlag, ... ', n) then
 begin
 for i:= 1 to n do
 GameFlags := GameFlags or LongWord(lua_tointeger(L, i));
 ScriptSetInteger('GameFlags', GameFlags);
 end;
 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl;
 var i , n: integer;
 begin
 // can have 1 or more arguments
-if CheckAndFetchLuaParameterCount(L, 1, 'DisableGameFlags', 'gameFlag, ... ', n) then
+if CheckAndFetchLuaParamMinCount(L, 1, 'DisableGameFlags', 'gameFlag, ... ', n) then
 begin
 for i:= 1 to n do
 GameFlags := GameFlags and (not LongWord(lua_tointeger(L, i)));
 ScriptSetInteger('GameFlags', GameFlags);
 end;
 lc_disablegameflags:= 0;
 end;
 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'ClearGameFlags', '') then
+if CheckLuaParamCount(L, 0, 'ClearGameFlags', '') then
 begin
 GameFlags:= 0;
 ScriptSetInteger('GameFlags', GameFlags);
 end;
 lc_cleargameflags:= 0;
 end;
 function lc_getgameflag(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGameFlag', 'gameflag') then
+if CheckLuaParamCount(L, 1, 'GetGameFlag', 'gameflag') then
 lua_pushboolean(L, (GameFlags and LongWord(lua_tointeger(L, 1)) <> 0))
 else
 lua_pushnil(L);
 lc_getgameflag:= 1;
 end;
 var cg: LongInt;
 const
 call = 'AddCaption';
 params = 'text [, color, captiongroup]';
 begin
-if CheckAndFetchLuaParameterCount(L, 1, 3, call, params, cg) then
+if CheckAndFetchParamCount(L, 1, 3, call, params, cg) then
 begin
 if cg = 1 then
 AddCaption(lua_tostringA(L, 1), cWhiteColor, capgrpMessage)
 else
 begin
 lc_addcaption:= 0;
 end;
 function lc_campaignlock(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'CampaignLock', 'TODO') then
+if CheckLuaParamCount(L, 1, 'CampaignLock', 'TODO') then
 begin
 // TODO
 end;
 lc_campaignlock:= 0;
 end;
 function lc_campaignunlock(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'CampaignUnlock', 'TODO') then
+if CheckLuaParamCount(L, 1, 'CampaignUnlock', 'TODO') then
 begin
 // TODO
 end;
 lc_campaignunlock:= 0;
 end;
 function lc_spawnfakehealthcrate(L: Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 4,'SpawnFakeHealthCrate', 'x, y, explode, poison') then
+if CheckLuaParamCount(L, 4,'SpawnFakeHealthCrate', 'x, y, explode, poison') then
 begin
 gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
 HealthCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 lua_pushinteger(L, gear^.uid);
 end
 end;
 function lc_spawnfakeammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 4,'SpawnFakeAmmoCrate', 'x, y, explode, poison') then
+if CheckLuaParamCount(L, 4,'SpawnFakeAmmoCrate', 'x, y, explode, poison') then
 begin
 gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
 AmmoCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 lua_pushinteger(L, gear^.uid);
 end
 end;
 function lc_spawnfakeutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 4,'SpawnFakeUtilityCrate', 'x, y, explode, poison') then
+if CheckLuaParamCount(L, 4,'SpawnFakeUtilityCrate', 'x, y, explode, poison') then
 begin
 gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
 UtilityCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 lua_pushinteger(L, gear^.uid);
 end
 function lc_spawnhealthcrate(L: Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 var health, n: LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 2, 3, 'SpawnHealthCrate', 'x, y [, health]', n) then
+if CheckAndFetchParamCount(L, 2, 3, 'SpawnHealthCrate', 'x, y [, health]', n) then
 begin
 if n = 3 then
 health:= lua_tointeger(L, 3)
 else
 health:= cHealthCaseAmount;
 function lc_spawnammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 n   : LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 3, 4, 'SpawnAmmoCrate', 'x, y, content [, amount]', n) then
+if CheckAndFetchParamCount(L, 3, 4, 'SpawnAmmoCrate', 'x, y, content [, amount]', n) then
 begin
 if n = 3 then
 gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), 0)
 else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
 if gear <> nil then
 function lc_spawnutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 n   : LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 3, 4, 'SpawnUtilityCrate', 'x, y, content [, amount]', n) then
+if CheckAndFetchParamCount(L, 3, 4, 'SpawnUtilityCrate', 'x, y, content [, amount]', n) then
 begin
 if n = 3 then
 gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), 0)
 else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
 if gear <> nil then
 gt: TGearType;
 const
 call = 'AddGear';
 params = 'x, y, gearType, state, dx, dy, timer';
 begin
-if CheckLuaParameterCount(L, 7, call, params) then
+if CheckLuaParamCount(L, 7, call, params) then
 begin
 t:= LuaToGearTypeOrd(L, 3, call, params);
 if t >= 0 then
 begin
 gt:= TGearType(t);
 end;
 function lc_deletegear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'DeleteGear', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'DeleteGear', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.Message:= gear^.Message or gmDelete;
 end;
 const
 call = 'AddVisualGear';
 params = 'x, y, visualGearType, state, critical';
 begin
 uid:= 0;
-if CheckLuaParameterCount(L, 5, call, params) then
+if CheckLuaParamCount(L, 5, call, params) then
 begin
 s:= LuaToVisualGearTypeOrd(L, 3, call, params);
 if s >= 0 then
 begin
 vgt:= TVisualGearType(s);
 function lc_deletevisualgear(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
 begin
 vg:= nil;
-if CheckLuaParameterCount(L, 1, 'DeleteVisualGear', 'vgUid') then
+if CheckLuaParamCount(L, 1, 'DeleteVisualGear', 'vgUid') then
 begin
 vg:= VisualGearByUID(lua_tointeger(L, 1));
 if vg <> nil then
 DeleteVisualGear(vg);
 end;
 end;
 function lc_getvisualgearvalues(L : Plua_State) : LongInt; Cdecl;
 var vg: PVisualGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetVisualGearValues', 'vgUid') then
+if CheckLuaParamCount(L, 1, 'GetVisualGearValues', 'vgUid') then
 begin
 vg:= VisualGearByUID(lua_tointeger(L, 1));
 if vg <> nil then
 begin
 lua_pushinteger(L, round(vg^.X));
 end;
 function lc_setvisualgearvalues(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
 begin
-if CheckLuaParameterCount(L, 11, 'SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint') then
+if CheckLuaParamCount(L, 11, 'SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint') then
 begin
 vg:= VisualGearByUID(lua_tointeger(L, 1));
 if vg <> nil then
 begin
 vg^.X:= lua_tointeger(L, 2);
 lc_setvisualgearvalues:= 0;
 end;
 function lc_getfollowgear(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetFollowGear', '') then
+if CheckLuaParamCount(L, 0, 'GetFollowGear', '') then
 begin
 if FollowGear = nil then
 lua_pushnil(L)
 else
 lua_pushinteger(L, FollowGear^.uid);
 end;
 function lc_getgeartype(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearType', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearType', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, ord(gear^.Kind))
 else
 end;
 function lc_getgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearMessage', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearMessage', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.message)
 else
 end;
 function lc_getgearelasticity(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearElasticity', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearElasticity', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, hwRound(gear^.elasticity * _10000))
 else
 end;
 function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetGearMessage', 'gearUid, message') then
+if CheckLuaParamCount(L, 2, 'SetGearMessage', 'gearUid, message') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.message:= lua_tointeger(L, 2);
 end;
 end;
 function lc_getgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearPos', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearPos', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.Pos)
 else
 end;
 function lc_setgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetGearPos', 'gearUid, value') then
+if CheckLuaParamCount(L, 2, 'SetGearPos', 'gearUid, value') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.Pos:= lua_tointeger(L, 2);
 end;
 end;
 function lc_getgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearCollisionMask', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearCollisionMask', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.CollisionMask)
 else
 end;
 function lc_setgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetGearCollisionMask', 'gearUid, mask') then
+if CheckLuaParamCount(L, 2, 'SetGearCollisionMask', 'gearUid, mask') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.CollisionMask:= lua_tointeger(L, 2);
 end;
 end;
 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHogLevel', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHogLevel', 'gearUid') then
 begin
 gear := GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushinteger(L, gear^.Hedgehog^.BotLevel)
 else
 end;
 function lc_sethoglevel(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetHogLevel', 'gearUid, level') then
+if CheckLuaParamCount(L, 2, 'SetHogLevel', 'gearUid, level') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 gear^.Hedgehog^.BotLevel:= lua_tointeger(L, 2);
 end;
 end;
 function lc_gethogclan(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHogClan', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHogClan', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
 lua_pushinteger(L, gear^.Hedgehog^.Team^.Clan^.ClanIndex)
 lc_gethogclan:= 1
 end;
 function lc_getclancolor(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'GetClanColor', 'clan') then
+if CheckLuaParamCount(L, 1, 'GetClanColor', 'clan') then
 lua_pushinteger(L, ClansArray[lua_tointeger(L, 1)]^.Color shl 8 or $FF)
 else
 lua_pushnil(L); // return value on stack (nil)
 lc_getclancolor:= 1
 end;
 var clan : PClan;
 team : PTeam;
 hh   : THedgehog;
 i, j : LongInt;
 begin
-if CheckLuaParameterCount(L, 2, 'SetClanColor', 'clan, color') then
+if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then
 begin
 clan := ClansArray[lua_tointeger(L, 1)];
 clan^.Color:= lua_tointeger(L, 2) shr 8;
 for i:= 0 to Pred(clan^.TeamsNumber) do
 end;
 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHogTeamName', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHogTeamName', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.TeamName))
 else
 end;
 function lc_sethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetHogTeamName', 'gearUid, name') then
+if CheckLuaParamCount(L, 2, 'SetHogTeamName', 'gearUid, name') then
 begin
 gear := GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
 gear^.Hedgehog^.Team^.TeamName := lua_tostring(L, 2);
 end;
 function lc_gethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHogName', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHogName', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Name))
 end;
 function lc_sethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetHogName', 'gearUid, name') then
+if CheckLuaParamCount(L, 2, 'SetHogName', 'gearUid, name') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 gear^.Hedgehog^.Name:= lua_tostring(L, 2);
 end;
 function lc_gettimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetTimer', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetTimer', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.Timer)
 else
 end;
 function lc_gethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHealth', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHealth', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.Health)
 else
 end;
 function lc_getx(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetX', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetX', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, hwRound(gear^.X))
 else
 end;
 function lc_gety(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetY', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetY', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, hwRound(gear^.Y))
 else
 end;
 function lc_copypv(L : Plua_State) : LongInt; Cdecl;
 var gears, geard : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'CopyPV', 'fromGearUid, toGearUid') then
+if CheckLuaParamCount(L, 2, 'CopyPV', 'fromGearUid, toGearUid') then
 begin
 gears:= GearByUID(lua_tointeger(L, 1));
 geard:= GearByUID(lua_tointeger(L, 2));
 if (gears <> nil) and (geard <> nil) then
 begin
 end;
 function lc_followgear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'FollowGear', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'FollowGear', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then FollowGear:= gear
 end;
 lc_followgear:= 0
 var gear : PGear;
 vgear : PVisualGear;
 s : LongWord;
 n : LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 3, 4, 'HogSay', 'gearUid, text, manner [, vgState]', n) then
+if CheckAndFetchParamCount(L, 3, 4, 'HogSay', 'gearUid, text, manner [, vgState]', n) then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 // state defaults to 0 if state param is given
 end;
 function lc_switchhog(L : Plua_State) : LongInt; Cdecl;
 var gear, prevgear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'SwitchHog', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'SwitchHog', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 // should we allow this when there is no current hedgehog? might do some odd(er) things to turn sequence.
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) and (CurrentHedgehog <> nil) then
 begin
 at, n: LongInt;
 const
 call = 'AddAmmo';
 params = 'gearUid, ammoType [, ammoCount]';
 begin
-if CheckAndFetchLuaParameterCount(L, 2, 3, call, params, n) then
+if CheckAndFetchParamCount(L, 2, 3, call, params, n) then
 begin
 at:= LuaToAmmoTypeOrd(L, 2, call, params);
 if at >= 0 then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 at   : LongInt;
 const
 call = 'GetAmmoCount';
 params = 'gearUid, ammoType';
 begin
-if CheckLuaParameterCount(L, 2, call, params) then
+if CheckLuaParamCount(L, 2, call, params) then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 begin
 at:= LuaToAmmoTypeOrd(L, 2, call, params);
 end;
 function lc_sethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetHealth', 'gearUid, health') then
+if CheckLuaParamCount(L, 2, 'SetHealth', 'gearUid, health') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.Health:= lua_tointeger(L, 2);
 end;
 function lc_settimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetTimer', 'gearUid, timer') then
+if CheckLuaParamCount(L, 2, 'SetTimer', 'gearUid, timer') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then gear^.Timer:= lua_tointeger(L, 2)
 end;
 lc_settimer:= 0
 t   : LongInt;
 const
 call = 'SetEffect';
 params = 'gearUid, effect, effectState';
 begin
-if CheckLuaParameterCount(L, 3, call, params) then
+if CheckLuaParamCount(L, 3, call, params) then
 begin
 t:= LuaToHogEffectOrd(L, 2, call, params);
 if t >= 0 then
 begin
 gear := GearByUID(lua_tointeger(L, 1));
 t    : LongInt;
 const
 call = 'GetEffect';
 params = 'gearUid, effect';
 begin
-if CheckLuaParameterCount(L, 2, call, params) then
+if CheckLuaParamCount(L, 2, call, params) then
 begin
 t:= LuaToHogEffectOrd(L, 2, call, params);
 if t >= 0 then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 end;
 function lc_setstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetState', 'gearUid, state') then
+if CheckLuaParamCount(L, 2, 'SetState', 'gearUid, state') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.State:= lua_tointeger(L, 2);
 end;
 function lc_getstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetState', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetState', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.State)
 else
 end;
 function lc_gettag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetTag', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetTag', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.Tag)
 else
 end;
 function lc_settag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetTag', 'gearUid, tag') then
+if CheckLuaParamCount(L, 2, 'SetTag', 'gearUid, tag') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.Tag:= lua_tointeger(L, 2);
 needsTn  : boolean;
 const
 call = 'SendStat';
 params = 'statInfoType, color [, teamname]';
 begin
-if CheckAndFetchLuaParameterCount(L, 2, 3, call, params, n) then
+if CheckAndFetchParamCount(L, 2, 3, call, params, n) then
 begin
 i:= LuaToStatInfoTypeOrd(L, 1, call, params);
 if i >= 0 then
 begin
 statInfo:= TStatInfoType(i);
 var gear: PGear;
 fall: boolean;
 tryhard: boolean;
 left, right, n: LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 4, 5, 'FindPlace', 'gearUid, fall, left, right [, tryHarder]', n) then
+if CheckAndFetchParamCount(L, 4, 5, 'FindPlace', 'gearUid, fall, left, right [, tryHarder]', n) then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 fall:= lua_toboolean(L, 2);
 left:= lua_tointeger(L, 3);
 right:= lua_tointeger(L, 4);
 n, s: LongInt;
 const
 call = 'PlaySound';
 params = 'soundId [, hhGearUid]';
 begin
-if CheckAndFetchLuaParameterCount(L, 1, 2, call, params, n) then
+if CheckAndFetchParamCount(L, 1, 2, call, params, n) then
 begin
 s:= LuaToSoundOrd(L, 1, call, params);
 if s >= 0 then
 begin
 // no gear specified
 end;
 function lc_addteam(L : Plua_State) : LongInt; Cdecl;
 var np: LongInt;
 begin
-if CheckAndFetchLuaParameterCount(L, 5, 6, 'AddTeam', 'teamname, color, grave, fort, voicepack [, flag]', np) then
+if CheckAndFetchParamCount(L, 5, 6, 'AddTeam', 'teamname, color, grave, fort, voicepack [, flag]', np) then
 begin
 ParseCommand('addteam x ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 1), true, true);
 ParseCommand('grave ' + lua_tostring(L, 3), true, true);
 ParseCommand('fort ' + lua_tostring(L, 4), true, true);
 ParseCommand('voicepack ' + lua_tostring(L, 5), true, true);
 lc_addteam:= 0;//1;
 end;
 function lc_dismissteam(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'DismissTeam', 'teamname') then
+if CheckLuaParamCount(L, 1, 'DismissTeam', 'teamname') then
 ParseCommand('teamgone ' + lua_tostring(L, 1), true, true);
 lc_dismissteam:= 0;;
 end;
 function lc_addhog(L : Plua_State) : LongInt; Cdecl;
 var temp: ShortString;
 begin
-if CheckLuaParameterCount(L, 4, 'AddHog', 'hogname, botlevel, health, hat') then
+if CheckLuaParamCount(L, 4, 'AddHog', 'hogname, botlevel, health, hat') then
 begin
 temp:= lua_tostring(L, 4);
 ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true, true);
 ParseCommand('hat ' + temp, true, true);
 lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);
 end;
 function lc_hogturnleft(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'HogTurnLeft', 'gearUid, boolean') then
+if CheckLuaParamCount(L, 2, 'HogTurnLeft', 'gearUid, boolean') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.dX.isNegative:= lua_toboolean(L, 2);
 end;
 end;
 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearPosition', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearPosition', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 lua_pushinteger(L, hwRound(gear^.X));
 function lc_setgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 col: boolean;
 x, y: LongInt;
 begin
-if CheckLuaParameterCount(L, 3, 'SetGearPosition', 'gearUid, x, y') then
+if CheckLuaParamCount(L, 3, 'SetGearPosition', 'gearUid, x, y') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 col:= gear^.CollisionIndex >= 0;
 end;
 function lc_getgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearTarget', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearTarget', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 lua_pushinteger(L, gear^.Target.X);
 end;
 function lc_setgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 3, 'SetGearTarget', 'gearUid, x, y') then
+if CheckLuaParamCount(L, 3, 'SetGearTarget', 'gearUid, x, y') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.Target.X:= lua_tointeger(L, 2);
 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 var t: LongInt;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearVelocity', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearVelocity', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 t:= hwRound(gear^.dX * 1000000);
 end;
 function lc_setgearvelocity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 3, 'SetGearVelocity', 'gearUid, dx, dy') then
+if CheckLuaParamCount(L, 3, 'SetGearVelocity', 'gearUid, dx, dy') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.dX:= int2hwFloat(lua_tointeger(L, 2)) / 1000000;
 lc_setgearvelocity:= 0
 end;
 function lc_setzoom(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'SetZoom', 'zoomLevel') then
+if CheckLuaParamCount(L, 1, 'SetZoom', 'zoomLevel') then
 begin
 ZoomValue:= lua_tonumber(L, 1);
 if ZoomValue < cMaxZoomLevel then
 ZoomValue:= cMaxZoomLevel;
 if ZoomValue > cMinZoomLevel then
 lc_setzoom:= 0
 end;
 function lc_getzoom(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetZoom', '') then
+if CheckLuaParamCount(L, 0, 'GetZoom', '') then
 lua_pushnumber(L, ZoomValue)
 else
 lua_pushnil(L);
 lc_getzoom:= 1
 end;
 var np, at: LongInt;
 const
 call = 'SetAmmo';
 params = 'ammoType, count, probability, delay [, numberInCrate]';
 begin
-if CheckAndFetchLuaParameterCount(L, 4, 5, call, params, np) then
+if CheckAndFetchParamCount(L, 4, 5, call, params, np) then
 begin
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
 begin
 if np = 4 then
 var at: LongInt;
 const
 call = 'SetAmmoDelay';
 params = 'ammoType, delay';
 begin
-if CheckLuaParameterCount(L, 2, call, params) then
+if CheckLuaParamCount(L, 2, call, params) then
 begin
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
 ScriptSetAmmoDelay(TAmmoType(at), lua_tointeger(L, 2));
 end;
 lc_setammodelay:= 0
 end;
 function lc_setammostore(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 4, 'SetAmmoStore', 'loadouts, probabilities, delays, reinforments') then
+if CheckLuaParamCount(L, 4, 'SetAmmoStore', 'loadouts, probabilities, delays, reinforments') then
 begin
 ScriptAmmoLoadout:= lua_tostring(L, 1);
 ScriptAmmoProbability:= lua_tostring(L, 2);
 ScriptAmmoDelay:= lua_tostring(L, 3);
 ScriptAmmoReinforcement:= lua_tostring(L, 4);
 end;
 function lc_getrandom(L : Plua_State) : LongInt; Cdecl;
 var m : LongInt;
 begin
-if CheckLuaParameterCount(L, 1, 'GetRandom', 'number') then
+if CheckLuaParamCount(L, 1, 'GetRandom', 'number') then
 begin
 m:= lua_tointeger(L, 1);
 if (m > 0) then
 lua_pushinteger(L, GetRandom(m))
 else
 lc_getrandom:= 1
 end;
 function lc_setwind(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'SetWind', 'windSpeed') then
+if CheckLuaParamCount(L, 1, 'SetWind', 'windSpeed') then
 begin
 cWindSpeed:= int2hwfloat(lua_tointeger(L, 1)) / 100 * cMaxWindSpeed;
 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
 if cWindSpeed.isNegative then
 CWindSpeedf := -cWindSpeedf;
 lc_setwind:= 0
 end;
 function lc_getdatapath(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetDataPath', '') then
+if CheckLuaParamCount(L, 0, 'GetDataPath', '') then
 lua_pushstring(L, str2pchar(cPathz[ptData]))
 else
 lua_pushnil(L);
 lc_getdatapath:= 1
 end;
 function lc_getuserdatapath(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetUserDataPath', '') then
+if CheckLuaParamCount(L, 0, 'GetUserDataPath', '') then
 lua_pushstring(L, str2pchar(cPathz[ptData]))
 else
 lua_pushnil(L);
 lc_getuserdatapath:= 1
 end;
 function lc_maphasborder(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'MapHasBorder', '') then
+if CheckLuaParamCount(L, 0, 'MapHasBorder', '') then
 lua_pushboolean(L, hasBorder)
 else
 lua_pushnil(L);
 lc_maphasborder:= 1
 end;
 function lc_getgearradius(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetGearRadius', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetGearRadius', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 lua_pushinteger(L, gear^.Radius)
 else
 end;
 function lc_gethoghat(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'GetHogHat', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'GetHogHat', 'gearUid') then
 begin
 gear := GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Hat))
 else
 function lc_sethoghat(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 hat: ShortString;
 begin
-if CheckLuaParameterCount(L, 2, 'SetHogHat', 'gearUid, hat') then
+if CheckLuaParamCount(L, 2, 'SetHogHat', 'gearUid, hat') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 hat:= lua_tostring(L, 2);
 const
 call = 'PlaceSprite';
 params = 'x, y, sprite, frameIdx [, landFlags, ... ]';
 begin
 placed:= false;
-if CheckAndFetchLuaParameterCount(L, 4, call, params, n) then
+if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then
 begin
 lf:= 0;
 // accept any amount of landflags, loop is never executed if n>5
 for i:= 5 to n do
 function lc_placegirder(L : Plua_State) : LongInt; Cdecl;
 var placed: boolean;
 begin
 placed:= false;
-if CheckLuaParameterCount(L, 3, 'PlaceGirder', 'x, y, frameIdx') then
+if CheckLuaParamCount(L, 3, 'PlaceGirder', 'x, y, frameIdx') then
 placed:= TryPlaceOnLandSimple(
 lua_tointeger(L, 1) - SpritesData[sprAmGirder].Width div 2,
 lua_tointeger(L, 2) - SpritesData[sprAmGirder].Height div 2,
 sprAmGirder, lua_tointeger(L, 3), true, false);
 lc_placegirder:= 1
 end;
 function lc_getcurammotype(L : Plua_State): LongInt; Cdecl;
 begin
-if (CurrentHedgehog <> nil) and (CheckLuaParameterCount(L, 0, 'GetCurAmmoType', '')) then
+if (CurrentHedgehog <> nil) and (CheckLuaParamCount(L, 0, 'GetCurAmmoType', '')) then
 lua_pushinteger(L, ord(CurrentHedgehog^.CurAmmoType))
 else
 lua_pushinteger(L, ord(amNothing));
 lc_getcurammotype := 1;
 end;
 function lc_savecampaignvar(L : Plua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 2, 'SaveCampaignVar', 'varname, value') then
+if CheckLuaParamCount(L, 2, 'SaveCampaignVar', 'varname, value') then
 SendIPC('V!' + lua_tostring(L, 1) + ' ' + lua_tostring(L, 2) + #0);
 lc_savecampaignvar := 0;
 end;
 function lc_getcampaignvar(L : Plua_State): LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'GetCampaignVar', 'varname') then
+if CheckLuaParamCount(L, 1, 'GetCampaignVar', 'varname') then
 SendIPCAndWaitReply('V?' + lua_tostring(L, 1) + #0);
 lua_pushstring(L, str2pchar(CampaignVariable));
 lc_getcampaignvar := 1;
 end;
 function lc_hidehog(L: Plua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'HideHog', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'HideHog', 'gearUid') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 HideHog(gear^.hedgehog)
 end;
 lc_hidehog := 0;
 function lc_restorehog(L: Plua_State): LongInt; Cdecl;
 var i, h: LongInt;
 uid: LongWord;
 begin
-if CheckLuaParameterCount(L, 1, 'RestoreHog', 'gearUid') then
+if CheckLuaParamCount(L, 1, 'RestoreHog', 'gearUid') then
 begin
 uid:= LongWord(lua_tointeger(L, 1));
 if TeamsCount > 0 then
 for i:= 0 to Pred(TeamsCount) do
 for h:= 0 to cMaxHHIndex do
 // boolean TestRectForObstacle(x1, y1, x2, y2, landOnly)
 function lc_testrectforobstacle(L : Plua_State) : LongInt; Cdecl;
 var rtn: Boolean;
 begin
-if CheckLuaParameterCount(L, 5, 'TestRectForObstacle', 'x1, y1, x2, y2, landOnly') then
+if CheckLuaParamCount(L, 5, 'TestRectForObstacle', 'x1, y1, x2, y2, landOnly') then
 begin
 rtn:= TestRectancleForObstacle(
 lua_tointeger(L, 1),
 lua_tointeger(L, 2),
 lua_tointeger(L, 3),
 end;
 function lc_getgravity(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 0, 'GetGravity', '') then
+if CheckLuaParamCount(L, 0, 'GetGravity', '') then
 lua_pushinteger(L, hwRound(SignAs(_0_5, cGravity) + (cGravity * 50 / cMaxWindSpeed)));
 lc_getgravity:= 1
 end;
 function lc_setgravity(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'SetGravity', 'percent') then
+if CheckLuaParamCount(L, 1, 'SetGravity', 'percent') then
 begin
 cGravity:= _0_02 * lua_tointeger(L, 1) * cMaxWindSpeed;
 cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02
 end;
 lc_setgravity:= 0
 end;
 function lc_setwaterline(L : Plua_State) : LongInt; Cdecl;
 var iterator: PGear;
 begin
-if CheckLuaParameterCount(L, 1, 'SetWaterLine', 'waterline') then
+if CheckLuaParamCount(L, 1, 'SetWaterLine', 'waterline') then
 begin
 cWaterLine:= lua_tointeger(L,1);
 AllInactive:= false;
 iterator:= GearsList;
 while iterator <> nil do
 end;
 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-if CheckLuaParameterCount(L, 2, 'SetAIHintOnGear', 'gearUid, aiHints') then
+if CheckLuaParamCount(L, 2, 'SetAIHintOnGear', 'gearUid, aiHints') then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.aihints:= lua_tointeger(L, 2);
 end;
 end;
 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'HedgewarsScriptLoad', 'scriptPath') then
+if CheckLuaParamCount(L, 1, 'HedgewarsScriptLoad', 'scriptPath') then
 ScriptLoad(lua_tostring(L, 1))
 else
 lua_pushnil(L);
 lc_hedgewarsscriptload:= 0;
 end;
 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 4, 'DeclareAchievement', 'achievementId, teamname, location, value') then
+if CheckLuaParamCount(L, 4, 'DeclareAchievement', 'achievementId, teamname, location, value') then
 declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4));
 lc_declareachievement:= 0
 end;
 // stuff for testing the lua API
 function lc_endluatest(L : Plua_State) : LongInt; Cdecl;
 begin
-if CheckLuaParameterCount(L, 1, 'EndLuaAPITest', 'LUA_API_TEST_SUCCESSFUL or LUA_API_TEST_FAILED') then
+if CheckLuaParamCount(L, 1, 'EndLuaAPITest', 'LUA_API_TEST_SUCCESSFUL or LUA_API_TEST_FAILED') then
 begin
 WriteLnToConsole('Lua test finished');
 halt(lua_tointeger(L, 1));
 end
 else

changeset 10297	e5ed72b40c57
parent 10295	ec6b68241575
child 10306	4fca8bcfaff0