From ac8128e029378c5f66f52062262a83b919a17030 Mon Sep 17 00:00:00 2001 From: mekolat Date: Wed, 9 Jul 2014 23:00:02 -0400 Subject: Split magic files --- world/map/conf/magic-misc.sex | 155 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 155 insertions(+) create mode 100644 world/map/conf/magic-misc.sex (limited to 'world/map/conf/magic-misc.sex') diff --git a/world/map/conf/magic-misc.sex b/world/map/conf/magic-misc.sex new file mode 100644 index 00000000..97263a03 --- /dev/null +++ b/world/map/conf/magic-misc.sex @@ -0,0 +1,155 @@ +"--------------------------------------------------------------------------------" +"Special-purpose quasispells" +"--------------------------------------------------------------------------------" +(SPELL (NONMAGIC SILENT) marriage "marry" (PC target) + (=> + (GUARD + (REQUIRE + (|| + (is_in + (location caster) + (@+ + (@ "014-1.gat" 28 39) + 8 + 6)) + (is_in + (location caster) + (@+ + (@ "021-2.gat" 20 25) + 4 + 4))))) + (EFFECT + (IF (== target caster) + (ABORT)) "no valid target or tried to marry self?" + (IF (< + (level caster) + MIN_MARRY_LEVEL) + (BLOCK + (message caster + (+ + (+ "You must be level " MIN_MARRY_LEVEL) + " or higher to marry!")) + (ABORT))) + (IF (< + (level target) + MIN_MARRY_LEVEL) + (BLOCK + (message caster + (+ + (+ "Your partner must be level " MIN_MARRY_LEVEL) + " or higher to marry!")) + (ABORT))) + (IF (== + (partner caster) + target) + (BLOCK + (message caster + (+ + (+ "You and " + (name_of target)) + " are already married.")) + (ABORT))) + (IF (is_married caster) + (BLOCK + (message caster "You are already married!") + (ABORT))) + (IF (is_married target) + (BLOCK + (message caster + (+ + (name_of target) + " is already married.")) + (ABORT))) + (IF (!= + (distance + (location caster) + (location target)) + 1) + (BLOCK + (message caster "You need to stand next to each other.") + (ABORT))) + (IF (|| + (== + (count_item caster "WeddingRing") + 0) + (== + (count_item target "WeddingRing") + 0)) + (BLOCK + (message caster "You must both be wearing your wedding rings!") + (ABORT))) + (SET script_target target) + (SCRIPT "{ + announce @caster_name$ + \" is asking \" + strcharinfo(0) + \" for marriage.\", 2; + mes @caster_name$ + \" wishes to marry you.\"; + mes \"Do you accept?\"; + next; + menu + \"Yes, I do!\", L_yes, + \"No.\", L_Close; + + L_yes: + if (marriage(@caster_name$)) + announce @caster_name$ + \" and \" + strcharinfo(0) + \" are now married!\", 0; + goto L_Close; + + L_Close: + close; + }") + (IF (not + (is_married caster)) + (message caster + (+ + (name_of target) + " turned down your marriage offer.")))))) + +(SPELL (LOCAL) mouboo-groan "#g" () + (=> + (GUARD + (MANA 1) + (REQUIRE + (== + (name_of caster) + "MOUBOOTAUR"))) + (EFFECT + (FOREACH PC p + (rbox + (location caster) + 200) + (SET distance + (rdistance + (location caster) + (location p)))) + (IF (< distance 15) + (message p "The moubootaur's groaning rings in your ears!") + (IF (< distance 70) + (message p "You hear a loud groaning noise, not far away...") + (message p "You hear an odd groaning noise in the distance...")))))) + +(SPELL (LOCAL) mouboo-smell "#s" () + (=> + (GUARD + (MANA 1) + (REQUIRE + (== + (name_of caster) + "MOUBOOTAUR"))) + (EFFECT + (WAIT 30000) + (FOREACH PC p + (rbox + (location caster) + 30) + (message p "You notice a strange smell all around you."))))) + +"--------------------------------------------------------------------------------" +"Kill the GM event spell" +"--------------------------------------------------------------------------------" +(SPELL (NONMAGIC) killgm0 "#pullrabbit" () + (=> + (REQUIRE + (is_equipped caster "MagicGMTopHat")) + (EFFECT + (SCRIPT "{ + callfunc \"ActivateMagicGMTophat\"; + }")))) -- cgit v1.2.3-60-g2f50