API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.91 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. ****** INFOS ******
  3.  
  4. V = Variablen
  5. G = Funktionen / Ausführung
  6.  
  7. */
  8.  
  9.  
  10. #NoEnv
  11. #Singleinstance Force
  12. #IfWinActive GTA:SA:MP
  13. #Persistent
  14. #include API.ahk
  15.  
  16. ;** Timer **
  17. SetTimer, Killzähler, 250
  18. settimer, Todzähler, 250
  19. ;** *
  20.  
  21. ;**** Includes für Ferhat die Mongo ****;
  22.  
  23. Main:
  24. IniRead, Killspruch, Keybinder.ini, Killzähler, Killspruch
  25. IniRead, LokalerKillspruch, Keybinder.ini, Killzähler, LokalerKillspruch
  26. IniRead, Kills, Keybinder.ini, Killzähler, Kills
  27. IniRead, Todzähler, Keybinder.ini, Killzähler, Todzähler
  28. IniRead, Todspruch, Keybinder.ini, Killzähler, Todspruch
  29.  
  30. Gui, Add, Edit, x2 y30 vKillspruch w420 h30 , %Killspruch%
  31. Gui, Add, Text, x2 y10 w100 h20 , Killspruch
  32. Gui, Add, Edit, x2 y90 vLokalerKillspruch w420 h30 , %LokalerKillspruch%
  33. Gui, Add, Text, x2 y70 w100 h20 , Lokaler Killspruch
  34. Gui, Add, Edit, x2 y150 vTodspruch w420 h30 , %Todspruch%
  35. Gui, Add, Text, x2 y130 w100 h20 , Todspruch
  36. Gui, Add, Button, x12 y210 gSchließen w100 h30 , Schließen
  37. Gui, Add, Button, x122 y210 gspeichern w100 h30 , Speichern
  38. Gui, Add, Button, x232 y210 gVariablen w100 h30 , Variablen
  39. Gui, Add, Button, x342 y190 gBefehle w100 h60 , Befehle
  40. Gui, Show, w477 h259, Adminbinderv0.1
  41. return
  42.  
  43. Speichern:
  44. IniRead, Killspruch, Keybinder.ini, Killzähler, Killspruch
  45. GuiControlGet, Killspruch
  46. IniWrite, %Killspruch%, Keybinder.ini, Killzähler, Killspruch
  47. IniRead, LokalerKillspruch, Keybinder.ini, Killzähler, Lokaler Killspruch
  48. GuiControlGet, LokalerKillspruch
  49. IniWrite, %LokalerKillspruch%, Keybinder.ini, Killzähler, LokalerKillspruch
  50. GuiControlGet, Todspruch
  51. Iniwrite, %Todspruch%, Keybinder.ini, Killzähler, Todspruch
  52. MsgBox, 0, Keybinder gespeichert!, Dein Keybinder wurde nun gespeichert!`nViel Spaß dir noch!
  53. reload
  54. return
  55.  
  56. Variablen:
  57. MsgBox, 64, Variablen!, <KILLS> = Zeigt deine Kills an.`n<CITY> = Zeigt dein Land an`n<ZONE> = Zeigt an wo du dich befindest
  58. return
  59.  
  60. Befehle:
  61. MsgBox, 64, Befehle!,
  62. (
  63. Admin | Keybinderhilfe`n/kevent = Startet ein Event`n/kgewinner = Zeigt den Gewinner an`n/klotto = Lotto Event!`n/kquiz = Quiz-Comet Erklärung!`n/kkgewinner = Keinen Gewinner`n/frpr = Fragen oder Probleme Meldung`nInfo für Sup Tickets!`n/sa1,/sa2 & /sa3 nur bei Problem Tickets benutzen!`n/wh = Wie kann ich helfen?`n/hf = Noch Fragen?`n/hfn = braucht keine Hilfe`n/hfj = braucht noch Hilfe
  64. )
  65. return
  66.  
  67. Schließen:
  68. MsgBox, 1, Bist du dir sicher?, Bist du dir sicher das du denn Keybinder beenden willst?
  69. Ifmsgbox Ok
  70. ExitApp
  71. Ifmsgbox Cancel
  72. Reload
  73. return
  74.  
  75. Killzähler:
  76. ifwinnotactive, GTA:SA:MP
  77. return
  78. name := getUsername()
  79. zone := getPlayerZone()
  80. city := getPlayerCity()
  81. GetChatLine(0, Chatline1)
  82. GetChatLine(1, Chatline2)
  83. if(InStr(Chatline2, "Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Unbekannt.") AND InStr(Chatline1, "Momentanes Wantedlevel:")){
  84. IniRead, Kills, Keybinder.ini, Killzähler, Kills
  85. IniRead, Killspruch, Keybinder.ini, Killzähler, Killspruch
  86. IniRead, LokalerKillspruch, Keybinder.ini, Killzähler, LokalerKillspruch
  87. Kills++
  88. IniWrite, %Kills%, Keybinder.ini, Killzähler, Kills
  89. StringReplace, Killspruch, Killspruch, [KILLS], %Kills%
  90. StringReplace, Killspruch, Killspruch, [ZONE], %zone%
  91. StringReplace, Killspruch, Killspruch, [CITY], %city%
  92. StringReplace, LokalerKillspruch, LokalerKillspruch, [KILLS], %Kills%
  93. StringReplace, LokalerKillspruch, LokalerKillspruch, [ZONE], %zone%
  94. StringReplace, LokalerKillspruch, LokalerKillspruch, [CITY], %city%
  95. AddChatMessage("{3664BF}[Keybinder]{FFFFFF} +1 Snack junge! | Insgesamt: {771010}" Kills)
  96. SendChat("/r " . Killspruch . "")
  97. Sendchat("" . LokalerKillspruch . "")
  98. }
  99. return
  100.  
  101. PlayerInput(text){
  102. s := A_IsSuspended
  103. Suspend On
  104. KeyWait Enter
  105. SendInput t^a{backspace}%text%
  106. Input, var, v, {enter}
  107. SendInput ^a{backspace 100}{enter}
  108. Sleep, 20
  109. if(!s)
  110. Suspend Off
  111. return var
  112. }
  113.  
  114. Todzähler:
  115. myzone := getPlayerZone()
  116. mycity := getPlayerCity()
  117. Iniread, Todspruch, Keybinder.ini, Killzähler, Todspruch
  118. IniRead, Todzähler, Keybinder.ini, Killzähler, Todzähler
  119. if(GetPlayerState()==55){
  120. Todzähler = %Todzähler%
  121. Todzähler++
  122. IniWrite, %Todzähler%, Keybinder.ini, Killzähler, Todzähler
  123. StringReplace, Todspruch, Todspruch, [TODE], %tode%
  124. StringReplace, Todspruch, Todspruch, [ZONE], %zone%
  125. StringReplace, Todspruch, Todspruch, [CITY], %city%
  126. Sendchat("/r " Todspruch "" Todzähler "")
  127. sleep, 15000
  128. }
  129. return
  130.  
  131. :?:/faketest::
  132. Suspend Permit
  133. AddChatMessage("Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Unbekannt.")
  134. AddChatMessage("Momentanes Wantedlevel: 2")
  135. return
  136.  
  137. ^m::
  138. Suspend Permit
  139. SendChat("/motor")
  140. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Du betätigst die {771010}Zündung!")
  141. return
  142.  
  143.  
  144. ^n::
  145. Suspend Permit
  146. SendChat("/licht")
  147. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Du hast das Licht {771010}an-/ausgeschaltet!")
  148. return
  149.  
  150. ^b::
  151. Suspend Permit
  152. SendChat("/clock")
  153. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Du hast das Fahrzeug {771010}auf-/abgeschlossen!")
  154. return
  155.  
  156. :?:/kevent::
  157. Suspend Permit
  158. Eventname := Playerinput("Eventname: ")
  159. SendChat("/o - Event Time -")
  160. sleep 1000
  161. SendChat("/o Ich starte nun ein " . Eventname . " Event!")
  162. Gewinn := Playerinput("Gewinn: ")
  163. SendChat("/o Der Gewinn beträgt " . Gewinn . "!")
  164. SendChat("/eventmenu")
  165. return
  166.  
  167. :?:/kgewinner::
  168. Suspend Permit
  169. Gewinner := Playerinput("Gewinner: ")
  170. SendChat("/o Wir haben einen Gewinner!")
  171. sleep 1000
  172. SendChat("/o Herzlichen Glückwunsch " . Gewinner . "")
  173. sleep 1000
  174. SendChat("/o - Event Time Ende -")
  175. return
  176.  
  177. :?:/klotto::
  178. Suspend Permit
  179. SendChat("/o - Event Time -")
  180. sleep 1000
  181. SendChat("/o Ihr habt nun 30.Sekunden Zeit eine Zahl von 1 - 20 in den /a Chat zu schreiben.")
  182. sleep 1000
  183. SendChat("/o Der Gewinn beträgt 25.Ingame Coins!")
  184. sleep 1000
  185. SendChat("/o Info: Wenn keiner gewinnt, gewinnt der, der am nähsten dran ist!")
  186. sleep 1000
  187. SendChat("/a An euch Teammitglieder, ihr dürft auch nur 1.mal mitmachen!")
  188. sleep 30000
  189. random, lotto, 1, 20
  190. SendChat("/o Die Zahl lautet " lotto "")
  191. sleep 1000
  192. SendChat("/o Es wird sich gleich feststellen ob es einen Gewinner gibt!")
  193. return
  194.  
  195. :?:/kquiz::
  196. Suspend Permit
  197. SendChat("/am Einer von uns stellt euch Fragen & ihr müsst sie beantworten.")
  198. sleep 1000
  199. SendChat("/am Wer die Frage zuerst richtig beantwortet,")
  200. sleep 1000
  201. SendChat("/am darf einen Spieler spawnen lassen!")
  202. sleep 1000
  203. SendChat("/am Alle verstanden?")
  204. return
  205.  
  206. :?:/kkgewinner::
  207. Suspend Permit
  208. SendChat("/o Es gab leider keinen Gewinner!")
  209. sleep 1000
  210. SendChat("/o Viel Spaß euch noch auf D.S.Z!")
  211. sleep 1000
  212. SendChat("/o - Event Time Ende -")
  213. return
  214.  
  215. :?:/frpr::
  216. Suspend Permit
  217. SendChat("/o Bei Fragen oder Problemen /sup & wir helfen euch!")
  218. return
  219.  
  220. :?:/lae::
  221. Suspend Permit
  222. SendChat("/o Habt ihr lust auf ein Event? Wenn ja, welches? /a")
  223. return
  224.  
  225. :?:/sa1::
  226. Suspend Permit
  227. SendChat("/sup accept 1")
  228. return
  229.  
  230. :?:/sa2::
  231. Suspend Permit
  232. SendChat("/sup accept 2")
  233. return
  234.  
  235. :?:/sa3::
  236. Suspend Permit
  237. SendChat("/sup accept 3")
  238. return
  239.  
  240. :?:/wh::
  241. Suspend Permit
  242. SendChat("Heyoo")
  243. sleep 2000
  244. SendChat("Wie kann ich dir helfen?")
  245. return
  246.  
  247. :?:/hf::
  248. Suspend Permit
  249. SendChat("Kann ich dir sonst noch helfen?")
  250. return
  251.  
  252. :?:/hfn::
  253. Suspend Permit
  254. SendChat("Alles klar, dann wünsche ich dir noch einen angenehmen Tag.")
  255. sleep 3000
  256. SendChat("/sup delete 1")
  257. return
  258.  
  259. :?:/hfj::
  260. Suspend Permit
  261. SendChat("Alles klar & wobei brauchst du noch hilfe?")
  262. return
  263.  
  264. :?:/waffen::
  265. sleep, 500
  266. Sendchat("/lsequip")
  267. sleep, 250
  268. sendinput, {down 5}{enter}
  269. sleep, 150
  270. sendinput, {down 6}{enter}
  271. sleep, 150
  272. sendinput, {down 7}{enter}
  273. sleep, 150
  274. sendinput, {down 9}{enter}
  275. sleep, 150
  276. sendinput, {down 10}{enter}
  277. sleep, 150
  278. sendinput, {down 11}{enter}
  279. sleep, 150
  280. sendinput, {escape}
  281. sleep 200
  282. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Erfolgreich Waffen aus dem Waffenschrank {771010}entnommen.")
  283. return
  284.  
  285. :?:/la::
  286. suspend, permit
  287. if(Laufscript == 1)
  288. {
  289. Laufscript := 0
  290. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Laufscript {771010}ausgeschaltet.")
  291. } else {
  292. Laufscript := 1
  293. AddChatMessage("{C930FC}[Cop-Keybinder]{FFFFFF} Laufscript {771010}eingeschaltet.")
  294. }
  295. return
  296.  
  297. ~Space::
  298. suspend, permit
  299. Sleep 30
  300. if(Laufscript == 1 AND IsPlayerInAnyVehicle() == 0 AND isInChat() == 0) {
  301. while GetKeyState("Space", "P")
  302. {
  303. Send {Space down}
  304. Sleep 10
  305. Send {Space up}
  306. Sleep 1
  307. }
  308. } else {
  309. return
  310. }
  311. return
  312.  
  313. :?:/lagerfeuer::
  314. Sendchat("Setzt euch ans Lagerfeuer,")
  315. sleep, 1500
  316. Sendchat("singt das Lagerfeuerlied")
  317. sleep, 1500
  318. Sendchat("Das L-a-g-e-r-f-e-u-e-r-l-i-e-d-Lied")
  319. sleep, 1500
  320. Sendchat("Und das Lied geht noch viel schneller,")
  321. sleep, 1000
  322. Sendchat("denn erst dann wird es zum Hit.")
  323. sleep, 1000
  324. Sendchat("Darum singt es doch ganz einfach mit.")
  325. sleep, 1000
  326. Sendchat("Bam Bam Bam")
  327. sleep, 1000
  328. Sendchat("L-a-g-e-r-f-e-u-e-r-l-i-e-d-Lied.")
  329. sleep, 1000
  330. Sendchat("L-a-g-e-r-f-e-u-e-r-l-i-e-d-Lied.")
  331. sleep, 1000
  332. Sendchat("Und das Lied geht noch viel schneller,")
  333. sleep, 1000
  334. Sendchat("denn erst dann wird es zum Hit.")
  335. sleep, 750
  336. Sendchat("Darum singt es doch ganz einfach mit.")
  337. sleep, 500
  338. Sendchat("L-a-g-e-r-f-e-u-e-r-l-i-e-d-Lied.")
  339. sleep, 750
  340. Sendchat("Patrick!")
  341. sleep, 500
  342. Sendchat("Patrick: Lied! L-a-g-r-feuerlieeed!")
  343. sleep, 1000
  344. Sendchat("Taddäus!")
  345. sleep, 1000
  346. Sendchat("Taddäus: ...")
  347. sleep, 1000
  348. Sendchat("Nicht schlecht.")
  349. sleep, 1000
  350. Sendchat("Und darum! Und darum!")
  351. sleep, 750
  352. Sendchat("Singt es doch einfach mit!")
  353. sleep, 500
  354. Sendchat("Oh yeah!")
  355. return
  356.  
  357. :?:/akhelp::
  358. sleep 250
  359. ShowDialog(0,"{C930FC}Admin - Keybinderhilfe","/kevent = Startet ein Event`n/kgewinner = Zeigt den Gewinner an`n/klotto = Lotto Event!`n/kquiz = Quiz-Comet Erklärung!`n/kkgewinner = Keinen Gewinner`n/frpr = Fragen oder Probleme Meldung`nInfo für Sup Tickets!`n/sa1,/sa2 & /sa3 nur bei Problem Tickets benutzen!`n/wh = Wie kann ich helfen?`n/hf = Noch Fragen?`n/hfn = braucht keine Hilfe`n/hfj = braucht noch Hilfe","Schließen")
  360. return
  361.  
  362. NumpadSub::
  363. Suspend Permit
  364. Sendchat("/tazer")
  365. return
  366.  
  367. ^Q::
  368. Suspend Permit
  369. SendChat("/aufzug")
  370. return
  371.  
  372. 1::
  373. SendChat("/m » Allgemeine Verkehrskontrolle, fahren Sie sofort rechts ran!!")
  374. sleep 1000
  375. SendChat("/m » Fahren Sie Sofort rechts ran oder et knallt!")
  376. sleep 1000
  377. SendChat("/m » Sollten Sie sich weigern, werden Sie dafür bestraft!!")
  378. return
  379.  
  380. :?:/eins::
  381. Suspend Permit
  382. SendChat("/m » Bitte steigen Sie mit der Taste 'G' in das SAPD Fahrzeug.")
  383. sleep 1000
  384. SendChat("/m » Sollten Sie sich weigern, knallt es!")
  385. return
  386.  
  387. 2::
  388. SendChat("Aussteigen und meinen Anweisungen folgen, oder et knallt")
  389. return
  390.  
  391. 3::
  392. SendChat("Guten Tag Sir,")
  393. sleep 1000
  394. SendChat("Ich werde dich nun durchsuchen. Solltest du dich wagen abzuhauen kriegst du ein Verweigerungs Wanted.")
  395. Frisk := Playerinput("Frisk: ")
  396. sleep 1000
  397. SendChat("/frisk " . Frisk . "")
  398. return
  399.  
  400. 4::
  401. SendChat("Scheine und Perso her, oder et knallt")
  402. sleep 250
  403. Sendchat("(/showlicenses [ID] & /showperso [ID])")
  404. return
  405.  
  406. 5::
  407. Sendchat("Danke für die Kooperation, Ich will dich hier nicht nochmal sehen")
  408. return
  409.  
  410. 6::
  411. SendChat("/m » Ergib dich oder et knallt!")
  412. sleep 1000
  413. SendChat("/m » (/handsup)!")
  414. return
  415.  
  416. :?:/zel::
  417. Suspend Permit
  418. SendChat("/s Zu den Zellen oder et knallt!")
  419. return
  420.  
  421. :?:/nh::
  422. Suspend Permit
  423. SendChat("/needhelp")
  424. SendChat("/d Ich brauche dringende hilfe!!")
  425. SendChat("/r Ich brauche dringende hilfe!!")
  426. return
  427.  
  428. :?:/ha::
  429. Suspend Permit
  430. SendChat("/s Geben Sie /aufzug ein")
  431. sleep 1000
  432. SendChat("/s Solltest du dich weigern, kriegst du ein Verweigerungs Wanted.")
  433. return
  434.  
  435. ^2::
  436. Suspend Permit
  437. SendChat("/duty")
  438. return
  439.  
  440. :?:/sahelp::
  441. sleep 250
  442. ShowDialog(0,"{C930FC}Cop - Keybinderhilfe","/waffen = /lsequip`nNumpad- = /tazer`nSTRG+Q = /aufzug`n1 = Verkehrskontrolle`n2 = Aussteigen, Anweisungen Folgen`n3 = Durchsuchen`n5 = Scheine & Perso`n6 = Danke für die Kooperation`n7 = Ergeben`n/eins = Einsteigen`n/zel = Zu den Zellen`n/nh = Needhelp`n/ha = Geben Sie /aufzug ein!","Schließen")
  443. return
  444.  
  445. GuiClose:
  446. ExitApp
  447. 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!