viewing paste Unknown #9647 | Athena

Posted on the
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
//===== 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;
}
Viewed 1204 times, submitted by Akkarin.