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 1058 times, submitted by Guest.