Arkadaslar ben "Deri Toplama V2" üzerinde biraz deðisiklik yaptým hiç hata almadým sadece koyun kesiyor ve yünü alýp bankaya atýyor..

http://forum.worldofuo.com/yardimci-programlar/-deri-toplama-scripti-vol-2/

Link'i direk vereyim..
Deri toplamadaki gibi koyunun oldugu runebook,Bankanýn oldugu Runebook
ve Bankadaki wooden box un ýd lerini yazýyoruz.verdigim macro Chivalry içindir.


initevents
;BA?LADIIIK
SET %yun DEG_JJG_OFF
SET %back #BACKPACKID
event macro 8 2 ;papedrolü açta güzel yüzünü g?relim
wait 20
event macro 8 7 ;çantan? aç b?çaana bakcam
wait 20
SET %SheepBook UDDFZMD
SET %BankBook FNVEZMD
SET %rune 1
finditem VRH_WSF_HNF_BPH_CNF C
if #FINDKIND = -1
{
display Cantanda B?çak Bulamad?m Ne Ayak
+ Ellerinlemi Yolcan Koyunlar?n Yününü
halt
}
set %dagger #findid
WHILE #TRUE
{
ignoreitem %back
gosub kontrol
finditem YC_PF_FG G_10
if #FINDKIND = -1
{
gosub s7UseRunebook %SheepBook %rune c
if %rune = 24
set %rune 1
else
set %rune %rune + 1
}
;koyun var gebert pislikleri!
set %koyunID #findid
gosub gebert
}
Sub unlootsome
{
finditem %yun C_ , #BACKPACKID
if #FINDCNT > 0
{
wait 5
exevent Drag #FINDID 10
wait 5
exevent Dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 5
}
return
}
;GEBERT!!!
Sub gebert
{
set #lobjectid %koyunID
set #ltargetid %koyunID
set #ltargetkind 1
;event macro 22
event macro 27 ;Ba?lat ata??
gosub oldumu ; ?ldümü lan ?
wait 5
gosub keslootla ; kes ve lootla
wait 5
IF #HITS <= 75
{
event macro 13 32
wait 1s
}
return
}
Sub kontrol
{
Set %maxw #MAXWEIGHT - 60
wkontrol:
if #WEIGHT > #MAXWEIGHT
{
gosub unlootsome
goto wkontrol
}
if #WEIGHT >= %maxw
{
gosub bankaya
}
RETURN
}
Sub bankaya
{
gosub s7UseRunebook %BankBook 1 c
if ! #RESULT
{
gosub s7UseRunebook %BankBook 1 c
}
wait 5
msg bank$
msg banco$
wait 5
Set %canta QAVHAOD
finditem %yun C
if #FINDCNT > 0
{
exevent Drag #FINDID #FINDSTACK
wait 5
exevent Dropc %canta
wait 5
}
RETURN
}
Sub keslootla
{
set #LOBJECTID %dagger
event macro 17 ; daggera çift d?klat
target
wait 10
finditem YFM G_1
if #FINDKIND = -1
return
set %lootID #FINDID
SET #LTARGETID %lootID
SET #LTARGETKIND 1
event macro 22 0; koyuna d?ng?ldat
set #LOBJECTID %lootID
set #NEXTCPOSX 100
set #NEXTCPOSY 100
event macro 17
wait 15
finditem %yun C_ , #CONTID
if #FINDCNT > 0
{
wait 10
exevent Drag #FINDID #FINDSTACK
wait 5
exevent Dropc #BACKPACKID
wait 5
}
ignoreitem %lootID
return
}
;?ldümü ?
Sub oldumu
{
set %tryout 1
kontrol: ;sürekli kontrol et
finditem %koyunID
event pathfind #findx #findy #findz
wait 1s
if #FINDKIND = -1
{
RETURN
}
IF #HITS <= 75
{
event macro 13 32
}
set %tryout %tryout + 1
goto kontrol
}
sub s7UseRunebook
if %0 < 3 || _ , %2 , _ notin _1_2_3_4_5_6_7_8_9_10_11_12_13_14_15_16_default_
return ERR_IncorrectParams
namespace push
namespace local _s7URB
set !runebook %1
set !index %2
set !method %3
set !fails 0
if #contsize = 452_236
{
set !_cx #contposx + 20
set !_cy #contposy + 20
click !_cx !_cy r f dmc
wait 5
}
for !_ 1 1
{
finditem OTF_JEF_KEF G_0
if #findkind <> -1
set !_ 0
}
for !orb 1 1
{
if !fails > 2 2
namespace pop
return ERR_ , #journal
set !jStart #jindex + 1
if !index <> default
{
gosub s7WaitForAction 12
set #lobjectid !runebook
event macro 17 0
gosub s7WaitForVars contname = generic_gump contsize = 452_236 3
if ! #result 2
set !fails !fails + 1
set !orb 0
if #result
{
set !_cy #contposy + 196
set !_cx #contposx + 105 + ( ( ( !index / 2 ) + ( !index % 2 ) ) * 35 )
if !index > 8
set !_cx !_cx + 30
click !_cx !_cy f dmc
wait 5
set !_cx #contposx + 135
set !_cy #contposy + 144
if !method = G
set !_cy !_cy + 20
if !method = C
set !_cy !_cy + 36
if !method = S
set !_cy !_cy - 76
if ( !index % 2 ) = 0
set !_cx !_cx + 160
set !charpos #charposx , _ , #charposy
set !timeout #scnt2
click !_cx !_cy f dmc
}
}
if !index = default
{
set #ltargetid !runebook
set #ltargetkind 1
if !method = c
event macro 15 210
if !method = r
event macro 15 31
if !method = g
event macro 15 51
if !method = s
{
finditem WTL C_ , #backpackid
if #findkind = -1 2
namespace pop
return ERR_NoRecallScrolls
if #findkind <> -1 3
set #lobjectid #findid
gosub s7WaitForAction 12
event macro 17 0
}
for !_ 1 1
{
if #targcurs <> 1
set !_ 0
gosub s7ScanJournalFor !jStart fizzles more_reagents tithing_points insufficient_mana
if #result 3
set !_ 1
set !orb 0
wait 20
}
set !charpos #charposx , _ , #charposy
set !timeout #scnt2
event macro 22 0
}
if !orb = 1
{
for !success 1 1
{
if #charposx , _ , #charposy = !charpos && !method in _r_c_s_
set !success 0
if !method = g
{
finditem OTF_JEF_KEF_OFF G_0
if #findkind = -1
set !success 0
if #findkind <> -1
{
set #lobjectid #findid
gosub s7WaitForAction 12
event macro 17 0
for !_ 1 1
{
if #charposx , _ , #charposy = !charpos
set !_ 0
if #contname = generic_gump && #contsize = 420_280
{
set !_cx #contposx + 20
set !_cy #contposy + 260
click !_cx !_cy f dmc
}
}
}
}
gosub s7ScanJournalFor !jStart fizzles location_is_blocked not_yet_recovered no_charges_left more_reagents tithing_points insufficient_mana not_marked
if #result || !timeout + 60 < #scnt2
{
if no_charges in #journal
{
finditem WTL C_ , #backpackid
if #findkind = -1
set !fails 2
if #findkind <> -1
{
set !scrolls #findid
finditem !runebook
set #findmod 0
gosub s7WaitForAction 12
event drag !runebook
for !_ 1 1
{
if #lliftedkind <> 1 2
wait 1
set !_ 0
}
str pos #contsize _
set #strres #strres - 1
str left #contsize #strres
set !_cx #findx + #strres / 2
str pos #contsize _
str del #contsize 1 #strres
set !_cy #findy + #strres / 2
click !_cx !_cy p f dmc
gosub s7MoveToCont !scrolls !runebook #backpackid 20_10
}
}
set !fails !fails + 1
set !success 1
set !orb 0
}
}
wait 20
}
}
namespace pop
return #true
sub s7ScanJournalFor
set !SJFje #jindex + 1
for !SJFji %1 !SJFje
{
scanjournal !SJFji
for !SJFpi 2 %0
{
if % . !SJFpi in #journal
return #true
}
}
return #false
sub s7MoveToPos
if %0 < 4
return #false
namespace Push
namespace Local _s7MvToPos
set !_ID %1
set !_x %2
set !_y %3
set !_tO %4
set !_Amt #spc
if %0 > 4
set !_Amt %5
set !_retry 0
_s7MvToPos_SD:
finditem !_ID
if #findkind = -1 2
namespace pop
return #false
gosub s7WaitForAction 13
event drag #findid
if #findstack > 1
{
set !_timeOut #scnt
for !_ 1 1
{
if #contname <> stack_gump && #contname <> drag_gump
{
wait 1
if !_timeOut + !_tO < #scnt
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
goto _s7MvToPos_SD
}
set !_ 0
}
}
if !_Amt > #findstack
set !_Amt #findstack
msg !_Amt , $
}
set !_retry 0
set !_timeOut #scnt
for !_ 1 1
{
if #lliftedkind <> 1
{
wait 1
if !_timeOut + !_tO < #scnt
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
goto _s7MvToPos_SD
}
set !_ 0
}
}
set !_retry 0
click !_x !_y p
set !_timeout #scnt
for !_ 1 1
{
if #lliftedkind = 1
{
wait 1
if !_timeout + !_t0 < #scnt
{
set !_retry !_retry + 1
if !_retry = 1
{
set !_x #clixres / 2
set !_y ( #cliyres / 2 ) - 30
click !_x !_y p
set #result #false
set !_timeout #scnt
}
if !_retry = 2 2
display ok You have failed to drop an item to the correct position.$$The script is now halting to prevent a crash.
halt
}
set !_ 0
}
}
set #result #true
namespace pop
return #result
sub s7MoveToCont
namespace Push
namespace Local _s7MoveToCont
set !_ID %1
set !_DCont %2
set !_MCont %3
set !_FMod %4
if 1_5 in #euover
{
set !_Amt 65535
if %0 > 4
set !_Amt abs %5
finditem !_ID
if #findkind = -1 2
namespace pop
return #false
gosub s7WaitForAction 13
exevent drag #findid !_Amt
exevent dropc !_DCont
namespace pop
return #true
}
set !_Amt #spc
if %0 > 4
set !_Amt %5
set #result #true
set !_retry 0
for !_ 1 1
{
finditem !_DCont C_ , !_MCont
if #findkind = -1
{
set #lobjectid !_MCont
gosub s7WaitForAction 13
event macro 17 0
gosub s7WaitForVars contid = !_MCont 3
if ! #result
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
}
set !_ 0
}
}
set !_retry 0
set #findmod !_Fmod
for !_ 1 1
{
gosub s7MoveToPos !_ID #findx #findy 4 !_Amt
if ! #result
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
set !_ 0
}
}
namespace Pop
return #true
sub s7WaitForAction
_s7WaitForAction:
if %_s7ActionTimer + %1 > #scnt2 2
wait 1
goto _s7WaitForAction
set %_s7ActionTimer #scnt2
return
sub s7WaitForVars
namespace Push
namespace Local _s7WFVs
set !C %0 / 3
set !T #scnt + 5
if ( %0 % 3 ) = 1
set !T #scnt + % . %0
for !i 1 !C
{
set !o 3 * !i - 2
set !p !o + 1
set !q !o + 2
if ! ( # . % . !o % . !p % . !q )
set !i 0
if #scnt > !T 2
namespace pop
return #false
}
namespace Pop
return #true



Eðer sizde yün ü kumas yapan macro var ise paylasýrsanýz cok sevinirim..

dostum oluyor ama bende 2 runebookta ta çok bos yer var.Geçiþlerde o boslularýda seçmeye çalýþýyor gibi , orda bi zaman kaybediyor sanki. runebooklarin ne kadarý dolu olmalý bi bilgi verirmisiniz..
bide elinde bunun deri için olaný varmý acaba?
teþþþükkürler þimdiden

teþekkürler.

CRÝM oluyor bu guard yiyoruz sonra.... Bana krim olmayan koyun macrosu lazým.

öyle bedava olmaz vermem diyen de olursa helalinden 20k ingot vereceðim.

yok mu yardýmcý olabilecek?

pm attým, þimdi dýþarý cýkýyorum 10 gibi gelicem o zaman'a kadar bulamazsan atarým denersin.

http://forum.worldofuo.com/yardimci-programlar/koyun-yunu/

Bir atýn siz deniyim ben hallederiz ingot vs.

Denedim 2-3 kere ancak olmadý yapabilirsem atarým sadece baþkasýnýn cesedini açmayý engellemek lazým

Runebook'u açýyor ama herhangi bir sayfayý açýp týklama iþini yapamýyor bende. Fikri olan var mý yada yaþayan?