Автор: MiRoTVoReZ: Дата: 06.20.2008

оптимизирован расчёт скилл-пойнтов и руссифицирован диалог.

prontera.gat,160,187,6scriptMaster123,{



mes "[Меняльщик]";



mes "Желаете ли сменить";



mes "профессию и уровни?";



next;



if(select("Нет, не нужно","Да, я желаю") == 1){



mes "[Меняльщик]";



mes "Тогда всего хорошего.";



close;



}



ResetStatus;



ResetSkill;



JobChange Job_Novice;



set SkillPoint, 0;



mes "[Меняльщик]";



mes "Вы только что";



mes "были обнулены.";



next;



mes "[Меняльщик]";



mes "Укажите желаемый уровень.";



next;



input .@newlvl;



set BaseLevel, .@newlvl;



mes "[Меняльщик]";



mes "Установлен уровень - " + BaseLevel + ".";



next;



mes "[Меняльщик]";



mes "Укажите желаемый";



mes "уровень профессии.";



next;



input .@newjoblvl;



mes "[Меняльщик]";



mes "После выбора профессии";



mes "будет установлен";



mes "уровень профессии - " + .@newjoblvl + ".";



next;



mes "[Меняльщик]";



mes "Сейчас выберите";



mes "саму профессию.";



next;



if (.@newjoblvl <= 50) {set .@newjobtype, select("Профессия 1-го уровня","Профессия 2-го уровня","Экспертная профессия");} else {set .@newjobtype, 3;}



switch(.@newjobtype){



case 1:



switch(select("Вор", "Ганс", "Лучник", "Маг", "Мечник", "Нинзя", "Новичок", "Послушник", "Суперновичок", "Торговец", "Тэквондист")){



case  1: JobChange    6; break;



case  2: JobChange   24; break;



case  3: JobChange    3; break;



case  4: JobChange    2; break;



case  5: JobChange    1; break;



case  6: JobChange   25; break;



case  7: JobChange    0; break;



case  8: JobChange    4; break;



case  9: JobChange   26; break;



case 10: JobChange    5; break;



case 11: JobChange 4046; break;



}



break;



case 2:



switch(select("Алхимик", "Бард", "Волшебник", "Гладиатор", "Крестоносец", "Кузнец", "Медиум", "Монах", "Мудрец", "Охотник", "Разбойник", "Рыцарь", "Священник", "Танцовщица", "Убийца")){



case  1: JobChange   18; break;



case  2: JobChange   19; break;



case  3: JobChange    9; break;



case  4: JobChange   14; break;



case  5: JobChange   13; break;



case  6: JobChange   10; break;



case  7: JobChange 4049; break;



case  8: JobChange   15; break;



case  9: JobChange   16; break;



case 10: JobChange   11; break;



case 11: JobChange   17; break;



case 12: JobChange    7; break;



case 13: JobChange    8; break;



case 14: JobChange   20; break;



case 15: JobChange   12; break;



}



break;



case 3:



switch(select("Архимаг", "Асасин", "Биохимик", "Епископ", "Командор", "Менестрель", "Мистик", "Оружейник", "Паладин", "Профессор", "Снайпер", "Сталкер", "Цыганка")){



case  1: JobChange 4003; break;



case  2: JobChange 4013; break;



case  3: JobChange 4019; break;



case  4: JobChange 4009; break;



case  5: JobChange 4008; break;



case  6: JobChange 4020; break;



case  7: JobChange 4016; break;



case  8: JobChange 4011; break;



case  9: JobChange 4015; break;



case 10: JobChange 4017; break;



case 11: JobChange 4012; break;



case 12: JobChange 4018; break;



case 13: JobChange 4021; break;



}



}



set JobLevel, .@newjoblvl;



mes "[Меняльщик]";



if (Job != 0 && Job != 26) {set SkillPoint, SkillPoint + 9;}



mes "Преображение завершено.";



mes "Новая профессия - " + JobName(Class);



mes "с профессиональным уровнем - " + JobLevel + ".";



mes "Всего хорошего.";



close;



}

Автор: : Дата: 01.01.1970