Jump to content
  • 0

Help - Daily Monster Hunt


Miemie

Question


  • Group:  Members
  • Topic Count:  10
  • Topics Per Day:  0.00
  • Content Count:  22
  • Reputation:   0
  • Joined:  04/30/16
  • Last Seen:  

Hi,

 

Can anyone help me with this scripts?

I'm facing:

1. Unable to re-do the hunting. It keeps saying, even after time laps. (Even killing Lunatic, doesnt count anymore)

post-38928-0-11087600-1463997397_thumb.jpg

 

 

Here is the script:

//======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, within a random time
// *randomception!*
// If the player successfully hunts the monster
// within the time limit, he'll receive a reward!
//======Credits=====================================
// KeyWorld, nanakiwurtz, NeoMind, Kido
// Thanks for helping me out guize!
//==================================================
 
prontera,161,150,3	script	Hunting Challenge	869,{
 
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?","I will give you a random time limit to kill a random amount of a monster, If you manage to kill them within the given time, you'll receive a reward!";
next;
mes "Your reward will be ^0000FFRefine Ticket^000000. So, get ready ...";
next;
mes "A timer on top of the screen is ^0000FFslightly faster than accurate timer^000000, I'm just making you a little bit panic! Hehe! You can still hunting until I announced time-out.";
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))];
	Time = rand(60,99); //Timer
	Amt = rand (50,100); //Amount of mob to hunt
	Hunter++;
 
mes "You have to hunt ^0000FF"+Amt+" "+getmonsterinfo(Hunt,0)+"^000000 in ^AA0000"+Time+"^000000 seconds!";
next;
mes .Npc_Name$;
mes "Go go go!";
close2;
	showdigit Time,3;
//	HuntDelay = gettimetick(2)+86400; //Once a day only.
	HuntStart = gettimetick(2)+Time;
sleep2 1000*Time;
	if(Hunter) dispbottom strnpcinfo(1)+": I'm sorry, you didn't make it!";
	HuntStart = 0; //Reset all variables
	Hunt = 0;
	Hunter = 0;
	HuntCount = 0;
	Time = 0;
	Amt = 0;
end;

 
//----------Config----------
 
OnInit:
	.Npc_Name$ = "[^0000FF NPC ^000000]";
	setarray .Mob_List[0],1002,1007,1063; //Mobs to hunt. Default: Poring, Fabre, Lunatic
	.Reward = 696;	//Reward ID
	.RewAmt = 1; //Reward Amount
	end;
 
OnNPCKillEvent:
	if(Hunter > 0) {
		if(gettimetick(2) < HuntStart) {
			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;
					HuntStart = 0;
					Hunt = 0;
					Hunter = 0;
					HuntCount = 0;
					Time = 0;
					Amt = 0;
					showdigit 1,3;
				}
			}
		}
	}
end;
}

Okay, FIXED.

 

Just, add "="

 

From this:

OnNPCKillEvent:
	if(Hunter > 0) {
		if(gettimetick(2) < HuntStart) {

To this:

OnNPCKillEvent:
    if(Hunter >= 0) {
        if(gettimetick(2) < HuntStart) {

post-38928-0-11087600-1463997397_thumb.jpg

Edited by Miemie
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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...