sheepy-clone: comparison hedgewars/uScript.pas

equal deleted inserted replaced

-:9b7c8c5a94e0
+:3851ce4f2061
 (*
 * Hedgewars, a free turn based strategy game
-* Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
+* Copyright (c) 2004-2015 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
 *
 uLandGraphics,
 SysUtils,
 uIO,
 uVisualGearsList,
 uGearsHandlersMess,
-uPhysFSLayer
+uPhysFSLayer,
+SDLh
 {$IFNDEF PAS2C}
 , typinfo
 {$ENDIF}
 ;
 ScriptAmmoDelay : shortstring;
 ScriptAmmoReinforcement : shortstring;
 ScriptLoaded : boolean;
 mapDims : boolean;
 PointsBuffer: shortstring;
+prevCursorPoint: TPoint;  // why is tpoint still in sdlh...
 procedure ScriptPrepareAmmoStore; forward;
 procedure ScriptApplyAmmoStore; forward;
 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;
 procedure ScriptSetAmmoDelay(ammo : TAmmoType; delay: Byte); forward;
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
 ParseCommand('setweap ' + char(at), true, true);
 end;
 lc_setweapon:= 0;
+end;
+// no parameter means reset to default (and 0 means unlimited)
+function lc_setmaxbuilddistance(L : Plua_State) : LongInt; Cdecl;
+var np: LongInt;
+const
+call = 'SetMaxBuildDistance';
+params = '[ distInPx ]';
+begin
+if CheckAndFetchParamCountRange(L, 0, 1, call, params, np) then
+begin
+if np = 0 then
+begin
+// no args? reset
+cBuildMaxDist:= cDefaultBuildMaxDist;
+end
+else
+CBuildMaxDist:= lua_tointeger(L, 1);
+end;
+lc_setmaxbuilddistance:= 0;
 end;
 // sets weapon to whatever weapons is next (wraps around, amSkip is skipped)
 function lc_setnextweapon(L : Plua_State) : LongInt; Cdecl;
 var at          : LongInt;
 end;
 lc_setclancolor:= 0
 end;
+function lc_gethogvoicepack(L : Plua_State) : LongInt; Cdecl;
+var gear : PGear;
+begin
+if CheckLuaParamCount(L, 1, 'GetHogVoicepack', 'gearUid') then
+begin
+gear:= GearByUID(lua_tointeger(L, 1));
+if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
+lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Voicepack^.name))
+else
+lua_pushnil(L);
+end
+else
+lua_pushnil(L); // return value on stack (nil)
+lc_gethogvoicepack:= 1
+end;
+function lc_gethoggrave(L : Plua_State) : LongInt; Cdecl;
+var gear : PGear;
+begin
+if CheckLuaParamCount(L, 1, 'GetHogGrave', '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^.GraveName))
+else
+lua_pushnil(L);
+end
+else
+lua_pushnil(L); // return value on stack (nil)
+lc_gethoggrave:= 1
+end;
+function lc_gethogflag(L : Plua_State) : LongInt; Cdecl;
+var gear : PGear;
+begin
+if CheckLuaParamCount(L, 1, 'GetHogFlag', 'gearUid') then
+begin
+gear:= GearByUID(lua_tointeger(L, 1));
+if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
+lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Flag))
+else
+lua_pushnil(L);
+end
+else
+lua_pushnil(L); // return value on stack (nil)
+lc_gethogflag:= 1
+end;
 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogTeamName', 'gearUid') then
 begin
 if vgear <> nil then
 begin
 vgear^.Text:= lua_tostring(L, 2);
 if Gear^.Kind = gtHedgehog then
 begin
-AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
+AddChatString(#9+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
 vgear^.Hedgehog:= gear^.Hedgehog
 end
 else vgear^.Frame:= gear^.uid;
 vgear^.FrameTicks:= lua_tointeger(L, 3);
 if not lua_isnoneornil(L, 8) then
 	        flipVert := lua_toboolean(L, 8)
 else flipVert := false;
 lf:= 0;
-// accept any amount of landflags, loop is never executed if n>6
+// accept any amount of landflags, loop is never executed if n<9
 for i:= 9 to n do
 lf:= lf or lua_tointeger(L, i);
 n:= LuaToSpriteOrd(L, 3, call, params);
 if n >= 0 then
 lf    : Word;
 i, n : LongInt;
 eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert : boolean;
 const
 call = 'EraseSprite';
-params = 'x, y, sprite, frameIdx, eraseOnLFMatch, flipHoriz, flipVert, [, landFlag, ... ]';
+params = 'x, y, sprite, frameIdx, eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert, [, landFlag, ... ]';
 begin
 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then
 begin
 if not lua_isnoneornil(L, 5) then
 	        eraseOnLFMatch := lua_toboolean(L, 5)
 if not lua_isnoneornil(L, 8) then
 	        flipVert := lua_toboolean(L, 8)
 else flipVert := false;
 lf:= 0;
-// accept any amount of landflags, loop is never executed if n>6
+// accept any amount of landflags, loop is never executed if n<9
 for i:= 9 to n do
 lf:= lf or lua_tointeger(L, i);
 n:= LuaToSpriteOrd(L, 3, call, params);
 if n >= 0 then
 end
 end;
 lc_setwaterline:= 0
 end;
-function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl;
+function lc_setgearaihints(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 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;
-lc_setaihintsongear:= 0
+lc_setgearaihints:= 0
 end;
 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl;
 begin
 ScriptSetString('Seed', cSeed);
 ScriptSetInteger('TemplateFilter', cTemplateFilter);
 ScriptSetInteger('TemplateNumber', LuaTemplateNumber);
 ScriptSetInteger('MapGen', ord(cMapGen));
+ScriptSetInteger('MapFeatureSize', cFeatureSize);
 ScriptCall('onPreviewInit');
 // pop game variables
 ParseCommand('seed ' + ScriptGetString('Seed'), true, true);
 cTemplateFilter  := ScriptGetInteger('TemplateFilter');
 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber');
 cMapGen          := TMapGen(ScriptGetInteger('MapGen'));
+cFeatureSize     := ScriptGetInteger('MapFeatureSize');
 end;
 procedure ScriptOnGameInit;
 var i, j, k: LongInt;
 begin
 // not required if there is no script to run
 if not ScriptLoaded then
 exit;
 // push game variables so they may be modified by the script
+ScriptSetInteger('CursorX', CursorPoint.X);
+ScriptSetInteger('CursorY', CursorPoint.Y);
 ScriptSetInteger('BorderColor', ExplosionBorderColor);
 ScriptSetInteger('GameFlags', GameFlags);
 ScriptSetString('Seed', cSeed);
 ScriptSetInteger('TemplateFilter', cTemplateFilter);
 ScriptSetInteger('TemplateNumber', LuaTemplateNumber);
 ScriptSetInteger('MapGen', ord(cMapGen));
+ScriptSetInteger('MapFeatureSize', cFeatureSize);
 ScriptSetInteger('ScreenHeight', cScreenHeight);
 ScriptSetInteger('ScreenWidth', cScreenWidth);
 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
 ScriptSetInteger('CaseFreq', cCaseFactor);
 ScriptSetInteger('HealthCaseProb', cHealthCaseProb);
 // pop game variables
 ParseCommand('seed ' + ScriptGetString('Seed'), true, true);
 cTemplateFilter  := ScriptGetInteger('TemplateFilter');
 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber');
 cMapGen          := TMapGen(ScriptGetInteger('MapGen'));
+cFeatureSize     := ScriptGetInteger('MapFeatureSize');
 GameFlags        := ScriptGetInteger('GameFlags');
 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');
 cCaseFactor      := ScriptGetInteger('CaseFreq');
 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');
 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount');
 begin
 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
 ScriptSetInteger('GameTime', GameTicks);
 ScriptSetInteger('TotalRounds', TotalRounds);
 ScriptSetInteger('WaterLine', cWaterLine);
+if isCursorVisible and (not bShowAmmoMenu) then
+begin
+if (prevCursorPoint.X <> CursorPoint.X) or
+(prevCursorPoint.Y <> CursorPoint.Y) then
+begin
+ScriptSetInteger('CursorX', CursorPoint.X - WorldDx);
+ScriptSetInteger('CursorY', cScreenHeight - CursorPoint.Y- WorldDy);
+prevCursorPoint.X:= CursorPoint.X;
+prevCursorPoint.Y:= CursorPoint.Y;
+end
+end
+else
+begin
+ScriptSetInteger('CursorX', NoPointX);
+ScriptSetInteger('CursorY', NoPointX);
+prevCursorPoint.X:= NoPointX;
+prevCursorPoint.Y:= NoPointX
+end;
 if not mapDims then
 begin
 mapDims:= true;
 ScriptSetInteger('LAND_WIDTH', LAND_WIDTH);
 ScriptSetInteger('LAND_HEIGHT', LAND_HEIGHT);
 ScriptSetInteger('gstHHDriven'      , gstHHDriven);
 ScriptSetInteger('gstMoving'        , gstMoving);
 ScriptSetInteger('gstAttacked'      , gstAttacked);
 ScriptSetInteger('gstAttacking'     , gstAttacking);
 ScriptSetInteger('gstCollision'     , gstCollision);
-ScriptSetInteger('gstChooseTarget', gstChooseTarget);
+ScriptSetInteger('gstChooseTarget'  , gstChooseTarget);
 ScriptSetInteger('gstHHJumping'     , gstHHJumping);
 ScriptSetInteger('gsttmpFlag'       , gsttmpFlag);
 ScriptSetInteger('gstHHThinking'    , gstHHThinking);
 ScriptSetInteger('gstNoDamage'      , gstNoDamage);
 ScriptSetInteger('gstHHHJump'       , gstHHHJump);
 ScriptSetInteger('gstWait'          , gstWait);
 ScriptSetInteger('gstNotKickable'   , gstNotKickable);
 ScriptSetInteger('gstLoser'         , gstLoser);
 ScriptSetInteger('gstHHGone'        , gstHHGone);
 ScriptSetInteger('gstInvisible'     , gstInvisible);
+ScriptSetInteger('gstSubmersible'   , gstSubmersible);
+ScriptSetInteger('gstFrozen'        , gstFrozen);
+ScriptSetInteger('gstNoGravity'     , gstNoGravity);
 // ai hints
 ScriptSetInteger('aihUsualProcessing', aihUsualProcessing);
 ScriptSetInteger('aihDoesntMatter'   , aihDoesntMatter);
 lua_register(luaState, _P'SetEffect', @lc_seteffect);
 lua_register(luaState, _P'GetEffect', @lc_geteffect);
 lua_register(luaState, _P'GetHogClan', @lc_gethogclan);
 lua_register(luaState, _P'GetClanColor', @lc_getclancolor);
 lua_register(luaState, _P'SetClanColor', @lc_setclancolor);
+lua_register(luaState, _P'GetHogVoicepack', @lc_gethogvoicepack);
+lua_register(luaState, _P'GetHogFlag', @lc_gethogflag);
+lua_register(luaState, _P'GetHogGrave', @lc_gethoggrave);
 lua_register(luaState, _P'GetHogTeamName', @lc_gethogteamname);
 lua_register(luaState, _P'SetHogTeamName', @lc_sethogteamname);
 lua_register(luaState, _P'GetHogName', @lc_gethogname);
 lua_register(luaState, _P'SetHogName', @lc_sethogname);
 lua_register(luaState, _P'GetHogLevel', @lc_gethoglevel);
 lua_register(luaState, _P'GetGravity', @lc_getgravity);
 lua_register(luaState, _P'SetGravity', @lc_setgravity);
 lua_register(luaState, _P'SetWaterLine', @lc_setwaterline);
 lua_register(luaState, _P'SetNextWeapon', @lc_setnextweapon);
 lua_register(luaState, _P'SetWeapon', @lc_setweapon);
+lua_register(luaState, _P'SetMaxBuildDistance', @lc_setmaxbuilddistance);
 // drawn map functions
 lua_register(luaState, _P'AddPoint', @lc_addPoint);
 lua_register(luaState, _P'FlushPoints', @lc_flushPoints);
-lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear);
+lua_register(luaState, _P'SetGearAIHints', @lc_setgearaihints);
 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload);
 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement);
 ScriptSetInteger('TEST_SUCCESSFUL'   , HaltTestSuccess);
 ScriptSetInteger('TEST_FAILED'       , HaltTestFailed);
 procedure initModule;
 begin
 mapDims:= false;
 PointsBuffer:= '';
+prevCursorPoint.X:= NoPointX;
+prevCursorPoint.Y:= 0;
 end;
 procedure freeModule;
 begin
 end;

branch	qmlfrontend
changeset 11071	3851ce4f2061
parent 11066	f10a4bdfa0f4
child 11168	e104e060911b
child 11176	78f9fd42fa46