Yoko

Code: Select all

VAR Sunduk='0x400E90E6' ## Сундук, откуда берут айрон и кладут обратно бутылки
VAR ResCount=500 ## Количество забираемого айрона, зависит от силы игрока

sub Tinkering()
VAR LastTimer,p

uo.Exec("filterspeech clear")
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'You make the item'")
uo.Exec("filterspeech add 'The item is of'")
uo.Exec("filterspeech add 'Due to your exceptional skill, the item is of superior quality'")
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
LastTimer=uo.Timer()
while not uo.dead()
	ToHide()
	if uo.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			p=0
			repeat
				p=p+1
				uo.useskill("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until uo.InJournal("netherworld") or uo.InJournal("You must wait to perform another action") or uo.dead()
			until (uo.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		Eda()
		LastTimer=uo.Timer()
	end if
	
	if uo.count('0x1BEF','0x0000')<30 then
		uo.FindType('0x0F0E','0x0000','backpack')
		cheklag()
		uo.moveitem('finditem','-1',Sunduk)
		wait(1000)
		uo.FindType('0x1BEF','0x0000',Sunduk)
		cheklag()
		uo.moveitem('finditem',STR(ResCount),'backpack')
		wait(1000)
		cheklag()
	end if
	
	if uo.count('0x1BEF','0x0000')<3 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1EBC','0x0000')
	repeat
		Wait(10)
	until uo.InJournal("You put the") OR uo.InJournal("Tinkering failed") 
wend
end sub

Sub Eda()
if uo.count('0x097B','0x0000')<50 then ## Жрачка, кушаем до изнеможения
	uo.findtype('0x097B','0x0000',Sunduk)
	Cheklag()
	uo.moveitem('finditem',STR(50-uo.count('0x097B','0x0000')),'backpack')
	wait(1000)
end if
uo.deletejournal()
repeat
	uo.usetype('0x097B','0x0000')
	wait(1000)
until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
end sub

Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
	wait(10)
until uo.InJournal("backpack")
end sub
 
Sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
	While (uo.ObjAtLayer('Bpack') == '') 
		if RFlag Then 
			ReconnectTime = MakeTime() 
			RFlag = 0 
		endif 
		Wait(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Tinkering')
		wait(5000)
		uo.Exec('exec Tinkering')
		wait(5000) 
		RFlag = 1 
		ReconnectTime = '0' 
	endif 
Until false 
end sub 

Sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(uo.Time()) 
T = "" 
For i = 0 To Len(Ret) 
	T = Ret[Len(Ret)-i] + T 
	If (I == 2) OR (I == 4) Then 
		T = ":" + T 
	EndIf 
Next 
Ret = STR(uo.Date()) 
D = "" 
For i = 0 To Len(Ret) 
	D = Ret[Len(Ret)-i] + D 
	If (I == 2) OR (I == 4) Then 
		D = "." + D 
	EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 

Sub ToHide()
while not uo.hidden()
	uo.exec("warmode 0")
	uo.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until uo.InJournal("You have hidden yourself well") or uo.InJournal("You can't seem to hide here.") or uo.InJournal("You are preoccupied with thoughts of battle.")
	if uo.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 0")
	end if
wend
end sub