Initial upload

Initial upload

_mod/_module/nss/scrollofdarkritu.nss

@@ -0,0 +1,44 @@
+// Scroll of Dark Ritual
+#include "rtsh_multiplay"
+#include "hos_alignment"
+void fnConvert(object oPC);
+void fnChant(object oPlace,object oPC);
+
+void main()
+{
+   object oPC=GetItemActivator();
+   object oPlace;
+   DelayCommand(4.0,fnConvert(oPC));
+   oPlace=CreateObject(OBJECT_TYPE_PLACEABLE,"plc_invisobj",GetLocation(oPC));
+   fnChant(oPlace,oPC);
+}
+
+void fnChant(object oPlace,object oPC)
+{ // chanting
+  AssignCommand(oPlace,PlaySound("as_pl_evilchantm"));
+  if (GetItemPossessedBy(oPC,"SoulToken")!=OBJECT_INVALID)
+  {
+    DelayCommand(5.0,fnChant(oPlace,oPC));
+  }
+  else
+  {
+    DestroyObject(oPlace);
+  }
+} // fnChant()
+
+void fnConvert(object oPC)
+{ // convert the tokens
+  object oItem=GetItemPossessedBy(oPC,"SoulToken");
+  effect eVFX=EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE);
+  int nMana=fnGetTeamMana(oPC);
+  if (oItem!=OBJECT_INVALID)
+  { // convert
+    DestroyObject(oItem);
+    ApplyEffectToObject(DURATION_TYPE_INSTANT,eVFX,oPC,1.5);
+    nMana=nMana+25;
+    fnSetTeamMana(oPC,nMana);
+    SendMessageToPC(oPC,"25 mana converted from soul.  Current pool of mana is "+IntToString(nMana)+".");
+    AdjustAlignmentPartyProtected(oPC,ALIGNMENT_EVIL,5);
+    DelayCommand(1.6,fnConvert(oPC));
+  } // convert
+} // fnConvert()