daily pastebin goal
11%
SHARE
TWEET

Dutchy3010

a guest Mar 19th, 2009 712 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top