home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_cc_remote.cog < prev    next >
Text File  |  1998-11-04  |  842b  |  44 lines
  1. #
  2. # CC_Remote.cog
  3. #
  4. # Remote camera Cog
  5. #
  6. #
  7. # (C) 1998 Lucas Learning Limited All Rights Reserved
  8. # ========================================================================================
  9.  
  10. symbols
  11. message            activate
  12. message           timer
  13.  
  14. thing             camera1_g
  15. surface            button_s
  16. sound        act_snd=SWT00DrSwtch.WAV   local
  17.                
  18. end
  19.  
  20. # ========================================================================================
  21.  
  22. code
  23. activate:
  24.     print("camera on!");
  25.     setwallcel(button_s,1);
  26.     garbage = playsoundpos(act_snd,getsurfacecenter(button_s),0.5,-1,-1,0);
  27.     sleep(1);
  28.     dwFreezePlayer();
  29.     SetCameraFocus(0, camera1_g);
  30.     SetCurrentCamera(0);
  31.     settimer(5);
  32.     return;
  33.     
  34. timer:
  35.     print("camera off!");
  36.     setwallcel(button_s,0);
  37.     SetCurrentCamera(7);
  38.     dwUnfreezePlayer();
  39.     return;
  40.  
  41.  
  42. end
  43.  
  44.