sheepy-clone: comparison hedgewars/uScript.pas

equal deleted inserted replaced

-:7a6038c3faa2
+:656c511ab0f3
 uDebug,
 uCollisions,
 uRenderUtils,
 uTextures,
 uLandGraphics,
 SysUtils,
 uIO,
 uVisualGearsList,
 uGearsHandlersMess,
 uPhysFSLayer,
 typinfo
 begin
 WriteLnToConsole(s);
 AddChatString(#5 + s);
 end;
+procedure LuaParameterCountError(call, paramsyntax: shortstring; wrongcount: LongInt);
+begin
+// TODO: i18n?
+LuaError('Lua: Wrong number of parameters (' + inttostr(wrongcount) + ') passed to ' + call + '!     syntax: ' + call + ' ( ' + paramsyntax + ' )');
+end;
 // 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 lua_gettop(L) to receive number of parameters passed
 function lc_band(L: PLua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to band!');
+LuaParameterCountError('band', 'value1, value2', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushinteger(L, lua_tointeger(L, 2) and lua_tointeger(L, 1));
 lc_band := 1;
 end;
 function lc_bor(L: PLua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to bor!');
+LuaParameterCountError('bor', 'value1, value2', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushinteger(L, lua_tointeger(L, 2) or lua_tointeger(L, 1));
 lc_bor := 1;
 end;
 function lc_bnot(L: PLua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to bnot!');
+LuaParameterCountError('bnot', 'value', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushinteger(L, not lua_tointeger(L, 1));
 lc_bnot := 1;
 end;
 function lc_div(L: PLua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to div!');
+LuaParameterCountError('div', 'dividend, divisor', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushinteger(L, lua_tointeger(L, 1) div lua_tointeger(L, 2));
 lc_div := 1;
 end;
 function lc_getinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
-LuaError('Lua: Wrong number of parameters passed to GetInputMask!')
+LuaParameterCountError('GetInputMask', '', lua_gettop(L))
 else
 lua_pushinteger(L, InputMask);
 lc_getinputmask:= 1
 end;
 function lc_setinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to SetInputMask!')
+LuaParameterCountError('SetInputMask', 'mask', lua_gettop(L))
 else
 InputMask:= lua_tointeger(L, 1);
 lc_setinputmask:= 0
 end;
 if lua_gettop(L) = 1 then
 begin
 WriteLnToConsole('Lua: ' + lua_tostring(L ,1));
 end
 else
-LuaError('Lua: Wrong number of parameters passed to WriteLnToConsole!');
+LuaParameterCountError('WriteLnToConsole', 'string', lua_gettop(L));
 lc_writelntoconsole:= 0;
 end;
 function lc_parsecommand(L : Plua_State) : LongInt; Cdecl;
 var t: PChar;
 ParseCommand(s, true, true);
 end
 else
-LuaError('Lua: Wrong number of parameters passed to ParseCommand!');
+LuaParameterCountError('ParseCommand', 'string', lua_gettop(L));
 lc_parsecommand:= 0;
 end;
 function lc_showmission(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) = 5 then
 begin
 ShowMission(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
 end
 else
-LuaError('Lua: Wrong number of parameters passed to ShowMission!');
+LuaParameterCountError('ShowMission', 'caption, subcaption, text, icon, time', lua_gettop(L));
 lc_showmission:= 0;
 end;
 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
 begin
 else if lua_gettop(L) = 3 then
 begin
 AddCaption(lua_tostring(L, 1), lua_tointeger(L, 2) shr 8, TCapGroup(lua_tointeger(L, 3)));
 end
 else
-LuaError('Lua: Wrong number of parameters passed to AddCaption!');
+LuaParameterCountError('AddCaption', 'text[, color, captiongroup]', lua_gettop(L));
 lc_addcaption:= 0;
 end;
 function lc_campaignlock(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) = 1 then
 begin
 // to be done
 end
 else
-LuaError('Lua: Wrong number of parameters passed to CampaignLock!');
+LuaParameterCountError('CampaignLock', 'TODO', lua_gettop(L));
 lc_campaignlock:= 0;
 end;
 function lc_campaignunlock(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) = 1 then
 begin
 // to be done
 end
 else
-LuaError('Lua: Wrong number of parameters passed to CampaignUnlock!');
+LuaParameterCountError('CampaignUnlock', 'TODO', lua_gettop(L));
 lc_campaignunlock:= 0;
 end;
 function lc_spawnfakehealthcrate(L: Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 4 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnFakeHealthCrate!');
+LuaParameterCountError('SpawnFakeHealthCrate', 'x, y, explode, poison', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 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;
 lc_spawnfakehealthcrate := 1;
 end;
 function lc_spawnfakeammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 4 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnFakeAmmoCrate!');
+LuaParameterCountError('SpawnFakeAmmoCrate', 'x, y, explode, poison', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 begin
 gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
 function lc_spawnfakeutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 4 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnFakeUtilityCrate!');
+LuaParameterCountError('SpawnFakeUtilityCrate', 'x, y, explode, poison', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 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;
 lc_spawnfakeutilitycrate := 1;
 var gear: PGear;
 var health: LongInt;
 begin
 if (lua_gettop(L) < 2) or (lua_gettop(L) > 3) then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnHealthCrate!');
+LuaParameterCountError('SpawnHealthCrate', 'x, y[, health]', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 begin
 if lua_gettop(L) = 3 then
 if gear <> nil then
 lua_pushinteger(L, gear^.uid)
 else
 lua_pushnil(L);
 end;
 lc_spawnhealthcrate := 1;
 end;
 function lc_spawnammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if (lua_gettop(L) <> 3) and (lua_gettop(L) <> 4) then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnAmmoCrate!');
+LuaParameterCountError('SpawnAmmoCrate', 'x, y, content[, amount]', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 begin
 if (lua_gettop(L) = 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
 lua_pushinteger(L, gear^.uid)
 else
 function lc_spawnutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if (lua_gettop(L) <> 3) and (lua_gettop(L) <> 4) then
 begin
-LuaError('Lua: Wrong number of parameters passed to SpawnUtilityCrate!');
+LuaParameterCountError('SpawnUtilityCrate', 'x, y, content[, amount]', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 begin
 if (lua_gettop(L) = 3) then
 dx, dy: hwFloat;
 gt: TGearType;
 begin
 if lua_gettop(L) <> 7 then
 begin
-LuaError('Lua: Wrong number of parameters passed to AddGear!');
+LuaParameterCountError('AddGear', 'x, y, gearType, state, dx, dy, timer', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 x:= lua_tointeger(L, 1);
 function lc_deletegear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to DeleteGear!');
+LuaParameterCountError('DeleteGear', 'gearUid', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 c: Boolean;
 vgt: TVisualGearType;
 begin
 if lua_gettop(L) <> 5 then
 begin
-LuaError('Lua: Wrong number of parameters passed to AddVisualGear!');
+LuaParameterCountError('AddVisualGear', 'x, y, visualGearType, state, critical', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 x:= lua_tointeger(L, 1);
 vgt:= TVisualGearType(lua_tointeger(L, 3));
 s:= lua_tointeger(L, 4);
 c:= lua_toboolean(L, 5);
 vg:= AddVisualGear(x, y, vgt, s, c);
 if vg <> nil then
 begin
 lastVisualGearByUID:= vg;
 lua_pushinteger(L, vg^.uid)
 end
 else
 function lc_deletevisualgear(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to DeleteVisualGear!');
+LuaParameterCountError('DeleteVisualGear', 'vgUid', lua_gettop(L));
 end
 else
 begin
 vg:= VisualGearByUID(lua_tointeger(L, 1));
 if vg <> nil then
 function lc_getvisualgearvalues(L : Plua_State) : LongInt; Cdecl;
 var vg: PVisualGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetVisualGearValues!');
+LuaParameterCountError('GetVisualGearValues', 'vgUid', lua_gettop(L));
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L);
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L)
 end
 else
 begin
 function lc_setvisualgearvalues(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
 begin
 if lua_gettop(L) <> 11 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetVisualGearValues!');
+LuaParameterCountError('SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 vg:= VisualGearByUID(lua_tointeger(L, 1));
 function lc_getfollowgear(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetFollowGear!');
+LuaParameterCountError('GetFollowGear', '', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 if FollowGear = nil then
 lua_pushnil(L)
 function lc_getgeartype(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearType!');
+LuaParameterCountError('GetGearType', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_getgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearMessage!');
+LuaParameterCountError('GetGearMessage', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_getgearelasticity(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearElasticity!');
+LuaParameterCountError('GetGearElasticity', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetGearMessage!')
+LuaParameterCountError('SetGearMessage', 'gearUid, message', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.message:= lua_tointeger(L, 2);
 function lc_getgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearPos!');
+LuaParameterCountError('GetGearPos', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_setgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetGearPos!')
+LuaParameterCountError('SetGearPos', 'gearUid, value', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.Pos:= lua_tointeger(L, 2);
 function lc_getgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearCollisionMask!');
+LuaParameterCountError('GetGearCollisionMask', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_setgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetGearCollisionMask!')
+LuaParameterCountError('SetGearCollisionMask', 'gearUid, mask', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.CollisionMask:= lua_tointeger(L, 2);
 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to GetHogLevel!')
+LuaParameterCountError('GetHogLevel', 'gearUid', lua_gettop(L))
 else
 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)
 function lc_sethoglevel(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetHogLevel!')
+LuaParameterCountError('SetHogLevel', 'gearUid, level', lua_gettop(L))
 else
 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);
 function lc_gethogclan(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetHogClan!');
+LuaParameterCountError('GetHogClan', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_getclancolor(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetClanColor!');
+LuaParameterCountError('GetClanColor', 'clan', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else lua_pushinteger(L, ClansArray[lua_tointeger(L, 1)]^.Color shl 8 or $FF);
 lc_getclancolor:= 1
 end;
 team : PTeam;
 hh   : THedgehog;
 i, j : LongInt;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetClanColor!')
+LuaParameterCountError('SetClanColor', 'clan, color', lua_gettop(L))
 else
 begin
 clan := ClansArray[lua_tointeger(L, 1)];
 clan^.Color:= lua_tointeger(L, 2) shr 8;
 begin
 team:= clan^.Teams[i];
 for j:= 0 to 7 do
 begin
 hh:= team^.Hedgehogs[j];
 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then
 begin
 FreeTexture(hh.NameTagTex);
 hh.NameTagTex:= RenderStringTex(hh.Name, clan^.Color, fnt16);
 RenderHealth(hh);
 end;
 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetHogTeamName!');
+LuaParameterCountError('GetHogTeamName', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_gethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetHogName!');
+LuaParameterCountError('GetHogName', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_sethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetHogName!');
+LuaParameterCountError('SetHogName', 'gearUid, name', lua_gettop(L));
 lua_pushnil(L)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_gettimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetTimer!');
+LuaParameterCountError('GetTimer', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_gethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetHealth!');
+LuaParameterCountError('GetHealth', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_getx(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetX!');
+LuaParameterCountError('GetX', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_gety(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetY!');
+LuaParameterCountError('GetY', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_copypv(L : Plua_State) : LongInt; Cdecl;
 var gears, geard : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to CopyPV!');
+LuaParameterCountError('CopyPV', 'fromGearUid, toGearUid', lua_gettop(L));
 end
 else
 begin
 gears:= GearByUID(lua_tointeger(L, 1));
 geard:= GearByUID(lua_tointeger(L, 2));
 function lc_followgear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to FollowGear!')
+LuaParameterCountError('FollowGear', 'gearUid', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then FollowGear:= gear
 end;
 end
 end
 else
 lua_pushnil(L)
 end
-else LuaError('Lua: Wrong number of parameters passed to HogSay!');
+else LuaParameterCountError('HogSay', 'gearUid, text, manner[, vgState]', lua_gettop(L));
 lc_hogsay:= 1
 end;
 function lc_switchhog(L : Plua_State) : LongInt; Cdecl;
 var gear, prevgear : PGear;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to SwitchHog!')
+LuaParameterCountError('SwitchHog', 'gearUid', lua_gettop(L))
 else
 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
 prevgear^.Active := false;
 prevgear^.State:= prevgear^.State and (not gstHHDriven);
 prevgear^.Z := cHHZ;
 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList;
 end;
 SwitchCurrentHedgehog(gear^.Hedgehog);
 CurrentTeam:= CurrentHedgehog^.Team;
 gear^.State:= gear^.State or gstHHDriven;
 gear^.Active := true;
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 AddAmmoAmount(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2)), lua_tointeger(L,3) );
 end else
 if lua_gettop(L) = 2 then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 AddAmmo(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2)));
 end else
 begin
-LuaError('Lua: Wrong number of parameters passed to AddAmmo!');
+LuaParameterCountError('AddAmmo', 'TODO', lua_gettop(L));
 end;
 lc_addammo:= 0;
 end;}
 if lua_gettop(L) = 2 then
 AddAmmo(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2)))
 else
 SetAmmo(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2)), lua_tointeger(L, 3))
 end
-else LuaError('Lua: Wrong number of parameters passed to AddAmmo!');
+else LuaParameterCountError('AddAmmo', 'gearUid, ammoType[, ammoCount]', lua_gettop(L));
 lc_addammo:= 0
 end;
 function lc_getammocount(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 ammo : PAmmo;
 begin
 if (lua_gettop(L) = 2) then
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 begin
 ammo:= GetAmmoEntry(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2)));
 if ammo^.AmmoType = amNothing then
 lua_pushinteger(L, 0)
 else
 lua_pushinteger(L, ammo^.Count)
 end
 else lua_pushinteger(L, 0)
 end
 else
 begin
-LuaError('Lua: Wrong number of parameters passed to GetAmmoCount!');
+LuaParameterCountError('GetAmmoCount', 'gearUid, ammoType', lua_gettop(L));
 lua_pushnil(L)
 end;
 lc_getammocount:= 1
 end;
 function lc_sethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetHealth!');
+LuaParameterCountError('SetHealth', 'gearUid, health', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 gear^.Health:= lua_tointeger(L, 2);
 if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 RenderHealth(gear^.Hedgehog^);
 RecountTeamHealth(gear^.Hedgehog^.Team)
 end;
 SetAllToActive;
 function lc_settimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetTimer!');
+LuaParameterCountError('SetTimer', 'gearUid, timer', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then gear^.Timer:= lua_tointeger(L, 2)
 function lc_seteffect(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 3 then
-LuaError('Lua: Wrong number of parameters passed to SetEffect!')
+LuaParameterCountError('SetEffect', 'gearUid, effect, enabled', lua_gettop(L))
 else begin
 gear := GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 gear^.Hedgehog^.Effects[THogEffect(lua_tointeger(L, 2))]:= lua_tointeger(L, 3);
 end;
 lc_seteffect := 0;
 end;
 function lc_geteffect(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetEffect!');
+LuaParameterCountError('GetEffect', 'gearUid, effect', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 function lc_setstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetState!');
+LuaParameterCountError('SetState', 'gearUid, state', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 function lc_getstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetState!');
+LuaParameterCountError('GetState', 'gearUid', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 function lc_gettag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetX!');
+LuaParameterCountError('GetTag', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_settag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetTag!');
+LuaParameterCountError('SetTag', 'gearUid, tag', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 function lc_sendstat(L : Plua_State) : LongInt; Cdecl;
 var statInfo : TStatInfoType;
 var i : LongInt;
 var color : shortstring;
 begin
-	statInfo := TStatInfoType(lua_tointeger(L, 1));
+statInfo := TStatInfoType(lua_tointeger(L, 1));
-	if (lua_gettop(L) <> 2) and ((statInfo <> siPlayerKills)
+if (lua_gettop(L) <> 2) and ((statInfo <> siPlayerKills)
-			and (statInfo <> siClanHealth)) then
+and (statInfo <> siClanHealth)) then
 begin
-LuaError('Lua: Wrong number of parameters passed to SendStat! Expected 2 parameters.');
+LuaParameterCountError('SendStat', 'statInfoType, color', lua_gettop(L));
 end
 else if (lua_gettop(L) <> 3) and ((statInfo = siPlayerKills)
-			or (statInfo = siClanHealth)) then
+or (statInfo = siClanHealth)) then
-		begin
+begin
-LuaError('Lua: Wrong number of parameters passed to SendStat! Expected 3 parameters.');
+LuaParameterCountError('SendStat', 'siClanHealth, color, teamname', lua_gettop(L));
 end
 else
-		begin
+begin
-		if ((statInfo = siPlayerKills) or (statInfo = siClanHealth)) then
+if ((statInfo = siPlayerKills) or (statInfo = siClanHealth)) then
-			begin
+begin
-			// 3: team name
+// 3: team name
-			for i:= 0 to Pred(TeamsCount) do
+for i:= 0 to Pred(TeamsCount) do
-				begin
+begin
-				with TeamsArray[i]^ do
+with TeamsArray[i]^ do
-					begin
+begin
-						if TeamName = lua_tostring(L, 3) then
+if TeamName = lua_tostring(L, 3) then
-							begin
+begin
-							color := uUtils.IntToStr(Clan^.Color);
+color := uUtils.IntToStr(Clan^.Color);
-							Break;
+Break;
-							end
+end
-					end
+end
-				end;
+end;
-			if (statInfo = siPlayerKills) then
+if (statInfo = siPlayerKills) then
-				begin
+begin
-					SendStat(siPlayerKills, color + ' ' +
+SendStat(siPlayerKills, color + ' ' +
-						lua_tostring(L, 2) + ' ' + TeamsArray[i]^.TeamName);
+lua_tostring(L, 2) + ' ' + TeamsArray[i]^.TeamName);
-				end
+end
-			else if (statInfo = siClanHealth) then
+else if (statInfo = siClanHealth) then
-				begin
+begin
-					SendStat(siClanHealth, color + ' ' +
+SendStat(siClanHealth, color + ' ' +
-						lua_tostring(L, 2));
+lua_tostring(L, 2));
-				end
+end
-			end
+end
-		else
+else
-			begin
+begin
-			SendStat(statInfo,lua_tostring(L, 2));
+SendStat(statInfo,lua_tostring(L, 2));
-			end;
+end;
-		end;
+end;
 lc_sendstat:= 0
 end;
 function lc_sendhealthstatsoff(L : Plua_State) : LongInt; Cdecl;
 begin
 tryhard: boolean;
 left, right: LongInt;
 begin
 tryhard:= false;
 if (lua_gettop(L) <> 4) and (lua_gettop(L) <> 5) then
-LuaError('Lua: Wrong number of parameters passed to FindPlace!')
+LuaParameterCountError('FindPlace', 'gearUid, fall, left, right[, tryHarder]', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 fall:= lua_toboolean(L, 2);
 left:= lua_tointeger(L, 3);
 begin
 gear:= GearByUID(lua_tointeger(L, 2));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 AddVoice(TSound(lua_tointeger(L, 1)),gear^.Hedgehog^.Team^.Voicepack)
 end
-else LuaError('Lua: Wrong number of parameters passed to PlaySound!');
+else LuaParameterCountError('PlaySound', 'soundId', lua_gettop(L));
 lc_playsound:= 0;
 end;
 function lc_addteam(L : Plua_State) : LongInt; Cdecl;
 var np: LongInt;
 begin
 np:= lua_gettop(L);
 if (np < 5) or (np > 6) then
 begin
-LuaError('Lua: Wrong number of parameters passed to AddTeam!');
+LuaParameterCountError('AddTeam', 'teamname, color, grave, fort, voicepack[, flag]', lua_gettop(L));
 //lua_pushnil(L)
 end
 else
 begin
 ParseCommand('addteam x ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 1), true, true);
 function lc_addhog(L : Plua_State) : LongInt; Cdecl;
 var temp: ShortString;
 begin
 if lua_gettop(L) <> 4 then
 begin
-LuaError('Lua: Wrong number of parameters passed to AddHog!');
+LuaParameterCountError('AddHog', 'hogname, botlevel, health, hat', lua_gettop(L));
 lua_pushnil(L)
 end
 else
 begin
 temp:= lua_tostring(L, 4);
 function lc_hogturnleft(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to HogTurnLeft!');
+LuaParameterCountError('HogTurnLeft', 'gearUid, boolean', lua_gettop(L));
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearPosition!');
+LuaParameterCountError('GetGearPosition', 'gearUid', lua_gettop(L));
 lua_pushnil(L);
 lua_pushnil(L)
 end
 else
 begin
 var gear: PGear;
 col: boolean;
 x, y: LongInt;
 begin
 if lua_gettop(L) <> 3 then
-LuaError('Lua: Wrong number of parameters passed to SetGearPosition!')
+LuaParameterCountError('SetGearPosition', 'gearUid, x, y', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 function lc_getgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearTarget!');
+LuaParameterCountError('GetGearTarget', 'gearUid', lua_gettop(L));
 lua_pushnil(L);
 lua_pushnil(L)
 end
 else
 begin
 function lc_setgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 3 then
-LuaError('Lua: Wrong number of parameters passed to SetGearTarget!')
+LuaParameterCountError('SetGearTarget', 'gearUid, x, y', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 var gear: PGear;
 var t: LongInt;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearVelocity!');
+LuaParameterCountError('GetGearVelocity', 'gearUid', lua_gettop(L));
 lua_pushnil(L);
 lua_pushnil(L)
 end
 else
 begin
 function lc_setgearvelocity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 3 then
-LuaError('Lua: Wrong number of parameters passed to SetGearVelocity!')
+LuaParameterCountError('SetGearVelocity', 'gearUid, dx, dy', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 begin
 end;
 function lc_setzoom(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to SetZoom!')
+LuaParameterCountError('SetZoom', 'zoomLevel', lua_gettop(L))
 else
 begin
 ZoomValue:= lua_tonumber(L, 1);
 if ZoomValue < cMaxZoomLevel then
 ZoomValue:= cMaxZoomLevel;
 function lc_getzoom(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetZoom!');
+LuaParameterCountError('GetZoom', '', lua_gettop(L));
 lua_pushnil(L)
 end
 else
 lua_pushnumber(L, ZoomValue);
 lc_getzoom:= 1
 function lc_setammo(L : Plua_State) : LongInt; Cdecl;
 var np: LongInt;
 begin
 np:= lua_gettop(L);
 if (np < 4) or (np > 5) then
-LuaError('Lua: Wrong number of parameters passed to SetAmmo!')
+LuaParameterCountError('SetAmmo', 'ammoType, count, probability, delay[, numberInCrate]', lua_gettop(L))
 else if np = 4 then
 ScriptSetAmmo(TAmmoType(lua_tointeger(L, 1)), lua_tointeger(L, 2), lua_tointeger(L, 3), lua_tointeger(L, 4), 1)
 else
 ScriptSetAmmo(TAmmoType(lua_tointeger(L, 1)), lua_tointeger(L, 2), lua_tointeger(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
 lc_setammo:= 0
 function lc_setammodelay(L : Plua_State) : LongInt; Cdecl;
 var np: LongInt;
 begin
 np:= lua_gettop(L);
 if (np <> 2) then
-LuaError('Lua: Wrong number of parameters passed to SetAmmoDelay!')
+LuaParameterCountError('SetAmmoDelay', 'ammoType, delay', lua_gettop(L))
 else
 ScriptSetAmmoDelay(TAmmoType(lua_tointeger(L, 1)), lua_tointeger(L, 2));
 lc_setammodelay:= 0
 end;
 function lc_setammostore(L : Plua_State) : LongInt; Cdecl;
 var np: LongInt;
 begin
 np:= lua_gettop(L);
 if (np <> 4) then
-LuaError('Lua: Wrong number of parameters passed to SetAmmoStore!')
+LuaParameterCountError('SetAmmoStore', 'loadouts, probabilities, delays, reinforments', lua_gettop(L))
 else
 begin
 ScriptAmmoLoadout:= lua_tostring(L, 1);
 ScriptAmmoProbability:= lua_tostring(L, 2);
 ScriptAmmoDelay:= lua_tostring(L, 3);
 function lc_getrandom(L : Plua_State) : LongInt; Cdecl;
 var m : LongInt;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetRandom!');
+LuaParameterCountError('GetRandom', 'number', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 m:= lua_tointeger(L, 1);
 end;
 function lc_setwind(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to SetWind!')
+LuaParameterCountError('SetWind', 'windSpeed', lua_gettop(L))
 else
 begin
 cWindSpeed:= int2hwfloat(lua_tointeger(L, 1)) / 100 * cMaxWindSpeed;
 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
 if cWindSpeed.isNegative then
 function lc_getdatapath(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetDataPath!');
+LuaParameterCountError('GetDataPath', '', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushstring(L, str2pchar(cPathz[ptData]));
 lc_getdatapath:= 1
 function lc_getuserdatapath(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetUserDataPath!');
+LuaParameterCountError('GetUserDataPath', '', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushstring(L, str2pchar(cPathz[ptData]));
 lc_getuserdatapath:= 1
 function lc_maphasborder(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
 begin
-LuaError('Lua: Wrong number of parameters passed to MapHasBorder!');
+LuaParameterCountError('MapHasBorder', '', lua_gettop(L));
 lua_pushnil(L);
 end
 else
 lua_pushboolean(L, hasBorder);
 lc_maphasborder:= 1
 function lc_getgearradius(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to GetGearRadius!');
+LuaParameterCountError('GetGearRadius', 'gearUid', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 function lc_gethoghat(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to GetHogHat!')
+LuaParameterCountError('GetHogHat', 'gearUid', lua_gettop(L))
 else 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
 var gear : PGear;
 hat: ShortString;
 begin
 if lua_gettop(L) <> 2 then
 begin
-LuaError('Lua: Wrong number of parameters passed to SetHogHat!');
+LuaParameterCountError('SetHogHat', 'gearUid, hat', lua_gettop(L));
 lua_pushnil(L)
 end
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 end;
 function lc_placegirder(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 3 then
-LuaError('Lua: Wrong number of parameters passed to PlaceGirder!')
+LuaParameterCountError('PlaceGirder', 'x, y, state', lua_gettop(L))
 else
 TryPlaceOnLand(
 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);
 end;
 function lc_getcurammotype(L : Plua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 0 then
-LuaError('Lua: Wrong number of parameters passed to GetCurAmmoType!')
+LuaParameterCountError('GetCurAmmoType', '', lua_gettop(L))
 else
 lua_pushinteger(L, ord(CurrentHedgehog^.CurAmmoType));
 lc_getcurammotype := 1;
 end;
 function lc_savecampaignvar(L : Plua_State): LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SaveCampaignVar!')
+LuaParameterCountError('SaveCampaignVar', 'varname, value', lua_gettop(L))
 else begin
 SendIPC('V!' + lua_tostring(L, 1) + ' ' + lua_tostring(L, 2) + #0);
 end;
 lc_savecampaignvar := 0;
 end;
 function lc_getcampaignvar(L : Plua_State): LongInt; Cdecl;
 begin
 if (lua_gettop(L) <> 1) then
-LuaError('Lua: Wrong number of parameters passed to GetCampaignVar!')
+LuaParameterCountError('GetCampaignVar', 'varname', lua_gettop(L))
 else
 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 lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to HideHog!')
+LuaParameterCountError('HideHog', 'gearUid', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 HideHog(gear^.hedgehog)
 end;
 function lc_restorehog(L: Plua_State): LongInt; Cdecl;
 var i, h: LongInt;
 uid: LongWord;
 begin
 if lua_gettop(L) <> 1 then
-LuaError('Lua: Wrong number of parameters passed to RestoreHog!')
+LuaParameterCountError('RestoreHog', 'gearUid', lua_gettop(L))
 else
 begin
 uid:= LongWord(lua_tointeger(L, 1));
 if TeamsCount > 0 then
 for i:= 0 to Pred(TeamsCount) do
 function lc_testrectforobstacle(L : Plua_State) : LongInt; Cdecl;
 var rtn: Boolean;
 begin
 if lua_gettop(L) <> 5 then
 begin
-LuaError('Lua: Wrong number of parameters passed to TestRectForObstacle!');
+LuaParameterCountError('TestRectForObstacle', 'x1, y1, x2, y2, landOnly', lua_gettop(L));
 lua_pushnil(L); // return value on stack (nil)
 end
 else
 begin
 rtn:= TestRectancleForObstacle(
 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if lua_gettop(L) <> 2 then
-LuaError('Lua: Wrong number of parameters passed to SetAIHintOnGear!')
+LuaParameterCountError('SetAIHintOnGear', 'gearUid, aiHints', lua_gettop(L))
 else
 begin
 gear:= GearByUID(lua_tointeger(L, 1));
 if gear <> nil then
 gear^.aihints:= lua_tointeger(L, 2);
 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 1 then
 begin
-LuaError('Lua: Wrong number of parameters passed to HedgewarsScriptLoad!');
+LuaParameterCountError('HedgewarsScriptLoad', 'scriptPath', lua_gettop(L));
 lua_pushnil(L)
 end
 else
 ScriptLoad(lua_tostring(L, 1));
 lc_hedgewarsscriptload:= 0;
 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl;
 begin
 if lua_gettop(L) <> 4 then
-LuaError('Lua: Wrong number of parameters passed to DeclareAchievement!')
+LuaParameterCountError('DeclareAchievement', 'achievementId, teamname, location, value', lua_gettop(L))
 else
 declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4));
 lc_declareachievement:= 0
 end;
 ///////////////////
 begin
 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= k;
 if StoreCnt-1 < k then AddAmmoStore;
 inc(k)
 end
 else
 for i:= 0 to Pred(TeamsCount) do
 begin
 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do
 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= k;
 if StoreCnt-1 < k then AddAmmoStore;
 AddFileLog('[LUA] Script not found: ' + name);
 exit;
 end;
 f:= pfsOpenRead(s);
 if f = nil then
 exit;
 physfsReaderSetBuffer(@buf);
 ret:= lua_load(luaState, @physfsReader, f, Str2PChar(s));
 pfsClose(f);
 SetAmmoReinforcement(ScriptAmmoReinforcement)
 end;
 AddAmmoStore;
 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1
 end
 else
 for i:= 0 to Pred(TeamsCount) do
 begin
 if ScriptExists('onNewAmmoStore') then
 begin
 ScriptPrepareAmmoStore;

changeset 9752	656c511ab0f3
parent 9751	7a6038c3faa2
child 9764	8dc9d268330f