게임존 - 게임정보 커뮤니티 - 마법 배우는 검색기 스크립트

바람의나라 자료게시판 소스자료실 ()

마법 배우는 검색기 스크립트

- 게임존
- 2016.02.16 - 23:06 497

FUNC로 제작되어 있으며, callfunc "magic_search";로 사용이 가능합니다.

대체적으로 F1, F2 이벤트를 통해 직접 가서 마법을 알아보는게 아닌, 언제 어디에서든지 제물을 확인할 수 있게 하세요!

제물은 바람의나라 기준으로 작성되었습니다.

//callfunc "magic_search";
FUNC_magic_search   {
   set @sd, mysd();
   set @id, myid();

   if(get_job(@sd) == 1)
   {
       //제한레벨
       setarray @spell_reqlvl[1], 0, 0, 10, 15, 18, 23, 25, 30, 32, 35
                   , 45, 50, 54, 62, 63, 65, 78, 80, 99, 99
                   , -1;

       //배우는 마법
       setarray @spell_list$[1], "성황령", "비영사천문", "누리의기원", "대지의기원", "이중공격"
                   , "신의축복", "후면공격", "측면공격", "삼중공격", "하늘의기원"
                   , "신검합일", "백호령", "유인", "사중공격", "건곤대나이"
                   , "검신검귀", "대력검신", "오중공격", "사자후전사", "동귀어진"
                   , "Error";

       //배우는 마법 설명
       setarray @spell_explain$[1], "캐릭터가 죽었을 경우 사용하면 자신이 해당된 성내 '성황당'으로 이동하게 되는 마법이네 "
                   , "이 기술은 동, 서, 남, 북으로 순식간에 이동할 수 있는 마법으로 필수적이면서도 가장 기본적인 마법이네 "
                   , "자신의 체력을 약간 회복하는 기술로써, 자신의 체력만 회복 가능하여 그다지 중요하지 않은 기술이네 "
                   , "약간의 체력을 회복하는 기술로써, 타인의 체력도 회복해 줄 수 있는 유요한 기술로 보이지 않는 적의 위치도 감지 할 수 있는 유용한 기술이네 "
                   , "순간적으로 두번 연속 공격하는 기술로써, 기본공격이 약 2배 증가되는 마법이네 "
                   , "일반 공격의 명중률을 일정시간 동안 높히는 기술로써, 전사의 중요한 기술이네 "
                   , "앞뒤의 적을 동시에 공격할 수 있는 기술로써, 전사의 중요한 기술이네 "
                   , "동시에 좌우에 있는 적을 공격 할 수 있는 기술로써 전사의 중요한 기술이네 "
                   , "순간적으로 세 번 연속 공격하는 기술로써, 굉장히 유용한 기술이라네 공격력이 약 3배 정도 증가하는 기술이라네 "
                   , "자신의 체력을 200만큼 회복하는 기술로써 자신의 체력만 회복 할 수 있는 기술이라네 "
                   , "검에 자신의 혼을 불어넣어 파괴력을 증가시키는 기술로써, 공격력을 향상시키는 중요한 기술이라네 "
                   , "호랑이의 혼을 빌어 순간적으로 파괴력을 증가 시키는 전사의 중요한 기술이라네 "
                   , "타인과 전투중이 아닌 괴수로 하여금 일정시간동안 자신만을 바라보게하도록 하는 기술로써 중요한 기술이라네 "
                   , "순간적으로 네번 연속 공격하는 기술로써, 기본공격이 약 4배 증가되는 마법이네 "
                   , "자신의 체력의 대부분을 사용, 정면의 상대에게 치명적이고 순간적인 피해를 입히는 전사의 필살기라네 "
                   , "검에 혼을 불어넣어 공격력을 강화시키는 마법으로써 전사의 중요한 기술이라네 "
                   , "검에 혼을 불어넣어 공격력을 강화시키는 마법으로써 전사의 중요한 기술이라네 "
                   , "순간적으로 다섯번 연속 공격하는 기술로써, 기본공격이 약 5배 증가되는 기술이네 "
                   , "목소리에 공력을 실어 크게 외치는 기술로써, 서버내 모든 유저들이 자신의 목소리를 들을 수 있게 해주는 기술이네 "
                   , "자신의 모든 체력을 사용해 정면의 상대에게 치명적인 피해를 입히는 전사의 최고 필살 기술이네 "
                   , "Error";

       //그냥 어법에맞게 을, 를 뜰지하는거
       setarray @spell_goods_message$[1], "을", "을", "을", "을", "을"
                       , "을", "을", "을", "을", "을"
                       , "을", "을", "를", "을", "를"
                       , "를", "을", "을", "를", "을"
                               , "Error";

       //재물정보
       setarray @spell_goods$[1], " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 30전과 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 40전과 도토리 70개, 사슴고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과 도토리 80개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 80전과 도토리 80개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과 도토리 80개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 150전과 도토리 80개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 300전과 도토리 80개, 호랑이고기 15개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과 도토리 80개, 웅담 30개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과 도토리 50개, 여우모피 10개, 철도 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과 도토리 50개, 자호의가죽 2개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과 도토리 50개, 자호의가죽 2개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 900전과 도토리 80개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 1500전과 도토리 100개, 현철중검 2개, 호박 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 1500전과 도토리 80개, 철도 1개, 자호의가죽 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 3000전과 도토리 80개, 현철중검 1개, 호박 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 3500전과 도토리 100개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과 도토리 100개, 진호박 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 10000전과 도토리 100개, 환두대도 1개, 진호박 20개를 나에게 바쳐야 하느니라."
                   , "Error";

       //체크후 리스트에 뜰 마법
       setarray @spell_list1$, 20;
       //체크후 리스트에 뜰 재료
       setarray @spell_goods1$, 20;
       //체크후 그냥 을,를 중에 뭐띄울지
       setarray @spell_goods_message1$, 20;
       //체크후 대화창에 뜰 설명
       setarray @spell_explain1$, 20;
       //체크할수 있는 변수
       set @count, 0; // 마법 리스트에 관한 변수
       set @s_count, 0; // 마법 몇개 배울수 있는지

       //초기화
       for(set @loop, 1; @loop < 21; set @loop, @loop+1)
       {
           set @spell_list1$[@loop], " ";
           set @spell_goods1$[@loop], " ";
           set @spell_goods_message1$[@loop], " ";
           set @spell_explain1$[@loop], " ";
       }

       for(set @loop, 1; @loop < 22; set @loop, @loop+1)
       {
           set @count, @count+1;
           if(@count == 21 || getarraysize(@spell_list$)-1 == @loop) { break; }
           else if(get_level(@sd) < @spell_reqlvl[@loop] && get_level(@sd)+8 >= @spell_reqlvl[@loop] && checkspell(name2spellid(@spell_list$[@loop])) == 52)
           {
               if(!strcmp(@spell_list1$[@count], " ")) { set @spell_list1$[@count], @spell_list$[@loop]; }
               if(!strcmp(@spell_goods1$[@count], " ")) { set @spell_goods1$[@count], @spell_goods$[@loop]; }
               if(!strcmp(@spell_goods_message1$[@count], " ")) { set @spell_goods_message1$[@count], @spell_goods_message$[@loop]; }
               if(!strcmp(@spell_explain1$[@count], " ")) { set @spell_explain1$[@count], @spell_explain$[@loop]; }
               if(!strcmp(@spell_list1$[@count], " ") || !strcmp(@spell_goods1$[@count], " ")) { set @count, @count-1; }
               set @s_count, @s_count+1;
           }
           else { set @count, @count-1; }
       }

       set @message$, "자네 수준이라면 이런\\n마법들을 알아볼 수 있겠군";
       if(@s_count == 0) { set @ret, dialog(0, 0, 0, "내가 알려줄 마법이 없구려..."); goto failed_deletearray; end; }
       else if(@s_count == 1) { set @addspell, list1(@message$, @spell_list1$[1]); }
       else if(@s_count == 2) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2]); }
       else if(@s_count == 3) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3]); }
       else if(@s_count == 4) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4]); }
       else if(@s_count == 5) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5]); }
       else if(@s_count == 6) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6]); }
       else if(@s_count == 7) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7]); }
       else if(@s_count == 8) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8]); }
       else if(@s_count == 9) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9]); }
       else if(@s_count == 10) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10]); }
       else if(@s_count == 11) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11]); }
       else if(@s_count == 12) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12]); }
       else if(@s_count == 13) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13]); }
       else if(@s_count == 14) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14]); }
       else if(@s_count == 15) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15]); }
       else if(@s_count == 16) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16]); }
       else if(@s_count == 17) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17]); }
       else if(@s_count == 18) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18]); }
       else if(@s_count == 19) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19]); }
       else if(@s_count == 20) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20]); }

       if(@addspell != 0)
       {
           if(!strcmp(@spell_list$[@addspell], " "))
           {
               end;
           }
           set @pos, list2(@ans, 1, 0, @spell_explain1$[@addspell] + @spell_list1$[@addspell] + @spell_goods_message1$[@addspell] + @spell_goods1$[@addspell], "처음으로");
           if(@pos == 0) { goto failed_deletearray; end; }
           if(@ans == 1)
           {
               deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl);
               deletearray @spell_list1[1], getarraysize(@spell_list1);
               deletearray @spell_goods1$[1], getarraysize(@spell_goods1$);
               deletearray @spell_goods_message$[1], getarraysize(@spell_goods_message$);
               deletearray @spell_goods_message1$[1], getarraysize(@spell_goods_message1$);
               deletearray @spell_list$[1], getarraysize(@spell_list$);
               deletearray @spell_goods$[1], getarraysize(@spell_goods$);
               deletearray @spell_goods_explain$[1], getarraysize(@spell_goods_explain$);
               deletearray @spell_goods_explain1$[1], getarraysize(@spell_goods_explain1$);
               end;
           }
       }
   }
   else if(get_job(@sd) == 2)
   {
       //제한레벨
       setarray @spell_reqlvl[1], 0, 0, 8, 12, 12, 14, 15, 17, 18, 20
                   , 24, 25, 28, 30, 33, 34, 35, 36, 38, 40
                   , 43, 45, 48, 50, 53, 56, 58, 65, 75, 80
                   , 90, 99, 99
                   , -1;

       //배운 마법
       setarray @spell_list$[1], "성황령", "비영사천문", "누리의기원", "대지의기원", "누리의빛"
                   , "금수", "누리의힘", "대지의빛", "-1", "동해의기원"
                   , "무영보법", "경수", "바다의빛", "이중공격", "야수"
                   , "투명", "출두", "-2", "비영승보", "맹수"
                   , "망각", "귀환", "천공의기원", "필살검무", "소환"
                   , "삼중공격", "-3", "노획", "-4", "흡성대법"
                   , "운기", "사자후도적", "분신"
                   , "Error";

       //배우는 마법 설명
       setarray @spell_explain$[1], "캐릭터가 죽었을 경우 사용하면 자신이 해당된 성내 '성황당'으로 이동하게 되는 마법이네 "
                   , "이 기술은 동, 서, 남, 북으로 순식간에 이동할 수 있는 마법으로 필수적이면서도 가장 기본적인 마법이네 "
                   , "자신의 체력을 약간 회복하는 기술로써, 자신의 체력만 회복 가능하여 그다지 중요하지 않은 기술이네 "
                   , "약간의 체력을 회복하는 기술로써, "
                   , "다른사람의 능력치를 훔쳐보는 기술로써, "
                   , "고양이, 새끼돼지, 돼지, 강아지, 누렁이로 변신하는 기술로써, "
                   , "자신의 마력을 불어넣어 힘을 일정시간 동안 높이는 마법으로써, "
                   , "다른 사람의 능력치를 훔쳐보는 기술로 시야에 보이는 모든 사람의 능력치를 훔쳐볼수있는 기술이라네 "
                   , "신수의 속성을 가진 원거리 마법으로써, 멀리서도 적을 공격할 수 있는 기술이네 "
                   , "자신이나 다른 사람의 체력을 100만큼 회복시키는 기술로써, "
                   , "현란한 몸놀림으로 상대의 공격을 피하는 기술로써, "
                   , "토끼,다람쥐로 변신하는 기술로써, "
                   , "다른 사람의 능력치와 가진 물건을 훔쳐보는 기술로써, "
                   , "순간적으로 2번 연속 공격하는 기술로써, "
                   , "여우, 늑대로 변신하는 기술로써, "
                   , "자신의 몸을 숨겨 상대에게 기습을 가하는 기술로써, "
                   , "자신보다 낮은 레벨의 사람에게 순간적으로 이동하는 기술로써, "
                   , "첫번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "적의 등 뒤로 돌아서며 공격하는 기술로써, "
                   , "곰과 호랑이로 변신하는 기술로써, "
                   , "몬스터가 공격을 할 수 없게 만드는 기술로써, "
                   , "자신의 나라 주막으로 이동하는 기술로써, "
                   , "자신 또는 다른 사람의 체력을 200만큼 회복하는 기술로써, "
                   , "한번에 모든 기를 끌어올려 치명적인 가격을 하는 기술로써, "
                   , "자신보다 낮은 레벨의 사람을 자신의 앞으로 소환하는 기술로써, "
                   , "순간적으로 세 번 연속으로 공격하는 기술로써, "
                   , "두번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "마법력을 사용하여 앞쪽에 있는 물건을 재빠르게 집는 기술로써, "
                   , "세번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "상대방의 체력을 흡수하는 기술이라네 "
                   , "동작을 멈추고 빠른 속도로 기력을 회복하는 기술이라네 "
                   , "목소리에 공력을 실어 크게 외치는 기술로써, 서버내 모든 유저들이 자신의 목소리를 들을 수 있게 해주는 기술이네 "
                   , "기를 집중하여 파괴력을 증강시키는 기술이라네 "
                   , "Error";

       //그냥 어법에맞게 을, 를 뜰지하는거
       setarray @spell_goods_message$[1], "을", "을", "을", "을", "을"
                       , "를", "을", "을", "를", "을"
                       , "을", "를", "을", "을", "를"
                       , "을", "를", "를", "를", "를"
                       , "을", "을", "을", "를", "을"
                       , "을", "를", "을", "를", "을"
                       , "를", "을", "을"
                       , "Error";

           //재물정보
       setarray @spell_goods$[1], " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 30전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 40전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 50개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 50개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 150전과, 도토리 70개, 뱀고기 30개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 30개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 100개, 호랑이고기 5개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 80개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 80개, 호랑이고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 100개, 호랑이고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 300전과, 도토리 150개, 호랑이고기 30개 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 80개, 여우모피 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 400전과, 도토리 200개, 호랑이고기 20개, 철도 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 100개, 호랑이고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과, 도토리 50개, 호랑이고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 400전과, 도토리 180개, 호랑이고기 40개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 400전과, 도토리 80개, 웅담 20개, 호랑이고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 400전과, 도토리 80개, 웅담 20개, 호랑이고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 100개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 100개, 웅담 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 1000전과, 도토리 200개, 철도 1개, 자호의가죽 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과, 도토리 100개, 자호의가죽 2개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 1000전과, 도토리 180개, 야월도 1개, 자호의가죽 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 800전과, 도토리 130개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 2000전과, 도토리 130개, 철검 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 4000전과, 도토리 180개, 철단도 1개, 호박 5개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과, 도토리 190개, 진호박 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과, 도토리 190개, 진호박 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과, 도토리 200개, 진호박 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 6000전과, 도토리 200개, 진호박 20개, 가시철단도 1개를 나에게 바쳐야 하느니라."
                   , "Error";

       //체크후 리스트에 뜰 마법
       setarray @spell_list1$, 33;
       //체크후 리스트에 뜰 재료
       setarray @spell_goods1$, 33;
       //체크후 그냥 을,를 중에 뭐띄울지
       setarray @spell_goods_message1$, 33;
       //체크후 대화창에 뜰 설명
       setarray @spell_explain1$, 33;
       //체크할수 있는 변수
       set @count, 0; // 마법 리스트에 관한 변수
       set @s_count, 0; // 마법 몇개 배울수 있는지

       //초기화
       for(set @loop, 1; @loop < 34; set @loop, @loop+1)
       {
           set @spell_list1$[@loop], " ";
           set @spell_goods1$[@loop], " ";
           set @spell_goods_message1$[@loop], " ";
           set @spell_explain1$[@loop], " ";
       }

       //먼저 spell_list$에 재대로 넣는다.
       switch(get_totem(@sd))
       {
       case 0:
           set @spell_list$[9], "화염주"; set @spell_list$[18], "화영열주"; set @spell_list$[27], "화열참주"; set @spell_list$[29], "진화열참주";
           break;
       case 1:
           set @spell_list$[9], "백열주"; set @spell_list$[18], "백령주"; set @spell_list$[27], "백열참주"; set @spell_list$[29], "진백열참주";
           break;
       case 2:
           set @spell_list$[9], "자무주"; set @spell_list$[18], "자영무주"; set @spell_list$[27], "자천무주"; set @spell_list$[29], "진자천무주";
           break;
       case 3:
           set @spell_list$[9], "뢰진주"; set @spell_list$[18], "뢰격주"; set @spell_list$[27], "뢰격참주"; set @spell_list$[29], "진뢰격참주";
           break;
       }

       for (set @loop, 1; @loop < 34; set @loop, @loop+1)
       {
           set @count, @count+1;
           if(@count == 33 || getarraysize(@spell_list$)-1 == @loop) { break; }
           else if(get_level(@sd) < @spell_reqlvl[@loop] && get_level(@sd)+8 >= @spell_reqlvl[@loop] && checkspell(name2spellid(@spell_list$[@loop])) == 52)
           {
               if(!strcmp(@spell_list1$[@count], " ")) { set @spell_list1$[@count], @spell_list$[@loop]; }
               if(!strcmp(@spell_goods1$[@count], " ")) { set @spell_goods1$[@count], @spell_goods$[@loop]; }
               if(!strcmp(@spell_goods_message1$[@count], " ")) { set @spell_goods_message1$[@count], @spell_goods_message$[@loop]; }
               if(!strcmp(@spell_explain1$[@count], " ")) { set @spell_explain1$[@count], @spell_explain$[@loop]; }
               if(!strcmp(@spell_list1$[@count], " ") || !strcmp(@spell_goods1$[@count], " ")) { set @count, @count-1; }
               set @s_count, @s_count+1;
           }
           else { set @count, @count-1; }
       }

       set @message$, "자네 수준이라면 이런\\n마법들을 알아볼 수 있겠군.";
       if(@count == 0) { set @ret, dialog(0, 0, 0, "내가 알려줄 마법이 없구려..."); goto failed_deletearray; end; }
       else if(@count == 1) { set @addspell, list1(@message$, @spell_list1$[1]); }
       else if(@count == 2) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2]); }
       else if(@count == 3) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3]); }
       else if(@count == 4) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4]); }
       else if(@count == 5) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5]); }
       else if(@count == 6) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6]); }
       else if(@count == 7) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7]); }
       else if(@count == 8) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8]); }
       else if(@count == 9) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9]); }
       else if(@count == 10) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10]); }
       else if(@count == 11) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11]); }
       else if(@count == 12) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12]); }
       else if(@count == 13) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13]); }
       else if(@count == 14) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14]); }
       else if(@count == 15) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15]); }
       else if(@count == 16) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16]); }
       else if(@count == 17) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17]); }
       else if(@count == 18) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18]); }
       else if(@count == 19) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19]); }
       else if(@count == 20) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20]); }
       else if(@count == 21) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21]); }
       else if(@count == 22) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22]); }
       else if(@count == 23) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23]); }
       else if(@count == 24) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24]); }
       else if(@count == 25) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25]); }
       else if(@count == 26) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26]); }
       else if(@count == 27) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27]); }
       else if(@count == 28) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28]); }
       else if(@count == 29) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29]); }
       else if(@count == 30) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30]); }
       else if(@count == 31) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31]); }
       else if(@count == 32) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31], @spell_list1$[32]); }
       else if(@count == 33) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31], @spell_list1$[32], @spell_list1$[33]); }

       if(@addspell != 0)
       {
           if(!strcmp(@spell_list$[@addspell], " "))
           {
               goto failed_deletearray;
               end;
           }
           set @pos, list2(@ans, 1, 0, @spell_explain1$[@addspell] + @spell_list1$[@addspell] + @spell_goods_message1$[@addspell] + @spell_goods1$[@addspell], "처음으로");
           if(@pos == 0) { goto failed_deletearray; end; }
           if(@ans == 1)
           {
               deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl);
               deletearray @spell_list1[1], getarraysize(@spell_list1);
               deletearray @spell_goods1$[1], getarraysize(@spell_goods1$);
               deletearray @spell_goods_message$[1], getarraysize(@spell_goods_message$);
               deletearray @spell_goods_message1$[1], getarraysize(@spell_goods_message1$);
               deletearray @spell_list$[1], getarraysize(@spell_list$);
               deletearray @spell_goods$[1], getarraysize(@spell_goods$);
               deletearray @spell_goods_explain$[1], getarraysize(@spell_goods_explain$);
               deletearray @spell_goods_explain1$[1], getarraysize(@spell_goods_explain1$);
               goto first;
           }
       }
       goto failed_deletearray;
       end;
   }
   else if(get_job(@sd) == 3)
   {
       //제한레벨
       setarray @spell_reqlvl[1], 0, 0, 5, 6, 8, 10, 13, 14, 16, 16
                   , 90, 18, 19, 20, 23, 24, 25, 27, 30, 31
                   , 31, 32, 34, 35, 36, 40, 43, 45, 50, 53
                   , 55, 58, 60, 62, 65, 74, 85, 99, 99
                   , -1;

       //배운 마법
       setarray @spell_list$[1], "성황령", "비영사천문", "누리의기원", "-1", "대지의기원"
                   , "무장", "귀환", "-2", "바다의기원", "-3"
                   , "성려멸주", "동해의기원", "대지의힘", "출두", "하늘의기원"
                   , "-4", "해독", "천공의기원", "소환", "활력"
                   , "-5", "보호", "공력증강", "구름의기원", "-6"
                   , "야수", "퇴마주", "-7", "맹수", "중독"
                   , "저주", "마비", "절망", "-8", "혼돈"
                   , "-9", "-10", "사자후술사", "헬파이어"
                   , "Error";

       //배우는 마법 설명
       setarray @spell_explain$[1], "캐릭터가 죽었을 경우 사용하면 자신이 해당된 성내 '성황당'으로 이동하게 되는 마법이네 "
                   , "이 기술은 동, 서, 남, 북으로 순식간에 이동할 수 있는 마법으로 필수적이면서도 가장 기본적인 마법이네 "
                   , "자신의 체력을 약간 회복하는 기술로써, 자신의 체력만 회복 가능하여 그다지 중요하지 않은 기술이네 "
                   , "신수 속성을 가진 원거리 마법으로써, 멀리서도 적을 공격할 수 있는 기술이네 "
                   , "약간의 체력을 회복하는 기술로써, 타인의 체력도 회복해 줄 수 있는 유요한 기술로 보이지 않는 적의 위치도 감지 할 수 있는 유용한 기술이네 "
                   , "자신이나 타인의 갑옷 강도를 일정시간 높여 피해를 줄이는 마법이네 "
                   , "자신의 나라 주막으로 이동하는 마법이네 "
                   , "자신의 전후좌우 방향으로 동시에 신수마법을 시전하는 마법으로 많은 적을 공격 할 수 있다네 "
                   , "자신의 체력을 100만큼 회복하는 기술로써, 기초적인 회복마법이라네 "
                   , "첫번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "공격마법이네 "
                   , "자신이나 타인의 체력을 100만큼 회복시키는 마법이네 "
                   , "자신이나 타인에게 마력을 불어넣어 힘을 일정시간 동안 높히는 기술이네 "
                   , "자신보다 낮은 레벨의 사람에게 순간적으로 이동하는 마법이네 "
                   , "자신의 체력을 200만큼 회복시키는 마법이네 "
                   , "자신의 전후좌우 방향으로 동시에 한층 강해진 신수마법을 시전하는 마법으로 많은 적을 공격 할 수 있다네 "
                   , "중독을 푸는 회복 계열의 마법이네 "
                   , "자신이나 타인의 체력을 200만큼 회복시키는 마법이네 "
                   , "자신보다 레벨이 낮은 사람을 자신의 앞으로 불러오는 마법이네 "
                   , "마비를 푸는 회복계열의 마법이네 "
                   , "두번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "일정시간 동안 모든 공격으로부터의 피해를 절반으로 줄여주는 마법이네 "
                   , "소량의 마력과 일부 체력을 소모해, 마력을 완전히 회복시키는 마법이네 "
                   , "자신이나 타인의 체력을 500만큼 회복시켜주는 마법이네 "
                   , "자신의 전후좌우 방향으로 동시에 한층 강해진 신수마법을 시전하는 마법으로 많은 적을 공격 할 수 있다네 "
                   , "여우,늑대로 변신하는 도적의 야수와 동일한 효과를 가지는 마법이네 "
                   , "저주를 푸는 회복계열의 마법이네 "
                   , "세번째 신수마법의 다음 단계 기술로써, 적에게 더욱 강력한 공격을 가할수 있는 마법이네 "
                   , "곰,호랑이로 변신하는 마법이네 "
                   , "대상을 맹독에 노출시켜 중독 상태로 만드는 저주 계열의 마법이네 "
                   , "대상을 저주하여 방어력을 낮추는 저주 계열의 마법이네 "
                   , "상대를 얼려 움직이지 못하게 만드는 저주 계열의 마법이네 "
                   , "상대의 시력을 일정시간 동안 빼앗는 저주 계열의 마법이네 "
                   , "자신의 전후좌우 방향으로 동시에 한층 가해진 신수마법을 시전하는 마법으로 많은 적을 공격 할 수 있다네 "
                   , "희생자의 정신을 혼란시켜 아군을 공격하게 만드는 마법이네 "
                   , "신수 속성을 가진 주술사의 최강의 원거리 공격 마법이네 "
                   , "자신의 전후좌우 방향으로 동시에 한층 강해진 신수마법을 시전하는 마법으로 많은 적을 공격 할 수 있다네 "
                   , "목소리에 공력을 실어 크게 외치는 기술로써, 서버내 모든 유저들이 자신의 목소리를 들을 수 있게 해주는 기술이네 "
                   , "주술사의 필살기로 모든 마력을 순간적으로 소모해 그에 비례하는 피해를 입히는 마법이네 "
                   , "Error";

       //그냥 어법에맞게 을, 를 뜰지하는거
       setarray @spell_goods_message$[1], "을", "을", "을", "를", "을"
                       , "을", "을", "을", "을", "를"
                       , "을", "을", "을", "를", "을"
                       , "를", "을", "을", "을", "을"
                       , "를", "를", "을", "을", "을"
                       , "를", "를", "를", "를", "을"
                       , "를", "를", "을", "을", "을"
                       , "를", "을", "를", "를"
                       , "Error";

       //재물정보
       setarray @spell_goods$[1]," 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 80전과, 도토리 60개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 30개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 50개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 70전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 70개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 50개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 50개, 뱀고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 30개, 곰가죽 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 60개, 녹용 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 80개, 녹용 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 50전과, 도토리 80개, 뱀고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 60개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 70개, 호랑이고기 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 70개, 호랑이고기 20개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 100개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 도토리 100개, 웅담 10개, 여우모피 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 100개, 여우모피 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 50개, 여우모피 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 200전과, 도토리 50개, 여우모피 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과, 도토리 50개, 철도 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 100전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 2000전과, 도토리 70개, 좋은뱀고기 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 250전과, 도토리 70개, 자호의가죽 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 300전과, 도토리 70개, 자호의가죽 10개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 400전과, 도토리 80개, 호박 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 500전과, 도토리 70개, 호박 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 600전과, 도토리 90개, 호박 2개, 해골죽장 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 2000전과, 도토리 100개, 진호박 1개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 2000전과, 도토리 100개, 진호박 2개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과, 도토리 100개를 나에게 바쳐야 하느니라."
                   , " 배우기 위해서는 금전 5000전과, 도토리 100개, 진호박 10개, 대마령봉 1개를 나에게 바쳐야 하느니라."
                   , "Error";

       //체크후 리스트에 뜰 마법
       setarray @spell_list1$, 39;
       //체크후 리스트에 뜰 재료
       setarray @spell_goods1$, 39;
       //체크후 그냥 을,를 중에 뭐띄울지
       setarray @spell_goods_message1$, 39;
       //체크후 대화창에 뜰 설명
       setarray @spell_explain1$, 39;
       //체크할수 있는 변수
       set @count, 0; // 마법 리스트에 관한 변수
       set @s_count, 0; // 마법 몇개 배울수 있는지

       //초기화
       for (set @loop, 1; @loop < 40; set @loop, @loop+1)
       {
           set @spell_list1$[@loop], " ";
           set @spell_goods1$[@loop], " ";
           set @spell_goods_message1$[@loop], " ";
           set @spell_explain1$[@loop], " ";
       }

       //먼저 spell_list$에 재대로 넣는다.
       switch(get_totem(@sd))
       {
       case 0:
           set @spell_list$[4], "화염주"; set @spell_list$[8], "화염주'첨"; set @spell_list$[10], "화영열주"; set @spell_list$[16], "화영열주'첨"; set @spell_list$[21], "화열참주"; set @spell_list$[25], "화열참주'첨"; set @spell_list$[28], "진화열참주"; set @spell_list$[34], "진화열참주'첨"; set @spell_list$[36], "극진화열참주"; set @spell_list$[37], "극진화열참주'첨";
           break;
       case 1:
           set @spell_list$[4], "백열주"; set @spell_list$[8], "백열주'첨"; set @spell_list$[10], "백령주"; set @spell_list$[16], "백령주'첨"; set @spell_list$[21], "백열참주"; set @spell_list$[25], "백열참주'첨"; set @spell_list$[28], "진백열참주"; set @spell_list$[34], "진백열참주'첨"; set @spell_list$[36], "극진백열참주"; set @spell_list$[37], "극진백열참주'첨";
           break;
       case 2:
           set @spell_list$[4], "자무주"; set @spell_list$[8], "자무주'첨"; set @spell_list$[10], "자영무주"; set @spell_list$[16], "자영무주'첨"; set @spell_list$[21], "자천무주"; set @spell_list$[25], "자천무주'첨"; set @spell_list$[28], "진자천무주"; set @spell_list$[34], "진자천무주'첨"; set @spell_list$[36], "극진자천무주"; set @spell_list$[37], "극진자천무주'첨";
           break;
       case 3:
           set @spell_list$[4], "뢰진주"; set @spell_list$[8], "뢰진주'첨"; set @spell_list$[10], "뢰격주"; set @spell_list$[16], "뢰격주'첨"; set @spell_list$[21], "뢰격참주"; set @spell_list$[25], "뢰격참주'첨"; set @spell_list$[28], "진뢰격참주"; set @spell_list$[34], "진뢰격참주'첨"; set @spell_list$[36], "극진뢰격참주"; set @spell_list$[37], "극진뢰격참주'첨";
           break;
       }

       for (set @loop, 1; @loop < 40; set @loop, @loop+1)
       {
           set @count, @count+1;
           if(@count == 39 || getarraysize(@spell_list$)-1 == @loop) { break; }
           else if(get_level(@sd) < @spell_reqlvl[@loop] && get_level(@sd)+8 >= @spell_reqlvl[@loop] && checkspell(name2spellid(@spell_list$[@loop])) == 52)
           {
               if(!strcmp(@spell_list1$[@count], " ")) { set @spell_list1$[@count], @spell_list$[@loop]; }
               if(!strcmp(@spell_goods1$[@count], " ")) { set @spell_goods1$[@count], @spell_goods$[@loop]; }
               if(!strcmp(@spell_goods_message1$[@count], " ")) { set @spell_goods_message1$[@count], @spell_goods_message$[@loop]; }
               if(!strcmp(@spell_explain1$[@count], " ")) { set @spell_explain1$[@count], @spell_explain$[@loop]; }
               if(!strcmp(@spell_list1$[@count], " ") || !strcmp(@spell_goods1$[@count], " ")) { set @count, @count-1; }
               set @s_count, @s_count+1;
           }
           else { set @count, @count-1; }
       }

       if(@addspell != 0)
       {
           if(!strcmp(@spell_list$[@addspell], " "))
           {
               goto failed_deletearray;
               end;
           }
           set @pos, list2(@ans, 1, 0, @spell_explain1$[@addspell] + @spell_list1$[@addspell] + @spell_goods_message1$[@addspell] + @spell_goods1$[@addspell], "처음으로");
           if(@pos == 0) { goto failed_deletearray; end; }
           if(@ans == 1)
           {
               deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl);
               deletearray @spell_list1[1], getarraysize(@spell_list1);
               deletearray @spell_goods1$[1], getarraysize(@spell_goods1$);
               deletearray @spell_goods_message$[1], getarraysize(@spell_goods_message$);
               deletearray @spell_goods_message1$[1], getarraysize(@spell_goods_message1$);
               deletearray @spell_list$[1], getarraysize(@spell_list$);
               deletearray @spell_goods$[1], getarraysize(@spell_goods$);
               deletearray @spell_goods_explain$[1], getarraysize(@spell_goods_explain$);
               deletearray @spell_goods_explain1$[1], getarraysize(@spell_goods_explain1$);
               goto first;
           }
       }
       goto failed_deletearray;
   }
   else if(get_job(@sd) == 4)
   {
       //제한레벨
       setarray @spell_reqlvl[1], 0, 0, 5, 6, 12, 14, 15, 18, 22
                   , 24, 25, 27, 30, 30, 33, 35, 38, 39, 40
                   , 45, 53, 55, 58, 60, 65, 68, 74, 80, 83
                   , 85, 88, 95, 99, 99, -1;

       //배운 마법
       setarray @spell_list$[1], "성황령", "비영사천문", "누리의기원", "바다의기원", "-1"
                   , "공력증강", "해독", "천공의기원", "무장", "보호"
                   , "퇴마주", "차폐", "구름의기원", "출두" , "천공의희원"
                   , "귀환", "소환", "활력", "시력회복", "태양의기원"
                   , "파혼술", "구름의희원", "심안투영", "혼마술", "공력주입"
                   , "소혼강신", "지진", "태양의희원", "생명의기원", "금강불체"
                   , "무력화", "환마술", "사자후도사", "부활"
                   , "Error";

       //배우는 마법 설명
       setarray @spell_explain$[1], "캐릭터가 죽었을 경우 사용하면 자신이 해당된 성내 '성황당'으로 이동하게 되는 마법이네 "
                   , "이 기술은 동, 서, 남, 북으로 순식간에 이동할 수 있는 마법으로 필수적이면서도 가장 기본적인 마법이네 "
                   , "자신의 체력을 약간 회복하는 기술로써, 자신의 체력만 회복 가능하여 그다지 중요하지 않은 기술이네 "
                   , "자신의 체력을 약간 회복하는 기술로써, "
                   , "신수의 속성을 가진 원거리 마법으로써, 멀리서도 적을 공격할 수 있는 기술이네 "
                   , "마력 소량과 일부 체력을 소모해서 마력을 완전히 회복시키는 기술로써, "
                   , "중독을 푸는 회복 계열 마법으로써, "
                   , "자신이나 타인의 체력을 200만큼 회복시키는 마법으로써, "
                   , "자신이나 타인의 갑옷강도를 일정시간동안 높여 피해를 줄이는 마법으로써, "
                   , "일정시간 동안 모든 공격으로부터의 피해를 절반으로 줄여주는 마법으로써, "
                   , "저주를 푸는 회복 계열의 마법으로써, "
                   , "마력으로 보호막을 만들어 접근을 못하게 하는 마법으로써, "
                   , "자신이나 타인의 체력을 500만큼 회복시켜주는 마법으로써, "
                   , "자신보다 낮은 레벨의 사람에게 순간적으로 이동하는 마법으로써, "
                   , "동시에 여러 사람의 체력을 200만큼 회복 시켜주는 마법으로써, "
                   , "자신의 나라의 주막으로 순간 이동하는 마법으로써, "
                   , "자신보다 레벨이 낮은 사람을 자신의 앞으로 불러오는 마법으로써, "
                   , "마비를 푸는 회복 계열의 마법으로써, "
                   , "절망을 푸는 회복 계열의 마법으로써, "
                   , "자신이나 타인의 체력을 1000만큼 회복시켜주는 마법으로써, "
                   , "한번 걸리면 극히 치명적인 혼마술을 푸는 회복 계열의 마법으로써, "
                   , "동시에 여러명의 체력을 500씩 회복시키는 마법으로써, "
                   , "일정시간동안 마음의 눈으로 보이지 않는것을 감지하는 마법으로써, "
                   , "상대의 혼을 어지럽혀 방어력을 극도로 낮추는 마법으로써, "
                   , "자신의 마력을 모두 소모해 다른 사람의 마력을 회복시켜주는 마법으로써, "
                   , "몬스터를 소환해 자신의 부하로 만드는 마법으로써, "
                   , "일정 범위의 적들을 동시에 공격할 수 있는 마법으로써, "
                   , "동시에 여러명의 체력을 1000씩 회복시켜주는 마법으로써, "
                   , "자신이나 타인의 체력을 5000만큼 회복시켜주는 마법으로써, "
                   , "신의 가호를 빌어 잠시 동안 모든 피해를 무효화 시키는 마법으로써, "
                   , "대상에 걸려있는 모든 마법을 일시에 풀어버리는 마법으로써, "
                   , "황마를 소환하여 탑승하는 마법으로써, "
                   , "목소리에 공력을 실어 크게 외치는 기술로써, 서버내 모든 유저들이 자신의 목소리를 들을 수 있게 해주는 기술이네 "
                   , "자신의 모든 마력을 소모해 사자의 육신에 다시 영혼을 불어넣는 마법으로써, "
                   , "Error";

       //그냥 어법에맞게 을, 를 뜰지하는거
       setarray @spell_goods_message$[1], "을", "을", "을", "을", "를"
                       , "을", "을", "을", "을", "를"
                       , "를", "를", "을", "를", "을"
                       , "을", "을", "을", "을", "을"
                       , "을", "을", "을", "을", "을"
                       , "을", "을", "을", "을", "를"
                       , "를", "을", "을", "를"
                       , "Error";

       //재물정보
       setarray @spell_goods$[1],"을 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 10개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 20개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 20개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 20개, 토끼고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 50개, 뱀고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 60개, 뱀고기 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 80개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 60개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 500전과, 도토리 70개, 자호의가죽 5개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 40개, 뱀고기 10개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 30개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 70개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 100전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 200전과, 도토리 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 도토리 20개, 웅담 1개, 동동주 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 200전과, 도토리 50개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 500전과, 도토리 60개, 여우모피 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 500전과, 도토리 100개, 철도 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 1000전과, 도토리 80개, 호박 2개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 500전과, 도토리 70개, 자호의가죽 5개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 800전과, 도토리 100개, 자호의가죽 2개, 적호의가죽 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 500전과, 도토리 80개, 호박 5개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 800전과, 도토리 80개, 진호박 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 5000전과, 도토리 100개, 빨간시약 1개, 진호박 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 5000전과, 도토리 100개, 호박 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 800전과, 도토리 80개, 해골죽장 1개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 27000전과, 황금호박 2개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 5000전과, 도토리 100개, 진호박 20개를 나에게 바쳐야 하느니라."
                   , "을 배우기 위해서는 금전 10000전과, 도토리 200개, 빨간시약 2개, 진호박 5개를 나에게 바쳐야 하느니라."
                   , "Error";

       //체크후 리스트에 뜰 마법
       setarray @spell_list1$, 34;
       //체크후 리스트에 뜰 재료
       setarray @spell_goods1$, 34;
       //체크후 그냥 을,를 중에 뭐띄울지
       setarray @spell_goods_message1$, 34;
       //체크후 대화창에 뜰 설명
       setarray @spell_explain1$, 34;
       //체크할수 있는 변수
       set @count, 0; // 마법 리스트에 관한 변수
       set @s_count, 0; // 마법 몇개 배울수 있는지

       //초기화
       for (set @loop, 1; @loop < 35; set @loop, @loop+1)
       {
           set @spell_list1$[@loop], " ";
           set @spell_goods1$[@loop], " ";
           set @spell_goods_message1$[@loop], " ";
           set @spell_explain1$[@loop], " ";
       }

       //먼저 spell_list$에 재대로 넣는다.
       switch(get_totem(@sd))
       {
       case 0:
           set @spell_list$[5], "화염주";
           break;
       case 1:
           set @spell_list$[5], "백열주";
           break;
       case 2:
           set @spell_list$[5], "자무주";
           break;
       case 3:
           set @spell_list$[5], "뢰진주";
           break;
       }

       for (set @loop, 1; @loop < 35; set @loop, @loop+1)
       {
           set @count, @count+1;
           if(@count == 34 || getarraysize(@spell_list$)-1 == @loop) { break; }
           else if(get_level(@sd) < @spell_reqlvl[@loop] && get_level(@sd)+8 >= @spell_reqlvl[@loop] && checkspell(name2spellid(@spell_list$[@loop])) == 52)
           {
               if(!strcmp(@spell_list1$[@count], " ")) { set @spell_list1$[@count], @spell_list$[@loop]; }
               if(!strcmp(@spell_goods1$[@count], " ")) { set @spell_goods1$[@count], @spell_goods$[@loop]; }
               if(!strcmp(@spell_goods_message1$[@count], " ")) { set @spell_goods_message1$[@count], @spell_goods_message$[@loop]; }
               if(!strcmp(@spell_explain1$[@count], " ")) { set @spell_explain1$[@count], @spell_explain$[@loop]; }
               if(!strcmp(@spell_list1$[@count], " ") || !strcmp(@spell_goods1$[@count], " ")) { set @count, @count-1; }
               set @s_count, @s_count+1;
           }
           else { set @count, @count-1; }
       }

       set @message$, "자네 수준이라면 이런\\n마법들을 알아볼 수 있겠군.";
       if(@count == 0) { set @ret, dialog(0, 0, 0, "내가 알려줄 마법이 없구려..."); deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl); deletearray @spell_list1[1], getarraysize(@spell_list1); deletearray @spell_goods1$[1], getarraysize(@spell_goods1$); deletearray @spell_list$[1], getarraysize(@spell_list$); deletearray @spell_goods$[1], getarraysize(@spell_goods$); end; }
       else if(@count == 1) { set @addspell, list1(@message$, @spell_list1$[1]); }
       else if(@count == 2) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2]); }
       else if(@count == 3) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3]); }
       else if(@count == 4) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4]); }
       else if(@count == 5) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5]); }
       else if(@count == 6) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6]); }
       else if(@count == 7) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7]); }
       else if(@count == 8) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8]); }
       else if(@count == 9) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9]); }
       else if(@count == 10) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10]); }
       else if(@count == 11) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11]); }
       else if(@count == 12) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12]); }
       else if(@count == 13) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13]); }
       else if(@count == 14) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14]); }
       else if(@count == 15) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15]); }
       else if(@count == 16) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16]); }
       else if(@count == 17) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17]); }
       else if(@count == 18) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18]); }
       else if(@count == 19) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19]); }
       else if(@count == 20) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20]); }
       else if(@count == 21) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21]); }
       else if(@count == 22) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22]); }
       else if(@count == 23) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23]); }
       else if(@count == 24) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24]); }
       else if(@count == 25) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25]); }
       else if(@count == 26) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26]); }
       else if(@count == 27) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27]); }
       else if(@count == 28) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28]); }
       else if(@count == 29) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29]); }
       else if(@count == 30) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30]); }
       else if(@count == 31) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31]); }
       else if(@count == 32) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31], @spell_list1$[32]); }
       else if(@count == 33) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31], @spell_list1$[32], @spell_list1$[33]); }
       else if(@count == 34) { set @addspell, list1(@message$, @spell_list1$[1], @spell_list1$[2], @spell_list1$[3], @spell_list1$[4], @spell_list1$[5], @spell_list1$[6], @spell_list1$[7], @spell_list1$[8], @spell_list1$[9], @spell_list1$[10], @spell_list1$[11], @spell_list1$[12], @spell_list1$[13], @spell_list1$[14], @spell_list1$[15], @spell_list1$[16], @spell_list1$[17], @spell_list1$[18], @spell_list1$[19], @spell_list1$[20], @spell_list1$[21], @spell_list1$[22], @spell_list1$[23], @spell_list1$[24], @spell_list1$[25], @spell_list1$[26], @spell_list1$[27], @spell_list1$[28], @spell_list1$[29], @spell_list1$[30], @spell_list1$[31], @spell_list1$[32], @spell_list1$[33], @spell_list1$[34]); }

       if(@addspell != 0)
       {
           if(!strcmp(@spell_list$[@addspell], " "))
           {
               goto failed_deletearray;
               end;
           }
           set @pos, list2(@ans, 1, 0, @spell_explain1$[@addspell] + @spell_list1$[@addspell] + @spell_goods_message1$[@addspell] + @spell_goods1$[@addspell], "처음으로");
           if(@pos == 0) { goto failed_deletearray; end; }
           if(@ans == 1)
           {
               deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl);
               deletearray @spell_list1[1], getarraysize(@spell_list1);
               deletearray @spell_goods1$[1], getarraysize(@spell_goods1$);
               deletearray @spell_goods_message$[1], getarraysize(@spell_goods_message$);
               deletearray @spell_goods_message1$[1], getarraysize(@spell_goods_message1$);
               deletearray @spell_list$[1], getarraysize(@spell_list$);
               deletearray @spell_goods$[1], getarraysize(@spell_goods$);
               deletearray @spell_goods_explain$[1], getarraysize(@spell_goods_explain$);
               deletearray @spell_goods_explain1$[1], getarraysize(@spell_goods_explain1$);
               goto first;
           }
       }
       goto failed_deletearray;
   }
   else
   {
       set @pos, dialog(0, 0, 1, "해당 직업은 이용할 수 없습니다.");
       end;
   }
   end;
failed_deletearray:
   deletearray @spell_reqlvl[1], getarraysize(@spell_reqlvl);
   deletearray @spell_list1[1], getarraysize(@spell_list1);
   deletearray @spell_goods1$[1], getarraysize(@spell_goods1$);
   deletearray @spell_list$[1], getarraysize(@spell_list$);
   deletearray @spell_goods$[1], getarraysize(@spell_goods$);
   deletearray @spell_goods_message$[1], getarraysize(@spell_goods_message$);
   deletearray @spell_goods_message1$[1], getarraysize(@spell_goods_message1$);
   deletearray @spell_goods_explain$[1], getarraysize(@spell_goods_explain$);
   deletearray @spell_goods_number[1], getarraysize(@spell_goods_number);
   deletearray @spell_goods_explain1$[1], getarraysize(@spell_goods_explain1$);
   end;
first:
   end;
}

-게존-

출처(윈바람)

이 게시물을..

CR 오녀산성 스크립트포로롱

42

게임존

글쓴이의 서명작성글 감추기

댓글 쓰기 에디터 사용하기 닫기

view_headline 목록

SEARCH

마법 배우는 검색기 스크립트

게임존 님의 최근 글

게임존 님의 최근 댓글