viewing paste Unknown #18785 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133
/*
        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;
        }
       
 
}
Viewed 412 times, submitted by unknown.