Bilen bir arkadasýmýz bu scripti buraya atabilir mi.Acýklayýcý bir þekilde anatabilirse cogu yený baslayan playerlar ýcýn buyuk avantaj olucak.

initevents
;BAÞLADIIIK
SET %yun HFG_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
finditem WSF_HNF C
if #FINDKIND = -1
{
display Çantanda Býçak Bulamadým Ne Ayak
+ Ellerinlemi Yolcan Koyunlarýn Yününü
halt
}
set %dagger #findid
WHILE #TRUE
{
mainn:
ignoreitem %back
gosub kontrol
finditem PF_FG_ G_10
if #FINDKIND = -1
{
gosub s7UseRunebook %SheepBook %rune r
if %rune = 6
Set %rune 1
else
Set %rune %rune + 1
}
;koyun var gebert pislikleri!
set %koyunID #findid
if #findrep = 1
{
ignoreitem %koyunID
goto mainn
}
else
{
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 10
gosub keslootla ; kes ve lootla
wait 10
return
}

Sub kontrol
{
Set %maxw #MAXWEIGHT - 50
wkontrol:
if #WEIGHT > #MAXWEIGHT
{
gosub unlootsome
goto wkontrol
}
if #WEIGHT >= %maxw
{
gosub bankaya
}
RETURN
}

Sub bankaya
{
gosub s7UseRunebook %BankBook 1 r
if ! #RESULT
{
gosub s7UseRunebook %BankBook 2 r
}
wait 5
Set %canta TUSCLMD
finditem %yun C
if #FINDCNT > 0
{
exevent Drag #FINDID #FINDSTACK
wait 5
exevent Dropc %canta
wait 5
}
RETURN
}

Sub keslootla
{
finditem YFM G_1
if #FINDKIND = -1
return
set %lootID #FINDID
set #LOBJECTID %lootID
event macro 17 0; koyuna dýngýldat
wait 10
scanjournal #JINDEX
if criminal_act in #JOURNAL
{
ignoreitem %lootID
return
}
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 %kontcnt 1
kontrol: ;sürekli kontrol et
finditem %koyunID
if #FINDKIND = -1
{
RETURN
}
set %kontcnt %kontcnt + 1
if %kontcnt >= 50
return
wait 20
event SysMessage %kontcnt
goto kontrol
}



Buldugum yün kasma scripi 2 3 ayarý var bunu bilen arkadaslar buraya yazarsa herkes esit olur iyi oyunlar.

Yünü kumas haline getiren scripte elimde var ama bunu ogretecý býr sekýlde býrý anlatýrsa buraya onuda koyucam.

bu scriptle yün kasamassýn eksik script bu

Elinde varsa koyda bilelim.

Elinde deri kasma scripti varsa eðer o kasýyor diye biliyorum. Bazen charlarýn bankasýna bakýyorum yün oluyor. Denemeni tavsiye ederim. Eðer elinde deri toplama scriptide yoksa http://forum.worldofuo.com/yardimci-programlar/deri-toplama-scripti/ burdan yardým alabilirsin. Kolay gelsin...

Sorun cozulmustur iyi oyunlar.

Deri sciptinde koyun tarlalarini marklarsaniz yun de kasar

Bende farklý deri scripi var.Scripin icini arastýrdým wool false yi buldum sýzýn scripinisi denememýstým .Bendeki scripde yün toplamýyordu bu yüzden buraya bu konuyu actým azcýk karýstýrmak lazým scripleri aradýgýmýz sey aslýnda ýcýnde .:) Teþekür ederim alakanýs için.

Saygýlar Ýyi Oyunlar.