Jump to content
  • 0

Item Shower Command please?

Eros

Asked by Eros,

 Share

Question

Eros Marin

Eros

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

does anyone have this command ?

Link to comment
Share on other sites

16 answers to this question

Recommended Posts

  • 0
Psy Ops Poring

Psy Ops

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

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

 

Link to comment
Share on other sites
  • -1
shironaito22 Poring

shironaito22

Posted
  • Group:  Members
  • Topic Count:  13
  • Topics Per Day:  0.00
  • Content Count:  28
  • Reputation:   0
  • Joined:  02/14/18
  • Last Seen:  
Posted
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
Psy Ops Poring

Psy Ops

Posted
  • Group:  Members
  • Topic Count:  5
  • Topics Per Day:  0.00
  • Content Count:  70
  • Reputation:   0
  • Joined:  06/19/18
  • Last Seen:  
Posted (edited)
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
Skorm Metaling

Skorm

Posted
  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1282
  • Reputation:   393
  • Joined:  02/03/12
  • Last Seen:  
Posted (edited) 
//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
Eros Marin

Eros

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

how can i use that?

Link to comment
Share on other sites
Skorm Metaling

Skorm

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

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

 

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

 

Old school style wahahaha...

Link to comment
Share on other sites
Patskie Santa Poring

Patskie

Posted
  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  1702
  • Reputation:   241
  • Joined:  09/05/12
  • Last Seen:  
Posted 
-	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
Eros Marin

Eros

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

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

Link to comment
Share on other sites
sandbox Santa Poring

sandbox

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

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
Bringer Metaling

Bringer

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

 

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
Patskie Santa Poring

Patskie

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

npc/custom

Link to comment
Share on other sites
Bringer Metaling

Bringer

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

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
Eros Marin

Eros

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

Help normal player can use @itemshower

Link to comment
Share on other sites
sandbox Santa Poring

sandbox

Posted
  • Group:  Members
  • Topic Count:  38
  • Topics Per Day:  0.01
  • Content Count:  949
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  
Posted (edited) 
-	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
maynard Poring

maynard

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

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
Gidz Cross Eggring

Gidz Cross

Posted
  • Group:  Members
  • Topic Count:  133
  • Topics Per Day:  0.03
  • Content Count:  686
  • Reputation:   89
  • Joined:  04/07/14
  • Last Seen:  
Posted

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.

×
 Share
Go to question listing
×
×
  • Create New...