home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_elev_wait.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  2.0 KB  |  103 lines
  1. #
  2. # Droids Cog Script
  3. #
  4. # 00_elev_wait.cog
  5. #
  6. # Basic elevator Cog for Kids(tm)
  7. #
  8. # Desc: 
  9. #     This evelvator will go when the Lower adjoins are crossed. When it 
  10. #    gets to the top, it will wait for the player to cross the upper adjoins
  11. #    to return to frame 0. This gives kids a chance to step off when it gets 
  12. #    to it's destination. 
  13. #
  14. #
  15. # 11/03/97    [DGS]    Created 
  16. # 04/15/98    [DGS]    Added call switches  (The amazing new electronic sounds of Jean Jaques Perry)
  17. #
  18. # --------------------------------------------------------------------------------
  19.  
  20.  
  21. symbols
  22.     message    crossed
  23.     message activated
  24.     message arrived
  25.         
  26.     surface    lower_adjoin0 linkid=1
  27.     surface    lower_adjoin1 linkid=1
  28.     
  29.     surface    upper_adjoin0 linkid=2
  30.     surface    upper_adjoin1 linkid=2
  31.  
  32.     surface    Upper_switch
  33.     surface    lower_switch
  34.  
  35.     thing        elevator
  36.  
  37.     float        start_wait=0.25
  38.     float        sleeptime=2.0
  39.     float        speed=4.0
  40.  
  41. end
  42.  
  43. ## Code Section
  44. code
  45. crossed:
  46.     if (IsThingMoving(elevator)) return;
  47.     
  48.     
  49.     
  50.     if ((GetSenderId() == 1) && (getcurframe(elevator) == 0))
  51.         {
  52.         Sleep(start_wait);            // pause before moving up
  53.         printint(GetSenderId());
  54.         MoveToFrame(elevator, 1, speed);
  55.         }
  56.     if ((GetSenderId() == 2)  && (getcurframe(elevator) == 1))
  57.         {
  58.         Sleep((start_wait * 2));            // pause before moving down
  59.         printint(GetSenderId());
  60.         MoveToFrame(elevator, 0, speed);
  61.         }
  62.  
  63.     return;
  64.  
  65. activated:
  66.     if(getsenderref() == lower_switch)
  67.         {
  68.         if (getcurframe(elevator) == 1)
  69.             {
  70.             setwallcel(upper_switch,0);
  71.             setwallcel(lower_switch,0);
  72.             MoveToFrame(elevator, 0, speed);
  73.             }        
  74.         }  
  75.     
  76.     if(getsenderref() == upper_switch)
  77.         {
  78.         if (getcurframe(elevator) == 0)
  79.             {
  80.             setwallcel(upper_switch,0);
  81.             setwallcel(lower_switch,0);
  82.             MoveToFrame(elevator, 1, speed);
  83.             }        
  84.         }    
  85.      
  86.     return;
  87.  
  88. arrived:    
  89.     if (getcurframe(elevator) == 0)
  90.         {
  91.         setwallcel(upper_switch,1);
  92.         setwallcel(lower_switch,0);
  93.         }
  94.      else
  95.         {
  96.         setwallcel(upper_switch,0);
  97.         setwallcel(lower_switch,1);
  98.         }
  99.     return;
  100.  
  101. end
  102.  
  103.