viewing paste Beret's warper | 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
prontera,155,184,5      script  warp#1  100,{
        for ( .@i = 0; .@i < .totalmap; .@i++ )
                .@option$[.@i] = .ctn$[.@i] +" ["+ getmapusers( .ct$[.@i] ) +"]";
        .@s = select ( implode( .@option$, ":" ) ) -1;
        warp .ct$[.@s], .ctx[.@s], .cty[.@s];
        close;
OnInit:
        setarray .ctn$[0],"Prontera","Alberta","Aldebaran","Amatsu";
        setarray .ct$[0],"prontera","alberta","aldebaran","amatsu";
        setarray .ctx[0],       135,      136,        110,     122;
        setarray .cty[0],       151,      102,        111,     111;
        .totalmap = getarraysize(.ct$);
        end;
}
 
 
prontera,159,184,5      script  warp#2  100,{
        for ( .@i = 0; .@i < .totalmap; .@i++ )
                .@menu$ = .@menu$ + .ctn$[.@i] +" ["+ getmapusers( .ct$[.@i] ) +"]:";
        .@s = select ( .@menu$ ) -1;
        warp .ct$[.@s], .ctx[.@s], .cty[.@s];
        close;
OnInit:
        setarray .ctn$[0],"Prontera","Alberta","Aldebaran","Amatsu";
        setarray .ct$[0],"prontera","alberta","aldebaran","amatsu";
        setarray .ctx[0],       135,      136,        110,     122;
        setarray .cty[0],       151,      102,        111,     111;
        .totalmap = getarraysize(.ct$);
        end;
}
Viewed 795 times, submitted by AnnieRuru.