From a6c01f342b1336cdfd9cf09cf21e7f4c83d9559d Mon Sep 17 00:00:00 2001
From: Reid <reidyaro@gmail.com>
Date: Fri, 29 Jun 2012 01:28:16 +0200
Subject: Cut box script from arpan.txt to box.txt, Add start of animation on
 box.txt .

---
 npc/000-2-1/_import.txt |  2 +-
 npc/000-2-1/arpan.txt   | 32 --------------------------------
 npc/000-2-1/box.txt     | 41 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 42 insertions(+), 33 deletions(-)
 create mode 100644 npc/000-2-1/box.txt

(limited to 'npc')

diff --git a/npc/000-2-1/_import.txt b/npc/000-2-1/_import.txt
index c06250b8..5183268e 100644
--- a/npc/000-2-1/_import.txt
+++ b/npc/000-2-1/_import.txt
@@ -10,4 +10,4 @@ npc: npc/000-2-1/knife.txt
 npc: npc/000-2-1/dan.txt
 npc: npc/000-2-1/savepoint.txt
 npc: npc/000-2-1/hammock.txt
-npc: npc/000-2-1/chest.txt
\ No newline at end of file
+npc: npc/000-2-1/box.txt
diff --git a/npc/000-2-1/arpan.txt b/npc/000-2-1/arpan.txt
index 3592fa9d..ce672b80 100644
--- a/npc/000-2-1/arpan.txt
+++ b/npc/000-2-1/arpan.txt
@@ -78,38 +78,6 @@ l_EquipDone:
 
 }
 
-000-2-1.gat,41,37,0	script	Box	999;2,{
-    mesn "Narrator";
-
-    set @q, geta2(ShipQuests, ShipQuests_Arpan);
-    if (@q == 1) goto l_Give;
-    if (@q > 1) goto l_Empty;
-
-    mes col(l("This box is locked"), 9);
-    close;
-
-l_Give:
-    mes col(l("You see some items in the box. Take them out?"), 9);
-    next;
-
-    menu
-        l("Yes."), -,
-        l("No."), l_Close;
-
-    seta2 ShipQuests, ShipQuests_Arpan, 2;
-    getitem "WornShirt", 1;
-    getitem "WornShorts", 1;
-
-l_Close:
-    close;
-
-l_Empty:
-    mes col(l("This box is locked."), 9);
-
-    close;
-
-}
-
 
 000-2-1.gat,39,33,0,1	script	Magic Arpan	307;5,{
 
diff --git a/npc/000-2-1/box.txt b/npc/000-2-1/box.txt
new file mode 100644
index 00000000..0e67fddc
--- /dev/null
+++ b/npc/000-2-1/box.txt
@@ -0,0 +1,41 @@
+// Evol scripts.
+// Authors:
+//    4144, Reid
+// Description:
+//    A box with clothes for every new player.
+// Variable:
+//    ShipQuests_Arpan
+// Values:
+//    1: Talked to Arpan. Need to get cloths
+//    2: Got cloths
+
+000-2-1.gat,41,37,0	script	Box	317;2,{
+
+    set @q, geta2(ShipQuests, ShipQuests_Arpan);
+    if (getnpcdir ("") == 4) goto l_Give;
+
+    setnpcdir 2;
+    initnpctimer;
+    startnpctimer;
+    close;
+
+l_Give:
+    if (@q > 1) goto l_Close;
+    seta2 ShipQuests, ShipQuests_Arpan, 2;
+    getitem "WornShirt", 1;
+    getitem "WornShorts", 1;
+    close;
+
+l_Close:
+    setnpcdir 6;
+    initnpctimer;
+    startnpctimer;
+    close;
+
+OnTimer220:
+    stopnpctimer;
+    if (getnpcdir ("") == 2) setnpcdir 4;
+    if (getnpcdir ("") == 6) setnpcdir 0;
+    end;
+
+}
\ No newline at end of file
-- 
cgit v1.2.3-60-g2f50