R> bindatcmd

[PHiLiP]

I am Requesting for a bindatcmd

@alootnoitem <id#> <mob/#>

this will aloot all the items drop by the <mob> except the <id#>

Thanks in advance!

[AnnieRuru]

what what what .... OMFG forgotten about *getmobdrops

rep up

and move back to script request ( shame on myself ... )

-    script    test123    -1,{
OnInit:
   bindatcmd "alootnoitem", strnpcinfo(0)+"::OnAtcommand";
   end;
OnAtcommand:
   .@nodropitemid = atoi( .@atcmd_parameters$[0] );
   .@mob_id = atoi( .@atcmd_parameters$[1] );
   if ( !.@nodropitemid || !.@mob_id ) {
       message strcharinfo(0), "@alootnoitem <Item ID> <Mob ID>";
       end;
   }
   if ( getitemname( .@nodropitemid ) == "null" ) {
       message strcharinfo(0), "@alootnoitem -> Invalid Item ID";
       end;
   }
   if ( !strmobinfo( 3, .@mob_id ) ) {
       message strcharinfo(0), "@alootnoitem -> Invalid Mob ID";
       end;
   }
   atcommand "@alootid reset"; // reset
   getmobdrops .@mob_id;
   for ( .@i = 0; .@i < $@mobdrop_count; .@i++ )
       if ( .@nodropitemid != $@mobdrop_item[.@i] )
           atcommand "@alootid +"+ $@mobdrop_item[.@i];
//    atcommand "@alootid"; //show list <-- its already display in the list
   end;
}

[AnnieRuru]

there is no script command can control ( manually remove out single ) item on the floor

so move to source modification request

[PHiLiP]

Thanks! you already move it.

[QQfoolsorellina]

-    script    test123    -1,{

OnInit:
   bindatcmd "alootnoitem",strnpcinfo(3)+"::OnAtcommand";
   end;
OnAtcommand:
   set .@mobid,atoi(.@atcmd_parameters$[1]);
   set .@nodropitemid,atoi(.@atcmd_parameters$[0]);
   if(.@mobid <=0 || .@nodropitemid <=0)end;
   atcommand "@alootid reset";
   set $@MobDrop_item,0;
   getmobdrops(.@mobid);
   set .@size,getarraysize($@MobDrop_item);
   copyarray .@MDIA[0],$@MobDrop_item[0],.@size;
   for(;.@i<.@size;.@i++){
        if(.@nodropitemid != .@MDIA[.@i])       
           atcommand "@alootid +"+.@MDIA[.@i];
   }
   atcommand "@alootid"; //show list

end;

}