Tweet
salve qlc mi saprebbe dire cosa c'è di sbagliato su questo script?
grazie in anticipo
grazie in anticipo
codice:
;
;Customize
;--------------------------------------------------
; ID of Items that you want to keep
set %keepers KEG_BUI_POF_ZZF_TWF_QPF_tvh_ewh_nvi_dui_aui_fui_gui_gbg_TLH
; ID of Items that you want to drop on ground
set %tossem kkh
; Put the number of the option for Bulk Order Deed
; on your shard here
set %voption 4
;<---
; Put the option number for packy backpack here
set %poption 11
;<---
;--------------------------------------------------
;edit below at your own risk
;--------------------------------------------------
;
display ok Once you start this,
;follow the prompts then +
;let it run do not try to click anything for the script. +
;If by chance it does mess up,
;stop it then try again. +
;If the problem persists please stop and drop me a PM + So I can try to fix it for you.
;-----------------------------------
wait 1
event macro 31 0
wait 10
event macro 8 1
while #contName <> paperdoll_gump && #contSize <> 262_324
{
wait 10
contpos 800 280
}
wait 10
event macro 8 7
while #contName <> container_gump && #contSize <> 230_204
{
wait 10
contpos 610 570
}
wait 10
setup:
gosub vendorselect
wait 1
gosub secureselect
wait 1
gosub filledbookselect
wait 1
gosub emptybookselect
wait 5
;--------------------------------------------------
;Main Loop
;--------------------------------------------------
loop:
gosub getbod
wait 1
gosub clickok
wait 1
gosub movenewbod
wait 1
gosub turnina
wait 1
gosub turninb
wait 1
gosub tossit
wait 1
gosub cutfat
wait 10
goto loop
;--------------------------------------------------
;Vendor Selector
;--------------------------------------------------
sub vendorselect
event exmsg #charid 3 30
Target the vendor to work with $
selectionv:
set #targcurs 1 while #targcurs = 1
wait 2
set %trader #ltargetid
vmove:
finditem %trader
if #finddist > 1
{
move #findx #findy a
}
event property %trader
if ( guildmaster in #property ) || ( guildmistress in #property )
{
event exmsg #charid 3 30
Sorry guild masters do not give bods try again $
wait 2
goto selectionv
}
if ( blacksmith in #property ) || ( tailor in #property ) || ( weaver in #property ) || ( weaponsmith in #property )
{
msg #property
wait 5
return
}
else
{
event exmsg #charid 3 30
Wrong vendor type, please try again $
wait 2
goto selectionv
}
goto vmove
;--------------------------------------------------
;secure Selector
;--------------------------------------------------
sub secureselect
display yesno
Click yes for Packy,
click no for bank
if #dispres = yes
{
set #lobjectid #charid
event macro 17
msg all follow me $
wait 5
event exmsg #charid 3 30
Target the Packy to dump to $
set #targcurs 1
while #targcurs = 1
wait 2
set %storage #ltargetid
exevent popup %storage %poption
wait 5
while #contName <> container_gump && #contSize <> 230_204
wait 10
contpos 440 570
wait 10
return
}
if #dispres = no
{
msg bank $
wait 5
while #contName <> container_gump && #contSize <> 180_240
wait 10
contpos 440 570
wait 5
Display yesno
; This was devised to be used in Luna $
+You must be able to access both the bank and the $
+Vendor From the same location. $
+Is the bankbox open? $
if #dispres = yes
{
set %storage #contid
wait 5
return
}
if #dispres = no
{
display ok You need to either get to a spot where $
; +you can access the vendor and the bank $
; +without moving, or get a packy.$
; +(a lama is cheap)$$
; +Stopping the script now. $
wait 2
halt
}
}
return
;--------------------------------------------------
;filled book Selector
;--------------------------------------------------
sub filledbookselect
wait 5
event exmsg #charid 3 30
Target the book that has the bods to be traded
filledselect:
set #targcurs 1
while #targcurs = 1
wait 2
set %bodbag #ltargetid
event property %bodbag
if deeds_in_book:_0 in #property
{
wait 2
event exmsg #charid 3 30
That book is empty, please select a new one.
goto filledselect
}
set #lobjectid %bodbag
event macro 17
wait 2
while #contName <> generic_gump && #contSize <> 615_454
wait 10
event property %trader
wait 5
if ( tailor in #property ) || ( weaver in #property )
{
set %f1clickx #contposx + 50
set %f1clicky #contposy + 40
wait 5
click %f1clickx %f1clicky
wait 10
set %f2clickx #contposx + 40
set %f2clicky #contposy + 285
wait 5
click %f2clickx %f2clicky
wait 5
}
if ( blacksmith in #property ) || ( weaponsmith in #property )
{
set %f3clickx #contposx + 50
set %f3clicky #contposy + 40
wait 5
click %f3clickx %f3clicky
wait 10
set %f4clickx #contposx + 40
set %f4clicky #contposy + 205
wait 5
click %f4clickx %f4clicky
wait 5
}
wait 5
set %cclickx #contposx + 25
set %cclicky #contposy + 25
wait 5
click %cclickx %cclicky r
wait 5
set %cclickx #contposx + 25
set %cclicky #contposy + 25
wait 5
click %cclickx %cclicky r
wait 10
return
;--------------------------------------------------
;empty book Selector
;--------------------------------------------------
sub emptybookselect
event exmsg #charid 3 30
Target the BOD book to store new BOD's in You can target a bag
if you really want, $
wait 2
set #targcurs 1
while #targcurs = 1
wait 2
set %bodbook #ltargetid
wait 5
return
;-------------------------------------------------
;gets a new bod
;-------------------------------------------------
sub getbod
getbod:
exevent popup %trader %voption
wait 2
return
;-------------------------------------------------
; clicks yes in the bod menu
; Thx to Redsatin and Tecmo for this part.
;-------------------------------------------------
sub clickok
set %timeout #scnt2 + 40
bodgump:
wait 2
if #ContName = generic_gump
{
wait 2
set %size #ContSize str right %size 3
wait 0
set %clicky #strres + #ContPosY - 30
set %ClickX 115 + #ContPosX
wait 5
click %clickx %clicky
wait 2
return
}
if %timeout > #scnt2
{
wait 1
goto bodgump
}
wait 2
return
;--------------------------------------------------
;transfers new empty bods to book
;--------------------------------------------------
Sub movenewbod
movenewbod:
finditem EYM c_ , #backpackid
wait 2
if #findkind <> -1
{
wait 1
exevent drag #findid
wait 5
exevent dropc %bodbook
wait 5
goto movenewbod
}
wait 5
if #contkind = IOIB
{
set %newx #contposx + 20
set %newy #contposy + 20
wait 5
click %newx %newy r
wait 5
return
}
wait 2
return
;--------------------------------------------------------------------------------------------
;drop bod out of book
;--------------------------------------------------------------------------------------------
sub turnina
set %journal #jindex
set #lobjectid %bodbag
event macro 17
wait 10
for %i %journal #jindex
{
scanjournal %i
if the_book_is_empty. in #journal
{
wait 2
gosub finaldump
}
}
wait 2
while #contName <> generic_gump && #contSize <> 615_454
wait 5
{
set %dclickx #contposx + 40
set %dclicky #contposy + 105
wait 5
click %dclickx %dclicky
wait 5
}
wait 5
if #contName = generic_gump && #contSize = 615_454
{
set %newx #contposx + 20
set %newy #contposy + 20
wait 5
click %newx %newy r
wait 5
}
wait 5
return
;--------------------------------------------------------------------------------------------
;give the bod to vendor
;--------------------------------------------------------------------------------------------
sub turninb
finditem EYM c_ , #backpackid
if #findkind <> -1
{
wait 1
exevent drag #findid
wait 5
exevent dropc %trader
wait 5
return
}
if #findkind = -1
{
gosub tossit
gosub finaldump
}
;--------------------------------------------------------------------------------------------
;drops unwanted stuff to the ground
;--------------------------------------------------------------------------------------------
sub tossit tossit:
finditem %tossem c_ , #backpackid
if #findkind <> -1
{
wait 10
exevent drag #findid #findstack
wait 10
set %gdropx #charposx
set %gdropy #charposy
wait 10
exevent dropg %gdropx %gdropy
wait 10
goto tossit
}
wait 10
return
;-------------------------------------------------
; drops stuff to storage
;-------------------------------------------------
sub cutfat
wait 2
storagedrop:
finditem %keepers c_ , #backpackid
wait 2
if #findkind <> -1
{
wait 1
exevent drag #findid #findstack
wait 5
exevent dropc %storage
wait 5
goto storagedrop
}
wait 2
return
;-------------------------------------------------
;Final Dump to storage
;-------------------------------------------------
sub finaldump lastdrop:
wait 5
finditem %keepers c_ , #backpackid
if #findkind <> -1
{
wait 1
exevent drag #findid #findstack
wait 5
exevent dropc %storage
wait 5
goto lastdrop
}
}
; Display ok Looks like you are out of bods to turn in. + Thank you for using Traston's Simple Bod Swapper + Please let me know what you think.
Halt
Commenta