Advertisement
Guest User

Dutchy3010

a guest
Mar 19th, 2009
999
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.91 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement