// Insert into your instance_db.txt ( change 1 to whatever last instance you have).
// 1,Training Grounds,14400,jupe_ele,45,50,jupe_ele
prontera,148,145,2  script  Training Grounds#Ins    4_M_ROYALGUARD,{
    .@md_namenpc$ = "[ ^ee7600Training Grounds^000000 ]";
    .@instance$ = "Training Grounds";
    if (instance_id()) {
        mes .@md_namenpc$;
        mes "You are already part of an instance.";
        next;
        switch(select("Enter Instance.:Cancel.")) {
        case 1:
            break;
        case 2:
            mes .@md_namenpc$;
            mes "You don't want to try again?";
            emotion e_sob;
            close;
        }
    } else {
        mes .@md_namenpc$;
        mes "Hello there "+strcharinfo(0)+".";
        mes "Would you like to enter the Training Grounds?";
        next;
        mes .@md_namenpc$;
        mes "Info:";
        .@size = 4;
            for ( .@i = 1; .@i <= .@size; .@i++ )
            {
                mes "Training Ground "+.@i+": (Lv. ^FF0000"+$@MinRange[.@i]+"^000000 ~ ^0000FF"+$@MaxRange[.@i]+ "^000000 )";
            }
                next;
                mes .@md_namenpc$;
        switch(select("Create "+.@md_namenpc$+":Cancel.")) {
        case 1:
            .@create = instance_create( .@instance$ );
            if (.@create < 0) {
            mes "Time to train!";
            mes "...";
                switch (.@create) {
                    case -1: mes "ERROR: Invalid type."; break;
                    case -2: mes "ERROR: Party not found."; break;
                    case -3: mes "ERROR: Instance already exists."; break;
                    case -4: mes "ERROR: No free instances."; break;
                }
                mes " ";
                mes "Instance creation ^FF0000failed^000000.";
                emotion e_omg;
                close;
            }
            mes "Instance created.";
            mes " ";
            mes "Now entering the Training Grounds..";
            next;
            break;
        case 2:
            mes "Okay. Maybe next time!";
            close;
        }
    }
 
    .@enter = instance_enter(.@instance$);
    if (.@enter != 0) {
        mes .@md_namenpc$;
        switch (.@enter) {
            case 1: mes "ERROR: Party not found."; break;
            case 2: mes "ERROR: Party does not have an instance."; break;
            case 3: mes "ERROR: Unknown error."; break;
        }
        mes " ";
        mes "Instance entry ^FF0000failed^000000.";
        emotion e_omg;
        close;
    }
    close;
 
    OnInit:
    setarray $@MinRange[1],1,5,10,20;
    setarray $@MaxRange[1],5,10,20,99;
 
    setarray $@MinBase[1],2,5,10,15;
    setarray $@MaxBase[1],3,10,15,25;
    end;
}
 
jupe_ele,42,45,4    script  Training System#Ins 4_M_ROYALGUARD,{
 
            .@md_namenpc$ = "[ ^ee7600Training System^000000 ]";
            mes .@md_namenpc$;
            if ( 'CurrentRound )
                {
                    mes "There is a round currently in progress.";
                    close;
                }
                mes "Spawn Training Mobs?";
                next;
                switch(select("Sure","Leave Instance."))
                {
                case 1:
                'CurrentRound++;
        if ( BaseLevel <= $@MaxRange[1] ) {
        dispbottom "type 1";
        'TotalCount = 'MobAM[1];
        areamonster instance_mapname("jupe_ele"),47,35,34,54,"--ja--",'MobID[1],'MobAM[1],instance_npcname("Training System#Ins")+"::OnThisMobDeath";
        end;
        }
        if ( BaseLevel >= $@MinRange[2] && BaseLevel < $@MaxRange[2] ) {
        dispbottom "type 2";
        'TotalCount = 'MobAM[2];
        areamonster instance_mapname("jupe_ele"),47,35,34,54,"--ja--",'MobID[2],'MobAM[2],instance_npcname("Training System#Ins")+"::OnThisMobDeath";
        end;
        }
        if ( BaseLevel >= $@MinRange[3] && BaseLevel < $@MaxRange[3] ) {
        dispbottom "type 3";
        'TotalCount = 'MobAM[3];
        areamonster instance_mapname("jupe_ele"),47,35,34,54,"--ja--",'MobID[3],'MobAM[3],instance_npcname("Training System#Ins")+"::OnThisMobDeath";
        end;
        }
        if ( BaseLevel >= $@MinRange[4] && BaseLevel < $@MaxRange[4] ) {
        dispbottom "type 4";
        'TotalCount = 'MobAM[4];
        areamonster instance_mapname("jupe_ele"),47,35,34,54,"--ja--",'MobID[4],'MobAM[4],instance_npcname("Training System#Ins")+"::OnThisMobDeath";
        end;
    }
 
                case 2: // Leave Instance
                instance_announce -1,"Finished Training...",bc_self;
                instance_destroy();
                end;
                }
 
        OnThisMobDeath:
            'MobCount++;
        if ( 'MobCount == 'TotalCount )
        {
            dispbottom "Finished mobs.";
            dispbottom "Current round reset.";
            'CurrentRound--;
            'MobCount = 0;
        }
        if ( BaseLevel <= $@MaxRange[1] ) {
        BaseLevel += rand($@MinBase[1],$@MaxBase[1]);
        end;
        }
        if ( BaseLevel >= $@MinRange[2] && BaseLevel < $@MaxRange[2] ) {
        BaseLevel += rand($@MinBase[2],$@MaxBase[2]);
        end;
        }
        if ( BaseLevel >= $@MinRange[3] && BaseLevel < $@MaxRange[3] ) {
        BaseLevel += rand($@MinBase[3],$@MaxBase[3]);
        end;
        }
        if ( BaseLevel >= $@MinRange[4] && BaseLevel < $@MaxRange[4] ) {
        BaseLevel += rand($@MinBase[4],$@MaxBase[4]);
        end;
    }
    end;
 
    OnInstanceInit:
    enablenpc instance_npcname ("Training System#Ins");
    setarray 'MobID[1],1002,1002,1002,1002;
    setarray 'MobAM[1],2,3,4,5;
    setmapflag instance_mapname ("jupe_ele"),mf_nobaseexp;
    setmapflag instance_mapname ("jupe_ele"),mf_nojobexp;
    end;
}