/action {%0 chats to everybody, 'cpkwhere'} {cpkwhere} {cpkguard}
/action {%0 chats to everybody, 'loc %0'} {loc $0} {cpkguard}
/action {*** Press return%0} {/if {$cguard=1} {/cr}} {cpkguard}
/action {<%2hp %0m} {/if {$cguard=1 && $newwhere=1} {/if {$checkloc=1} {/var checkloc 0;CPKChan @ForeWhite()<@ForeBlue()Location@ForeWhite()>@ForeBlue(): @ForeCyan()$loccing @ForeBlue()isn't on where!!!};/var newwhere 0;compwhere}} {cpkguard}
/action {^[%7] - %0} {/if {$cguard=1} {/var wherename {@RTrim($7)} {cpkguard};/var whereloc {$0} {cpkguard};/itemadd Tempwhere $wherename;/if {$checkloc = 1 && $loccing == $wherename} {/var checkloc 0;CPKChan @ForeWhite()<@ForeBlue()Loc@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()----> @ForeYellow()$whereloc};/if {@InList(Tempwhere2,$wherename) == 0} {/var $wherename .. cpkguard;CPKChan @ForeYellow()$wherename @ForeBlue()has entered where.@ForeRed()};/var oldwhereloc {@Var($wherename)} cpkguard;/if {@InList(Tempwhere2,$wherename)=1 && $whereloc!=$oldwhereloc && $focus=1} {/var $wherename $0 cpkguard;CPKChan @ForeWhite()<@ForeBlue()Location Update@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()---->  @ForeYellow()$whereloc}}} {cpkguard}
/action {Players in your vicinity:} {/if {$cguard=1} {cleartempwhere};/var newwhere 1 cpkguard} {cpkguard}
/alias {cap %0} {/var capln {@Len($0)};/if {$capln>1} {/var {capped} {@Upper(@Left($0,1))@Lower(@Right($0,@Math(@Len($0)-1)))}} {/var capped {@Upper($0)}}} {cpkguard}
/alias {cguardoff} {/var cguard 0;CPKChan @AnsiBold()@ForeGreen()[@ForeBlue()CPK Guard @AnsiReset()@ForeCyan()Disabled@AnsiBold()@ForeGreen()];/unevent cpkguard} {cpkguard}
/alias {cguardon %0} {/if {@IsEmpty($0)=1} {/var cpkgtime 8} {/var cpkgtime $0};/var numwheres 0;/var cguard 1;CPKChan @AnsiBold()@ForeGreen()[@ForeBlue()CPK Guard @ForeYellow()v1.3 @ForeCyan()Enabled @ForeBlue(): @ForeYellow()$cpkgtime @ForeBlue()second watch@ForeGreen()];/unevent cpkguard;/event {cpkguard} {$cpkgtime} {/math {numwheres} {$numwheres+1};where} {cpkguard};/listadd {Tempwhere} {cpkguard};/clearlist Tempwhere;/listadd {Tempwhere2} {cpkguard};/clearlist Tempwhere2;/var newwhere 0 cpkguard;/var checkloc 0 cpkguard} {cpkguard}
/alias {cleartempwhere} {/clearlist Tempwhere} {cpkguard}
/alias {compwhere} {/if {$numwheres>1} {/if {@GetCount(Tempwhere2)>0} {/loop {1,@GetCount(Tempwhere2)} {/if {@InList(Tempwhere,@GetItem(Tempwhere2,$LoopCount)) = 0} {/var offwherep {@GetItem(Tempwhere2,$LoopCount)} {cpkguard};CPKChan @ForeRed()$offwherep @ForeBlue()has disappeared off where.@ForeRed()}}}};/clearlist Tempwhere2;/if {@GetCount(Tempwhere)>0} {/loop {1,@GetCount(Tempwhere)} {/itemadd Tempwhere2 @GetItem(Tempwhere,$LoopCount)}}} {cpkguard}
/alias {cpkwhere} {/if {$cguard=1} {listcomb Tempwhere;CPKChan @ForeWhite()<@ForeBlue()On Where@ForeWhite()>@ForeBlue(): @ForeGreen()$tmptotlist}} {cpkguard}
/alias {focusoff} {CPKChan @ForeYellow()Focus @ForeCyan()unactivated.@AnsiReset()@ForeBlack();/var focus 0} {cpkguard}
/alias {focuson} {CPKChan @ForeYellow()Focus @ForeCyan()activated.@AnsiReset()@ForeBlack();/var focus 1} {cpkguard}
/alias {listcomb %0} {/if {@GetCount($0)>1} {/var glistl 0;/var endstring @GetItem($0,1);/loop {1,@Math(@GetCount($0)-1)} {/math {glistl} {$glistl+1};/math {glistll} {$glistl + 1};/var endstring @ConCat($endstring, * @GetItem($0,$glistll))};/var tmptotlist $endstring};/if {@GetCount($0)=1} {/var {tmptotlist} {@GetItem($0,1)}};/if {@GetCount($0)=0} {/var {tmptotlist} {Empty}}} {cpkguard}
/alias {loc %0} {/if {$cguard=1} {/var checkloc 1;cap $0;/var loccing $capped}} {cpkguard}

/alias {CPKChan %7} /emoteall @AnsiBold()@ForeCyan()GUARD @AnsiBold()$7}

/alias {cpktime %6} {/var cpkgtime $6;;/showme {@AnsiBold()@ForeGreen()[@ForeBlue()CPK Guard @ForeYellow()v1.3 @ForeCyan()Enabled @ForeBlue(): @ForeYellow()$cpkgtime @ForeBlue()second watch@ForeGreen()]};/event {cpkguard} {$cpkgtime} {/math {numwheres} {$numwheres+1};where} {cpkguard}

/alias {cpkhelp} {showme Commands are: cpktime #, cguardon #, cguardoff, focuson/off}

/variable {cguard} {0} {}
/variable {checkloc} {0} {cpkguard}
/variable {cpkgtime} {8} {}
/variable {newwhere} {0} {cpkguard}
/variable {numwheres} {1} {}
/variable {offwherep} {Chevalier} {cpkguard}
/variable {oldwhereloc} {Lurking about} {cpkguard}
/variable {whereloc} {Lurking about} {cpkguard}
/variable {wherename} {Chevalier} {cpkguard}

/listadd {Tempwhere} {cpkguard}
/listadd {Tempwhere2} {cpkguard}