Sorting Script

SET %use_wand #TRUE

gosub new_bag
;----------------------
;        Bag IDs
;----------------------
SET %mask_bag EBVVUMD

SET %leat WXDSUMD
SET %stud MOPQUMD
SET %gheal XDASUMD
SET %lb OPQVUMD
SET %id DRWSUMD

SET %i_ring KXMSUMD
SET %i_chain SSHVUMD
SET %i_plate QKNVUMD
SET %i_helm XUZOUMD
SET %i_shield SWLRUMD

SET %f_ring IKKSUMD
SET %f_chain KHTQUMD
SET %f_plate ERORUMD
SET %f_helm AIWRUMD
SET %f_shield NIRSUMD

SET %gt ZTHRUMD
SET %invis HTHPUMD
SET %flect XIUDVMD
SET %tele AXPCVMD

SET %s_arch TWEQUMD
SET %p_arch XBYQUMD
SET %v_arch WGFRUMD
SET %c_arch FXSRUMD

SET %s_fenc RTWDVDMD
SET %p_fenc QDLNUMD
SET %v_fenc IWOPUMD
SET %c_fenc GTKQUMD

SET %s_mace UUSCVMD
SET %p_mace JCHDVMD
SET %v_mace LWMDVMD
SET %c_mace ZNQDVMD

SET %s_sword MWVCVMD
SET %p_sword WZBEVMD
SET %v_sword BAADCMD
SET %c_sword QVEDVMD

SET %p_halb NSZCRMD
SET %v_halb JYVFWMD
;----------------------
;DO NOT EDIT BELOW HERE
;----------------------
; vars
EVENT MACRO 8 1
SET %mask PZH_BZH_NZH_DZH_VSH
SET %wand HFF_QMH_BFF_IFF_CFF
SET %halberd YTH
SET %sword NMH_BPH_YPO_BNF_CPH_INF_FSF_OSF_ASF_FMH_LSF_NSF_ISF_SMH_RMH_CSF_ZRF_MPH_LPH_MSF_BSF_KPO_GUO_KTF_JTF_EPH_ZSF_ATF_JPH_SOH_POH_OMH_LPO_ZTO_XTH_HSF_KSF_NPO_XPO_FUO_JPO_NPF_KPH_FYG_RHM_SFR
SET %fenc XRH_VRH_MTF_SRH_AQF_TSF_BUO_VPO_WPO_WRH_YRH_LTF_OPO_RRH_CUO
SET %mace IFF_OLH_JOH_URH_EMH_WTH_DMH_QMH_CFF_BFF_PMH_ZPF_CQF_FFF_TRH_YSF_XSF_FBG_VTH_AUH_ZTH_UOH_VOH_AUO_MPO_BUH_CUH_DMH_GFF_QOH_HFF_TLH_GBG
SET %arch WOH_TOH_QPO_SPO_WOH_TOH_JSF_USF_LMH_MMH_QPO_SPO_PPO_RPO_JSF_USF_LMH_MMH_PPO_RPO_JSF
SET %leather QKH_OSK_ATK_PKH_KKH_JKH_VKH_NJL_YSK_QSK
SET %studded LLH_SSK_USK_GLH_XKH_ALH_MLH
SET %ring WLH_YLH_BMH_IMH
SET %chain ZOH_APH
SET %plate HSH_MSK_MSH_ISH_NSH_LSH
SET %helmet GSH_DPH_OSH_CSH_ASH_ESH
SET %shield CIK_LIK_AIK_FIK_GIK_NIK_OIK
GOSUB main
;----------------------
;      Main Sub
;----------------------
SUB MAIN
    FINDITEM %bag_scan G_1
    SET #LOBJECTID #FINDID
    EVENT MACRO 17 0
    WAIT 1S
    loop:
    FINDITEM * C_ , %bag_scan
    SET %temp_count #FINDCNT
    EVENT SYSMESSAGE %temp_count
    SET %item_temp #FINDID
    IF #FINDCNT < 1
         gosub new_bag
    SET #LTARGETID #FINDID
    SET #LTARGETKIND 1
    SET %jstart #jindex
    IF %use_wand = #TRUE
    {
       FINDITEM %wand C_ , #CHARID
       IF #FINDKIND = #TRUE
       {
       FINDITEM %wand C_ , #BACKPACKID
       IF #FINDCNT < 1
          {
          SET %use_wand #FAlSE
          RETURN
          }
       SET #LHANDID #FINDID
       EVENT MACRO 24 1
       WAIT 1s
       }
       FINDITEM %wand C_ , #CHARID
       SET #LOBJECTID #FINDID
       EVENT MACRO 17 0
    }
    IF %use_wand = #FALSE
       EVENT MACRO 13 3
    TARGET
    EVENT MACRO 22 0
    WAIT 1s
    SET %jend #jindex
    FOR %i %jstart %jend
    {
    SCANJOURNAL %i
    ;WAIT 1s
    EVENT SYSMESSAGE %i
    SET %temp_var %i

;----- BIG jumbled mess of sorting
    FINDITEM %item_temp C_ , %bag_scan
    IF #FINDTYPE in %mask
    {
         SET %bag_drop %mask_bag
         GOSUB drop
    }
    IF ( fortification IN #JOURNAL )
    {
       if #FINDTYPE in %ring
           SET %bag_drop %f_ring
       if #FINDTYPE in %chain
           SET %bag_drop %f_chain
       if #FINDTYPE in %plate
           SET %bag_drop %f_plate
       if #FINDTYPE in %helmet
           SET %bag_drop %f_helm
       if #FINDTYPE in %shield
           SET %bag_drop %f_shield
       gosub drop
    }
    IF ( invulnerability IN #JOURNAL )
    {
       if #FINDTYPE in %ring
           SET %bag_drop %i_ring
       if #FINDTYPE in %chain
           SET %bag_drop %i_chain
       if #FINDTYPE in %plate
           SET %bag_drop %i_plate
       if #FINDTYPE in %helmet
           SET %bag_drop %i_helm
       if #FINDTYPE in %shield
           SET %bag_drop %i_shield
       if #FINDTYPE in %leather
           SET %bag_drop %leat
       if #FINDTYPE in %studded
           SET %bag_drop %stud
       gosub drop
    }
    IF ( teleporting IN #JOURNAL )
    {
       SET %bag_drop %tele
       GOSUB drop
    }
    IF ( reflection IN #JOURNAL )
    {
       SET %bag_drop %flect
       GOSUB drop
    }
    IF ( invisibility IN #JOURNAL )
    {
       SET %bag_drop %invis
       GOSUB drop
    }
    IF ( reaction IN #JOURNAL )
    {
       SET %bag_drop #backpackid
       GOSUB drop
    }
    ;wands
    IF ( Greater in #journal ) && ( #FINDTYPE in %wand )
    {
         set %bag_drop %gheal
         gosub drop
    }
    IF ( lightning in #journal ) && ( #FINDTYPE in %wand )
    {
         set %bag_drop %lb
         gosub drop
    }
    IF ( identification IN #JOURNAL )
    {
       SET %bag_drop %id
       GOSUB drop
    }
    ;weapons
    IF ( touch in #JOURNAL )
    {
       SET %bag_drop %touch
       GOSUB drop
    }
    IF ( breath in #JOURNAL ) || ( lightning in #JOURNAL )
    {
            if #FINDTYPE in %sword
            {
                 SET %bag_drop %c_sword
                 GOSUB drop
            }
            if #FINDTYPE in %mace
            {
                 SET %bag_drop %c_mace
                 GOSUB drop
            }
            if #FINDTYPE in %arch
            {
                 SET %bag_drop %c_arch
                 GOSUB drop
            }
            if #FINDTYPE in %fenc
            {
                 SET %bag_drop %c_fenc
                 GOSUB drop
            }
    }
    IF ( force in #JOURNAL ) && ( #FINDTYPE = %halberd )
    {
       SET %bag_drop %p_halb
       GOSUB drop
    }
    IF ( power in #JOURNAL )
    {
       if #FINDTYPE in %sword
           SET %bag_drop %p_sword
       if ( #FINDTYPE = %halberd )
           SET %bag_drop %p_halb
       if #FINDTYPE in %mace
           SET %bag_drop %p_mace
       if #FINDTYPE in %arch
           SET %bag_drop %p_arch
       if #FINDTYPE in %mace
           SET %bag_drop %p_fenc
       gosub drop
    }
    IF ( vanquishing in #JOURNAL )
    {
       if #FINDTYPE in %sword
           SET %bag_drop %v_sword
       if ( #FINDTYPE = %halberd )
           SET %bag_drop %v_halb
       if #FINDTYPE in %mace
           SET %bag_drop %v_mace
       if #FINDTYPE in %arch
           SET %bag_drop %v_arch
       if #FINDTYPE in %mace
           SET %bag_drop %v_fenc
       gosub drop
    }
    ;------
    IF ( You_are_not_certain... IN #JOURNAL )
    {
       WAIT 9S
       GOTO loop
    }
    IF ( This_item_is_out_of_charges. IN #JOURNAL )
    {
       FINDITEM %wand C_ , #CHARID
       IF #FINDKIND = #FALSE
       {
          SET %x ( #CHARPOSX )
          SET %y ( #CHARPOSY )
          EXEVENT DRAG #FINDID
          WAIT 1S
          EXEVENT DROPG %x %y
       }
       GOTO loop
    }
    deleteJournal
    }
    IF %use_wand = #FAlSE
       WAIT 9s
    ;WAIT 1s
    IGNOREITEM %item_temp
    GOTO loop
RETURN


;---------------------------------
;        Function subs
;---------------------------------
SUB drop
    FINDITEM %item_temp C_ , %bag_scan
    if #findcnt < 1
         ignoreitem %item_temp
    EXEVENT DRAG #FINDID
    WAIT 1S
    EXEVENT DROPC %bag_drop
    SCANJOURNAL #jindex
    IF ( weight IN #JOURNAL ) || ( cannot_hold IN #JOURNAL )
    {
       DISPLAY %bag_drop is FULL
       HALT
    }
    ;EXEVENT DROPC #backpackid
RETURN


sub new_bag
     SET #TARGCURS 1
     WHILE #TARGCURS = 1
     {
     WAIT 1s
     EVENT SYSMESSAGE Target bag to ID!
     }
     SET %bag_scan #LTARGETID
return