bindatcmd Help

[EL Dragon]

this is the script

-	script	Haze2	-1,{
Onitemrain:
	.@itemid = atoi( .@atcmd_parameters$ );
	if ( getitemname( .@itemid ) == "null" ) {
		message strcharinfo(0), "Invalid Item ID";
		end;
	}
	.@area = getbattleflag("area_size");
	getmapxy .@map$, .@x, .@y, 0;
	while ( .@i < 100 ) {
		makeitem .@itemid, 1, .@map$, .@x + rand( -.@area, .@area ), .@y + rand( -.@area, .@area );
		.@i++;
	}
	end;
OnInit:
	bindatcmd "itemrain", strnpcinfo(0) +"::Onitemrain", 60,100;
	end;
}

So who do I use it @itemrain ID  but I will gladly   @itemrain ID  item number 1-100 

[Capuche]

- script Haze2 -1,{

Onitemrain:

.@itemid = atoi( .@atcmd_parameters$ );

.@amount = atoi( .@atcmd_parameters$[1] );

if ( getitemname( .@itemid ) == "null" ) {

message strcharinfo(0), "Invalid Item ID";

end;

}

if ( .@amount <= 0 || .@amount > 100 )

.@amount = 100;

.@area = getbattleflag("area_size");

getmapxy .@map$, .@x, .@y, 0;

while ( .@i < .@amount ) {

do {

.@dx = rand( -.@area, .@area );

.@dy = rand( -.@area, .@area );

} while( !checkcell( .@map$,(.@x+.@dx),(.@y+.@dy),cell_chkpass ) );

makeitem .@itemid, 1, .@map$, .@x + .@dx, .@y + dy;

.@i++;

}

end;

OnInit:

bindatcmd "itemrain", strnpcinfo(0) +"::Onitemrain", 60,100;

end;

}

[EL Dragon]

but it does drop the item in a line , not random 

 

[Capuche]

there is a mistake

makeitem .@itemid, 1, .@map$, .@x + .@dx, .@y + dy;

should be

makeitem .@itemid, 1, .@map$, .@x + .@dx, .@y + .@dy;

[EL Dragon]

thx Capuche for the help