1. put horned kit in backpack
2. come to luna auctioner
3. start script
4. press f2 to confirm creation of auc after all fields are filled
for horned kits
2. come to luna auctioner
3. start script
4. press f2 to confirm creation of auc after all fields are filled
for horned kits
codice:
;HORNED KIT set %item HAG ; time of items to sell set %vendor AROG ; id of auc-vendor set %name HORNED , #spc , KIT , #spc , IW ; name of auc set %base 59999 ; base set %min 1 ; rilanci set %inst 60000 ; instant set %since 12 ; since last offer set %end 360h ; end date set %waithotkey #true ; wait for pressing f2 set %cascade #false ; increase date of next auc.(works only with %end dd/mm/yy) set #lpc 5000 loop: finditem %item C_ , #backpackid if #findkind = -1 halt event property #findid if horned notin #property || 30 notin #property { ignoreitem #findid goto loop } exevent popup %vendor 3 while #CONTNAME <> generic_gump || #CONTSIZE <> 600_490 { wait 1 } set %xclick #CONTPOSX + 173 set %yclick #CONTPOSy + 95 click %xclick %yclick mc msg %name wait 10 set %xclick #CONTPOSX + 328 set %yclick #CONTPOSy + 170 click %xclick %yclick mc msg %base wait 10 set %xclick #CONTPOSX + 328 set %yclick #CONTPOSy + 219 click %xclick %yclick mc msg %min wait 10 set %xclick #CONTPOSX + 328 set %yclick #CONTPOSy + 274 click %xclick %yclick mc msg %inst wait 10 set %xclick #CONTPOSX + 328 set %yclick #CONTPOSy + 327 click %xclick %yclick mc msg %since wait 10 set %xclick #CONTPOSX + 328 set %yclick #CONTPOSy + 390 click %xclick %yclick mc if %cascade { STR Len %end if #strRes = 8 Str Left %end 2 else STR Left %end 1 set %day #strRes set %day %day + 1 STR Right %end 6 set %end %day , #strRes } msg %end wait 10 set %xclick #CONTPOSX + 553 set %yclick #CONTPOSy + 90 click %xclick %yclick mc target set #ltargetid #findid set #ltargetkind 1 event macro 22 0 while %waithotkey { wait 1 onhotkey f2 break } if %waithotkey = #false wait 10 set %xclick #CONTPOSX + 358 set %yclick #CONTPOSy + 439 click %xclick %yclick mc wait 10 goto loop
Commenta