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;
}