#DELCLASS Slain

#CLASS {Slain}
#ALIAS show_deaths {#SAY {%crlf};#SAY %ansi( green)Slain by:;#LOOPDB @deathto {#SAYP %ansi( red, high)~[%ansi( white)%repeat( " ", 4-%len( %val))%val%ansi( red, high)~] %ansi( grey)%key %repeat( " ", 35-%len( %key))%if( %eval( %len( %key)>35) & %eval( %iskey( @deathto, {%key})\2)=1, %crlf)%if( %eval( %iskey( @deathto, {%key})\2)=0, %crlf)};#IF (%numkeys( @deathto)=0) {#SAY %ansi( white)You haven't been killed yet... good job champ!}}
#ALIAS show_slain {#SAY {%crlf};#IF (%null( %1)) {#SAY %ansi( green)Things slain:;#LOOPDB @slain {#SAYP %ansi( blue, high)~[%ansi( white)%repeat( " ", 4-%len( %val))%val%ansi( blue, high)~] %ansi( grey)%key %repeat( " ", 35-%len( %key))%if( %eval( %len( %key)>35) & %eval( %iskey( @slain, {%key})\2)=1, %crlf)%if( %eval( %iskey( @slain, {%key})\2)=0, %crlf)}} {#SAY %ansi( green)Searching for %1... :;#LOOPDB @slain {#IF (%ismember( %lower( %1), %replace( %lower( %key), " ", "|"))) {#SAYP %ansi( blue, high)~[%ansi( white)%repeat( " ", 4-%len( %val))%val%ansi( blue, high)~] %ansi( grey)%key %repeat( " ", 35-%len( %key))%if( %eval( %len( %key)>35) & %eval( %iskey( @slain, {%key})\2)=1, %crlf)%if( %eval( %iskey( @slain, {%key})\2)=0, %crlf)}}};#IF (%numkeys( @slain)=0) {#SAY %ansi( white)Nothing slain... get to work!!!}} "Slain"
#REGEX {^You have slain (.+?)(?:, retrieving the corpse)?\.$} {#ADDKEY slain {%1} %eval( %db( @slain, "%1")+1)}
#TRIGGER {^You have been slain by (*).$} {#ADDKEY deathto {%1} %eval( %db( @deathto, "%1")+1)}
#CLASS 0