(*

 * 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,

    uKeys,

    uChat;

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

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

        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_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, PHedgehog(gear^.Hedgehog)^.BotLevel)

        else

            lua_pushnil(L);

    end;

    lc_gethoglevel := 1;

end;

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

        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

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

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

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

        end

    else

        begin

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

        if gear <> nil then

            lua_pushnumber(L, gear^.Timer)

        else

            lua_pushnil(L);

        end;

    lc_gettimer:= 1

end;

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

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

        end

    else

        begin

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

        if gear <> nil then

            lua_pushnumber(L, gear^.Health)

        else

            lua_pushnil(L);

        end;

    lc_gethealth:= 1

end;

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

        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

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

        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

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

        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

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

        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

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

    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

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

        end

    else

        begin

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

        if gear <> nil then

            begin

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

            SetAllToActive;

            end

        end;

    lc_sethealth:= 0

end;

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

        end

    else

        begin

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

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

        end;

    lc_settimer:= 0

end;

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

    else begin

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

        if gear <> nil then

            PHedgehog(gear^.Hedgehog)^.Effects[THogEffect(lua_tointeger(L, 2))]:= lua_tointeger(L, 3) <> 0;

    end;

    lc_seteffect := 0;

end;