home *** CD-ROM | disk | FTP | other *** search
/ ftp.team17.com 2014 / 2014.05.ftp.team17.com.tar / ftp.team17.com / pub / t17 / demos / pc / PhoenixDemo_De.exe / Tactics / Mission1 / TOWMINER.tac < prev   
Text File  |  1999-02-20  |  1KB  |  61 lines
  1. // A is Beck, B is Tom, C is Reggie, D is where to tow Reggie to....
  2.  
  3. A: CANTPICK
  4. B: CANTPICK
  5. C: CANTPICK
  6.  
  7. Start(A)
  8.  
  9. Label(Adone)
  10. Goto(Adone)
  11. Start(B)
  12.  
  13. Label(MakeProgress)
  14. FlyThrough(BD)
  15. Label(MakingProgress)
  16. // If Beck lags behind, stop and wait for him, then go back for him.
  17. If(Distant[A,B,15000]): Goto(Beck_lagging_behind)
  18. Goto(MakingProgress)
  19.  
  20. Label(Beck_lagging_behind)
  21. // wait for a few seconds, then go back.
  22. Do(Random[B,4])
  23. If(RandomIs[B,0]): Timer(B,3000)
  24. If(RandomIs[B,1]): Timer(B,3500)
  25. If(RandomIs[B,2]): Timer(B,4000)
  26. If(RandomIs[B,3]): Timer(B,4500)
  27. StopAndFire(BA)
  28. Label(Wait_for_Beck)
  29. If(CloseTogether[A,B,8000]): Goto(MakeProgress)
  30. If(Timer[B]): Goto(Wait_for_Beck)
  31. // Go back for Beck.
  32. FlyToFace(BA)
  33. Label(GO_BACK)
  34. If(Distant[A,B,8000]): Goto(GO_BACK)
  35. // wait for a few seconds, then carry on.
  36. Do(Random[B,4])
  37. If(RandomIs[B,0]): Timer(B,1000)
  38. If(RandomIs[B,1]): Timer(B,1500)
  39. If(RandomIs[B,2]): Timer(B,2000)
  40. If(RandomIs[B,3]): Timer(B,2500)
  41. StopAndFire(BA)
  42. Label(Wait_for_Beck_2)
  43. If(Timer[B]): Goto(Wait_for_Beck_2)
  44. Goto(MakeProgress)
  45.  
  46. Label(Bdone)
  47. Goto(Bdone)
  48.  
  49. Start(C)
  50.  
  51. Label(sing)
  52. Do(Random[C,4])
  53. If(RandomIs[C,0]): Timer(C,4000)
  54. If(RandomIs[C,1]): Timer(C,8000)
  55. If(RandomIs[C,2]): Timer(C,10000)
  56. If(RandomIs[C,3]): Timer(C,15000)
  57.  
  58. Label(Cdone)
  59. If(Timer[C]): Goto(Cdone)
  60. //Message(DIALOGUE32)
  61. Goto(sing)