Небольшая просьба кому не сложно!!

[SuperStar]

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


зарание спасибо

[Russian]

Посмотри мой скрипт на тинкеринг и поменяй названия менюшек, а также код тинкерз тулов на код ступки и пестика (mortar and pestle). Код можно узнать, написав в игре ,info и выбрав нужный предмет.

[Shahe]

VAR Reg='0x0F8С' //тайп рега
VAR Keg='0x1940'//тайп кега
VAR Potion='0x0F0D'//тайп поушена
VAR MyBag='0x40E646D9'//ид своей сумки
VAR RecCont='0x411A7B3C'//ид контейнера куда складывать кеги
VAR ResCont='0x41363FE3'//ид контейнера с регами
VAR KegCont='0x40846866' //ид контейнера с пустыми кегами


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('100','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' 'Explosion (5 S'") //тут прописать что мешать
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

[Скрипт]

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

[Shahe]

пока не кончатся реги или кеги ))) или пока он не умрет )))

[Скрипт]

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