Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

перемещение готовых вещей в пакеты

тут можно задать вопрос по скриптингу
Post Reply
olimpik
Neophyte
Neophyte
Posts: 26
Joined: 07.11.2016 13:34

перемещение готовых вещей в пакеты

Post by olimpik »

На серве Зулу кол-во итемов в бекпаке игрока 150, в пакете 300, поэтому крафту нужно когда делает перекидывать по пакетам и я ему кладу 100 пакетов, а потом ищу которые заполнились, что не удобно. Решил доработать скрипт что бы полные пакеты кидал в сундук, но что то не катит, при заполнения пакета пишет что не находит его

Program Tinkers;
var
telo: cardinal;

const
item_type = $13FD;
container = $0E76;
Sunduk = $42FB0092;


procedure otsev;
begin
findtype(item_type,backpack);
if FindQuantity > 0 then
moveitem(findtype(item_type,backpack),1,findtype(container,backpack),0,0,0);
begin
wait (500);
findtype(container,backpack);
UseObject(finditem);
if (Findcount > 0) then
begin
telo:=finditem;
if CountEx(item_type,$FFFF,telo)>270 then
// ignore(telo);
moveitem (findtype(telo,backpack),1,findtype(Sunduk,ground),0,0,0);
end;
end;
end;
80aX
Neophyte
Neophyte
Posts: 34
Joined: 10.12.2016 2:31
Location: Hawaii

Re: перемещение готовых вещей в пакеты

Post by 80aX »

olimpik wrote:На серве Зулу кол-во итемов в бекпаке игрока 150, в пакете 300, поэтому крафту нужно когда делает перекидывать по пакетам и я ему кладу 100 пакетов, а потом ищу которые заполнились, что не удобно. Решил доработать скрипт что бы полные пакеты кидал в сундук, но что то не катит, при заполнения пакета пишет что не находит его

Program Tinkers;

...
Ты зачем то ищешь контейнер который уже ранее нашёл, присвоил ему переменную telo и посчитал кол-во предметов в нём, Да и сундук не нужно искать, ты же по id перемещаешь.

Вот так должно быть:

Code: Select all

MoveItem(telo,1,sunduk,0,0,0);
80aX
Neophyte
Neophyte
Posts: 34
Joined: 10.12.2016 2:31
Location: Hawaii

Re: перемещение готовых вещей в пакеты

Post by 80aX »

Мне тот скрипт чет не нравится, я пользуюсь чем то подобным:

Code: Select all

program moveitem_1;
{$Include 'all.inc'}

const
item_type = $13FD;
container = $0E75;
sunduk = $42649976;

var
sumka, item: cardinal;

Begin
SetARStatus(true);
while True do
begin
	FindType(container,backpack);
	if (Findcount > 0) then
	begin
		sumka := FindItem;
		if (GetQuantity(FindType(item_type,backpack)) > 0) then
		begin
		UseObject(sumka);
			repeat
			item := FindType(item_type,backpack);
			if item = 0 then break;
			MoveItem(item,1,sumka,0,0,0);
			Wait(1000);
			until (CountEx(item_type,$FFFF,sumka) > 144);
		end;
		if (CountEx(item_type,$FFFF,sumka) > 144) then
		begin
			// ignore(sumka);
			MoveItem(sumka,1,sunduk,0,0,0);
			Wait(1000);
		end;
	end
	else
		begin
			AddToSystemJournal('Закончились сумки');
			exit;
		end;
end;
End.
Post Reply