[EASYUO] scripts for fast creaitng in-game aucs for tailor bod rewards

[fnurov]

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

;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

[fnurov]

for barbed kits

;barbed kit
set %item HAG ; time of items to sell
set %vendor AROG ; id of auc-vendor
set %name BARBED , #spc , KIT , #spc , IW ; name of auc
set %base 1699998 ; base
set %min 1 ; rilanci
set %inst 1799999 ; 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.


set #lpc 5000
loop:
     finditem %item C
     if #findkind = -1
        halt
     event property #findid
     if barbed notin #property || 15 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

[fnurov]

for bless deed

;bless deed
set %item EWH
set %vendor AROG
set %name Bless , #spc , Deed , #spc , IW
set %base 59998
set %min 1
set %inst 59999
set %since 12
set %end 360h
set %waithotkey #true ; create auc inly whan f2 is pressed
set %cascade #false

set #lpc 5000
loop:
     finditem %item C_ , #backpackid
     if #findkind = -1
        halt
     event property #findid
     set %checkstr clothing , #spc , bless , #spc , deed
     if %checkstr 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

[fnurov]

z