hedgewars/uScript.pas
branchhedgeroid
changeset 5644 4ad07103cfae
parent 5587 0b0a0f0c2cdc
parent 5612 2638dec1b323
child 5655 44c2d19f79e2
equal deleted inserted replaced
5641:06558ee35f51 5644:4ad07103cfae
  1230     else
  1230     else
  1231         begin
  1231         begin
  1232         gear:= GearByUID(lua_tointeger(L, 1));
  1232         gear:= GearByUID(lua_tointeger(L, 1));
  1233         if gear <> nil then
  1233         if gear <> nil then
  1234             begin
  1234             begin
  1235             lua_pushinteger(L, gear^.TargetX);
  1235             lua_pushinteger(L, gear^.Target.X);
  1236             lua_pushinteger(L, gear^.TargetY)
  1236             lua_pushinteger(L, gear^.Target.Y)
       
  1237             end
       
  1238         else
       
  1239             begin
       
  1240             lua_pushnil(L);
       
  1241             lua_pushnil(L)
  1237             end
  1242             end
  1238         end;
  1243         end;
  1239     lc_getgeartarget:= 2;
  1244     lc_getgeartarget:= 2;
  1240 end;
  1245 end;
  1241 
  1246 
  1247     else
  1252     else
  1248         begin
  1253         begin
  1249         gear:= GearByUID(lua_tointeger(L, 1));
  1254         gear:= GearByUID(lua_tointeger(L, 1));
  1250         if gear <> nil then
  1255         if gear <> nil then
  1251             begin
  1256             begin
  1252             gear^.TargetX:= lua_tointeger(L, 2);
  1257             gear^.Target.X:= lua_tointeger(L, 2);
  1253             gear^.TargetY:= lua_tointeger(L, 3)
  1258             gear^.Target.Y:= lua_tointeger(L, 3)
  1254             end
  1259             end
  1255         end;
  1260         end;
  1256     lc_setgeartarget:= 0
  1261     lc_setgeartarget:= 0
  1257 end;
  1262 end;
  1258 
  1263