Advertisement
Guest User

Untitled

a guest
Oct 21st, 2014
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.98 KB | None | 0 0
  1. :?:/overlay::
  2. Suspend Permit
  3. Send {Enter}
  4. IniRead, xPos, Einstellungen.ini, Einstellungen, xPos, 16
  5. IniRead, yPos, Einstellungen.ini, Einstellungen, yPos, 280
  6. If(Ov_On != 1)
  7. {
  8. ;~ Box := BoxCreate(16, 280, 200, 85, 0x70000000, true)
  9. Box := BoxCreate(xPos, yPos, 200, 85, 0x70000000, true)
  10. Border := BoxSetBorder(Box, 2, true)
  11. BoxSetBorderColor(Box, 0xFFFFFFFF)
  12. Settimer, Update_Ov, 300
  13. Name_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos, 0xFFFFFFFF, "Das Overlay wird geladen", true, true)
  14. Standort_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+10, 0xFFFFFFFF, " ", true, true)
  15. Nahkampf_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+20, 0xFFFFFFFF, " ", true, true)
  16. Fernkampf_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+30, 0xFFFFFFFF, " ", true, true)
  17. Kills_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+40, 0xFFFFFFFF, " ", true, true)
  18. Suche_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+50, 0xFFFFFFFF, " ", true, true)
  19. Id_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+60, 0xFFFFFFFF, " ", true, true)
  20. Maske_Ov := TextCreate("Comic Sans MS", 7, false, false, xPos+3, yPos+70, 0xFFFFFFFF, " ", true, true)
  21. HP_Ov := TextCreate("Comic Sans MS", 8, false, false, 715, 88, 0xFFFFFFFF, " ", true, true)
  22. Ov_On := 1
  23. }
  24. else
  25. {
  26. DestroyAllVisual()
  27. Ov_On := !Ov_On
  28. }
  29. return
  30.  
  31. Update_Ov:
  32. IfWinNotExist, GTA:SA:MP
  33. Ov_On := !Ov_On
  34. IfWinNotActive, GTA:SA:MP
  35. return
  36. IniRead, Fernkampf, Einstellungen.ini, Daten, Fernkampf, 0
  37. IniRead, Nahkampf, Einstellungen.ini, Daten, Nahkampf, 0
  38. IniRead, Nahkampfgeld, Einstellungen.ini, Daten, Nahkampfgeld, 0
  39. IniRead, Fernkampfgeld, Einstellungen.ini, Daten, Fernkampfgeld, 0
  40. IniRead, kills, Einstellungen.ini, Daten, kills, 0
  41. IniRead, tills, Einstellungen.ini, Daten, tills, 0
  42. IniRead, Tode, Einstellungen.ini, Daten, Tode, 0
  43. GetZoneName(Zone)
  44. GetCityName(City)
  45. HP := GetPlayerHealth()
  46. GetPlayerPosition(x, y, z, r)
  47. fps := GetFramerate()
  48. id := GetPlayerId()
  49. If(IsPlayerInAnyInterior())
  50. {
  51. If(x > 318.199036 && x < 388.445953 && y > 148.873856 && y < 217.235733)
  52. TextSetString(Standort_Ov, "Standort:{0xFF0000} Stadthalle")
  53. Else
  54. TextSetString(Standort_Ov, "Standort:{0x0000FF} Interior")
  55. }
  56. else
  57. {
  58. If(IsPlayerInNoDM(x, y, z))
  59. {
  60. TextSetString(Standort_Ov, "Standort:{0xFF0000} " . zone . ", " . city . "")
  61. }
  62. else
  63. {
  64. TextSetString(Standort_Ov, "Standort: " . zone . ", " . city . "")
  65. }
  66. }
  67. TextSetString(HP_Ov, "" . HP . "")
  68. if(nameanzeigen==5)
  69. {
  70. TextSetString(Name_Ov, "Name: " . name . " [" . id . "] [" . fps . "]")
  71. nameanzeigen := 0
  72. }
  73. else
  74. {
  75. nameanzeigen++
  76. }
  77. if(AID == -1 && BID == -1 && CID == -1)
  78. {
  79. TextSetString(Suche_Ov, "Du suchst im Moment niemanden "FindAdd)
  80. }
  81. else if(AID!=-1)
  82. {
  83. TextSetString(Suche_Ov, "Du suchst im Moment: " . AID . ""FindAdd)
  84. }
  85. else if(BID!=-1)
  86. {
  87. TextSetString(Suche_Ov, "Du zeigst im Moment " . BID . ": " . CID . ""FindAdd)
  88. }
  89. If(Nah==1)
  90. {
  91. sleep 1000
  92. Nah := 0
  93. }
  94. Nahkampfgeld /= 1000
  95. Nahkampfgeld := Round(Nahkampfgeld, 0)
  96. TextSetString(Nahkampf_Ov, "Contracts aus der Naehe: " . Nahkampf . " (" . Nahkampfgeld . "k)")
  97. if(Fern==1)
  98. {
  99. sleep 1000
  100. Fern := 0
  101. }
  102. Fernkampfgeld /= 1000
  103. Fernkampfgeld := Round(Fernkampfgeld, 0)
  104. TextSetString(Fernkampf_Ov, "Contracts aus der Ferne : " . Fernkampf . " (" . Fernkampfgeld . "k)")
  105. if(Masktime>0)
  106. TextSetString(Maske_Ov, "In " . masktime . "{0xFFFFFF} Sekunden kannst du deine Maske wieder verwenden.")
  107. else if(Masktime <= 0)
  108. TextSetString(Maske_Ov, "Du kannst deine Maske verwenden")
  109. if(Identität>0)
  110. TextSetString(Id_Ov, "Dein Name ist noch " . Identität . " Sekunden verborgen")
  111. else
  112. TextSetString(Id_Ov, " ")
  113. kd := Round(kills/tode, 2)
  114. TextSetString(Kills_Ov, "Morde: " . kills . ", Heute: " . tills . ". KD: "kd)
  115. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement