uDe

August 4, 2013

-	script	VIPLuckyPick	-1,{
OnInit:
OnClock0000:
	set .LuckyTime,rand(24);

OnMinute00:
	if( gettime(3) == .LuckyTime ){
	set .DelayMin,rand(60);
	sleep ( .DelayMin * 60000 );
	while(1){
	query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
	attachrid .@aid;
	if( CheckVending() || !getgmlevel() || @afk == 15 ){
	DetachRID();
	continue;
	}
	announce strcharinfo(0) +" won in Lucky Pick Event.", 0;
	getitem 7539,1000;
	break;
	}
}
end;
}

I get this from @Emistry , I know that's not for 15 minutes like you ask. It's for random hours & minutes. The script working perfectly for me.

Maybe other scripters will help you to change it to 15 minutes like you ask.

July 29, 2013

/shy Really?

I'm sorry.. My time now is 10AM in the morning. So, just simply gave you the script without testing it. /sry

Have you tried his script : http://rathena.org/board/topic/85549-server-time/#entry213138 ?

July 29, 2013

prontera,167,196,3 script nRO Server Time 864,{

end;

OnInit:

while( 1 ){

delwaitingroom;

waitingroom " "+gettimestr( "%H:%M:%S %p",21 ),0;

sleep 1000;

}

end;

}

July 26, 2013

? the link is alive

http://pastebin.com/u7QKZPk7

CREATE TABLE IF NOT EXISTS `callfrnd` (
`id` int(11) NOT NULL auto_increment,
`account_id` int(11) NOT NULL default '0',
`name` varchar(23) NOT NULL default '',
`last_ip` varchar(100) NOT NULL default '',
`last_ip2` varchar(100) NOT NULL default '',
`ref_name` varchar(23) NOT NULL default '',
`ref_id` int(11) NOT NULL default '0',
`mins` tinyint(3) unsigned NOT NULL default '0',
`days` tinyint(3) unsigned NOT NULL default '0',
`task_end` tinyint(3) unsigned NOT NULL default '0',
PRIMARY KEY (`account_id`),
KEY (`id`)
) ENGINE=MyISAM;

Any guide how to add tables?

Follow these steps :

July 26, 2013

is not work!

If it's not working, please post the details about error at map-flag. Don't just simply say "it's not work!". Nobody will help you then. The more same thread you created, the more members will ignore. It's kinda annoying.

July 26, 2013

How to remove/kill the Dimik's and Venatu's when player relog?

July 26, 2013

Isn't this same? http://rathena.org/board/topic/85386-jailtime/

Why are you creating many thread?

July 25, 2013

OnPCLoginEvent:
if( getgmlevel() == 1 )
     atcommand "@fakename "+ strcharinfo(0) +" [Donator]";
end;

I'm also interested with this idea. But, when @fakename are used. Other player can't invite party/guild, add friends etc.. How to fix that problems?

July 24, 2013

It's working. For those who need automatic Poring Summoner script here it is.

Working_Poring_Summoner.txt

Thank you for the post... I actually already have a script a lot like this... Even though it says mvpspawner it works for all monsters. You can even add multiple drop lists and save them with rates

I think you might find it useful.

http://code.google.com/p/ea-addicts/downloads/detail?name=mvpspawner.txt&can=2&q=

Woah~ This is nice. Thank you very much!! /no1

July 23, 2013

did it work?

Of course it'll work. Just insert the lines given into your PVP Warper NPC.

When WOE start, PVP Warper NPC will hiding and when WOE end, PVP Warper NPC will appear. So, your players can't go to PVP while WOE.

July 23, 2013

It's working. For those who need automatic Poring Summoner script here it is.

Working_Poring_Summoner.txt

July 22, 2013

Thanks for the help Capuche

Edited script :

//////////////
//OLD SCRIPT//
//////////////
//Made by Light from MoonlightRO
//quiz_01,45,180,5	script	Poring Summoner	99,{
-	script	Poring Summoner	-1,{
OnInit:

  //---- NPC Config -----
  set .ItemID, 7539;
  set .SpecialPorings, 30;
  set .NormalPorings, 150;
  set .Map$, "morocc";
//setarray .Map$[0], "morocc";
//setarray .Map$[0], "lighthalzen","louyang","comodo","xmas","aldebaran","izlude","payon","geffen","morocc","prontera";
  //---------------------
  end;
  
OnWhisperGlobal:
mes "[Poring Summoner]";
if(getgmlevel() < 99) {
	if(.Event) mes "There is no Poring Summon Event on now.";
	else {
		mes "There is a Poring Summon Event on now!";
		mes "Location: " + .Map$;
		mes "Special Porings: " + .SpecialPorings[1];
		mes "Normal Porings: " + .NormalPorings[0];
	}
	close;
}
mes "Please customize the Poring Summon Event:";
Main:
next;
mes "[Poring Summoner]";
	switch(select("Item [" + getitemname(.ItemID) + "]:Location [" + .Map$ + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {
		case 1:
			mes "Which item would you like Special Porings to drop?";
			mes "Please input the item ID:";
			input .ItemID;
			goto Main;
		case 2:
			mes "Which map would you like me to host this event?";
			input .Map$;
			goto Main;
		case 3:
			mes "How many Special Porings would you like me to summon?";
			input .SpecialPorings;
			goto Main;
		case 4:
			mes "How many Normal Porings would you like me to summon?";
			input .NormalPorings;
			goto Main;
		case 5:
			mes "Starting the event now...";
			donpcevent strnpcinfo(0) +"::Onstartevent";
			close;
		case 6:
			mes "Ending the event now...";
			donpcevent strnpcinfo(0) +"::Onendevent";
	}

OnMinute17:
	if ( .Event )
		donpcevent strnpcinfo(0) +"::Onendevent";// stop the event if already on
	donpcevent strnpcinfo(0) +"::Onstartevent";
	end;
Onstartevent:
	set .Event,1;
	monster .Map$,0,0,"Poring",1725,.SpecialPorings,"Poring Summoner::OnSpecialKill";
	monster .Map$,0,0,"Poring",1725,.NormalPorings,"Poring Summoner::OnNormalKill";
	set .SpecialPorings[1],.SpecialPorings;
	set .NormalPorings[1],.NormalPorings;
	announce "The Poring Event has begun!",bc_all;
	announce "Location: " + .Map$,bc_all;
	announce "Special Porings: " + .SpecialPorings,bc_all;
	announce "Normal Porings: " + .NormalPorings,bc_all;
	end;
	
OnSpecialKill:
	set .SpecialPorings[1],.SpecialPorings[1]-1;
	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
	getitem .ItemID,5;
	goto PoringCount;
OnNormalKill:
	set .NormalPorings[1],.NormalPorings[1]-1;
	goto PoringCount;
PoringCount:
	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
	if(!.SpecialPorings[1]) goto Onendevent;
	end;
Onendevent:
	if(.Event) announce "The Poring Summon Event is now over!",bc_all;
	killmonster .Map$,"All";
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;
	close;
}

morocc	mapflag	nowarp
morocc	mapflag	noteleport
morocc	mapflag	nomemo
morocc	mapflag	nosave	SavePoint
morocc	mapflag	nobranch
morocc	mapflag	noskill

Error when I manually use End Event (by whisper) :

[22/Jul 12:16][Error]: script_rid2sd: fatal error ! player not attached!
[22/Jul 12:16][Debug]: Function: close (no parameters)
[22/Jul 12:16][Debug]: Source (NPC): Poring Summoner (invisible/not on a map)

I'm a bit confuse with your edit about this :

-	EndEvent:
-	Onendvent:
		if(.Event) announce "The Poring Summon Event is now over!",bc_all;
		killmonster .Map$,"All";
		set .Event,0;
		set .SpecialPorings[1],0;
		set .NormalPorings[1],0;
-		close;
+		end;

Is there any typo about "Onendvent" ?

if(!.SpecialPorings[1]) goto Onendevent;

I need to change it like that right?

July 22, 2013

@ude, have u patch manually ?

Ah. My bad. I didn't apply the .diff provided. Thank you very much. My problem solved.

July 22, 2013

I guess you tested with a new guild member. The new member must relog to save the data in guild member database (otherwise he doesn't exist yet) and the guild leader must relog too to update his guild member temporary variables.

resume when you invite a new member :

new guild member must relog

guild leader relog

Yes, I've tried it using a new member. But, I've relog too. Still can't view the message.

It's working after server restart. Thank you very much for this.



Edited by uDe, Today, 11:25 AM.

July 22, 2013

Hello, I've got some error for this script :

//Made by Light from MoonlightRO
//quiz_01,45,180,5	script	Poring Summoner	99,{
-	script	Poring Summoner	-1,{
OnInit:

  //---- NPC Config -----
  set .ItemID, 7539;
  set .SpecialPorings, 30;
  set .NormalPorings, 150;
  set .Map$, "morocc";
//setarray .Map$[0], "morocc";
//setarray .Map$[0], "lighthalzen","louyang","comodo","xmas","aldebaran","izlude","payon","geffen","morocc","prontera";
  //---------------------
  end;
  
OnWhisperGlobal:
mes "[Poring Summoner]";
if(getgmlevel() < 99) {
	if(.Event) mes "There is no Poring Summon Event on now.";
	else {
		mes "There is a Poring Summon Event on now!";
		mes "Location: " + .Map$;
		mes "Special Porings: " + .SpecialPorings[1];
		mes "Normal Porings: " + .NormalPorings[0];
	}
	close;
}
mes "Please customize the Poring Summon Event:";
Main:
next;
mes "[Poring Summoner]";
	switch(select("Item [" + getitemname(.ItemID) + "]:Location [" + .Map$ + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {
		case 1:
			mes "Which item would you like Special Porings to drop?";
			mes "Please input the item ID:";
			input .ItemID;
			goto Main;
		case 2:
			mes "Which map would you like me to host this event?";
			input .Map$;
			goto Main;
		case 3:
			mes "How many Special Porings would you like me to summon?";
			input .SpecialPorings;
			goto Main;
		case 4:
			mes "How many Normal Porings would you like me to summon?";
			input .NormalPorings;
			goto Main;
		case 5:
			mes "Starting the event now...";

OnMinute17:
			set .Event,1;
			monster .Map$,0,0,"Poring",1725,.SpecialPorings,"Poring Summoner::OnSpecialKill";
			monster .Map$,0,0,"Poring",1725,.NormalPorings,"Poring Summoner::OnNormalKill";
			set .SpecialPorings[1],.SpecialPorings;
			set .NormalPorings[1],.NormalPorings;
			announce "The Poring Event has begun!",bc_all;
			announce "Location: " + .Map$,bc_all;
			announce "Special Porings: " + .SpecialPorings,bc_all;
			announce "Normal Porings: " + .NormalPorings,bc_all;
			close;
		case 6:
			mes "Ending the event now...";
			goto EndEvent;
	}
OnSpecialKill:
	set .SpecialPorings[1],.SpecialPorings[1]-1;
	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
	getitem .ItemID,5;
	goto PoringCount;
OnNormalKill:
	set .NormalPorings[1],.NormalPorings[1]-1;
	goto PoringCount;
PoringCount:
	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
	if(!.SpecialPorings[1]) goto EndEvent;
	end;
EndEvent:
	if(.Event) announce "The Poring Summon Event is now over!",bc_all;
	killmonster .Map$,"All";
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;
	close;
}

morocc	mapflag	nowarp
morocc	mapflag	noteleport
morocc	mapflag	nomemo
morocc	mapflag	nosave	SavePoint
morocc	mapflag	nobranch
morocc	mapflag	noskill

This is the error at map-server :

[22/Jul 11:17][Error]: script_rid2sd: fatal error ! player not attached!
[22/Jul 11:17][Debug]: Function: close (no parameters)
[22/Jul 11:17][Debug]: Source (NPC): Poring Summoner (invisible/not on a map)

July 22, 2013

    parse_line: need ';'
    31 :        // if .msgToChat is enabled, send the list directly to the chat
    32 :        if (.msgToChat) {
    33 :
    34 :                dispbottom "GM List:";
    35 :                for (.@i = 0; .@i < getarraysize(.online$); .@i += 1) {
*   36 :                        dispbottom "[" + groupIdToName'('.group[.@i]) + "] " +.name$[.@i] + ": " + (("0" != .online$[.@i]) ? "online" : "offline" + ((.showLastOnline) ? ", last online at " + .date$[.@i] + " " + .time$[.@i] : ""));
    37 :                }
    38 :                end;
    39 :        }
    40 :
    41 :        mes "[GM List]", "";

This is from gm_status_v2_1.txt

July 22, 2013

Hello, I found this was very useful. But when I'm test the script form post #11 , I'll just announce to my self.. Other guild member can't receive any message.

Here's the screen shot :

Thanks for the idea.

EDIT :

It's working after server restart. Thank you very much for this.

July 21, 2013

the npc is not apeared to me

and i have restarted the server

am using 3CeAM
-<TAB>script<TAB>PVPLADDEROPTIONS<TAB>-1,{
http://rathena.org/board/topic/82874-pvp-warper-w-dota-sound-and-ladder-global/?p=200249

same error

Seems like he can't understand the easiest part. /panic

July 17, 2013

Use /where then you can guess the coordinate around you and then use @warp <map> <coordinate that you discover from guess before>. You can only walk base on the gat of the map I think.

*Correct me if I'm wrong.

July 17, 2013

BUMP

July 16, 2013

I've got some error for this src.. Need some help...

        CC      atcommand.c
atcommand.c: In function 'atcommand_item':
atcommand.c:1169:5: warning: 'flag' may be used uninitialized in this function [-Wuninitialized]
atcommand.c:1146:5: warning: 'itemid' may be used uninitialized in this function [-Wuninitialized]
atcommand.c:1146:24: warning: 'group_id' may be used uninitialized in this function [-Wuninitialized]

I'm using this src : http://rathena.org/board/topic/67383-item-mod-from-eathena/#entry119245

BUMP

July 14, 2013

Hello..

I've tried to remove the patch manually. But only this error appear. Anyone know how to fix this?

vending.c: In function 'vending_purchasereq':
vending.c:190:32: error: macro "msg_txt" passed 2 arguments, but takes just 1
vending.c:190:18: error: 'msg_txt' undeclared (first use in this function)
vending.c:190:18: note: each undeclared identifier is reported only once for each function it appears in
make[1]: *** [obj_sql/vending.o] Error 1

My SVN : r17227

Source : http://rathena.org/board/topic/60817-extended-vending-system-18/

EDIT : Attached my vending.c vending.rar

Update : Problem solved.

Just found it out,

Change

sprintf(temp, msg_txt(sd,265), sd->status.name);

to

sprintf(temp, msg_txt(265), sd->status.name);

I don't know how this works. But, no more errors from map server.

July 11, 2013

i dont know wat to do. i already included it to my folder but still it doesnt display anything

s455.photobucket.com/user/vonbad/media/Rathena%20Snapshots/untitled.png.html

I can't view your image.

July 11, 2013

Can make everything with encrypted data using MD5()
UPDATE `login` SET `user_pass` = MD5('"+<NEW PASSWORD>+"') WHERE `account_id` = '"+getcharid(3)+"'";

Thank you.

You can also search by their login ID:
UPDATE `login` SET `user_pass` = MD5('NEW_PASSWORD') WHERE `userid`='THEIR_LOGIN_ID';

I'm using this, easy to update from sql..

Thank you to both of you..

July 9, 2013

BUMP

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by uDe