Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uScript.pas
branchwebgl
changeset 8444 75db7bb8dce8
parent 8330 aaefa587e277
parent 8370 0c79946e96f8
child 8833 c13ebed437cb
equal deleted inserted replaced
8340:46a9fde631f4 8444:75db7bb8dce8 
    35 procedure ScriptClearStack;
 
    35 procedure ScriptClearStack;
 
    36 
    36 
    37 procedure ScriptLoad(name : shortstring);
 
    37 procedure ScriptLoad(name : shortstring);
 
    38 procedure ScriptOnGameInit;
 
    38 procedure ScriptOnGameInit;
 
    39 procedure ScriptOnScreenResize;
 
    39 procedure ScriptOnScreenResize;
 
       
    40 procedure ScriptSetInteger(name : shortstring; value : LongInt);
 
    40 
    41 
    41 procedure ScriptCall(fname : shortstring);
 
    42 procedure ScriptCall(fname : shortstring);
 
    42 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
    43 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
    43 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
    44 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
    44 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
    45 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
   222     L:= L; // avoid compiler hint
 
   223     L:= L; // avoid compiler hint
 
   223     HideMission;
 
   224     HideMission;
 
   224     lc_hidemission:= 0;
 
   225     lc_hidemission:= 0;
 
   225 end;
 
   226 end;
 
   226 
   227 
       
   228 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl;
 
       
   229 var i : integer;
 
       
   230 begin
 
       
   231     for i:= 1 to lua_gettop(L) do
 
       
   232         if (GameFlags and lua_tointeger(L, i)) = 0 then
 
       
   233             GameFlags := GameFlags + LongWord(lua_tointeger(L, i));
 
       
   234     ScriptSetInteger('GameFlags', GameFlags);
 
       
   235     lc_enablegameflags:= 0;
 
       
   236 end;
 
       
   237 
       
   238 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl;
 
       
   239 var i : integer;
 
       
   240 begin
 
       
   241     for i:= 1 to lua_gettop(L) do
 
       
   242         if (GameFlags and lua_tointeger(L, i)) <> 0 then
 
       
   243             GameFlags := GameFlags - LongWord(lua_tointeger(L, i));
 
       
   244     ScriptSetInteger('GameFlags', GameFlags);
 
       
   245     lc_disablegameflags:= 0;
 
       
   246 end;
 
       
   247 
       
   248 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl;
 
       
   249 begin
 
       
   250     // Silence hint
 
       
   251     L:= L;
 
       
   252     GameFlags:= 0;
 
       
   253     ScriptSetInteger('GameFlags', GameFlags);
 
       
   254     lc_cleargameflags:= 0;
 
       
   255 end;
 
       
   256 
   227 function lc_addcaption(L : Plua_State) : LongInt; Cdecl;
 
   257 function lc_addcaption(L : Plua_State) : LongInt; Cdecl;
 
   228 begin
 
   258 begin
 
   229     if lua_gettop(L) = 1 then
 
   259     if lua_gettop(L) = 1 then
 
   230         AddCaption(lua_tostring(L, 1), cWhiteColor, capgrpMessage)
 
   260         AddCaption(lua_tostring(L, 1), cWhiteColor, capgrpMessage)
 
   231     else if lua_gettop(L) = 3 then
 
   261     else if lua_gettop(L) = 3 then
 
  1735         end;
 
  1765         end;
 
  1736     lc_hidehog := 0;
 
  1766     lc_hidehog := 0;
 
  1737 end;
 
  1767 end;
 
  1738 
  1768 
  1739 function lc_restorehog(L: Plua_State): LongInt; Cdecl;
 
  1769 function lc_restorehog(L: Plua_State): LongInt; Cdecl;
 
  1740 var hog: PHedgehog;
 
  1770 var i, h: LongInt;
 
  1741     i, h: LongInt;
 
       
  1742     uid: LongWord;
 
  1771     uid: LongWord;
 
  1743 begin
 
  1772 begin
 
  1744     if lua_gettop(L) <> 1 then
 
  1773     if lua_gettop(L) <> 1 then
 
  1745         LuaError('Lua: Wrong number of parameters passed to RestoreHog!')
 
  1774         LuaError('Lua: Wrong number of parameters passed to RestoreHog!')
 
  1746     else
 
  1775     else
 
  2335 lua_register(luaState, _P'bnot', @lc_bnot);
 
  2364 lua_register(luaState, _P'bnot', @lc_bnot);
 
  2336 lua_register(luaState, _P'div', @lc_div);
 
  2365 lua_register(luaState, _P'div', @lc_div);
 
  2337 lua_register(luaState, _P'GetInputMask', @lc_getinputmask);
 
  2366 lua_register(luaState, _P'GetInputMask', @lc_getinputmask);
 
  2338 lua_register(luaState, _P'SetInputMask', @lc_setinputmask);
 
  2367 lua_register(luaState, _P'SetInputMask', @lc_setinputmask);
 
  2339 lua_register(luaState, _P'AddGear', @lc_addgear);
 
  2368 lua_register(luaState, _P'AddGear', @lc_addgear);
 
       
  2369 lua_register(luaState, _P'EnableGameFlags', @lc_enablegameflags);
 
       
  2370 lua_register(luaState, _P'DisableGameFlags', @lc_disablegameflags);
 
       
  2371 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags);
 
  2340 lua_register(luaState, _P'DeleteGear', @lc_deletegear);
 
  2372 lua_register(luaState, _P'DeleteGear', @lc_deletegear);
 
  2341 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear);
 
  2373 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear);
 
  2342 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear);
 
  2374 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear);
 
  2343 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues);
 
  2375 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues);
 
  2344 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues);
 
  2376 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues);
hedgewars