Guss The Number Event!

Rage Guy · May 2, 2013

I Got a guss the number event but

my problem . its manual ==

I Want to change it Automatic

//===== Athena Script ========================================
//= Number Guess Event NPC
//===== By: ==================================================
//= Masao
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Guess the right Number and Win a Prize.
//===== Additional Comments: =================================
//= Version 1.0 if there are any Bugs please let me know.
//============================================================

prontera,146,168,4	script	Guess The Number	77,{

	set .@n$,"[Guess The Number]";
	if(getgmlevel() >= 60) goto L_GMCP;
	if($numberguess == 1) goto L_Guess;
	
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "المسابقة غير متاحة الأن";
	mes "زرني في وقت لاحق ^^";
	mes "فقط لتخمن أرقامي و تفذ ب جوايز";
	close;
	
L_GMCP:
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "كيف يمكنني أن اساعدك؟ ";
	next;
	menu "ابدء المسابقة",-,"انهاء المسابقة",L_EndEv,"Set Number Range",L_Number,"Nothing.",L_End;
	
	mes "Allright the Event starts now!";
	set $@guessnr,rand(1,$numberrange);
	set $numberguess,1;
	close2;
	announce "مسابقة تخمين الرقم قد بدئت الأن",0;
	end;

L_EndEv:
	mes .@n$;
	mes "Allright i'll end the Event now!";
	set $numberguess,0;
	close2;
	announce "انتهت المسابقة . لا فائذ",0;
	end;
	
L_Number:
	mes .@n$;
	mes "ادخل الرقم الذي يمكنني التخمين منه";
	mes "The Number shouldn't be lower then 10 or higher as 1000.";
	input @numberrange;
	if (@numberrange <= 9) goto L_Low;
	if (@numberrange >= 1001) goto L_High;
	set $numberrange,@numberrange;
	mes "ما بين 1 و  "+@numberrange+".";
	close;

L_End:
	mes .@n$;
	mes "سلام";
	close;

L_Low:
	mes .@n$;
	mes "الرقم الذي خمنته قليل جدا";
	close;

L_High:
	mes .@n$;
	mes "الرقم الذي خمنته كبير جدا";
	close;
	
L_Guess:
	mes .@n$;
	if( GuessNDelay >= gettimetick(2) )
	{
		mes "يجب عليك الانتظار 3 ثواني لتستطيع التخمين مجددا";
		close;
	}
	mes "ادخل رقم ما بين [1 - 500]  حظا موفقا^^";
	input @guess;
	if (@guess > $@guessnr) goto L_ToHigh;
	if (@guess < $@guessnr) goto L_ToLow;
	if (@guess == $@guessnr){
	set $numberguess,0;
	mes "مروك لقد خمنت الرقم الصحيح";
	mes "ها هي جائزتك";
	getitem 674,4;
	close2;
	announce strcharinfo(0)+" خمن الرقم الصحيح و فاذ بالمسابقة! شكرا لكل المشاركين !!",0;
	end;
	}

L_ToHigh:
	mes .@n$;
	mes "الرقم الذي خمنته كبير جدا!!";
	mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";
	set GuessNDelay, gettimetick(2) + 3;
	close;

L_ToLow:
	mes .@n$;
	mes "الرقم الذي خمنته قليل جدا!!";
	mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";
	set GuessNDelay, gettimetick(2) + 3;
	close;
}

Thanks For Who Is going to help me , and who helped me Before

Any Help ?

Edited May 3, 2013 by SpongeBOB

Capuche · May 3, 2013

Add

OnClock2100:						// at 21:00 min the event start
	if( $numberguess ) end;			// don't start the event of already on
	set $@guessnr, rand( 1,1000 );	// random number between 1<->1000
	set $numberguess,1;				// => the event start
	announce "your announce",0;		// announce
	end;

Rage Guy · May 3, 2013

where ? ==

if i can add it to me cuz i rlly dont know where to add it

cuz maybe i can bug the script

Capuche · May 3, 2013

//===== Athena Script ========================================

//= Number Guess Event NPC

//===== By: ==================================================

//= Masao

//===== Current Version: =====================================

//= 1.0

//===== Compatible With: =====================================

//= eAthena SVN

//===== Description: =========================================

//= Guess the right Number and Win a Prize.

//===== Additional Comments: =================================

//= Version 1.0 if there are any Bugs please let me know.

//============================================================

prontera,146,168,4 script Guess The Number 77,{

set .@n$,"[Guess The Number]";

if(getgmlevel() >= 60) goto L_GMCP;

if($numberguess == 1) goto L_Guess;

mes .@n$;

mes "مرحبا "+strcharinfo(0)+",";

mes "المسابقة غير متاحة الأن";

mes "زرني في وقت لاحق ^^";

mes "فقط لتخمن أرقامي و تفذ ب جوايز";

close;

L_GMCP:

mes .@n$;

mes "مرحبا "+strcharinfo(0)+",";

mes "كيف يمكنني أن اساعدك؟ ";

next;

menu "ابدء المسابقة",-,"انهاء المسابقة",L_EndEv,"Set Number Range",L_Number,"Nothing.",L_End;

mes "Allright the Event starts now!";

set $@guessnr,rand(1,$numberrange);

set $numberguess,1;

close2;

announce "مسابقة تخمين الرقم قد بدئت الأن",0;

end;

L_EndEv:

mes .@n$;

mes "Allright i'll end the Event now!";

set $numberguess,0;

close2;

announce "انتهت المسابقة . لا فائذ",0;

end;

L_Number:

mes .@n$;

mes "ادخل الرقم الذي يمكنني التخمين منه";

mes "The Number shouldn't be lower then 10 or higher as 1000.";

input @numberrange;

if (@numberrange <= 9) goto L_Low;

if (@numberrange >= 1001) goto L_High;

set $numberrange,@numberrange;

mes "ما بين 1 و "+@numberrange+".";

close;

L_End:

mes .@n$;

mes "سلام";

close;

L_Low:

mes .@n$;

mes "الرقم الذي خمنته قليل جدا";

close;

L_High:

mes .@n$;

mes "الرقم الذي خمنته كبير جدا";

close;

L_Guess:

mes .@n$;

if( GuessNDelay >= gettimetick(2) )

{

mes "يجب عليك الانتظار 3 ثواني لتستطيع التخمين مجددا";

close;

}

mes "ادخل رقم ما بين [1 - 500] حظا موفقا^^";

input @guess;

if (@guess > $@guessnr) goto L_ToHigh;

if (@guess < $@guessnr) goto L_ToLow;

if (@guess == $@guessnr){

set $numberguess,0;

mes "مروك لقد خمنت الرقم الصحيح";

mes "ها هي جائزتك";

getitem 674,4;

close2;

announce strcharinfo(0)+" خمن الرقم الصحيح و فاذ بالمسابقة! شكرا لكل المشاركين !!",0;

end;

}

L_ToHigh:

mes .@n$;

mes "الرقم الذي خمنته كبير جدا!!";

mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";

set GuessNDelay, gettimetick(2) + 3;

close;

L_ToLow:

mes .@n$;

mes "الرقم الذي خمنته قليل جدا!!";

mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";

set GuessNDelay, gettimetick(2) + 3;

close;

OnClock2100: // at 21:00 min the event start

if( $numberguess ) end; // don't start the event of already on

set $@guessnr, rand( 1,1000 ); // random number between 1<->1000

set $numberguess,1; // => the event start

announce "your announce",0; // announce

end;

}

Rage Guy · May 3, 2013

Thanks alot

how to make it wihout waiting 3 seconds ?

Capuche · May 3, 2013

Remove x2

set GuessNDelay, gettimetick(2) + 3;

Rage Guy · May 4, 2013

Thanks Capuche ^^

can i make the npc disapears after the event finish

and apears when it start ?

any help ?

Jaburak · May 4, 2013

Try this;

//===== Athena Script ========================================
//= Number Guess Event NPC
//===== By: ==================================================
//= Masao
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Guess the right Number and Win a Prize.
//===== Additional Comments: =================================
//= Version 1.0 if there are any Bugs please let me know.
//============================================================

prontera,146,168,4	script	Guess The Number	77,{

	set .@n$,"[Guess The Number]";
	if(getgmlevel() >= 60) goto L_GMCP;
	if($numberguess == 1) goto L_Guess;
	
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "المسابقة غير متاحة الأن";
	mes "زرني في وقت لاحق ^^";
	mes "فقط لتخمن أرقامي و تفذ ب جوايز";
	close;
	
L_GMCP:
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "كيف يمكنني أن اساعدك؟ ";
	next;
	menu "ابدء المسابقة",-,"انهاء المسابقة",L_EndEv,"Set Number Range",L_Number,"Nothing.",L_End;
	
	mes "Allright the Event starts now!";
	set $@guessnr,rand(1,$numberrange);
	set $numberguess,1;
	close2;
	announce "مسابقة تخمين الرقم قد بدئت الأن",0;
	end;

L_EndEv:
	mes .@n$;
	mes "Allright i'll end the Event now!";
	set $numberguess,0;
	close2;
	announce "انتهت المسابقة . لا فائذ",0;
	end;
	
L_Number:
	mes .@n$;
	mes "ادخل الرقم الذي يمكنني التخمين منه";
	mes "The Number shouldn't be lower then 10 or higher as 1000.";
	input @numberrange;
	if (@numberrange <= 9) goto L_Low;
	if (@numberrange >= 1001) goto L_High;
	set $numberrange,@numberrange;
	mes "ما بين 1 و  "+@numberrange+".";
	close;

L_End:
	mes .@n$;
	mes "سلام";
	close;

L_Low:
	mes .@n$;
	mes "الرقم الذي خمنته قليل جدا";
	close;

L_High:
	mes .@n$;
	mes "الرقم الذي خمنته كبير جدا";
	close;
	
L_Guess:
	mes .@n$;
	if( GuessNDelay >= gettimetick(2) )
	{
		mes "يجب عليك الانتظار 3 ثواني لتستطيع التخمين مجددا";
		close;
	}
	mes "ادخل رقم ما بين [1 - 500]  حظا موفقا^^";
	input @guess;
	if (@guess > $@guessnr) goto L_ToHigh;
	if (@guess < $@guessnr) goto L_ToLow;
	if (@guess == $@guessnr){
	set $numberguess,0;
	mes "مروك لقد خمنت الرقم الصحيح";
	mes "ها هي جائزتك";
	getitem 674,4;
	close2;
	announce strcharinfo(0)+" خمن الرقم الصحيح و فاذ بالمسابقة! شكرا لكل المشاركين !!",0;
	disablenpc "Guess The Number";
	end;
	}

L_ToHigh:
	mes .@n$;
	mes "الرقم الذي خمنته كبير جدا!!";
	mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";
	set GuessNDelay, gettimetick(2) + 3;
	close;

L_ToLow:
	mes .@n$;
	mes "الرقم الذي خمنته قليل جدا!!";
	mes "يجب عليك الانتظار 3 ثواني لتحاول مجددا";
	set GuessNDelay, gettimetick(2) + 3;
	close;

OnClock2100:                        // at 21:00 min the event start
    if( $numberguess ) end;            // don't start the event of already on
    set $@guessnr, rand( 1,1000 );    // random number between 1<->1000
    set $numberguess,1;                // => the event start
    enablenpc "Guess The Number";
    announce "your announce",0;        // announce
    end;
}

OnInit:
	disablenpc "Guess The Number";
	set $numberguess,0;
	end;

}

Rage Guy · May 4, 2013

i am going to try it right now

Nothing Happend!

same

//===== Athena Script ========================================
//= Number Guess Event NPC
//===== By: ==================================================
//= Masao
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Guess the right Number and Win a Prize.
//===== Additional Comments: =================================
//= Version 1.0 if there are any Bugs please let me know.
//============================================================

prontera,146,168,4	script	Guess The Number	77,{

	set .@n$,"[مسابقة تخمين الرقم]";
	if(getgmlevel() >= 60) goto L_GMCP;
	if($numberguess == 1) goto L_Guess;
	
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "المسابقة غير متاحة الأن";
	mes "زرني في وقت لاحق ^^";
	mes "فقط لتخمن أرقامي و تفذ ب جوايز";
	close;
	
L_GMCP:
	mes .@n$;
	mes "مرحبا "+strcharinfo(0)+",";
	mes "كيف يمكنني أن اساعدك؟ ";
	next;
	menu "ابدء المسابقة",-,"انهاء المسابقة",L_EndEv,"Set Number Range",L_Number,"Nothing.",L_End;
	
	mes "Allright the Event starts now!";
	set $@guessnr,rand(1,$numberrange);
	set $numberguess,1;
	close2;
	announce "مسابقة تخمين الرقم قد بدئت الأن",0;
	end;

L_EndEv:
	mes .@n$;
	mes "Allright i'll end the Event now!";
	set $numberguess,0;
	close2;
	announce "انتهت المسابقة . لا فائذ",0;
	end;
	
L_Number:
	mes .@n$;
	mes "ادخل الرقم الذي يمكنني التخمين منه";
	mes "The Number shouldn't be lower then 10 or higher as 500.";
	input @numberrange;
	if (@numberrange <= 9) goto L_Low;
	if (@numberrange >= 501) goto L_High;
	set $numberrange,@numberrange;
	mes "ما بين 1 و  "+@numberrange+".";
	close;

L_End:
	mes .@n$;
	mes "سلام";
	close;

L_Low:
	mes .@n$;
	mes "الرقم الذي خمنته قليل ";
	close;

L_High:
	mes .@n$;
	mes "الرقم الذي خمنته كبير ";
	close;
	
L_Guess:
	mes .@n$;
	if( GuessNDelay >= gettimetick(2) )
	{
		mes "";
		close;
	}
	mes "خمن رقم ما بين [10 - 500 ] محاولات غير محدودة . بالتوفيق";
	input @guess;
	if (@guess > $@guessnr) goto L_ToHigh;
	if (@guess < $@guessnr) goto L_ToLow;
	if (@guess == $@guessnr){
	set $numberguess,0;
	mes "مروك لقد خمنت الرقم الصحيح";
	mes "ها هي جائزتك";
	getitem 674,2;
	close2;
	announce strcharinfo(0)+" خمن الرقم الصحيح و فاذ بالمسابقة! شكرا لكل المشاركين !!",0;
	end;
	}

L_ToHigh:
	mes .@n$;
	mes "الرقم الذي خمنته كبير جدا!!";
	mes "";
	close;

L_ToLow:
	mes .@n$;
	mes "الرقم الذي خمنته قليل جدا!!";
	mes "";
	close;
OnMinute15:                        // at 21:00 min the event start
    if( $numberguess ) end;            // don't start the event of already on
    set $@guessnr, rand( 10,500 );    // random number between 1<->1000
    set $numberguess,1;                // => the event start
    announce "مسابقة تخمين الرقم قد بدئت الأن",0;        // announce
    end;
}

Thats my edited one

if u tryed to disapear it disapear this pls

Sign In

Guss The Number Event!

Question

Rage Guy

Link to comment

Share on other sites

8 answers to this question

Recommended Posts

Capuche

Link to comment

Share on other sites

Rage Guy

Link to comment

Share on other sites

Capuche

Link to comment

Share on other sites

Rage Guy

Link to comment

Share on other sites

Capuche

Link to comment

Share on other sites

Rage Guy

Link to comment

Share on other sites

Jaburak

Link to comment

Share on other sites

Rage Guy

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account