(*

 * Hedgewars, a free turn based strategy game

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

 * Lua integration (c) 2010 Mario Liebisch <mario.liebisch@googlemail.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 IPHONEOS}

uses LuaPas in 'LuaPas.pas',

    uConsole,

    uMisc,

    uConsts,

    uGears,

    uFloat,

    uWorld,

    uAmmos,

    uSound,

    uTeams,

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;

// wrapped calls //

// 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_writelntoconsole(L : Plua_State) : LongInt; Cdecl;

begin

    if lua_gettop(L) = 1 then

        begin

        end

    else

    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

    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

    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_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

        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_pushnumber(L, gear^.uid)

        end;

    lc_addgear:= 1; // 1 return value

end;

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

begin

    if lua_gettop(L) <> 0 then

        begin

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

        end

    else

        if FollowGear = nil then

            lua_pushnil(L)

        else

            lua_pushnumber(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

        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_gethogclan(L : Plua_State) : LongInt; Cdecl;

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

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

        end

    else

        begin

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

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

            begin

            lua_pushinteger(L, PHedgehog(gear^.Hedgehog)^.Team^.Clan^.ClanIndex)

            end

        else

            lua_pushnil(L);

        end;

    lc_gethogclan:= 1

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

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

        end

    else

        begin

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

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

            begin

            lua_pushstring(L, str2pchar(PHedgehog(gear^.Hedgehog)^.Name))

            end

        else

            lua_pushnil(L);

        end;

    lc_gethogname:= 1

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

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

        end

    else

        begin

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

        if gear <> nil then

            lua_pushnumber(L, hwRound(gear^.X))

        else

            lua_pushnil(L);

        end;

    lc_getx:= 1

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

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

        end

    else

        begin

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

        if gear <> nil then

            lua_pushnumber(L, hwRound(gear^.Y))

        else

            lua_pushnil(L);

        end;

    lc_gety:= 1

end;

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

var gears, geard : PGear;

begin

    if lua_gettop(L) <> 2 then

        begin

        end

    else

        begin

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

        geard:= GearByUID(lua_tointeger(L, 2));

        if (gears <> nil) and (geard <> nil) then

            begin

            geard^.X:= gears^.X;

            geard^.Y:= gears^.Y;

            geard^.dX:= gears^.dX;

            geard^.dY:= gears^.dY;

            end

        end;

    lc_copypv:= 1

end;

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

var gears, geard : PGear;

begin

    if lua_gettop(L) <> 2 then

        begin

        end

    else

        begin

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

        geard:= GearByUID(lua_tointeger(L, 2));

        if (gears <> nil) and (geard <> nil) then

            begin

            geard^.X:= gears^.X;

            geard^.Y:= gears^.Y;

            geard^.dX:= gears^.dX * 2;

            geard^.dY:= gears^.dY * 2;

            end

        end;

    lc_copypv2:= 1

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

    else

        begin

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

        if gear <> nil then FollowGear:= gear

        end;

    lc_followgear:= 0

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 2 then

        begin

        end

    else

        begin

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

        if gear <> nil then gear^.Health:= lua_tointeger(L, 2)

        end;

    lc_sethealth:= 0

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 2 then

        begin

        end

    else

        begin

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

        if gear <> nil then gear^.State:= lua_tointeger(L, 2)

        end;

    lc_setstate:= 0

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

        end

    else

        begin

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

        if gear <> nil then

            lua_pushinteger(L, gear^.State)

        else

            lua_pushnil(L)

        end;

    lc_getstate:= 1

end;

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

var gear : PGear;

begin

    if lua_gettop(L) <> 2 then

        begin

        end

    else

        begin

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

        if gear <> nil then gear^.Tag:= lua_tointeger(L, 2)

        end;

    lc_settag:= 0

end;

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

begin

    L:= L; // avoid compiler hint

    GameState:= gsExit;

    lc_endgame:= 0

end;

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

var gear: PGear;

    fall: boolean;

    left, right: LongInt;

begin

    if lua_gettop(L) <> 4 then

    else

        begin

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

        fall:= lua_toboolean(L, 2);

        left:= lua_tointeger(L, 3);

        right:= lua_tointeger(L, 4);

        if gear <> nil then

            FindPlace(gear, fall, left, right)

        end;

    lc_findplace:= 0

end;

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

begin

    if lua_gettop(L) <> 1 then

    else

        PlaySound(TSound(lua_tointeger(L, 1)));

    lc_playsound:= 0;

end;

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

begin

    if lua_gettop(L) <> 5 then

        begin

        //lua_pushnil(L)

        end

    else

        begin

        ParseCommand('addteam x ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 1), true);

        ParseCommand('grave ' + lua_tostring(L, 3), true);

        ParseCommand('fort ' + lua_tostring(L, 4), true);

        ParseCommand('voicepack ' + lua_tostring(L, 5), true);

        CurrentTeam^.Binds:= DefaultBinds

        // fails on x64

        //lua_pushinteger(L, LongInt(CurrentTeam));

        end;

    lc_addteam:= 0;//1;

end;

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

var temp: ShortString;

begin

    if lua_gettop(L) <> 4 then

        begin

        lua_pushnil(L)

        end

    else

        begin

        temp:= lua_tostring(L, 4);

        ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true);

        ParseCommand('hat ' + temp, true);

        lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);

        end;

    lc_addhog:= 1;

end;

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

var gear: PGear;

begin

    if lua_gettop(L) <> 1 then

        begin

        lua_pushnil(L);

        lua_pushnil(L)

        end

    else

        begin

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

        if gear <> nil then

            begin

            lua_pushinteger(L, hwRound(gear^.X));

            lua_pushinteger(L, hwRound(gear^.Y))

            end

        end;

    lc_getgearposition:= 2;

end;

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

var gear: PGear;

    x, y: LongInt;

begin

    if lua_gettop(L) <> 3 then

    else

        begin

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

        if gear <> nil then

            begin

            x:= lua_tointeger(L, 2);

            y:= lua_tointeger(L, 3);

            gear^.X:= int2hwfloat(x);

            gear^.Y:= int2hwfloat(y);

            end

        end;