From b6ca7609bfd1d979c25fa19051ac8d2903977a17 Mon Sep 17 00:00:00 2001
From: Andrei Karas <akaras@inbox.ru>
Date: Sun, 24 Jan 2016 00:13:27 +0300
Subject: Add command findcraftentry into npc1 menu.

---
 npc/test/npc1.txt | 50 ++++++++++++++++++++++++++++++++------------------
 1 file changed, 32 insertions(+), 18 deletions(-)

diff --git a/npc/test/npc1.txt b/npc/test/npc1.txt
index 0727e27c..0b55bff5 100644
--- a/npc/test/npc1.txt
+++ b/npc/test/npc1.txt
@@ -248,25 +248,39 @@ L_Start:
             }
             break;
         case 10:
-            setskin "test2";
-            .@var$ = requestcraft(9);
-            mes .@var$;
-            .@craft = initcraft(.@var$);
-            mes "craft id: " + str(.@craft);
-            mes "is craft valid: " + validatecraft(.@craft);
-            .@id = getcraftslotid(.@craft, 0);
-            .@amount = getcraftslotamount(.@craft, 0);
-            mes "first item id: " + .@id;
-            mes "first item name: " + getitemlink(.@id);
-            mes "first item amount: " + .@amount;
+            while(1)
+            {
+                switch (select("technical:back"))
+                {
+                    case 1:
+                        setskin "test2";
+                        .@var$ = requestcraft(9);
+                        mes .@var$;
+                        .@craft = initcraft(.@var$);
+                        mes "craft id: " + str(.@craft);
+                        mes "is craft valid: " + validatecraft(.@craft);
+                        .@id = getcraftslotid(.@craft, 0);
+                        .@amount = getcraftslotamount(.@craft, 0);
+                        mes "first item id: " + .@id;
+                        mes "first item name: " + getitemlink(.@id);
+                        mes "first item amount: " + .@amount;
 
-            .@id = getcraftslotid(.@craft, 1);
-            .@amount = getcraftslotamount(.@craft, 1);
-            mes "second item id: " + .@id;
-            mes "second item name: " + getitemlink(.@id);
-            mes "second item amount: " + .@amount;
-//            dumpcraft .@craft;
-            deletecraft .@craft;
+                        .@id = getcraftslotid(.@craft, 1);
+                        .@amount = getcraftslotamount(.@craft, 1);
+                        mes "second item id: " + .@id;
+                        mes "second item name: " + getitemlink(.@id);
+                        mes "second item amount: " + .@amount;
+//                        dumpcraft .@craft;
+                        .@entry = findcraftentry(.@craft, 0);
+                        mes "found craft entry: " + .@entry;
+                        deletecraft .@craft;
+                        setskin "";
+                        break;
+                    case 2:
+                        goto L_Start;
+                        break;
+                }
+            }
             break;
     }
 
-- 
cgit v1.2.3-70-g09d2