Advertisement
McFree

Untitled

Aug 19th, 2017
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance Force
  2. #Include API.ahk
  3. #MaxThreads 5
  4. SetTimer, HP, Off
  5. SetTimer, ARM, Off
  6. SetTimer, WEAP, Off
  7. SetTimer, vHP, Off
  8. HP_Overlay := -1
  9. ARM_Overlay := -1
  10. WEAP_Overlay := -1
  11. vHP_Overlay := -1
  12.  
  13. ;IniSettings
  14. ;
  15. ;           MAIN
  16. ;
  17. IniRead, AutoOn, Settings.ini, Main, AutoOn , 0
  18. IniRead, MessageColor, Settings.ini, Main, MessageColor , 0xFF00d900
  19. ;
  20. ;           HEALTH
  21. ;
  22. IniRead, HPPosX, Settings.ini, Health, PosX, 30
  23. IniRead, HPPosY, Settings.ini, Health, PosY, 360
  24. IniRead, HPColor, Settings.ini, Health, Color , 0xFFFFFF00
  25. IniRead, HPFont, Settings.ini, Health, Font, "Tahoma"
  26. IniRead, HPFontSize, Settings.ini, Health, FontSize, 7
  27. IniRead, HPFontBold, Settings.ini, Health, FontBold, "false"
  28. IniRead, HPFontItalic, Settings.ini, Health, FontItalic, "false"
  29. IniRead, HPTextShadow, Settings.ini, Health, TextShadow, "true"
  30. ;
  31. ;           ARMOR
  32. ;
  33. IniRead, ARMPosX, Settings.ini, Armor, PosX, 30
  34. IniRead, ARMPosY, Settings.ini, Armor, PosY, 380
  35. IniRead, ARMColor, Settings.ini, Armor, Color , 0xFFFFFF00
  36. IniRead, ARMFont, Settings.ini, Armor, Font, "Tahoma"
  37. IniRead, ARMFontSize, Settings.ini, Armor, FontSize, 7
  38. IniRead, ARMFontBold, Settings.ini, Armor, FontBold, "false"
  39. IniRead, ARMFontItalic, Settings.ini, Armor, FontItalic, "false"
  40. IniRead, ARMTextShadow, Settings.ini, Armor, TextShadow, "true"
  41. ;
  42. ;           WEAPON
  43. ;
  44. IniRead, WEAPONPosX, Settings.ini, Weapon, PosX, 30
  45. IniRead, WEAPONPosY, Settings.ini, Weapon, PosY, 400
  46. IniRead, WEAPONColor, Settings.ini, Weapon, Color , 0xFFFFFF00
  47. IniRead, WEAPONFont, Settings.ini, Weapon, Font, "Tahoma"
  48. IniRead, WEAPONFontSize, Settings.ini, Weapon, FontSize, 7
  49. IniRead, WEAPONFontBold, Settings.ini, Weapon, FontBold, "false"
  50. IniRead, WEAPONFontItalic, Settings.ini, Weapon, FontItalic, "false"
  51. IniRead, WEAPONTextShadow, Settings.ini, Weapon, TextShadow, "true"
  52. ;
  53. ;           VEHICLE
  54. ;
  55. IniRead, VEHPosX, Settings.ini, Vehicle, PosX, 30
  56. IniRead, VEHPosY, Settings.ini, Vehicle, PosY, 420
  57. IniRead, VEHColor, Settings.ini, Vehicle, Color , 0xFFFFFF00
  58. IniRead, VEHFont, Settings.ini, Vehicle, Font, "Tahoma"
  59. IniRead, VEHFontSize, Settings.ini, Vehicle, FontSize, 7
  60. IniRead, VEHFontBold, Settings.ini, Vehicle, FontBold, "false"
  61. IniRead, VEHFontItalic, Settings.ini, Vehicle, FontItalic, "false"
  62. IniRead, VEHTextShadow, Settings.ini, Vehicle, TextShadow, "true"
  63.  
  64. if (AutoOn == 1) {
  65.     SetTimer, HP, 500
  66.     SetTimer, ARM, 500
  67.     SetTimer, WEAP, 500
  68.     SetTimer, vHP, 500
  69. }
  70.  
  71. ;Dark Undergound
  72. HP:
  73. {
  74.     if ( WinActive("GTA:SA:MP"))
  75.     {
  76.         if (HP_Overlay == -1) {
  77.             HP_Overlay := TextCreate(HPFont, HPFontSize, HPFontBold, HPFontItalic, HPPosX, HPPosY, HPColor, "Health: " GetPlayerHealth() "%", HPTextShadow, true)
  78.         } else {
  79.             TextSetString(HP_Overlay,"Health: " GetPlayerHealth() "%")
  80.         }
  81.     }
  82.     return
  83. }
  84.  
  85. ARM:
  86. {
  87.     if ( WinActive("GTA:SA:MP"))
  88.     {
  89.         if (ARM_Overlay == -1) {
  90.             ; 30 380      7
  91.             ARM_Overlay := TextCreate(ARMFont, ARMFontSize, ARMFontBold, ARMFontItalic, ARMPosX, ARMPosY, ARMColor, "Armor: " GetPlayerArmor() "%", ARMTextShadow, true)
  92.         } else {
  93.             TextSetString(ARM_Overlay,"Armor: " GetPlayerArmor() "%")
  94.         }
  95.     }
  96.     return
  97. }
  98.  
  99. WEAP:
  100. {
  101.     if ( WinActive("GTA:SA:MP"))
  102.     {
  103.             GetPlayerWeaponName(GetPlayerWeaponSlot(), WEAPON)
  104.             TCLIPS := GetPlayerWeaponTotalClip(GetPlayerWeaponSlot())
  105.             CLIPS := GetPlayerWeaponClip(GetPlayerWeaponSlot())
  106.             if (WEAP_Overlay == -1) {
  107.                 ; 30 400      7
  108.                 WEAP_Overlay := TextCreate(WEAPONFont, WEAPONFontSize, WEAPONFontBold, WEAPONFontItalic, WEAPONPosX, WEAPONPosY, WEAPONColor, "Weapon: "   WEAPON  " | " CLIPS ":" TCLIPS , WEAPONTextShadow, true)
  109.             } else {
  110.                 TextSetString(WEAP_Overlay,"Weapon: "   WEAPON  " | " CLIPS ":" TCLIPS)
  111.             }
  112.     }
  113.     return
  114. }
  115.  
  116. vHP:
  117. {
  118.     if ( WinActive("GTA:SA:MP"))
  119.     {
  120.         if (IsPlayerInAnyVehicle())
  121.         {
  122.             if (vHP_Overlay == -1) {
  123.                 vHP_Overlay := TextCreate(VEHFont, VEHFontSize, VEHFontBold, VEHFontItalic, VEHPosX, VEHPosY, VEHColor, "Vehicle: " GetVehicleHealth(), VEHTextShadow, true)
  124.             } else {
  125.                 TextSetString(vHP_Overlay, "Vehicle: " GetVehicleHealth())
  126.             }
  127.         }
  128.         else
  129.         {
  130.             TextDestroy(vHP_Overlay)
  131.             vHP_Overlay := -1
  132.         }
  133.         return
  134.     }
  135.     return
  136. }
  137.  
  138. :?:/hud on::
  139.     SetTimer, HP, 500
  140.     SetTimer, ARM, 500
  141.     SetTimer, WEAP, 500
  142.     SetTimer, vHP, 500
  143. return
  144.  
  145. :?:/hud off::
  146.     SetTimer, HP, Off
  147.     SetTimer, ARM, Off
  148.     SetTimer, WEAP, Off
  149.     SetTimer, vHP, Off
  150.     HP_Overlay := -1
  151.     ARM_Overlay := -1
  152.     WEAP_Overlay := -1
  153.     vHP_Overlay := -1
  154.     DestroyAllVisual()
  155. return
  156.  
  157. ^1:: Pause
  158. return
  159. ^2::
  160. DestroyAllVisual()
  161. Reload
  162. return
  163. ^3:: DestroyAllVisual()
  164. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement