//===== Akito Script =========================================
//= Purificador con probabilidad de fallo
//===== By: ==================================================
//= Akito && Dynasty
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= rAthena SVN 3422+(Requires jA Script System)
//===== Description: =========================================
//
//===== Additional Comments: =================================
//============================================================
//======Changeslog============================================
// 1.0 Complete Work
// 1.1 Little upgrade
// 2.0 High Upgrade
//============================================================
mercado,120,106,6 script Purificador 494,{
//Oridecon || Elunium || Amount of Oridecon || Amount of Elunium
set .@material[0], 984, 985, 10, 10;
//Cat 50% Oridecon || Cat 25% Oridecon || Cat 50% Elunium || Cat 25% Elunium ||
set .@catali[0], 20106, 20107, 20107, 20107 ;
//HD Oridecon || HD Elunium
set .@resultado[0], 6240, 6241;
// Nombre
set .@name$,"^0000bb[Purificador]^000000";
cutin "1_m_smith",2;
mes .@name$;
mes "Existe la posibilidad de que no funcione el purificacion del oridecon o del elunium";
next;
cutin "",255;
switch(select("HD Oridecon:HD Elunium")){
case 1:
switch(select("Con Catalizador:Sin Catalizador")){
case 1:
switch(select(""+getitemname(.@catali[0])+":"+getitemname(.@catali[1])+"")){
case 1://==================== 50% HD Oridecon
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[2]+" "+getitemname(.@material[0])+" para poder hacer 1 Purified Oridecon";
mes "Recuerda tienes una posibilidad de 50% de obtener el Purified Oridecon";
mes "Quieres hacerlo?";
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[0])>=.@material[2]) || (countitem(.@catali[0])>=1){
delitem .@material[0],.@material[2];
delitem .@catali[0],1;
set .@randhd, rand(100);
if (.@randhd >= 50){
mes .@name$;
mes "Aqui esta tu Purified Oridecon";
mes "Que lo difrutes";
getitem .@resultado[0],1;
close;
}else if (.@randhd < 50){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Oridecon o Catalizadores";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
case 2:
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[2]+" "+getitemname(.@material[0])+" para poder hacer 1 Purified Oridecon";
mes "Recuerda tienes una posibilidad de 25% de obtener el Purified Oridecon";
mes "Quieres hacerlo?";
next;
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[0])>=.@material[2]) || (countitem(.@catali[1])>=1){
delitem .@material[0],.@material[2];
delitem .@catali[1],1;
set .@randhd, rand(100);
if (.@randhd >= 75){
mes .@name$;
mes "Aqui esta tu Purified Oridecon";
mes "Que lo difrutes";
getitem .@resultado[0],1;
close;
}else if (.@randhd < 75){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Oridecon o Catalizadores";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
}
case 2:
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[2]+" "+getitemname(.@material[0])+" para poder hacer 1 Purified Oridecon";
mes "Quieres hacerlo?";
next;
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[0])>=.@material[2]){
delitem .@material[0],.@material[2];
set .@randhd, rand(100);
next;
if (.@randhd == 100){
mes .@name$;
mes "Aqui esta tu Purified Oridecon";
mes "Que lo difrutes";
getitem .@resultado[0],1;
close;
}else if (.@randhd < 100){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Oridecon";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
}
//================================================================
//================================================================
case 2:
switch(select("Con Catalizador:Sin Catalizador")){
case 1:// 50% HE Elunium
switch(select(""+getitemname(.@catali[2])+":"+getitemname(.@catali[3])+"")){
case 1:
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[3]+" "+getitemname(.@material[1])+" para poder hacer 1 Purified Elunium";
mes "Recuerda tienes una posibilidad de 50% de obtener el Purified Elunium";
mes "Quieres hacerlo?";
next;
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[1])>=.@material[4]) || (countitem(.@catali[2])>=1){
delitem .@material[1],.@material[4];
delitem .@catali[2],1;
set .@randhd, rand(100);
if (.@randhd >= 50){
mes .@name$;
mes "Aqui esta tu Purified Elunium";
mes "Que lo difrutes";
getitem .@resultado[1],1;
close;
}else if (.@randhd < 50){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Elunium o Catalizadores";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
case 2:
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[3]+" "+getitemname(.@material[1])+" para poder hacer 1 Purified Elunium";
mes "Recuerda tienes una posibilidad de 25% de obtener el Purified Elunium";
mes "Quieres hacerlo?";
next;
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[1])>=.@material[3]) || (countitem(.@catali[3])>=1){
delitem .@material[1],.@material[3];
delitem .@catali[3],1;
set .@randhd, rand(100);
if (.@randhd >= 75){
mes .@name$;
mes "Aqui esta tu Purified Elunium";
mes "Que lo difrutes";
getitem .@resultado[1],1;
close;
}else if (.@randhd < 75){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Elunium o Catalizadores";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
}
case 2:
mes .@name$;
cutin "1_m_smith",2;
mes "Necesitas "+.@material[3]+" "+getitemname(.@material[1])+" para poder hacer 1 Purified Elunium";
mes "Quieres hacerlo?";
next;
cutin "",255;
switch(select("Si:No")){
case 1:
if(countitem(.@material[1])>=.@material[3]){
delitem .@material[1],.@material[3];
set .@randhd, rand(100);
if (.@randhd == 100{
mes .@name$;
mes "Aqui esta tu Purified Elunium";
mes "Que lo difrutes";
getitem .@resultado[1],1;
close;
}else if (.@randhd < 100){
mes .@name$;
mes "Lo siento mucho pero has fallado";
mes "Tal ves tenga mas suerte para la proxima";
close;
}
} else {
mes .@name$;
mes "No tienes suficientes Elunium";
close;
}
case 2:
mes "Vuelve pronto";
close;
}
}
}
OnInit:
waitingroom "HD Ori/Elu Purificador",0;
end;
}