home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_b0_cweight_sand2.cog < prev    next >
Text File  |  1998-11-04  |  1KB  |  83 lines
  1. # Droids COG Script
  2. #
  3. # b0_cweight_sand.cog
  4. #
  5. # Cog designed to generate sand for the counterweight
  6. #
  7. #
  8. # Desc:
  9. #     02/03/98 [DGS]    Created
  10. # 
  11. # ========================================================================================
  12.  
  13. symbols
  14. message        startup
  15. message        pulse
  16. message     user0
  17. message        user1
  18. message        user2
  19.  
  20. thing        spout1a
  21. thing         spout1b
  22. thing        spout1c
  23.  
  24. thing        spout2a
  25. thing         spout2b
  26. thing        spout2c
  27.  
  28.  
  29. template    large_part
  30. template    fine_part
  31.  
  32. template    largeh_part
  33. template    fineh_part
  34.  
  35.  
  36. int        rock=0
  37. int        l_color=0
  38. int        move=10
  39. flex        l_size=0
  40. flex        l_speed=0.1     local      
  41. end
  42.  
  43. code
  44. startup:
  45.     setpulse(0.2);
  46.     return;
  47.  
  48.  
  49. user0:        //stop
  50.     setpulse(0);
  51.     return;
  52.  
  53. user1:        //Fill top
  54.         spoutta = spout1a;
  55.         spouttb = spout1b;
  56.         spouttc = spout1c;
  57.     
  58.     setpulse(0.05);
  59.     return;
  60.  
  61. user2:        //Fill top
  62.         spoutta = spout2a;
  63.         spouttb = spout2b;
  64.         spouttc = spout2c;
  65.     
  66.     setpulse(0.05);
  67.     return;
  68.  
  69.     
  70. pulse:
  71.     creatething(large_part, spout1a);
  72.     creatething(fine_part, spout1a);
  73.  
  74.     creatething(largeh_part, spout1b);
  75.     creatething(fineh_part, spout1b);
  76.     
  77.     return;
  78. end
  79.  
  80.  
  81.  
  82.  
  83.