//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\\
//||----------------------------------------------||\\
//|| Reset NPC ||\\
//||----------------------------------------------||\\
//|| Written By: Izkuru ||\\
//|| teh_face_x_o@yahoo.com ||\\
//|| Test With: OmniAthena 962 ||\\
//||----------------------------------------------||\\
//|| Basic Reset NPC, with that good 'ol Izkuru ||\\
//|| twist [Global vars for costs]. Supports ||\\
//|| resetting of: ||\\
//|| Stats ||\\
//|| Skills ||\\
//|| Stats and Skills ||\\
//|| Base and Job Levels ||\\
//|| Expect something new added to it later xD ||\\
//||----------------------------------------------||\\
//|| To install: Place this TXT file anywhere in ||\\
//|| your Athena scripts folder, and include it ||\\
//|| in scripts.conf. Then add the following to ||\\
//|| save/mapreg.txt. ||\\
//||----------------------------------------------||\\
//|| $ResetStatCost 10000 ||\\
//|| $ResetSkillCost 10000 ||\\
//|| $ResetBothCost 15000 ||\\
//|| $ResetBothlvCost 250000 ||\\
//||----------------------------------------------||\\
//|| [Those are tabs, btw] ||\\
//|| Then, set those values to whatever you want. ||\\
//||----------------------------------------------||\\
//|| Started on: Jun 23 2004 ||\\
//|| Last Modified: Jun 23 2004 ||\\
//||----------------------------------------------||\\
//__________________________________________________\\
prontera.gat,150,193,4 script Reset NPC 124,{
mes "[Reset NPC]";
mes "I can reset your:";
mes "^008000Stats^000000 for " + $ResetStatCost + "z";
mes "^008000Skills^000000 for " + $ResetSkillCost + "z";
mes "^008000Skills and Stats^000000 for " + $ResetBothCost + "z";
mes "^008000Base and Job Levels^000000 for " + $ResetBothlvCost + "z";
next;
mes "[Reset NPC]";
mes "What would you like reset?";
next;
menu "Reset Stats",L_Res_Stat,"Reset Skills",L_Res_Skill,"Reset Stats and Skills",L_Res_Both,"Reset Base and Job Levels",L_Res_Bothlv,"Cancel",-;
L_No:
mes "[Reset NPC]";
mes "Come back if you ever want anything reset.";
close;
L_Res_Stat:
set @what$,"Stats";
if(Zeny < $ResetStatCost) goto L_ZErr;
mes "[Reset NPC]";
mes "There you go. Remember, changes won't completely take effect until you log off and then back on.";
set Zeny, zeny - $ResetStatCost;
ResetStatus;
close;
L_Res_Skill:
set @what$,"Skills";
if(Zeny < $ResetSkillCost) goto L_ZErr;
mes "[Reset NPC]";
mes "There you go. Remember, changes won't completely take effect until you log off and then back on.";
set Zeny, zeny - $ResetSkillCost;
ResetSkill;
close;
L_Res_Both:
set @what$,"Stats and Skills";
if(Zeny < $ResetBothCost) goto L_ZErr;
mes "[Reset NPC]";
mes "There you go. Remember, changes won't completely take effect until you log off and then back on.";
set Zeny, zeny - $ResetBothCost;
ResetStatus;
ResetSkill;
close;
L_Res_Bothlv:
mes "[Reset NPC]";
mes "If you reset your Base and Job Levels, you will also lose all stats, stat points, skills and skill points.";
mes "Do you wish to continue?";
next;
menu "Yes",-,"No",L_No;
set @what$,"Base and Job Levels";
if(Zeny < $ResetBothlvCost) goto L_ZErr;
mes "[Reset NPC]";
mes "There you go. Remember, changes won't completely take effect until you log off and then back on.";
set Zeny, zeny - $ResetBothlvCost;
resetlvl;
ResetSkill;
set StatPoint,48;
close;
L_ZErr:
mes "[Reset NPC]";
mes "You don't have enough Zeny to reset you " + @what$ + ".";
close;
}