API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
70
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.41 KB | None | 0 0
raw download clone embed print report
  1. #IfWinActive GTA:SA:MP
  2. #SingleInstance force
  3. #Persistent
  4. #UseHook
  5. #MaxHotkeysPerInterval 1000
  6. #NoEnv
  7. #Include API.ahk
  8. #Include Overlay.ahk
  9.  
  10. Version := 1.5
  11. ScriptName := "Triaden-Binder"
  12. PaintballMode := 0
  13. OverlayMode := 0
  14. PauseMode := 0
  15. BackUpMode := 0
  16. ReisMode := 0
  17. FishMode := 0
  18. GfMode := 0
  19. alotto := 0
  20. Deathstate := 0
  21.  
  22. Filedelete,update.bat
  23. UrlDownloadToFile,http://f4ntatriaden.square7.ch/versionsupdate.txt, versionsupdate.txt
  24. FileRead, newver, versionsupdate.txt
  25. FileDelete, versionsupdate.txt
  26. if (version < newver)
  27. {
  28. newververfügbar := 1
  29. MsgBox, 4,Aktuelle Version, Lieber %Nickname%,`n`nEs ist eine aktuellere Version deines Keybinders verfügbar, (Version %newver%).`nMöchtest du diese jetzt herunterladen?
  30. IfMsgBox, Yes
  31. {
  32. MsgBox, 64, Update Download, Das Update wird nun heruntergeladen ,dies kann bis zu 20 Sekunden dauern..., 3
  33. Urldownloadtofile,http://f4ntatriaden.square7.ch/Triaden-Binder.exe, %A_ScriptName%.new
  34. BatchFile=
  35. (
  36. Ping 127.0.0.1
  37. Del "%A_ScriptName%"
  38. Rename "%A_ScriptName%.new" "%A_ScriptName%"
  39. cd "%A_ScriptFullPath%"
  40. "%A_ScriptName%"
  41. Del update.bat
  42. )
  43. FileDelete,update.bat
  44. FileAppend,%BatchFile%,update.bat
  45. MsgBox, 64, Update ausführen, Das Update wird nun ausgeführt...bitte warten..., 3
  46. Run,update.bat,,hide
  47. Exitapp
  48. }
  49. }
  50. else
  51. {
  52. newververfügbar := 0
  53. }
  54.  
  55. SetTimer, Timer, 500
  56. IfNotExist, %A_MyDocuments%\Triaden-Binder
  57. FileCreateDir, %A_MyDocuments%\Triaden-Binder
  58.  
  59. IniRead, Killspruch, Settings.ini, Options, Killspruch
  60. IniRead, Todesspruch, Settings.ini, Options, Todesspruch
  61. IniRead, SendSpruch, Settings.ini, Options, SendSpruch
  62.  
  63. Gui, Font, s18 cblack, GTAFO
  64. Gui, Add, Tab, x22 y59 w430 h300 , Befehle|Einstellungen
  65. Gui, Add, Button, x322 y9 w130 h40 gVersion, Version
  66. Gui, Tab, Einstellungen
  67. Gui, Add, Button, x322 y9 w130 h40 gSave, Speichern
  68. Gui, Add, Text, x32 y99 w180 h30, Killspruch
  69. Gui, Add, Edit, x32 y139 w400 h30: vKillspruch, %Killspruch%
  70. Gui, Add, Text, x32 y179 w180 h30 , Todesspruch
  71. Gui, Add, Edit, x32 y219 w400 h30: vTodesspruch, %Todesspruch%
  72. Gui, Add, CheckBox, x32 y259 w140 h30 vSendSpruch Checked%SendSpruch%, Aktivieren
  73. Gui, Add, Button, x32 y299 w160 h25 gVariablen, Variablen
  74. Gui, Tab, Befehle
  75. Gui, Add, Text, x32 y89 w160 h20 , Fische Taste: 1
  76. Gui, Add, Text, x32 y119 w160 h20 , Paket Taste: 2
  77. Gui, Add, Text, x212 y89 w160 h20 , /AFK: ZEIT
  78. Gui, Add, Text, x212 y119 w160 h20 , Stellen | /hide
  79. Gui, Add, Text, x32 y149 w160 h20 , Drugs Taste: 3
  80. Gui, Add, Text, x32 y179 w400 h20 , Deagle + Shotgun: Numpad6
  81. Gui, Add, Text, x32 y209 w400 h20 , Hilfe Rufen: Numpad1
  82. Gui, Add, Text, x32 y239 w400 h20 , Heal in der Base: Numpad2
  83. Gui, Add, Text, x32 y269 w400 h20 , Flagge einnehmen: Numpad4
  84. Gui, Add, Text, x32 y299 w400 h20 , Motor: M | Lock: Y | Licht: L
  85. Gui, Tab, Befehle
  86. Gui, Add, Text, x212 y149 w160 h20 , /ap | Paket nehmen
  87. Gui, Add, Text, x22 y9 w190 h40 , Triaden-Binder
  88. Gui, Add, Text, x32 y329 w400 h20 , Fischen: /angeln | Kochen: /kochen
  89. Gui, Show, x127 y87 h391 w491, Triaden-Binder
  90. Return
  91.  
  92. Save:
  93. GuiControlGet, SendSpruch
  94. GuiControlGet, Killspruch
  95. GuiControlGet, Todesspruch
  96. IniWrite, %SendSpruch%, Settings.ini, Options, SendSpruch
  97. IniWrite, %Killspruch%, Settings.ini, Options, Killspruch
  98. IniWrite, %Todesspruch%, Settings.ini, Options, Todesspruch
  99. IniRead, Killspruch, Settings.ini, Options, Killspruch
  100. IniRead, Todesspruch, Settings.ini, Options, Todesspruch
  101. IniRead, SendSpruch, Settings.ini, Options, SendSpruch
  102. MsgBox, 64, Speicherprozess, Alle Daten wurden übernommen und gespeichert. `nDer Keybinder wird nun neu gestartet :3`n
  103. reload
  104. return
  105.  
  106. Variablen:
  107. MsgBox, 64, Variablen, Folgende Variablen können in diversen Sprüchen wie Kill-Deathspruch verwendet werden.`n`nBeispiel: "+1 Kill in <Zone>`, gesamte Kills: <Kills>"`n`n<Kills> - Trägt die Kills ein`n<Deaths> - Trägt die Tode ein`n<Streak> - Trägt die Killstreak ein`n<KD> - Trägt die K/D Rate ein`n<Zone> - Trägt die Zone ein`n<City> - Trägt die City ein`n<HP> - Trägt die HP ein
  108. return
  109.  
  110. Version:
  111. MsgBox, 64, Version, Triaden-Binder Version 1.5
  112. return
  113.  
  114. GuiClose:
  115. ExitApp
  116.  
  117. Timer:
  118. if (!WinActive("GTA:SA:MP"))
  119. return
  120.  
  121.  
  122. IniRead, Killspruch, Settings.ini, Options, Killspruch
  123. IniRead, Todesspruch, Settings.ini, Options, Todesspruch
  124. IniRead, SendSpruch, Settings.ini, Options, SendSpruch
  125.  
  126. getChatLine(0, Chat0)
  127. getChatLine(1, Chat1)
  128. getChatLine(2, Chat2)
  129. gametext := getGameText(3, 28)
  130. IniRead, KillOn, Settings.ini, Optionen, KillOn
  131. IniRead, Kills, Settings.ini, Stats, Kills
  132. IniRead, Deaths, Settings.ini, Stats, Deaths
  133. IniRead, Streak, Settings.ini, Stats, Streak
  134. IniRead, DKills, Settings.ini, %A_DD%%A_MM%%A_Year%, DKills
  135. IniRead, DDeaths, Settings.ini, %A_DD%%A_MM%%A_Year%, DDeaths
  136. KD := Round(Kills/Deaths, 3)
  137. Zone := GetPlayeRZone()
  138. City := GetPlayerCity()
  139. HP := GetPlayerHealth()
  140.  
  141.  
  142. if(instr(gametext, "~g~Gang") || instr(gametext, "~g~Team") || instr(Chat1, "( Mord ). Zeuge: ") || instr(Chat2, "( Mord ). Zeuge: ") && not instr(Chat0, " Triaden-Binder ")){
  143. Kills ++
  144. DKills ++
  145. Streak ++
  146. IniWrite, %Kills%, Settings.ini, Stats, Kills
  147. IniWrite, %Streak%, Settings.ini, Stats, Streak
  148. IniWrite, %DKills%, Settings.ini, %A_DD%%A_MM%%A_Year%, DKills
  149.  
  150. Killspruch := RegExReplace(Killspruch, "<Kills>", "" Kills "")
  151. Killspruch := RegExReplace(Killspruch, "<Deaths>", "" Deaths "")
  152. Killspruch := RegExReplace(Killspruch, "<Streak>", "" Streak "")
  153. Killspruch := RegExReplace(Killspruch, "<KD>", "" KD "")
  154. Killspruch := RegExReplace(Killspruch, "<Zone>", "" Zone "")
  155. Killspruch := RegExReplace(Killspruch, "<City>", "" City "")
  156. Killspruch := RegExReplace(Killspruch, "<HP>", "" HP "")
  157. AddChatMessage("{FFFFFF}| {0489B1}Triaden-Binder {FFFFFF}| Kills: {FFBF00}" Kills "{FFFFFF} | Tages Kills: {FFBF00}" DKills "{FFFFFF} | Streak: {FFBF00}" Streak "{FFFFFF} | KD: {FFBF00}" KD)
  158. if (SendSpruch = 1){
  159.  
  160. SendChat("/f " Killspruch "")
  161. }
  162. if(instr(gametext, "~g~Gang") || instr(gametext, "~g~Team")){
  163. Sleep, 9000
  164. }
  165. }
  166. if (GetPlayerHealth() < 1 && Deathstate = 0){
  167. Sleep, 1000
  168. if (instr(Chat0, "Paintball: ") || instr(Chat1, "Paintball") || WinActive("GTA:SA:MP")){
  169. return
  170. }
  171. Deathstate := 1
  172. Deaths ++
  173. DDeaths ++
  174. IniWrite, %Deahts%, Settings.ini, Stats, Deahts
  175. InIWrite, %DDeaths%, Settings.ini, %A_DD%%A_MM%%A_Year%, DDeaths
  176. AddChatMessage("{FFFFFF}| {0489B1}Triaden-Binder {FFFFFF}| Tode: {FFBF00}" Deaths "{FFFFFF} | Tages Tode: {FFBF00}" DDeaths "{FFFFFF} | KD: {FFBF00}" KD)
  177. if (SendSpruch = 1){
  178. Sleep, 100
  179. Todesspruch := RegExReplace(Todesspruch, "<Kills>", "" Kills "")
  180. Todesspruch := RegExReplace(Todesspruch, "<Deaths>", "" Deaths "")
  181. Todesspruch := RegExReplace(Todesspruch, "<Streak>", "" Streak "")
  182. Todesspruch := RegExReplace(Todesspruch, "<KD>", "" KD "")
  183. Todesspruch := RegExReplace(Todesspruch, "<Zone>", "" Zone "")
  184. Todesspruch := RegExReplace(Todesspruch, "<City>", "" City "")
  185. Todesspruch := RegExReplace(Todesspruch, "<HP>", "" HP "")
  186. SendChat("/f " Todesspruch "")
  187. }
  188. Sleep, 2500
  189. }else if(Deathstate = 1 && GetPlayerHealth() > 0){
  190. Deathstate := 0
  191. }
  192. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!