//13 = str
//14 = agi
//15 = vit
//16 = int
//17 = dex
//18 = luk


OnTouch:
emotion 10;
close;

rechoose:
mes "~[^0000FFTrainer^000000]~";
mes "Please choose an Subject or Atrribute to train in.";
next;
goto menuuu;

dongo:
mes "~[^0000FFTrainer^000000]~";
mes "You now have: " + bxp + " BXP";
mes "Are there any other Subjects or Attributes you did like to train?";
next;
goto menuuu;

menuuu:
safemode:
deletearray @lable$[0],10;

if (readparam(11) <= 9999) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFLevel^000000]";}
if (readparam(13) < $maxatr) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFStrenght^000000]";}
if (readparam(14) < $maxatr) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFAgility^000000]";}
if (readparam(15) < $maxatr) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFVitality^000000]";}
if (readparam(16) < $maxatr) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFInteliggence^000000]";}
if (readparam(17) < $maxatr) {set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFDexterity^000000]";}
if (readparam(18) < $maxatr) { set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFLuck^000000]";}

set @lable$[(getarraysize(@lable$) + 1)], "[^0000FFContinous Mode^000000]";

set @logquest,select(@lable$[1],@lable$[2],@lable$[3],@lable$[4],@lable$[5],@lable$[6],@lable$[7],@lable$[8],@lable$[9],@lable$[10]);
if (@logquest == 1) {set @x, 1;}
if (@logquest == 2) {set @x, 2;}
if (@logquest == 3) {set @x, 3;}
if (@logquest == 4) {set @x, 4;}
if (@logquest == 5) {set @x, 5;}
if (@logquest == 6) {set @x, 6;}
if (@logquest == 7) {set @x, 7;}
if (@logquest == 8) {set @x, 8;}
if (@logquest == 9) {set @x, 9;}
if (@logquest == 10) {set @x, 10;}
if (@lable$[@x] == "[^00CCFFLevel^000000]") goto L_level;
if (@lable$[@x] == "[^00CCFFStrenght^000000]") goto L_str;
if (@lable$[@x] == "[^00CCFFAgility^000000]") goto L_agi;
if (@lable$[@x] == "[^00CCFFVitality^000000]") goto L_vit;
if (@lable$[@x] == "[^00CCFFInteliggence^000000]") goto L_int;
if (@lable$[@x] == "[^00CCFFDexterity^000000]") goto L_dex;
if (@lable$[@x] == "[^00CCFFLuck^000000]") goto L_luk;
if (@lable$[@x] == "[^0000FFContinous Mode^000000]") goto contmode;

L_str:
set @stat,13;
set @atr$," Strenght^000000";
goto cost;

L_agi:
set @stat,14;
set @atr$," Agility^000000";
goto cost;

L_vit:
set @stat,15;
set @atr$," Vitality^000000";
goto cost;

L_int:
set @stat,16;
set @atr$," Intelligence^000000";
goto cost;

L_dex:
set @stat,17;
set @atr$," Dexterity^000000";
goto cost;

L_luk:
set @stat,18;
set @atr$," Luck^000000";
goto cost;

L_level:
if (readparam(11) == 10000) goto maxl;
mes "~[^0000FFTrainer^000000]~";
mes "You are level: " + readparam(11) + "";
mes "The cost for your next level is: " + readparam(11)*20 + " BXP";
mes "";
mes "";
mes "You have: " + bxp + " BXP";
next;
menu8:
menu "------",L_level,"[^F26522Train for a Level^000000]",nexlevel,"[^F26522Train for Something else^000000]",menuuu,"^AAAAAA<--Back^000000",rechoose;


nexlevel:
if (bxp < readparam(11) * 20) goto nogolvl;
set bxp, bxp - (readparam(11)*20);
atcommand strcharinfo(0)+":@lvup 1";
set StatusPoint, 0;
set SkillPoint, 0;
levela:
mes "~[^0000FFTrainer^000000]~";
mes "You are now level: " + (readparam(11) + 1) + "";
mes "The cost for your next level is: " + (20 * (readparam(11)+1)) + " BXP";
mes "";
mes "";
mes "You have: " + bxp + " BXP";
next;
menu "------",levela,"[^F26522Train for another Level^000000]",nexlevel,"[^F26522Train for Something else^000000]",menuuu,"^AAAAAA<--Back^000000",rechoose;

nogolvl:
mes "~[^0000FFTrainer^000000]~";
mes "Sorry, you do not have enough bxp to train for the Next level. You will need " + (readparam(11)*20 - bxp) + " to complete the training. Would you like to choose another subject to train with?";
next;
goto menuuu;

cost:
set @cost, (readparam(@stat) * (3/2)) * readparam(@stat);
mes "~[^0000FFTrainer^000000]~";
mes "You currently Have: " + readparam(@stat) + @atr$;
mes "The cost of an additional point will be: " + @cost + " BXP.";
mes "You have: " + bxp + " BXP";
mes "Would you like to proceed in the training?";
next;
menu "------",cost,"[^F26522Yes^000000]",checkp,"[^F26522No^000000]",rechoose;

checkp:
if ( bxp >= @cost) goto increment;
if ( bxp < @cost) goto nogo;

nogo:
mes "~[^0000FFTrainer^000000]~";
mes "Sorry, you do not have enough bxp to train that subject. You will need " + (@cost - bxp) + " to complete the training. Would you like to choose another subject to train with?";
next;
goto menuuu;

increment:
if (@stat == 13) atcommand strcharinfo(0)+":@str 1";
if (@stat == 14) atcommand strcharinfo(0)+":@agi 1";
if (@stat == 15) atcommand strcharinfo(0)+":@vit 1"; 
if (@stat == 16) atcommand strcharinfo(0)+":@int 1"; 
if (@stat == 17) atcommand strcharinfo(0)+":@dex 1";
if (@stat == 18) atcommand strcharinfo(0)+":@luk 1";
set bxp, bxp - @cost;
mes "~[^0000FFTrainer^000000]~";
mes "You have increased" + @atr$ + " by 1 Point.";
next;
again:
set @cost, (readparam(@stat) * (3/2)) * readparam(@stat);
if ( bxp < @cost) goto dongo;
mes "~[^0000FFTrainer^000000]~";
mes "[You currently Have: " + readparam(@stat) + @atr$ +"]";
mes "[The cost of an additional point will be: " + @cost + " BXP.]";
mes "[You have: " + bxp + " BXP]";
mes "Do you wish to level the attribute again?";
next;
menu "------",again,"[^F26522Yes^000000]",checkp,"[^F26522No^000000]",rechoose;





























































contmode:
menuuu2:
deletearray @lable$[0],10;

if (readparam(11) <= 9999)  {
 set @levelw$, "[^00CCFFLevel^000000]";
 set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFLevel^000000]";
 } 

if (readparam(13) != $maxatr) { 
set @strw$, "[^00CCFFStrenght^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFStrenght^000000]";
}


if (readparam(14) != $maxatr) {
set @agiw$, "[^00CCFFAgility^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFAgility^000000]";
}

if (readparam(15) != $maxatr) {
set @vitw$, "[^00CCFFVitality^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFVitality^000000]";
}

if (readparam(16) != $maxatr) {
set @intw$, "[^00CCFFInteliggence^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFInteliggence^000000]";
}

if (readparam(17) != $maxatr) {
set @dexw$, "[^00CCFFDexterity^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFDexterity^000000]";
}

if (readparam(18) != $maxatr) {
set @lukw$, "[^00CCFFLuck^000000]";
set @lable$[(getarraysize(@lable$) + 1)], "[^00CCFFLuck^000000]";
}

set @lable$[(getarraysize(@lable$) + 1)], "[^0000FFSafe Mode^000000]";


set @logquest,select(@lable$[1],@lable$[2],@lable$[3],@lable$[4],@lable$[5],@lable$[6],@lable$[7],@lable$[8],@lable$[9],@lable$[10]);
if (@logquest == 1) {set @x, 1;}
if (@logquest == 2) {set @x, 2;}
if (@logquest == 3) {set @x, 3;}
if (@logquest == 4) {set @x, 4;}
if (@logquest == 5) {set @x, 5;}
if (@logquest == 6) {set @x, 6;}
if (@logquest == 7) {set @x, 7;}
if (@logquest == 8) {set @x, 8;}
if (@logquest == 9) {set @x, 9;}
if (@logquest == 10) {set @x, 10;}
if (@lable$[@x] == "[^00CCFFLevel^000000]") goto L_Level2;
if (@lable$[@x] == "[^00CCFFStrenght^000000]") goto L_str2;
if (@lable$[@x] == "[^00CCFFAgility^000000]") goto L_agi2;
if (@lable$[@x] == "[^00CCFFVitality^000000]") goto L_vit2;
if (@lable$[@x] == "[^00CCFFInteliggence^000000]") goto L_int2;
if (@lable$[@x] == "[^00CCFFDexterity^000000]") goto L_dex2;
if (@lable$[@x] == "[^00CCFFLuck^000000]") goto L_luk2;
if (@lable$[@x] == "[^0000FFSafe Mode^000000]") goto safemode;

L_str2:
set @stat,13;
set @atr$," Strenght^000000";
goto cost2;

L_agi2:
set @stat,14;
set @atr$," Agility^000000";
goto cost2;

L_vit2:
set @stat,15;
set @atr$," Vitality^000000";
goto cost2;

L_int2:
set @stat,16;
set @atr$," Intelligence^000000";
goto cost2;

L_dex2:
set @stat,17;
set @atr$," Dexterity^000000";
goto cost2;

L_luk2:
set @stat,18;
set @atr$," Luck^000000";
goto cost2;

L_level2:
if (readparam(11) == 10000) goto maxl;
mes "~[^0000FFTrainer^000000]~";
mes "You are level: " + readparam(11) + "";
mes "The cost for your next level is: " + readparam(11)*20 + " BXP";
mes "";
mes "";
mes "You have: " + bxp + " BXP";
next;
menu9:
menu "[^F26522Train for a Level^000000]",nexlevel2,"[^F26522Train for Something else^000000]",menuuu2,"^AAAAAA<--Back^000000",rechoose2;


nexlevel2:
if (bxp < readparam(11) * 20) goto nogolvl;
set bxp, bxp - (readparam(11)*20);
atcommand strcharinfo(0)+":@lvup 1";
set StatusPoint, 0;
set SkillPoint, 0;
mes "~[^0000FFTrainer^000000]~";
mes "You are now level: " + (readparam(11) + 1) + "";
mes "The cost for your next level is: " + (20 * (readparam(11)+1)) + " BXP";
mes "";
mes "";
mes "You have: " + bxp + " BXP";
next;
menu "[^F26522Train for another Level^000000]",nexlevel2,"[^F26522Train for Something else^000000]",menuuu2,"^AAAAAA<--Back^000000",rechoose2;

nogolvl2:
mes "~[^0000FFTrainer^000000]~";
mes "Sorry, you do not have enough bxp to train for the Next level. You will need " + (readparam(11)*20 - bxp) + " to complete the training. Would you like to choose another subject to train with?";
next;
goto menuuu2;

cost2:
set @cost, (readparam(@stat) * (3/2)) * readparam(@stat);
mes "~[^0000FFTrainer^000000]~";
mes "You currently Have: " + readparam(@stat) + @atr$;
mes "The cost of an additional point will be: " + @cost + " BXP.";
mes "You have: " + bxp + " BXP";
mes "Would you like to proceed in the training?";
next;
menu "[^F26522Yes^000000]",checkp2,"[^F26522No^000000]",rechoose2;

checkp2:
if ( bxp >= @cost) goto increment2;
if ( bxp < @cost) goto nogo2;

nogo2:
mes "~[^0000FFTrainer^000000]~";
mes "Sorry, you do not have enough bxp to train that subject. You will need " + (@cost - bxp) + " to complete the training. Would you like to choose another subject to train with?";
next;
goto menuuu2;

increment2:
if (@stat == 13) atcommand strcharinfo(0)+":@str 1";
if (@stat == 14) atcommand strcharinfo(0)+":@agi 1";
if (@stat == 15) atcommand strcharinfo(0)+":@vit 1"; 
if (@stat == 16) atcommand strcharinfo(0)+":@int 1"; 
if (@stat == 17) atcommand strcharinfo(0)+":@dex 1";
if (@stat == 18) atcommand strcharinfo(0)+":@luk 1";
set bxp, bxp - @cost;
mes "~[^0000FFTrainer^000000]~";
mes "You have increased" + @atr$ + " by 1 Point.";
next;
set @cost, (readparam(@stat) * (3/2)) * readparam(@stat);
if ( bxp < @cost) goto dongo;
mes "~[^0000FFTrainer^000000]~";
mes "[You currently Have: " + readparam(@stat) + @atr$ +"]";
mes "[The cost of an additional point will be: " + @cost + " BXP.]";
mes "[You have: " + bxp + " BXP]";
mes "Do you wish to level the attribute again?";
next;
menu "[^F26522Yes^000000]",checkp2,"[^F26522No^000000]",rechoose2;

rechoose2:
mes "~[^0000FFTrainer^000000]~";
mes "Please choose an Subject to train with.";
next;
goto menuuu2;

dongo2:
mes "~[^0000FFTrainer^000000]~";
mes "You now have: " + bxp + " BXP";
mes "Are there any other Subjects you did like to train?";
next;
goto menuuu2;

}