Warp Scroll

[nunesb]

So, could someone help me with a scroll that when be used appear a

bar and you can write one map coordinates and you will be teleported to this place, like @warp but as an item ?

Edited December 26, 2012 by nunesb

[Euphy]

    message strcharinfo(0),"Teleport to...";
   dispbottom "map,x,y";
   input .@i$;
   explode(.@j$,.@i$,",");
   if (getmapusers(.@j$[0]) >= 0) {
       delitem your_item,1; // Type item ID here
       warp .@j$[0], atoi(.@j$[1]), atoi(.@j$[2]);
   } else
       message strcharinfo(0),"Invalid map.";
   end;

Item type 11.

[nunesb]

what command I use to call this scrip, sc_start?

Could you tell me how to do it? or a page that teaches, I not found..

[Euphy]

That's an item script. Either condense it into 1 line or make it a function.

Custom_Items

[nunesb]

I did it

function	script	scrollwarpzz	{
message strcharinfo(0),"Teleport to...";
dispbottom "map,x,y";
input .@i$;
explode(.@j$,.@i$,",");
if (getmapusers(.@j$[0]) >= 0) {
	delitem your_item,12219;
	warp .@j$[0], atoi(.@j$[1]), atoi(.@j$[2]);
} else
	message strcharinfo(0),"Invalid map.";
end;
}

and in the script item:

{ callfunc "scrollwarpzz"; }

item type 11,

why do not works ?

Edited December 26, 2012 by nunesb

[Euphy]

delitem 12219,1;

Other than that, works for me.

[nunesb]

works now

thanks

Edited December 26, 2012 by nunesb

[AnnieRuru]

http://www.eathena.ws/board/index.php?s=&showtopic=238404&view=findpost&p=1500001

updating this script

function    script    tele_device    {
if ( getmapflag( strcharinfo(3), mf_nowarp ) ) {
	dispbottom "Teleport Device : you can't use this device on this map";
	end;
}
if ( input( .@input$, 4, 21 ) ) {
	dispbottom "Teleport Device : invalid string length";
	end;
}
if ( sscanf( .@input$, "%15s %d %d", .@map$, .@x, .@y ) < 3 ) {
	if ( sscanf( .@input$, "%15[^,],%d,%d", .@map$, .@x, .@y ) < 1 ) {
		dispbottom "Teleport Device : invalid format. Usage: <mapname> <x> <y>";
		end;
	}
}
if ( getmapusers( .@map$ ) == -1 ) {
	dispbottom "Teleport Device : no such map";
	end;
}
if ( getmapflag( .@map$, mf_nowarpto ) ) {
	dispbottom "Teleport Device : you can't warp to this map";
	end;
}
if ( ( .@x || .@y ) && checkcell( .@map$, .@x, .@y, cell_chknopass ) ) {
	dispbottom "Teleport Device : invalid coordinate";
	end;
}
//	delitem 10000,1; // uncomment this for limited use
warp .@map$, .@x, .@y;
end;
}

but this sscanf post out some !@# error when user input invalid format <.<

dunno but somehow I want to file a report for it

http://rathena.org/board/tracker/issue-7059-sscanf-script-command-display-error-in-map-server/

EDIT: and I want to edit this script somemore =/

done ...

EDITED again <.< this time follows the atcommand.c

Edited December 30, 2012 by AnnieRuru