viewing paste @cloneequip | Text

Posted on the | Last edited on
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
-   script  clone_equip -1,{
OnInit:
    bindatcmd "cloneequip",strnpcinfo(3)+"::OnAtcommand",99,99;
    end;
OnAtcommand:
    .@aid = getcharid( 3,.@atcmd_parameters$[0] );
    if( .@aid ){
        .@origin = getcharid(3);
        attachrid( .@aid );
        getinventorylist;
        while( .@i < @inventorylist_count ){
            if( @inventorylist_equip[.@i] ){
                .@equip[.@size] = @inventorylist_id[.@i];
                .@identify[.@size] = @inventorylist_identify[.@i];
                .@refine[.@size] = @inventorylist_refine[.@i];
                .@attribute[.@size] = @inventorylist_attribute[.@i];
                .@card1[.@size] = @inventorylist_card1[.@i];
                .@card2[.@size] = @inventorylist_card2[.@i];
                .@card3[.@size] = @inventorylist_card3[.@i];
                .@card4[.@size] = @inventorylist_card4[.@i];
                .@size++;
            }
            .@i++;
        }
        attachrid( .@origin );
        // clearitem;
        for( .@i = 0; .@i < .@size; .@i++ ){
            getitem2 .@equip[.@i],1,.@identify[.@i],.@refine[.@i],.@attribute[.@i],.@card1[.@i],.@card2[.@i],.@card3[.@i],.@card4[.@i];
            equip .@equip[.@i];
        }
        dispbottom "Cloned "+.@atcmd_parameters$[0]+" equipments.";
    }
    end;
}
 
Viewed 1258 times, submitted by Emistry.