Item Shower Command please?

Eros · March 18, 2014

does anyone have this command ?

Psy Ops · November 20, 2018

How do i set this for Event gms with group 4 as their label?

shironaito22 · April 16, 2018

On 3/18/2014 at 11:45 PM, Skorm said:
 
//Version : (2011/5/27-22:46)

- script fi -1,{

OnWhisperGlobal:

if(!getgmlevel())

end;

if(@whispervar0$=="all")

callfunc "itemforall",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$);

if(@whispervar0$=="map")

callfunc "itemforallmap",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$),@whispervar3$;

end;

}

function script itemforallmap {

getmapxy(.@N$,.@B,.@C,0);

if( getitemname(getarg(1)) == "null" ){ announce "error id 1-1",bc_self,0x00FFFF; end; }

if( getarg(1) <= 0 ){ announce "error id 2-1",bc_self,0x00FFFF; end; }

while( .@V < $PlayerNumber ){

set .@V,.@V+1;

getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));

if( .@N$ == .@N123$ && getarg(3) == "" )||( getarg(3) != "" && getarg(3) == .@N123$ ){

message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";

//getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);

//makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;

for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;

}

}

return;

}

function script itemforall {

if( getitemname(getarg(1)) == "null" ){ announce "error id 1-2",bc_self,0x00FFFF; end; }

if( getarg(1) <= 0 ){ announce "error id 2-2",bc_self,0x00FFFF; end; }

while( .@V < $PlayerNumber ){

set .@V,.@V+1;

if( isloggedin(getd("$RecordAID"+.@V)) ){

message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";

getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));

//makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;

for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;

//getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);

}

}

return;

}

- script BlackHoleEvent -1,{

OnPCLoginEvent:

setd "$RecordAID"+set($PlayerNumber,$PlayerNumber+1),getcharid(3);

end;

OnInit:

OnTimer5000:

initnpctimer;

for(set .@i,1;.@i<=$PlayerNumber;set .@i,.@i+1)

{

if(!isloggedin(getd("$RecordAID"+.@i)))

{

if(!getd("$RecordAID"+.@i))

{

set $PlayerNumber,0;

break;

}

setd "$RecordAID"+.@i,getd("$RecordAID"+(.@i+1));

setd "$RecordAID"+(.@i+1),0;

set .@i,.@i-1;

}

}

end;

}

Hi sir @Skorm can you teach me how to make it in random Cell drops ??? coz its just like @dropall command .. or any one can help me ,thanks

Psy Ops · August 18, 2018

On 3/21/2014 at 2:02 AM, sandbox 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
		set .map$, "prontera"; // map to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower",40,40;
		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;
}

Try that

Thank you for this script. May i ask how i can set it for Event GM group ID 4

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

Please also how to add the 3rd item to the shower thank you in advance!

thank you!

Edited August 18, 2018 by Joseph Andrew Palma

Skorm · March 18, 2014

//Version : (2011/5/27-22:46)

- script fi -1,{
OnWhisperGlobal:
if(!getgmlevel())
end;
if(@whispervar0$=="all")
callfunc "itemforall",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$);
if(@whispervar0$=="map")
callfunc "itemforallmap",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$),@whispervar3$;
end;
}

function script itemforallmap {
getmapxy(.@N$,.@B,.@C,0);
if( getitemname(getarg(1)) == "null" ){ announce "error id 1-1",bc_self,0x00FFFF; end; }
if( getarg(1) <= 0 ){ announce "error id 2-1",bc_self,0x00FFFF; end; }
while( .@V < $PlayerNumber ){
set .@V,.@V+1;
getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));
if( .@N$ == .@N123$ && getarg(3) == "" )||( getarg(3) != "" && getarg(3) == .@N123$ ){
message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";
//getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);
//makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;
for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;
}
}
return;
}

function script itemforall {
if( getitemname(getarg(1)) == "null" ){ announce "error id 1-2",bc_self,0x00FFFF; end; }
if( getarg(1) <= 0 ){ announce "error id 2-2",bc_self,0x00FFFF; end; }
while( .@V < $PlayerNumber ){
set .@V,.@V+1;
if( isloggedin(getd("$RecordAID"+.@V)) ){
message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";
getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));
//makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;
for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;
//getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);
}
}
return;
}

- script BlackHoleEvent -1,{
OnPCLoginEvent:
setd "$RecordAID"+set($PlayerNumber,$PlayerNumber+1),getcharid(3);
end;
OnInit:
OnTimer5000:
initnpctimer;
for(set .@i,1;.@i<=$PlayerNumber;set .@i,.@i+1)
{
if(!isloggedin(getd("$RecordAID"+.@i)))
{
if(!getd("$RecordAID"+.@i))
{
set $PlayerNumber,0;
break;
}
setd "$RecordAID"+.@i,getd("$RecordAID"+(.@i+1));
setd "$RecordAID"+(.@i+1),0;
set .@i,.@i-1;
}
}
end;
}

Edited November 30, 2018 by Skorm

Eros · March 18, 2014

how can i use that?

Skorm · March 19, 2014

NPC:fi all#<itemid>#<amount>

NPC:fi map#<itemid>#<amount>#<map>

Old school style wahahaha...

Patskie · March 19, 2014

-	script	Sample	-1,{
	OnInit:
		set .amount, 40; // amount of item to shower
		set .item_id, 7227; // 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));
			makeitem .item_id,1,.map$,.@x,.@y;
			set .count, .count + 1;
		}
		set .count, 0;
		end;
}

@itemshower to trigger the command

Eros · March 20, 2014

Thx sir pat but how can i make it i want 2 items to shower

sandbox · March 21, 2014

Try

-	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;
}

Bringer · March 21, 2014

Try

-	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;
}

where i can put this script sorry newbie

Patskie · March 21, 2014

npc/custom

Bringer · March 21, 2014

npc/custom

thanks Sir Patskie

can you help me about this script

http://rathena.org/board/topic/93601-monster-hunt-script-help-please/

Eros · March 21, 2014

Help normal player can use @itemshower

sandbox · March 21, 2014

-	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",40,40;
		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;
}

Try that

Edited April 8, 2014 by sandbox
Credits to Patskie

maynard · April 8, 2014

Can you edit this script @bindatcmd? I will input the item and amount and map then it will respawn at a size of full/wide screen. I mean not the whole map.

Edited April 8, 2014 by maynard

Gidz Cross · April 23, 2014

Can you edit this script @bindatcmd? I will input the item and amount and map then it will respawn at a size of full/wide screen. I mean not the whole map.

I second the motion.

Sign In

Item Shower Command please?

Question

Eros

16 answers to this question

Recommended Posts

Psy Ops

shironaito22

Psy Ops

Skorm

Eros

Skorm

Patskie

Eros

sandbox

Bringer

Patskie

Bringer

Eros

sandbox

maynard

Gidz Cross

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account