/action {%4 is DEAD!!} {AmPm;/var ListName Kill;/var Name {$Pktype};addtolist $4} {ChLog}
/alias {listki %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Kill} {ChLog}
/listadd {Kill} {ChLog}
/itemadd {ChLogMain} {Kill} {ChLog}



/action {^[CLAN] You feel %4 say, '%5'} {AmPm;/var ListName Clan;/var Name $4;addtolist $5} {ChLog}
/action {^[TOWN] %4 says, '%5'.} {AmPm;/var ListName Clan;/var Name $4;addtolist $5} {ChLog}
/alias {listcl %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Clan} {ChLog}
/listadd {Clan} {ChLog}
/itemadd {ChLogMain} {Clan}



/action {^[FORM] %4 tells everyone, '%5'.} {AmPm;/var ListName Form;/var Name $4;addtolist $5} {ChLog}
/alias {listfr %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Form} {ChLog}
/listadd {Form} {ChLog}
/itemadd {ChLogMain} {Form}



/action {%4 gets %5 from the corpse of %6 on the ground.} {AmPm;/var ListName Give;/var Name {$4 gets};addtolist $5 from the corpse of $6} {ChLog}
/action {%4 takes %5 from %6.} {/if {@WordCount($4)=1 && @WordCount($6)=1} {AmPm;/var ListName Give;/var Name {$4 loots};addtolist $5 from $6}} {ChLog}
/action {^You get %5 from the corpse of %4 on the ground.} {AmPm;/var ListName Give;/var Name {Me};addtolist $5 from $4} {ChLog}
/alias {listgi %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Give} {ChLog}
/listadd {Give} {ChLog}
/itemadd {ChLogMain} {Give}



/action {%0You say, '%4'.} {AmPm;/var ListName Say;/var Name Me;addtolist $4} {ChLog}
/action {%4 says to %7, '%5'.} {AmPm;/var ListName Say;/var Name {$4 to $7};addtolist $5} {ChLog}
/action {%4 says, '%5'.} {/if {@WordCount($4)=1} {AmPm;/var ListName Say;/var Name $4;addtolist $5}} {ChLog}
/alias {listsa %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Say} {ChLog}
/listadd {Say} {ChLog}
/itemadd {ChLogMain} {Say}



/action {%0 telepaths you, '%2'.} {/if {@TextColor($0)==12} {AmPm;/var ListName Tell;/var Name $0;addtolist $2}} {ChLog}
/action {^You telepath %0, '%1'.} {AmPm;/var ListName Tell;/var Name {To $0};addtolist $1} {ChLog}
/alias {listte %9} {/var OddColor @AnsiReset()@ForeCyan() ChLog;/var EvenColor @AnsiBold()@ForeCyan() ChLog;showlist $9 Tell} {ChLog}
/listadd {Tell} {ChLog}
/itemadd {ChLogMain} {Tell}



/listadd {ChLogMain} {ChLog}


/alias {ccgrep %0} {/empty GrepTemp;/loop {2,@WordCount($0)} {/var GrepTemp @ConCat($GrepTemp, @Word($0,$LoopCount))};/var GrepTemp @LTrim($GrepTemp);/empty ChanTemp;/loop {1,@GetCount(@Word($0,1))} {/if {@StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper($GrepTemp)) != -1} {/var ChanTemp @ConCat($ChanTemp,@Chr(10)@Mid(@GetItem(@Word($0,1),$LoopCount),10,@Math(@Len(@GetItem(@Word($0,1),$LoopCount))-10)))}};/emoteall @Chr(10)@AnsiBold()@ForeYellow()***Search List @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,1)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow() for the string: @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()$GrepTemp@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow()***@AnsiReset()$ChanTemp} {ChLog}
/alias {ccgrepa %0} {/empty ChanTemp;/loop {1,@GetCount(@Word($0,1))} {/if {@StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper(@Word($0,2))) != -1 && @StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper(@Word($0,3))) != -1} {/var ChanTemp @ConCat($ChanTemp,@Chr(10)@Mid(@GetItem(@Word($0,1),$LoopCount),10,@Math(@Len(@GetItem(@Word($0,1),$LoopCount))-10)))}};/emoteall @Chr(10)@AnsiBold()@ForeYellow()***Search List @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,1)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow() for the string: @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,2) @AnsiReset()@ForeBlue()AND@AnsiBold()@ForeCyan() @Word($0,3)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow()***@AnsiReset()$ChanTemp} {ChLog}

/alias {cgrep %0} {/empty GrepTemp;/loop {2,@WordCount($0)} {/var GrepTemp @ConCat($GrepTemp, @Word($0,$LoopCount))};/var GrepTemp @LTrim($GrepTemp);/showme {@Chr(10)@AnsiBold()@ForeYellow()***Search List @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,1)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow() for the string: @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()$GrepTemp@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow()***@AnsiReset()@Chr(10)};/loop {1,@GetCount(@Word($0,1))} {/if {@StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper($GrepTemp)) != -1} {/showme {@Mid(@GetItem(@Word($0,1),$LoopCount),10,@Math(@Len(@GetItem(@Word($0,1),$LoopCount))-10))}}}} {ChLog}
/alias {cgrepa %0} {/showme {@Chr(10)@AnsiBold()@ForeYellow()***Search List @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,1)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow() for the string: @AnsiReset()@ForeBlue()[@AnsiBold()@ForeCyan()@Word($0,2) @AnsiReset()@ForeBlue()AND@AnsiBold()@ForeCyan() @Word($0,3)@AnsiReset()@ForeBlue()]@AnsiBold()@ForeYellow()***@AnsiReset()@Chr(10)};/loop {1,@GetCount(@Word($0,1))} {/if {@StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper(@Word($0,2))) != -1 && @StrStr(@Upper(@StripAnsi(@GetItem(@Word($0,1),$LoopCount))),@Upper(@Word($0,3))) != -1} {/showme {@Mid(@GetItem(@Word($0,1),$LoopCount),10,@Math(@Len(@GetItem(@Word($0,1),$LoopCount))-10))}}}} {ChLog}


/alias {AmPm} {/if {@Len(@Minute()) < 2} {/var {AmPmMinute} {0@Minute()}} {/var {AmPmMinute} {@Minute()}};/if {@Hour() < 12 && @Hour()!=0} {/var {AmPm} {@AnsiBold()@ForeCyan()@Hour():@Var(AmPmMinute)am @AnsiBold()@ForeCyan()@Day()@AnsiReset()/@AnsiBold()@ForeCyan()@Month()@AnsiReset()/@AnsiBold()@ForeCyan()@Right(@Year(),2)}};/if {@Hour() > 12 && @Hour() != 0} {/var {AmPm} {@AnsiBold()@ForeCyan()@Math(@Hour()-12):@Var(AmPmMinute)pm @AnsiBold()@ForeCyan()@Day()@AnsiReset()/@AnsiBold()@ForeCyan()@Month()@AnsiReset()/@AnsiBold()@ForeCyan()@Right(@Year(),2)}};/if {@Hour()==12} {/var {AmPm} {@AnsiBold()@ForeCyan()12:@Var(AmPmMinute)pm @AnsiBold()@ForeCyan()@Day()@AnsiReset()/@AnsiBold()@ForeCyan()@Month()@AnsiReset()/@AnsiBold()@ForeCyan()@Right(@Year(),2)}};/if {@Hour()==0} {/var {AmPm} {@AnsiBold()@ForeCyan()12:@Var(AmPmMinute)am @AnsiBold()@ForeCyan()@Day()@AnsiReset()/@AnsiBold()@ForeCyan()@Month()@AnsiReset()/@AnsiBold()@ForeCyan()@Right(@Year(),2)}}} {ChLog}
/alias {addtolist %9} {/if {@GetCount($ListName) >= $MaxLog} {/itemdel $ListName 1};/itemadd {$ListName} {@Time()@AnsiBold()@ForeBlue()[@Var(AmPm)@AnsiBold()@ForeBlue()]@AnsiBold()@ForeBlue()[@ForeCyan()$Name@ForeBlue()]@AnsiBold()@ForeGreen() $9}} {ChLog}

/alias {showlist %9} {/var NumTemp @Word($9,1);/showme {@Chr(10)@AnsiBold()@ForeMagenta()*** Last @ForeYellow()@Word($9,1)/@GetCount(@Word($9,2))@ForeMagenta() logged @ForeYellow()@Word($9,2)s @ForeMagenta()***};/empty ChanTemp;/loop {@Math(@GetCount(@Word($9,2))-@Word($9,1)+1),@GetCount(@Word($9,2))} {/var ChanTemp @ConCat($ChanTemp,@Chr(10)@Right(@GetItem(@Word($9,2),$LoopCount),@Math(@Len(@GetItem(@Word($9,2),$LoopCount))-10)))};/showme {$ChanTemp}} {ChLog}
/alias {spamchat %9} {/var NumTemp @Word($9,1);/empty ChanTemp;/loop {@Math(@GetCount(@Word($9,2))-@Word($9,1)+1),@GetCount(@Word($9,2))} {/var ChanTemp @ConCat($ChanTemp,@Chr(10)@Right(@GetItem(@Word($9,2),$LoopCount),@Math(@Len(@GetItem(@Word($9,2),$LoopCount))-10)))};/emoteall @Chr(10)@AnsiBold()@ForeMagenta()*** Last @ForeYellow()@Word($9,1)/@GetCount(@Word($9,2))@ForeMagenta() logged @ForeYellow()@Word($9,2)s @ForeMagenta()***$ChanTemp} {ChLog}



/variable {MaxLog} {700} {ChLog}



/alias {chloginfo} {/showme {@AnsiBold()@ForeMagenta()Channel Log List Amounts};@CommandToList(ChLogMain,/showme {@AnsiBold()@ForeGreen()$ListItem @AnsiBold()@ForeYellow()@PadLeft(@GetCount($ListItem), ,@Math(10-@Len($ListItem)))})} {ChLog}
/alias {savechlog} {/writeg {ChLogT.txt} {ChLog}} {ChLog}