R>Duplicate Equip Item Like refine menu

[sumano]

hi again.

 

possible to make like that by @command like here http://rathena.org/board/topic/95438-rduplicate-all-equip-item-1-click/

 

but i need copy 1 item in my select

 

thanks

[Emistry]

try

http://upaste.me/r/8da352

[sumano]

it freeze again sir.

 

i don't know why

no message anymore in console no error too

[Emistry]

change end to close

[sumano]

- script copyitem -1,{

OnInit:

bindatcmd "copyitem",strnpcinfo(3)+"::OnAtcommand",1,1;

end;

OnAtcommand:

.@aid = getcharid( 3,.@atcmd_parameters$[0] );

if( .@aid ){

.@origin = getcharid(3);

.@i = select( "Head Top","Armor","Hand L","Hand R","Garment","Shoe","Acc L","Acc R","Head Mid","Low" );

attachrid( .@aid );

.@equip = getequipid( .@i );

if( .@equip != -1 ){

.@refine = getequiprefinerycnt( .@i );

.@slot = getequipcardcnt( .@i );

for( .@x = 0; .@x < .@slot; .@x++ )

.@card[.@x] = getequipcardid( .@i,.@x );

}

attachrid( .@origin );

if( .@equip != -1 ){

getitem2 .@equip,1,1,.@refine,0,.@card[0],.@card[1],.@card[2],.@card[3];

equip .@equip[.@i];

dispbottom "Cloned "+.@atcmd_parameters$[0]+" equipments.";

}

else{

dispbottom "Nothing to clone on that equipment slot";

}

}

close;

}

 

 

freeze again sir