Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_s_whirlwindd.nss

@@ -0,0 +1,47 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Whirlwind: Move
+//:: Spell FileName PHS_S_Whirlwindd
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    A new spell.
+
+    On the caster item it is, and will allow the caster to select another location
+    to move the whirlwind too.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+void main()
+{
+    // Get director and target
+    object oCaster = OBJECT_SELF;
+    location lTarget = GetSpellTargetLocation();
+
+    // Get current whirlwind
+    object oWhirlwind = GetLocalObject(oCaster, "PHS_SPELL_WHIRLWIND_CURRENT");
+
+    // Check if valid
+    if(GetIsObjectValid(oWhirlwind))
+    {
+        // Need to check if it is still in control
+        if(GetLocalInt(oWhirlwind, "PHS_SPELL_WHIRLWIND_OUTOFCONTROL") == TRUE)
+        {
+            // Message mistake
+            FloatingTextStringOnCreature("*The whirlwind went out of range and is uncontrollable*", oCaster, FALSE);
+        }
+        else
+        {
+            // Message sucess
+            FloatingTextStringOnCreature("*You direct the whirlwind to a new location*", oCaster, FALSE);
+
+            // Set new location
+            SetLocalLocation(oWhirlwind, "PHS_SPELL_WHIRLWIND_LOCATION", lTarget);
+        }
+    }
+    else
+    {
+        // Message mistake
+        FloatingTextStringOnCreature("*You have no whirlwind to control*", oCaster, FALSE);
+    }
+}