Просьба у меня возникла к Вам, а именно прошу попробывать помочь на скрипт-Алхимия, в частности, изгатовлении , рефрешек, Тотал манок, Инвизок.
Я уже давно на этом форуме, много чего нашёл, с некторыми вещами пытался разобраться сам(в меру своего познания скриптов), но к сожалению, того что я хочу тут нет(или я плохо ищу), а надо:
1.Выбераем что варим(Рефрешек, Тотал манок, Инвизок)
2. Выбераем сундук с реагентами и бутылками
3. Выбераем сундук с пустыми сумками
4. готовим заданый продук(к примеру Тотал ману, замечу, нужно проверять как по Type, так и по Colour)
5. брать сумку(пустую), заполнять её на максимум(225итемов) уберать в оперделённый угол в сундук где лежат пустые сумки(или же в совершенно другой сундук)
и так закциклить.
6. чуть не забыл, если с УО "вышибает" чар самостоятельно коннектился и продолжал варить химию.
Я конечно слабо верю, что кто то мне тут поможет, но всё же таю надежду.
Вот пример примитивных скриптов работающих на Оскоме:
Code: Select all
#Варим химию
sub ximik()
uo.print('u3 4ero MeLIIaeM?')
UO.Exec('addobject resyrs')
While UO.Targeting()
Wait(100)
wend
repeat
CheckLag()
uo.WaitMenu('What sort of potion do you','In')
CheckLag()
uo.Useobject('resyrs')
CheckLag()
wait(10000)
CheckLag()
until UO.InJournal('ximik stoi')
end sub
sub CheckLag()
UO.DeleteJournal("Backpack")
uo.click("backpack")
repeat
wait(50)
until uo.injournal("ackpack")
endsubCode: Select all
sub alchemy()
VAR Exit=0, LastTimer
VAR cvet=0x0388 #Цвет готового пузыря
uo.print('Выбери сундук с регами и бутылками')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Выбери сундук куда бутылки бросать')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E',cvet,'backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('100','finditem')
wait(1000)
Endif
UO.FindType('0x0F87','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F87','0x0000','Bag')
wait(1000)
UO.Grab('300','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F87')
UO.WaitMenu('What','Total Mana Refresh')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub Заранее благодарю.
