;===================================================
; Script Name: Esqarrouth's Free Shard Tai Bod Gatherer
; Author: Esqarrouth
; Version: 1.3
; 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: 12/03/2009
; Global Variables Used: N/A
; Purpose: Auto Gathers BODs, Sorts Them in the Right Book.
;===================================================
set %vendorpop 4
set %trashcan N/A
set %realbook N/A
set %malebook N/A
set %femalebook N/A
set %blessbook N/A
set %tailorvendor 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 %tailorvendor = N/A
gosub bodguy
else
set %bodguy %tailorvendor
gosub bodbook_setup
gosub getbod
return
;===================================================
sub getbod
getbod:
exevent popup %bodguy %vendorpop
gosub rep
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 > 100
{
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 bone in #property || studded in #property && ( Gloves in #property || Gorget in #property || Leggings in #property || Sleeves in #property || Tunic in #property )
{
exevent drag #findid
exevent dropc %trash
wait %shortwait
}
if exceptional in #property && bone notin #property && ( barbed in #property || horned in #property || spined in #property && 20 in #property ) && ( bustier in #property || shorts in #property || armor in #property || skirt in #property && leather in #property || leather in #property && studded notin #property && ( cap in #Property || gorget in #Property || tunic in #Property || leggings in #Property || sleeves in #Property || gloves in #Property ) )
{
exevent drag #findid
wait %longwait
exevent dropc %book
wait %shortwait
}
if leather in #property && exceptional in #property && ( cap in #Property || gorget in #Property || tunic in #Property || leggings in #Property || sleeves in #Property || gloves in #Property ) && spined notin #property && studded notin #property && bone notin #property
{
exevent drag #findid
wait %shortwait
exevent dropc %male
wait %shortwait
}
if exceptional in #property && ( bustier in #property || shorts in #property || studded in #property && armor in #property || female in #property && armor in #property || skirt in #property && leather in #property ) && spined notin #property && bone notin #property
{
exevent drag #findid
wait %shortwait
exevent dropc %female
wait %shortwait
}
if exceptional in #property && 20 in #property && ( surcoat in #property || short in #property && pants in #property || feathered in #property || fancy in #property && shirt in #property || thigh in #property && small in #property && spined notin #property || skullcap in #property && small in #property || bandana in #property && small in #property || flower in #property && small in #property || spined in #property && sandals in #property || spined in #property && shoes in #property )
{
exevent drag #findid
wait %shortwait
exevent dropc %bless
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 malebook
}
goto waittarget1
}
malebook:
if %malebook <> N/A
set %male %malebook
else
{
display Ok Please target your Male 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 %male #ltargetid
goto femalebook
}
goto waittarget6
}
femalebook:
if %femalebook <> N/A
set %female %femalebook
else
{
display Ok Please target your Female 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 %female #ltargetid
goto blessbook
}
goto waittarget7
}
blessbook:
if %blessbook <> N/A
set %bless %blessbook
else
{
display Ok Please target your Bless Deed 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 %bless #ltargetid
goto realbook
}
goto waittarget8
}
realbook:
if %realbook <> N/A
{
set %book %realbook
return
}
else
{
display Ok Please target your Barbed Kit bod book$
try_again5:
wait %shortwait
set #targcurs 1
wait %shortwait
waittarget5:
if #targcurs = 0
{
finditem #ltargetid
if #findtype <> dym
{
display Ok That is not a bod book$
+please press ok and try again
goto try_again5
}
set %book #ltargetid
return
}
goto waittarget5
}
;===================================================
; 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
;===================================================