Автор: Ordos: Дата: 05.26.2010
Сабж. Помогите обработать варпера, чтобы он варпал за поринг койны и добавить функцию ластварп. Были похожие но в этом варпы именно ко входам в данж и нету на локации, что хотелось бы оставить.
Собственно код:
//===== eAthena Script =======================================
//= Warper Script
//===== By: ==================================================
//= Darkchild
//===== Current Version: =====================================
//= 2.1
//===== Compatible With: =====================================
//= Any eAthena Version;
//===== Description: =========================================
//= Generic warper...
//===== Additional Comments: =================================
//= 1.0 by Darkchild
//= 1.1 by jabs
//= 1.2 by Lupus (placement fixed in Amatsu)
//= 1.3 fixed Louyang label typo, added warp and WARPRA into
//= Nifleheim. Also sorted all names in alphabet order [Lupus]
//= 1.4 fixed morroc warp npc overlaying kafra [Aria]
//= 1.4a Added Ayothaya and Einbroch to list, and town Warpra's [Fredzilla]
//= 1.4b fixed Izlude warp npc overlaying BBS [Justin84]
//= 1.5 Added this NPC to more places [Lupus]
//= 1.6 Rewrote a lot. Changed the sprite, some locations. [Poki#3]
//= TODO Add an option for selecting the level of the dungeon. [Poki#3]
//= 1.7 Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
//= 1.8 Removed Duplicates [Silent]
//= 1.9 Optimized for the greater good. [Kisuka]
//= 2.0 Fixed warp for AntHell and Yuno. [Kisuka]
//= 2.1 Moved AntHell warp agent to the new anthell entrance. [brianluau]
//============================================================
//============================================================
//= To allow selecting the Level of the Dungeon you want to
//= Warp to set the @lvlselect variable to 1 (Not implemented yet!)
//============================================================
- script Warp Agent#01::warpra 859,{
// set @lvlselect,0;
callfunc "F_ClearGarbage"; //Clear outdated, unused variables
mes "[Warp Agent]";
mes "Hello " + strcharinfo(0) + ",";
mes "I can teleport you to any Town or Dungeon!";
mes "Where do you want to go?";
next;
switch(select("To a Town:To a Dungeon")) {
case 1:
mes "[Warp Agent]";
mes "Please select which town you would like to be teleported to.";
next;
switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno")) {
case 1:
warp "alberta",27,236;
break;
case 2:
warp "aldebaran",145,120;
break;
case 3:
warp "amatsu",197,86;
break;
case 4:
warp "ayothaya",149,118;
break;
case 5:
warp "comodo",188,161;
break;
case 6:
warp "einbroch",64,200;
break;
case 7:
warp "einbech",70,95;
break;
case 8:
warp "geffen",119,66;
break;
case 9:
warp "gonryun",150,130;
break;
case 10:
warp "hugel",96,145;
break;
case 11:
warp "izlude",128,111;
break;
case 12:
warp "lighthalzen",158,92;
break;
case 13:
warp "louyang",210,108;
break;
case 14:
warp "xmas",150,133;
break;
case 15:
warp "morocc",159,93;
break;
case 16:
warp "payon",152,75;
break;
case 17:
warp "prontera",156,187;
break;
case 18:
warp "umbala",130,130;
break;
case 19:
warp "yuno",160,168;
break;
}
break;
case 2:
mes "[Warp Agent]";
mes "Please select which dungeon you would like to be teleported to.";
next;
switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon")) {
case 1:
warp "hu_fild05",189,207;
break;
case 2:
warp "ama_dun01",229,12;
break;
case 3:
warp "moc_fild20",164,145;
break;
case 4:
warp "ayo_fild02",280,149;
break;
case 5:
warp "izlu2dun",106,88;
break;
case 6:
warp "prt_sewb1",126,248;
break;
case 7:
warp "mjolnir_02",81,359;
break;
case 8:
warp "einbech",135,249;
break;
case 9:
warp "glast_01",368,303;
break;
case 10:
warp "gonryun",160,195;
break;
case 11:
warp "yuno_fild07",218,176;
break;
case 12:
warp "lighthalzen",158,285;
break;
case 13:
warp "yuno_fild03",39,140;
break;
case 14:
warp "niflheim",35,161;
break;
case 15:
warp "odin_tem01",98,144;
break;
case 16:
warp "gef_fild10",70,332;
break;
case 17:
warp "pay_arche",43,132;
break;
case 18:
warp "moc_ruins",62,162;
break;
case 19:
warp "moc_fild19",107,100;
break;
case 20:
warp "alb2trea",75,98;
break;
case 21:
warp "tha_scene01",131,223;
break;
case 22:
warp "tur_dun01",149,238;
}
break;
}
end;
}
// --------- NPC Clones ------------
// ---------------------------------
// ----------- Towns -------------
alberta,31,240,4 duplicate(warpra) Warp Agent#02 859
aldebaran,145,118,4 duplicate(warpra) Warp Agent#03 859
amatsu,192,81,1 duplicate(warpra) Warp Agent#04 859
ayothaya,144,117,6 duplicate(warpra) Warp Agent#05 859
comodo,194,158,4 duplicate(warpra) Warp Agent#06 859
einbroch,59,205,4 duplicate(warpra) Warp Agent#07 859
einbroch,243,189,2 duplicate(warpra) Warp Agent#08 859
einbech,135,249,4 duplicate(warpra) Warp Agent#09 859
geffen,115,66,4 duplicate(warpra) Warp Agent#10 859
gonryun,151,130,4 duplicate(warpra) Warp Agent#11 859
izlude,133,117,4 duplicate(warpra) Warp Agent#12 859
hugel,88,151,5 duplicate(warpra) Warp Agent#13 859
lighthalzen,155,79,6 duplicate(warpra) Warp Agent#14 859
louyang,210,106,4 duplicate(warpra) Warp Agent#15 859
morocc,156,95,4 duplicate(warpra) Warp Agent#16 859
prontera,161,192,4 duplicate(warpra) Warp Agent#17 859
payon,182,110,4 duplicate(warpra) Warp Agent#18 859
umbala,132,130,4 duplicate(warpra) Warp Agent#19 859
xmas,150,136,4 duplicate(warpra) Warp Agent#20 859
yuno,137,162,4 duplicate(warpra) Warp Agent#21 859
// ------------ Dungeons ------------
ama_dun01,233,9,1 duplicate(warpra) Warp Agent#22 859
moc_fild20,162,139,6 duplicate(warpra) Warp Agent#23 859
ayo_fild02,279,154,4 duplicate(warpra) Warp Agent#24 859
izlu2dun,104,82,4 duplicate(warpra) Warp Agent#25 859
prt_sewb1,125,253,4 duplicate(warpra) Warp Agent#26 859
mjolnir_02,85,363,4 duplicate(warpra) Warp Agent#27 859
einbech,81,101,1 duplicate(warpra) Warp Agent#28 859
glast_01,370,308,4 duplicate(warpra) Warp Agent#29 859
yuno_fild03,37,135,4 duplicate(warpra) Warp Agent#30 859
niflheim,32,161,4 duplicate(warpra) Warp Agent#31 859
gef_fild10,71,339,4 duplicate(warpra) Warp Agent#32 859
pay_arche,39,135,4 duplicate(warpra) Warp Agent#33 859
moc_ruins,64,166,4 duplicate(warpra) Warp Agent#34 859
moc_fild19,106,97,4 duplicate(warpra) Warp Agent#35 859
alb2trea,73,101,4 duplicate(warpra) Warp Agent#36 859
tur_dun01,148,239,4 duplicate(warpra) Warp Agent#37 859
lhz_dun01,157,285,4 duplicate(warpra) Warp Agent#38 859
hu_fild05,186,210,4 duplicate(warpra) Warp Agent#39 859
yuno_fild07,221,179,4 duplicate(warpra) Warp Agent#40 859
tha_scene01,139,194,1 duplicate(warpra) Warp Agent#41 859
odin_tem01,96,149,4 duplicate(warpra) Warp Agent#42 859
Автор: Ordos: Дата: 05.26.2010
Цитата Sanasol;24187:
Не проще готового взять с ласт варпом?
Автор: Rectedo: Дата: 05.27.2010
Цитата Ordos;24188:
Мне кажется проще будет ласт варп добавить ежели убирать все локации и все подземелья. Мне нужно чтобы варпер варпал К подземелью а не в него. :D
Автор: Ordos: Дата: 06.17.2010
Можно ли взять часть когда с ластварпом и поместить в уже имеющегося?
Автор: DiS[IP]: Дата: 06.17.2010
[FONT=Lucida Console]Можно.Только нужно немного дописать скрипт.[/FONT]
Автор: Ordos: Дата: 06.17.2010
Собственно вот варпер который нужен.. Готовый уже но только ластварпа не хватает) Может кто-нибудь согласиться помочь, добавив ластварп в него?))
Автор: Ordos: Дата: 06.18.2010
Ну помогите пожалуйста 8)
Автор: Rectedo: Дата: 06.18.2010
выложи
вот такАвтор: San: Дата: 06.18.2010
//===== eAthena Script =======================================
//= Warper Script
//===== By: ==================================================
//= Darkchild
//===== Current Version: =====================================
//= 2.1
//===== Compatible With: =====================================
//= Any eAthena Version;
//===== Description: =========================================
//= Generic warper...
//===== Additional Comments: =================================
//= 1.0 by Darkchild
//= 1.1 by jabs
//= 1.2 by Lupus (placement fixed in Amatsu)
//= 1.3 fixed Louyang label typo, added callfunc "teleportation",and WARPRA into
//= Nifleheim. Also sorted all names in alphabet order [Lupus]
//= 1.4 fixed morroc callfunc "teleportation",npc overlaying kafra [Aria]
//= 1.4a Added Ayothaya and Einbroch to list, and town Warpra's [Fredzilla]
//= 1.4b fixed Izlude callfunc "teleportation",npc overlaying BBS [Justin84]
//= 1.5 Added this NPC to more places [Lupus]
//= 1.6 Rewrote a lot. Changed the sprite, some locations. [Poki#3]
//= TODO Add an option for selecting the level of the dungeon. [Poki#3]
//= 1.7 Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
//= 1.8 Removed Duplicates [Silent]
//= 1.9 Optimized for the greater good. [Kisuka]
//= 2.0 Fixed callfunc "teleportation",for AntHell and Yuno. [Kisuka]
//= 2.1 Moved AntHell callfunc "teleportation",agent to the new anthell entrance. [brianluau]
//============================================================
//============================================================
//= To allow selecting the Level of the Dungeon you want to
//= Warp to set the @lvlselect variable to 1 (Not implemented yet!)
//============================================================
- script Warp Agent#01::warpra 859,{
// set @lvlselect,0;
callfunc "F_ClearGarbage"; //Clear outdated, unused variables
mes "[Warp Agent]";
mes "Hello " + strcharinfo(0) + ",";
mes "I can teleport you to any Town or Dungeon!";
mes "Where do you want to go?";
next;
switch(select("Last Warp:To a Town:To a Dungeon")) {
case 1:
mes "Ты будешь перемещён в - "+#lastwarploc$;
warp #lastwarploc$,#lastwarpx,#lastwarpy;
break;
case 2:
mes "[Warp Agent]";
mes "Please select which town you would like to be teleported to.";
next;
switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno:Veins:Rachel")) {
case 1:
callfunc "teleportation","alberta",27,236;
break;
case 2:
callfunc "teleportation","aldebaran",145,120;
break;
case 3:
callfunc "teleportation","amatsu",197,86;
break;
case 4:
callfunc "teleportation","ayothaya",149,118;
break;
case 5:
callfunc "teleportation","comodo",188,161;
break;
case 6:
callfunc "teleportation","einbroch",64,200;
break;
case 7:
callfunc "teleportation","einbech",70,95;
break;
case 8:
callfunc "teleportation","geffen",119,66;
break;
case 9:
callfunc "teleportation","gonryun",150,130;
break;
case 10:
callfunc "teleportation","hugel",96,145;
break;
case 11:
callfunc "teleportation","izlude",128,111;
break;
case 12:
callfunc "teleportation","lighthalzen",158,92;
break;
case 13:
callfunc "teleportation","louyang",210,108;
break;
case 14:
callfunc "teleportation","xmas",150,133;
break;
case 15:
callfunc "teleportation","morocc",159,93;
break;
case 16:
callfunc "teleportation","payon",152,75;
break;
case 17:
callfunc "teleportation","prontera",152,184;
break;
case 18:
callfunc "teleportation","umbala",130,130;
break;
case 19:
callfunc "teleportation","yuno",160,168;
break;
case 20:
callfunc "teleportation","veins",216,123;
break;
case 21:
callfunc "teleportation","rachel",130,110;
break;
}
break;
case 3:
mes "[Warp Agent]";
mes "Please select which dungeon you would like to be teleported to.";
next;
switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon:Thor Volcano:Rachel Sunctuary:Toy Factory:Ice Dungeon:Moscovia Dungeon:New World:Abbey Dungeon")) {
case 1:
callfunc "teleportation","abyss_01",261,272;
break;
case 2:
callfunc "teleportation","ama_dun01",229,12;
break;
case 3:
callfunc "teleportation","moc_fild20",164,145;
break;
case 4:
callfunc "teleportation","ayo_fild02",280,149;
break;
case 5:
callfunc "teleportation","izlu2dun",106,88;
break;
case 6:
callfunc "teleportation","mjolnir_02",81,359;
break;
case 7:
callfunc "teleportation","prt_sewb1",126,248;
break;
case 8:
callfunc "teleportation","einbech",135,249;
break;
case 9:
callfunc "teleportation","glast_01",368,303;
break;
case 10:
callfunc "teleportation","gonryun",160,195;
break;
case 11:
callfunc "teleportation","yuno_fild07",218,176;
break;
case 12:
callfunc "teleportation","lighthalzen",158,285;
break;
case 13:
callfunc "teleportation","yuno_fild03",39,140;
break;
case 14:
callfunc "teleportation","niflheim",35,161;
break;
case 15:
callfunc "teleportation","odin_tem01",98,144;
break;
case 16:
callfunc "teleportation","gef_fild10",70,332;
break;
case 17:
callfunc "teleportation","pay_arche",43,132;
break;
case 18:
callfunc "teleportation","moc_ruins",62,162;
break;
case 19:
callfunc "teleportation","moc_fild19",107,100;
break;
case 20:
callfunc "teleportation","alb2trea",75,98;
break;
case 21:
callfunc "teleportation","tha_scene01",131,223;
break;
case 22:
callfunc "teleportation","tur_dun01",149,238;
break;
case 23:
callfunc "teleportation","ve_fild03",169,235;
break;
case 24:
callfunc "teleportation","ra_temin",27,311;
break;
case 25:
callfunc "teleportation","xmas",144,309;
break;
case 26:
callfunc "teleportation","ra_fild01",233,327;
break;
case 27:
callfunc "teleportation","moscovia",139,53;
break;
case 28:
callfunc "teleportation","moc_fild22b",236,196;
break;
case 29:
callfunc "teleportation","ve_fild07",128,134;
break;
}
break;
}
end;
}
function script teleportation {
set @warploc$, getarg(0);
set @warpx, getarg(1);
set @warpy, getarg(2);
set #lastwarploc$,@warploc$;
set #lastwarpx,@warpx;
set #lastwarpy,@warpy;
warp @warploc$,@warpx,@warpy;
end;
}
// --------- NPC Clones ------------
// ---------------------------------
// ----------- Towns -------------
alberta,31,240,4 duplicate(warpra) Warp Agent#02 859
aldebaran,145,118,4 duplicate(warpra) Warp Agent#03 859
amatsu,192,81,1 duplicate(warpra) Warp Agent#04 859
ayothaya,144,117,6 duplicate(warpra) Warp Agent#05 859
comodo,194,158,4 duplicate(warpra) Warp Agent#06 859
einbroch,59,205,4 duplicate(warpra) Warp Agent#07 859
einbroch,243,189,2 duplicate(warpra) Warp Agent#08 859
einbech,135,249,4 duplicate(warpra) Warp Agent#09 859
geffen,115,66,4 duplicate(warpra) Warp Agent#10 859
gonryun,151,130,4 duplicate(warpra) Warp Agent#11 859
izlude,133,117,4 duplicate(warpra) Warp Agent#12 859
hugel,88,151,5 duplicate(warpra) Warp Agent#13 859
lighthalzen,155,79,6 duplicate(warpra) Warp Agent#14 859
louyang,210,106,4 duplicate(warpra) Warp Agent#15 859
morocc,156,95,4 duplicate(warpra) Warp Agent#16 859
prontera,162,186,4 duplicate(warpra) Warp Agent#17 859
payon,182,110,4 duplicate(warpra) Warp Agent#18 859
umbala,132,130,4 duplicate(warpra) Warp Agent#19 859
xmas,150,136,4 duplicate(warpra) Warp Agent#20 859
yuno,137,162,4 duplicate(warpra) Warp Agent#21 859
// ------------ Dungeons ------------
ama_dun01,233,9,1 duplicate(warpra) Warp Agent#22 859
moc_fild20,162,139,6 duplicate(warpra) Warp Agent#23 859
ayo_fild02,279,154,4 duplicate(warpra) Warp Agent#24 859
izlu2dun,104,82,4 duplicate(warpra) Warp Agent#25 859
prt_sewb1,125,253,4 duplicate(warpra) Warp Agent#26 859
mjolnir_02,85,363,4 duplicate(warpra) Warp Agent#27 859
einbech,81,101,1 duplicate(warpra) Warp Agent#28 859
glast_01,370,308,4 duplicate(warpra) Warp Agent#29 859
yuno_fild03,37,135,4 duplicate(warpra) Warp Agent#30 859
niflheim,32,161,4 duplicate(warpra) Warp Agent#31 859
gef_fild10,71,339,4 duplicate(warpra) Warp Agent#32 859
pay_arche,39,135,4 duplicate(warpra) Warp Agent#33 859
moc_ruins,64,166,4 duplicate(warpra) Warp Agent#34 859
moc_fild19,106,97,4 duplicate(warpra) Warp Agent#35 859
alb2trea,73,101,4 duplicate(warpra) Warp Agent#36 859
tur_dun01,148,239,4 duplicate(warpra) Warp Agent#37 859
lhz_dun01,157,285,4 duplicate(warpra) Warp Agent#38 859
hu_fild05,186,210,4 duplicate(warpra) Warp Agent#39 859
yuno_fild07,221,179,4 duplicate(warpra) Warp Agent#40 859
tha_scene01,139,194,1 duplicate(warpra) Warp Agent#41 859
odin_tem01,96,149,4 duplicate(warpra) Warp Agent#42 859
Автор: DiS[IP]: Дата: 06.18.2010
[FONT=Lucida Console]San,типа пошутил?:D
Просто не реально занубил,не будет варпер варпать в последнюю точку.Tолку,что ты вставил ласт варп?После самого варпа должна идти запись еще.[/FONT]
Автор: Rectedo: Дата: 06.18.2010
вот и я подумал..... (офф топ)
Автор: Ordos: Дата: 06.18.2010
Эх(
Автор: San: Дата: 06.18.2010
мда.. вот ето я знубил :blush2:
отредактировал предыдущий пост, уже должен нормально работать:D
Автор: Ordos: Дата: 06.18.2010
Цитата San;25580:
мда.. вот ето я знубил :blush2:
отредактировал предыдущий пост, уже должен нормально работать:D
Автор: Ordos: Дата: 06.27.2010
Появился ещё вопрос. Как можно сделать, чтобы хилер восстанавливал только 30% сп? Вот код
prontera.gat,149,192,5 script Хилер 811,{
//sc_start 21, 37000, 10; // Endure
//sc_start 49, 300000, 1; // Energie Coat
sc_start 32, 240000, 10; // Increase Agi
//sc_start 29, 300000, 10; // Angelus
sc_start 30, 240000, 10; // Blessing
//sc_start 48, 300000, 1; // Crazy Uproar
//sc_start 22, 300000, 10; // Twohand Quicken
//sc_start 150, 300000, 1; // Onehand Quicken
//sc_start 35, 60000, 5; // Impositio Manus
//sc_start 40, 90000, 5; // Magnificat
//sc_start 41, 30000, 5; // Gloria
//sc_start 43, 150000, 5; // Adrenaline Rush
//sc_start 44, 50000, 5; // Weapon Perfection
//sc_start 45, 100000, 5; // Power-Thrust
//sc_start 46, 360000, 5; // Maximize Power
//sc_start 145, 150000, 1; // Full Adrenaline Rush
//sc_start 86, 300000, 10; // Spear Quicken
//sc_start 118, 30000, 10; // Mystical Amplify
//sc_start 156, 180000, 1; // Maximum Power Thrust
//sc_start 121, 400000, 10; // Wind Walker
//sc_start 154, 90000, 5; // Double Casting
//sc_start 115, 100000, 5; // Assumptio
percentheal 100,30;
specialeffect2 519;
getinventorylist;
set @identify, 0;
for(set @i, 0; @i < @inventorylist_count; set @i, @i + 1) {
if (@inventorylist_identify[@i] == 0) set @identify, @identify + 1;
}
getinventorylist;
set @identified, 0;
for(set @i, 0; @i < @inventorylist_count; set @i, @i + 1) {
if (@inventorylist_identify[@i] == 0) {
delitem2 @inventorylist_id[@i],1,0,0,0,0,0,0,0;
getitem @inventorylist_id[@i],1;
set @identified, @identified + 1;
}
}
close;
}
Автор: Incubus: Дата: 06.27.2010
вместо
percentheal 100,30;
вставь
if(SP < MaxSP/100*30)
{
percentheal 100,-100;
percentheal 100,30;
}
else
percentheal 100,0;