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 363 times, submitted by Normynator.