/alias {scry %0} {/if {$0==$ScryTarget} {cast scry $0} {clearscry;cast scry $0;/variable ScryTarget $0}}}
/alias {dfscry %0} {Scry $0;/variable ScryTarget $0}
/variable scryamt 0
/variable scry 0
/listadd scry
/empty scryshow
/empty ScryTarget
/action {You peer into the %1 and see...} {/math scryamt {$scryamt + 1};/variable scry 1;/event unscry 2 {/unevent unscry;/variable scry 0}}
/action {<used as light>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<worn around neck>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<worn on %1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<worn as shield>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<worn about %1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<worn around wrist>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<wielded>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/action {<held>%1[%2]%0} {/if {$scry==1} {/itemadd scry {$0}} {}}
/alias {showscry} {/empty scryshow;@CommandToList(scry,ADDSCRY $ListItem);showme @Chr(10)@AnsiBold()@ForeWhite()Showing Scry of @AnsiBold()@ForeYellow()$ScryTarget @AnsiBold()@ForeWhite()($scryamt x)@AnsiReset()@Chr(10)$scryshow}
/alias {ADDSCRY %0} {/variable scryshow {@ConCat($scryshow,@AnsiReset()@ForeWhite()$0@Chr(10))}}
/alias {clearscry} {/variable scryamt 0;/empty scryshow;/variable scry 0;/clearlist scry;/empty ScryTarget}
/alias {chscry} {/empty scryshow;@CommandToList(scry,ADDSCRY $ListItem);/emoteall { @AnsiBold()@ForeWhite()Showing Scry of @AnsiBold()@ForeYellow()$ScryTarget @AnsiBold()@ForeWhite()($scryamt x)@AnsiBold()@ForeBlue()@Chr(10)$scryshow}