Каторга ПвП альфа

[Rivory]

Ща тоже другу помогал каторгу пошить на альфе ) 2 скриптика написал полезных. А в поиске вроде нет ничего на эту тему.

Code: Select all

sub nitki()
uo.set('finddistance','3')
repeat
uo.waittargetground('0x1015')
wait(100)
uo.usetype('0x0DF9')
wait (1200)
uo.deletejournal()
until uo.injournal ('Стоп')
end sub

Подходим к двум круглым станкам с хлопком в паке, запускаем скрипт и получаем нитки.

Code: Select all

sub tapki()
uo.automenu ('Footwear', 'Rabbit Slippers')
var k
VAR Kit = "0x0F9D"
VAR Kozha = "0x11F6"
repeat
	uo.deletejournal()
	UO.WaitTargetType( Kozha ) 
	UO.UseType( Kit ) 
	k = 0 
	while NOT UO.InJournal('You put') AND NOT UO.InJournal('failed') AND ( k < 50 ) 
		k = k + 1 
		wait(300) 
	wend
	uo.findtype(Kozha, '-1', 'backpack')
	if uo.findcount()==0 then
		uo.print (''Net kozi')
		return
	end if
	until uo.dead()
end sub

Берём нитки и кожу в паке, запускаем скрипт и получаем тапки


Ну и третий скриптик, тоже оч полезный, но писал не я.

Code: Select all

sub Loot2() 
var i,n 
Dim Loot[1] 
Loot[1]=0x11F6 ; KOZHA 

UO.WaitTargetObject("lastcorpse") 
UO.UseType(0x13f6)
wait(400) 

i = 1200 
FOR n=1 TO 1 
uo.findtype(Loot[n],"-1","lastcorpse") 
if uo.findcount() > 0 then 
UO.grab(1, "finditem") 
uo.print("furs + "+str(uo.findcount())) 
Wait(i) 
END if 
next 
end sub

Режет кроликов и берёт с них кожу.