home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_bafflemix.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.8 KB  |  97 lines
  1. symbols
  2. message        startup
  3. message        timer
  4. message        user1
  5. message        pulse
  6. message        entered
  7.  
  8.  
  9. thing          baffle1a
  10. thing          baffle2a
  11. thing          baffle2b
  12. thing          baffle3a
  13. thing          baffle3b
  14. thing          baffle3c  
  15.  
  16. int            position=0
  17.  
  18. sector         triggersector
  19. end
  20.  
  21. code
  22.  
  23. startup:
  24.      ct1=0;
  25.      position=0;
  26.      position2=0;
  27.      call Xrotate;
  28.      return;  
  29.  
  30. Xrotate:
  31.      position=position+1;
  32.      rotatepivot(baffle2a, 1, 1);
  33.      rotatepivot(baffle2b, 1, 0.9);
  34.      rotatepivot(baffle3a, 1, 1);
  35.      rotatepivot(baffle3b, 1, 0.9);
  36.      rotatepivot(baffle3c, 1, 0.95);  
  37.      settimer(2);
  38.      return;
  39.      
  40. Yrotate:
  41.      position2=position2+1;
  42.      if (position==1) {
  43.           rotatepivot(baffle1a, 1, 0.1);
  44.           rotatepivot(baffle2a, 1, 0.1);
  45.           rotatepivot(baffle3a, 1, 0.1);
  46.      }
  47.      else if (position==2) {
  48.           rotatepivot(baffle1a, 1, 0.1);
  49.           rotatepivot(baffle2b, 1, 0.11);
  50.           rotatepivot(baffle3c, 1, 0.13);
  51.      }
  52.      else if (position==3) {
  53.           rotatepivot(baffle1a, 1, 0.1);
  54.           rotatepivot(baffle2b, 1, 0.11);
  55.           rotatepivot(baffle3c, 1, 0.13);
  56.      }           
  57.      else if (position==4) {
  58.           rotatepivot(baffle3a, 1, 0.13);
  59.           rotatepivot(baffle2b, 1, 0.13);    
  60.      }
  61.        
  62.      return;    
  63.      
  64. pulse:
  65.      if (position2>4) setpulse(0);
  66.      else call Yrotate;
  67.      return;
  68.      
  69. timer:
  70.      if (position<3) call Xrotate;
  71.      return;
  72.      
  73. user1:
  74.      call Yrotate;
  75.      setpulse(0.5);
  76.      if (ct==0) ct=1;
  77.      return;
  78.      
  79. entered:
  80.      if (ct==1) {
  81.           ct=2;         
  82.           dwplaycammyspeech(16009, "m2ca009.wav", 20, 2);
  83.           dwSetRefTopic("Reflection.tpc");
  84.      }
  85.      return;
  86.             
  87.  
  88.  
  89.  
  90.  
  91.      
  92.  
  93. end
  94.  
  95.  
  96.  
  97.