/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;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()Location@ForeWhite()>@ForeBlue(): @ForeCyan()$loccing @ForeBlue()isn't on where!!!};/var newwhere 0;compwhere}} {cpkguard}
/action {^[%7] - %0} {/if {$cguard=1} {/var {wherefired}{1};/var wherename {@RTrim($7)} {cpkguard};/var whereloc {$0} {cpkguard};/itemadd Tempwhere $wherename;/if {$checkloc = 1 && $loccing == $wherename} {/var checkloc 0;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()Location@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()----> @ForeYellow()$whereloc};/if {@InList(Tempwhere2,$wherename) == 0} {/var $wherename .. cpkguard;/chatall @AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @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;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()Location Update@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()---->  @ForeYellow()$whereloc}}} {cpkguard}
/action {^[%7 %1]}{/if {@Len($7 $1) == 20 && $wherefired = 0}{/if {$cguard=1} {/var wherename {@RTrim($7)} {cpkguard};/var whereloc { } {cpkguard};/itemadd Tempwhere $wherename;/if {$checkloc = 1 && $loccing == $wherename} {/var checkloc 0;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()Location@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()----> @ForeYellow()$whereloc};/if {@InList(Tempwhere2,$wherename) == 0} {/var $wherename .. cpkguard;/chatall @AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @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;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()Location Update@ForeWhite()>@ForeBlue(): @ForeCyan()$wherename @ForeBlue()---->  @ForeYellow()$whereloc}}}{}}{cpkguard}
/action {A shimmering rift appears in the air before you and %0 steps out.} {/if {$cguard=1} {/emotea @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()PhaseReport@ForeWhite()> @ForeYellow()$0 @ForeBlue()has @ForeRed()Phased Me! $myroom}} {cpkguard}
/action {At %0 carrying %1, banks slowly and descends in small circles until they land.} {/if {$cguard=1} {/emotea @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()]@ForeWhite()<@ForeBlue()Dragon IN/OUT@ForeWhite()>@ForeYellow() $1@ForeBlue() just @ForeRed()Landed!.}} {cpkguard}
/action {Players in your vicinity:} {/if {$cguard=1} {cleartempwhere};/var newwhere 1 cpkguard} {cpkguard}
/action {You focus your concentration, and block an attempt to phase by %0.} {/if {$cguard=1} {/emotea @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()PhaseReport@ForeWhite()> @ForeYellow()$0 @ForeBlue()tried to phase.}} {cpkguard}
/action {[CPKGuard] %0 has entered where.}{/10 /bell}{cpkbell}
/action {[CPKGuard] %0 has disappeared off where.}{/10 /bell}{cpkbell}
/alias {bellon}{/chata @AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeRed()BELL @ForeBlue()has been turned @ForeCyan()on;/enablegroup cpkbell}{cpkguard}
/alias {belloff}{/chata @AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeRed()BELL @ForeBlue()has been turned @ForeCyan()off;/disablegroup cpkbell}{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;/emoteall @Chr(10)@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;/emoteall @Chr(10)@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};/var {wherefired}{0};/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};/chatall @AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @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 {cpkhelp} {/showme {@Chr(10)@AnsiReset()@ForeCyan()# @AnsiBold()@ForeWhite()CPKGuard Help@Chr(10)@ForeYellow()cguardon <> @ForeWhite()- Turns on CPKGuard for every <> seconds, if time not specified it uses 8 as a default@Chr(10)@ForeYellow()cguardoff @ForeWhite()- Turns off CPKGuard@Chr(10)@ForeYellow()cpkhist @ForeWhite()- shows CPKGuard version history@Chr(10)@ForeYellow()focuson @ForeWhite()- turns location focus on@Chr(10)@ForeYellow()focusoff @ForeWhite()- turns location focus off@Chr(10)@ForeYellow()loc <> @ForeWhite()- show location of a person@Chr(10)@ForeYellow()cpkwhere @ForeWhite()- shows all people on where@Chr(10)@AnsiReset()@ForeCyan()#@AnsiBold()@ForeWhite() Added@Chr(10)@ForeYellow()Phase Report @ForeWhite()- automatically on@Chr(10)@ForeYellow()Fog Report @ForeWhite()- automatically on@Chr(10)@ForeYellow()Dragon IN/OUT@ForeWhite() - automatically on}} {cpkguard}
/alias {cpkhist} {/showme {@Chr(10)@AnsiReset()@ForeCyan()# @AnsiBold()@ForeWhite()CPKGuard Version History@Chr(10)@ForeYellow()1.0@Chr(10)@ForeWhite()- basic script setup,added cpkwhere,loc,input/output of all people@Chr(10)@Chr(10)@ForeYellow()1.1@Chr(10)@ForeWhite()-fixed bug for when no one was on where@Chr(10)-added version history@Chr(10)@Chr(10)@ForeYellow()1.2@Chr(10)@ForeWhite()-fixed bug with removing ppl off where spontaneously I think@Chr(10)-added focuson/focusoff commands for location updates@Chr(10)-fixed listcombine to not screw up when no one on where@Chr(10)@Chr(10)@ForeYellow()1.3@Chr(10)@ForeWhite()-added Phase report@Chr(10)-added Fog report@Chr(10)-added Dragon IN/OUT report@Chr(10)@Chr(10)@ForeBlue()Thanks to @ForeYellow()Tacony, Hazelrah, and Ontarious @ForeBlue()for bugtesting.}} {cpkguard}
/alias {cpkwhere} {/if {$cguard=1} {listcomb Tempwhere;/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeWhite()<@ForeBlue()On Where@ForeWhite()>@ForeBlue(): @ForeGreen()$tmptotlist}} {cpkguard}
/alias {focusoff} {/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @ForeYellow()Focus @ForeCyan()unactivated.@AnsiReset()@ForeBlack();/var focus 0} {cpkguard}
/alias {focuson} {/emoteall @Chr(10)@AnsiBold()@ForeGreen()[@ForeBlue()CPKGuard@ForeGreen()] @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}
/variable {wherefired}{0} {cpkguard}
/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}