home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 October / PCW1001.iso / Games / startopiademo1.exe / missions / 00 / tourists00.txt < prev    next >
Text File  |  2001-05-10  |  1KB  |  71 lines
  1. ;TOURISTS**********************************************************************
  2. :TouristMain
  3. if
  4.     turn > touristship
  5. then
  6.     multitrigger :touristrequest
  7.     set touristship ((turn + 10000) + (rnd%10000))
  8. end
  9.  
  10. :TouristRequest
  11. if
  12.     0
  13. then
  14.     set TouristAccept 3
  15.     set TouristRequest 1
  16.     set TouristTaken 0
  17.     disable
  18. end
  19.  
  20. :TouristRequest01
  21. if
  22.     TouristRequest > 0
  23. then
  24.     incoming ship_comms respond TouristAccept within 1440 skill ((rnd%10000) + 100) "events_touristship01"
  25. ;    status_message "DEBUG ** Tourists have been created ** DEBUG"
  26.     set TouristRequest 0
  27. end
  28.  
  29. :TouristAccept
  30. if
  31.     TouristTaken = 0
  32.     TouristAccept = 2
  33. then
  34.     set TouristArrive 0
  35.     set TouristMax ((rnd%segmentdecks) + segmentdecks)
  36.     set TouristAccept 3
  37.     multitrigger :TouristTaken
  38. end
  39.  
  40. :TouristAcceptLate
  41. if
  42.     TouristTaken = 1
  43.     TouristAccept = 2
  44. then
  45.     incoming ship_comms within 720 "events_Edocking01"
  46.     set TouristAccept 3
  47. end
  48.  
  49. :TouristIgnoreDecline
  50. if
  51.     TouristAccept < 2
  52. then
  53.     set TouristAccept 3
  54. end
  55.  
  56. :TouristTaken
  57. if
  58.     0
  59. then
  60.     set TouristTaken 1
  61.     disable
  62. end
  63.  
  64. :TouristGenerator
  65. if
  66.     TouristArrive < TouristMax
  67. then
  68.     place_peep ((rnd%9) + 5) mood fun ((rnd%1000) + 3000)
  69.     set TouristArrive (TouristArrive + 1)
  70. end
  71.