blob: ddc7302b054d289b5fbd6f15c25a81e807c4736e (
plain) (
tree)
|
|
(PROCEDURE hug_tree (target)
(IF (||
(||
(||
(||
(||
(||
(||
(||
(== target "")
(== target "tree"))
(== target "tree*"))
(== target "Tree"))
(== target "Tree*"))
(== target "druid"))
(== target "druid*"))
(== target "Druid"))
(== target "Druid*"))
(SCRIPT "{
set @flag, 2;
callfunc \"QuestTreeTrigger\";
}")))
(SPELL (NONMAGIC) hug0 "hug" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
(SPELL (NONMAGIC) hug1 "*hug*" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
(SPELL (NONMAGIC) hug2 "*hug" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
(SPELL (NONMAGIC) hug3 "hugs" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
(SPELL (NONMAGIC) hug4 "*hugs*" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
(SPELL (NONMAGIC) hug5 "*hugs" (STRING target)
(=>
(REQUIRE
(||
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree0#_M")))
1)
(<=
(rdistance
(location caster)
(location
(npc "#DruidTree1#_M")))
1)))
(EFFECT
(CALL hug_tree target))))
"--------------------------------------------------------------------------------"
"Illia spell"
"--------------------------------------------------------------------------------"
(SPELL (NONMAGIC) illia0 "#catalazuli" ()
(=>
(REQUIRE
(==
(rdistance
(location caster)
(location
(npc "#Power Circle")))
0))
(EFFECT
(SCRIPT "{
callfunc \"StartChannelling\";}
"))))
|