viewing paste Unknown #14416 | 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
function Pick {
    set .@warp_block,@warp_block;
    set @warp_block,0;
    if (getarg(0) == "") {
        set .@select, select(@menu$);
        set .@i, .@select;
        set .@map$, getarg(.@i);
    } else {
        set .@select, select(@menu$);
        set .@i, .@select-getarg(1,0);
        set .@map$, getarg(0)+((.@i<10)?"0":"")+.@i;
    }
    if (.@warp_block & (1<<.@select)) {
        message strcharinfo(0),"This map is not enabled in "+((checkre(0))?"":"Pre-")+"Renewal.";
        close;
    }
    if(BaseLevel < 100){
        if(Zeny < 500) close;
        set Zeny, Zeny - 1500;
    }else if (BaseLevel < 150){
        if(Zeny < 1000) close;
        set Zeny, Zeny - 1000;
    }else{
        if(Zeny < 1500) close;
        set Zeny, Zeny - 1500;
    }
    specialeffect2 EF_READYPORTAL;
    specialeffect2 EF_TELEPORTATION;
    specialeffect2 EF_PORTAL;
    close2;
    warp .@map$,@c[.@i*2],@c[.@i*2+1];
    getmapxy(lastwarp$,lastwarpx,lastwarpy,0);
    deletearray @c[0],getarraysize(@c);
    end;
}
Viewed 649 times, submitted by Normynator.