need help making this an automated event

[darking123]

i want this 2 events to be automated

please edit it for me

there prizes should by 674,10

aldebaran,116,144,5 script Flower Counting 437,{
if( getgmlevel() < 60 ) end;
if( select( "Start Game:RESET" ) == 2 ){
killmonster strcharinfo(3),"All";
setcell strcharinfo(3),152,145,160,154,cell_basilica,0;
deletepset 1;
delwaitingroom;
mes "Done";
close;
}
setarray .MonsterList[0],1934,1935,1936;
deletearray .MobCount[0],getarraysize( .MonsterList );
for( set .@x,153; .@x <= 159; set .@x,.@x + 1 ){
for( set .@y,146; .@y <= 153; set .@y,.@y + 1 ){
 set .Summon,rand( getarraysize( .MonsterList ) );
 monster strcharinfo(3),.@x,.@y,"Count Me",.MonsterList[.Summon],1;
 set .MobCount[.Summon],.MobCount[.Summon] + 1;
 sleep2 5;
 }
}
setcell strcharinfo(3),152,145,160,154,cell_basilica,1;
set .TargetID,rand( getarraysize( .MonsterList ) );
set .TargetCount,.MobCount[.TargetID];
deletepset 1;
defpattern 1,"([^:]+):.*"+.TargetCount+".*", "iRight";
activatepset 1;
delwaitingroom;
waitingroom "Target : "+getmonsterinfo( .MonsterList[.TargetID],0 )+" ",0;
npctalk "Count for the Target Monster's Amount to Win the Game.";
message strcharinfo(0),"Answer for this Round is  [ "+.TargetCount+" ].";
close;
iRight:
delwaitingroom;
npctalk "[ "+strcharinfo(0)+" ] , You're Correct.";
setcell strcharinfo(3),152,145,160,154,cell_basilica,0;
killmonster strcharinfo(3),"All";
deletepset 1;
end;
}

and this

aldebaran,116,138,5 script Monster Wiki 439,{
while( 1 ){
mes "Event Status : "+((!.WikiStatus )?"^FF0000OFF":"^0000FFON")+" ^000000";
mes "^00FF00_______________________________^000000";
mes "How may i assist you, ^0000FF"+strcharinfo(0)+"^000000 ?";
next;
switch( select( ( !.WikiStatus || !.MonsterID )?"":"Write Answer",
"^00FF00Information^000000",
( getgmlevel() < 60 )?"":"^FF0000[GM]^000000 "+(( !.WikiStatus )?"Start Event":"Stop Event"),
( getgmlevel() < 80 )?"":"^FF0000[GM]^000000 Setting" )){
Case 1:
if( getgmlevel() >= 80 ) mes "Answer : ^FF0000"+.Answer$+"^000000";
switch( .Mode ){
 Case 0:
  mes "Please Input the ^FF0000NAME^000000 of monster.";
  mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000";
  mes "Example : ^0000FFPoring^000000";
  break;
 Case 1:
  mes "Please Input the ^FF0000LEVEL^000000 of monster.";
  mes "Example. ^0000FF10 / 20 / 35 / 75^000000";
  set .Hint,getmonsterinfo( .MonsterID,1 ) - rand(30);
  mes "^FF0000Hint^000000 : Between "+( (( .Hint ) < 1 )?"0":.Hint)+" ~ "+( getmonsterinfo( .MonsterID,1 ) + rand(30) )+" ";
  break;
 Case 2:
  mes "Please Input the ^FF0000SIZE^000000 of monster.";
  mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000";
  mes "Example. ^0000FFSmall / Medium / Large^000000";
  break;
 Case 3:
  mes "Please Input the ^FF0000RACE^000000 of monster.";
  mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000";
  mes "^FF0000List of Available Answer^000000";
  mes "^00FF00_______________________________^000000";
  for( set .@i,0; .@i < getarraysize( .Race$ ); set .@i,.@i + 1 ){
mes " - ^0000FF"+.Race$[.@i]+"^000000";
}
  break;
 Case 4:
  mes "Please Input the ^FF0000ELEMENT^000000 of monster.";
  mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000";
  mes "^FF0000List of Available Answer^000000";
  mes "^00FF00_______________________________^000000";
  for( set .@i,0; .@i < getarraysize( .Element$ ); set .@i,.@i + 1 ){
mes " - ^0000FF"+.Element$[.@i]+"^000000";
}
  break;
 }
input @Guess$;
if( .MonsterID == 0 || @Guess$ != .Answer$ ){
 mes "Sorry, you are ^FF0000WRONG^000000 or ^FF0000Too Late^000000 for the Answer.";
 close;
}else{
 mes "^FF0000Correct^000000 !! I wonder how good are you in this.";
 stopnpctimer;
 getitem $WikiItemID,$WikiAmount;
 close2;
 setnpcdisplay( strnpcinfo(0),rand( 436,439 ) );
 announce "You're Right [ "+strcharinfo(0)+" ] . The Answer is [ "+.Answer$+" ]",bc_npc,0xED1ADC;
 set .MonsterID,0;
 doevent strnpcinfo(0)+"::OnStart";
}
end;

Case 2:
mes "^FF0000PsychoRO^000000 is the ^0000FFFirst Server^000000 who have this Event.";
next;
mes "This is a ^FF0000Monster Wiki^000000";
mes "I will ask you everything about ^FF0000Monster^000000.";
mes "^00FF00_______________________________^000000";
mes "The ^0000FFQuestions^000000 could be either in ^FF0000Name , Race , Element , Level , Size ^000000 of Monster.";
next;
break;
Case 3:
if( !$WikiRound || getitemname( $WikiItemID ) == "null" ){
 mes "Please Configure your ^FF0000NPC Setting^000000 before you start.";
 next;
 break;
 }
set .WikiStatus,( .WikiStatus )?"0":"1";
mes "Event is now "+( .WikiStatus )?"^0000FFStarted":"^FF0000Stopped"+"^000000";
announce "Monster Wiki Event is now "+( .WikiStatus )?"Started":"Stopped"+"^000000",bc_blue;
close2;
if( .WikiStatus ){
 set .Round,0;
 doevent strnpcinfo(0)+"::OnStart";
 }
end;
Case 4:
while( 1 ){
mes "How can i assist you ^FF0000GM^000000?";
next;
switch( select( "Prize [ ^0000FF"+$WikiAmount+" x "+getitemname( $WikiItemID )+"^000000 ]",
 "Round [ ^0000FF"+$WikiRound+"^000000 ]",
 "^0000FFBack^000000" )){
 Case 1:
  mes "Input the ^FF0000Item ID^000000";
  do{
input $WikiItemID,501,32767;
  }while( getitemname( $WikiItemID ) == "null" );
  mes "Input the ^FF0000Amount^000000";
  input $WikiAmount,1,30000;
  next;
  break;
 Case 2:
  mes "Input the ^FF0000Max. Round^000000";
  input $WikiRound,1,50;
  next;
  break;
 Case 3:
  mes "Redirect back to menu...";
  next;
  }
  break;
 }
break;
}
}
OnMinute00:
for( set .@i,3; .@i > 0 ; set .@i,.@i - 1 ){
announce "Monster Wiki Event will take place in Prontera within "+.@i+" Minutes",bc_blue;
sleep 60000;
}
set .Round,0;
set .WikiStatus,1;
OnStart:
sleep2 5000;
set .Round,.Round + 1;
if( .Round > $WikiRound ){
mapannounce .Map$,"Monster Wiki Event has Ended. Thank for Participate in this Event.",bc_map,0x7766EE;
set .WikiStatus,0;
sleep2 5000;
//mapwarp .Map$,"prontera",155,171;
setnpcdisplay( strnpcinfo(0),rand( 436,439 ) );
}else{
npctalk "Round [ "+.Round+" ] within 5 Seconds.";
sleep2 5000;
do{
 set .MonsterID,rand( 1002,1999 );
}while( getmonsterinfo( .MonsterID,0 ) == "null" || getmonsterinfo( .MonsterID,0 ) == "" );
set .Mode,rand(5);
switch( .Mode ){
 Case 0: set .Answer$, getmonsterinfo( .MonsterID,0 ); break; // Name
 Case 1: set .Answer$, getmonsterinfo( .MonsterID,1 ); break; // Level
 Case 2: set .Answer$, .Size$[ getmonsterinfo( .MonsterID,18 ) ]; break; // Size
 Case 3: set .Answer$, .Race$[ getmonsterinfo( .MonsterID,19 ) ]; break; // Race
 Case 4: set .Answer$, .Element$[ getmonsterinfo( .MonsterID,20 ) ]; break; // Element
 }
setnpcdisplay( strnpcinfo(0),.MonsterID );
npctalk "Let Guess the Info Of this Monster..";
initnpctimer;
}
end;
OnTimer10000:
npctalk "20 Left...";
end;
OnTimer20000:
npctalk "10 Left...";
end;
OnTimer30000:
mapannounce .Map$,"Time's Up. All Failed in this Round.",bc_map,0x00FF00;
donpcevent strnpcinfo(0)+"::OnStart";
set .MonsterID,0;
stopnpctimer;
end;
OnInit:
OnWhisperGlobal:
set .Map$,"prontera";
setarray .Size$[0],"Small","Medium","Large";
setarray .Race$[0],"Formless","Undead","Brute","Plant","Insect","Fish","Demon","Demi Human","Angel","Dragon";
setarray .Element$[0],"Neutral","Water","Earth","Fire","Wind","Poison","Holy","Dark","Spirit","Undead";
end;


}

also what is the use if i put OnClock00:

??

Edited March 10, 2012 by Arcenciel
Codeboxed

[Emistry]

first script...

find this

setarray .MonsterList[0],1934,1935,1936;

add above

OnMinute00:

find this

npctalk "[ "+strcharinfo(0)+" ] , You're Correct.";

add below

getitem 674,10;

second script..

it is already an automated script.

---

OnCock - Certain Hour you specified.

OnMinute - every x-th minute of the hours.

[darking123]

thank you