SHARE
TWEET

Dutchy3010

a guest Mar 19th, 2009 1,175 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.  
  7. thread 'MAIN'
  8. var
  9. $PLAYER_CHAR: Player
  10. end // var
  11. 01F0: set_max_wanted_level_to 6
  12. set_wb_check_to 0
  13. 00C0: set_current_time 8 0
  14. 04E4: unknown_refresh_game_renderer_at 2488.5601 -1666.84
  15. Camera.SetAtPos(2488.5601, -1666.84, 13.38)
  16. $PLAYER_CHAR = Player.Create(#NULL, 2488.5601, -1666.84, 13.38)
  17. $PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
  18. 07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
  19. Camera.SetBehindPlayer
  20. set_weather 0
  21. wait 0 ms
  22. $PLAYER_CHAR.SetClothes("PLAYER_FACE", "HEAD", Head)
  23. $PLAYER_CHAR.SetClothes("JEANSDENIM", "JEANS", Legs)
  24. $PLAYER_CHAR.SetClothes("SNEAKERBINCBLK", "SNEAKER", Shoes)
  25. $PLAYER_CHAR.SetClothes("VEST", "VEST", Torso)
  26. $PLAYER_CHAR.Build
  27. $PLAYER_CHAR.CanMove = True
  28. fade 1 (out) 0 ms
  29. select_interior 0
  30. 0629: change_stat 181 (islands unlocked) to 4
  31. 016C: restart_if_wasted at 2027.77 -1420.52 15.99 angle 137.0 for_town_number 0
  32. 016D: restart_if_busted at 1550.68 -1675.49 14.51 angle 90.0 for_town_number 0
  33. 0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here ($ONMISSION)
  34. 03E6: remove_text_box
  35. create_thread @MODEL
  36.  
  37. // IDLE LOOP
  38. :leeg
  39. wait 500
  40. jump @leeg
  41.  
  42. end_thread
  43.  
  44. :MODEL
  45. thread 'MODEL'
  46. //Load models
  47. 0247: load_model #GREENWOO
  48. 0247: load_model #bat
  49. 0247: load_model #BFYST
  50. 038B: load_requested_models
  51.  
  52. :MODEL_LOAD
  53. 00D6: if or
  54. 8248:   not model #GREENWOO available
  55. 8248:   not model #bat available
  56. 8248:   not model #BFYST available
  57. 004D: jump_if_false @MODEL_SPAWN                                              
  58. 0001: wait 0 ms
  59. 0002: jump @MODEL_LOAD
  60.  
  61. :MODEL_SPAWN
  62. 0674: set_car_model #GREENWOO numberplate "ABCDEFG"
  63. 00A5: $greenwood = create_car #GREENWOO at 2458.2483 -1659.0264 13.3047
  64. Car.Angle($greenwood)= 270.0
  65. 0224: set_car $greenwood health_to 250
  66. 0186: $m1 = create_marker_above_car $greenwood
  67. 01B2: give_actor $PLAYER_ACTOR weapon 5 ammo 10 // Load the weapon model before using this
  68. 01B9: set_actor $PLAYER_ACTOR armed_weapon_to 5
  69.  
  70. repeat
  71. wait 0
  72. until Actor.InCar($PLAYER_ACTOR, $greenwood)
  73. Marker.Disable($m1)
  74.  
  75.                                                                                  
  76. 0004: $coordinaat_x = 2100.9604
  77. 0004: $coordinaat_y = -1366.8369
  78. 0004: $coordinaat_z = 23.9844
  79.  
  80. $coordinaat = Marker.CreateIconAndSphere(0, $coordinaat_x, $coordinaat_y, $coordinaat_z)
  81.  
  82. :MODEL_WRECKED
  83. wait 0 ms                                        
  84. if    
  85.   0119:   car $greenwood wrecked              
  86.   004D: jump_if_false @MODEL_END                                
  87. wait 0 ms                                              
  88. jump @MODEL
  89.  
  90. :MODEL_END
  91. if
  92.  01AE:   car $greenwood sphere 0 near_point $coordinaat_x $coordinaat_y radius 5.0 5.0 stopped
  93.  004D: jump_if_false @MODEL_WRECKED
  94. wait 0 ms
  95.  
  96. 10@ = Actor.Create(CIVFEMALE, #BFYST, 2094.3499, -1342.9515, 23.9844)
  97. Marker.Disable($coordinaat)
  98. Actor.Angle(10@) = 88.44
  99. 0187: $m2 = create_marker_above_actor 10@
  100. actor.WeaponAccuracy(10@)= 100
  101. actor.Health(10@) = 250
  102. 01B2: give_actor 10@ weapon 5 ammo 1000 // Load the weapon model before using this
  103. 01B9: set_actor 10@ armed_weapon_to 5
  104. 05E2: AS_actor 10@ kill_actor $PLAYER_ACTOR
  105.  
  106. repeat
  107. wait 0 ms
  108. until actor.Dead(10@)
  109.  
  110. 0394: play_music 1
  111. 01E3: show_text_1number_styled GXT 'M_PASS' number 10000 time 5000 style 1 // MISSION PASSED!~n~~w~$~1~
  112. Player.Money($PLAYER_CHAR) += 10000
  113. 0249: release_model #GREENWOO
  114. 0249: release_model #BAT
  115. 0249: release_model #BFYST
  116. Marker.Disable($m2)
  117.  
  118. 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