API tools faq
paste
Advertisement
uwe_baker

eier lecken

uwe_baker
Sep 9th, 2013
138
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.74 KB | None | 0 0
raw download clone embed print report
  1. SetTimer, SekundenTimer, 50
  2.  
  3. ProgrammPfad = %A_MyDocuments%\Killzaehler
  4. IniPfad = %ProgrammPfad%\Optionen.ini
  5. Ifnotexist %ProgrammPfad%
  6. {
  7. FileCreateDir, %ProgrammPfad%
  8. iniwrite, 0, %IniPfad%, Killzaehler, GWKills
  9. iniwrite, 0, %IniPfad%, Killzaehler, GWZoneKills
  10. iniwrite, 0, %IniPfad%, Killzaehler, Deaths
  11. MsgBox, 0, Keybinder: Ordner + Ini erstellen ... , Ordner KillsDeathsGangzones und Daten.ini wurden erstellt!`n`nPfad: %IniPfad%
  12. }
  13.  
  14. #IfWinActive GTA:SA:MP
  15. #SingleInstance force
  16. #NoEnv
  17. #include API.ahk
  18.  
  19. Hotkey, Enter, Off
  20. Hotkey, Escape, Off
  21.  
  22. +T::
  23. ~t::
  24. Suspend On
  25. Hotkey, Enter, On
  26. Hotkey, Escape, On
  27. Hotkey, t, Off
  28. return
  29.  
  30. ~NumpadEnter::
  31. ~Enter::
  32. Suspend Permit
  33. Suspend Off
  34. ;SendInput {Enter}
  35. Hotkey, t, On
  36. Hotkey, Enter, Off
  37. Hotkey, Escape, Off
  38. return
  39.  
  40. ~Escape::
  41. Suspend Permit
  42. Suspend Off
  43. Hotkey, t, On
  44. Hotkey, Enter, Off
  45. Hotkey, Escape, Off
  46. return
  47.  
  48. Pause::
  49. Suspend
  50. return
  51.  
  52. ;-------------------;
  53. ;Ein Hand Befehle
  54. ;-------------------;
  55.  
  56. !e::ShowGameText("~g~Gangwarkill", 2500, 3)
  57. ^e::ShowGameText("~r~Gangwarkill", 2500, 3)
  58. !q::ShowGameText("~g~Gangzonekill", 2500, 3)
  59. ^q::ShowGameText("~r~Gangzonekill", 2500, 3)
  60. NumPadSub::SendChat("/time")
  61. NumPadAdd::SendChat("/stats")
  62. NumPad0::SendChat("/engine")
  63. !NumPad0::SendChat("/lock")
  64. ^NumPad0::SendChat("/carlock")
  65. ^NumPad1::SendChat("/buygun deagle 250")
  66. ^NumPad2::SendChat("/buygun shotgun 50")
  67. !NumPad1::SendChat("/savebox create")
  68. !NumPad2::SendChat("/savebox remove")
  69. !NumPad3::SendChat("/gtake ganja 12")
  70. !^NumPad3::SendChat("/use ganja")
  71.  
  72. ^NumPad3::
  73. SendChat("/buygun m4 350")
  74. SendChat("/buygun rifle 50")
  75. return
  76.  
  77. NumPad4::SendChat("/lights")
  78.  
  79. NumPad5::
  80. SendInput t/number{space}
  81. Suspend On
  82. Hotkey, Enter, On
  83. Hotkey, Escape, On
  84. return
  85.  
  86. NumPad6::
  87. SendInput t/id{space}
  88. Suspend On
  89. Hotkey, Enter, On
  90. Hotkey, Escape, On
  91. return
  92.  
  93. !NumPad9::SendInput t{up}{enter}
  94.  
  95. !2::
  96. Suspend On
  97. SendInput t/get fuel{enter}
  98. Sleep 200
  99. SendInput t/fill{enter}
  100. Suspend Off
  101. return
  102.  
  103. m::SendChat("/members")
  104. ^z::SendChat("/zoll")
  105. y::SendChat("/enter")
  106. x::SendChat("/exit")
  107. ^i::SendChat("/kidnap " Partner " " Opfer " 0")
  108. ^o::SendChat("/kidnap " Partner " " Opfer " 1")
  109. ^p::SendChat("/f Opfer: " Opfer " Partner: " Partner " ")
  110.  
  111. ;-------------------;
  112. ;Text-Befehle
  113. ;-------------------;
  114.  
  115. :?:/loadtestdll::
  116. suspend permit
  117. ret := DllCall("Test.dll\Load")
  118. if(!ret)
  119. AddChatMessage(0xFFFFFF, "{FF0000}Fehler{FFFFFF} beim Laden der DLL")
  120. SendInput {enter}
  121. if(ret)
  122. AddChatMessage(0xFFFFFF, "{FFA300}Test.dll{FFFFFF} wird {FF0000}injected{FFFFFF} ...")
  123. SendInput {enter}
  124. sleep 1000
  125. AddChatMessage(0xFFFFFF, "{FFA300}Test.dll{FFFFFF} erfolgreich {00E500}geladen{FFFFFF}!")
  126. return
  127.  
  128. :?:/sektimeroff::
  129. suspend permit
  130. SendInput {enter}
  131. SetTimer, SekundenTimer, off
  132. AddChatMessage(0xFFFFFF, "SekundenTimer: {FF0000}Deaktiviert{FFFFFF}!")
  133. return
  134.  
  135. :?:/sektimeron::
  136. suspend permit
  137. SendInput {enter}
  138. SetTimer, SekundenTimer, 50
  139. AddChatMessage(0xFFFFFF, "SekundenTimer: {00E500}Aktiviert{FFFFFF}!")
  140. return
  141.  
  142. :?:/reload::
  143. suspend permit
  144. SendInput {enter}
  145. AddChatMessage(0xFFFFFF, "{FFA300}Keybinder{FFFFFF}: Neustart ...")
  146. sleep 1000
  147. AddChatMessage(0xFFFFFF, "{FFA300}Keybinder{FFFFFF}: Gestartet ...")
  148. reload
  149. return
  150.  
  151. :?:/opfer::
  152. Suspend Permit
  153. SendInput /id{space}
  154. Input, Opfer, V I M,{enter}
  155. return
  156.  
  157. :?:/partner::
  158. Suspend Permit
  159. SendInput /id{space}
  160. Input, Partner, V I M,{enter}
  161. return
  162.  
  163. :?:/hp::
  164. Suspend Permit
  165. SendChat("/b " GetPlayerHealth() " HP.")
  166. SendInput {enter}
  167. return
  168.  
  169. :?:/ff::
  170. Suspend Permit
  171. SendInput /fastfood{space}{space}1{left}{left}
  172. return
  173.  
  174. :?:/eatd::
  175. Suspend Permit
  176. SendInput /eatdonut{enter}
  177. return
  178.  
  179. :?:/swh::
  180. suspend permit
  181. SendInput {enter}
  182. SendChat("/service wheelman")
  183. return
  184.  
  185. :?:/aheal::
  186. Suspend Permit
  187. SendInput /accept heal{enter}
  188. return
  189.  
  190. :?:/ah::
  191. Suspend Permit
  192. SendInput /accept hotdog{enter}
  193. return
  194.  
  195. :?:/arep::
  196. Suspend Permit
  197. SendInput /accept repair{enter}
  198. return
  199.  
  200. :?:/aref::
  201. Suspend Permit
  202. SendInput /accept refill{enter}
  203. return
  204.  
  205. :?:/asex::
  206. Suspend Permit
  207. SendInput /accept sex{enter}
  208. return
  209.  
  210. :?:/wanteds::
  211. Suspend Permit
  212. SendInput {enter}
  213. wanteds := GetPlayerWanteds()
  214. if(wanted > 6)
  215. {
  216. sterne := wanteds + 1
  217. SendChat("/f Aktuelles Wantedlevel: " sterne " ")
  218. SendChat("/b Aktuelles Wantedlevel: " sterne " ")
  219. }
  220. else if(wanted <= 6)
  221. {
  222. SendChat("/f Aktuelles Wantedlevel: " wanteds " ")
  223. SendChat("/b Aktuelles Wantedlevel: " wanteds " ")
  224. }
  225. return
  226.  
  227. :?:/setgwkills::
  228. Suspend Permit
  229. Input GWKills,V I M,{enter}
  230. Iniwrite, %GWKills%, %IniPfad%, Killzaehler, GWKills
  231. SendInput {enter}
  232. IniRead, GWKills, %IniPfad%, Killzaehler, GWKills
  233. SendChat("/f Gangwarkills auf " GWKills " gesetzt.")
  234. return
  235.  
  236. :?:/setgzkills::
  237. Suspend Permit
  238. Input GWZoneKills,V I M,{enter}
  239. Iniwrite, %GWZoneKills%, %IniPfad%, Killzaehler, GWZoneKills
  240. SendInput {enter}
  241. IniRead, GWZoneKills, %IniPfad%, Killzaehler, GWZoneKills
  242. SendChat("/f Gangzonekills auf " GWZoneKills " gesetzt.")
  243. return
  244.  
  245. :?:/setdeaths::
  246. Suspend Permit
  247. Input Deaths,V I M,{enter}
  248. Iniwrite, %Deaths%, %IniPfad%, Killzaehler, Deaths
  249. SendInput {enter}
  250. IniRead, Deaths, %IniPfad%, Killzaehler, Deaths
  251. SendChat("/f Tode auf " Deaths " gesetzt.")
  252. return
  253.  
  254. :?:/übersicht::
  255. Suspend Permit
  256. SendInput {enter}
  257. IniRead, Deaths, %IniPfad%, Killzaehler, Deaths
  258. IniRead, GWKills, %IniPfad%, Killzaehler, GWKills
  259. IniRead, GWZoneKills, %IniPfad%, Killzaehler, GWZoneKills
  260. SendChat("/f Übersicht der Stats: Tode: " Deaths " - Gangwarkills: " GWKills " - Gangzonekills: " GWZoneKills ".")
  261. return
  262.  
  263. :?:/re::
  264. suspend permit
  265. GetPlayerName(smsName)
  266. Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  267. {
  268. If InStr(A_LoopReadLine, "Sender:")
  269. {
  270. RegExMatch(A_LoopReadLine, "SMS: (.*), Sender: (.*) \((.*)\)" ,sms)
  271. }
  272. }
  273. if(sms2 != smsName)
  274. {
  275. SendInput /sms %sms3%{space}
  276. }
  277. else
  278. {
  279. sendinput, {enter}
  280. }
  281. return
  282.  
  283. ;-------------------;
  284. ;Timer
  285. ;-------------------;
  286.  
  287. SekundenTimer:
  288. IfWinActive GTA:SA:MP
  289. {
  290. IniRead, GWKills, %IniPfad%, Killzaehler, GWKills
  291. IniRead, GWZoneKills, %IniPfad%, Killzaehler, GWZoneKills
  292. IniRead, Deaths, %IniPfad%, Killzaehler, Deaths
  293. Loop, read,%A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  294. {
  295. last_line:=A_LoopReadLine
  296. }
  297. IfInString,last_line, ~r~Gangwarkill
  298. {
  299. GetCityName(city)
  300. Deaths = %Deaths%
  301. Deaths++
  302. Iniwrite, %Deaths%, %IniPfad%, Killzaehler, Deaths
  303. SendChat("/f Bin Down! Nr.: " Deaths " - (Gangwarkill) Ort: " city " ")
  304. FileAppend, beend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  305. }
  306. IfInString,last_line, ~g~Gangwarkill
  307. {
  308. GWKills = %GWKills%
  309. GWKills++
  310. Iniwrite, %GWKills%, %IniPfad%, Killzaehler, GWKills
  311. SendChat("/f » Gangwarkill Nr.: " GWKills " «")
  312. FileAppend, beend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  313. }
  314. IfInString,last_line, ~g~Gangzonekill
  315. {
  316. GWZoneKills = %GWZoneKills%
  317. GWZoneKills++
  318. Iniwrite, %GWZoneKills%, %IniPfad%, Killzaehler, GWZoneKills
  319. SendChat("/f » GangzoneKill Nr.: " GWZoneKills " «")
  320. FileAppend, beend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  321. }
  322. IfInString,last_line, ~r~Gangzonekill
  323. {
  324. Deaths = %Deaths%
  325. Deaths++
  326. Iniwrite, %Deaths%, %IniPfad%, Killzaehler, Deaths
  327. SendChat("/f Bin Down im Gebiet! Nr.: " Deaths " (GangzoneKill)")
  328. FileAppend, beend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  329. }
  330. IfInString,last_line, ~r~CTF Punkt Eingenommen!
  331. {
  332. SendChat("/f Ich mach nun CTF. Andere Bobs für diesen Putzerjob findet ihr nicht.")
  333. FileAppend, beend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\gangwars.txt
  334. }
  335. }
  336. return
  337.  
  338. *~$SHIFT::
  339. Sleep 200
  340. Loop
  341. {
  342. GetKeyState, SpaceState, SHIFT, P
  343. If SpaceState = U
  344. break
  345. Sleep 1
  346. Send, {Blind}{SHIFT}
  347. }
  348. 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!