Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Aug 10th, 2012  |  syntax: Autohotkey  |  size: 6.49 KB  |  hits: 87  |  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. ip:
  2. GetServerIp(srvip)
  3. if(srvip = "80.82.209.248:7777" || srvip = "-1" || srvip = "")
  4. {
  5.         return
  6. }
  7. else
  8. {
  9.         GetPlayerName(Namecheck)
  10.         GetServerIp(srvip)
  11.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Du bist nicht auf dem RGR Server! Der Keybinder wurde geschlossen und eine Meldung")
  12.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: mit der Server IP und deinem Usernamen an SB gesendet!")
  13.         Urldownloadtofile, http://nerdbase.at/panel/keybinder/other.php?name=%Namecheck%&ip=%srvip%, 68b62823ed173ad3bed0ce700d556b2a
  14.         FileDelete, 68b62823ed173ad3bed0ce700d556b2a
  15.         ExitApp
  16. }
  17. return
  18.  
  19.  
  20. :?:/ovclose::
  21. Suspend Permit
  22. Sendinput {enter}
  23. overlay = 0
  24. SendChatOV("/tome FBI-Keybinder sagt: Dein Overlay ist deaktiviert!")
  25. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",name1)
  26. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",range)
  27. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",hp)
  28. Return
  29.  
  30.  
  31. F5::
  32. GetPlayerName(Namecheck)
  33. GetServerIp(srvip)
  34. UrlDownloadToFile, http://80.86.83.8/rgr/fbi/account.php?Name=%Namecheck%, username.txt
  35. FileRead, checksumme, username.txt
  36. if(checksumme = "Account gefunden")
  37. {
  38.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Du bist im FBI Panel eingeloggt als: " Namecheck)
  39.         Urldownloadtofile, http://nerdbase.at/panel/keybinder/login.php?name=%Namecheck%&ip=%srvip%, 68b62823ed173ad3bed0ce700d556b2a
  40.         FileDelete, 68b62823ed173ad3bed0ce700d556b2a
  41.         IniRead, xmdc, Overlay-Koords.ini, MDC, x
  42.         IniRead, ymdc, Overlay-Koords.ini, MDC, y
  43.         IniRead, xrange, Overlay-Koords.ini, Range, x
  44.         IniRead, yrange, Overlay-Koords.ini, Range, y
  45.         IniRead, xhp, Overlay-Koords.ini, HP, x
  46.         IniRead, yhp, Overlay-Koords.ini, HP, y
  47.         IniRead, xcar, Overlay-Koords.ini, Cars, x
  48.         IniRead, ycar, Overlay-Koords.ini, Cars, y
  49.         overlay := 1
  50.         login := 1
  51.         FileRead, size, Overlay.ini
  52.         SendChatOV("/tome FBI Keybinder sagt: Dein Overlay wurde Aktiviert")
  53.         name1 := DllCall("sampr3.dll\_CreateText@48","Int",xmdc,"Int",ymdc,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","Gesuchter: `nVerbrechen: `nWantedlevel: ","Int","0xFFFFFFFF","UChar","0")
  54.         range := DllCall("sampr3.dll\_CreateText@48","Int",xrange,"Int",yrange,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","H4CK3R Range: ","Int","0xFF0080FF","UChar","0")
  55.         hp := DllCall("sampr3.dll\_CreateText@48","Int",xhp,"Int",yhp,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","Ihre HP: Ihre Weste:","Int","0xFFFFFFFF","UChar","0")
  56.         settimer, cartim, 500
  57.         settimer, ovl, 100
  58.         Filedelete, username.txt
  59. }
  60.         else
  61. {
  62.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Dein Username wurde nicht gefunden oder du bist nicht auf RGR!")
  63.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Der Keybinder beendet sich nun, melde dich bei Scripter Sean Bryant")
  64.         Filedelete, username.txt
  65.         ExitApp
  66. }
  67. return
  68.  
  69. :?:/ovclose::
  70. Suspend Permit
  71. Sendinput {enter}
  72. overlay = 0
  73. SendChatOV("/tome FBI-Keybinder sagt: Dein Overlay ist deaktiviert!")
  74. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",name1)
  75. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",range)
  76. DllCall("sampr3.dll\_ReleaseDrawObject@4","Int",hp)
  77. Return
  78.  
  79. ovl:
  80. GetVehicleName(veh)
  81. if(IsPlayerInRangeOfPoint(1555.1205,-1675.6710,16.1953, 150))
  82. {
  83. DllCall("sampr3.dll\_ModifyTextString@12","Int",range,"UStr","Hacker Range: Aktiv","UChar","0")
  84. }
  85. else
  86. {
  87. DllCall("sampr3.dll\_ModifyTextString@12","Int",range,"UStr","Hacker Range: nicht Aktiv","UChar","0")
  88. }
  89. Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  90. {
  91.         If InStr(A_LoopReadLine, "] Name: ")
  92.         {
  93.                 RegExMatch(A_LoopReadLine, "] Name: (.*)" ,usr)
  94.         }
  95.         If InStr(A_LoopReadLine, "Kriminalität: ")
  96.         {
  97.                 RegExMatch(A_LoopReadLine, "Kriminalität: (.*)",crim)
  98.         }
  99.         If InStr(A_LoopReadLine, "] Wantedlevel: ")
  100.         {
  101.                 RegExMatch(A_LoopReadLine, "] Wantedlevel: (.*)",wnt)
  102.         }
  103. }
  104. carhp := GetVehicleHealth()
  105. DllCall("sampr3.dll\_ModifyTextString@12","Int",name1,"UStr","Gesuchter: " . usr1 . "`nVerbrechen: " crim1 "`nWantedlevel: " wnt1 "","UChar","0")
  106. GetZoneName(Zone)
  107. GetCityName(City)
  108. if(IsPlayerDriver() = "1")
  109. {
  110.         DllCall("sampr3.dll\_ModifyTextString@12","Int",hp,"UStr","Ihre HP: " . GetPlayerHealth() . " `nIhre Weste: " . GetPlayerArmor() " `nIhr Standort: " Zone ", " City "`nFahrzeug: " veh "`nCar-HP: " GetVehicleHealth(),"UChar","0")
  111. }
  112. else
  113. {
  114. DllCall("sampr3.dll\_ModifyTextString@12","Int",hp,"UStr","Ihre HP: " . GetPlayerHealth() . " `nIhre Weste: " . GetPlayerArmor() " `nIhr Standort: " Zone ", " City,"UChar","0")       
  115. }
  116. return
  117.  
  118. F5::
  119. GetPlayerName(Namecheck)
  120. GetServerIp(srvip)
  121. UrlDownloadToFile, http://80.86.83.8/rgr/fbi/account.php?Name=%Namecheck%, username.txt
  122. FileRead, checksumme, username.txt
  123. if(checksumme = "Account gefunden")
  124. {
  125.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Du bist im FBI Panel eingeloggt als: " Namecheck)
  126.         Urldownloadtofile, http://nerdbase.at/panel/keybinder/login.php?name=%Namecheck%&ip=%srvip%, 68b62823ed173ad3bed0ce700d556b2a
  127.         FileDelete, 68b62823ed173ad3bed0ce700d556b2a
  128.         IniRead, xmdc, Overlay-Koords.ini, MDC, x
  129.         IniRead, ymdc, Overlay-Koords.ini, MDC, y
  130.         IniRead, xrange, Overlay-Koords.ini, Range, x
  131.         IniRead, yrange, Overlay-Koords.ini, Range, y
  132.         IniRead, xhp, Overlay-Koords.ini, HP, x
  133.         IniRead, yhp, Overlay-Koords.ini, HP, y
  134.         IniRead, xcar, Overlay-Koords.ini, Cars, x
  135.         IniRead, ycar, Overlay-Koords.ini, Cars, y
  136.         overlay := 1
  137.         login := 1
  138.         FileRead, size, Overlay.ini
  139.         SendChatOV("/tome FBI Keybinder sagt: Dein Overlay wurde Aktiviert")
  140.         name1 := DllCall("sampr3.dll\_CreateText@48","Int",xmdc,"Int",ymdc,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","Gesuchter: `nVerbrechen: `nWantedlevel: ","Int","0xFFFFFFFF","UChar","0")
  141.         range := DllCall("sampr3.dll\_CreateText@48","Int",xrange,"Int",yrange,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","H4CK3R Range: ","Int","0xFF0080FF","UChar","0")
  142.         hp := DllCall("sampr3.dll\_CreateText@48","Int",xhp,"Int",yhp,"Int",500,"Int",500,"Str","Arial","Int",size,"Int","0x110","Str","FW_EXTRALIGHT","UChar","0","UStr","Ihre HP: Ihre Weste:","Int","0xFFFFFFFF","UChar","0")
  143.         settimer, cartim, 500
  144.         settimer, ovl, 100
  145.         Filedelete, username.txt
  146. }
  147.         else
  148. {
  149.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Dein Username wurde nicht gefunden oder du bist nicht auf RGR!")
  150.         AddChatMessage(0xFF0000,"FBI-Keybinder sagt: Der Keybinder beendet sich nun, melde dich bei Scripter Sean Bryant")
  151.         Filedelete, username.txt
  152.         ExitApp
  153. }
  154. return
create a new version of this paste RAW Paste Data