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