(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2010 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

{$INCLUDE "options.inc"}

unit uScript;

interface

procedure ScriptPrintStack;

procedure ScriptClearStack;

procedure ScriptLoad(name : shortstring);

procedure ScriptOnGameInit;

procedure ScriptCall(fname : shortstring);

function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;

function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;

function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;

function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;

function ScriptExists(fname : shortstring) : boolean;

procedure initModule;

procedure freeModule;

implementation

{$IFNDEF LUA_DISABLED}

uses LuaPas in 'LuaPas.pas',

    uConsole,

    uConsts,

    uVisualGears,

    uGears,

    uFloat,

    uWorld,

    uAmmos,

    uSound,

    uChat,

    uStats,

    uRandom,

    uTypes,

    uVariables,

    uCommands,

    uUtils,

    uKeys,

    uCaptions,

    uDebug;

var luaState : Plua_State;

    ScriptAmmoLoadout : shortstring;

    ScriptAmmoProbability : shortstring;

    ScriptAmmoDelay : shortstring;

    ScriptAmmoReinforcement : shortstring;

    ScriptLoaded : boolean;

procedure ScriptPrepareAmmoStore; forward;

procedure ScriptApplyAmmoStore; forward;

procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); forward;

procedure LuaError(s: shortstring);

begin

    WriteLnToConsole(s);

    AddChatString(#5 + s);

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!');

        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!');

        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!');

        lua_pushnil(L);

        end

    else lua_pushinteger(L, not lua_tointeger(L, 1));

    lc_bnot := 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!')

    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!')

    else InputMask:= lua_tointeger(L, 1);

    lc_setinputmask:= 0

end;

function lc_writelntoconsole(L : Plua_State) : LongInt; Cdecl;

begin

    if lua_gettop(L) = 1 then

        begin

        WriteLnToConsole('Lua: ' + lua_tostring(L ,1));

        end

    else

        LuaError('Lua: Wrong number of parameters passed to WriteLnToConsole!');

    lc_writelntoconsole:= 0;

end;

function lc_parsecommand(L : Plua_State) : LongInt; Cdecl;

begin

    if lua_gettop(L) = 1 then

        begin

        ParseCommand(lua_tostring(L ,1), true);

        end

    else

        LuaError('Lua: Wrong number of parameters passed to ParseCommand!');

    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!');

    lc_showmission:= 0;

end;

function lc_hidemission(L : Plua_State) : LongInt; Cdecl;

begin

    L:= L; // avoid compiler hint

    HideMission;

    lc_hidemission:= 0;

end;

function lc_addcaption(L : Plua_State) : LongInt; Cdecl;

begin

    if lua_gettop(L) = 1 then

        begin

        AddCaption(lua_tostring(L, 1), cWhiteColor, capgrpMessage);

        end

    else

        LuaError('Lua: Wrong number of parameters passed to AddCaption!');

    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!');

    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!');

    lc_campaignunlock:= 0;

end;

function lc_spawnhealthcrate(L: Plua_State) : LongInt; Cdecl;

var gear: PGear;

begin

    if lua_gettop(L) <> 2 then begin

        LuaError('Lua: Wrong number of parameters passed to SpawnHealthCrate!');

        lua_pushnil(L);

    end

    else begin

        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),

            HealthCrate, 0);

        lua_pushinteger(L, gear^.uid);

    end;

    lc_spawnhealthcrate := 1;        

end;

function lc_spawnammocrate(L: PLua_State): LongInt; Cdecl;

var gear: PGear;

begin

    if lua_gettop(L) <> 3 then begin

        LuaError('Lua: Wrong number of parameters passed to SpawnAmmoCrate!');

        lua_pushnil(L);

    end

    else begin

        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),

            AmmoCrate, lua_tointeger(L, 3));

        lua_pushinteger(L, gear^.uid);

    end;

    lc_spawnammocrate := 1;

end;

function lc_spawnutilitycrate(L: PLua_State): LongInt; Cdecl;

var gear: PGear;

begin

    if lua_gettop(L) <> 3 then begin

        LuaError('Lua: Wrong number of parameters passed to SpawnUtilityCrate!');

        lua_pushnil(L);

    end

    else begin  

        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),

            UtilityCrate, lua_tointeger(L, 3));

        lua_pushinteger(L, gear^.uid);

    end;

    lc_spawnutilitycrate := 1;

end;

function lc_addgear(L : Plua_State) : LongInt; Cdecl;

var gear : PGear;

    x, y, s, t: LongInt;

    dx, dy: hwFloat;

    gt: TGearType;

begin

    if lua_gettop(L) <> 7 then

        begin

        LuaError('Lua: Wrong number of parameters passed to AddGear!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        begin

        x:= lua_tointeger(L, 1);

        y:= lua_tointeger(L, 2);

        gt:= TGearType(lua_tointeger(L, 3));

        s:= lua_tointeger(L, 4);

        dx:= int2hwFloat(round(lua_tonumber(L, 5) * 1000)) / 1000;

        dy:= int2hwFloat(round(lua_tonumber(L, 6) * 1000)) / 1000;

        t:= lua_tointeger(L, 7);

        gear:= AddGear(x, y, gt, s, dx, dy, t);

        lua_pushinteger(L, gear^.uid)

        end;

    lc_addgear:= 1; // 1 return value

end;

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!');

        end

    else

        begin

        gear:= GearByUID(lua_tointeger(L, 1));

        if gear <> nil then DeleteGear(gear);

        end;

    lc_deletegear:= 0

end;

function lc_addvisualgear(L : Plua_State) : LongInt; Cdecl;

var vg : PVisualGear;

    x, y, s: LongInt;

    c: Boolean;

    vgt: TVisualGearType;

begin

    if lua_gettop(L) <> 5 then

        begin

        LuaError('Lua: Wrong number of parameters passed to AddVisualGear!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        begin

        x:= lua_tointeger(L, 1);

        y:= lua_tointeger(L, 2);

        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 lua_pushinteger(L, vg^.uid)

        else lua_pushinteger(L, 0)

        end;

    lc_addvisualgear:= 1; // 1 return value

end;

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!');

        end

    else

        begin

        vg:= VisualGearByUID(lua_tointeger(L, 1));

        if vg <> nil then DeleteVisualGear(vg);

        end;

    lc_deletevisualgear:= 0

end;

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!');

        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

        vg:= VisualGearByUID(lua_tointeger(L, 1));

        if vg <> nil then

            begin

            lua_pushinteger(L, round(vg^.X));

            lua_pushinteger(L, round(vg^.Y));

            lua_pushnumber(L, vg^.dX);

            lua_pushnumber(L, vg^.dY);

            lua_pushnumber(L, vg^.Angle);

            lua_pushinteger(L, vg^.Frame);

            lua_pushinteger(L, vg^.FrameTicks);

            lua_pushinteger(L, vg^.State);

            lua_pushinteger(L, vg^.Timer);

            lua_pushinteger(L, vg^.Tint);

            end

        end;

    lc_getvisualgearvalues:= 10;

end;

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!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        begin

        vg:= VisualGearByUID(lua_tointeger(L, 1));

        if vg <> nil then

            begin

            vg^.X:= lua_tointeger(L, 2);

            vg^.Y:= lua_tointeger(L, 3);

            vg^.dX:= lua_tonumber(L, 4);

            vg^.dY:= lua_tonumber(L, 5);

            vg^.Angle:= lua_tonumber(L, 6);

            vg^.Frame:= lua_tointeger(L, 7);

            vg^.FrameTicks:= lua_tointeger(L, 8);

            vg^.State:= lua_tointeger(L, 9);

            vg^.Timer:= lua_tointeger(L, 10);

            vg^.Tint:= lua_tointeger(L, 11);

            end

        end;

    lc_setvisualgearvalues:= 0;

end;

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!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        if FollowGear = nil then

            lua_pushnil(L)

        else

            lua_pushinteger(L, FollowGear^.uid);

    lc_getfollowgear:= 1; // 1 return value

end;

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!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        begin

        gear:= GearByUID(lua_tointeger(L, 1));

        if gear <> nil then

            lua_pushinteger(L, ord(gear^.Kind))

        else

            lua_pushnil(L);

        end;

    lc_getgeartype:= 1

end;

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!');

        lua_pushnil(L); // return value on stack (nil)

        end

    else

        begin

        gear:= GearByUID(lua_tointeger(L, 1));

        if gear <> nil then

            lua_pushinteger(L, gear^.message)

        else

            lua_pushnil(L);

        end;

    lc_getgearmessage:= 1

end;

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!')

    else

        begin

        gear:= GearByUID(lua_tointeger(L, 1));

        if gear <> nil then

            gear^.message:= lua_tointeger(L, 2);

        end;

    lc_setgearmessage:= 0

end;

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!')

    else begin

        gear := GearByUID(lua_tointeger(L, 1));

        if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then

            lua_pushinteger(L, gear^.Hedgehog^.BotLevel)

        else

            lua_pushnil(L);

    end;

    lc_gethoglevel := 1;

end;

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!')

    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);

        end;

    lc_sethoglevel:= 0

end;

function lc_gethogclan(L : Plua_State) : LongInt; Cdecl;

var gear : PGear;