- 0
Sign in to follow this
Followers
0
can someone fix this fast type event??? its working but there are some malfunctions
Asked by
xlaws27
-
Recently Browsing 0 members
No registered users viewing this page.

here are the errors/malfunctions
1.instead of starting from round 1, it will start at round 6 ( it should start at round 1 )
2. theres no close button when you clicked it while waiting for 5 seconds for the next round
( there should be a close button )
3. There's no close button when you clicked it while waiting for the event. ( there should be a close button )
Here's the script
prontera,157,168,5 script Fast-Type Event 421,{ if(getgroupid() >= 99) { mes "Fast-Type event is" + (.Event?"^00FF00 ON^000000":"^FF0000 OFF^000000"); if(select((!.Event?"^00FF00Start":"^FF0000End") + " Event^000000","Normal Player") == 2) { next; goto PlayerMenu; } switch(.Event) { case 1: close2; .Event = 0; .Round = 0; .String$ = ""; announce "Fast-Type Event: A GM has ended the event.",0; break; end; default: close2; donpcevent "Fast-Type Event::OnStart"; end; } end; } PlayerMenu: if(!.Event) { mes "There is no Event right now."; } else if(.String$ == "") { npctalk "Wait for the next round.."; } else { mes "Type the Correct Sentences."; mes "^FF0000" + .String$ + "^000000"; input .@Type$; if( .String$ == "" ) { announce "Sorry, " + strcharinfo(0) + " is a bit slow..",0; close; } if (.String$ == .@Type$) { getitem 7227, 5; //EDIT THE PRIZE HERE announce "Fast-Type Event: " + strcharinfo(0) + " typed the correct string!",0; .String$ = ""; .Round++; close2; donpcevent "Fast-Type Event::OnStart2"; end; } else { close2; announce "" + strcharinfo(0) + " mispelled some strings XD",0; end; } } end; OnMinute52: if(.Event) end; donpcevent "Fast-Type Event::OnStart"; end; OnStart: announce "Fast-Type Event has started at Event AREA !",0; L_Begin: .Event = 1; .String$ = ""; while(getstrlen( .String$ ) < .Length) { .String$ = .String$ + .List$[rand( getarraysize(.List$))]; } announce "Round "+(.Round+1)+" Started !",0; end; OnStart2: sleep2 5000; if(.Round == .Rounds) { if(!.Event) end; announce "Fast-Type Event: Event is over!",0; .Event = 0; .Round = 0; end; } if(!.Event) end; announce "Fast-Type Event: Next round starts in 5 seconds...",0; sleep2 5000; if(!.Event) end; goto L_Begin; OnInit: .Length = 28; //EDIT THE LENGTH OF CHARACTERS TO BE TYPED .Round = 5; //EDIT THE ROUNDS setarray .List$,";","B","_","D","E","%","=","H","I","J","/","L","M","N","6","P","Q","]","S","T",","; //YOU CAN ADD LETTERS, DIGITS & SYMBOLS HERE.. end;}hope you can help me. thanks in advance
:) 
Share this post
Link to post
Share on other sites