Dynamic Time Lucky Pick Event

zein · January 16, 2013

How to change the dynamic time?

I want to make the script run minimum every 1 hours + randomly minute.

//http://rathena.org/board/topic/53877-lucky-pick-event/
//emistry script

- script AutoFunEvent -1,{
OnInit:
OnClock0000:
set .LuckyTime,rand(24);
OnMinute60:
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() ){
  DetachRID();
  continue;
  }
 announce strcharinfo(0) +" won 500 Cash in Lucky Pick Event", 0,0x00FF00;
 set #CASHPOINTS,#CASHPOINTS+500;
 dispbottom "you got 500 cash point";
 break;
}
}
end;
}

Thanks

Edited January 17, 2013 by zenz90

AnnieRuru · January 17, 2013

this script sux big time

use mine

http://rathena.org/board/topic/72927-the-prize-is-not-given-to-players/#entry149317

update this script

-	script	AutoFunEvent	-1,{
OnInit:
while (1) {
	freeloop 1;
	.@rand = rand(2000000000);
	.@count = 0;
	while ( getusers(1) > .@count ) {
		.@nb = query_sql("select account_id from `char` where online = 1 order by rand("+ .@rand +") limit 128 offset "+ .@count, .@aid );
		.@i = 0;
		while ( .@i < .@nb ) {
			if ( attachrid(.@aid[.@i]) ) {
				if ( getgmlevel() < 60 && !checkvending() ) { // only normal players and non-vending players
					announce strcharinfo(0) +" won 500 Cash in Lucky Pick Event", 0,0x00FF00;
					#cashpoints = #cashpoints + 500;
					dispbottom "you got 500 cash point";
					break;
				}
			}
			.@i++;
		}
		if ( .@i < .@nb )
			break;
		.@count += 128;
	}
	freeloop 0;
	sleep 3600000 + rand(3600000); // 1 hour + random minutes within 1 hour
}
end;
}

kalabasa · December 23, 2019

Sorry for a noob question i search everywhere about this script and i found out only modifications i tried the original link but not found by emistry i know how to put NPC's but this is an automated event and npc is not needed (i dont know im still new here)so how can i run/execute this? where to put? thank you

Skorm · December 28, 2019

On 12/23/2019 at 1:58 AM, kalabasa said:

Sorry for a noob question i search everywhere about this script and i found out only modifications i tried the original link but not found by emistry i know how to put NPC's but this is an automated event and npc is not needed (i dont know im still new here)so how can i run/execute this? where to put? thank you

Just load it like you would any other NPC. Also you shouldn't necro really old topics like this there is more than enough information out there about loading in NPCs.

kalabasa · December 29, 2019

On 12/28/2019 at 12:02 PM, Skorm said:

Just load it like you would any other NPC. Also you shouldn't necro really old topics like this there is more than enough information out there about loading in NPCs.

i am sorry for you thinking that way i was currently getting useful scripts here to be tested soon and im still new in here sorry again for misunderstood

BeWan · December 29, 2019

2 hours ago, kalabasa said:

i am sorry for you thinking that way i was currently getting useful scripts here to be tested soon and im still new in here sorry again for misunderstood

here
edit
onlock and onminute

prontera,150,150,4	script	Event	998,{

OnInit:
OnClock0000:
set .LuckyTime,rand(24);
OnMinute60:
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() ){
  DetachRID();
  continue;
  }
 announce strcharinfo(0) +" won 500 Cash in Lucky Pick Event", 0,0x00FF00;
 set #CASHPOINTS,#CASHPOINTS+500;
 dispbottom "you got 500 cash point";
 break;
}
}
end;
}

Currently · January 16, 2013

Also need this (:

Emistry · January 16, 2013

OnMinute00:
sleep ( rand(60) * 1000 );

zein · January 17, 2013

Thanks for reply Emistry !

so the script edited like this ?

//http://rathena.org/board/topic/53877-lucky-pick-event/
//emistry script

- script AutoFunEvent -1,{
OnInit:
OnClock0000:
set .LuckyTime,rand(24);
OnMinute00:
if( gettime(3) == .LuckyTime ){
set .DelayMin,rand(60);
sleep ( rand(60) * 1000 );
while(1){
 query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
 attachrid .@aid;
 if( CheckVending() ){
  DetachRID();
  continue;
  }
 announce strcharinfo(0) +" won 500 Cash in Lucky Pick Event", 0,0x00FF00;
 set #CASHPOINTS,#CASHPOINTS+500;
 dispbottom "you got 500 cash point";
 break;
}
}
end;
}

Edited January 17, 2013 by zenz90

Capuche · January 17, 2013

Yes it is.

btw you can remove

set .DelayMin,rand(60);

zein · January 19, 2013

@AnnieRuru

is that script works on 3CeAM ?

btw thanks for reply

Capuche · January 19, 2013

@AnnieRuru

is that script works on 3CeAM ?

btw thanks for reply

* Imitate the voice of AnnieRuru *

No it doesn't ! (lol)

It works only on rAthena

Edited January 19, 2013 by Capuche

jigsgfx · January 23, 2013

Hi, how can we change this into items instead of cashpoints?

thanks /no1

Edited January 23, 2013 by jigsgfx

Emistry · January 23, 2013

change

set #CASHPOINTS,#CASHPOINTS+500;

to

getitem 512,1000;

refer getitem or getitem2

jigsgfx · January 23, 2013

change
set #CASHPOINTS,#CASHPOINTS+500;
to
getitem 512,1000;
refer getitem or getitem2

thanks emistry how about the one Annie did?

ill change this

 #cashpoints = #cashpoints + 500;

to this

getitem 512,1000;

??

and can i use 2 same lucky pick script at the same time with different item reward set on it?

also does afk players are excluded meaning afk dont have a chance to pick by the script and get rewards?

Edited January 23, 2013 by jigsgfx

zein · February 2, 2013

@Emistry

The dynamic time doesn't work, it still run every 12-24 hour

I want make it to one hour + randomly minute.

any suggestion?

Thanks,

//http://rathena.org/board/topic/53877-lucky-pick-event/
//emistry script

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

OnMinute00:
if( gettime(3) == .LuckyTime ){
set .DelayMin,rand(60);
sleep ( rand(60) * 1000 );
while(1){
 query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
 attachrid .@aid;
 if( CheckVending() ){
  DetachRID();
  continue;
  }
 announce strcharinfo(0) +" won 500 cash in Lucky Pick Event ", 0,0x00FF00;
 set #CASHPOINTS,#CASHPOINTS+500;
 dispbottom "You got 500 cash point";
 break;
}
}
end;
}

Emistry · February 3, 2013

remove these if you want it to work every hours.


OnInit:
OnClock0000:
set .LuckyTime,rand(24);
........................
if( gettime(3) == .LuckyTime ){

AnnieRuru · February 3, 2013

sleep 3600000 + rand(3600000); // 1 hour + random minutes within 1 hour

I thought mine already comply your request ?

Meister · March 20, 2013

sleep 3600000 + rand(3600000); // 1 hour + random minutes within 1 hour
I thought mine already comply your request ?

If I want it to be every 6 hours do I need to multiply 3600000 to 6 ? and remove + rand(3600000) ? Thanks!

Skorm · March 20, 2013

Yes

sleep 3600000 * 6; // 1 Hour in Milliseconds * 6

21600000 / 1000 = 21600 //seconds

21600 / 60 = 360 //Minutes

360 / 60 = 6 //Hours

Sign In

Dynamic Time Lucky Pick Event

Question

zein

19 answers to this question

Recommended Posts

AnnieRuru

kalabasa

Skorm

kalabasa

BeWan

Currently

Emistry

zein

Capuche

zein

Capuche

jigsgfx

Emistry

jigsgfx

zein

Emistry

AnnieRuru

Meister

Skorm

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account