autowarp auto save

[VladimirCastro]

new_1-1,57,116,4	script	Hein	90,{

set .@n$, "[Seyra]";
setarray .@rwd[0],12211,10,12263,10,12210,5,7621,10; // Rewards: <item id>,<item amount>

query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id`=" + getcharid(3) + "", .@lip$);

if ( getd("$" + .@lip$ + "_NG") > 0 || #NewbieGift > 0)
{
mes .@n$;
mes "I'm sorry, the rewards are exclusively for new players.";
close;
}

mes .@n$;
mes "Welcome! Here are some free gifts"; 
mes "for newcomers:";

for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )
mes .@rwd[.@i+1] + " x " + getitemname(.@rwd[.@i]);

close2;
set #NewbieGift, 1;
setd "$" + .@lip$ + "_NG", getd("$" + .@lip$ + "_NG") + 1;

for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )
getitem .@rwd[.@i], .@rwd[.@i+1];

end;

OnInit:

waitingroom "Newbie Gift!",0;
end;

}

how can i add auto warp to prontera and auto save to prontera script is located in new_1-1

[EL Dragon]

new_1-1,57,116,4 script Hein 90,{

set .@n$, "[Seyra]";

setarray .@rwd[0],12211,10,12263,10,12210,5,7621,10; // Rewards: <item id>,<item amount>

query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id`=" + getcharid(3) + "", .@lip$);

if ( getd("$" + .@lip$ + "_NG") > 0 || #NewbieGift > 0)

{

mes .@n$;

mes "I'm sorry, the rewards are exclusively for new players.";

close;

}

mes .@n$;

mes "Welcome! Here are some free gifts";

mes "for newcomers:";

for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )

mes .@rwd[.@i+1] + " x " + getitemname(.@rwd[.@i]);

close2;

set #NewbieGift, 1;

setd "$" + .@lip$ + "_NG", getd("$" + .@lip$ + "_NG") + 1;

for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )

getitem .@rwd[.@i], .@rwd[.@i+1];

save("prontera", 155, 181);

warp "prontera", 155, 181;

end;

OnInit:

waitingroom "Newbie Gift!",0;

end;

}

[VladimirCastro]

oh btw i added this one but it doesnt warp

 

new_1-1,57,116,4 script Hein 90,{


set .@n$, "[Seyra]";
setarray .@rwd[0],12211,10,12263,10,12210,5,7621,10; // Rewards: <item id>,<item amount>


query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id`=" + getcharid(3) + "", .@lip$);


if ( getd("$" + .@lip$ + "_NG") > 0 || #NewbieGift > 0)
{
mes .@n$;
mes "I'm sorry, the rewards are exclusively for new players.";
close;
warp "prontera", 156, 191;
}

because this script is 1 per account only so if they create new char they willl got stuck so i want them to get warped to prontera too