From 774493360df4e8ef2563a06ead353589feea92f0 Mon Sep 17 00:00:00 2001
From: Andrei Karas <akaras@inbox.ru>
Date: Tue, 13 Feb 2018 21:03:42 +0300
Subject: add join/left clan into npc1 on test map.

---
 npc/test/npc1.txt | 49 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 48 insertions(+), 1 deletion(-)

diff --git a/npc/test/npc1.txt b/npc/test/npc1.txt
index a9d15958..d3ea4661 100644
--- a/npc/test/npc1.txt
+++ b/npc/test/npc1.txt
@@ -27,7 +27,22 @@ test,10,10,0	script	npc1	NPC_TEST1,3,3,{
     }
 
 L_Start:
-    switch (select("show area", "map", "pc", "change npc direction", "quest test", "cart", "items", "chat", "wall", "craft", "hashtable", "instance", "mercenary", "npc"))
+    switch (select(
+            "show area",
+            "map",
+            "pc",
+            "change npc direction",
+            "quest test",
+            "cart",
+            "items",
+            "chat",
+            "wall",
+            "craft",
+            "hashtable",
+            "instance",
+            "mercenary",
+            "npc",
+            "clan"))
     {
         case 1:
             areatest;
@@ -627,6 +642,38 @@ L_Start:
                 }
             }
             break;
+        case 15:
+            while(1)
+            {
+                switch (select(
+                        "join sword clan",
+                        "join arc wand clan",
+                        "join golden mace clan",
+                        "join crossbox clan",
+                        "leave clan",
+                        "back"))
+                {
+                    case 1:
+                        mes(str(clan_join(1)));
+                        break;
+                    case 2:
+                        mes(str(clan_join(2)));
+                        break;
+                    case 3:
+                        mes(str(clan_join(3)));
+                        break;
+                    case 4:
+                        mes(str(clan_join(4)));
+                        break;
+                    case 5:
+                        mes(str(clan_leave()));
+                        break;
+                    case 6:
+                        goto L_Start;
+                        break;
+                }
+            }
+            break;
     }
 
     close;
-- 
cgit v1.2.3-70-g09d2