Yoko

собсвенно када лаганёт то он из пака выкладывает кегу добавьте туда проверку на чтоб он кеги просто неперекладывал неприкаком слачает а если камуто совсем невлом будет то добавть в этот скрипт реконектор


==============================================
VAR Reg='0x0F88'
VAR Keg='0x1940'
VAR Potion='0x0F0A'
VAR MyBag='0x40FBDF34'
VAR RecCont='0x4002B8C0'
VAR ResCont='0x4002A79D'
VAR KegCont='0x40BECD05'


Sub Main()
VAR y
While NOT UO.Dead()
UO.Print('Find Reg')
CheckLag()
UO.FindType(Reg,'-1','my')
If UO.GetQuantity('finditem') < 50 Then
Load()
EndIf
UO.Print('Find Potion')
CheckLag()
UO.FindType(Potion,'-1','-1')
y = UO.FindCount('finditem')
UO.Print('Potion is '+str(y)+'')
If UO.FindCount('finditem') > 50 Then
Takekeg()
Fill()
EndIf
Wait(1000)
Eat()
CheckLag()
Alch()
Wend
End Sub

Sub Load()
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType (Reg,'-1',ResCont)
UO.Grab('4','finditem')
Wait(1000)
End Sub

Sub Unload()
CheckLag()
UO.SetReceivingContainer(RecCont)
UO.FindType(Keg,'-1','my')
UO.Grab('0','finditem')
UO.Exec('Terminate Unload')
End Sub

Sub Eat()
UO.UseType('0x097B')
wait (100)
UO.Useskill('Spirit Speak')
wait (1000)
End Sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(100)
Until UO.InJournal('backpack')
End Sub

Sub Alch()
UO.Exec("automenu 'What sort' 'Greater Poison (4 N'")
Wait(1000)
UO.DeleteJournal()
UO.UseType(Reg)
While NOT (UO.InJournal("toss the failed") or UO.InJournal("You put") or UO.InJournal("pack"))
Wait(1000)
Wend
End Sub

Sub Fill()
UO.WaitTargetType(Potion)
UO.UseType(Keg)
Wait (2000)
CheckLag()
UO.WaitTargetObject(MyBag)
UO.UseType (keg)
Wait (3000)

Unload()
End Sub

sub TakeKeg()
UO.Print('Take keg')
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType(Keg,'-1',KegCont)
UO.Grab('1','finditem')
Wait (1000)
End Sub

слуш ты бы хоть копирайт оставил мой, а то уже выложил его на изменения

я разве гдето сказал что это мой скрипт ? это хороший скрипт и я хотелбы чтоб его немного изминили вот панику подня да это твой скрипт я разве имею чтото против ?

Скрипт wrote:я разве гдето сказал что это мой скрипт ? это хороший скрипт и я хотелбы чтоб его немного изминили вот панику подня да это твой скрипт я разве имею чтото против ?

Уже не первый раз сталкиваюсь с постами от тебя, где ты кидаешь чужие скрипты, старательно отрезав комментарии и копирайты. Не думаю, что с таким подходом ты найдешь много желающих тебе помочь...

этот скрипт я нашол в топе коперайтов некаких небыло былибы скопировал так как скрипт я копировал от сюда http://yoko.netroof.net/forum/viewtopic.php?t=428
т скажите он сам оствлял коперайты ?