Yoko

Code: Select all

sub marketbuy() 
	VAR vend, ven='vendor'	
	UO.Exec('addobject vend') 
	while uo.Targeting() 
		wait(200) 
	wend  
	UO.Click('vend') 
	ven=UO.GetName('vend') 	
	UO.Say(ven + ' buy')
end sub

Code: Select all

sub CollectMany()
var Summ = 300000
var idMoneyFrom, idMoneyTo, t
	UO.Print('Откуда деньги тырим?')
	uo.addobject('objBag') 
	while uo.targeting() 
		wait(100) 
	wend 
	idMoneyFrom = UO.GetSerial('objBag')
	UO.Print('Куда отсчитываем?')
	uo.addobject('objBag') 
	while uo.targeting() 
		wait(100) 
	wend 
	idMoneyTo = UO.GetSerial('objBag')
	uo.UseObject(idMoneyFrom)
	uo.UseObject(idMoneyTo)
	CheckLag()
	UO.FindType('0x0EED', '0x0000', idMoneyFrom)
	while UO.FindCount()>1 and Summ > 50000		
		UO.MoveItem('finditem',-1,idMoneyTo)
		CheckLag()
		if UO.GetQuantity('finditem') <> 50000 then
			t = UO.GetQuantity('finditem')
			UO.FindType('0x0EED', '0x0000', idMoneyFrom)
			repeat				
				UO.MoveItem('finditem',str(50000-t),idMoneyTo)
				CheckLag()
				wait(1000)
				t = UO.GetQuantity('finditem')
				UO.FindType('0x0EED', '0x0000', idMoneyFrom)
			until UO.GetQuantity(t) == 50000 or UO.FindCount() < 1
			if UO.FindCount() < 1 then
				Summ = Summ-UO.GetQuantity(t)
			else
				Summ = Summ - 50000
			end if
		else
			Summ = Summ - 50000
			wait(1000)
		end if
		UO.FindType('0x0EED', '0x0000', idMoneyFrom)
	wend
	if Summ == 0 then
		UO.Print('Деньги перекинул в полном объёме.')
	else
		UO.Print('В пакетике не хватает ' + str(Summ) + 'гп до запрашиваемой суммы.')
	end if
end sub

sub CheckLag() 
	UO.DeleteJournal() 
	UO.Click('backpack') 
	repeat 
		wait(50) 
	until UO.InJournal('backpack') 
end sub