viewing paste Unknown #44998 | Text

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 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209
//= Teletransportadora
//===== Por: =================================================
//= Kamper
//===== Versão Atual: ========================================
//= 2.7
//===== Compatível Com: ======================================
//= Emulador [3010+]; Cliente [EP 12.1]
//===== Descrição: ===========================================
//= Move um personagem para o local escolhido pelo mesmo.
//= (Nota 1): 0 equivale a Não e 1 equivale a Sim.
//===== Comentários Adicionais: ==============================
//= 1.0 Iniciado o Npc [Kamper]
//= 1.1 Usado as cordenadas do Warp NPC feito pelo eA Dev Team
//= 1.2 Modificado a sprite [Kamper]
//= 1.3 Corrigido a coordenada, era da Payon Nova [Kamper]
//= 1.3.1 Corrigido a coordenada para Payon Nova [Kamper]
//= 1.4 Voltado para a coordenada da nova Payon [Kamper]
//= 1.5 Adicionado teleportes para Ayothaya e LouYang [Kamper]
//= 1.6 Adicionado teleportes para Einbroch e Einbech [Kamper]
//= 1.7 Adicionado novos teleportes, organizado e otimizado [S4suk3]
//= 1.8 Adicionado novos warps [Kamper
//= 1.8a Corrigido pequeno erro de digitação [Page]
//= 1.9 Adicionados Rachel & Veins aos Warps [MaxDragon]
//= 2.0 Reestruturado o npc [Kamper]
//= 2.1 Corrigido erros do script. [SoulBlaker]
//= 2.2 Corrigido erro e adicionados os mapas Ilha esquecida e Monastério [Minos]
//= 2.3 Adicionado Moscóvia e Floresta Encantada. [RoM]
//= 2.4 Corrigido o mapa e coordenada para o Formigueiro Infernal. [RoM]
//= 2.5 Movida a entrada do Formigueiro Infernal e da Teletransportadora de lá. [RoM]
//= 2.6 Removido um duplicate duplicado de hugel. [Puncker]
//= 2.7 Otimizado, adicionado funções e mapas. [mkbu95]
//============================================================
 
-       script  Warper  -1,{
 
//===== Configurações: =======================================
set @lwarp,     1;      // Habilitar último warp gravado? (Nota 1)
set @sdung,     1;      // Exibir calabouços no menu? (Nota 1)
//============================================================
 
        mes "[teletransporte]";
        mes "Olá "+strcharinfo(0)+", seja bem-vindo ao Serviço de Teletransporte!";
        mes "Para onde você gostaria de ir?";
        next;
        switch (select (((@lwarp)?"Último Destino":"")+"","Cidades",""+((@sdung)?"Outros Lugares":"")))
        {
                case 1:
                        if (lwarpx)
                        {
                                warp lwarp$, lwarpx, lwarpy;
                                end;
                        }
                        else
                        {
                                next;
                                mes "[teletransporte]";
                                mes "Você ainda não utilizou nosso serviço!";
                                close;
                        }
               
                case 2:
                        mes "[teletransporte]";
                        mes "Selecione o seu destino:";
                        next;
                        switch (select ("Prontera","Alberta","Aldebaran","Amatsu","Ayothaya","Brasilis","Comodo","Einbech","Einbroch","Geffen","Gonryun",
                                                        "Hugel","Izlude","Jawaii","Juno","Lighthalzen","Louyang","Lutie","Morroc","Moscovia","Niflheim",
                                                        "Payon","Rachel","Umbala","Veins"))
                        {
                       
                                case 1: callsub F_DoWarp, "prontera", 156, 191;
                                case 2: callsub F_DoWarp, "alberta", 30, 235;
                                case 3: callsub F_DoWarp, "aldebaran", 140, 131;
                                case 4: callsub F_DoWarp, "amatsu", 198, 84;
                                case 5: callsub F_DoWarp, "ayothaya", 151, 117;
                                case 6: callsub F_DoWarp, "brasilis", 195, 218;
                                case 7: callsub F_DoWarp, "comodo", 209, 143;
                                case 8: callsub F_DoWarp, "einbech", 70, 95;
                                case 9: callsub F_DoWarp, "einbroch", 64, 200;
                                case 10: callsub F_DoWarp, "geffen", 119, 59;;
                                case 11: callsub F_DoWarp, "gonryun", 160, 120;
                                case 12: callsub F_DoWarp, "hugel", 96, 145;
                                case 13: callsub F_DoWarp, "izlude", 128, 114;
                                case 14: callsub F_DoWarp, "jawaii", 249, 127;
                                case 15: callsub F_DoWarp, "yuno", 157, 167;
                                case 16: callsub F_DoWarp, "lighthalzen", 158, 92;
                                case 17: callsub F_DoWarp, "louyang", 216, 102;
                                case 18: callsub F_DoWarp, "xmas", 147, 134;
                                case 19: callsub F_DoWarp, "morocc", 156, 93;
                                case 20: callsub F_DoWarp, "moscovia", 223, 184;
                                case 21: callsub F_DoWarp, "niflheim", 21, 153;
                                case 22: callsub F_DoWarp, "payon", 178, 99;
                                case 23: callsub F_DoWarp, "rachel", 130, 110;
                                case 24: callsub F_DoWarp, "umbala", 132, 127;
                                case 25: callsub F_DoWarp, "veins", 216, 123;
                        }
               
                case 3:
                        mes "[teletransporte]";
                        mes "Selecione o seu destino:";
                        next;
                        switch (select ("Lago do Abismo","Labirinto de Tatames","Formigueiro Infernal","Labirinto do Santuário Ancestral","Ilha de Byalan","Caverna de Comodo","Mina de Carvão",
                                                        "Calabouço da Mina","Glast Heim","Santuário de Xi Wang Mu","Labirinto da Floresta","Ruínas de Juperos",
                                                        "A Tumba Real","Calabouço de Magma","Floresta Encantada","Caverna dos Orcs","Caverna de Payon","Esgoto de Prontera",
                                                        "Pirâmide","Esfinge","Navio Fantasma","Torre de Thanatos","Vulcão de Thor","Fábrica de Brinquedos","Ilha da Tartaruga",
                                                        "Poringlândia","Praia das Focas"))
                        {
                       
                                case 1: callsub F_DoWarp, "hu_fild05", 190, 207;
                                case 2: callsub F_DoWarp, "ama_dun01", 220, 10;
                                case 3: callsub F_DoWarp, "moc_fild20", 152, 142;
                                case 4: callsub F_DoWarp, "ayo_fild02", 277, 150;
                                case 5: callsub F_DoWarp, "izlu2dun", 107, 89;
                                case 6:
                                        mes "[teletransporte]";
                                        mes "Por favor, seja mais específico:";
                                        next;
                                        switch (select ("Caverna do Oeste:Caverna do Norte:Caverna do Leste"))
                                        {
                                                case 1: callsub F_DoWarp, "comodo", 30, 215;
                                                case 2: callsub F_DoWarp, "comodo", 176, 352;
                                                case 3: callsub F_DoWarp, "comodo", 327, 175;
                                        }
                                case 7: callsub F_DoWarp, "mjolnir_02", 79, 360;
                                case 8: callsub F_DoWarp, "einbech", 138, 249;
                                case 9: callsub F_DoWarp, "glast_01", 370, 304;
                                case 10: callsub F_DoWarp, "gonryun", 161, 195;
                                case 11: callsub F_DoWarp, "prt_maze01", 99, 31;
                                case 12: callsub F_DoWarp, "yuno_fild07", 213, 175;
                                case 13: callsub F_DoWarp, "louyang", 40, 273;
                                case 14: callsub F_DoWarp, "yuno_fild03", 38, 138;
                                case 15: callsub F_DoWarp, "mosk_dun01", 189, 45;
                                case 16: callsub F_DoWarp, "gef_fild10", 68, 333;
                                case 17: callsub F_DoWarp, "pay_arche", 41, 135;
                                case 18: callsub F_DoWarp, "prt_sewb1", 131, 247;
                                case 19: callsub F_DoWarp, "moc_ruins", 64, 155;
                                case 20: callsub F_DoWarp, "moc_fild19", 106, 99;
                                case 21: callsub F_DoWarp, "alb2trea", 75, 98;
                                case 22: callsub F_DoWarp, "hu_fild01", 140, 158;
                                case 23: callsub F_DoWarp, "ve_fild03", 168, 234;
                                case 24: callsub F_DoWarp, "xmas", 143, 311;
                                case 25: callsub F_DoWarp, "tur_dun01", 154, 237;
                                case 26: callsub F_DoWarp, "pay_fild04", 20, 165;
                                case 27: callsub F_DoWarp, "cmd_fild02", 222, 372;
                        }
                       
        }
       
        F_DoWarp:
                if (@lwarp)
                {
                        set lwarp$, getarg(0);
                        set lwarpx, getarg(1);
                        set lwarpy, getarg(2);
                }
                warp getarg(0), getarg(1), getarg(2);
                end;
        return;
}
 
//      Duplicates:
// --------------------------------------------------
alberta,37,240,4        duplicate(Warper)       Teletransporte#alb      806
aldebaran,146,119,4     duplicate(Warper)       Teletransporte#alde     806
amatsu,203,87,4 duplicate(Warper)       Teletransporte#ama      806
ayothaya,144,121,6      duplicate(Warper)       Teletransporte#ayo      806
comodo,198,148,4        duplicate(Warper)       Teletransporte#com      806
einbech,135,249,4       duplicate(Warper)       Teletransporte#einbe    806
einbroch,69,202,4       duplicate(Warper)       Teletransporte#einbr    806
gef_fild10,71,339,4     duplicate(Warper)       Teletransporte#orc      806
geffen,115,65,5 duplicate(Warper)       Teletransporte#gef      806
glast_01,372,308,4      duplicate(Warper)       Teletransporte#glh      806
gonryun,162,122,4       duplicate(Warper)       Teletransporte#gon      806
hugel,93,153,4  duplicate(Warper)       Teletransporte#hug      806
izlude,133,118,4        duplicate(Warper)       Teletransporte#izl      806     //Pre-RE: (132,120)
jawaii,253,138,4        duplicate(Warper)       Teletransporte#jaw      806
lighthalzen,153,83,4    duplicate(Warper)       Teletransporte#lhz      806
louyang,208,103,6       duplicate(Warper)       Teletransporte#lou      806
moc_ruins,64,164,4      duplicate(Warper)       Teletransporte#moc      806
morocc,162,97,4 duplicate(Warper)       Teletransporte#mor      806
moscovia,229,191,4      duplicate(Warper)       Teletransporte#mos      806
niflheim,27,160,4       duplicate(Warper)       Teletransporte#nif      806
pay_arche,42,134,4      duplicate(Warper)       Teletransporte#arc      806
payon,179,106,5 duplicate(Warper)       Teletransporte#pay      806
prontera,162,193,4      duplicate(Warper)       Teletransporte#prt      806
prt_fild05,279,223,6    duplicate(Warper)       Teletransporte#cul      806
rachel,135,116,4        duplicate(Warper)       Teletransporte#rac      806
umbala,131,132,4        duplicate(Warper)       Teletransporte#umb      806
veins,214,123,4 duplicate(Warper)       Teletransporte#ve       806
xmas,150,136,6  duplicate(Warper)       Teletransporte#xmas     806
yuno,137,164,4  duplicate(Warper)       Teletransporte#yuno     806
hu_fild05,186,210,5     duplicate(Warper)       Teletransporte#hu       806
ama_dun01,233,8,4       duplicate(Warper)       Teletransporte#amaa     806
moc_fild20,151,149,4    duplicate(Warper)       Teletransporte#moco     806
ayo_fild02,279,153,4    duplicate(Warper)       Teletransporte#ayoo     806
izlu2dun,104,82,4       duplicate(Warper)       Teletransporte#izlu2dun 806
mjolnir_02,81,363,4     duplicate(Warper)       Teletransporte#mjolnir  806
gonryun,156,197,4       duplicate(Warper)       Teletransporte#grds     806
yuno_fild07,211,171,4   duplicate(Warper)       Teletransporte#yuno_fild        806
louyang,36,275,4        duplicate(Warper)       Teletransporte#up       806
yuno_fild03,34,136,4    duplicate(Warper)       Teletransporte#gold     806
prt_sewb1,127,252,4     duplicate(Warper)       Teletransporte#sky      806
moc_fild19,106,97,4     duplicate(Warper)       Teletransporte#mooo     806
alb2trea,76,102,4       duplicate(Warper)       Teletransporte#al       806
ve_fild03,171,239,4     duplicate(Warper)       Teletransporte#thor     806
xmas,141,311,4  duplicate(Warper)       Teletransporte#up1      806
tur_dun01,150,240,4     duplicate(Warper)       Teletransporte#tur      806
cmd_fild02,218,374,4    duplicate(Warper)       Teletransporte#cmd      806
quiz_02,46,386,4        duplicate(Warper)       Teletransporte#secc     806
brasilis,195,221,4      duplicate(Warper)       Teletransporte#bras     806
Viewed 583 times, submitted by unknown.