!7

module TurnOnWebCamRandomly > DynPrintLogAndEnabled {
  start {
    doLater(random(5.0, 20.0), r startCam);
  }
  
  void startAgain {
    doLater(random(360.0), r startCam);
  }
  
  void startCam enter {
    // TODO: choose favorite web cam
    if (enabled) pcall {
      print("Starting web cam");
      dm_startWebCam();
      BufferedImage img = dm_waitForWebCamImage(10.0);
      if (img != null) {
        showAnim(img, "You look so stupid dude", 5.0);
        doLater(5.0, r { infoBox("(just kidding)") });
      }
    }
    doLater(random(20.0, 30.0), r stopCam);
  }
  
  void stopCam enter {
    if (enabled) pcall {
      print("Stopping web cam");
      dm_stopWebCam();
    }
    startAgain();
  }
}