path: root/doc/sample/npc_test_array.txt

//===== Hercules Script =======================================
//= Sample: Array Test
//===== By: ==================================================
//= Hercules Dev Team
//===== Current Version: =====================================
//= 20131225
//===== Description: ========================================= 
//= Demonstrates array commands.
//============================================================

prontera,164,190,1	script	Array Test	4_F_KAFRA6,{
	.@hoge[0] = 1;
	.@hoge[1] = 5;
	mes "Please enter a value for hoge[2].";
	next;
	input .@hoge[2];
	mes "hoge   => " + .@hoge;
	mes "hoge[0]=> " + .@hoge[0];
	mes "hoge[1]=> " + .@hoge[1];
	mes "hoge[2]=> " + .@hoge[2];
	next;
	setarray .@hoge[1],2,3,4,5;
	mes "true: 5,1,2,3,4";
	mes "hoge size = "+ getarraysize(.@hoge);
	mes "hoge[0]=> " + .@hoge[0];
	mes "hoge[1]=> " + .@hoge[1];
	mes "hoge[2]=> " + .@hoge[2];
	mes "hoge[3]=> " + .@hoge[3];
	next;
	copyarray .@fuga[0],.@hoge[2],2;
	mes "true: 3,4,0";
	mes "fuga[0]=> " + .@fuga[0];
	mes "fuga[1]=> " + .@fuga[1];
	mes "fuga[2]=> " + .@fuga[2];
	next;
	deletearray .@hoge[1],2;
	mes "true: 1,4,5,0";
	mes "hoge[0]=> " + .@hoge[0];
	mes "hoge[1]=> " + .@hoge[1];
	mes "hoge[2]=> " + .@hoge[2];
	mes "hoge[3]=> " + .@hoge[3];
	close;
}