Merged redundant hak files

Merged redundant hak files. Moved hak scripts into module. Updated gitignore. Full Compile. Added release folder & archive.
2024-12-12 15:02:17 -05:00
parent f58f9a29b4
commit e2f4ba74d5
3227 changed files with 52239 additions and 55 deletions
--- a/_mod/_module/nss/rtsa_ai_birdmsg.nss
+++ b/_mod/_module/nss/rtsa_ai_birdmsg.nss
@@ -0,0 +1,97 @@
+///////////////////////////////////////////////////////////////////////////////////
+// REAL TIME STRATEGY ADVENTURE - Kit
+// FILE: rtsa_ai_birdmsg
+// NAME:This is the script pushed onto messenger birds.
+// SCRIPTED BY: Deva Bryson Winblood
+// DATE:7/18/2003
+///////////////////////////////////////////////////////////////////////////////////
+#include "rtsa_headerl"   // lists
+#include "rtsa_headere"   // errors and debugging
+
+void main()
+{
+  object oMe=OBJECT_SELF;
+  int nSState=GetLocalInt(oMe,"nState"); // sub state
+  string sID=GetLocalString(oMe,"sTeamID"); // teamID
+  object oDest=GetLocalObject(oMe,"oDest");
+  object oItem=GetItemPossessedBy(oMe,"rtsa_message");
+  effect eVFX;
+  object oMod=GetModule();
+  string sPre;
+  object oOb;
+  int nWeight;
+  int nErr;
+  switch (nSState)
+  { // bird state
+    case 0: { // delay
+      fnDebug("["+GetName(oMe)+"] Initialize actions");
+      SetLocalInt(oMe,"nState",1);
+      DelayCommand(GetLocalFloat(oMe,"fDelay"),SetLocalInt(oMe,"nState",2));
+      break;
+    } // delay
+    case 1: { // wait state
+      fnDebug("["+GetName(oMe)+"] Wait State");
+      break;
+    } // wait state
+    case 2: { // do disappear
+      fnDebug("["+GetName(oMe)+"] Disappear");
+      eVFX=EffectDisappearAppear(GetLocation(oDest));
+      ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eVFX,oMe,5.0);
+      SetLocalInt(oMe,"nState",1);
+      DelayCommand(6.0,SetLocalInt(oMe,"nState",3));
+      break;
+    } // do disappear
+    case 3: { // do appear
+      fnDebug("["+GetName(oMe)+"] Appear");
+      eVFX=EffectAppear();
+      ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eVFX,oMe,5.0);
+      SetLocalInt(oMe,"nState",1);
+      DelayCommand(6.0,SetLocalInt(oMe,"nState",4));
+      break;
+    } // do appear
+    case 4: { // drop message
+      fnDebug("["+GetName(oMe)+"] Drop Message");
+      if (oItem!=OBJECT_INVALID)
+      { // drop message
+        AssignCommand(oMe,ActionPutDownItem(oItem));
+        AssignCommand(oMe,ActionDoCommand(PlayVoiceChat(VOICE_CHAT_BATTLECRY1)));
+        DelayCommand(5.0,SetLocalInt(oMe,"nState",6));
+      } // drop message
+      else
+      { // possible resource info update
+        sPre=GetLocalString(oMe,"sMsg");
+        oOb=GetLocalObject(oMe,"oUpdate");
+        nWeight=GetLocalInt(oMe,"nSpecial");
+        nErr=fnInitializeList(sPre,oMod);
+        if (nErr==0) fnDebug("MODULE LIST INITIALIZED:"+sPre);
+        fnAddListEntry(sPre,oMod,oOb,nWeight);
+        fnAdjustListEntry(sPre,oMod,oOb,nWeight); // set to active
+        DelayCommand(5.0,SetLocalInt(oMe,"nState",5));
+      } // possible resource info update
+      SetLocalInt(oMe,"nState",1);
+      break;
+    } // drop message
+    case 5: { // fly away and destroy
+      fnDebug("["+GetName(oMe)+"] Fly Away");
+      eVFX=EffectDisappear();
+      ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eVFX,oMe,5.0);
+      DelayCommand(4.0,DestroyObject(oMe));
+      break;
+    } // fly away and destroy
+    case 6: { // make sure dropped message
+      if (GetItemPossessor(oItem)!=oMe)
+      { // still have the item
+        fnDebug("["+GetName(oMe)+"] Force Drop Message");
+        AssignCommand(oMe,ClearAllActions());
+        AssignCommand(oMe,ActionPutDownItem(oItem));
+        AssignCommand(oMe,ActionDoCommand(PlayVoiceChat(VOICE_CHAT_BATTLECRY1)));
+        AssignCommand(oItem,JumpToLocation(GetLocation(oMe)));
+        SetLocalInt(oMe,"nState",5);
+      } // still have the item
+      else
+        SetLocalInt(oMe,"nState",5);
+      break;
+    } // make sure dropped message
+  } // bird state
+  DelayCommand(6.0,ExecuteScript("rtsa_ai_birdmsg",oMe));
+}