home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_t_flicker.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.2 KB  |  77 lines
  1. # Droids COG Script
  2. #
  3. # 00_t_flicker.cog
  4. #
  5. # Cog designed to generate sand for the counterweight
  6. #
  7. #
  8. # Desc:
  9. #     
  10. #    04/25/98 [JP]  Created
  11. # ========================================================================================
  12.  
  13. symbols
  14. message        startup
  15. message        pulse
  16. message          user0
  17. message        user1
  18. message        timer
  19.  
  20. sector         dancesector
  21.  
  22.  
  23. end
  24.  
  25. code
  26.  
  27. user0:        //stop
  28.     setpulse(0);
  29.      print("danceover");
  30.      setsectorlight(dancesector, 0, 0.5);
  31.     return;
  32.  
  33. user1:        //Fill top
  34.      print("user1");
  35.      //setsectorlight(dancesector, 1, 1); 
  36.     flicker=1;
  37.      setpulse(0.5);
  38.      return;
  39.      
  40.      
  41. pulse:
  42.      if (flicker == 1)
  43.           {
  44.           setsectorlight(dancesector, 1, 0.5);
  45.           print("f1 pulse");
  46.           flicker=0;
  47.           setpulse(0);
  48.           call c_pulse2;          
  49.           }
  50.           
  51.      else if (flicker == 0)
  52.           {
  53.           setsectorlight(dancesector, 0, 0.5);
  54.           print("f0 pulse");
  55.           flicker=1;
  56.           setpulse(0);
  57.           call c_pulse3;
  58.           }
  59.           
  60.      return;
  61.  
  62. c_pulse2:
  63.      flicker=0;
  64.      setpulse(0.5);          
  65.      return;
  66.  
  67. c_pulse3:
  68.      flicker=1;
  69.      setpulse(0.5);
  70.      return;     
  71.  
  72. end
  73.  
  74.  
  75.  
  76.  
  77.