;; Miscelaneous triggers for use in BatMUD
;; bat.org 23 (130.233.40.180 23)
;;                                                                            ;;
;; Triggers have a priority status.
;; Priorities 1-10 are kept for highliting text
;; Use priorities 11-20 for triggers
;; All triggers should allow fall-thru (-F) and be named, the more
;; desciptive the name the better (to prevent clashes)
;;                                                                            ;;
;;                                                                            ;;
;; Originally coded by Spid, changes by Jenny.
;;                                                                            ;;
;; Title
/def -F -p5 -t"Name: {*} {*} the {*} *" score_input=\
   /set my_name=%{2}%;\
   /set my_race=%{6}%;\
   /let jism_title=*is covered with Jism*%;\
   /if ({-5}=/{jism_title})\
;; Insert your fave title here
    @title Fetrid putrid%;\
   /endif
;; Castle
/def up = door u open ;;u ;;door d locked
/def down = door d open ;;d ;;door u locked
/def west = door w open ;;w ;;door e locked
/def east = door e open ;;e ;;door w locked

;; Friends
/set friends=[Dd]ecay|[Mm]aceo|[Bb]oggles|[Zz]agarus|[Ll]ictalon|[Bb]acklash|[Aa]rchenar|[Cc]rysty|[Aa]landra|[Cc ]ontinuity|[Ee]landra|[Pp]hantros|[Hh]ung|[Oo]sir|[Yy]agol|[Jj]adefang|[Ss]ian]|[Ss]cytale|[Pp]harm|[Gg]rand|[Mm]acala|[Hh]eze|[Ll]yrik|[Hh]aggis|[Kk]al|[Dd]argon|[Kk]ronos|[Kk]issarobotti|[Ww]hizz|[Kk]erad|[Ss]pid|[Ee]lvana|[Ss]armangoth|[Aa]rgee|[Mm]oss|[Kk]ato|[Ss]ly|[Ff]ishbert|[Aa]zolth|[Dd]emigoddess|[Hh]eadway|[Kk]uulio|[Kk]rzysiek|[Jj]enny|[Zz]orc|[Zz]oso|[Ss]aukkonen|[Jj]uki|[Rr]eyalp|[Mm]orglum|[Nn]oitatihtori|[Bb]moa|[Oo]rdos|[Tt]yphos|[Mm]ihkali|[Oo]ak|[Ee]ra|[Yy]oz|[Kk]haradus|[Mm]iigor|[Mm]erioli|[Ee]lero
/eval /def -F -p10 -P1Cmagenta -mregexp -t"((^| )(%{friends})( |$$))" friends

;; Important events
/def -F -p9 -aB -aCyellow -t"* tells* you '*" tell
/def -F -p9 -arB -aCred -t'* starts concentrating on a new offensive spell.' offensive
/def -F -p9 -aB -aCyellow -t'* has summoned *' summoned
/def -F -p8 -aB -aCyellow -t'When your eyes clear, * stands before you.' reloced
/def -F -p8 -aCbgyellow -aCred -t'Bank transfer from *' transfer
/def -F -p9 -aCbgcyan -t'You are so exhausted.' hurtmove
/def -F -p9 -aCred -t"* 'se on sarki nyt'" destroy_armour
/def -F -p9 -aBCyellow -aCbggreen -t"You feel like you just got slightly better *" improve_skill
/def -F -p9 -aBCmagenta -aCbgcyan -t"You feel your luck changing." improve_luck

;; Spells affecting players
/def -F -p9 -t"* is turned into a frog*" frogged= @party say %{1} is now a frog!
/def -F -p5 -t"* turns you into a frog." froggied= @party say rhiiibit! Ribbititit *croak* hriiibit!
/def -F -p5 -t"You SAVE against POISON." save_poison= @party say saved from poison

;; Gagging
/def -ag -hREDEF redefs

;; Colours
/def -F -P1Cwhite -mregexp -t'([Gg]lowing)' glowing
/def -F -P1BCred -mregexp -t'((^| )[Rr]ed( |$))' red
/def -F -P1Cblue -mregexp -t'([Bb]lue)' blue
/def -F -P1BCblack -mregexp -t"([Bb]lack)" black
/def -F -P1Cgreen -mregexp -t'([Gg]reen)' green
/def -F -P1Ccyan -mregexp -t'([Cc]yan)' cyan
/def -F -P1Cmagenta -mregexp -t'([Mm]agenta)' magenta
/def -F -P1BCyellow -mregexp -t'([Bb]rown)' brown
/def -F -P1BCwhite -mregexp -t'([Gg]rey)' grey
/def -F -P1Cyellow -mregexp -t'([Yy]ellow)' yellow
/def -F -P1Cwhite -mregexp -t'([Ww]hite)' white
/def -F -P1Cwhite -mregexp -t'([Ss]himmering)' shimmering
/def -F -P1BCmagenta -mregexp -t'([Pp]urple)' purple
/def -F -P1Cyellow -mregexp -t'([Gg]old)' gold
/def -F -P1Cwhite -mregexp -t'([Ss]ilver)' silver
/def -F -P1Cmagenta -mregexp -t'([Pp]ink)' pink

;; Shape
/def -F -p5 -P1BCwhite -mregexp -t"(in excellent shape)" excellent_shape
/def -F -p5 -P1BCwhite -mregexp -t"(in a good shape)" good_shape
/def -F -p5 -P1BCyellow -mregexp -t"(slightly hurt)" slightly_hurt
/def -F -p5 -P1BCgreen -mregexp -t"(noticeably hurt)" noticeably_hurt
/def -p6 -P1BCgreen -mregexp -t"(not in a good shape)" nigs
/def -F -p5 -P1BCmagenta -mregexp -t"(in bad shape)" bad_shape
/def -F -p5 -P1BCred -mregexp -t"(in very bad shape)" very_bad_shape
/def -F -p5 -P1Cred -mregexp -t"(near death)" near_death
/def -F -p5 -P1Cred -mregexp -t"(DEAD, R.I.P.)" dead_rip

;; Fire blasts
/def -p6 -aCbgred -aBCyellow -t'* lava blast hits *' lava_blast
/def -p6 -aCbgred -aBCyellow -t'* flame arrow hits *' flame_arrow
/def -p6 -aCbgred -aBCyellow -t'* firebolt hits *' firebolt
/def -p6 -aCbgred -aBCyellow -t'* fire blast hits *' fire_blast
/def -p6 -aCbgred -aBCyellow -t'* meteor swarm hits *' meteor_swarm
/def -p6 -aCbgred -aBCyellow -t'* meteor blast hits *' meteor_blast
/def -p6 -aCbgred -aBCyellow -t'* lava storm hits *' lava_storm

;; Cold blasts
/def -p6 -aCbgwhite -aBCcyan -t'* cold ray hits *' cold_ray
/def -p6 -aCbgwhite -aBCcyan -t'* chill touch hits *' chill_touch
/def -p6 -aCbgwhite -aBCcyan -t'* flaming ice hits *' flaming_ice
/def -p6 -aCbgwhite -aBCcyan -t'* darkfire hits *' darkfire
/def -p6 -aCbgwhite -aBCcyan -t'* cone of cold hits *' cone_cold
/def -p6 -aCbgwhite -aBCcyan -t'* icebolt hits *' ice_bolt
/def -p6 -aCbgwhite -aBCcyan -t'* hail storm hits *' hail_storm

;; Poison blasts
/def -p6 -aCbggreen -aBCred -t'* thorn spray hits *' thorn_spray
/def -p6 -aCbggreen -aBCred -t'* poison blast hits *' poison_blast
/def -p6 -aCbggreen -aBCred -t'* venom strike hits *' venom_strike
/def -p6 -aCbggreen -aBCred -t'* poison spray hits *' poison_spray
/def -p6 -aCbggreen -aBCred -t'* power blast hits *' power_blast
/def -p6 -aCbggreen -aBCred -t'* killing cloud hits *' killing_cloud
/def -p6 -aCbggreen -aBCred -t'* summon carnal spores hits *' carnal_spores

;; Magical blasts
/def -p6 -aCbgyellow -aBCred -t'* golden arrow hits *' golden_arrow
/def -p6 -aCbgyellow -aBCred -t'* magic missile hits *' magic_missile
/def -p6 -aCbgyellow -aBCred -t'* summon lesser spores hits *' lesser_spores
/def -p6 -aCbgyellow -aBCred -t'* levin bolt hits *' levin_bolt
/def -p6 -aCbgyellow -aBCred -t'* magic wave hits *' magic_wave
/def -p6 -aCbgyellow -aBCred -t'* summon greater spores hits *' greater_spores
/def -p6 -aCbgyellow -aBCred -t'* magic eruption hits *' magic_eruption

;; Acid blasts
/def -p6 -aCbgyellow -aBCgreen -t'* disruption hits *' disruption
/def -p6 -aCbgyellow -aBCgreen -t'* acid wind hits *' acid_wind
/def -p6 -aCbgyellow -aBCgreen -t'* acid arrow hits *' acid_arrow
/def -p6 -aCbgyellow -aBCgreen -t'* acid rain hits *' acid_rain
/def -p6 -aCbgyellow -aBCgreen -t'* acid ray hits *' arid_ray
/def -p6 -aCbgyellow -aBCgreen -t'* acid storm hits *' acid_storm
/def -p6 -aCbgyellow -aBCgreen -t'* acid blast hits *' acid_blast

;; Electric blasts
/def -p6 -aCbgblue -aBCyellow -t'* blast lightning hits *' blast_lightning
/def -p6 -aCbgblue -aBCyellow -t'* shocking grasp hits *' shocking_grasp
/def -p6 -aCbgblue -aBCyellow -t'* lightning bolt hits *' lightning_bolt
/def -p6 -aCbgblue -aBCyellow -t'* chain lightning hits *' chain_lightning1
/def -p6 -aCbgblue -aBCyellow -t'You hit * chain lightning' chain_lightning2
/def -p6 -aCbgblue -aBCyellow -t'* forked lightning hits *' forked_lightning
/def -p6 -aCbgblue -aBCyellow -t'* electrocution hits *' electrocution
/def -p6 -aCbgblue -aBCyellow -t'* storm lightning hits *' storm_lightning

;; Asphx blasts
/def -p6 -aCbgmagenta -aBCblue -t'* vacuumbolt hits *' vacuumbolt
/def -p6 -aCbgmagenta -aBCblue -t'* suffocation hits *' suffocation
/def -p6 -aCbgmagenta -aBCblue -t'* chaos bolt hits *' chaos_bolt
/def -p6 -aCbgmagenta -aBCblue -t'* vacuum ball hits *' vacuum_ball
/def -p6 -aCbgmagenta -aBCblue -t'* strangulation hits *' strangulation
/def -p6 -aCbgmagenta -aBCblue -t'* vacuum globe hits *' vacuum_globe
/def -p6 -aCbgmagenta -aBCblue -t'* blast vacuum hits *' blast_vacuum

;; Psi blasts
/def -p6 -aCbgcyan -aBCmagenta -t'* mind blast hits *' mind_blast
/def -p6 -aCbgcyan -aBCmagenta -t'* psibolt hits *' psi_bolt
/def -p6 -aCbgcyan -aBCmagenta -t'* psi blast hits *' psi_blast
/def -p7 -aCbgcyan -aBCmagenta -t'* mind disruption hits *' mind_disruption
/def -p6 -aCbgcyan -aBCmagenta -t'* psychic shout hits *' psychic_shout
/def -p6 -aCbgcyan -aBCmagenta -t'* psychic storm hits *' psychic_storm
/def -p6 -aCbgcyan -aBCmagenta -t'* crushes * mind with a powerful psychic attack!' psychic_crush
/def  -p6 -aCbgcyan -aBCmagenta -t'* paralyzes *' paralyzes

;; Other blasts
/def -p6 -aCbgblue -aBCwhite -t'* dispel evil hits *' dispel_evil
/def -p6 -aCbgblue -aBCwhite -t'* banish demons hits *' banish_demons
/def -p6 -aCbgblue -aBCwhite -t'* holy hand hits *' holy_hand
/def -p6 -aCbgblue -aBCwhite -t'* holy cross hits *' holy_cross
/def -p6 -aCbgwhite -aBCred -t'* casts harming spell on *' harming
/def -p6 -aCbgwhite -aBCcyan -t"* hoar frost hits *" hoar_frost

;; Ambush
/def -F -p6 -t'You cannot leave, you have been AMBUSHED.' ambush= @party say AMBUSHED!
;;/def -F -p6 -mregexp -t"(Your small size avoids a nasty ambush.|Your marvelous intellect avoids a nasty ambush.|Your keen senses note a disturbance seconds before the ambush!|Your knowledge about [A-Za-z '-]* tactics enables you to avoid the ambush.|You superb intelligence enables you to avoif the ambush.)" avoid_ambush1= @party say avoided ambush

;; Party
/def -F -p9 -t"* offers you membership to party:*" party_join= party join%;pss
;;/def -F -p9 -abCyellow -t"* is the new leader of the party." party_new_leader= party follow
/def -F -p9 -aBCyellow -t'You are the new leader of the party.' party_leader= party forcefollow all
/def -F -p9 -aBCyellow -t'lapses into unconsciousness from severe loss of blood.' unconscious= party say %{1} UNCONSCIOUS

/set generic_amount_list=(One|one|Two|two|Three|three|Four|four|Five|five|Six|six|[Ss]even|[Ee]ight|[Nn]ine|[Tt]en|[Mm]any|[Aa] small pile of|[Aa] pile of|[Aa] hill of|[Aa] mountain of|[0-9]*)
;; Greed
/def greed=\
  /if ({1}!~"on") \
    /undef greed_mith%;\
    /undef greed_bati%;\
    /undef greed_anip%;\
    /undef greed_plat%;\
    /undef greed_gold%;\
    /echo -aB -aCwhite ... TF info: Greed triggers (off)%; \
  /else \
    /def -F -p3 -P0 -mregexp -t'^%{generic_amount_list} mithril coin' greed_mith = get mithril%; \
    /def -F -p3 -P0 -mregexp -t'^%{generic_amount_list} batium coin' greed_bati = get batium%; \
    /def -F -p3 -P0 -mregexp -t'^%{generic_amount_list} anipium coin' greed_anip= get anipium%; \
    /def -F -p3 -P0 -mregexp -t'^%{generic_amount_list} platinum coin' greed_plat = get platinum%; \
    /def -F -p3 -P0 -mregexp -t'^%{generic_amount_list} gold coin' greed_gold = get gold%; \
    /echo -aB -aCwhite ... TF info: Greed triggers (on)%; \
  /endif

;; Crap money
/def -c0 -F -p5 -mregexp -t"^[0-9]+ coins \\(" crap_money=\
   /edit -c100 extra_crap_money%;\
   /repeat -1 1 /edit -c0 extra_crap_money%;\
   /while ({#})\
     /if ((regmatch(("silver|bronze|copper|tin|zinc|mowgles"), {1})) & (!(regmatch("platinum", {1}))))\
       /if ((substr({1},-1,1)=~",") | (substr({1},-1,1)=~")"))\
         /let crapmoney=$[substr({1},0,-1)]%;\
       /else \
         /let crapmoney=%{1}%;\
       /endif%;\
     drop %{crapmoney}%;\
     /endif%;\
     /shift%;\
   /done
/def -F -p5 -c0 -mregexp -t"\\[Cash:" extra_crap_money=\
   /while ({#})\
     /if ((regmatch(("silver|bronze|copper|tin|zinc|mowgles"), {1})) & (!(regmatch("platinum", {1}))))\
       /if ((substr({1},-1,1)=~",") | (substr({1},-1,1)=~")"))\
         /let crapmoney=$[substr({1},0,-1)]%;\
       /else \
         /let crapmoney=%{1}%;\
       /endif%;\
     drop %{crapmoney}%;\
     /endif%;\
     /shift%;\
   /done

;; Donates
;; Give approximation only. Valuable stuff doesn't donate for as much.

;;/set donated=0
;;/def -F -p2 -mregexp -t'which was worth ([0-9]+) gold' damogran_donates =\
;;   /set donated=$[donated +{P1}]%;\
;;   /echo -aB TF info: total amount donated %{donated}

;;/def -F -p2 -t"has donated stuff worth {*} gold" actual_donated=\
;;   /if ({1}=~"{my-name}")/set donated=%{6}%;/endif
;;/def -F -p5 -t"List of donaters:" start_donate_list= /set total_donated=0
;;/def -F -p3 -t"* has donated stuff worth {*} gold" total_donations= /set total_donated=$[{total_donated} + {6}]
;;/def donates=\
;;   /echo -aB TF info: your %% of total donates = $[({donated}*100)/{total_donated}]%%

;; Percolor and party trig belong to Spid@batmud.org
/def -i percolor =\
  /if ({2}!=0)\
    /set tmpvar=$[({1}*100)/{2}]%;\
  /else%;\
    /if ({1}>=0)\
      /set tmpvar=100%;\
    /else%;\
      /set tmpvar=0%;\
    /endif%;\
  /endif%;\
  /if (tmpvar>75)\
    /echo BCwhite%;\
  /elseif (tmpvar>50)\
    /echo BCyellow%;\
  /elseif (tmpvar>35)\
    /echo BCgreen%;\
  /elseif (tmpvar>20)\
    /echo BCmagenta%;\
  /elseif (tmpvar>10)\
    /echo BCred%;\
  /elseif (tmpvar<10)\
    /echo Cred%;\
  /endif
/def -i -p9 -ag -mregexp -t' ([\\-]*[0-9]+)\\([ ]*([\\-]*[0-9]+)\\) [ ]*([\\-]*[0-9]+)\\([ ]*([\\-]*[0-9]+)\\) [ ]*([\\-]*[0-9]+)\\([ ]*([\\-]*[0-9]+)\\) \\| [ ]*([0-9]+) \\| [ ]*([0-9]+) \\|$' pcolour=\
  /let TP2=$[pad({P2},4)]%;/let TP3=$[pad({P3},4)]%;/let TP4=$[pad({P4},4)]%;/let TP5=$[pad({P5},3)]%;/let TP6=$[pad({P6},3)]%;/let TP7=$[pad({P7},3)]%;/let TP8=$[pad({P8},12)]%;/echo -w -p %PL @{$(/percolor %P1 %P2)}%P1@{n}(@{BCwhite}%TP2@{n}) @{$(/percolor %P3 %P4)}%TP3@{n}(@{BCwhite}%TP4@{n}) @{$(/percolor %P5 %P6)}%TP5@{n}(@{BCwhite}%TP6@{n}) | %TP7 | %TP8 |
/def -i -h"PROMPT * * * * * >" prompt_colour=\
   /echo -p hp:@{$(/percolor %{1} %{2})}%{1}@{n} ep:@{$(/percolor %{3} %{4})}%{3}@{n} exp:%{5} >
/def -F -p5 -t"HELL ()." in_hell=/edit -c0 prompt_colour%;accept rais from %{auto_resser}%;accept rais from %{auto_raiser}
/def -F -p5 -t"You enter the corpse." outa_hell=/edit -c100 prompt_colour