|
sub teilorperekladka()
wait(1000)
VAR Sunduk1 = '0x4093C6A4' ; Ñåðèàë ñóíäóêà ñ ïóñòûìè ìåøêàìè
VAR Sunduk2 = '0x4151EBC1' ; Ñåðèàë ïóñòîãî ñóíäóêà
VAR Meshok = '0x0E76' ; Òèï ìåøêà
VAR Map = '0x1EFF' ; Òèï êàðòû
VAR MeshSer, j,ShkurSer
var LastTimer=0
var Exit=0
ff:
UO.DeleteJournal()
UO.FindType( Meshok, -1,Sunduk1) ; ???? ????? ? ??????? 1
MeshSer = UO.GetSerial('finditem')
UO.Grab( '1', 'finditem' )
UO.FindType('0x0F09',-1,'backpack') ; shit
UO.Grab('1','finditem')
prov:
wait( 2000 )
UO.MoveItem( MeshSer, 0,Sunduk2)
wait( 2000 )
wait (1000)
UO.FindType('0x0F09',-1,'backpack') ; shit
UO.Grab('1','finditem')
wait (2000)
wait (1000)
UO.FindType(Meshok,'0x0000','backpack') ;
if UO.GetQuantity('finditem')> 0 then
wait (1000)
goto prov
end if
dro:
wait (1000)
task:
UO.DeleteJournal()
UO.Click(MeshSer)
wait(500)
if UO.InJournal('100') then
goto ff
end if
repeat
UO.FindType(Map,'Ground', 1 )
If UO.GetQuantity('finditem')> 0 then
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'Udochka perelozhena' )
End if
UO.FindType(Map,'0x0000','my')
If UO.GetQuantity('finditem')>0 then
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'Udochka perelozhena' )
goto task
Else
goto dal
end if
dal:
goto task
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
sub ToEat()
wait(500)
repeat
uo.UseType('0x097B')
wait(1000)
until uo.InJournal('You are simply too full to eat any more!')
end sub
Чар номер один щьёт! отллично щьёт.(но из за зависаний на курсоре производительность его падает! как выход крафт в перегрузе. А вот хватает итемы как раз второй чар с земли выше указанным макромсом!
В паке робы видит ,,,, на земле нет... плюс проверку на колличество немогу сообразить
|