#nop Pk-trigger systems for Arctic.mud.org
#nop Usable on tintin++1.5 (tested on 1.64)
#nop lav@iki.fi
#nop
#nop Support-aliases
#alias {nil} {#nop}
#alias {dost1} {#if {$hunt == 0} st}
#alias {st} {stand;#if $canfly fly}
#alias {dosummoned} {nil}
#nop
#nop beta-system (unused)
#nop
#alias targa {#alias 00 {#act %%1 {0;000}};#alias 000 {#unact %%1};#alias 0  {dokill %%1}}
#alias targb {#alias 99 {#act %%1 {9;999}};#alias 999 {#unact %%1};#alias 9  {dokill %%1}}
#alias targc {#alias 88 {#act %%1 {8;888}};#alias 888 {#unact %%1};#alias 8  {dokill %%1}}
#alias targd {#alias 77 {#act %%1 {7;777}};#alias 777 {#unact %%1};#alias 7  {dokill %%1}}
#nop
#nop -----------
#nop iota-system
#nop -----------
#nop 
#alias dokill {#if $hunt {#var hunt 0;bash %1;#alias + bash %1;tab %1}}
#alias dosettarg {#act {^%%1 arrives from} dokill %1;#act {^%%1 flies in} dokill %1;#act {%%1%0 here.} dokill %1;#act {carrying %%1.} dokill %1}
#alias rempk1 {#unact *arrives from*;#unact *flies in*;#unact * here.*;#unact *carrying*}
#alias pk1 {#var hunt 1;dosettarg %1 dummy}
#alias unpk1 {#unact *%1*}
#alias pkreport {#act *carrying*.;#alias bash;#var hunt} 
#nop
#nop -- Prevent scan from triggering system
#nop
#alias scan     {#if {$hunt} {offpk;setexits scanover};ScaN}
#alias scanover {onpk}
#alias doexits2 nil
#alias doexits  {doexits2;#alias doexits2 nil;#unact {^%1H %2V %3C %4>}}
#alias setexits {#act {^%1H %2V %3C %4>} {doexits};#alias doexits2 %0}
#nop
#nop //exit-aliases above shared with Heal-trigger system
#nop
#nop -- Prevent corpses from trigger the system
#nop
#act {corpse of %1 lying here.} {nil} {2}
#nop
#nop ---Protect from tell-triggers---
#nop
#act {^%1 tells you } {nil} {2}
#act {^%1 shouts } {nil} {2}
#nop
#nop ---Usage---
#nop
#nop
#alias onpk {#var hunt 1}
#alias offpk {#var hunt 0}
#alias pon onpk
#alias poff offpk
#alias rempk rempk1
#alias pk pk1
#alias unpk unpk1
#alias pks pkreport
#alias bbl #alias bash cbli
#alias bfs #alias bash cfs
#alias bhm #alias bash chm
#alias bab #alias bash cab
#alias bde #alias bash cde
#alias bfe #alias bash cfe
#alias bki #alias bash kill
#alias blo #alias bash look
#alias bok #alias bash oca kill
#alias bre #alias bash recite recall me
#alias bobhm #alias bash {oca kill %0;chm %0}
#alias bobab #alias bash {oca kill %0;cab %0}
#alias bob #alias bash {oca bash %0}
#alias bobhm #alias bash {oca bash %0;chm %0}
#alias bobab #alias bash {oca bash %0;cab %0}
#alias bok {#alias bash oca kill}
#alias bokbl {#alias bash {oca kill %0;cbli %}}
#alias bokdm {#alias bash {oca kill %0;cdm %0}}
#alias bokfl {#alias bash {oca kill %0;cfl %0}}
#alias bokfs {#alias bash {oca kill %0;cfs %0}}
#alias bokhp {#alias bash {oca kill %0;chp %0}}
#alias bokha {#alias bash {oca kill %0;cha %0}}
#alias bokki {#alias bash {oca kill %0;kill %0}}
#alias boklo {#alias bash {look %0}
#nop
#nop ---Random actions---
#nop
#act {^%1 appears in a puff of smoke.} {#alias + bash %1}
#act {^%1 appears in the middle of the room.} {look %1;#alias + bash %1}
#act {^Some smoke blows into the room and slowly forms into %1.} {look %1;#alias + bash %1}
#action {'%1 has summoned you!} {nil} {2}
#action {^'%1 has summoned you!} {nil} {2}
#action {^%1 has summoned you!} {dosummoned} {5}
#nop
#nop
#action {^You are sent} {dost} {5}
#action {^You are sent sprawling as } {dost} {5}
#action {^You are sent SPRAWLING as } {dost} {5}
#nop
#nop --Extended usage
#alias setloot {#action {^%1 is dead!} {get %%2 %%1} {4}
#alias loots {#act {*is dead*}}