- script kdjshfksdjfh -1,{
OnInit:
bindatcmd "identifyall", strnpcinfo(0)+"::Onaaa", 99, 100;
bindatcmd "clonestats", strnpcinfo(0)+"::Onbbb", 99, 100;
bindatcmd "cloneequip", strnpcinfo(0)+"::Onccc", 99, 100;
end;
Onaaa:
getinventorylist;
for ( .@i = 0; .@i < @inventorylist_count; .@i++ ) {
if ( !@inventorylist_identify[.@i] ) {
delitem2 @inventorylist_id[.@i], 1,0,0,0,0,0,0,0;
getitem @inventorylist_id[.@i], 1;
.@c++;
}
}
dispbottom .@c +" items identified";
end;
Onbbb:
if ( !.@atcmd_numparameters ) {
dispbottom "you need to enter a player name";
end;
}
.@aid = getcharid( 3, .@atcmd_parameters$ );
if ( !.@aid ) {
dispbottom "player not found or not online";
end;
}
.@origin = getcharid(3);
attachrid .@aid;
.@stats = StatusPoint;
.@level = BaseLevel;
.@job = Class;
.@str = readparam(bStr);
.@agi = readparam(bAgi);
.@vit = readparam(bVit);
.@int = readparam(bInt);
.@dex = readparam(bDex);
.@luk = readparam(bLuk);
attachrid .@origin;
jobchange .@job;
BaseLevel = .@level;
resetstatus;
statusup2 bStr, .@str -1;
statusup2 bAgi, .@agi -1;
statusup2 bVit, .@vit -1;
statusup2 bInt, .@int -1;
statusup2 bDex, .@dex -1;
statusup2 bLuk, .@luk -1;
StatusPoint = .@stats;
end;
Onccc:
if ( !.@atcmd_numparameters ) {
dispbottom "you need to enter a player name";
end;
}
.@aid = getcharid( 3, .@atcmd_parameters$ );
if ( !.@aid ) {
dispbottom "player not found or not online";
end;
}
for ( .@i = EQI_HEAD_TOP; .@i <= EQI_HEAD_LOW; .@i++ )
unequip .@i;
.@origin = getcharid(3);
attachrid .@aid;
for ( .@i = EQI_HEAD_TOP; .@i <= EQI_HEAD_LOW; .@i++ ) {
if ( getequipisequiped(.@i) ) {
.@itemid[.@c] = getequipid(.@i);
.@refine[.@c] = getequiprefinerycnt(.@i);
.@card0[.@c] = getequipcardid( .@i, 0 );
.@card1[.@c] = getequipcardid( .@i, 1 );
.@card2[.@c] = getequipcardid( .@i, 2 );
.@card3[.@c] = getequipcardid( .@i, 3 );
.@c++;
}
}
attachrid .@origin;
for ( .@i = 0; .@i < .@c; .@i++ ) {
getitem2 .@itemid[.@i], 1, 1, .@refine[.@i], 0, .@card0[.@i], .@card1[.@i], .@card2[.@i], .@card3[.@i];
equip .@itemid[.@i];
}
end;
}
