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