home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_setwallcel.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  938 b   |  47 lines
  1. symbols
  2. message        pulse
  3. message        startup
  4. message        user0
  5.  
  6. flex           animspeed
  7.  
  8. int            numcells
  9.  
  10. surface        wall0
  11. surface        wall1
  12. surface        wall2
  13. surface        wall3
  14. surface        wall4
  15. surface        wall5
  16. surface        wall6
  17. surface        wall7
  18. surface        wall8
  19. surface        wall9
  20. end
  21.  
  22. code
  23. user0:
  24.      setwallcel(wall, 0);
  25.      setpulse(animspeed);
  26.      cellnumb=0;
  27.      return;
  28.  
  29.  
  30. pulse:
  31.      if (cellnumb==(numcells-1)) cellnumb=0;
  32.      else cellnumb=cellnumb+1;
  33.      setwallcel(wall0, cellnumb);
  34.      setwallcel(wall1, cellnumb);
  35.      setwallcel(wall2, cellnumb);
  36.      setwallcel(wall3, cellnumb);     
  37.      setwallcel(wall4, cellnumb);
  38.      setwallcel(wall5, cellnumb);
  39.      setwallcel(wall6, cellnumb);
  40.      setwallcel(wall7, cellnumb);
  41.      setwallcel(wall8, cellnumb);     
  42.      setwallcel(wall9, cellnumb);
  43.      return;
  44.  
  45.     
  46.  
  47. end