sun 용무기 수리

@용무기수리 {
 set @sd, mysd();

POS_000:
 set @pos, dialog(0, 0, 1, "용무기를 수리하고 싶다고?\\n\\n돈이 만만치 않을텐데..");
 if(@pos != 1) end;
POS_001:
 set @pos, list2(@list, 0, 1, "무슨 용무기를 고치기를 원하는가?", "용마검을 고치고 싶습니다!", "용천검을 고치고 싶습니다!", "용랑봉을 고치고 싶습니다!", "용겸봉을 고치고 싶습니다!");
 if(@pos == -1) goto POS_000;
 else if(!@pos) end;
 setarray @dura[0], 3000, 15000, 20000, 25000, 30000, 30000, 50000, 70000, 100000;
 setarray @message$[0], "", "", "", "", "", "", "", "", "";
 if(@list == 1)
 {
  setarray @item$[0], "용마제일검", "용마제이검", "용마제삼검", "용마제사검", "용마제오검", "용마제육검", "용마제칠검", "용마제팔검", "용마제구검", "용마제칠검(손상)", "용마제팔검(손상)";
  for(set @i, 0; @i < 9; set @i, @i+1)
  {
   set @message$[@i], @item$[@i] + "을 수리하고 싶습니다!";
  }
  goto real;
 }
 else if(@list == 2)
 {
  setarray @item$[0], "용천제일검", "용천제이검", "용천제삼검", "용천제사검", "용천제오검", "용천제육검", "용천제칠검", "용천제팔검", "용천제구검", "용천제칠검(손상)", "용천제팔검(손상)";
  for(set @i, 0; @i < 11; set @i, @i+1)
  {
   set @message$[@i], @item$[@i] + "을 수리하고 싶습니다!";
  }
  goto real;
 }
 else if(@list == 3)
 {
  setarray @item$[0], "용랑제일봉", "용랑제이봉", "용랑제삼봉", "용랑제사봉", "용랑제오봉", "용랑제육봉", "용랑제칠봉", "용랑제팔봉", "용랑제구봉", "용랑제칠봉(손상)", "용랑제팔봉(손상)";
  for(set @i, 0; @i < 11; set @i, @i+1)
  {
   set @message$[@i], @item$[@i] + "을 수리하고 싶습니다!";
  }
  goto real;
 }
 else if(@list == 4)
 {
  setarray @item$[0], "용겸제일봉", "용겸제이봉", "용겸제삼봉", "용겸제사봉", "용겸제오봉", "용겸제육봉", "용겸제칠봉", "용겸제팔봉", "용겸제구봉", "용겸제칠봉(손상)", "용겸제팔봉(손상)";
  for(set @i, 0; @i < 11; set @i, @i+1)
  {
   set @message$[@i], @item$[@i] + "을 수리하고 싶습니다!";
  }
  goto real;
 }
real:
 set @pos, list2(@list_1, 0, 1, "무슨 용무기를 고치기를 원하는가?", @message$[0], @message$[1], @message$[2], @message$[3], @message$[4], @message$[5], @message$[6], @message$[7], @message$[8], @message$[9], @message$[10]);
 if(@pos == -1) goto POS_001;
 else if(!@pos) end;
 if(@list_1 > 0)
 {
  set @var, @list_1 - 1;
  if(get_equipitem(@sd, 0) != name2itemid(@item$[@var]))
  {
   set @pos, dialog(0, 0, 0, "아이템을 장착한 상태에서만 수리하실 수 있습니다!\\n\\n아이템을 장착하고 다시 시도해주세요!");
   end;
  }
  set @now_dura, get_equipitem_dura(@sd, 0);
  if(@now_dura == @dura[@var])
  {
   set @pos, dialog(0, 0, 0, "새거잖아? 이걸 어떻게 더 수리하란 말야..");
   end;
  }
  set @fix_val, @dura[@var] - @now_dura;
  if(@list_1 <= 8) { set @fix, @fix_val * 50; }
  else if(@list_1 > 8) { set @fix, @fix_val * 100; }
  set @pos, list2(@list_2, 0, 1, @item$[@var] + "을 수리하시려면 " + @fix + "전이 필요합니다.\\n수리하시겠습니까?", "네, 수리하겠습니다.", "아니오, 조금만 더 생각해 볼게요.");
  if(@pos == -1) goto real;
  else if(!@pos) end;
  if(@list_2 == 1)
  {
   if(get_money(@sd) < @fix)
   {
    set @pos, dialog(0, 0, 0, "돈이 부족하셔서 수리하실 수 없습니다.\\n\\n금전을 확인해 주세요.");
    end;
   }
   set_money @sd, get_money(@sd) - @fix;
   set_equipitem_dura @sd, 0, @dura[@var];
   set @pos, dialog(0, 0, 0, "수리가 완료되었습니다!");
   end;
  }
  else if(@list_2 == 2)
  {
   set @pos, dialog(0, 0, 0, "생각이 바뀌면 언제든지 찾아오게!");
   end;
  }
 }
}