-       script  AutoFunEvent    -1,{
OnClock2030:
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 7179,1;
  break;
}
end;
}