//===== 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;
}