// ------------------------------------------------------------------------------------------
// ------ Script Release
// Title: Simple Rebirth System
// 
// Author: Diconfrost VaNz - www.wipeoutgaming.info - etherealruneguard@yahoo.com
// 
// Version: 1.0
// 
// It will turn you into a Level 1 High Novice and give you an item as a reward for a certain amount of zeny.
// This is integrated to my vip system. http://rathena.org/board/topic/79130-v20basic-premium-system/
// ViPs are not going to pay zeny when rebirthing.
//
// ------------------------------------------------------------------------------------------
prontera,163,176,3	script	Darryll	109,{

mes "[^FF0000Darryll^000000]";
mes "*Rustle, Rustle*";
next;
mes "[^FF0000Darryll^000000]";
mes "Hello "+strcharinfo(0)+", I'm ^0055FFDarryll Paul Pacle Ramones^000000.";
mes "I can give you something in exchange of your strength.";
mes "Are you ready for it?";
next;
switch(select("I'd like to more details about it.:I'm ready!:What's the prize?:Cancel")) {
	case 1:
		mes "[^FF0000Darryll^000000]";
		mes "This is how it works.";
		mes "Whenever you reach the a certain base leve(^0055FF150^000000), you can rebirth again into ^0055FFLevel 1 High Novice^000000, and recieve a ^0055FFvaluable prize^000000.";
		next;
		mes "[^FF0000Darryll^000000]";
		mes "So if you want it, just grind it!";
		mes "HAHAHAHA!";
		mes "I guess, i already said what you need.";
		mes "See ya!";
		close;
		
	case 2:
		mes "[^FF0000Darryll^000000]";
		mes "Well well well... ";
		mes "What do we have here?";
		next;
		mes "[^FF0000Darryll^000000]";
		mes "Oh! you want to be reborn!";
		next;
		if (baselvl <150) goto R_Sorry;
		if (prmm > gettimetick(2)) goto V_VIP;
		next;
		if (Zeny < 500000) goto V_Zen;
		mes "[^FF0000Darryll^000000]";
		mes "Oh, enjoy your day!";
		mes "Come back again!";
		set zeny, zeny - 500000;
		goto R_Reborn;
		close;
		
		V_VIP:
			mes "[^FF0000Darryll^000000]";
			mes "Oh you're a ^0055FFVIP^000000!";
			goto R_Reborn;
			close;
			
		R_Reborn:
			atcommand "@blvl -200 "+strcharinfo(0);
			atcommand "@jlvl -100 "+strcharinfo(0);
			atcommand "@job 4001 "+strcharinfo(0);
			getitem 7914,1;
			close;
		
		R_Sorry:
			mes "[^FF0000Darryll^000000]";
			mes "You must meet the basic ^0055FFrequirements^000000.";
			close;
			
		V_Zen:
			mes "[^FF0000Darryll^000000]";
			mes "You don't have the required number of ^0055FFZennies^000000.";
			mes "Please come back again.";
			close;
		
		
	case 3:
		mes "[^FF0000Darryll^000000]";
		mes "Hmmmm let me check some paper work.";
		next;
		mes "[^FF0000Darryll^000000]";
		mes "Well the prize is 1pc ^0055FFAncient Langguage Document^000000.";
		close;
		
	case 4:
		mes "[^FF0000Darryll^000000]";
		mes "Very well... come again soon.";
		close;
	}
}