home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_lightswitch.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.7 KB  |  78 lines
  1. #
  2. # Droids Cog Script
  3. #
  4. # 00_lightswitch.cog
  5. #
  6. # Light with Lightswitch cog
  7. #
  8. # Desc: 
  9. #     When switched on, will turn the various lights connected to it 
  10. #     on. Kind of like those things is rooms, you know, lightswitches?
  11. #
  12. # 11/26/97    [DGS]    Created 
  13. #
  14. # --------------------------------------------------------------------------------
  15.  
  16.  
  17. symbols
  18.     
  19.     message    activate
  20.     message    startup
  21.  
  22.     surface    switch0
  23.     surface    switch1
  24.     
  25.     thing        light0
  26.     thing        light1
  27.     thing        light2
  28.     thing        light3
  29.     thing        light4
  30.  
  31.  
  32.     float        brightness=1.00
  33.     int        onoff=0        local        
  34. end
  35.  
  36. ## Code Section
  37. code
  38.  
  39. startup:
  40.     setthinglight(light0, 0 , 0.0);
  41.     if (light1 != 0) setthinglight(light1, 0, 0.0);
  42.     if (light2 != 0) setthinglight(light2, 0, 0.0);
  43.     if (light3 != 0) setthinglight(light3, 0, 0.0);
  44.     if (light4 != 0) setthinglight(light4, 0, 0.0);
  45.     return;
  46.  
  47. activate:
  48.     if (onoff == 0)
  49.         {
  50.         //        Turn the light on
  51.         setthinglight(light0, brightness, 0.0);
  52.         if (light1 != 0) setthinglight(light1, brightness, 0.0);
  53.         if (light2 != 0) setthinglight(light2, brightness, 0.0);
  54.         if (light3 != 0) setthinglight(light3, brightness, 0.0);
  55.         if (light4 != 0) setthinglight(light4, brightness, 0.0);
  56.         onoff = 1;
  57.         setwallcel(switch0,1);
  58.         setwallcel(switch1,1);
  59.                 }
  60.     else
  61.         {
  62.         //        Turn the light off
  63.         setthinglight(light0, brightness, 0.0);
  64.         if (light1 != 0) setthinglight(light1, 0, 0.0);
  65.         if (light2 != 0) setthinglight(light2, 0, 0.0);
  66.         if (light3 != 0) setthinglight(light3, 0, 0.0);
  67.         if (light4 != 0) setthinglight(light4, 0, 0.0);
  68.         onoff = 0;
  69.             setwallcel(switch0,0);
  70.                 setwallcel(switch1,0);
  71.                 }
  72.  
  73. return;
  74.  
  75.  
  76. end
  77.  
  78.