Yoko

Code: Select all

sub MUS()
Var LastTimer,p=0,f=0
uo.CancelMenu() 
uo.AutoMenu("Track","Anything")
uo.useobject('backpack')
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	f=0
	cheklag()

	if uo.skillval("Peacemaking",1)<1000 then
		uo.print("Peacemaking...")
		f=1
		uo.useskill("Peacemaking")
		wait(5000)
	end if
	
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld")
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10)
		end if
		uo.usetype('0x097B')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	if f==0 then
		uo.closeuo()
	end if
wend
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(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.useobject('backpack')
wait(1000)
UO.Exec('terminate Lore')
wait(1000)
UO.Exec('exec Lore')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
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