//Le Livre d'Ymir http://www.bookofymir.net/
//traduit par Myllena
//===== eAthena Script ======================================= 
//= Cool Event Corp. Staff
//===== By: ================================================== 
//= Gepard
//===== Current Version: ===================================== 
//= 1.5
//===== Compatible With: ===================================== 
//= eAthena
//===== Description: ========================================= 
//= Cool Event Corp. Staff (Save, Storage & Pushcart Service)
//= in Arunafeltz Region.
//===== Additional Comments: ================================= 
//= 1.0 First version, iRO Sakray X.4 [Gepard]
//= 1.1 Optimized, fixed a conditional bug [Lupus]
//= 1.1a Redo back. It wasn't a bug [Lupus]
//= 1.2 Added Rachel Cool Event Corp. Staff [Playtester]
//= 1.3 Added cutins, closed Kafra Password exploit
//=	until we got a client/packet based password support [Lupus]
//= 1.4 Added Veins Cool Event Corp. Staff. [L0ne_W0lf]
//= 1.5 Cool Event Corp staff is now more iRO like. [L0ne_W0lf]
//============================================================ 

hugel,88,168,4	script	Cool Event Corp.::CoolEventCorpStaffHugel	874,{
	cutin "zonda_01",2;
	mes "[Cool Event Corp.]";
	mes "Bienvenue à la Cool Event Corp.";
	mes "Notre équipe se surpasse sans cesse pour vous fournir un service de qualité!";
	mes "Que puis-je pour vous aujourd'hui?";
	next;
	switch(select("Sauvegarder:Ouvrir mon Stock:Louer une Charrette:Mot de Passe du Stock:Annuler")){
	case 1:
		mes "[Cool Event Corp.]";
		mes "Votre Point de Sauvegarde a été enregistré ici, dans le village d'Hugel.";
		mes "Merci d'avoir utilisé les Services de la Cool Event Corp~";
		savepoint "hugel",96,155;
		close2;
		break;
	case 2:
		mes "[Cool Event Corp.]";
		if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
			mes "Je suis désolé, mais vous devez être un Novice de Niveau de Métier 6 au minimum pour pouvoir consulter votre stock.";
			close2;
			break;
		}
		if(Zeny < 40){
			mes "Je suis désolé, mais vous n'avez pas assez d'argent pour utiliser le service de Stockage.";
			mes "Le prix d'accès au Stock est de 40 Zénys.";
			close2;
			break;
		}
		set Zeny, Zeny - 40;
		mes "Voici votre Stock personnel.";
		mes "Merci d'avoir utilisé les services de la Cool Event Corp.";
		mes "Nous espérons vous revoir très bientôt. Bonne "+ ( isday() ? "journée" : "soirée" ) +"~";
		callfunc("F_CheckKafCode");	//check your storage password, if set
		close2;
		openstorage;
		break;

	case 3:
		mes "[Cool Event Corp.]";
		if(BaseClass != Job_Merchant){
			mes "Je suis désolé, mais la location de Charrettes n'est proposée qu'aux Marchands, Forgerons et Alchimistes.";
			close2;
			break;
		}
		if(getskilllv("MC_PUSHCART") == 0){
			mes "Je suis désolé, mais il vous faut d'abord passer votre Permis Charrette afin de pouvoir louer une Charrette.";
			close2;
			break;
		}
		if(checkcart() == 1){
			mes "Désolé... Mais vous avez déjà une Charrette....";
			close2;
			break;
		}
		if(countitem(7061)){
			delitem 7061,1;
			setcart;
			close2;
			break;
		}
		mes "La location de Charrette coûte 800 Zénys.";
		mes "Acceptez-vous ce tarif?";
		next;
		if(select("Oui, merci.:Non.") == 1){
			if(Zeny < 800){
				mes "[Cool Event Corp.]";
				mes "Je suis désolé, mais vous n'avez pas assez d'argent pour payer les 800 Zénys nécessaires à la location d'une Charrette.";
			} else {
				set Zeny, Zeny - 800;
				setcart;
			}
		}
		close2;
		break;
	case 4:
		callfunc("F_SetKafCode","[Cool Event Corp.]","Cool Event Corp.");
		//the function closes msg and remoes cutins
	case 5:
	default:
		mes "[Cool Event Corp.]";
		mes "La Cool Event Corp. se donne toujours au maximum pour vous offrir les meilleurs services.";
		mes "Aidez-vous à nous améliorer en nous faisant part de vos opinions et suggestions. Merci.";
		close2;
	}
	cutin "", 255;
	end;
}

rachel,109,138,5	script	Cool Event Corp.::CoolEventCorpStaffRachel	874,{
	cutin "zonda_01",2;
	mes "[Cool Event Corp.]";
	mes "Bienvenue à la Cool Event Corp.";
	mes "Notre équipe se surpasse sans cesse pour vous fournir un service de qualité!";
	mes "Que puis-je pour vous aujourd'hui?";
	next;
	switch(select("Sauvegarder:Ouvrir mon Stock:Service de Téléportation:Louer une Charrette:Mot de Passe du Stock:Annuler")){
	case 1:
		mes "[Cool Event Corp.]";
		mes "Votre Point de Sauvegarde a été enregistré ici, dans la ville de Rachel.";
		mes "Merci d'avoir utilisé les Services de la Cool Event Corp~";
		savepoint "rachel",113,137;
		close2;
		break;
	case 2:
		mes "[Cool Event Corp.]";
		if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
			mes "Je suis désolé, mais vous devez être un Novice de Niveau de Métier 6 au minimum pour pouvoir consulter votre stock.";
			close2;
			break;
		}
		if(Zeny < 40){
			mes "Je suis désolé, mais vous n'avez pas assez d'argent pour utiliser le service de Stockage.";
			mes "Le prix d'accès au Stock est de 40 Zénys.";
			close2;
			break;
		}
		mes "Voici votre Stock personnel.";
		mes "Merci d'avoir utilisé les services de la Cool Event Corp.";
		mes "Nous espérons vous revoir très bientôt. Bonne "+ ( isday() ? "journée" : "soirée" ) +"~";
		callfunc("F_CheckKafCode");	//check your storage password, if set
		close2;
		openstorage;
		break;
	case 3:
		mes "Veuillez choisir votre destination.";
		next;
		if (select("Veins -> 2200 z:Annuler") == 1) {
			if ((countitem(7060) != 0) || (Zeny >= 2200)) {
				if (countitem(7060) != 0) {
					delitem 7060,1;
				}
				else {
					set Zeny,Zeny-2200;
				}
				warp "veins",205,101;
				cutin "",255;
				end;
			}
			else {
				mes "[Cool Event Corp.]";
				mes "Je suis désolé, mais vous n'avez pas assez d'argent pour utiliser le service de Téléportation.";
				mes "Le prix pour se téléporter à Rachel est de 2200 Zénys";
			}
		}
		close2;
		break;
	case 4:
		mes "[Cool Event Corp.]";
		if(BaseClass != Job_Merchant){
			mes "Je suis désolé, mais la location de Charrettes n'est proposée qu'aux Marchands, Forgerons et Alchimistes.";
			close2;
			break;
		}
		if(getskilllv("MC_PUSHCART") == 0){
			mes "Je suis désolé, mais il vous faut d'abord passer votre Permis afin de pouvoir louer une Charrette.";
			close2;
			break;
		}
		if(checkcart() == 1){
			mes "Désolé... Mais vous avez déjà une Charrette....";
			close2;
			break;
		}
		if(countitem(7061)){
			delitem 7061,1;
			setcart;
			close2;
			break;
		}
		mes "La location de Charrette coûte 800 Zénys.";
		mes "Acceptez-vous ce tarif?";
		next;
		if(select("Oui, merci.:Non.") == 1){
			if(Zeny < 800){
				mes "[Cool Event Corp.]";
				mes "Je suis désolé, mais vous n'avez pas assez d'argent pour payer les 800 Zénys nécessaires à la location d'une Charrette.";
			} else {
				set Zeny, Zeny - 800;
				setcart;
			}
		}
		close2;
		break;
	case 5:
		callfunc("F_SetKafCode","[Cool Event Corp.]","Cool Event Corp.");
		//the function closes msg and remoes cutins
	case 6:
	default:
		mes "[Cool Event Corp.]";
		mes "La Cool Event Corp. se donne toujours au maximum pour vous offrir les meilleurs services.";
		mes "Aidez-vous à nous améliorer en nous faisant part de vos opinions et suggestions. Merci.";
		close2;
	}
	cutin "", 255;
	end;
}

veins,208,128,5	script	Cool Event Corp.::CoolEventCorpStaffVeins	874,{
	cutin "zonda_01",2;
	mes "[Cool Event Corp.]";
	mes "Bienvenue à la Cool Event Corp.";
	mes "Notre équipe se surpasse sans cesse pour vous fournir un service de qualité!";
	mes "Que puis-je pour vous aujourd'hui?";
	next;
	switch(select("Sauvegarder:Ouvrir mon Stock:Service de Téléportation:Louer une Charrette:Mot de Passe du Stock:Annuler")){
	case 1:
		mes "[Cool Event Corp.]";
		mes "Votre Point de Sauvegarde a été enregistré ici, dans le village de Veins.";
		mes "Merci d'avoir utilisé les Services de la Cool Event Corp~";
		savepoint "veins",204,103;
		close2;
		break;
	case 2:
		mes "[Cool Event Corp.]";
		if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
			mes "Je suis désolé, mais vous devez être un Novice de Niveau de Métier 6 au minimum pour pouvoir consulter votre stock.";
			close2;
			break;
		}
		if(Zeny < 40){
			mes "Je suis désolé, mais vous n'avez pas assez d'argent pour utiliser le service de Stockage.";
			mes "Le prix d'accès au Stock est de 40 Zénys.";
			close2;
			break;
		}
		set Zeny, Zeny - 40;
		mes "Voici votre Stock personnel.";
		mes "Merci d'avoir utilisé les services de la Cool Event Corp.";
		mes "Nous espérons vous revoir très bientôt. Bonne "+ ( isday() ? "journée" : "soirée" ) +"~";
		callfunc("F_CheckKafCode");	//check your storage password, if set
		close2;
		openstorage;
		break;
	case 3:
		mes "Veuillez choisir votre destination.";
		next;
		if (select("Rachel -> 2200 z:Annuler") == 1) {
			if ((countitem(7060) != 0) || (Zeny >= 2200)) {
				if (countitem(7060) != 0) {
					delitem 7060,1;
				}
				else {
					set Zeny,Zeny-2200;
				}
				warp "rachel",115,125;
				cutin "",255;
				end;
			}
			else {
				mes "[Cool Event Corp.]";
				mes "Je suis désolé, mais vous n'avez pas assez d'argent pour utiliser le service de Téléportation.";
				mes "Le prix pour se téléporter à Rachel est de 2200 Zénys";
			}
		}
		close2;
		break;
	case 4:
		mes "[Cool Event Corp.]";
		if(BaseClass != Job_Merchant){
			mes "Je suis désolé, mais la location de Charrettes n'est proposée qu'aux Marchands, Forgerons et Alchimistes.";
			close2;
			break;
		}
		if(getskilllv("MC_PUSHCART") == 0){
			mes "Je suis désolé, mais il vous faut d'abord passer votre Permis Charrette afin de pouvoir louer une Charrette.";
			close2;
			break;
		}
		if(checkcart() == 1){
			mes "Désolé... Mais vous avez déjà une Charrette....";
			close2;
			break;
		}
		if(countitem(7061)){
			delitem 7061,1;
			setcart;
			close2;
			break;
		}
		mes "La location de Charrette coûte 800 Zénys.";
		mes "Acceptez-vous ce tarif?";
		next;
		if(select("Oui, merci.:Non.") == 1){
			if(Zeny < 800){
				mes "[Cool Event Corp.]";
				mes "Je suis désolé, mais vous n'avez pas assez d'argent pour payer les 800 Zénys nécessaires à la location d'une Charrette.";
				close2;
			} else {
				set Zeny, Zeny - 800;
			}
		}
		close2;
		break;
	case 5:
		callfunc("F_SetKafCode","[Cool Event Corp.]","Cool Event Corp.");
		//the function closes msg and remoes cutins
	case 6:
	default:
		mes "[Cool Event Corp.]";
		mes "La Cool Event Corp. se donne toujours au maximum pour vous offrir les meilleurs services.";
		mes "Aidez-vous à nous améliorer en nous faisant part de vos opinions et suggestions. Merci.";
		close2;
	}
	cutin "", 255;
	end;
}