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