Jump to content
  • 0

Warper

Rizta

Asked by Rizta,

 Share

Question

Rizta Poring

Rizta

Posted
  • Group:  Members
  • Topic Count:  22
  • Topics Per Day:  0.01
  • Content Count:  109
  • Reputation:   5
  • Joined:  08/12/17
  • Last Seen:  
Posted

[English]

Spoiler

Ive tried to create a new warper based on another script i saw here in rathena (euphny i think) but i got bad results. Someone can look into the code and tell me where im doing wrong?

[Portuguese]

Spoiler

Estou tentando criar uma nova teleportadora baseada em uma que eu vi em um servidor, porém, não estou tendo muito sucesso... faz muito tempo que não tento criar um script então estou bem enferrujado e pode ser que tenha feito absurdos no codigo, mas, se alguem puder me ajudar, agradeceria :D

 

 

warper_by_rizakh_exclusive_hellin.txt

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
sader1992 Eggring

sader1992

Posted
  • Group:  Content Moderator
  • Topic Count:  55
  • Topics Per Day:  0.02
  • Content Count:  1678
  • Reputation:   704
  • Joined:  12/21/14
  • Last Seen:  
Posted

after thinking you have too many errors that i can't count

it would take more time to count it then fixing it :P

i would suggest 

do not copy

know why you are typing the line before you type it

and no need to setarray every time you want to make variable

you can optimize the script a lot if you want to

^ i would suggest that and know what the different between your script and the new one to learn more

this fixed 

//=================================================
// Teleportadora Simples
//=================================================
// rAthena
//=================================================
// by Rizakh
//=================================================
// Free to use and you are not allowed to sell this
// in any circunstance.
//=================================================
// v 1.0 - 14/08/17 Initial Release
//=================================================
prontera,156,182,6	script	Warper	100,{
	function Irv;	function Irz;
	mes "[Teleportadora]";
	mes "Olá "+strcharinfo(0)+" para onde";
	mes "gostaria de ir?";
	next;
	menu	"Último Teleporte ^777777["+lastwarp$+"]^000000",-,
			"Cidades",Cid,
			"Calabouços",Cal;
			
			if (lastwarp$ == "")
				message strcharinfo(0),"Você não teleportou para nenhum lugar ainda.";
			else
				warp lastwarp$,lastwarpx,lastwarpy;
			end;


//=======================================
		Cid:
//=======================================
menu	"Alberta - 1000z",C1, "Aldebaran - 1000z",C2, "Amatsu - 3000z",C3, "Ayothaya - 3000z",C4, "Brasilis - 3000z",C5,
		"Comodo - 1000z",C6, "Dewata - 10000z",C7, "Einbech - 5000z",C8, "Einbroch - 5000z",C9, "Geffen - 1000z",C10, "Gonryun - 3000z",C11,
		"Hugel - 10000z",C12, "Izlude - 1000z",C13, "Jawaii - 5000z",C14, "Lasagna - 5000z",C15, "Lighthalzen - 10000z",C16,
		"Louyang - 5000z",C17, "Malangdo - 5000z", C18, "Malaya - 10000z",C19, "Morocc - 1000z",C20, "Moscovia - 5000z",C21,
		"Niflheim - 10000z",C22, "Payon - 1000z",C23, "Prontera - 1000z",C24, "Rachel - 5000z",C25, "Umbala - 5000z",C26,
		"Veins - 5000z",C27, "Xmas - 1000z",C28, "Yuno - 5000z",C29;
		
C1: if(getgmlevel() >= 1){
	Irv("alberta",28,234);
	}else{
	setarray @zeny, 1000;
	Irz("alberta",28,234);
}
C2: if(getgmlevel() >= 1){
	Irv("aldebaran",140,131);
	}else{
	setarray @zeny, 1000;
	Irz("aldebaran",140,131);
	}
C3: if(getgmlevel() >= 1){
	Irv("amatsu",198,84);
	}else{
	setarray @zeny, 3000;
	Irz("amatsu",198,84);
}
C4: if(getgmlevel() >= 1){
	Irv("ayothaya",208,166);
	}else{
	setarray @zeny, 3000;
	Irz("ayothaya",208,166);
}
C5: if(getgmlevel() >= 1){
	Irv("brasilis",196,217);
	}else{
	setarray @zeny, 3000;
	Irz("brasilis",196,217);
}
C6: if(getgmlevel() >= 1){
	Irv("comodo",209,143);
	}else{
	setarray @zeny, 1000;
	Irz("comodo",209,143);
}
C7: if(getgmlevel() >= 1){
	Irv("dewata",200,180);
	}else{
	setarray @zeny, 10000;
	Irz("dewata",200,180);
}
C8: if(getgmlevel() >= 1){
	Irv("einbech",63,35);
	}else{
	setarray @zeny, 5000;
	Irz("einbech",63,35);
}
C9: if(getgmlevel() >= 1){
	Irv("einbroch",64,200);
	}else{
	setarray @zeny, 5000;
	Irz("einbroch",64,200);
}
C10: if(getgmlevel() >= 1){
	Irv("geffen",119,59);
	}else{
	setarray @zeny, 1000;
	Irz("geffen",119,59);
}
C11: if(getgmlevel() >= 1){
	Irv("gonryun",160,120);
	}else{
	setarray @zeny, 3000;
	Irz("gonryun",160,120);
}
C12: if(getgmlevel() >= 1){
	Irv("hugel",96,145);
	}else{
	setarray @zeny, 10000;
	Irz("hugel",96,145);
}
C13: if(getgmlevel() >= 1){
	Irv("izlude",128,146);
	}else{
	setarray @zeny, 1000;
	Irz("izlude",128,146);
}
C14: if(getgmlevel() >= 1){
	Irv("jawaii",251,132);
	}else{
	setarray @zeny, 5000;
	Irz("jawaii",251,132);
}
C15: if(getgmlevel() >= 1){
	Irv("lasagna",171,152);
	}else{
	setarray @zeny, 5000;
	Irz("lasagna",171,152);
}
C16: if(getgmlevel() >= 1){
	Irv("lighthalzen",158,92);
	}else{
	setarray @zeny, 10000;
	Irz("lighthalzen",158,92);
}
C17: if(getgmlevel() >= 1){
	Irv("louyang",217,100);
	}else{
	setarray @zeny, 3000;
	Irz("louyang",217,100);
}
C18: if(getgmlevel() >= 1){
	Irv("malangdo",140,114);
	}else{
	setarray @zeny, 5000;
	Irz("malangdo",140,114);
}
C19: if(getgmlevel() >= 1){
	Irv("malaya",231,200);
	}else{
	setarray @zeny, 10000;
	Irz("malaya",231,200);
}
C20: if(getgmlevel() >= 1){
	Irv("morocc",156,93);
	}else{
	setarray @zeny, 1000;
	Irz("morocc",156,93);
}
C21: if(getgmlevel() >= 1){
	Irv("moscovia",223,184);
	}else{
	setarray @zeny, 5000;
	Irz("moscovia",223,184);
}
C22: if(getgmlevel() >= 1){
	Irv("niflheim",202,174);
	}else{
	setarray @zeny, 10000;
	Irz("niflheim",202,174);
}
C23: if(getgmlevel() >= 1){
	Irv("payon",179,100);
	}else{
	setarray @zeny, 1000;
	Irz("payon",179,100);
}
C24: if(getgmlevel() >= 1){
	Irv("prontera",155,183);
	}else{
	setarray @zeny, 1000;
	Irz("prontera",155,183);
}
C25: if(getgmlevel() >= 1){
	Irv("rachel",130,110);
	}else{
	setarray @zeny, 5000;
	Irz("rachel",130,110);
}
C26: if(getgmlevel() >= 1){
	Irv("umbala",97,153);
	}else{
	setarray @zeny, 5000;
	Irz("umbala",97,153);
}
C27: if(getgmlevel() >= 1){
	Irv("veins",216,123);
	}else{
	setarray @zeny, 5000;
	Irz("veins",216,123);
}
C28: if(getgmlevel() >= 1){
	Irv("xmas",147,134);
	}else{
	setarray @zeny, 1000;
	Irz("xmas",147,134);
}
C29: if(getgmlevel() >= 1){
	Irv("yuno",157,51);
	}else{
	setarray @zeny, 5000;
	Irz("yuno",157,51);
}

//=============================================
		Cal:
//=============================================
menu	"Formigueiro Infernal - 5000",D1, "Karu, a caverna do Oeste - 5000",D2, "Ruander, a caverna do Norte - 5000",D3,
		"Mao, a caverna do Oeste - 5000",D4, "Ilha de Byalan - 2000",D5, "Torre do Relógio - 6000",D6, "Mina de Carvão - 3000",D7,
		"Caverna de Dewata - 10000",D8, "Ninho dos Basilíscos - 5000",D9, "Mina de Einbroch - 7000",D10, "Torre de Geffen - 2000",D11,
		"Glast Heim - Igreja - 10000",D12, "Glast Heim - Castelo - 10000",D13, "Glast Heim - Prisão - 10000",D14,
		"Glast Heim - Cavalaria - 10000",D15, "Glast Heim - Esgotos - 10000",D16, "Glast Heim - Calabouço 10000",D17,
		"Templo da Rainha de Gonryun - 5000",D18, "Labirinto de Prontera - 5000",D19, "Caverna de Gelo - 5000",D20, "Ruínas de Juperos - 7000",D21,
		"Tumba Real de Louyang - 7000",D22, "Caverna de Magma - 5000",D23, "Caverna de Malangdo - 10000",D24, "Templo de Odin - 15000",D25,
		"Caverna dos Orcs - 3000",D26, "Caverna de Payon - 2000",D27, "Esgotos de Prontera - 1000",D28, "Pirâmides - 5000",D29,
		"Torre de Thanatos - 30000",D30,"Vulcão de Thor - 50000",D31, "Fábrica de Brinquedo - 5000",D32, "Caverna de Umbala - 20000",D33;
		
D1: if(getgmlevel() >= 1){
	Irv("anthell01",36,263);
	}else{
	setarray @zeny, 5000;
	Irz("anthell01",36,263);
}
D2: if(getgmlevel() >= 1){
	Irv("beach_dun",273,68);
	setarray @zeny, 5000;
	Irz("beach_dun",273,68);
}
D3: if(getgmlevel() >= 1){
	Irv("beach_dun2",154,15);
	}else{
	setarray @zeny, 5000;
	Irz("beach_dun2",154,15);
}
D4: if(getgmlevel() >= 1){
	Irv("beach_dun3",19,263);
	}else{
	setarray @zeny, 5000;
	Irz("beach_dun3",19,263);
}
D5: if(getgmlevel() >= 1){
	Irv("iz_dun00",168,169);
	}else{
	setarray @zeny, 2000;
	Irz("iz_dun00",168,169);
}
D6: if(getgmlevel() >= 1){
	Irv("c_tower1",200,160);
	}else{
	setarray @zeny, 6000;
	Irz("c_tower1",200,160);
}
D7: if(getgmlevel() >= 1){
	Irv("mjo_dun01",52,17);
	}else{
	setarray @zeny, 3000;
	Irz("mjo_dun01",52,17);
}
D8: if(getgmlevel() >= 1){
	Irv("dew_dun02",302,30);
	}else{
	setarray @zeny, 10000;
	Irz("dew_dun02",302,30);
}
D9: if(getgmlevel() >= 1){
	Irv("lasa_dun01",23,143);
	}else{
	setarray @zeny, 5000;
	Irz("lasa_dun01",25,143);
}
D10: if(getgmlevel() >= 1){
	Irv("ein_dun01",22,14);
	}else{
	setarray @zeny, 7000;
	Irz("ein_dun01",22,14);
}
D11: if(getgmlevel() >= 1){
	Irv("gef_dun00",104,99);
	}else{
	setarray @zeny, 2000;
	Irz("geff_dun00",104,99);
}
D12: if(getgmlevel() >= 1){
	Irv("gl_church",156,7);
	}else{
	setarray @zeny, 10000;
	Irz("gl_church",156,7);
}
D13: if(getgmlevel() >= 1){
	Irv("gl_cas01",199,29);
	}else{
	setarray @zeny, 10000;
	Irz("gl_cas01",199,29);
}
D14: if(getgmlevel() >= 1){
	Irv("gl_prison",14,70);
	}else{
	setarray @zeny, 10000;
	Irz("gl_prison",14,70);
}
D15: if(getgmlevel() >= 1){
	Irv("gl_knt01",150,15);
	}else{
	setarray @zeny, 10000;
	Irz("gl_knt01",150,15);
}
D16: if(getgmlevel() >= 1){
	Irv("gl_sew01",258,255);
	}else{
	setarray @zeny, 10000;
	Irz("gl_sew01",258,255);
}
D17: if(getgmlevel() >= 1){
	Irv("gl_dun01",133,274);
	}else{
	setarray @zeny, 10000;
	Irz("gl_sew01",133,274);
}
D18: if(getgmlevel() >= 1){
	Irv("gon_dun01",162,269);
	}else{
	setarray @zeny, 5000;
	Irz("gon_dun01",162,269);
}
D19: if(getgmlevel() >= 1){
	Irv("prt_maze01",102,168);
	}else{
	setarray @zeny, 5000;
	Irz("prt_maze01",102,168);
}
D20: if(getgmlevel() >= 1){
	Irv("ice_dun01",157,13);
	}else{
	setarray @zeny, 5000;
	Irz("ice_dun01",157,13);
}
D21: if(getgmlevel() >= 1){
	Irv("juperos_01",53,248);
	}else{
	setarray @zeny, 7000;
	Irz("juperos_01",53,248);
}
D22: if(getgmlevel() >= 1){
	Irv("lou_dun01",218,195);
	}else{
	setarray @zeny, 7000;
	Irz("lou_dun01",218,195);
}
D23: if(getgmlevel() >= 1){
	Irv("mag_dun01",126,69);
	}else{
	setarray @zeny, 5000;
	Irz("mag_dun01",126,69);
}
D24: if(getgmlevel() >= 1){
	Irv("mal_dun01",33,230);
	}else{
	setarray @zeny, 10000;
	Irz("mal_dun01",33,230);
}
D25: if(getgmlevel() >= 1){
	Irv("odin_tem01",96,145);
	}else{
	setarray @zeny, 10000;
	Irz("odin_tem01",96,145);
}
D26: if(getgmlevel() >= 1){
	Irv("orcsdun01",32,169);
	}else{
	setarray @zeny, 2000;
	Irz("orcsdun01",32,169);
}
D27: if(getgmlevel() >= 1){
	Irv("pay_dun00",21,182);
	}else{
	setarray @zeny, 2000;
	Irz("pay_dun00",21,182);
}
D28: if(getgmlevel() >= 1){
	Irv("prt_sewb2",19,19);
	}else{
	setarray @zeny, 2000;
	Irz("prt_sewb2",19,19);
}
D29: if(getgmlevel() >= 1){
	Irv("moc_pryd01",90,103);
	}else{
	setarray @zeny, 5000;
	Irz("moc_pryd01",90,103);
}
D30: if(getgmlevel() >= 1){
	Irv("tha_t01",149,36);
	}else{
	setarray @zeny, 10000;
	Irz("tha_t01",149,36);
}
D31: if(getgmlevel() >= 1){
	Irv("thor_v01",21,227);
	}else{
	setarray @zeny, 10000;
	Irz("thor_v01",21,227);
}
D32: if(getgmlevel() >= 1){
	Irv("xmas_dun02",125,130);
	}else{
	setarray @zeny, 2000;
	Irz("xmas_dun02",125,130);
}
D33: if(getgmlevel() >= 1){
	Irv("um_dun01",153,202);
	}else{
	setarray @zeny, 5000;
	Irz("um_dun01",153,202);
}

//================Funções================
function Irz {
		if(Zeny < @zeny){
			mes "Você não possui "+ @zeny +" suficiente";
			end;
		} else {
		set lastwarp$, getarg(0);
		set lastwarpx, getarg(1,0);
		set lastwarpy, getarg(2,0);
		set Zeny, Zeny - @zeny;
		warp getarg(0),getarg(1,0),getarg(2,0);
		end;
		}
	}
function Irv {
		set lastwarp$, getarg(0);
		set lastwarpx, getarg(1,0);
		set lastwarpy, getarg(2,0);
		warp getarg(0),getarg(1,0),getarg(2,0);
		end;	
	}
}

// --------------------------------------------------
//	Duplicates:
// --------------------------------------------------
alb2trea,57,70,6	duplicate(Warper)	Warper#tre	811
alberta,28,240,4	duplicate(Warper)	Warper#alb	811
aldebaran,145,118,4	duplicate(Warper)	Warper#alde	811
amatsu,203,87,4	duplicate(Warper)	Warper#ama	811
ayothaya,209,169,6	duplicate(Warper)	Warper#ayo	811
comodo,194,158,4	duplicate(Warper)	Warper#com	811
einbech,59,38,6	duplicate(Warper)	Warper#einbe	811
einbroch,69,202,4	duplicate(Warper)	Warper#einbr	811
gef_fild10,71,339,4	duplicate(Warper)	Warper#orc	811
geffen,124,72,4	duplicate(Warper)	Warper#gef	811
glast_01,372,308,4	duplicate(Warper)	Warper#glh	811
gonryun,162,122,4	duplicate(Warper)	Warper#gon	811
hugel,101,151,4	duplicate(Warper)	Warper#hug	811
izlu2dun,110,92,4	duplicate(Warper)	Warper#izd	811
izlude,134,150,4	duplicate(Warper)	Warper#izl	811	//Pre-RE: (132,120)
jawaii,253,138,4	duplicate(Warper)	Warper#jaw	811
lighthalzen,162,102,4	duplicate(Warper)	Warper#lhz	811
louyang,208,103,6	duplicate(Warper)	Warper#lou	811
manuk,274,146,6	duplicate(Warper)	Warper#man	811
mid_camp,216,288,4	duplicate(Warper)	Warper#mid	811
mjolnir_02,85,364,4	duplicate(Warper)	Warper#mjo	811
moc_ruins,64,164,4	duplicate(Warper)	Warper#moc	811
morocc,159,97,4	duplicate(Warper)	Warper#mor	811
moscovia,229,191,4	duplicate(Warper)	Warper#mos	811
nameless_n,259,213,4	duplicate(Warper)	Warper#nam	811
niflheim,205,179,4	duplicate(Warper)	Warper#nif	811
pay_arche,42,134,4	duplicate(Warper)	Warper#arc	811
payon,182,108,4	duplicate(Warper)	Warper#pay	811
//prontera,159,192,4	duplicate(Warper)	Warper#prt	811
prt_fild05,279,223,6	duplicate(Warper)	Warper#cul	811
rachel,135,116,4	duplicate(Warper)	Warper#rac	811
splendide,205,153,4	duplicate(Warper)	Warper#spl	811
thor_camp,249,76,4	duplicate(Warper)	Warper#thor	811
umbala,106,150,3	duplicate(Warper)	Warper#umb	811
veins,214,123,4	duplicate(Warper)	Warper#ve	811
xmas,150,136,6	duplicate(Warper)	Warper#xmas	811
yuno,162,47,4	duplicate(Warper)	Warper#yuno	811

// --------------------------------------------------
//	Duplicates (Renewal):
// --------------------------------------------------
brasilis,201,222,4	duplicate(Warper)	Warper#bra	811
dewata,204,186,6	duplicate(Warper)	Warper#dew	811
dicastes01,194,194,6	duplicate(Warper)	Warper#dic	811
ecl_in01,51,60,4	duplicate(Warper)	Warper#ecl	811
malangdo,134,117,6	duplicate(Warper)	Warper#mal	811
malaya,231,204,4	duplicate(Warper)	Warper#ma	811
mora,57,152,4	duplicate(Warper)	Warper#mora	811

 

Link to comment
Share on other sites
  • 0
Rizta Poring

Rizta

Posted
  • Group:  Members
  • Topic Count:  22
  • Topics Per Day:  0.01
  • Content Count:  109
  • Reputation:   5
  • Joined:  08/12/17
  • Last Seen:  
  • Author
Posted

haha sorry about that... consider me as a newbie and this is (literally) my frist try script after a decade (literally, too).

As i told in topic i used a base on a npc/script that i saw in a server i was played in the last days so i try create something closest.

You said i dont need to setarray everytime, so, how can i do for script recognize different values? Can you give me some tips of how to improve it? I really wanna be better scripting :D

 

Link to comment
Share on other sites
  • 0
sader1992 Eggring

sader1992

Posted
  • Group:  Content Moderator
  • Topic Count:  55
  • Topics Per Day:  0.02
  • Content Count:  1678
  • Reputation:   704
  • Joined:  12/21/14
  • Last Seen:  
Posted (edited)

well

this my first script XD 

 and after days from uploading it thanks to @Stolao did send me an optimize for it to be a 1 line script XD

 

anyway

set .@thing,500;

or 

.@thing = 500;

so the result is 

.@thing = 500

the setarray is a group of items like that

setarray .@things,500,1000,1500;

so the result is 

.@things[0] = 500

.@things[1] = 1000

.@things[2] = 1500

 

so you should edit your script

 

Edited by sader1992
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...