환수 알 item 스크립트 or 진화촉진 스크립트

item 알사용 {
 set @id, myid();
 set @sd, mysd();
 image 1, 3468, 0;
 if(checkmagic(@sd, name2spellid("환수소환비전")) != -1)
 {
  delitem @sd, name2itemid("알"), 1;
  set @pv, dialog(0,0,0,"이미 <환수소환비전>마법을 배워 환수를 다룰 수 있습니다. 환수소환비전 마법을 사용해 보세요!");
  end;
 }
A:
 set @pv, list2(@m,0,0,"<b>[ 알 부화기 ]\n 알을 부화 시키기 위해서는\n 연합군의 경험치 필요합니다.\n 사냥터에서 키보드 'F2'\n 단축키를 이용해. 연합군패를\n 얻고 부화를 시켜주세요!","[선택1] 알을 부화 시켜 주세요.","[선택2] 알에서는 무엇이 부화 되나요?");
 switch(@m)
 {
 case 1:
  if(pc_amountitem(@sd, name2itemid("연합군패")) < 1)
  {
   set @pv, dialog(0,0,0,"알을 부화 시키기 위해서는 연합군패가 1개 필요 합니다. 사냥터에서 'F2'단축키를 눌러 연합군패를 획득 하세요.");
   end;
  }

  if(pc_amountitem(@sd, name2itemid("알")) < 1) { end; }

  if(checkmagic(@sd, name2spellid("환수소환비전")) == -1)
  {
   addmagic @sd, name2spellid("환수소환비전");
  }
  sleep(500);
  if(checkmagic(@sd, name2spellid("환수소환비전")) == -1)
  {
   set @pv, dialog(0,0,0,"<마법>을 더이상 배울 수 없어 알을 부화 시킬 수 없습니다. 직업길드나 천상계제일계에서 마법을 지운후 다시 시도해주세요.");
   end;
  }

  effect @id, 334;
  sound @id, 0, 601;

  delitem @sd, name2itemid("연합군패"), 1;
  delitem @sd, name2itemid("알"), 1;
  message @sd, 3, "알 주었습니다.";
  
  message @sd, 3, "환수소환비전 마법을 배웠습니다.";
  broadcast 0,0,"[환수소식] "+get_name(@sd)+"님이 알을 부화 시키고, <환수소환비전>마법을 배웠습니다.",0;

  set @pv, dialog(0,0,0,"<알>이 <유체>로 부화 하였습니다. 마법 <환수소환비전>을 사용하여, 유체를 소환 해보세요.");
  end;
 case 2:
  set @pv, dialog(0,0,1,"알 에서는 포동 포동한 <유체>가 부화 합니다. 유체는 순수한 영체로, 수많은 정령들을 받아 드릴 수 있어요."); if(@pv == 0) { end; }
  set @pv, dialog(0,0,1,"우선, 알을 <유체>로 부화시켜 보도록 합시다!"); if(@pv == 0) { end; }
  goto A;
 }
}
item 환수진화촉진의불꽃1사용 {
 set @id, myid();
 set @sd, mysd();

 if(magic_aethered(@sd, name2spellid("환수경험치2배")) || magic_aethered(@sd, name2spellid("환수경험치3배")) || magic_aethered(@sd, name2spellid("환수경험치4배")))
 {
  message @sd, 3, "이미 진화가 촉진되고 있습니다.";
  end;
 }

 image 1, 3460, 0;
 set @pv, list2(@m,0,0,"환수진화촉진의불꽃1 아이템을 사용하면, 환수 경험치를 15분간 2배로 얻으 실 수 있습니다. 사용 하시겠습니까?","네, 사용합니다.","다음에 사용 할게요.");
 if(@m != 1) { end; }

 if(pc_amountitem(@sd, name2itemid("환수진화촉진의불꽃1")) < 1) { end; }
 delitem @sd, name2itemid("환수진화촉진의불꽃1"), 1;

 magic_aether @sd, name2spellid("환수경험치2배"), 900;

 message @sd, 11, "[환수] 환수진화촉진의불꽃에 의해, 환수 경험치 획득량이 2배로 증가 하였습니다.";
 end;
}
item 환수진화촉진의불꽃2사용 {
 set @id, myid();
 set @sd, mysd();

 if(magic_aethered(@sd, name2spellid("환수경험치2배")) || magic_aethered(@sd, name2spellid("환수경험치3배")) || magic_aethered(@sd, name2spellid("환수경험치4배")))
 {
  message @sd, 3, "이미 진화가 촉진되고 있습니다.";
  end;
 }

 image 1, 3460, 30;
 set @pv, list2(@m,0,0,"환수진화촉진의불꽃2 아이템을 사용하면, 환수 경험치를 15분간 3배로 얻으 실 수 있습니다. 사용 하시겠습니까?","네, 사용합니다.","다음에 사용 할게요.");
 if(@m != 1) { end; }

 if(pc_amountitem(@sd, name2itemid("환수진화촉진의불꽃2")) < 1) { end; }
 delitem @sd, name2itemid("환수진화촉진의불꽃2"), 1;

 magic_aether @sd, name2spellid("환수경험치3배"), 900;

 message @sd, 11, "[환수] 환수진화촉진의불꽃에 의해, 환수 경험치 획득량이 3배로 증가 하였습니다.";
 end;
}
item 환수진화촉진의불꽃3사용 {
 set @id, myid();
 set @sd, mysd();

 if(magic_aethered(@sd, name2spellid("환수경험치2배")) || magic_aethered(@sd, name2spellid("환수경험치3배")) || magic_aethered(@sd, name2spellid("환수경험치4배")))
 {
  message @sd, 3, "이미 진화가 촉진되고 있습니다.";
  end;
 }

 image 1, 3460, 30;
 set @pv, list2(@m,0,0,"환수진화촉진의불꽃2 아이템을 사용하면, 환수 경험치를 15분간 4배로 얻으 실 수 있습니다. 사용 하시겠습니까?","네, 사용합니다.","다음에 사용 할게요.");
 if(@m != 1) { end; }

 if(pc_amountitem(@sd, name2itemid("환수진화촉진의불꽃3")) < 1) { end; }
 delitem @sd, name2itemid("환수진화촉진의불꽃3"), 1;

 magic_aether @sd, name2spellid("환수경험치4배"), 900;

 message @sd, 11, "[환수] 환수진화촉진의불꽃에 의해, 환수 경험치 획득량이 4배로 증가 하였습니다.";
 end;
}
item 환수재선택의비약사용 {
 set @id, myid();
 set @sd, mysd();

 if(checkmagic(@sd, name2spellid("환수소환비전")) == -1)
 {
  message @sd, 8, "먼저 환수를 부화 시켜주세요.";
  end;
 }
 if($patstate == 1)
 {
  message @sd, 8, "먼저 환수를 귀환 시켜주세요.";
  end;
 }

 image 1, 3459, 0;

 set @pv, list2(@m,0,0,"이 비약을 사용 하면, 환수가 유체로 다시 돌아가며. 레벨과 진화도또한 모두 재설정 됩니다. 비약을 사용 하시겠습니까?","네. 사용 할게요.","조금 더 생각 해볼게요.");
 if(@m != 1) { end; }

 if(pc_amountitem(@sd, name2itemid("환수재선택의비약")) < 1) { end; }
 delitem @sd, name2itemid("환수재선택의비약"), 1;

 set $patstate, 0;
 set_hit @sd, 0;
 set_dam @sd, 0;
 set_ticket @sd, 0;

 set @pv, dialog(0,0,0,"환수가 재설정되어, 유체로 돌아갔습니다.");
 end;
}
item 환수재선택의비약2사용 {
 set @id, myid();
 set @sd, mysd();
 image 1, 3459, 0;

 set @type, get_hit(@sd) + 1;
 set @animal, get_dam(@sd) + 1;

 if(@type == 1)
 {
  set @pv, dialog(0,0,0,"환수가 유체 입니다. 유체의 경우 환수를 재선택 할 필요가 없기에, 사용이 불가능 합니다.");
  end;
 }
A:
 set @pv, list2(@m,0,0,"환수를 변경 할 수 있습니다. 변경시 환수만 변경되며 레벨과 진화형태는 그대로 유지 됩니다. 어떤 환수로 변경 하실 껀가요?","강아지의 형태","아기곰의 형태","아기새의 형태","아기호랑이의 형태","아기거북이의 형태","통통한실뱀의 형태"); if(@pv == 0) { end; }
 set @m, @m + 1;

 if(@type == @m)
 {
  set @pv, dialog(0,0,0,"현재 환수와 형태가 동일 합니다. 다른 환수를 선택 해 주세요.");
  end;
 }

 switch(@m)
 {
 case 2:
  if(@animal > 7)
  {
   set @pv, dialog(0,0,0,"강아지와 아기곰 형태의 환수로 변경 할 수 없습니다. 환수가 7급 환수 위일시, 새,호랑이,거북이,뱀의 형태로만 변경이 가능 합니다.");
   end;
  }

  set @pv, list2(@s,0,1,"강이지의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 case 3:
  if(@animal > 7)
  {
   set @pv, dialog(0,0,0,"강아지와 아기곰 형태의 환수로 변경 할 수 없습니다. 환수가 7급 환수 위일시, 새,호랑이,거북이,뱀의 형태로만 변경이 가능 합니다.");
   end;
  }

  set @pv, list2(@s,0,1,"아기곰의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 case 4:
  set @pv, list2(@s,0,1,"아기새의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 case 5:
  set @pv, list2(@s,0,1,"아기호랑이의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 case 6:
  set @pv, list2(@s,0,1,"아기거북의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 case 7:
  set @pv, list2(@s,0,1,"통통한실뱀의 형태를 가진 환수로 변경 하시겠습니까? 환수의 진화 형태와 레벨은 유지 됩니다.","변경 하겠습니다.","좀 더 생각을 해볼게요."); if(@pv == 0) { end; }
  if(@pv == 0) { end; } else if(@pv == -1) { goto A; } if(@s != 1) { end; }

  break;
 }

 if(pc_amountitem(@sd, name2itemid("환수재선택의비약2")) < 1) { end; }
 delitem @sd, name2itemid("환수재선택의비약2"), 1;

 message @sd, 3, "환수재선택의비약2 주었습니다.";
 set_hit @sd, @m - 1;

 effect @id, 338;

 set @pv, dialog(0,0,0,"환수가 변경 되었습니다.");
 end;
}