initevents

loop:
 event macro 15 60
 wait 80

 finditem FD G_3
 if #findkind = -1
  goto loop
 msg all guard$
 wait 600
 exevent Popup #findid 6
 wait 100
 goto loop