Add harbour NPC.

1 files changed, 39 insertions, 0 deletions

diff --git a/npc/functions/harbours.txt b/npc/functions/harbours.txt
new file mode 100644
index 00000000..eae24e24
--- /dev/null
+++ b/npc/functions/harbours.txt
@@ -0,0 +1,39 @@
+// Evol scripts.
+// Authors:
+//    Reid
+// Description:
+//    Harbour utility functions
+// Animation:
+//    Length: 1680
+// Values:
+//    2   Hook moving down.
+//    4   Hook moving up.
+//    6   Hook down.
+//    8   Hook up.
+
+function	script	harbourClic	{
+    if (getnpcdir () == 0)
+    {
+        setnpcdir 2;
+
+        initnpctimer;
+        startnpctimer;
+        close;
+    }
+
+    if (getnpcdir () == 6)
+    {
+        setnpcdir 4;
+
+        initnpctimer;
+        startnpctimer;
+        close;
+    }
+}
+
+function	script	harbourTimer	{
+    stopnpctimer;
+    if (getnpcdir () == 2) setnpcdir 6;
+    if (getnpcdir () == 4) setnpcdir 0;
+    end;
+}