Перекладка одно типовых предметов, как кучкующихся так и не кучкующихся
Code:
sub MoveFromTo()
var qType = '200' #кол-во перекладываемых за раз item'ов
var tType, cType
UO.Print('otkuda pizdim veschi?')
uo.addobject('objFrom')
while uo.Targeting()
wait(200)
wend
UO.Print('kuda nykaem napizjennoe?')
uo.addobject('objResiv')
while uo.Targeting()
wait(200)
wend
uo.useobject('objFrom')
CheckLag()
UO.Print('Cto perekladivaem?')
uo.addobject('objType')
while uo.Targeting()
wait(200)
wend
tType = uo.GetGraphic('objType')
cType = uo.GetColor('objType')
UO.Findtype(tType,cType,'objFrom')
while UO.GetQuantity('finditem')>0
UO.MoveItem('finditem',qType,'objResiv')
wait(1000)
CheckLag()
UO.Findtype(tType,cType,'objFrom')
wend
UO.Print('Happe End! ^^')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Скрипт простой, пояснения думаю не требуются xD
___________________________
мешаем инвизки
Code:
sub inviz()
VAR Exit=0, LastTimer
VAR Bag = '0x406060E9' ; Сумка где лежат реги
VAR BaGofKeG ='0x40606D33' ; Сумка где лежат кеги
VAR Bag2 = '0x406060E7' ; Сумка куда кидать полные кеги
VAR Reg = '0x0F91' ; Рег
uo.useobject( Bag )
uo.useobject( Bag2 )
uo.useobject( BaGofKeG )
while Exit<>1
UO.DeleteJournal()
UO.FindType( Reg ,-1, 'backpack' ) ;
If UO.GetQuantity('finditem')<10 then
UO.FindType( Reg ,'0x0000', Bag )
wait(1000)
UO.Grab('770','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType(Reg)
UO.WaitMenu('What','Invisibility')
wait(1000)
If UO.InJournal("You have no") then
UO.FindType('0x1940','0x0000', BaGofKeG )
wait(500)
uo.grab('1','finditem')
wait(2000)
UO.UseObject('finditem')
UO.WaitTargetType('0x0F09')
wait(1500)
UO.UseObject('finditem')
UO.WaitTargetObject('backpack')
wait(1500)
UO.FindType('0x1940','0x0000','backpack')
wait(500)
UO.MoveItem('finditem', '1', bag2 )
wait(1500)
Endif
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы смешали") AND NOT UO.InJournal("Fail") AND NOT UO.InJournal("неудача") AND NOT UO.InJournal("You toss the failed")
wait(50)
wend
If UO.InJournal("Вы смешали") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
На манки, рефрешки, экспы и прочие поты, выкидывать не буду, так как они однотипные, только надо заменить тип используемого рега, меню крафта и тип пота
____________________________________
Крафт проволоки
Code:
sub provolka()
Var instrument = '0x1EBC' ; тинкертулс
Var metal = '0x048A' ; тип ингота
Var wire = '0x1876' ; тип проволки
Var j,k,sum = 0
UO.CancelMenu()
UO.AutoMenu ('Tinkering', 'Tools' )
UO.AutoMenu ('Tools', 'orion wire' ) ; iron\titan\dragon\orion\silver\gold\mytheril wire
wait(1000)
UO.Usetype( Instrument )
k = 0
repeat
K = k + 1
wait(500)
If Uo.InJurnal('You put') then
sum = sum + 1
Uo.Print( 'crafted ' + str(sum) + ' wire' )
EndIf
end sub
аналогично с другими проволоки, комментарии излишне xD
_______________________________________
Лутолка
Code:
sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[27]
Loot[0]=0x1400 ; Крис
Loot[1]=0x13FE ; Катана
Loot[2]=0x13B5 ; Клава
Loot[3]=0x1404 ; Вилка
Loot[4]=0x143C ; Хаммер
Loot[5]=0x13AF ; Клюха
Loot[6]=0x0F60 ; Лонг Сворд
Loot[7]=0x26BB ; Блуд клава
Loot[8]=0x13B9 ; Викинг Сворд
Loot[9]=0x0F5E ; Дирк
Loot[10]=0x1B76 ; Квадратный Шит
Loot[11]=0x1B78 ; Титан
Loot[12]=0x1413 ; Горжетка
Loot[13]=0x1414 ; Перчатки
Loot[14]=0x1415 ; Тело
Loot[15]=0x1410 ; Плечи
Loot[16]=0x1411 ; Ноги
Loot[17]=0x140E ; шлем
Loot[18]=0x143C ; opk
Loot[19]=0x1088 ; amul
Loot[20]=0x0EFC ; trans
Loot[21]=0x2DB2 ; kokti
Loot[22]=0x2D02 ; bumer
Loot[23]=0x2D18 ; rar
Loot[24]=0x2DB8 ; silver
Loot[25]=0x2BEE ; щит вамп
Loot[26]=0x204E ; шруда
Loot[27]=0x0F09 ; манка
UO.UseObject('lastcorpse')
UO.SetReceivingContainer('0x400DC875') ; loot store bag
For i=0 to 25
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
; UO.UnSetReceivingContainer()
end sub
тестил на о2, лутала хорошо и быстро, но! работала одноразово, приходилось пере заходить в инжу