Вообщем нужна помощь, давненько я както брал с форума скрипт на перекладку карт по мешкам но дело в том что фарматнул диск все стер обидно ..... Правда на дискете сохранилась часть его ....
Он помоемому не поный если есть полная версия поделитесь.... чтото искал на форуме не нашел.......
VAR QB
VAR BagCount="0x0E76" ; # - type сумок в контейнере ContainerBag
VAR Items="0x14EB" ; # - Type Выходного материала (карт)
QB=10 ;
Var LoadContainer="0x403abf9f" # - Номер загрузочного контейнера
Var UnLoadContainer="0x403e5556" # - Номер разгрузочного контейнера
sub UnLoadItem()
VAR BagID
VAR i=0
VAR m=0
Repeat
UO.DeleteJournal()
UO.FindType(BagCount,'-1',UnLoadContainer)
UO.Click('finditem')
m = 0
Repeat
Wait(1000)
Until UO.InJournal("a bag")
If UO.InJournal("a bag") Then
BagID=UO.JournalSerial(UO.InJournal("a bag")-1)
UO.SetJournalLine(UO.InJournal("a bag")-1,"")
UO.FindType('-1','-1',BagID)
If UO.FindCount('finditem') < 250 then
m = UO.FindCount('finditem')
UO.SetReceivingContainer(BagID)
UO.FindType(Items,'-1','me')
UO.Grab('0','finditem')
UO.ConColor('0x0021')
UO.Set('quiet','0')
UO.Print(UO.Print('In BagPack#'+Str(i+1)+' items '+Str(m)+''))
UO.Set('quiet','1')
UO.ConColor('0x0035')
Wait(1000)
UO.UnSetReceivingContainer()
Else
i = i + 1
UO.Ignore(BagID, 'on')
EndIf
EndIf
If i == QB Then
UO.IgnoreReset()
i = 0
EndIf
UO.FindType(Items,'-1','me')
Until UO.FindCount('finditem') < 1
end sub
|