home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_t_light.cog < prev    next >
Text File  |  1998-11-04  |  3KB  |  114 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.      sector    darkroom
  26.     
  27.     thing        light0
  28.     thing        light1
  29.     thing        light2
  30.     thing        light3
  31.     thing        light4
  32.  
  33.  
  34.     float        brightness=1.00
  35.     int        onoff=0        local
  36.      
  37.      sector         darkroom2
  38.      sector         darkroom3
  39.      sector         darkroom4
  40.      sector         darkroom5
  41.      sector         darkroom6
  42.      sector         darkroom7
  43.      sector         darkroom8
  44.      sector         darkroom1
  45.      
  46.      sound     light=amb04pulse.wav local           
  47.      sound     switch=swt00ltswch1.wav local
  48. end
  49.  
  50. ## Code Section
  51. code
  52.  
  53. startup:
  54.     setthinglight(light0, 0 , 0.0);
  55.     if (light1 != 0) setthinglight(light1, 0, 0.0);
  56.     if (light2 != 0) setthinglight(light2, 0, 0.0);
  57.     if (light3 != 0) setthinglight(light3, 0, 0.0);
  58.     if (light4 != 0) setthinglight(light4, 0, 0.0);
  59.     return;
  60.  
  61. activate:
  62.     if (onoff == 0)
  63.         {
  64.         //        Turn the light on
  65.         setthinglight(light0, brightness, 0.0);
  66.         if (light1 != 0) setthinglight(light1, brightness, 0.0);
  67.         if (light2 != 0) setthinglight(light2, brightness, 0.0);
  68.         if (light3 != 0) setthinglight(light3, brightness, 0.0);
  69.         if (light4 != 0) setthinglight(light4, brightness, 0.0);
  70.         onoff = 1;
  71.         setwallcel(switch0,1);
  72.         setwallcel(switch1,1);
  73.           SetSectorLight(darkroom, 0.9, 1);
  74.           SetSectorLight(darkroom2, 0.8, 1);
  75.           SetSectorLight(darkroom3, 0.9, 1);
  76.           SetSectorLight(darkroom4, 0.9, 1);
  77.           SetSectorLight(darkroom5, 0.8, 1);
  78.           SetSectorLight(darkroom6, 0.5, 1);  //secretway
  79.           SetSectorLight(darkroom7, 0.6, 1);
  80.           SetSectorLight(darkroom8, 0.5, 1);
  81.           SetSectorLight(darkroom1, 0.9, 1);
  82.           lighti=playsoundpos(light, SurfaceCenter(switch0), 1.0, -1, -1, 0x1);
  83.           playsoundlocal(switch, 1, 0, 0);           
  84.                }
  85.     else
  86.         {
  87.         //        Turn the light off
  88.         setthinglight(light0, brightness, 0.0);
  89.         if (light1 != 0) setthinglight(light1, 0, 0.0);
  90.         if (light2 != 0) setthinglight(light2, 0, 0.0);
  91.         if (light3 != 0) setthinglight(light3, 0, 0.0);
  92.         if (light4 != 0) setthinglight(light4, 0, 0.0);
  93.         onoff = 0;
  94.             setwallcel(switch0,0);
  95.                 setwallcel(switch1,0);
  96.           SetSectorLight(darkroom, 0.0, 1);
  97.           SetSectorLight(darkroom2, 0.0, 1);
  98.           SetSectorLight(darkroom3, 0.0, 1);
  99.           SetSectorLight(darkroom4, 0.0, 1);
  100.           SetSectorLight(darkroom5, 0.0, 1);
  101.           SetSectorLight(darkroom6, 0.0, 1);
  102.           SetSectorLight(darkroom7, 0.0, 1);
  103.           SetSectorLight(darkroom8, 0.0, 1);
  104.           SetSectorLight(darkroom1, 0.0, 1);
  105.           playsoundlocal(switch, 1, 0, 0);
  106.           stopsound(lighti, 0.5);      
  107.                 }
  108.  
  109. return;
  110.  
  111.  
  112. end
  113.  
  114.