fRO_french_translation_rAthena/doc/sample/npc_test_array.txt

//===== rAthena Script =======================================
//= Sample: Array Test
//===== By: ==================================================
//= rAthena Dev Team
//===== Last Updated: ========================================
//= 20090206
//===== Description: ========================================= 
//= Demonstrates array commands.
//============================================================

prontera,164,190,1	script	Array Test	112,{
	set @hoge[0],1;
	set @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;
}