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 24th, 2009  |  syntax: None  |  size: 2.46 KB  |  views: 326  |  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. // put your create_thread commands here
  36.  
  37. create_thread @MODEL
  38.  
  39. // IDLE LOOP
  40. :leeg
  41. wait 500
  42. jump @leeg
  43.  
  44. end_thread
  45.  
  46. :MODEL
  47. thread 'MODEL'
  48. 0518: $ASSET = create_available_asset_pickup 'PROP_3' at 2487.5598 -1658.3495 13.3528  price 100
  49. 0213: $HEALTH = create_pickup #HEALTH type 3 at 2484.5598 -1658.3495 13.3528
  50. 032B: $MINIGUN = create_weapon_pickup #MINIGUN group 15 ammo 5000 at 2490.5598 -1658.3495 13.3528
  51. 03DC: 1@ = create_marker_above_pickup $MINIGUN
  52.  
  53. repeat
  54. wait 0
  55. until 0214:   pickup $MINIGUN picked_up
  56.  
  57. 0164: disable_marker 1@
  58.  
  59. 0247: load_model #BFYST
  60. 0247: load_model #MINIGUN
  61. 038B: load_requested_models
  62.  
  63. :MODEL_LOAD
  64. if and
  65. 8248:   not model #BFYST available
  66. 8248:   not model #MINIGUN available
  67. else_jump @MODEL_SPAWN
  68. wait 0 ms
  69. jump @MODEL_LOAD
  70.  
  71. :MODEL_SPAWN
  72. 10@ = Actor.Create(CIVFEMALE, #BFYST, 2488.5601, -1680.84, 13.3438 )
  73. 01B2: give_actor 10@ weapon 38 ammo 500 // Load the weapon model before using this
  74. 02E2: set_actor 10@ weapon_accuracy_to 90
  75. 0223: set_actor 10@ health_to 1000
  76.  
  77. 05E2: AS_actor 10@ kill_actor $PLAYER_ACTOR
  78.  
  79. repeat
  80. wait 100
  81. until 0118:   actor 10@ dead
  82.  
  83. 0109: player $PLAYER_CHAR money += 100
  84.  
  85. repeat
  86. wait 100
  87. until 0214:   pickup $ASSET picked_up
  88.  
  89. 00BC: show_text_highpriority GXT 'MCAT07E' time 3000 flag 1  
  90.  
  91.  
  92. end_thread