смарите что я наваял. Если шарды похожие - пользуйтесь на здоровье.
2-3 сундука. 1 еда инги инструменты можно прописать пустые мешки. в другом полные мешки будут. Перед запуском надо открыть сундуки. Проверить сообщения на сервере (хотя я писал для 3 серваков месаги вроде).
Code: Select all
VAR Container = '0x40B5267F' ;айрон, рыба, инструменты, может быть равен Sunduk 1
VAR Sunduk1 = '0x40B5267F' ;пустые мешки
VAR Sunduk2 = '0x40B52599' ;полные
VAR Instrum = '0x1EBC' ;набор жестянщика
VAR Ing = '0x1BEF'
VAR key = '0x1010'
VAR Meshok = '0x0E76' ;тип мешка
var havka = '0x097B'
VAR MeshSer, d, LastTimer, timemove, itemM
var quantity = 150; количество предметов в 1 мешке
var msg ='You put|положили|fail|не удалось|You broke|сломали'
var printcolour = '1069'
VAR HIDE = 1; если 1 прячемся, если 0 нет.
###################
sub TinkKey()
var menu = "waitmenu 'Tinkering' 'Keys' 'Keys' 'Iron key'"
var item = key
UO.CancelMenu()
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(ing, Container, 20, 100)
GET(Instrum, Container, 2, 2)
Repeat
Hide()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.exec( menu )
UO.Usetype( Instrum )
repeat
wait( 300 )
until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
Until UO.Count( item ) > 0
checklag()
PUT( item, MeshSer )
UO.FindType( item, -1, MeshSer )
uo.charprint(printcolour,'Ключей в мешке: '+Str( UO.FindCount()))
UNTIL UO.FindCount()>=quantity
uo.charprint(printcolour,'Берем другую сумку')
wait( 300 )
wend
end sub
Sub eat()
GET(havka, Container, 1, 20)
REPEAT
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.findtype(havka,-1,'backpack')
If UO.FindCount() > 0 Then
UO.Useobject('finditem')
wait(200)
Else
uo.charprint(printcolour, 'кончилась рыба' )
return 0
end if
Until UO.InJournal("simply too full to eat|stuffed!|think|found|Вы ничего не можете") OR UO.Timer()>LastTimer+200
PUT(havka, Container)
end sub
Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
If UO.Count( item ) < min Then
UO.FindType( item, '-1', cont )
if UO.FindCount() > 0 Then
uo.charprint(printcolour,'Сырья в сундуке: '+Str(UO.GetQuantity('finditem')) )
itemM=UO.GetSerial('finditem')
timemove=UO.Timer()
while UO.ContainerOf(itemM)==cont && timemove+20>UO.Timer()
uo.moveitem('finditem', max, 'backpack')
wait(300)
wend
else
uo.charprint(printcolour, 'Полностью кончилось сырье' )
UO.CancelMenu()
MyTerminate()
endif
Endif
end sub
Sub PUT(item, cont)
while UO.Count( item ) > 0
UO.FindType( item, -1, -1 )
itemM=UO.GetSerial('finditem')
timemove=UO.Timer()
UO.MoveItem( 'finditem', 0, cont )
while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
wait(300)
wend
wend
end sub
Sub Hide()
VAR LastTimer, n=0, HidFlag=1
if UO.Hidden() then
HidFlag=0
else
end if
while HidFlag
DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
LastTimer=UO.Timer()
UO.WarMode(0)
UO.UseSkill('Hiding')
repeat
wait(50)
until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
HidFlag=0
else
n=n+1
if n>3 then
UO.Set('quiet','0')
uo.charprint(printcolour,'Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
UO.Set('quiet','1')
MyTerminate()
end if
end if
wend
end sub
Sub DeleteJournal(msg)
While UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg) - 1,'')
wend
endsub
Sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub
Sub checklag()
DeleteJournal("ackpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("ackpack")
end sub
