@setalias 'restock' 0x4060d69f
useobject 'restock'
pause 550
while @findtype 0xf9d '2129' 'backpack' or @findtype 0xf9d '2117' 'backpack'
if counttype 0x1081 '2117' 'backpack' < 25
movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200
pause 1000
endif
useobject 'found'
waitforgump 0x38920abd 2500
replygump 0x38920abd 21
waitforgump 0x38920abd 2500
if counttype 0x1081 '2117' 'backpack' < 25
movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200
pause 1000
endif
endwhile
if movetype 0xf9d 'restock' 'backpack' (0 0 0) 2129 1
pause 1000
sysmsg 'Taking 1 BRSK'
elseif movetype 0xf9d 'restock' 'backpack' (0 0 0) 2117 1
pause 1000
sysmsg 'Taking 1 HRSK'
else
sysmsg 'Out of Sewing Kits' 34
stop
endif
@playmacro 'Sort Gear'
@setalias '5mod' 0x4031cde7
if @findtype 0x13c7 'any' 'backpack' or @findtype 0x277a 'any' 'backpack'
//gorget
@setalias 'LRCMR' 0x43311435
@setalias 'LMCMR' 0x42311f20
@setalias 'HPIMR' 0x42311f22
@setalias 'STATMR' 0x42311f21
@setalias 'LMCHPI' 0x42311f24
@setalias 'LMCLRC' 0x41dfb80f
//
@setalias 'LRCHPI' 0x41dfb814
@setalias 'STATLMC' 0x41dd5803
@setalias 'MROnly' 0x41dd5806
@setalias 'ManaStam' 0x41dd581b
@setalias 'StamOnly' 0x41dd5819
@setalias 'ManaOnly' 0x41dd5802
//
@setalias '3mod' 0x41f17456
@setalias 'HPIOnly' 0x4069fa14
@setalias 'LMCOnly' 0x41dd5814
@setalias 'LRCOnly' 0x41dd57fd
@setalias 'other' 0x41dd5810
@setalias 'LRCMule' 0x41dd5817
elseif @findtype 0x13cd 'any' 'backpack' or @findtype 0x277e 'any' 'backpack'
//sleeves
@setalias 'LRCMR' 0x4069fa0a
@setalias 'LMCMR' 0x41d9c05b
@setalias 'HPIMR' 0x41d9c060
@setalias 'STATMR' 0x41d9c062
@setalias 'LMCHPI' 0x41d9c069
@setalias 'LMCLRC' 0x41d9c064
//
@setalias 'LRCHPI' 0x41dd5813
@setalias 'STATLMC' 0x41d9c05a
@setalias 'MROnly' 0x41d9c063
@setalias 'ManaStam' 0x41d9c05c
@setalias 'StamOnly' 0x41d9c058
@setalias 'ManaOnly' 0x41d9c05e
//
@setalias '3mod' 0x41f18d3c
@setalias 'HPIOnly' 0x4069fa1e
@setalias 'LMCOnly' 0x4069fa1b
@setalias 'LRCOnly' 0x4069fa0c
@setalias 'other' 0x4069fa0d
@setalias 'LRCMule' 0x4069fa17
elseif @findtype 0x13c6 'any' 'backpack' or @findtype 0x2792 'any' 'backpack'
//gloves
@setalias 'LRCMR' 0x4069fa1f
@setalias 'LMCMR' 0x4069fa08
@setalias 'HPIMR' 0x4069fa09
@setalias 'STATMR' 0x4069fa0b
@setalias 'LMCHPI' 0x4069fa11
@setalias 'LMCLRC' 0x4069fa0e
//
@setalias 'LRCHPI' 0x43311438
@setalias 'STATLMC' 0x41dfb80d
@setalias 'MROnly' 0x4069fa0f
@setalias 'ManaStam' 0x4069fa19
@setalias 'StamOnly' 0x4069fa10
@setalias 'ManaOnly' 0x4069fa13
//
@setalias '3mod' 0x4034eca4
@setalias 'HPIOnly' 0x4069fa1a
@setalias 'LMCOnly' 0x42311f1f
@setalias 'LRCOnly' 0x41dfb817
@setalias 'other' 0x41dfb811
@setalias 'LRCMule' 0x41dfb808
elseif @findtype 0x1c08 'any' 'backpack' or @findtype 0x278a 'any' 'backpack'
//legs
@setalias 'LRCMR' 0x4069fa15
@setalias 'LMCMR' 0x42311f23
@setalias 'HPIMR' 0x42311f1e
@setalias 'STATMR' 0x42311f25
@setalias 'LMCHPI' 0x41dfb81a
@setalias 'LMCLRC' 0x41dfb80e
//
@setalias 'LRCHPI' 0x43311439
@setalias 'STATLMC' 0x41dfb81c
@setalias 'MROnly' 0x41dfb818
@setalias 'ManaStam' 0x41dfb816
@setalias 'StamOnly' 0x41dfb810
@setalias 'ManaOnly' 0x41dfb80a
//
@setalias '3mod' 0x41f0aca8
@setalias 'HPIOnly' 0x43311436
@setalias 'LMCOnly' 0x41dfb80c
@setalias 'LRCOnly' 0x41dfb809
@setalias 'other' 0x41dfb80b
@setalias 'LRCMule' 0x41dfb813
elseif @findtype 0x13cc 'any' 'backpack'
//tunic
@setalias 'LRCMR' 0x4331a464
@setalias 'LMCMR' 0x4331a462
@setalias 'HPIMR' 0x4331a466
@setalias 'STATMR' 0x4331a469
@setalias 'LMCHPI' 0x432dc37e
@setalias 'LMCLRC' 0x432dc385
//
@setalias 'LRCHPI' 0x432dc37f
@setalias 'STATLMC' 0x432dc379
@setalias 'MROnly' 0x432dc38c
@setalias 'ManaStam' 0x432dc38b
@setalias 'StamOnly' 0x432dc384
@setalias 'ManaOnly' 0x432dc387
//
@setalias '3mod' 0x432dc381
@setalias 'HPIOnly' 0x432dc389
@setalias 'LMCOnly' 0x432dc37d
@setalias 'LRCOnly' 0x432dc386
@setalias 'other' 0x432dc37a
@setalias 'LRCMule' 0x432dc38d
endif
if @injournal 'world will save'
while not @injournal 'world save complete'
endwhile
@clearjournal
endif
@removelist 'modcount'
@createlist 'modcount'
if @findobject 'found' 'any' 'backpack'
waitforproperties 'found' 5000
else
pause 550
sysmsg 'Done' 34
@playmacro 'Craft Last Runic'
stop
endif
if @property 'mana regeneration' 'found' == 2
pushlist 'modcount' 'mr'
endif
if @property 'lower mana cost' 'found' >= 4
pushlist 'modcount' 'lmc'
endif
if @property 'lower reagent cost' 'found' >= 12
pushlist 'modcount' 'lrc'
endif
if @property 'hit point increase' 'found' >= 3
pushlist 'modcount' 'hpi'
endif
if @property 'mana increase' 'found' >= 5
pushlist 'modcount' 'mana'
endif
if @property 'stamina increase' 'found' >= 5
pushlist 'modcount' 'stam'
endif
if @property 'physical resist' 'found' >= 14
pushlist 'modcount' 'physical'
endif
if @property 'fire resist' 'found' >= 14
pushlist 'modcount' 'fire'
endif
if @property 'cold resist' 'found' >= 14
pushlist 'modcount' 'cold'
endif
if @property 'poison resist' 'found' >= 14
pushlist 'modcount' 'poison'
endif
if @property 'energy resist' 'found' >= 14
pushlist 'modcount' 'energy'
endif
if @property 'luck' 'found' >= 100
pushlist 'modcount' 'luck'
endif
if @property 'lower reagent cost' 'found' >= 12 and @property 'stamina increase' 'found'
poplist 'modcount' 'stam'
endif
if @property 'lower reagent cost' 'found' >= 12 and @property 'mana increase' 'found'
poplist 'modcount' 'mana'
endif
if @property 'lower reagent cost' 'found' >= 12 and @property 'energy resist' 'found' >= 14
poplist 'modcount' 'energy'
endif
if list 'modcount' <= 2
sysmsg '2mod'
sysmsg 'cut up'
if @property 'lower reagent cost' 'found' >= 18 and @property 'mana regeneration' 'found' == 2
sysmsg 'Mule'
moveitem 'found' 'lrcmule'
elseif @property 'lower mana cost' 'found' >= 7 and @property 'lower reagent cost' 'found' >= 18
sysmsg 'Mule'
moveitem 'found' 'lrcmule'
else
//edit this to cut up
usetype! 0xf9f
while waitingfortarget
endwhile
pause 550
target! 'found'
endif
elseif list 'modcount' == 3
sysmsg '3mod'
if @property 'lower reagent cost' 'found' >= 18 and @property 'mana regeneration' 'found' == 2
sysmsg 'Mule'
moveitem 'found' 'lrcmule'
elseif @property 'lower mana cost' 'found' >= 7 and @property 'lower reagent cost' 'found' >= 18
sysmsg 'Mule'
moveitem 'found' 'lrcmule'
//
//elseif serial 'self' == 0x68607
// moveitem 'found' '3mod'
// pause 550
else
usetype! 0xf9f
while waitingfortarget
endwhile
pause 550
target! 'found'
endif
//comment out next 3 lines to put 5 mod into stacks
elseif list 'modcount' == 5
sysmsg '5mod' 64
moveitem 'found' '5mod'
elseif list 'modcount' >= 4
sysmsg '4+mod' 34
if @property 'mana regeneration' 'found' == 2 and @property 'lower reagent cost' 'found' >= 12
sysmsg 'LRC & MR'
moveitem 'found' 'lrcmr'
elseif @property 'mana regeneration' 'found' == 2 and @property 'lower mana cost' 'found' >= 4
sysmsg 'LMC & MR'
moveitem 'found' 'lmcmr'
elseif @property 'mana regeneration' 'found' == 2 and @property 'hit point increase' 'found' >= 3
sysmsg 'HPI & MR'
moveitem 'found' 'hpimr'
elseif @property 'mana regeneration' 'found' == 2 and @property 'stamina increase' 'found' >= 5
sysmsg 'Stam & MR'
moveitem 'found' 'statmr'
elseif @property 'mana regeneration' 'found' == 2 and @property 'mana increase' 'found' >= 5
sysmsg 'Mana & MR'
moveitem 'found' 'statmr'
elseif @property 'lower mana cost' 'found' >= 4 and @property 'hit point increase' 'found' >= 3
sysmsg 'LMC & HPI'
moveitem 'found' 'lmchpi'
elseif @property 'lower mana cost' 'found' >= 4 and @property 'lower reagent cost' 'found' >= 12
sysmsg 'LRC & LMC'
moveitem 'found' 'lmclrc'
elseif @property 'lower reagent cost' 'found' >= 12 and @property 'hit point increase' 'found' >= 3
sysmsg 'LRC & HPI'
moveitem 'found' 'lrchpi'
elseif @property 'lower mana cost' 'found' >= 4 and @property 'stamina increase' 'found' >= 5
sysmsg 'Stam & LMC'
moveitem 'found' 'statlmc'
elseif @property 'lower mana cost' 'found' >= 4 and @property 'mana increase' 'found' >= 5
sysmsg 'Mana & LMC'
moveitem 'found' 'statlmc'
elseif @property 'mana regeneration' 'found' == 2
sysmsg 'MR only'
moveitem 'found' 'MROnly'
elseif @property 'stamina increase' 'found' >= 5 and @property 'Mana Increase' 'found' >= 5
sysmsg 'Stam and Mana'
moveitem 'found' 'ManaStam'
elseif @property 'stamina increase' 'found' >= 5 and @property 'Hit Point Increase' 'found' >= 3
sysmsg 'Stam and HPI'
moveitem 'found' 'StamOnly'
elseif @property 'Mana increase' 'found' >= 5 and @property 'Hit Point Increase' 'found' >= 3
sysmsg 'Mana and HPI'
moveitem 'found' 'ManaOnly'
elseif @property 'Stamina increase' 'found' >= 5
sysmsg 'Stam only'
moveitem 'found' 'StamOnly'
elseif @property 'Mana increase' 'found' >= 5
sysmsg 'Mana only'
moveitem 'found' 'ManaOnly'
elseif @property 'Hit Point increase' 'found' >= 3
sysmsg 'HPI only'
moveitem 'found' 'HPIOnly'
elseif @property 'Lower Mana Cost' 'found' >= 4
sysmsg 'LMC Only'
moveitem 'found' 'LMCOnly'
elseif @property 'Lower Reagent Cost' 'found' >= 12
sysmsg 'LRC Only'
moveitem 'found' 'LRCOnly'
else
sysmsg 'other'
moveitem 'found' 'other'
endif
endif
pause 1500
sysmsg '-'