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

Раскладка голды по кучкам

Only working scripts
Post Reply
Unholy
Novice
Novice
Posts: 119
Joined: 23.06.2008 2:26
Location: DRW

Раскладка голды по кучкам

Post by Unholy »

100% где-то был такой скрипт, и он мне очень срочно понадобился, но поиск результатов не дал. Пришлось лепить на коленке свой велосипед.
Суть:
Есть два мешка, в первом голда по кучкам; во второй голда будет складываться кучками по 50к.
Пропишите правильные id-шники и нажмите play :D

Code: Select all

program golda;

const 
	idBagFrom = $40072F0A; //id первого мешка (с голдой)
	idBagTo = $402C7948; // id второго мешка (пустого)
	
	typeGold = $0EED;	// тип золото
	
	maxQuantity = 50000; // количество золота в кучке
	
	var
		firstStack,secondStack: cardinal;

procedure lastStack;
begin
	MoveItem(firstStack,GetQuantity(firstStack),backpack,10,10,0);
end;
		
begin
	useObject(idBagFrom);
	useObject(idBagTo);
	wait(500);
	CheckLag(150000);
	repeat
		IgnoreReset;
		firstStack := FindType(typeGold,idBagFrom);
		Ignore(firstStack);
		secondStack := FindType(typeGold,idBagFrom);
		Ignore(secondStack);
		AddToSystemJournal('first=' + intToStr(GetQuantity(firstStack)) + ' ' + 'second=' + intToStr(GetQuantity(secondStack)));
		if (GetQuantity(firstStack) = maxQuantity) then
			MoveItem(firstStack,GetQuantity(firstStack),idBagTo,1,1,0)
		else if (GetQuantity(secondStack) = maxQuantity) then
			MoveItem(secondStack,GetQuantity(secondStack),idBagTo,1,1,0)
		else
			MoveItem(secondStack, maxQuantity - GetQuantity(firstStack),firstStack,1,1,0);
		wait(500);
		CheckLag(150000);
	until secondStack = 0;

end.
Post Reply