Guest User

Untitled

a guest
Aug 17th, 2018
140
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. :AMBIENT
  2. thread 'AMBIENT'
  3. $11041 = Object.Init(#AP_RADAR1_01, 1663.62, -2362.7, 31.72)
  4. Object.RemoveFromMissionCleanupList($11041)
  5. $11040 = Object.Init(#AP_RADAR1_01, 1709.41, -2362.7, 31.72)
  6. Object.RemoveFromMissionCleanupList($11040)
  7. $11039 = Object.Init(#AP_RADAR1_01, -1691.59, -619.7, 29.62)
  8. Object.RemoveFromMissionCleanupList($11039)
  9. $11038 = Object.Init(#AP_RADAR1_01, 1294.89, 1502.55, 26.02)
  10. Object.RemoveFromMissionCleanupList($11038)
  11. 0@ = 0.0
  12. 10@ = 0
  13.  
  14. :AMBIENT_140
  15. wait 10
  16. $11037 == 0
  17. else_jump @AMBIENT_203
  18. Player.Defined($PLAYER_CHAR)
  19. else_jump @AMBIENT_477
  20. 077E: get_active_interior_to $Active_Interior
  21. $Active_Interior == 0
  22. else_jump @AMBIENT_196
  23. $11037 = 1
  24.  
  25. :AMBIENT_196
  26. jump @AMBIENT_234
  27.  
  28. :AMBIENT_203
  29. Player.Defined($PLAYER_CHAR)
  30. else_jump @AMBIENT_477
  31. 077E: get_active_interior_to $Active_Interior
  32. not $Active_Interior == 0
  33. $11037 = 0
  34.  
  35. :AMBIENT_234
  36. 00BF: $Time_Hours = current_time_hours, $Time_Mins = current_time_minutes
  37. if and
  38. $Time_Hours >= 22
  39. 10@ == 0
  40. else_jump @AMBIENT_302
  41. $11036 = Object.Init(#OD_LIGHTBEAM, 154.311, -1951.8, 48.406)
  42. Object.RemoveFromMissionCleanupList($11036)
  43. 10@ = 1
  44.  
  45. :AMBIENT_302
  46. Object.Angle($11041) = 0@
  47. Object.Angle($11040) = 0@
  48. Object.Angle($11039) = 0@
  49. Object.Angle($11038) = 0@
  50. 10@ == 1
  51. else_jump @AMBIENT_366
  52. 0453: set_object $11036 XYZ_rotation 90.0 0@ 0.0
  53.  
  54. :AMBIENT_366
  55. 0079: 0@ += frame_delta_time * 2.0
  56. 0@ > 359.9
  57. else_jump @AMBIENT_403
  58. 0@ -= 360.0
  59.  
  60. :AMBIENT_403
  61. 00BF: $Time_Hours = current_time_hours, $Time_Mins = current_time_minutes
  62. if and
  63. $Time_Hours >= 5
  64. 20 > $Time_Hours
  65. 10@ == 1
  66. 80C2: not sphere_onscreen 154.311 -1951.8 48.406 radius 50.0
  67. else_jump @AMBIENT_477
  68. Object.Destroy($11036)
  69. 10@ = 0
  70.  
  71. :AMBIENT_477
  72. jump @AMBIENT_140
  73. end_thread
RAW Paste Data