@warp with 1,000z Charge

[trizzy]

Can someone fix this script? there's only 2 problem in this script.

1st. it keep charging me after i used @warp.

2nd. @warp is not working.

-	script	atcmd_sample_inject	-1,{
	OnInit:
		bindatcmd("warp", "atcmd_sample_inject::OnAtCmd");
		end;
		
	OnAtCmd:
		if(Zeny >= 1000) {
			set Zeny, Zeny - 1000;
			useatcmd "@warp " + .@atcmd_parameters$[0] + " " + .@atcmd_parameters$[1] + " " + .@atcmd_parameters$[2];
		} else {
			dispbottom "Sorry... you need at least 1000z to use this service";
		}
		end;
}

[Emistry]

useatcmd "@warp " + .@atcmd_parameters$[0] + " " + .@atcmd_parameters$[1] + " " + .@atcmd_parameters$[2];

change to

warp .@atcmd_parameters$[0],atoi( .@atcmd_parameters$[1] ),atoi( .@atcmd_parameters$[2] );

[trizzy]

useatcmd "@warp " + .@atcmd_parameters$[0] + " " + .@atcmd_parameters$[1] + " " + .@atcmd_parameters$[2];

change to

warp .@atcmd_parameters$[0],atoi( .@atcmd_parameters$[1] ),atoi( .@atcmd_parameters$[2] );

Thank you very much.