viewing paste warp to leader | Text

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 44 45 46
 
 
prontera,155,181,5      script  Sample#pt_warp  757,{
       
        .@party_id = getcharid(1);
       
        if ( !.@party_id ) .@fail++;
       
        if ( .zeny ) {
                mes F_InsertComma( .zeny )+" Zeny";
                if ( Zeny < .zeny )
                        .@fail++;
        }
       
        if ( .item_size )
                for ( .@i = 0; .@i < .item_size; .@i += 2 ) {
                        mes getitemname( .item[.@i] )+" x "+F_InsertComma( .item[.@i+1] );
                        if ( countitem( .item[.@i] ) < .item[.@i+1] )
                                .@fail++;
                }
       
        if ( !.@fail ) {
                .@leader$ = rid2name( getpartyleader( .@party_id,1 ) );
                if ( !getmapxy( .@map$,.@x,.@y,0,.@leader$ ) && strcharinfo(0) != .@leader$ ) {
                        if ( getmapflag(.@map$,mf_nowarp ) )
                                .@fail++;
               
                        if ( !.@fail ) {
                                for ( .@i = 0; .@i < .item_size; .@i += 2 )
                                        delitem .item[.@i],.item[.@i+1];
                                Zeny -= .zeny;
                                warp .@map$,.@x,.y;
                        }
                }
        }
        close;
       
        OnInit:
                .zeny = 5000;
                setarray .item,909,1;
                .item_size = getarraysize( .item ) - 1;
                end;
}
 
 
 
Viewed 1074 times, submitted by Emistry.