//= 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