home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_elev_simple.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1016 b   |  56 lines
  1. #
  2. # Droids Cog Script
  3. #
  4. # 00_elev_simple.cog
  5. #
  6. # Basic elevator Cog
  7. #
  8. # Desc: 
  9. #     This elevator will go up to frame one, sleep, then come back down to frame 0 when
  10. #     entered from the bottom.  When entered from the top, it should stay at the bottom.
  11. #    Suspicisously like the std_elev in Jedi Knight. 
  12. #
  13. #
  14. # 11/03/97    [DGS]    Created (sort of)
  15. #
  16. # --------------------------------------------------------------------------------
  17.  
  18.  
  19. symbols
  20.     message    crossed
  21.     message    arrived
  22.     message    timer
  23.  
  24.     surface    lower_adjoin0
  25.     surface    lower_adjoin1
  26.  
  27.     thing        elevator
  28.  
  29.     float        start_wait=0.25
  30.     float        sleeptime=2.0
  31.     float        speed=4.0
  32. end
  33.  
  34. ## Code Section
  35. code
  36. crossed:
  37.     if (IsThingMoving(elevator)) return;
  38.     if (GetCurFrame(elevator) != 0) return;
  39.  
  40.     Sleep(start_wait);            // pause before moving up
  41.  
  42.     MoveToFrame(elevator, 1, speed);
  43.     return;
  44.  
  45. arrived:
  46.     if (GetCurFrame(elevator) == 0) return;
  47.     SetTimer(sleeptime);
  48.     return;
  49.  
  50. timer:    
  51.     MoveToFrame(elevator, 0, speed);
  52.     return;
  53.  
  54. end
  55.  
  56.