Rebirth System

// ------------------------------------------------------------------------------------------
// ------ Script Release
// Title: Simple Rebirth System
//
// Original Author: Diconfrost VaNz
// Modified by: Echo
// Version: 1.0a
//
//Simply changes a player to novice high while tracking the number of rebirths completed
//This provides an increasing number of statpoints with each successive rebirth.
//ie. .bstats at 100 would give                  at 200 would give
//Base Novice High 	100 points			100 points
//Rebirth 1: 		200 points			300 points
//Rebirth 2: 		300 points			500 points
//Rebirth 3: 		400 points			700 points
// ------------------------------------------------------------------------------------------
vend_zone,92,113,4	script	Ethereal Spirit	802,{
set .@cost, 5000000; 	  //Cost for Rebirth
set .@blvl, 500;	 //Minimum Base Level for Rebirth
set .@bstats, 200;	//Bonus stats per rebirth

mes "[^FF0000Powerful Spirit^000000]";
mes "*Rustle, Rustle*";
set Rebirth, Rebirth;
next;
mes "[^FF0000Powerful Spirit^000000]";
mes "Hello "+strcharinfo(0)+", I'm ^0055FFVertigo^000000.";
mes "I can allow you to expand even further for a price....";
mes "if you are ready...";
next;
mes "This will be rebirth number "+(Rebirth + 1)+" for you";
next;
switch(select("I'd like to know more about this process:I'm ready!:Cancel")) {
	case 1:
		mes "[^FF0000Vertigo^000000]";
		mes "This is how it works.";
		mes "Whenever you reach base level ^0055FF"+.@blvl+"^000000, you can be reborn again into a ^0055FFLevel 1 High Novice^000000, and recieve ^0055FF"+.@bstats+"^000000 stat points ^0055FFPer Rebirth^000000.";
		next;
		mes "[^FF0000Vertigo^000000]";
		mes "So if you want to maximize your power you'll need my services...";
		mes "Now come back when you are ready to do business...";
		close;

	case 2:
		mes "[^FF0000Vertigo^000000]";
		mes "Well well well... ";
		mes "What do we have here?";
		next;
		mes "[^FF0000Vertigo^000000]";
		mes "Oh! you want to be reborn!";
		next;
		if (BaseLevel < .@blvl) goto R_Sorry;
                if (Class < 4001) goto R_Sorry2;
		if (prmm > gettimetick(2)) goto V_VIP;
		next;
		if (Zeny < .@cost) goto V_Zen;
		mes "[^FF0000Vertigo^000000]";
		mes "Come back again!";
		set zeny, zeny - .@cost;
		goto R_Reborn;
		close;

		V_VIP:
			mes "[^FF0000Vertigo^000000]";
			mes "Oh you're a ^0055FFVIP^000000!";
			goto R_Reborn;
			close;

		R_Reborn:
			jobchange 4001;
			Resetlvl 1;
			set StatusPoint, StatusPoint + ((Rebirth+1)*.@bstats);
			set Rebirth, Rebirth++;
			close;

		R_Sorry:
			mes "[^FF0000Vertigo^000000]";
			mes "I'm sorry but you must meet the basic ^0055FFrequirements^000000.";
			mes "Your base level is lower than ^0055FF"+(.@blvl)+"^000000.";
			close;

		R_Sorry2:
			mes "[^FF0000Vertigo^000000]";
			mes "You must meet the basic ^0055FFrequirements^000000.";
			mes "You must have atleast reached the class ^0055FFHigh Novice^000000.";
			close;

		V_Zen:
			mes "[^FF0000Vertigo^000000]";
			mes "You need atleast ^0055FF"+.@cost+"^000000 Zeny.";
			mes "Please come back again.";
			close;

	case 3:
		mes "[^FF0000Vertigo^000000]";
		mes "Very well... come again soon.";
		close;
	}
}