Arkadaşlar çantamıza 4 adet bod kitabı koyuyoruz. Scripti çaliştirinca bizi otomatik yonlendiriyor zaten. Once vendoru sonra çöp kutusunu sonra da sırasıyla kitapları hedefliyoruz(kitaplara isim yazmanız tavsiye edilir...) sonra script otomatik olarak vendordan bodları alıp kitaplara gruplandırır. Gruplandırmayı ödüle göre yapmaz bodun türüne göre yapar. Sadece expleri alır... Bir de set %vendorpop 4 yazan yeri düzeltelim sizin bod aldığınız vendordaki görev alma diyalogu kaçıncı sırada ise... Ha bir de şurası var if #findcnt > 50 şimdi anladığım kadarıyla çantadaki item sayisi 50 yi bulunca bodları sınıflandırmaya basliyor. sayi onemli arkadaşlar bod almaya bırakırken karakterinizi buna dikkat edin. Eğer sınıflandırmaya baslamamıssa bilin ki bu sayıya ulasmamıstır. Ama bazaen takılma da yapabiliyor sorun degil bodlar cantanızda nasılsa... Bu script 1000-2000 bodcu kasilabilen serverler icin tasarlandığından bu durum gerceklesebilir. Ama bence faydalı bir script en azından çalışan ve bod alamayan arkadaşlar bunu auyto login ile birlikte çalıştırırlarsa bod haklarını ıskalamayacaklar... Ha bir de benim bir ricam var sizden bu scriptte düzenleme yapabilecek kapasitede arkadaşlar var burada onlardan ricam platede dull 20 ve shadow 20 haricinde dull ve shadow görevi almamasını saglamanız mümkün mü acaba?---auto login script ile uyumlu yani calismaya devam ediyor...---
Kod:
;===================================================
; Script Name: Esqarrouth's Free Shard Bs Bod Gatherer
; Author: Esqarrouth
; Version: 1.1
; Client Tested with: 5.0.6b
; EUO version tested with: EasyUO 1.5 V153
; Shard OSI / FS: FS / NGU Online
; Revision Date: 13/04/2009
; Public Release: 13/04/2009
; Global Variables Used: N/A
; Purpose: Auto Gathers Bs BODs, Sorts Them in the Right Book.
;===================================================
set %vendorpop 4
set %trashcan N/A
set %platemail N/A
set %chainmail N/A
set %ringmail N/A
set %otherbook N/A
set %bsvendor N/A
;Change these if your server speech is original
set %j1 Bod_Aldınız ;get_can_get
set %j2 Bir_Sonraki_Bodu ;a_new_offer_will_be
set %j3 bitti bodlar ;Bods Finished
;===================================================
gosub setup
mainloop:
gosub getbod
goto mainloop
;===================================================
sub setup
ignoreitem reset
set %shortwait 10
set %longwait 20
set %bod eym
set %journal #jindex
if %bsvendor = N/A
gosub bodguy
else
set %bodguy %bsvendor
gosub bodbook_setup
gosub getbod
return
;===================================================
sub getbod
getbod:
exevent popup %bodguy %vendorpop
gosub rep #CONTNAME = generic_gump 5
if ! #result
goto getbodend
gosub clickvendorgump
gosub weight
wait %shortwait
return
getbodend:
for %i %journal #jindex
{
scanjournal %i
if %j2 in #journal
{
gosub put_away
display ok %j3
wait %longwait
halt
}
}
wait %shortwait
gosub clickvendorgump
wait %shortwait
return
;===================================================
sub weight
finditem * C_ , #backpackid
if #findcnt > 50
{
gosub put_away
return
}
else
return
;===================================================
sub put_away
putaway:
finditem %bod c_ , #backpackid
if #FINDCNT < 1
{
gosub click_offset 385 430
return
}
event property #findid
if exceptional in #property && ( shadow in #property || copper in #property || verite in #property ||
+ bronze in #property || gold in #property || agapite in #property || valorite in #property ) &&
+ ( plate in #property && helm in #property || platemail in #property )
{
exevent drag #findid
wait %shortwait
exevent dropc %plate
wait %shortwait
}
if exceptional in #property && ( copper in #property && dull notin #property || verite in #property || dull in #property && 20 notin #property ||
+ bronze in #property || gold in #property || agapite in #property || valorite in #property ) &&
+ chainmail in #property
{
exevent drag #findid
wait %shortwait
exevent dropc %chain
wait %shortwait
}
if exceptional in #property && ( shadow in #property && 20 in #property || copper in #property && dull notin #property && 20 notin #property || verite in #property ||
+ agapite in #property && 20 in #property || valorite in #property ) &&
+ ringmail in #property
{
exevent drag #findid
exevent dropc %ring
wait %shortwait
}
if exceptional in #property && ( dull in #property && copper in #property && 20 in #property || shadow in #property && 20 notin #property || verite in #property && 20 notin #property ||
+ agapite in #property && 20 in #property ) &&
+ ( shield in #property && heater notin #property || Buckler in #property || Bascinet in #property ||
+ helmet in #property || norse in #property )
{
exevent drag #findid
exevent dropc %other
wait %shortwait
}
exevent drag #findid
exevent dropc %trash
wait %shortwait
goto putaway
;===================================================
sub bodbook_setup
if %trashcan <> N/A
set %trash %trashcan
else
{
display Ok Please target a Trash Can$
try_again1:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget1:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> bkf
{
display Ok That is not a trash can$
+please press ok and try again
goto try_again1
}
set %trash #ltargetid
goto platemail
}
goto waittarget1
}
platemail:
if %platemail <> N/A
set %plate %platemail
else
{
display Ok Please target your Platemail bod book$
try_again6:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget6:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> dym
{
display Ok That is not a bod book$
+please press ok and try again
goto try_again6
}
set %plate #ltargetid
goto chainmail
}
goto waittarget6
}
chainmail:
if %chainmail <> N/A
set %chain %chainmail
else
{
display Ok Please target your Chainmail bod book$
try_again7:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget7:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> dym
{
display Ok That is not a bod book$
+please press ok and try again
goto try_again7
}
set %chain #ltargetid
goto ringmail
}
goto waittarget7
}
ringmail:
if %ringmail <> N/A
set %ring %ringmail
else
{
display Ok Please target your Ringmail bod book$
try_again8:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget8:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> dym
{
display Ok That is not a bod book$
+please press ok and try again
goto try_again8
}
set %ring #ltargetid
goto otherbook
}
goto waittarget8
}
otherbook:
if %otherbook <> N/A
set %other %otherbook
else
{
display Ok Please target your Other bod book$
try_again9:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget9:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> dym
{
display Ok That is not a bod book$
+please press ok and try again
goto try_again9
}
set %other #ltargetid
return
}
goto waittarget9
}
;===================================================
; Sub: sub bodguy
; From: Penny's Bod Swapper
;===================================================
sub bodguy
display ok Please target your vendor$
try_again2:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget2:
if #targcurs = 0
{
finditem #ltargetid
if #findrep <> 7
{
display ok That is not an NPC Vendor$
+please press ok and try again
goto try_again2
}
wait %shortwait
event property #findid
if tailor in #property && ( ( guildmaster in #property ) || ( guildmistress in #property ) )
{
display ok You wont get bods from that one$
+target a vendor, not a guildmaster$
+please press ok and try again
goto try_again2
}
set %bodguy #ltargetid
return
}
goto waittarget2
;===================================================
; Sub: sub clickvendorgump
; From: Penny's Bod Swapper
;===================================================
sub clickvendorgump
if #contsize = 460_207
gosub click_offset 110 180
if #contsize = 460_231
gosub click_offset 110 200
if #contsize = 460_279
gosub click_offset 110 250
if #contsize = 467_279
gosub click_offset 110 250
if #contsize = 499_279
gosub click_offset 110 250
if #contsize = 460_303
gosub click_offset 110 270
if #contsize = 460_327
gosub click_offset 110 300
if #contsize = 460_351
gosub click_offset 110 320
if #contsize = 460_375
gosub click_offset 110 350
if #contsize = 460_399
gosub click_offset 110 370
return
;===================================================
sub click_offset
set %clickx #contposx + %1
set %clicky #contposy + %2
click %clickx %clicky f
return
;===================================================
sub rep
set %timer #scnt + 5
repeat
{
wait 2
if #sCnt > %timer
return #false
}
until #CONTNAME = generic_gump
return #true
;===================================================
Konu: Bodcu Sistemiyle Otomatik Bod Toplama
