Code: Select all
VAR Sunduk='0x406C1757'
VAR Sunduk2='0x40048E2F'
VAR LastTimer
sub keg()
var i=0
uo.useobject('backpack')
uo.useobject(Sunduk)
wait(1000)
uo.useobject(Sunduk2)
wait(1000)
while 1==1
i=i+1
if i==50 then
uo.usetype('0x097B')
wait(1000)
i=0
if uo.skillval("Spirit Speak",1)<1000 then
cheklag()
uo.print("Spirit Speak...")
LastTimer=UO.Timer()
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") OR (UO.Timer()>LastTimer+200)
end if
end if
UO.FindType('0x1940','0x0000','backpack')
While UO.GetQuantity('finditem')<=0
UO.FindType('0x1940','0x0000',Sunduk)
wait(700)
UO.Grab('1','finditem')
wait(700)
Wend
UO.FindType('0x0F0A','0x0000','backpack')
While UO.GetQuantity('finditem')<1
UO.FindType('0x0F0A','0x0000',Sunduk)
wait(700)
UO.Grab('1','finditem')
wait(700)
Wend
uo.deletejournal()
LastTimer=UO.Timer()
uo.waittargettype('0x0F0A','0x0000')
uo.usetype('0x1940','0x0000')
repeat
wait(10)
if UO.Weight>100 then ;òóò óêàçûâàåòå âåñ ïðè êîòîðîì íà÷íåòñÿ ïåðåêëàäûâàíèå
uo.findtype('0x0F0E',-1,'backpack')
uo.moveitem('finditem',0,Sunduk)
wait(2000)
end if
wend
wend
end sub
if uo.weight > 300 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.Grab('0','finditem')
wait(200)
UO.UnSetReceivingContainer()
end if
end if
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.Exec('terminate Alchemy')
wait(1000)
UO.Exec('exec Alchemy')
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 подправьте пожалуйста что бы заполненй кег скидывался в сундук номер2 и брался новый из первого сундука и снова заливался поушенами
[Зеленый текст не есть гуд. I'm]