- script lucky_pick -1,{
OnInit:
OnClock0000:
set .LuckyTime,rand(24);

OnMinute00:
if( gettime(3) == .LuckyTime ){
set .DelayMin,rand(60);
sleep ( .DelayMin * 60000 );
while(1){
  query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
  attachrid .@aid;
  if( CheckVending() ){
   DetachRID();
   continue;
   }
  announce strcharinfo(0) +" won in Lucky Pick Event.", 0;
  getitem 7539,1; //Award 1 poring coin
  break;
}
}
end;
}