Daily Monster Hunt v1.2

[sandbox]

File Name: Daily Monster Hunt v1.2

File Submitter: sandbox

File Submitted: 11 Mar 2014

File Category: Game, Event, Quest

Content Author: sandbox

 

 

 

 

Script Details & Usage

It's a script that can hand out dynamic 'kill this' quests for your players without the need of questlog. It assigns a player a random amount of a random monster to kill within a random amount of time. Randomception!

Installation

• Enable the script on your NPC folder
• Carefully read the comments I made inside the script and make sure to configure it properly

Terms & Conditions

• You are not allowed to reproduce or make profit of this script
• You are not allowed to take credit for this script. Though you can modify/edit it to your liking.
• I can give you support, but please, do not message me.
• It is your own responsibility to create a backup before implementing anything new.

Pastebin: http://rathena.org/board/pastebin/4dcsjtt3buvi/

 

Special thanks to: @KeyWorld, @Kido, @nanakiwurtz,@NeoMind for helping me with this script!

hunt.txt

[WhatFT]

How to make this available to use everytime? I want to remove the day interval.. Non stop questing

[sandbox]

Comment out these lines

	if(gettimetick(2) < HuntDelay) {
		mes "You can only do this quest once a day!";
		close;
	}

	HuntDelay = gettimetick(2)+86400; //Once a day only.

[DreamSkyZzz]

sorry i get hang in this script ,because when i doing this quest my network has disconnect so how to disable the quest with my char?

[mrlongshen]

sir, how to change this to cashpoint ?

[sandbox]

Find

getitem .Reward,.RewAmt;

Replace

#CASHPOINTS+=.RewAmt;

[mrlongshen]

 

Find

getitem .Reward,.RewAmt;

Replace

#CASHPOINTS+=.RewAmt;

 

thanks sir

[cassie24]

How to reset if a player encounters a bug on this script? Still 0 out of 22 monsters killed for example when clicking the npc.

[sandbox]

Just need to wait for the next day.. Or delete the variables attached to the character in global_reg_value

[cassie24]

OMG thanks for the reply sandbox, let me try that.

Just note though, even a day has passed, when they click the NPC, the npc will tell them this: http://gyazo.com/2446f52edbbb8cf18105d34165efa04a

 

So no way to take the quest again. I have to delete some entries in global_reg_value manually? Is this a bug on the script?

Also, when they got disconnected while taking the quest, when they got back and continue, it only tells them to kill the max amt of monster when they have already killed that amount within the given time. Can we enhance the script that will tell them about delay in dispbottom?

Edited June 27, 2014 by cassie24

[c2greentea]

How to change to 1 char per account only sir?

[c2greentea]

How to change to 1 char per account only sir? I will only add # in front of these variables: HuntDelay, Hunt, Amt, Hunter, HuntStart, HuntEnd, HuntCount, Time? Help pls..

[luraeksdi]

Ano ung mga papalitan Sir? Pag click ko kasi sa NPC walang nangyayari eh.

[Yonko]

how to remove the timer sometimes this script is a bit difficult example for low rate server " kill 99 lunatics in 60 seconds" lol

[Luciar]

how to remove the timer sometimes this script is a bit difficult example for low rate server " kill 99 lunatics in 60 seconds" lol

 

Try this:

 

//======Name========================================
// Daily Monster Hunt
//======Version=====================================
// 1.2
//======Author(s)===================================
// Sandbox
//======Comments====================================
// This NPC allows your player to hunt a random amount
// of a random monster
// *randomception!*
// If the player successfully hunts the monster
// he'll receive a reward!
//======Credits=====================================
// KeyWorld, nanakiwurtz, NeoMind, Kido
// Thanks for helping me out guize!
// Modified by Luciar for Yonko
//==================================================
 
prontera,100,200,3	script	Hunting Challenge	78,{
 
mes .Npc_Name$;
	if(Hunter) {
	mes "You have killed ^880000"+HuntCount+"^000000/^0000FF"+Amt
 
+"^000000 "+getmonsterinfo(Hunt,0)+"s, keep it up!";
	close;
	}
	if(gettimetick(2) < HuntDelay) {
		mes "You can only do this quest once a day!";
		close;
	}

mes "Hello, do you want to take on the Monster Hunting Challenge?","If you manage to kill them, you'll receive a reward!"; 
if(select("Bring it on!:How about no?")==2) {
	mes .Npc_Name$;
	mes "Fine!";
	close;
}
 
next;
mes .Npc_Name$;
	Hunt = .Mob_List[rand(getarraysize(.Mob_List))];
	Amt = rand (50,100); //Amount of mob to hunt
	Hunter++;
 
mes "You have to hunt ^0000FF"+Amt+" "+getmonsterinfo(Hunt,0)+"^000000!";
next;
mes .Npc_Name$;
mes "Go go go!";
close2;
HuntDelay = gettimetick(2)+86400; //Once a day only.
end;

 
//----------Config----------
 
OnInit:
	.Npc_Name$ = "[^0000FF NPC ^000000]";
	setarray .Mob_List[0],1002,1007,1063; //Mobs to hunt. Default: Poring, Fabre, Lunatic
	.Reward = 607; //Reward ID
	.RewAmt = 10; //Reward Amount
	end;
 
OnNPCKillEvent:
	if(Hunter > 0) {
		if(killedrid == Hunt) {
			HuntCount++;
			dispbottom "You have killed "+HuntCount+"/"+Amt+" "+getmonsterinfo(Hunt,0)+"s, keep it up!";
			if(HuntCount >= Amt) {
				dispbottom strnpcinfo(1)+": Congratulations! You did it!";
				getitem .Reward,.RewAmt;
				Hunt = 0;
				Hunter = 0;
				HuntCount = 0;
				Amt = 0;
			}
		}
	}
end;
}

[SevySevSevy]

Using this on my server

[idLaZ]

How to make the quest only for 1 character (account type) not for every characters?

[Emistry]

On 2/14/2017 at 0:19 AM, idLaZ said:

How to make the quest only for 1 character (account type) not for every characters?

find all 

HuntDelay 

and change to

#HuntDelay

 

[idLaZ]

Thank you, Emistry!

[kavo]

How do i change the delay from 1 day to 1 hour ?

thanks


//======Name========================================
// Daily Monster Hunt
//======Version=====================================
// 1.2
//======Author(s)===================================
// Sandbox
//======Comments====================================
// This NPC allows your player to hunt a random amount
// of a random monster
// *randomception!*
// If the player successfully hunts the monster
// he'll receive a reward!
//======Credits=====================================
// KeyWorld, nanakiwurtz, NeoMind, Kido
// Thanks for helping me out guize!
// Modified by Luciar for Yonko
//==================================================
 
prontera,100,200,3	script	Hunting Challenge	78,{
 
mes .Npc_Name$;
	if(Hunter) {
	mes "You have killed ^880000"+HuntCount+"^000000/^0000FF"+Amt
 
+"^000000 "+getmonsterinfo(Hunt,0)+"s, keep it up!";
	close;
	}
	if(gettimetick(2) < HuntDelay) {
		mes "You can only do this quest once a day!";
		close;
	}

mes "Hello, do you want to take on the Monster Hunting Challenge?","If you manage to kill them, you'll receive a reward!"; 
if(select("Bring it on!:How about no?")==2) {
	mes .Npc_Name$;
	mes "Fine!";
	close;
}
 
next;
mes .Npc_Name$;
	Hunt = .Mob_List[rand(getarraysize(.Mob_List))];
	Amt = rand (50,100); //Amount of mob to hunt
	Hunter++;
 
mes "You have to hunt ^0000FF"+Amt+" "+getmonsterinfo(Hunt,0)+"^000000!";
next;
mes .Npc_Name$;
mes "Go go go!";
close2;
HuntDelay = gettimetick(2)+86400; //Once a day only.
end;

 
//----------Config----------
 
OnInit:
	.Npc_Name$ = "[^0000FF NPC ^000000]";
	setarray .Mob_List[0],1002,1007,1063; //Mobs to hunt. Default: Poring, Fabre, Lunatic
	.Reward = 607; //Reward ID
	.RewAmt = 10; //Reward Amount
	end;
 
OnNPCKillEvent:
	if(Hunter > 0) {
		if(killedrid == Hunt) {
			HuntCount++;
			dispbottom "You have killed "+HuntCount+"/"+Amt+" "+getmonsterinfo(Hunt,0)+"s, keep it up!";
			if(HuntCount >= Amt) {
				dispbottom strnpcinfo(1)+": Congratulations! You did it!";
				getitem .Reward,.RewAmt;
				Hunt = 0;
				Hunter = 0;
				HuntCount = 0;
				Amt = 0;
			}
		}
	}
end;
}




how do i make the quest from 1 day delay change to 1 hour delay ?



thanks in advance

 

Edited May 6, 2017 by Cyro
Please use code box next time

[crazyarashi]

11 minutes ago, kavo said:

How do i change the delay from 1 day to 1 hour ?

thanks


//======Name========================================
// Daily Monster Hunt
//======Version=====================================
// 1.2
//======Author(s)===================================
// Sandbox
//======Comments====================================
// This NPC allows your player to hunt a random amount
// of a random monster
// *randomception!*
// If the player successfully hunts the monster
// he'll receive a reward!
//======Credits=====================================
// KeyWorld, nanakiwurtz, NeoMind, Kido
// Thanks for helping me out guize!
// Modified by Luciar for Yonko
//==================================================
 
prontera,100,200,3	script	Hunting Challenge	78,{
 
mes .Npc_Name$;
	if(Hunter) {
	mes "You have killed ^880000"+HuntCount+"^000000/^0000FF"+Amt
 
+"^000000 "+getmonsterinfo(Hunt,0)+"s, keep it up!";
	close;
	}
	if(gettimetick(2) < HuntDelay) {
		mes "You can only do this quest once a day!";
		close;
	}

mes "Hello, do you want to take on the Monster Hunting Challenge?","If you manage to kill them, you'll receive a reward!"; 
if(select("Bring it on!:How about no?")==2) {
	mes .Npc_Name$;
	mes "Fine!";
	close;
}
 
next;
mes .Npc_Name$;
	Hunt = .Mob_List[rand(getarraysize(.Mob_List))];
	Amt = rand (50,100); //Amount of mob to hunt
	Hunter++;
 
mes "You have to hunt ^0000FF"+Amt+" "+getmonsterinfo(Hunt,0)+"^000000!";
next;
mes .Npc_Name$;
mes "Go go go!";
close2;
HuntDelay = gettimetick(2)+86400; //Once a day only.
end;

 
//----------Config----------
 
OnInit:
	.Npc_Name$ = "[^0000FF NPC ^000000]";
	setarray .Mob_List[0],1002,1007,1063; //Mobs to hunt. Default: Poring, Fabre, Lunatic
	.Reward = 607; //Reward ID
	.RewAmt = 10; //Reward Amount
	end;
 
OnNPCKillEvent:
	if(Hunter > 0) {
		if(killedrid == Hunt) {
			HuntCount++;
			dispbottom "You have killed "+HuntCount+"/"+Amt+" "+getmonsterinfo(Hunt,0)+"s, keep it up!";
			if(HuntCount >= Amt) {
				dispbottom strnpcinfo(1)+": Congratulations! You did it!";
				getitem .Reward,.RewAmt;
				Hunt = 0;
				Hunter = 0;
				HuntCount = 0;
				Amt = 0;
			}
		}
	}
end;
}




how do i make the quest from 1 day delay change to 1 hour delay ?



thanks in advance

 

Edit This Line
 

HuntDelay = gettimetick(2)+86400; //Once a day only. 

to

HuntDelay = gettimetick(2)+3600; //Once every hour

PS Use codebox for scripts

Edited May 6, 2017 by crazyarashi
Additional Information

[kavo]

1 hour ago, crazyarashi said:

Edit This Line
 

HuntDelay = gettimetick(2)+86400; //Once a day only. 

to

HuntDelay = gettimetick(2)+3600; //Once every hour

PS Use codebox for scripts

thanks alot , will try again

[cross10hunter]

Hi, theres a bug that I've encountered. I have an ongoing quest then after I reloadscript the mob counting stops and the npc keeps telling me that i have to kill 23/70 more porings but when I tried to kill it again it is still 23/70. How will i solved this. btw my huntdelay time is every 1hr.

 

[Xiao]

Thanks @sandbox

@Emistry

Edited September 9, 2018 by Xiao

[The Man of Greed]

edit the mission time from 5 to 20 minutes, the counter respects the time placed, but within the game shows the countdown starts from 99

Any way to show full time?