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..63d58076
--- /dev/null
+++ b/npc/functions/harbours.txt
@@ -0,0 +1,39 @@
+// Evol scripts.
+// Author:
+//    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 (.dir == 0)
+    {
+        .dir = 2;
+
+        initnpctimer;
+        startnpctimer;
+        close;
+    }
+
+    if (.dir == 6)
+    {
+        .dir = 4;
+
+        initnpctimer;
+        startnpctimer;
+        close;
+    }
+}
+
+function	script	harbourTimer	{
+    stopnpctimer;
+    if (.dir == 2) .dir = 6;
+    if (.dir == 4) .dir = 0;
+    end;
+}