// ------------------------------------------------------------------------------------------
// ------ Script Release
// Title: Simple Rebirth System
// 
// Author: Diconfrost VaNz - www.wipeoutgaming.info - [email protected]
// 
// 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;
    }
}