Başka Bir Yün Makrosu
Ultima Online Forum -> Yardımcı Programlar
 
Yazar
Mesaj
Carmina
Usta

Avatar

Yaş: 45
Kayıt: 09 Tem 2010
Mesajlar: 249
Cinsiyet: Erkek

Teşekkür: 10

Durumu: Çevrimdışı

Avatar
Carmina
Usta
Başka Bir Yün Makrosu Konu: Başka Bir Yün Makrosu
Alıntıyla Cevap Gönder
Selam,

Başka bir yün makrosu ile karşınızdayız. Script koyunların yününü yolarak çalışıyor, kesip lootlamıyor.
Benim yaşadığım sorun ise çantasını bankaya boşaltma zamanında yünleri eline alıyor yani drag kısmı başarılı ama click kısmında ya tıklayamıyor yada tıklama işleminde bir sıkıntı varki yünü kutuya bırakamıyor öyle elinde gezdiriyor.
Bazen yünü içine koyması gereken kutunun üstünde durur şekilde bırakabiliyor o kadar. Bu script'ın yünü bırakma kısmına bakıp düzeltebilecek var mı acaba?

Yavaşta olsa şimdiye kadar en düzgün çalışanlardan birisi. Diğer forumda yayınlanan scriptler ya runebook'ta mark'a tıklamıyor, ya lootlamıyor vs.. yardımcı olabilecek var mıdır?

Alıntı:
;Lion's Paladin Turbo Sheep Shearer 1.0
;A big thanks for CEO for helping me optimize the script in so many ways and his mind reading
;***************************VERSION HISTORY*********************************************
;V1.0
;fixed some more bugs - development stopped for personal reasons
;V 0.3
;Fixed looping bug, shortened code and make banking more reliable
;V 0.2
;Fixed many little bugs and optimized recall/targeting rountine, also sped up tracking/killing step
;V 0.1
;first script made by me, basic
;======================
;Instructions:
;1- Set the variables in the setup field
;2- Get a rune to your bank or to your house NEAR a secure
;3- Get a rune to INSIDE a sheep pen (reccomend yew)
;4- Get a bladed weapon and stick it in your pack
;5- Go to the MIDDLE of the pen and start the script
;================================================================
; SETUP
;================================================================
set %bankrune CAXJMKD ; ID of rune to bank/house
set %penrune ZEXJMKD ;ID of rune to sheep pen
set %maxweight 330 ; max weight your char can carry
set %lag 5 ; Raise this value if you are getting errors
set %storagebag VRLXQMD ; ID of bag in bank/secure to drop wool into
;================================================================
; MAIN PROGRAM
;================================================================
initevents
set %startposx #charposx
set %startposy #charposy
set %bladed NMH_LSF_TSF_FUO_ATF_NPO_JPH_VRH_JTF_SOH_BPH_BSF_NSF_ZRF_RMH_LPH_UOH_GMH_HNF
set %searchrange 20
set %sheep PF_FG_
finditem %bankrune
set %packid #findbagid
set %gathered 0
setuotitle Lion's Shearer. WOOL GATHERED %gathered
finditem %bladed
if #findkind = -1
{
display OK Get a bladed weapon and press start
halt
}
set %knife #findid


mainloop:
if #weight > %maxweight - 4
{
set %recallrune %bankrune
gosub recall
gosub bank
set %recallrune %penrune
gosub recall
goto mainloop
}
gosub findsheep
gosub shear
gosub killsheep
goto mainloop
;================================================================
; SUBROUTINES
;================================================================
sub findsheep
find:
finditem %sheep
if #findkind = -1
{
move %startposx %startposy 0 3s
goto mainloop
}
if #finddist > %searchrange
goto find
set %target #findid
moveto:
move #findx #findy 0 5s
return
sub shear
set #lobjectid %knife
set #ltargetid #findid
set #ltargetkind 1
event macro 17
target 5s
event macro 22
return
sub killsheep
move #findx #findy 0 4s
set #ltargetid #findid
event macro 27
wait 10 + %lag
return
sub recall
recallnow:
set #ltargetid %recallrune
set %currentpos #charposx , _ , #charposy
event macro 15 210
target 5s
event macro 22
wait 50 + %lag
scanjournal 1
if something_is in #journal
{
wait 10s
goto recallnow
}
if %currentpos = #charposx , _ , #charposy
{
wait 10s
goto recallnow
}
return
sub bank
key enter
msg bank$
wait %lag
finditem OFF C_ , %packid
set %wool #findid
set %gathered %gathered + #findstack
setuotitle Lion's Shearer. WOOL GATHERED %gathered
finditem %storagebag
event drag %wool
wait 30 + %lag
key enter
wait 40 + %lag
click #findx #findy p
wait %lag
return


 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
21 Eyl 2016 18:43
 
Yeni başlık gönder   Başlığa cevap gönder  
1. sayfa (Toplam 1 sayfa) [ 1 mesaj ]  

 
Bu forumda yeni başlıklar açamazsınız
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız