Party Warper Script

[RenLen]

I need a script for party warper,it allows you to warp to anyone in your party only if the player/s is online excluding the non-warpable maps, If there is/are any scripts that is similar to this, please link me to it. Cause i tried searching for it in scripting releases, unfortunately didn't find one. And if there's none, please help me. Thank you.

[goddameit]

http://rathena.org/board/topic/69747-friends-warper/

change

query_sql "SELECT `friend_account` FROM `friends` WHERE `char_id` = "+getcharid(0)+"",.@aid;

to

getpartymember getcharid(1),2;
set .@num,$@partymembercount;
copyarray .@aid[0],$@partymemberaid[0],.@num;

map limit :http://rathena.org/board/topic/69747-friends-warper/#entry134223

Edited October 16, 2012 by goddameit

[RenLen]

prontera,150,180,4 script Test 100,{
deletearray .@aid[0],128;
deletearray @aid[0],128;
set @j,0;
set @select$,"";
getpartymember getcharid(1),2;
set .@num,$@partymembercount;
copyarray .@aid[0],$@partymemberaid[0],.@num;
set .@num,getarraysize(.@aid);
for(set .@i,0;.@i<.@num;set .@i,.@i+1)
if(isloggedin(.@aid[.@i]))
{
set @aid[@j],.@aid[.@i];
set @j,@j+1;
set @select$,@select$+":"+rid2name(.@aid[.@i]);
}
set @menu,select(@select$)-2;
if(isloggedin(@aid[@menu]))
{
getmapxy(@m$,@x,@y,0,rid2name(@aid[@menu]));
 if( getmapflag(@m$,mf_pvp) || @m$ == "mapname" || @m$ == "mapname" ){
  mes "You cant warp to his map now.";
 }else{
  warp @m$,@x,@y;
 }
close;
}

Thank you!

Is this correct now?

Edited October 18, 2012 by iamsoap