FlowerCounting Event Script

prontera,106,161,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[.Target];
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;
}