и вот еще вспомнил че хотел спросить:
скрипт на добор регов. когда в паке уже лежит какое-то кол-во регов и я их добираю скриптом они складываются не в одну кучку, а в отдельную. как я понял это изза того что здесь заданы координаты
Code: Select all
uo.moveitem('finditem', STR(q) ,'backpack',140,30,0)
так вот.. можно ли как-то сделать, чтоб реги складывались по координатам и в то же время в одну кучку?
Code: Select all
Sub REGS()
VAR amount = 60
VAR r, q, RegBag = 0x40175FF4
Dim reg[8]
reg[1] = 0x0F84
reg[2] = 0x0F85
reg[3] = 0x0F86
reg[4] = 0x0F7A
reg[5] = 0x0F7B
reg[6] = 0x0F8C
reg[7] = 0x0F8D
reg[8] = 0x0F88
uo.ignorereset()
For r = 1 to 8
if uo.count( reg[r] )<>amount then
q = amount - uo.count( reg[r] )
if q <> 0 then
if q > 0 then
uo.useobject( RegBag )
CheckLag()
uo.findtype( reg[r] , -1 , RegBag )
If uo.findcount() == 0 then
uo.msg('НИФИГА НЕТ РЕГОВ')
return
endif
uo.moveitem('finditem', STR(q) ,'backpack',140,30,0)
wait(400)
CheckLag()
else
q = q*-1
uo.findtype( reg[r] , -1 ,'my')
uo.moveitem('finditem', STR(q) , RegBag )
wait(400)
CheckLag()
endif
endif
endif
next
uo.print('ПЕРЕКЛАДКА РЕГОВ ЗАКОНЧЕНА')
end sub