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 681 times, submitted by Emistry.