Mercurial > hg > batmud > ggrtf
view ggrtf-nun.tf @ 684:6f0452997253
Fixed expiration.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 05 Oct 2007 17:28:52 +0000 |
parents | c31e63ec8c96 |
children | d1e8afda95a0 |
line wrap: on
line source
;; ;; GgrTF::Nun - Sisters of Las guild support @ BatMUD ;; (C) Copyright 2006-2007 Ealoren Pupunen & Matti Hämäläinen (Ggr) ;; ;; This file (triggerset) is Free Software distributed under ;; GNU General Public License version 2. ;; ;; NOTICE! This file requires GgrTF (version 0.6.0 or later) to be loaded. ;; /loaded GgrTF::Nun ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Bindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /if (opt_bindings=~"on")\ /prdefcbind -s"pfe" -c"Protection from Evil"%;\ /prdefcbind -s"sshield" -c"Soul Shield"%;\ /prdefcbind -s"st" -c"Saintly Touch" -q%;\ /prdefcbind -s"hh" -c"Holy Hand" -q%;\ /prdefcbind -s"de" -c"Dispel Evil" -q%;\ /prdefcbind -s"du" -c"Dispel Undead" -q%;\ /prdefcbind -s"how" -c"Holy Wind" -q%;\ /prdefcbind -s"flames" -c"Flames of Righteousness" -q%;\ /prdefcbind -s"haven" -c"Celestial Haven" -n%;\ /endif ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Fails & fumbles ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /prdeffail -c -F -t"Your halo crackles as you fumble the spell." /prdeffail -k -F -r -t"^OOPS, You should have used a pattern" /prdeffail -k -f -t"You fail to channel your god's power." /prdeffail -k -f -t"OUCH, you poke yourself with your needle." /prdefprot -i"nprayer" -n"!PRAYER!" -l"Nun Guild Prayer Hour" -r -q -u"^( +Sisters are called for Hour of Prayer\.|DINGG! DONGGG! DIINNGGGG! DOOOONNNGGGG! ...hour of prayer has started!)$" -d"^(\.+and a sudden REVELATION takes over you as Las responses to your pray\.|DINGG! DONGGG! DIINNGGGG! DOOOONNNGGGG! ...hour of prayer has ended!)$" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Warnings about turn rate ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /set nun_turn_warn=1 ; Sudden enlightment takes over you. ; Archangel Zaylie whispers in your ear, 'You should turn more undeads' ; Sudden enlightment takes over you. ; Archangel Falynn speaks to you, 'Las is not pleased. You should turn more ; undeads' /def -i -ag -mregexp -t"^Archangel .*You should turn more" gnun_turn_more =\ /if (nun_turn_warn >= 1)\ /mse should turn more undeads. [one warning left]%;\ /set nun_turn_warn=0%;\ /else \ /mse should turn more undeads NOW.%;\ /endif /def -i -ag -mregexp -t"^Angry voice of Las booms from the heavens, 'You have not turned in ages, you" gnun_las_mad =\ /mse struck down by Las! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Translate "nun turns" messages ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /def -i gnun_turns =\ /set nun_turn_warn=1%;\ /substitute -p %{1} (@{Cyellow}%{2}@{n}/@{BCgreen}%{3}@{n}) /def -i -mregexp -t"^You should defin[ai]tely turn more undeads.$" gnun_turns0 = /test gnun_turns({*},0,8) /def -i -msimple -t"You should turn more undeads." gnun_turns1 = /test gnun_turns({*},1,8) /def -i -msimple -t"You should turn some undeads in the near future." gnun_turns2 = /test gnun_turns({*},2,8) /def -i -msimple -t"Your turn rate is good, keep up the good work." gnun_turns3 = /test gnun_turns({*},3,8) /def -i -msimple -t"Your turn rate is excellent, the Gods are very pleased." gnun_turns4 = /test gnun_turns({*},4,8) /def -i -msimple -t"Your devotions in turning is admirable, good work sister!" gnun_turns5 = /test gnun_turns({*},5,8) /def -i -msimple -t"You have turned a horde of undeads, Las is pleased." gnun_turns6 = /test gnun_turns({*},6,8) /def -i -msimple -t"You have turned many undeads and thus made Las very happy." gnun_turns7 = /test gnun_turns({*},7,8) /def -i -msimple -t"You are feared amongst the undeads, thy are in favour of Las." gnun_turns8 = /test gnun_turns({*},8,8) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Beehive Maintenance ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /def -i gnun_combmaint =\ @@remove honeycomb from %{1} slot %{2}%;\ @@extract honey%;@@extract beewax%;\ @@insert honeycomb to %{1} slot %{2}%;\ @@clean %{1} /def -i -E(nun_beemaint==1) -p9999 -mregexp -t"^But honeycomb slot [0-9]+ is empty\." gnun_combend =\ /set nun_beemaint=0%;\ @@close %{nun_beehive} /def -i -E(nun_beemaint==1) -p9999 -mregexp -t"^You put the honeycomb to the slot ([0-9]+)\." gnun_combok =\ /let _bk=$[{P1}+1]%;\ /if (_bk < 9) /test gnun_combmaint(nun_beehive,_bk)%;/endif ;?/beemaint [hive number] ;!Performs beehive maintenance, extract honey and wax from honeycombs, clean beehive. /def -i beemaint =\ /if ({#} > 0)\ /set nun_beehive=beehive %{1}%;\ /else \ /set nun_beehive=beehive%;\ /endif%;\ /msq Maintaining beehive: @{BCgreen}%{nun_beehive}@{n}%;\ /set nun_beemaint=1%;\ @@open %{nun_beehive}%;\ /test gnun_combmaint(nun_beehive, 1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Miscellaneous ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Got purity /def -i -F -p9999 -msimple -t"You feel more pure and closer to Las." gnun_purity =\ /mse gains purity! All hail Las! ;; Lite 'list' at taskmaster /def -i -p9999 -msimple -t" | Task name | Stats |" gnun_list1 =\ /set nun_list_st=1%;\ /set nun_list_comp=0%;\ /set nun_list_notcomp=0 /def -i -Enun_list_st==1 -p9999 -msimple -t" | [ :) ] / [ :( ] = Completed / Not Completed |" gnun_list2 =\ /set nun_list_st=0%;\ /test substitute(" | @{Cgreen}Completed@{n}: @{BCgreen}$[pad(nun_list_comp,-3)]@{n} / @{Cred}Not Completed@{n}: @{BCred}$[pad(nun_list_notcomp)]@{n} |","",1) /def -i -Enun_list_st==1 -p9999 -mregexp -t"\| \[ :([()]) \]" gnun_list3 =\ /if ({P1}=~"(")\ /set nun_list_notcomp=$[nun_list_notcomp+1]%;\ /let _tc=red%;\ /else \ /set nun_list_comp=$[nun_list_comp+1]%;\ /let _tc=green%;\ /endif%;\ /substitute -p @{n}%{PL}| [ @{C%{_tc}}:%{P1}@{n} ]%{PR} ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Blast resists ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; It seems that many messages from nun blasts depends on relic ;;; used. Please, let me know (Ealoren Pupunen) what relic and what ;;; messages you get and I'll add those here. ;;; Now testing with: ;;; Held: A shappy maple cross (holy) aka Newbie Cross ;;; Held: a vial containing the tears of Oxtoth (holy) aka tears of Oxtoth ; Disabled, because the messages actually represent the damage rather ; than the resists directly... -- Ggr /def -i gnun_defde = ; /eval /def -i -p9999 -mregexp -t"^(Air crackles|Magical mist swirls|White light tangles) around you as dazzling flash erupts from your [A-Za-z ]+ and strikes %{2} upon ([A-Za-z ,.'-]+)." gnun_de_hit%{1} =\ ; /test prspellhit("dispel evil", {P2})%%%;\ ; /test prspresist(%{3}, {P2}) ;; Dispel evil 7th best (worst..) /test gnun_defde(7, "hard", 6) ;; Dispel evil 6th best /test gnun_defde(6, "mightily", 5) ;; Dispel evil 5th best /test gnun_defde(5, "with purifying glow", 4) ;; Dispel evil 4th best /test gnun_defde(4, "with blazing rage", 3) ;; Dispel evil 3th best /test gnun_defde(3, "with sheer force", 2) ;; Dispel evil 2nd best /test gnun_defde(2, "with terrific force", 1) ;; Dispel evil the best /test gnun_defde(1, "with immense power", 1) /def -i gnun_defst =\ /eval /def -i -p9999 -mregexp -t"^Your [A-Za-z ]+ (flashes enchantedly|hums celestial tunes) as a %{2} symbol of purify appears into the forehead of ([A-Za-z ,.'-]+)\." gnun_st_hit%{1} =\ /test prspellhit("saintly touch", {P2})%%%;\ /test prspresist(%{3}, {P2}) ;; Saintly touch worst (compares to DE "strikes hard") /test gnun_defst(7, "ashy", 6) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Task timer ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; FIXME! make these variables saved /set nun_task_n= /set nun_task_t=0 /set nun_task_c=0 ;?/ntask ;!Show currently active/started nun task. /def -i ntask =\ /if (nun_task_t > 0)\ /msq @{BCgreen}Nun task@{n} '@{Ccyan}%{nun_task_n}@{n}' running. Time spent: @{Cyellow}$[prgetstime(nun_task_t)]@{n} (@{Cred}%{nun_task_c}@{n} to complete)%;\ /else \ /msq @{BCgreen}No task started!@{n}%;\ /endif /def -i -p9999 -mregexp -t"^\* YOU STARTED TASK '([A-Za-z' ]+)', TIME TO COMPLETE: ([a-z0-9 ]+) \*$" gnun_task_started =\ /set nun_task_n=%{P1}%;/set nun_task_t=$[time()]%;/set nun_task_c=%{P2} /def -i -p9999 -mregexp -t"^\* CONGRATULATIONS! You have completed nun task '([A-Za-z' ]+)'\*$" gnun_task_completed =\ /msq @{BCgreen}Completed nun task@{n} '@{Ccyan}%{nun_task_n}@{n}'. Time spent: @{Cyellow}$[prgetstime(nun_task_t)]@{n}%;\ /set nun_task_n=%;/set nun_task_t=0%;/set nun_task_c=0 /def -i -p9999 -mregexp -t"^\* You have FAILED task '([A-Za-z' ]+)' \*" gnun_task_failed =\ /if ({P1}=~nun_task_n)\ /msq @{BCgreen}Failed nun task@{n} '@{Ccyan}%{nun_task_n}@{n}'. Time spent: @{Cyellow}$[prgetstime(nun_task_t)]@{n}%;\ /else \ /msq @{BCgreen}Failed nun task@{n} '@{Ccyan}%{P1}@{n}'.%;\ /endif%;\ /set nun_task_n=%;/set nun_task_t=0%;/set nun_task_c=0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; /np command to @@npray each partymember ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /def -i gnun_npray =\ /eval /set _npname=$$[gparty_%{1}_%{2}_s]%;\ /if (_npname!~"" & _npname!~set_plrname)\ /send @@npray %{_npname}%;\ /endif /def -i -P1BCgreen;2Cgreen -mregexp -t"^You make a quick prayer for ([A-Z][a-z]+), (who is a good example to others)\.$" gnun_pray_good /def -i -P1BCred;2Cred -mregexp -t"^You make a quick prayer for ([A-Z][a-z]+)'s soul, (but it's a lost cause)\.$" gnun_pray_evil /def -i np =\ /for _ccol 1 3 \ /for _crow 1 3 \ /test gnun_npray(_crow,_ccol) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Identify relic translator ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /def -i gnun_id_relic =\ /let _tpower=$[tolower{1}]%;\ /if (regmatch("(Adelice|Zilvia|Lisandra|Elonore)",{2})) /let _ttype=Holy Power%;\ /elseif (regmatch("(Dagmar|Malkah|Octavia|Samaria)",{2})) /let _ttype=Dispel Power%;\ /elseif (regmatch("(Trenna|Dorelle|Brandais|Wilona)",{2})) /let _ttype=Protective Power%;\ /else /let _ttype=St. %{2}%;/endif%;\ /substitute -p @{BCyellow}$[pad(_ttype,20)]@{n} @{BCred}==>@{n} @{BCgreen}%{_tpower}@{n} /def -i -p9999 -mregexp -t"^Dazzling white fume takes over relic as ([A-Za-z-]+) might of St. ([A-Z][a-z]+) reveals itself\.$" gnun_id_relic0 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^([A-Za-z-]+) power of St. ([A-Z][a-z]+) is bind to it\.$" gnun_id_relic1 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^([A-Za-z-]+) aura of St. ([A-Z][a-z]+)'s features enfolds it\.$" gnun_id_relic2 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^The ([A-Za-z-]+) magic of St. ([A-Z][a-z]+) streams through your hands\.$" gnun_id_relic3 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^Twinkling white glow with ([A-Za-z-]+) essence of St. ([A-Z][a-z]+) is bind to this holy artifact\.$" gnun_id_relic4 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^([A-Za-z-]+) zilvery force of St. ([A-Z][a-z]+) radiates from it\.$" gnun_id_relic5 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^Warmth of St. ([A-Z][a-z]+) rushes from relic in form of ([A-Za-z-]+) sparkles\.$" gnun_id_relic6 =\ /test gnun_id_relic({P2},{P1}) /def -i -p9999 -mregexp -t"^You sense ([A-Za-z-]+) glow of St. ([A-Z][a-z]+)\.$" gnun_id_relic7 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^([A-Za-z-]+) warmth belonging to St. ([A-Z][a-z]+) pulsates beneath the surface\.$" gnun_id_relic8 =\ /test gnun_id_relic({P1},{P2}) /def -i -p9999 -mregexp -t"^St. ([A-Z][a-z]+)'s spirit is ([A-Za-z-]+) with this artifact\.$" gnun_id_relic9 =\ /test gnun_id_relic({P2},{P1}) /def -i -p9999 -mregexp -t"^([A-Za-z-]+) strenght of St. ([A-Z][a-z]+) gushes from the core of relic\.$" gnun_id_relic10 =\ /test gnun_id_relic({P1},{P2}) ;/def -i -p9999 -mregexp -t"^\.$" gnun_id_relic8 =\ ; /test gnun_id_relic({P1},{P2})