1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
//===== 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;
}
|
