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: 1.91 KB  |  views: 380  |  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 @SPHERE
  36.  
  37. // IDLE LOOP
  38. :leeg
  39. wait 500
  40. jump @leeg
  41.  
  42. end_thread
  43.  
  44. :SPHERE
  45. thread 'SPHERE'
  46.  
  47. //Load models
  48. 0247: load_model #GREENWOO
  49. 038B: load_requested_models
  50.  
  51. :MODEL_LOAD
  52. 00D6: if  
  53. 8248:   not model #GREENWOO available
  54. 004D: jump_if_false @MODEL_SPAWN                                              
  55. 0001: wait 0 ms
  56. 0002: jump @MODEL_LOAD
  57.  
  58. :MODEL_SPAWN
  59. 00A5: $greenwood = create_car #GREENWOO at 2458.2483 -1659.0264 13.3047
  60. Car.Angle($greenwood)= 270.0
  61. 0186: $m1 = create_marker_above_car $greenwood
  62. wait 5000 ms
  63. Marker.Disable($m1)
  64.  
  65. 0249: release_model #GREENWOO
  66.  
  67.  
  68. end_thread