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: 3.51 KB  |  views: 799  |  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.  
  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