Так то это ад.
Вообще скрипт должен выглядеть примерно вот так:
Code:
sub drop_reg()
var BEKBag = '0x4054EA21' ; ID откуда скидывать
var REGBag = '0x4040DA70' ; ID куда скидывать
var n
Dim r[2]
r[1] = '0x1BDD'
r[2] = '0x0F90'
For n = 1 To 2
UO.FindType( r[n] , -1 ,BEKBag)
if UO.FindCount()
UO.MoveItem( 'finditem', 0, REGBag)
wait(500)
endif
next
end sub
Если в перспективе будешь добавлять элементы можно использовать такую конструкцию:
Code:
### Вспомогательные константы ###
VAR lootwait = 300
var timemove,TType,Color, SourceContainer,X,Y,Z
var ContFrom = uo.getserial('backpack')
var ContTarget = uo.getserial('lastcontainer')
### ################## ###
sub main1()
PUT2(0xf0f, 0xf30, '-1', ContFrom, ContTarget,'','','')
endsub
sub main2()
PUT1('0x0EED', '-1', ContFrom, ContTarget,'','','')
PUT1(-1, '0x0482', ContFrom, ContTarget,'','','')
endsub
Sub PUT2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
for TType = Type1 to Type2
PUT1(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
next
end sub
Sub PUT1(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
UO.FindType(Type, Color, SourceContainer)
while UO.FindCount()
timemove=UO.Timer()
uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
repeat
wait(lootwait)
until UO.ContainerOf('finditem')<>uo.GetSerial(TargetContainer) || timemove+30>UO.Timer()
UO.FindType(Type, Color, SourceContainer)
wend
end sub
Функции PUT1 и PUT2 второстепенные функции для передвижения, их куданибудь в конец скрипта закинуть ближе к чеклагу.
main1 - переместит все драгоценные камни из бэкпака в последний открытый контейнер.
main2 - переместит золото и все цветные вещи. Причем если кучек золота 5 - переместит все 5 кучек. Если 10 серебряных мечей и 2 серебряных лука - переместит все оружие 1 строкой.
Для просмотра типов предметов можно использовать программу инсайдУО - если предметы идут друг за другом как свитки камни бижутерия - можно взять 2 крайних типа и вставить без кавычек в процедуру put2. Если предметы раскиданы как тряпки или оружие то тип в кавычках вставляется в процедуру put1 друг за другом.