item shower

[behemothcze]

-	script	Sample	-1,{
	OnInit:
		set .amount, 40; // amount of item to shower
		set .item_id, 7227; // item id to shower
		set .item_id2, 1234; // next item id to shower
		set .map$, "prontera"; // map to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower";
		end;
	OnShower:
		while ( .count < .amount ) {
			do {
				.@x = rand(1,500);
				.@y = rand(1,500);
			} while (!checkcell(.map$,.@x,.@y,cell_chkpass));
			.@var = rand(2);
			makeitem .@var?.item_id:.item_id2,1,.map$,.@x,.@y;
			set .count, .count + 1;
		}
		set .count, 0;
		end;
}

 

 

can anyone change this to area only where i use @itemshower instead of random area thanks.

[Z3R0]

-	script	Sample	-1,{
	OnInit:
		set .amount, 40; // amount of item to shower
		set .item_id, 7227; // item id to shower
		set .item_id2, 1234; // next item id to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower";
		end;
	OnShower:

		getmapxy [email protected]$, [email protected], [email protected], UNITTYPE_PC;

		while ( .count < .amount ) {
			do {
				[email protected]_diff = [email protected] + rand(1,5);
				[email protected]_diff = [email protected] + rand(1,5);
			} while (!checkcell([email protected]$,[email protected]_diff,[email protected]_diff,cell_chkpass));
			[email protected] = rand(2);
			makeitem [email protected]?.item_id:.item_id2,1,[email protected]$,[email protected]_diff,[email protected]_diff;
			set .count, .count + 1;
		}
		set .count, 0;
		end;

This will make the command @itemshow  ... start with the characters position, then it will consider a differential between 1 and 5 from their X,Y coordinates to "shower" around them...

 

[Z3R0]

-	script	Sample	-1,{
	OnInit:
		set .amount, 40; // amount of item to shower
		set .item_id, 7227; // item id to shower
		set .item_id2, 1234; // next item id to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower";
		end;
	OnShower:

		getmapxy [email protected]$, [email protected], [email protected], UNITTYPE_PC;

		while ( .count < .amount ) {
			do {
				[email protected]_diff = [email protected] + rand(1,5);
				[email protected]_diff = [email protected] + rand(1,5);
			} while (!checkcell([email protected]$,[email protected]_diff,[email protected]_diff,cell_chkpass));
			[email protected] = rand(2);
			makeitem [email protected]?.item_id:.item_id2,1,.map$,[email protected],[email protected];
			set .count, .count + 1;
		}
		set .count, 0;
		end;

This will make the command @itemshow  ... start with the characters position, then it will consider a differential between 1 and 5 from their X,Y coordinates to "shower" around them...

Edited April 24, 2018 by Z3R0

[behemothcze]

19 hours ago, Z3R0 said:

-	script	Sample	-1,{
	OnInit:
		set .amount, 40; // amount of item to shower
		set .item_id, 7227; // item id to shower
		set .item_id2, 1234; // next item id to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower";
		end;
	OnShower:

		getmapxy [email protected]$, [email protected], [email protected], UNITTYPE_PC;

		while ( .count < .amount ) {
			do {
				[email protected]_diff = [email protected] + rand(1,5);
				[email protected]_diff = [email protected] + rand(1,5);
			} while (!checkcell([email protected]$,[email protected]_diff,[email protected]_diff,cell_chkpass));
			[email protected] = rand(2);
			makeitem [email protected]?.item_id:.item_id2,1,.map$,[email protected],[email protected];
			set .count, .count + 1;
		}
		set .count, 0;
		end;

This will make the command @itemshow  ... start with the characters position, then it will consider a differential between 1 and 5 from their X,Y coordinates to "shower" around them...

where can i edit the character position ?

[Stolao]

18 hours ago, behemothcze said:

where can i edit the character position ?

The character is the one who types it.

[behemothcze]

6 minutes ago, Stolao said:

The character is the one who types it.

but it doesnt work.

[AnnieRuru]

why doesn't work ?

maybe change the (1,5) into (-5,5) will make it spawn around the player instead of top right position

and sometimes can infinite loop ... adding freeloop works

[behemothcze]

2 hours ago, AnnieRuru said:

why doesn't work ?

maybe change the (1,5) into (-5,5) will make it spawn around the player instead of top right position

and sometimes can infinite loop ... adding freeloop works

igot this debug error everytime i use @itemshower

[Z3R0]

Use the 2nd one I wrote, not the first... the first had a glitch in it... check all map variables.. make sure they match :D

[behemothcze]

3 hours ago, Z3R0 said:

Use the 2nd one I wrote, not the first... the first had a glitch in it... check all map variables.. make sure they match

+1 thanks mate its working  hope you can teach me how to put some more items on it, just want to make it 4 and if its posible to control it drop
i mean for item 1 =20pcs item2=20pcs item3=30pcs item4=30pcs.

 

sorry for my bad english

[Z3R0]

Sure I can rewrite it tonight and put some comments around the code

[Z3R0]

fyi, I think I missed a closing } at the bottom (but if I edit it, it screws up the code...)

[behemothcze]

On 4/27/2018 at 10:23 PM, Z3R0 said:

fyi, I think I missed a closing } at the bottom (but if I edit it, it screws up the code...)

hello sir, can you edit it command where only gm can used it. even a normal player can use that shower 

[llchrisll]

Just add in bindatcmd after "OnShower" The levels, look up doc/script_commands.txt about it.

 

[Z3R0]

after OnShower: 

OnShower:
if (!getgmlevel() < 99) { end; }

 

Edited April 30, 2018 by Z3R0

[AnnieRuru]

bindatcmd "itemshower",strnpcinfo(3)+"::OnShower", 99, 100;

doc
 

Quote

*bindatcmd "<command>","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>};

This command will bind a NPC event label to an atcommand. Upon execution of the
atcommand, the user will invoke the NPC event label. Each atcommand is only allowed
one binding. If you rebind, it will override the original binding.
Note: The default level for atcommand is 0 while the default level for charcommand is 100.

 

Edited April 30, 2018 by AnnieRuru

[behemothcze]

On 5/1/2018 at 12:22 AM, AnnieRuru said:

bindatcmd "itemshower",strnpcinfo(3)+"::OnShower", 99, 100;

doc
 

 

thanks