Code:
;Скрипт на <<Cartography>>
;Настройки ниже
; cart() Запуск скрипта
; drop() Тут выбрасовать карты и делает шаг
; drop2() Тут выброс если карты меньше 11
; main() Тут процедура направления и делать шаг
;Координаты можно взять с Edit script - Pick coord
;Суть скрипта в том чтобы качять <<Cartography>> он сам делает всё за вас
;в мешок бланк мапы и перо (Pen) и запускаем cart() и всё
;число карт не менять для выброса
;выбераим место чистое без припяствий так как чяр сам отходит на два шага в правый нижний угол
;кому не надо ходилка убираим в Drop() функцию main()
;предупреждаю что без хотьбы у на сможет выбросить готовые карты
var Blmap = '0x14ED' ;BlankMap не меняим
var color = '0x0000' ;Цвет не менять
var naprav = 5 ;тут направления куда смотреть не менять
var shag = 34 ;тут делать шаг тоже не менять
var Wmap = '0x14EB' ;Готовые карты
var predmet = 277 ; Координаты кнопки предмета
var predmet1 = 109 ; Координаты кнопки предмета
var pospred = 323 ; Координаты кнопки последнива предмета
var pospred1 = 452 ; Координаты кнопки последнива предмета
var Vihod = 68 ; Координаты кнопки Выхода
var Vihod1 = 455 ; Координаты кнопки выхода
sub cart()
uo.usetype(Blmap)
wait(500)
uo.lclick(predmet,predmet1)
wait(500)
UO.FindType(Blmap,color,'backpack')
while uo.findcount()
uo.lclick(pospred,pospred1)
wait(7000)
drop()
UO.FindType(Blmap,color,'backpack')
wend
drop2()
end sub
sub drop()
UO.FindType(Wmap,color,'backpack')
if uo.count(Wmap) > 10 then
while uo.findcount()
UO.Drop('-1',1,1,0,'finditem')
wait(1000)
UO.FindType(Wmap,color,'backpack')
wend
uo.lclick(Vihod,Vihod1)
main() ;<<<<< ВОТ ЭТУ ФУНКЦИЮ >>>>>>
uo.usetype(Blmap)
wait(300)
end if
end sub
sub drop2()
UO.FindType(Wmap,color,'backpack')
while uo.findcount()
UO.Drop('-1',1,1,0,'finditem')
wait(1000)
UO.FindType(Wmap,color,'backpack')
wend
end sub
sub main()
If UO.GetDir() <> naprav Then
UO.Press( shag )
wait( 300 )
Endif
UO.Press( shag )
endsub
Скрипт рабочий
Можно зделать и в мешок бросать готовые карты