hedgewars/uScript.pas
changeset 2794 befd3808c63a
parent 2793 6bcf173ba9be
child 2795 c9c830897547
equal deleted inserted replaced
2793:6bcf173ba9be 2794:befd3808c63a
   207 		end
   207 		end
   208 	else
   208 	else
   209 		begin
   209 		begin
   210 		ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true);
   210 		ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true);
   211 		ParseCommand('hat ' + lua_tostring(L, 4), true);
   211 		ParseCommand('hat ' + lua_tostring(L, 4), true);
   212 		WriteLnToConsole('last hog: ' + inttostr(LongInt(CurrentHedgehog)));
   212 		lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);
   213 		lua_pushinteger(L, LongInt(CurrentHedgehog^.Gear));
       
   214 		end;
   213 		end;
   215 	lc_addhog:= 1;
   214 	lc_addhog:= 1;
   216 end;
   215 end;
   217 
   216 
   218 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;
   217 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;