Advertisement
Guest User

Untitled

a guest
Nov 18th, 2019
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.27 KB | None | 0 0
  1.  
  2. Wenn du hier die Kommentare weg machst, wirst du aufgefordert, das Overlay als Administrator auszuführen.
  3. Dies kann zur stabilisierung und zu weniger Bugs seitens des Overlays führen.
  4. if(!A_IsAdmin)
  5. {
  6. MsgBox, 0, Info, Du musst den Keybinder als Administrator ausführen!`nDas Programm wird sich jetzt schließen.
  7. ExitApp
  8. }
  9.  
  10. SetWorkingDir, %A_ScriptDir% ;Gibt als "current working directory", den Dateipfad des Overlays an.
  11.  
  12. #NoEnv ;"It significantly improves performance whenever empty variables are used in an expression or command."
  13. #SingleInstance, Force ;Sorgt dafür, dass die Anwendung nur einmal gestartet werden kann.
  14. #include SAMP-API.ahk ;Fügt die SAMP-UDF hinzu.
  15. #Include Overlay-API.ahk ;Fügt die Overlay-API hinzu.
  16.  
  17. DestroyAllVisual() ;Bereits bestehende Overlay-Elemente werden hier gelöscht.
  18.  
  19. global Overlay := 0 ;Das Overlay wird auf "noch nicht erstellt" eingestellt.
  20. global FontSizeText := 8 ;Hier wird die FontSize/Text Größe, der Informationen, definiert.
  21.  
  22. SetParam("use_window", "1")
  23. SetParam("window", "GTA:SA:MP") ;Der SAMP Client wird als Ziel zur Erstellung des Overlays ausgewählt
  24.  
  25. while(1)
  26. {
  27. if(WinActive("GTA:SA:MP") && IsSAMPAvailable()) ;Wenn SAMP gestartet, gerade gespielt wird und der Chat geladen ist, dann wird fortgefahren.
  28. {
  29. if(Overlay == 0) ;Wenn die TextLabel noch nicht erstellt wurden, werden diese hier erstellt
  30. {
  31. PlayerInfo := TextCreate("Geneva", FontSizeText, 1, 0, 5, 585, 0xFFFFFFFF, "", 1, 1)
  32.  
  33. HealthInfo := TextCreate("Geneva", FontSizeText, 1, 0, 0, 100, 0xFFFFFFFF, "", 1, 1)
  34.  
  35. Overlay := 1 ;Setzt den Status, des Overlays, auf "wurde erstellt".
  36. }
  37.  
  38. PlyInfoStr := "{FFFFFF}Name: {B0B0B0}" GetPlayerName() " (" "ID: " GetPlayerId() ")"
  39. PlyInfoStr .= "{FFFFFF}Ping: {B0B0B0}" GetPlayerPingById(GetPlayerId()) ""
  40. PlyInfoStr .= "{FFFFFF}Waffe: {B0B0B0}" GetPlayerWeaponName() " (" "ID: " GetPlayerWeaponId() ")"
  41. PlyInfoStr .= "{FFFFFF}Skin-Id: {B0B0B0}" GetPlayerSkinId() ""
  42. PlyInfoStr .= "{FFFFFF}Interior-Id: {B0B0B0}" GetPlayerInteriorId() ""
  43. PlyInfoStr .= "{FFFFFF}Stadt: {B0B0B0}" GetPlayerCity() ""
  44. PlyInfoStr .= "{FFFFFF}Stadtteil: {B0B0B0}" GetPlayerZone() ""
  45. PlyInfoStr .= "{FFFFFF}FPS: {B0B0B0}" GetFrameRate() ""
  46. TextSetString(PlayerInfo, PlyInfoStr)
  47.  
  48. HealthInfoStr .= "{FFFFFF}Weste: {B0B0B0}" GetPlayerArmor() ""
  49. HealthInfoStr .= "{FFFFFF}Leben: {B0B0B0}" GetPlayerHealth() ""
  50. TextSetString(HealthInfo, HealthInfoStr)
  51.  
  52. }
  53. else ;Wenn GTA nicht offen ist, oder gerade gespielt wird, oder der Chat noch nicht geladen ist, wird gecheckt, ob das Overlay bereits erstellt worden ist.
  54. {
  55. if(Overlay) ;Wenn das Overlay bereits erstellt worden ist, wird es hier gelöscht und der Status auf "noch nicht erstellt" eingestellt.
  56. {
  57. DestroyAllVisual()
  58. Overlay := 0
  59. }
  60. }
  61. Sleep, 1 ;Verringert die Ressourcennutzung des Prozessors deutlich (Ohne Sleep, ~5%, mit 0-0.1% Auslastung des Prozessors).
  62. }
  63.  
  64. ;Wenn ein GUI hinzugefügt wird und man auf das "X" drückt, wird das bestehende Overlay gelöscht und die Anwendung beendet sich.
  65. GuiClose:
  66. DestroyAllVisual()
  67. ExitApp
  68. return
  69.  
  70. ;Wird die Anwendung geschlossen, dann wird das Overlay gelöscht(funktioniert aber nur teilweise).
  71. ExitApp:
  72. DestroyAllVisual()
  73. ExitApp
  74. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement