/*
    Kafra script (C) 2015 Oxxy
        *Open storage
        *Save new savepoint.
        *Reset statpoints / skillpoints.
        *Rent car/falcon
        *Platinum skills
        *Identifier
        *Storage PIN-code with @command
 
*/
 
celestiaj,60,60,6   script  Kafra   700,{
 
    .npcName$ = _("[Кафра]");
    
    mes .npcName$;
    mes "Вас приветствует Корпорация Кафра";
    mes "Чем могу Вам помочь?";
    switch(select("Открыть склад:Сохраниться:Взять тележку/сокола:Обнулить статы/умения:Распознать все вещи:Получить дополнительные умения:Установить пароль на склад")) {
        case 1: //Открыть склад
            next;
            mes .npcName$;
            if(!kafraPass$) {
                mes "Мы настоятельно рекомендуем Вам установить пароль на склад, хотите сделать это сейчас?";
                switch(select("Нет, открыть склад:Установить пароль:Поменять пароль:Выход")) {
                    case 1: // Нет, открыть склад
                    next;
                    close2;
                    openstorage;
                    end;
                    
                    case 2: // Установить пароль
                    if(kafraPass$) {
                        next;
                        mes .npc$;
                        mes "У Вас уже есть пароль, хотите поменять его?";
                        if(select("Да:Нет") == 2) close;
                        mes "Введите ответ на следующий вопрос: "
                        mes kafraPodskazka$;
                        input @k;
                        close;
                    }
                    
                    case 3: // Поменять пароль
                    close;
                    
                    case 4: // Выход
                    close;
                }
            } else {
                mes "Введите Ваш пароль от склада";
                input @kafraPass$;
                if(@kafraPass$ != kafraPass$) {
                    next;
                    mes .npcName$;
                    mes "Введен неправилньый пароль";
                    mes "Хотите восстановить пароль?";
                    switch(select(""+kafraPodskazka$+":Нет")) {
                        case 1: // Подсказка игрока
                        mes "Введите ответ на следующий вопрос:";
                        mes kafraPodskazka$;
                        input .@ka$;
                        if(.@ka$ != otvetKafra) {
                            close;
                        } else {
                            close;
                        }
                    
                        case 2: // Нет
                        next;
                        mes .npc$;
                        mes "Хорошего Вам дня."
                        close;
                    }
                    close;
                }
            }
            
        case 2: //Сохраниться
            next;
            mes .npcName$;
            mes "Ваша новая точка сохранения установлена.";
            mes "Удачного Вам дня :-)";
            close2;
            savepoint "celestiaj",65,60;
            end;
            
        close;
        case 3: //Взять тележку/сокола
        close;
        case 4: //Обнулить статы/умения
        close;
        case 5: //Распознать все вещи
        close;
        case 6: //Получить дополнительные умения
            next;
            mes .npcName$;
            mes "Держите ваши новые умения!";
            skill 142,1,0;
            switch(BaseClass) {
                case 0: if (Class !=23) skill 143,1,0; break;
                case 1: skill 144,1,0; skill 145,1,0; skill 146,1,0; break;
                case 2: skill 157,1,0; break;
                case 3: skill 147,1,0; skill 148,1,0; break;
                case 4: skill 156,1,0; break;
                case 5: skill 153,1,0; skill 154,1,0; skill 155,1,0; break;
                case 6: skill 149,1,0; skill 150,1,0; skill 151,1,0; skill 152,1,0; break;
                default: break;
            }
            switch(BaseJob) {
                case 7: skill 1001,1,0; break;
                case 8: skill 1014,1,0; break;
                case 9: skill 1006,1,0; break;
                case 10: skill 1012,1,0; skill 1013,1,0; break;
                case 11: skill 1009,1,0; break;
                case 12: skill 1003,1,0; skill 1004,1,0; break;
                case 14: skill 1002,1,0; break;
                case 15: skill 1015,1,0; skill 1016,1,0; break;
                case 16: skill 1007,1,0; skill 1008,1,0; skill 1017,1,0; skill 1018,1,0; skill 1019,1,0; break;
                case 17: skill 1005,1,0; break;
                case 18: skill 238,1,0; break;
                case 19: skill 1010,1,0; break;
                case 20: skill 1011,1,0; break;
                default: break;
            }
            close;
        case 7: //Установить пароль на склад
        close;
    }
    
 
}