-	script	sample_castle_swap	-1,{

OnInit:
	bindatcmd "swapcastle",strnpcinfo(3)+"::OnAtcommand";
	end;

OnAtcommand:
	if ( .@atcmd_numparameters != 2 ) {
		dispbottom "Enter 2 caslte map.";
		dispbottom .@atcmd_command$+" <map1> <map2>";
	}
	else if ( getmapflag( .@atcmd_parameters$[0],mf_castle_gvg ) ) {
		dispbottom "Map : "+.@atcmd_parameters$[0]+" isnt a castle.";
	}
	else if ( getmapflag( .@atcmd_parameters$[1],mf_castle_gvg ) ) {
		dispbottom "Map : "+.@atcmd_parameters$[1]+" isnt a castle.";
	}
	else {
		callsub( OnSwap,.@atcmd_parameters$[0],.@atcmd_parameters$[1] );
	}
	end;
	
OnSwap:
	.@castle_1$ = getarg(0);
	.@castle_2$ = getarg(2);
	
	for ( .@i = 1; .@i <= 17; .@i++ ) {
		.@arg_1[.@i] = getcastledata( .@castle_1$,.@i );
		.@arg_2[.@i] = getcastledata( .@castle_2$,.@i );
		
		setcastledata( .@castle_1$,.@i,.@arg_2[.@i] );
		setcastledata( .@castle_2$,.@i,.@arg_1[.@i] );
	}
	dispbottom "Done swap to castle ( "+.@castle_1$+" <-> "+.@castle_2$+" ).";
	end;
}
}