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