Jump to content
  • 0

Item Shower Command please?


Eros

Question


  • Group:  Members
  • Topic Count:  76
  • Topics Per Day:  0.02
  • Content Count:  202
  • Reputation:   2
  • Joined:  07/09/12
  • Last Seen:  

does anyone have this command ?

Link to comment
Share on other sites

16 answers to this question

Recommended Posts

  • 0

  • Group:  Members
  • Topic Count:  5
  • Topics Per Day:  0.00
  • Content Count:  70
  • Reputation:   0
  • Joined:  06/19/18
  • Last Seen:  

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

 

Link to comment
Share on other sites

  • -1

  • Group:  Members
  • Topic Count:  13
  • Topics Per Day:  0.01
  • Content Count:  28
  • Reputation:   0
  • Joined:  02/14/18
  • Last Seen:  

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

Link to comment
Share on other sites

  • -1

  • Group:  Members
  • Topic Count:  5
  • Topics Per Day:  0.00
  • Content Count:  70
  • Reputation:   0
  • Joined:  06/19/18
  • Last Seen:  

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 by Joseph Andrew Palma
Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

//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 by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  76
  • Topics Per Day:  0.02
  • Content Count:  202
  • Reputation:   2
  • Joined:  07/09/12
  • Last Seen:  

how can i use that?

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

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

 

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

 

Old school style wahahaha...

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  1702
  • Reputation:   238
  • Joined:  09/05/12
  • Last Seen:  

-	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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  76
  • Topics Per Day:  0.02
  • Content Count:  202
  • Reputation:   2
  • Joined:  07/09/12
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  38
  • Topics Per Day:  0.01
  • Content Count:  949
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  

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;
}
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  162
  • Topics Per Day:  0.04
  • Content Count:  737
  • Reputation:   47
  • Joined:  03/12/14
  • Last Seen:  

 

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  1702
  • Reputation:   238
  • Joined:  09/05/12
  • Last Seen:  

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  162
  • Topics Per Day:  0.04
  • Content Count:  737
  • Reputation:   47
  • Joined:  03/12/14
  • Last Seen:  

thanks Sir Patskie

can you help me about this script 

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  76
  • Topics Per Day:  0.02
  • Content Count:  202
  • Reputation:   2
  • Joined:  07/09/12
  • Last Seen:  

Help normal player can use @itemshower

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  38
  • Topics Per Day:  0.01
  • Content Count:  949
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  

-	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 by sandbox
Credits to Patskie
  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  

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 by maynard
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  123
  • Topics Per Day:  0.03
  • Content Count:  640
  • Reputation:   82
  • Joined:  04/07/14
  • Last Seen:  

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...