It is currently 29 Mar 2024, 00:33

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 2 posts ] 
Author Message
 Post subject: Cartography
PostPosted: 01 Mar 2018, 12:54 
Offline
Игрок

Joined: 23 Sep 2015, 21:33
Posts: 139
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


Скрипт рабочий

Можно зделать и в мешок бросать готовые карты


Top
 Profile  
 
 Post subject: Re: Cartography
PostPosted: 14 Mar 2018, 00:46 
Offline
Начинающий игрок

Joined: 13 Mar 2018, 13:50
Posts: 15
Спасибо за скрипт, будут еще выкладывай )))


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 2 posts ] 

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 152 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group