Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Dutchy3010

By: a guest on Mar 19th, 2009  |  syntax: None  |  size: 2.83 KB  |  views: 500  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. {
  2.   use macro (Ctrl+J) "headsa"
  3.   to insert a file header      
  4. }
  5. {$VERSION 3.0.0000}
  6. var
  7.  $PLAYER_CHAR: Player
  8. end // var
  9. 03A4: name_thread 'MAIN'
  10. 01F0: set_max_wanted_level_to 6
  11. 0111: toggle_wasted_busted_check 0
  12. 00C0: set_current_time_hours_to 8 minutes_to 0
  13. 04E4: unknown_refresh_game_renderer_at 2488.56 -1666.84
  14. 03CB: set_rendering_origin_at 2488.56 -1666.84 13.38
  15. 0053: $PLAYER_CHAR = create_player #NULL at 2488.56 -1666.84 13.38
  16. 01F5: $PLAYER_ACTOR = create_player_actor $PLAYER_CHAR
  17. 07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
  18. 0373: set_camera_directly_behind_player
  19. 01B6: set_weather 0
  20. 0001: wait 0 ms
  21. 087B: set_player $PLAYER_CHAR clothes_texture "PLAYER_FACE" model "HEAD" body_part 1
  22. 087B: set_player $PLAYER_CHAR clothes_texture "JEANSDENIM" model "JEANS" body_part 2
  23. 087B: set_player $PLAYER_CHAR clothes_texture "SNEAKERBINCBLK" model "SNEAKER" body_part 3
  24. 087B: set_player $PLAYER_CHAR clothes_texture "VEST" model "VEST" body_part 0
  25. 070D: rebuild_player $PLAYER_CHAR
  26. 01B4: toggle_player $PLAYER_CHAR can_move 1
  27. 016A: fade 1 time 0
  28. 04BB: select_interior 0
  29. 0629: change_integer_stat 181 to 4
  30. 016C: restart_if_wasted_at 2027.77 -1420.52 15.99 angle 137.0 town_number 0
  31. 016D: restart_if_busted_at 1550.68 -1675.49 14.51 angle 90.0 town_number 0
  32. 0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here
  33. 0004: $DEFAULT_WAIT_TIME = 250
  34. 03E6: remove_text_box
  35.  
  36. 004F: create_thread @BALKJE
  37. // put your create_thread commands here
  38.  
  39.  
  40.  
  41. :MAIN_LOOP
  42. 0001: wait $DEFAULT_WAIT_TIME ms
  43. 00BF: $TIME_HOURS = current_time_hours, $TIME_MINS = current_time_minutes
  44. 0002: jump @MAIN_LOOP
  45.  
  46. :BALKJE
  47. thread "BALKJE"
  48.  
  49. :SWEET4_47
  50. Model.Load(#GREENWOO)
  51. 038B: load_requested_models
  52.  
  53. :SWEET4_103
  54. if
  55.    not Model.Available(#GREENWOO)
  56. else_jump @SWEET4_152
  57. wait 0
  58. jump @SWEET4_103
  59.  
  60. :SWEET4_152
  61. 1@ = 2508.16 // floating-point values
  62. 2@ = -1666.47 // floating-point values
  63. 3@ = 13.0 // floating-point values
  64. 4@ = 16.0 // floating-point values
  65. 0395: clear_area 1 at 1@ 2@ 3@ range 6.0
  66. 5@ = Car.Create(#GREENWOO, 1@, 2@, 3@)
  67. 0229: set_car 5@ color_to 59 34
  68. Car.Angle(5@) = 4@
  69. Car.Health(5@) = 1450
  70. $health = Car.Health(5@)
  71.  
  72. if
  73.   $health > 250 // integer values
  74. else_jump @SWEET4_11471
  75. $health -= 250 // integer values
  76.  
  77. :SWEET4_11471
  78. 0084: $health2 = $health // integer values and handles
  79. $health2 /= 12 // integer values
  80.  
  81. 0151: remove_status_text $health2
  82. 03C4: set_status_text_to $health2 0 'SWE4_08'  // CAR HEALTH
  83.  
  84. repeat
  85. wait 0 ms
  86. $health = Car.Health(5@)
  87.  
  88. 0084: $health2 = $health // integer values and handles
  89. if
  90.   $health2 > 250 // integer values
  91. else_jump @SWEET4_11472
  92. $health2 -= 250 // integer values
  93.  
  94. :SWEET4_11472
  95. $health2 /= 12 // integer values
  96.  
  97. until  $health < 250
  98.  
  99. 0151: remove_status_text $health2
  100.  
  101. end_thread