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

8 answers to this question

Recommended Posts

Capuche

Rage Guy

Capuche

Rage Guy

Capuche

Rage Guy

Jaburak

Rage Guy

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account