CR 생산소스

script    사운드알아내기    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "채광술 입문하기", "채광술 단계올리기", "채광주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 11;
    }
    else if(@list == 2) {
        call_shop 1, 12;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 채광술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($corhkd == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 채광술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("단단한집게")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 채광술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 집게 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 채광술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 채광술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "채광술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $corhkd, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($corhkd == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($corhkd == 0) {
            dialog 0,0,0, "아직 채광술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($ahrrhd == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($corhkd == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($corhkd == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    채광술    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($corhkdcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 30203) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($corhkd == 1) {
        set @list, list1("채광술", "채광술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, "생산물품(필요재료)/성공률", "돌촉(단단한돌2개,연옥1개)/47%", "연옥 (연옥석2개)/80%", "황옥 (황옥석2개)/70%","적옥 (적옥석2개)/60%", "청옥 (청옥석2개)/45%", "백옥 (백옥석2개)/40%","연옥노리개 (돌촉5개,연옥10개)/70%", "황옥노리개 (돌촉5개,황옥10개,연옥노리개2개)/60%", "적옥노리개 (돌촉5개,적옥10개,황옥노리개2개)/55%", "청옥노리개 (돌촉5개,청옥10개,적옥노리개2개)/49%", "백옥노리개 (돌촉5개,백옥12개,청옥노리개2개)/40%","구리패(보조옷본1개,황옥15개,황동결정5개)/47%","강철패(보조옷본1개,적옥12개,강철괴2개)/42%","은장패(보조옷본1개,청옥7개,은광결정5개)/37%","금장패(보조옷본1개,백옥3개,황금괴2개)/32%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "돌촉을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("단단한돌")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("연옥")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("단단한돌"), 2;
                        delitem @mysd, name2itemid("연옥"), 1;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        magic_aether @mysd, 6001, 2;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 47) {
                            additem @mysd, name2itemid("돌촉"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 48 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "연옥을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("연옥석")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("연옥석"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 2;
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 80) {
                            additem @mysd, name2itemid("연옥"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 81 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "황옥을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("황옥석")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("황옥석"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 2;
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 70) {
                            additem @mysd, name2itemid("황옥"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 71 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "적옥을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("적옥석")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("적옥석"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 2;
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("적옥"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 5) {
                set @pos, list2(@list_3,1,0, "청옥을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("청옥석")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("청옥석"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 2;
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 45) {
                            additem @mysd, name2itemid("청옥"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 46 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 6) {
                set @pos, list2(@list_3,1,0, "백옥을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("백옥석")) < 2) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("백옥석"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 2;
                        sleep 1700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 40) {
                            additem @mysd, name2itemid("백옥"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 41 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 7) {
                set @pos, list2(@list_3,1,0, "연옥노리개을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("돌촉")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("연옥")) < 10){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("돌촉"), 5;
                        delitem @mysd, name2itemid("연옥"), 10;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 70) {
                            additem @mysd, name2itemid("연옥노리개"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 71 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 8) {
                set @pos, list2(@list_3,1,0, "황옥노리개을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("돌촉")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 10){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("연옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("연옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  else {
                        delitem @mysd, name2itemid("돌촉"), 5;
                        delitem @mysd, name2itemid("황옥"), 10;
                        delitem @mysd, name2itemid("연옥노리개"), 1;
                        delitem @mysd, name2itemid("연옥노리개"), 1;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("황옥노리개"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 9) {
                set @pos, list2(@list_3,1,0, "적옥노리개을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("돌촉")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("황옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  else {
                        delitem @mysd, name2itemid("돌촉"), 5;
                        delitem @mysd, name2itemid("적옥"), 10;
                        delitem @mysd, name2itemid("황옥노리개"), 1;
                        delitem @mysd, name2itemid("황옥노리개"), 1;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("적옥노리개"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 10) {
                set @pos, list2(@list_3,1,0, "청옥노리개을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("돌촉")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 10){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("적옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("적옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  else {
                        delitem @mysd, name2itemid("돌촉"), 5;
                        delitem @mysd, name2itemid("청옥"), 10;
                        delitem @mysd, name2itemid("적옥노리개"), 1;
                        delitem @mysd, name2itemid("적옥노리개"), 1;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 49) {
                            additem @mysd, name2itemid("청옥노리개"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 50 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 11) {
                set @pos, list2(@list_3,1,0, "백옥노리개을 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("돌촉")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 12){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("청옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥노리개")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("돌촉"), 5;
                        delitem @mysd, name2itemid("백옥"), 12;
                        delitem @mysd, name2itemid("청옥노리개"), 1;
                        delitem @mysd, name2itemid("청옥노리개"), 1;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 40) {
                            additem @mysd, name2itemid("백옥노리개"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 41 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 12) {
                set @pos, list2(@list_3,1,0, "구리패 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("보조옷본")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 15){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황동결정")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                     else {
                        delitem @mysd, name2itemid("보조옷본"), 1;
                        delitem @mysd, name2itemid("황옥"), 15;
                        delitem @mysd, name2itemid("황동결정"), 5;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 47) {
                            additem @mysd, name2itemid("구리패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 48 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 13) {
                set @pos, list2(@list_3,1,0, "강철패 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("보조옷본")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 12){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("강철괴")) < 2){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                     else {
                        delitem @mysd, name2itemid("보조옷본"), 1;
                        delitem @mysd, name2itemid("적옥"), 12;
                        delitem @mysd, name2itemid("강철괴"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 42) {
                            additem @mysd, name2itemid("강철패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 43 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 14) {
                set @pos, list2(@list_3,1,0, "은장패 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("보조옷본")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 7){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("은광결정")) < 5){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                     else {
                        delitem @mysd, name2itemid("보조옷본"), 1;
                        delitem @mysd, name2itemid("청옥"), 7;
                        delitem @mysd, name2itemid("은광결정"), 5;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 37) {
                            additem @mysd, name2itemid("은장패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 38 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 15) {
                set @pos, list2(@list_3,1,0, "금장패 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("보조옷본")) < 1){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } 
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 3){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황금괴")) < 2){    
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                     else {
                        delitem @mysd, name2itemid("보조옷본"), 1;
                        delitem @mysd, name2itemid("백옥"), 3;
                        delitem @mysd, name2itemid("황금괴"), 2;
                        set $corhkdcpzm, 1;
                        effect @myid, 315;
                        sound @myid, 0, 128;
                        if (pc_checkmagicid(@mysd, 6001) == 0) {
                            set_pcmagicstate @mysd, 6001, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6001, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 32) {
                            additem @mysd, name2itemid("금장패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 33 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $corhkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
        }
    }
}
script    목공    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "목공술 입문하기", "목공술 단계올리기", "목공주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 17;
    }
    else if(@list == 2) {
        call_shop 1, 17;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 목공술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($ahrrhd == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 목공술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("단단한목공연장")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 목공술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 연장 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 목공술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 목공술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "목공술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $ahrrhd, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($ahrrhd == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($ahrrhd == 0) {
            dialog 0,0,0, "아직 목공술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($ahrrhd == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($ahrrhd == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($ahrrhd == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    목공술    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($ahrrhdcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 60029) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($ahrrhd == 1) {
        set @list, list1("목공술", "목공술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, " 생산물품(필요재료(갯수))/성공률", "경원방패(경원의문장1개,황옥5개)/60%", "파천방패(파천의문장1개,적옥5개)/50%","금강방패(금강의문장1개,금강석1개,청옥5개)/40%","바람제일식방패(바람의문장1개,금조각3개,백옥5개)/10%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "경원방패를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("경원의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("경원의문장"), 1;
                        delitem @mysd, name2itemid("황옥"), 5;
                        set $ahrrhdcpzm, 1;
                        effect @myid, 270;
                        sound @myid, 0, 129;
                        magic_aether @mysd, 6002, 11;
                        if (pc_checkmagicid(@mysd, 6002) == 0) {
                            set_pcmagicstate @mysd, 6002, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("경원방패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "파천방패를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("파천의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("파천의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 5;
                        set $ahrrhdcpzm, 1;
                        effect @myid, 270;
                        sound @myid, 0, 129;
                        if (pc_checkmagicid(@mysd, 6002) == 0) {
                            set_pcmagicstate @mysd, 6002, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6002, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 50) {
                            additem @mysd, name2itemid("파천방패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 51 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "금강방패를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강석")) <1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("금강석"), 1;
                        delitem @mysd, name2itemid("청옥"), 5;
                        set $ahrrhdcpzm, 1;
                        effect @myid, 270;
                        sound @myid, 0, 129;
                        if (pc_checkmagicid(@mysd, 6002) == 0) {
                            set_pcmagicstate @mysd, 6002, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6002, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 40) {
                            additem @mysd, name2itemid("금강방패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 41 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "바람제일식방패를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금조각")) <3) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금조각"), 3;
                        delitem @mysd, name2itemid("백옥"), 5;
                        set $ahrrhdcpzm, 1;
                        effect @myid, 270;
                        sound @myid, 0, 129;
                        if (pc_checkmagicid(@mysd, 6002) == 0) {
                            set_pcmagicstate @mysd, 6002, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6002, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식방패"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $ahrrhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
        }
    }
}
script    벌목1    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "벌목술 입문하기", "벌목술 단계올리기", "벌목주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 18;
    }
    else if(@list == 2) {
        call_shop 1, 18;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 벌목술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($qjfahr == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 벌목술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("단단한대패")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 벌목술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 대패 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 벌목술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 벌목술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "벌목술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $qjfahr, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($qjfahr == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($qjfahr == 0) {
            dialog 0,0,0, "아직 벌목술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($qjfahr == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($qjfahr == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($qjfahr == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    벌목술    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($qjfahrcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 60028) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($qjfahr == 1) {
        set @list, list1("벌목술", "벌목술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, " 생산물품(필요재료(갯수))/성공률", "경원투구(경원의문장1개,투구옷본1개,황옥5개)/60%", "파천투구(파천의문장1개,투구옷본1개,적옥5개)/50%","금강투구(금강의문장1개,투구옷본1개,청옥5개)/35%","바람제일식투구(바람의문장1개,투구옷본1개,백옥5개)/10%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "경원투구를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("경원의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("투구옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("경원의문장"), 1;
                        delitem @mysd, name2itemid("투구옷본"), 1;
                        delitem @mysd, name2itemid("황옥"), 5;
                        set $qjfahrcpzm, 1;
                        effect @myid, 269;
                        sound @myid, 0, 122;
                        magic_aether @mysd, 6006, 11;
                        if (pc_checkmagicid(@mysd, 6006) == 0) {
                            set_pcmagicstate @mysd, 6006, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("경원투구"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "파천투구를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("파천의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("투구옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("파천의문장"), 1;
                        delitem @mysd, name2itemid("투구옷본"), 1;
                        delitem @mysd, name2itemid("적옥"), 5;
                        set $qjfahrcpzm, 1;
                        effect @myid, 269;
                        sound @myid, 0, 122;
                        if (pc_checkmagicid(@mysd, 6006) == 0) {
                            set_pcmagicstate @mysd, 6006, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6006, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 50) {
                            additem @mysd, name2itemid("파천투구"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                        else if(@ran >= 51 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "금강투구를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("투구옷본")) <1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("투구옷본"), 1;
                        delitem @mysd, name2itemid("청옥"), 5;
                        set $qjfahrcpzm, 1;
                        effect @myid, 269;
                        sound @myid, 0, 122;
                        if (pc_checkmagicid(@mysd, 6006) == 0) {
                            set_pcmagicstate @mysd, 6006, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6006, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 35) {
                            additem @mysd, name2itemid("금강투구"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                        else if(@ran >= 36 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "바람제일식투구를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("투구옷본")) <1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 5) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("투구옷본"), 1;
                        delitem @mysd, name2itemid("백옥"), 5;
                        set $qjfahrcpzm, 1;
                        effect @myid, 269;
                        sound @myid, 0, 122;
                        if (pc_checkmagicid(@mysd, 6006) == 0) {
                            set_pcmagicstate @mysd, 6006, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6006, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식투구"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $qjfahrcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
        }
    }
}
script    직조    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "직조술 입문하기", "직조술 단계올리기", "직조주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 14;
    }
    else if(@list == 2) {
        call_shop 1, 14;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 직조술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($wlrwh == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 직조술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("단단한북")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 직조술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 망치 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 직조술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 직조술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "직조술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $wlrwh, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($wlrwh == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($wlrwh == 0) {
            dialog 0,0,0, "아직 직조술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($wlrwh == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($wlrwh == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($wlrwh == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    직조술    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($wlrwhcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 30201) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($wlrwh == 1) {
        set @list, list1("직조술", "직조술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, " 생산물품(필요재료(갯수))/성공률", "바람제일식장갑(바람의문장1개,백옥10개)/10%", "바람제일식팔찌(바람의문장1개,백옥10개)/10%","바람제일식반지(바람의문장1개,백옥10개)/10%","바람제일식선류(바람의문장1개,백옥10개)/10%","바람제일식깍지(바람의문장1개,백옥10개)/10%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "바람제일식장갑를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("백옥"), 10;
                        set $wlrwhcpzm, 1;
                        effect @myid, 272;
                        sound @myid, 0, 119;
                        magic_aether @mysd, 6004, 11;
                        if (pc_checkmagicid(@mysd, 6004) == 0) {
                            set_pcmagicstate @mysd, 6004, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식장갑"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "바람제일식팔찌를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("백옥"), 10;
                        set $wlrwhcpzm, 1;
                        effect @myid, 272;
                        sound @myid, 0, 119;
                        if (pc_checkmagicid(@mysd, 6004) == 0) {
                            set_pcmagicstate @mysd, 6004, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6004, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식팔찌"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "바람제일식반지를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("백옥"), 10;
                        set $wlrwhcpzm, 1;
                        effect @myid, 272;
                        sound @myid, 0, 119;
                        if (pc_checkmagicid(@mysd, 6004) == 0) {
                            set_pcmagicstate @mysd, 6004, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6004, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식반지"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "바람제일식선류를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("백옥"), 10;
                        set $wlrwhcpzm, 1;
                        effect @myid, 272;
                        sound @myid, 0, 119;
                        if (pc_checkmagicid(@mysd, 6004) == 0) {
                            set_pcmagicstate @mysd, 6004, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6004, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식선류"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 5) {
                set @pos, list2(@list_3,1,0, "바람제일식깍지를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) <1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("백옥"), 10;
                        set $wlrwhcpzm, 1;
                        effect @myid, 272;
                        sound @myid, 0, 119;
                        if (pc_checkmagicid(@mysd, 6004) == 0) {
                            set_pcmagicstate @mysd, 6004, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6004, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식깍지"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $wlrwhcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
        }
    }
}
script    재봉    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "재봉술 입문하기", "재봉술 단계올리기", "재봉주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 16;
    }
    else if(@list == 2) {
        call_shop 1, 16;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 재봉술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($woqhd == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 재봉술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("황금재봉가위")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 재봉술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 망치 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 재봉술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 재봉술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "재봉술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $woqhd, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($woqhd == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($woqhd == 0) {
            dialog 0,0,0, "아직 재봉술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($woqhd == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($woqhd == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($woqhd == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    재봉1    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($woqhdcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 60013) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($woqhd == 1) {
        set @list, list1("재봉술", "재봉술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, " 생산물품(필요재료(갯수))/성공률", "경원갑옷(경원의문장1개,남자옷본1개,연옥30개)/60%", "경원갑주(경원의문장1개,여자옷본1개,연옥30개)/60%","파천갑옷(파천의문장1개,남자옷본1개,황옥20개)/45%","파천갑주(파천의문장1개,여자옷본1개,황옥20개)/45%","금강갑옷(금강의문장1개,남자옷본1개,청옥13개)/30%","금강갑주(금강의문장1개,여자옷본1개,청옥13개)/30%","바람제일식갑옷(바람의문장1개,남자옷본1개,백옥7개)/15%","바람제일식갑주(바람의문장1개,여자옷본1개,백옥7개)/15%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "경원갑옷 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("경원의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("남자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("연옥")) < 30) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("경원의문장"), 1;
                        delitem @mysd, name2itemid("남자옷본"), 1;
                        delitem @mysd, name2itemid("연옥"), 30;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("경원갑옷"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "경원갑주 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("경원의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("여자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("연옥")) < 30) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("경원의문장"), 1;
                        delitem @mysd, name2itemid("여자옷본"), 1;
                        delitem @mysd, name2itemid("연옥"), 30;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 60) {
                            additem @mysd, name2itemid("경원갑주"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 61 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "파천갑옷 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("파천의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("남자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 20) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("파천의문장"), 1;
                        delitem @mysd, name2itemid("남자옷본"), 1;
                        delitem @mysd, name2itemid("황옥"), 20;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 45) {
                            additem @mysd, name2itemid("파천갑옷"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 46 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "파천갑주 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("파천의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("여자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("황옥")) < 20) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("파천의문장"), 1;
                        delitem @mysd, name2itemid("여자옷본"), 1;
                        delitem @mysd, name2itemid("황옥"), 20;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 45) {
                            additem @mysd, name2itemid("파천갑주"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 46 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 5) {
                set @pos, list2(@list_3,1,0, "금강갑옷 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("남자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 13) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("남자옷본"), 1;
                        delitem @mysd, name2itemid("청옥"), 13;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 30) {
                            additem @mysd, name2itemid("금강갑옷"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 31 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 6) {
                set @pos, list2(@list_3,1,0, "금강갑주 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("여자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 13) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("여자옷본"), 1;
                        delitem @mysd, name2itemid("청옥"), 13;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 30) {
                            additem @mysd, name2itemid("금강갑주"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 31 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 7) {
                set @pos, list2(@list_3,1,0, "바람제일식갑옷 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("남자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 7) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("남자옷본"), 1;
                        delitem @mysd, name2itemid("백옥"), 7;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 15) {
                            additem @mysd, name2itemid("바람제일식갑옷"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 16 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 8) {
                set @pos, list2(@list_3,1,0, "바람제일식갑주 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("여자옷본")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("백옥")) < 7) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("여자옷본"), 1;
                        delitem @mysd, name2itemid("백옥"), 7;
                        set $woqhdcpzm, 1;
                        effect @myid, 271;
                        sound @myid, 0, 120;
                        magic_aether @mysd, 6005, 11;
                        if (pc_checkmagicid(@mysd, 6005) == 0) {
                            set_pcmagicstate @mysd, 6005, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 15) {
                            additem @mysd, name2itemid("바람제일식갑주"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 16 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $woqhdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
        }
    }
}
script    대장    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요. 어떻게 오셨나요?", "물건 사기", "물건 팔기", "대장술 입문하기", "대장술 단계올리기", "대장주문서 수행하기", "생산 도움말 보기");
    if(@list == 1) {
        call_shop 0, 13;
    }
    else if(@list == 2) {
        call_shop 1, 13;
    }
    else if(@list == 3) {
        set @pos, list2(@list_2,1,0, "생산기술을 배우려고 왔는가? 처음이라면 우선 몇가지\n알려주도록 하지.", "예, 알려주세요.", "아니요. 이미 알고 있으니 대장술에 입문시켜주세요.");
        if(@list_2 == 1) {
        re:
            set @pos, list2(@list_3,1,0, "알고 싶은 것을 골라보게.", "생산기술의 종류를 알고 싶어요", "생산단계를 올리는 방법을 알고 싶어요.", "생산칭호를 얻는 방법을 알고 싶어요.");
            if(@list_3 == 1) {
                set @pos, list2(@list_4,1,0, "어떤 생산기술을 알고 싶은가?", "직조술과 재봉술", "벌목술과 목공술", "채광술과 대장술", "조제술과 강화술");
                if(@list_4 == 1) {
                a0:
                    set @pos, dialog(1,0,1, "직조술은 맵을 돌아다니면서 여러가지 실뭉치들을\n 채집해서 천으로 만들어 낼 수 있는 기술이지.\n실뭉치들은 낫으로 보이나 벼, 아마풀 등의 여러\n풀들을 쳐서 얻을 수 있다네.\n실뭉치를 베틀에 넣고 돌리면 천이 만들어지는데,\n 베틀을 사용하기 위해서는 한손에 반드시 북을\n들고 있어야 한다는 점을 명심하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "재봉술은 천으로 의복이나 갑옷을 만들 수 있는\n기술이지.\n재봉술은 직조술처럼 맵을 돌아다니면서 여러가지\n 재료들을 채집하지는 않는다네. 직접 직조술을\n배워서 재봉술의 재료가 되는 각종 천을 만들거나\n 다른 사람들에게 사야하지.\n각종 천들은 재봉작업대에서 의복으로 만들어지는\n데 재봉작업대를 사용하려면 반드시 한손에 가위\n를 들고 있어야 한다네.\n자신이 입을 옷을 직접 만들어 입는다는 것은 즐\n거운 일이지. 친구들한테 직접 만든 옷을 선물해\n주면 무철 좋아하지 않겠나. 하하~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a0;
                    end;
                }
                else if(@list_4 == 2) {
                a1:
                    set @pos, dialog(1,0,1, "벌목술은 맵을 돌아다니면서 다양한 통나무들을\n채집해서 나무판자로 만들어 낼 수 있는 기술이지\n.\n통나무들은 도끼로 삼나무, 은행나무 등 여러 나\n무들을 쳐서 얻을 수 있다네.\n통나무들을 톱에 넣고 자르면 나무판자를 얻을 수\n 있지. 톱을 사용할때는 한손에 대패를 들고 있어\n야 하네.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "목공술은 나무판자를 이용해서 여러가지 목제품을\n 만들 수 있는 기술이지.\n이 기술은 벌목술처럼 맵을 돌아다니면서 여러가\n지 재료들을 직접 채집하지는 않는다네. 스스로\n벌목술을 배우던가 아님 다른 사람들에게 나무판\n자를 사야하지.\n나무판자들은 목공작업대에서 가구 등으로 만들어\n지는데 목공작업대를 사용하려면 반드시 한손에\n목공연장을 들고 있어야 한다는 것을 명심하게나");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a1;
                    end;
                }
                else if(@list_4 == 3) {
                a2:
                    set @pos, dialog(1,0,1, "채광술은 맵을 돌아다니면서 여러가지 광석들을\n채집해서 단단한 쇠붙이로 만들어 내는 기술이지.\n\n광석들은 곡괭이로 청동석이나 철광석같은 암석을\n 쳐서 얻을 수 있지. 광물들을 풀무에 넣고 녹이\n면 쇠붙이로 만들 수 있다네.\n풀무를 만질 때는 반드시 한손에 집게를 들고 있\n어야 한다는 것을 잊지말게.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "대장술은 쇠붙이를 이용해서 여러가지 무기들을\n만들 수 있는 기술이지.\n직접 채광술을 배우거나 다른 사람들에게 쇠붙이\n를 사거나 해서 재료를 모은 다음에 한손에 망치\n를 들고 쇠붙이를 모루에 올려놓고 두드리면 단단\n한 무기가 만들어진다네.\n자신이 쓸 무기를 직접 만들어 사용한다는 것은\n멋진 일이지. 실력이 쌓일수록 사람들의 부러움을\n 한몸에 받게 될꺼야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a2;
                    end;
                }
                else if(@list_4 == 4) {
                a3:
                    set @pos, dialog(1,0,1, "조제술은 맵을 돌아다니면서 약초나 인삼을 채집\n해서 각종 약제를 만들 수 있는 기술이지.\n호미로 약초나 인삼을 캐서 이를 약탕기 넣고 다\n리면 몸에 이로운 탕약이나 환약들을 만들 수 있\n지.\n약탕기를 사용할 때는 손을 데이지 않게 조심하고\n 꼭 한손에 약짜는 약막대기를 들고 사용하도록\n하게나.");
                    if(@pos == 0) end;
                    set @pos, dialog(1,1,1, "강한술은 무기나 방어구에 특별한 능력을 부여해\n주는 기술이지.\n정화수 앞에서 재료들을 올려놓고 정성스럽게 제\n사를 드리면 무기나 방어구를 더욱 강력하게 만들\n 수 있는 부적을 만들어낼 수 있다네.\n부적을 바른 무기나 방어구는 공격력이 세지고,\n방어력이 강해지는 등 여러가지 능력이 추가되는\n거지.\n아~제사를 드릴대는 반드시 한 손에 방울막대기\n를 들고 있어야 한다는 것을 잊지말게나..딸랑딸\n랑~");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a3;
                    end;
                }
            }
            else if(@list_3 == 2) {
            a4:
                set @pos, dialog(1,0,1, "생산단계를 올리는 방법 말인가?! 3가지 중요한\n것이 있는데 그게 바로 생산단계와 생산레벨과 숙\n련도일세.\n생산활동을 하면 숙련도가 쌓이게 되고 일정 수치\n가 되면 생산레벨업을 하게 되는데 100레벨이 되\n면 그 기술을 마스터한 절대장인이 되는거지.\n생산단계는 총 10 단계로 이루어져 있는데 10레벨\n씩 올라갈때마다 1단계씩 올라가게 되지.");
                if(@pos == 0) end;
                set @pos, dialog(1,1,1, "한가지 주의해야할 것은 다음 단계로 올라가기 위\n해서는 반드시 단계통과시험에 합격해야한다는 것\n일세.\n다음 단계로 올라가면 새로운 아이템을 만들 수\n있는 기술들을 알려주고, 도제, 장인, 명장인 등\n의 생산칭호를 부여해준다네.");
                if(@pos == 0) end;
                else if(@pos == -1) goto a4;
                end;
            }
            else if(@list_3 == 3) {
                dialog 1,0,1, "생산칭호에 대해서 알고 싶은가? 생산활동을 하다\n보면 여러가지 칭호를 습득할 수 있다네.\n생산칭호는 우측의 생산정보창을 보면 이제까지\n습득한 생산칭호들을 볼 수 있고 마음에 드는 걸\n로 언제든지 바꿀 수 있다네.\n다른 사람들이 갖지 못한 생산칭호를 가지고 있다\n는 것은 멋진 일이지.";
                end;
            }
        }
        else if(@list_2 == 2) {
            if($eowkd == 0) {
            a5:
                set @pos, dialog(1,0,1, "그럼 어디 대장술을 배울 준비가 되어 있나 볼까?");
                if(@pos == 0) end;
                if(pc_amountitem(@mysd, name2itemid("황금대장망치")) < 1) {
                    set @pos, dialog(0,1,0, "자네는 대장술을 배울 준비가\n되어 있지 않군.\n\n최소한 앞으로 계속 사용하게\n될 망치 정도는 챙겨와야 하는\n것 아닌가?!\n\n원한다면 내가 싼 값에 하나\n구해다 줄 수도 있지.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    end;
                } else {
                a6:
                    set @pos, dialog(1,1,1, "오.. 자네는 대장술을 배울 자세가 되어 있군. 내\n 기꺼이 자네를 제자로 삼아 대장술을 가르쳐주겠\n네.\n\n자네라면 최고의 기술자가 될 수 있을거야.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a5;
                    set @pos, dialog(1,1,1, "그럼 자네가 만들 수 있는 몇가지 제작기술을 전\n수해줄테니 열심히 배워보게나.\n\n전수받은 제작기술들은 우측 생산창에서 생산품\n보기를 눌러보면 알 수 있을 걸세.\n\n그럼 다음에 또 보세.");
                    if(@pos == 0) end;
                    else if(@pos == -1) goto a6;
                    message @mysd, 3, "대장술을 익히셨습니다.";
                    message @mysd, 3, "생산칭호를 습득했습니다.";
                    set $eowkd, 1;
                    effect @myid, 268;
                    sound @myid, 0, 123;
                    end;
                }
            }
            if($eowkd == 1) {
                dialog 0,0,1, "자네는 이미 이 기술을 배웠지\n 않나?! 한번 배운 기술은 다\n시 배울 수 없다네.";
                end;
            }
        }
    }
    else if(@list == 4) {
        if($eowkd == 0) {
            dialog 0,0,0, "아직 대장술을 배우지 않은 것\n 같은데..";
            end;
        }
        if($eowkd == 1) {
            dialog 0,0,0, "아직 단계를 올릴 수 없겠는데\n..단계를 어떻게 올리는지 잘\n모르겠으면 아래 도움말을 참\n고하게.";
            end;
        }//수정해야됨
    }
    else if(@list == 5) {
        set @pos, list2(@list2,1,0, "다른 사람에게 주문을 받아 물건을 제작해주는 일을 시\n작했네만, 나 혼자 힘으로는 밀려드는 주문들을\n다 감당하지 못하고 있네.\n자네가 좀 도와주겠나?", "[1단계] 주문서 보기", "[2단계] 주문서 보기");
        if(@list2 == 1) {
            if($eowkd == 1) {
                dialog 0,0,0, "자네는 이 주문을 제대로 수행\n하지 못할 것 같군. 도와주려\n는 마음은 고맙네만, 더 실력\n을 쌓은 다음에 다시 오게나.";
                end;
            }
        }//수정해야됨
        else if(@list2 == 2) {
            if($eowkd == 1) {
                dialog 1,0,0, "아직 들어온 주문이 없습니다.";
                end;
            }
        }//수정해야됨
    }
    else if(@list == 6) {
        goto re;
        end;
    }
}
script    대장술    {
    set @mysd, mysd();
    set @myid, myid();
//if(get_gmlevel(@mysd) == 1) {
    if($eowkdcpzm == 1) {
        end;
    }
    if(get_equipitem(@mysd, 0) != 40525) {
        message @mysd, 3, "도구가 적합치 않습니다";
        end;
    }
    if($eowkd == 1) {
        set @list, list1("대장술", "대장술이용하기");
        if(@list == 1) {
            set @pos, list2(@list_2,1,0, " 생산물품(필요재료(갯수))/성공률", "금강진검(금강의문장1개,적옥10개)/55%", "금강진도(금강의문장1개,적옥10개)/55%","금강진봉(금강의문장1개,적옥10개)/55%","금강진곤(금강의문장1개,적옥10개)/55%","금강진궁(금강의문장1개,적옥10개)/55%","바람제일식검(바람의문장1개,금강진검1개,청옥12개)/10%","바람제일식도(바람의문장1개,금강진도1개,청옥12개)/10%","바람제일식봉(바람의문장1개,금강진봉1개,청옥12개)/10%","바람제일식곤(바람의문장1개,금강진곤1개,청옥12개)/10%","바람제일식궁(바람의문장1개,금강진궁1개,청옥12개)/10%");
            if(@pos == 0) end;
            else if(@list_2 == 1) {
                set @pos, list2(@list_3,1,0, "금강진검를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    } else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 10;
                        set $eowkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 121;
                        magic_aether @mysd, 6007, 5;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 2, 0, -1, -1, -1;
                        }
                        sleep 4700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("금강진검"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 2) {
                set @pos, list2(@list_3,1,0, "금강진도를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 10;
                        set $eowkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 5;
                        sleep 4700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("금강진도"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }
            else if(@list_2 == 3) {
                set @pos, list2(@list_3,1,0, "금강진봉를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 10;
                        set $eowkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 5;
                        sleep 4700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("금강진봉"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 4) {
                set @pos, list2(@list_3,1,0, "금강진곤를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 10;
                        set $eowkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 5;
                        sleep 4700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("금강진곤"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 5) {
                set @pos, list2(@list_3,1,0, "금강진궁를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("금강의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("적옥")) < 10) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("금강의문장"), 1;
                        delitem @mysd, name2itemid("적옥"), 10;
                        set $eowkdcpzm, 1;
                        effect @myid, 313;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 5;
                        sleep 4700;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 55) {
                            additem @mysd, name2itemid("금강진궁"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 56 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 6) {
                set @pos, list2(@list_3,1,0, "바람제일식검를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강진검")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 12) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금강진검"), 1;
                        delitem @mysd, name2itemid("청옥"), 12;
                        set $eowkdcpzm, 1;
                        effect @myid, 312;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식검"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 7) {
                set @pos, list2(@list_3,1,0, "바람제일식도를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강진도")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 12) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금강진도"), 1;
                        delitem @mysd, name2itemid("청옥"), 12;
                        set $eowkdcpzm, 1;
                        effect @myid, 312;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식도"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 8) {
                set @pos, list2(@list_3,1,0, "바람제일식봉를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강진봉")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 12) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금강진봉"), 1;
                        delitem @mysd, name2itemid("청옥"), 12;
                        set $eowkdcpzm, 1;
                        effect @myid, 312;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식봉"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 9) {
                set @pos, list2(@list_3,1,0, "바람제일식곤를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강진곤")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 12) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금강진곤"), 1;
                        delitem @mysd, name2itemid("청옥"), 12;
                        set $eowkdcpzm, 1;
                        effect @myid, 312;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식곤"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
            else if(@list_2 == 10) {
                set @pos, list2(@list_3,1,0, "바람제일식궁를 만드시겠습니까?", "네", "아니요");
                if(@pos == 0) end;
                else if(@list_3 == 1) {
                    if(pc_amountitem(@mysd, name2itemid("바람의문장")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("금강진궁")) < 1) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }  
                    if(pc_amountitem(@mysd, name2itemid("청옥")) < 12) {
                        dialog 0,0,0, "재료가 부족합니다.";
                        end;
                    }
                    else {
                        delitem @mysd, name2itemid("바람의문장"), 1;
                        delitem @mysd, name2itemid("금강진궁"), 1;
                        delitem @mysd, name2itemid("청옥"), 12;
                        set $eowkdcpzm, 1;
                        effect @myid, 312;
                        sound @myid, 0, 121;
                        if (pc_checkmagicid(@mysd, 6007) == 0) {
                            set_pcmagicstate @mysd, 6007, 11, 10, 0, 1, 1, 1;
                        }
                        magic_aether @mysd, 6007, 11;
                        sleep 11000;
                        set @ran, rand(1,100);
                        if(@ran >= 1 && @ran <= 10) {
                            additem @mysd, name2itemid("바람제일식궁"), 1;
                            action @myid, 11, 30, 0;
                            dialog 1,0,1, "성공했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                        else if(@ran >= 11 && @ran <= 100) {
                            action @myid, 12, 30, 0;
                            dialog 1,0,1, "실패했습니다.";
                            set $eowkdcpzm, 0;
                            end;
                        }
                    }
                }
                else if(@list_3 == 2) {
                    end;
                }
            }    
        }
    }
}