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 1174 times, submitted by AnnieRuru.