API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 20th, 2017
564
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 58.74 KB | None | 0 0
raw download clone embed print report
  1. #ifWinActive, GTA:SA:MP
  2. #SingleInstance, force
  3. #Persistent
  4. #UseHook
  5. #NoEnv
  6. #Include API.ahk
  7.  
  8.  
  9. ;~ AddFarbe := {0E1681}Agency{FFFFFF} | TEXT LALAL
  10.  
  11. SetTimer, antiSpam, On
  12. SetTimer, Xtaste, 500
  13. Settimer, hacken, 150
  14. Settimer, hacken, 150
  15. SetTimer, Grabben, On
  16. SetTimer, fee, 1000
  17. SetTimer, contracts, 1000
  18.  
  19. IfNotExist, %A_AppData%\Agency-Keybinder\
  20. {
  21. FileCreateDir, %A_AppData%\Agency-Keybinder\
  22. MsgBox, 48, Agency Keybinder, Der Keybinder erstellt nun dein Ordner, 5
  23. Sleep 2000
  24. Reload
  25. }
  26. ifExist, updater.exe
  27. {
  28. FileDelete, updater.exe
  29. }
  30.  
  31. keybinderVersion := 0.1
  32. global username := GetUsername()
  33.  
  34. if(username == "")
  35. {
  36. RegRead, username, HKCU, Software\SAMP, PlayerName
  37. }
  38. url = http://wheelman.jameschans.de/keybinder/check.php?name=%username%
  39. UrlDownloadtoVar(url, result)
  40. result = 1
  41. if(result == 0 || result == -1 || result == -2)
  42. {
  43. MsgBox, 16, Fehler, Du stehst nicht auf der Whitelist`, bitte kontaktiere die Leaderschaft, 4
  44. ExitApp
  45. } else {
  46. VarSetCapacity(url, -1)
  47. VarSetCapacity(result, -1)
  48. }
  49.  
  50.  
  51. urli = http://wheelman.jameschans.de/keybinder/version.txt
  52. URLDownloadToVar(urli, result_)
  53. if(result_ > keybinderVersion)
  54. {
  55. MsgBox, 68, Update verfügbar, Lieber Benutzer,`nes ist ein neues Update für den Keybinder verfügbar ( Version %result_% ).`nMöchtest Du nun updaten?
  56. IfMsgBox, Yes
  57. {
  58. MsgBox, 68, Update wird heruntergeladen!, Das Update wird nun heruntergeladen, 3
  59. URLDownloadToFile, http://wheelman.jameschans.de/keybinder/updater.exe, updater.exe
  60. MsgBox, 68, Updater start, Der Updater wird nun gestartet und der Keybinder geschlossen., 3
  61. run, updater.exe
  62. ExitApp
  63. }
  64. }
  65. /*
  66. Hotkey1 - Motor
  67. Hotkey2 - Lock
  68. Hotkey3 - Members
  69. Hotkey4 - Fische Essen
  70. Hotkey5 - Use Drugs
  71. Hotkey6 - Erstehilfe
  72. Hotkey7 - BK rufen
  73. Hotkey8 - BK beenden
  74. Hotkey9 - BK helfen
  75. Hotkey10 - Eject All
  76. Hotkey11 - Position im F
  77. Hotkey12 - Letzer Befehl
  78. Hotkey13 - Afind Stoppen
  79. Hotkey14 - Hacken
  80. Hotkey15 - Accept Wheelman
  81. Hotkey16 - Auftrag zurücklegen
  82. Hotkey17 - Auftrag abbrechen
  83. Hotkey18 - Ausruesten Prof 1
  84. Hotkey19 - Ausruesten Prof 2
  85. Hotkey20 - Contracts
  86. Hotkey21 - Mask
  87. Hotkey22 - Tor Auf
  88. Hotkey23 - Keybinder Pausieren
  89. Hotkey24 - XTaste Selbst belegbar(kommt später dazu)
  90. Hotkey25 - Selbst Belegbar
  91. Hotkey26 - Selbst Belegbar
  92. Hotkey27 - Selbst Belegbar
  93. Hotkey28 - Selbst Belegbar
  94. Hotkey29 - Selbst Belegbar
  95. Hotkey30 - Selbst Belegbar
  96. Hotkey31 - Selbst Belegbar
  97. Hotkey32 - Selbst Belegbar
  98. Hotkey33 - Selbst Belegbar
  99. Hotkey34 - Selbst Belegbar
  100. Hotkey35 - Selbst Belegbar
  101. e & 1|2|3 - Eject Platz
  102. /fg - /festgeld "fg"
  103. /gk - GK Suche
  104. /tr - Taschenrechner
  105. /p - Anruf Annehmen
  106. /h - Anruf Beenden
  107. /ksms - sms bei Name
  108. /resms - Re SMS
  109. /ftime - Time in Fraktion
  110. /cd - Countdown
  111. /alotto - Random Lotto
  112. /aall - Ausrüsten All
  113. /link - Link grabben
  114. /ac - Accept alles mögliche
  115. /af - Afind
  116. /as - AShow
  117. /cops - Cop liste
  118. /addcop - Add Cop
  119. /dellcop - Dell Cop
  120. /relog - Relog
  121. */
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128. ;Motor
  129. HotKey1:
  130. if(IsInChat())
  131. return
  132. if(IsPlayerInAnyVehicle() == "0")
  133. {
  134. AddChatMessage("Du bist in keinem Fahrzeug")
  135. }
  136. else
  137. {
  138. If(IsPlayerDriver() == 0)
  139. {
  140. AddChatMessage("Du bist nicht der Fahrer eines Fahrzeuges.")
  141. }
  142. else
  143. {
  144. SendChat("/motor")
  145. Sleep, 10
  146.  
  147. if(getVehicleLightState() == 0 && ALight == 1)
  148. SendChat("/licht")
  149. if(Alock == 1 && getVehicleLockState() == 0)
  150. SendChat("/lock")
  151.  
  152. }
  153. }
  154. return
  155.  
  156. ;lock
  157. HotKey2:
  158. if(IsInChat())
  159. return
  160. if(IsPlayerInAnyVehicle() == "0")
  161. {
  162. AddChatMessage("Du befindest dich in keinem Fahrzeug.")
  163. }
  164. else
  165. {
  166. SendChat("/lock")
  167. }
  168. return
  169.  
  170. ;members
  171. HotKey3:
  172. if(IsInChat())
  173. return
  174. SendChat("/members")
  175. return
  176.  
  177.  
  178.  
  179. ;Fische essen
  180. HotKey4:
  181. Iniread, Fische, %A_AppData%\Agency-Keybinder\settings.ini, HP, Fische
  182. Iniread, FishUse, %A_AppData%\Agency-Keybinder\settings.ini, HP, FishUse
  183. if(IsInChat())
  184. return
  185.  
  186. if(Fische == 1)
  187. {
  188. if(getPlayerHealth() > FishUse)
  189. {
  190. AddChatMessage( "Du hast {FF0000}" . getPlayerHealth() . " HP{FFFFFF}, Du kannst erst unter {FF0000}" . FishUse . " HP{FFFFFF} Fische essen.")
  191. }
  192. else
  193. {
  194. SendChat("/eat " . fischers . "")
  195. fischers++
  196. }
  197. }
  198. else
  199. {
  200. SendChat("/eat " . fischers . "")
  201. fischers++
  202. }
  203. if(fischers == "6")
  204. {
  205. fischers=1
  206. sleep, 500
  207. AddChatMessage("Du hast alle Fische Verbraucht.")
  208. }
  209.  
  210. return
  211.  
  212. ;usedrugs
  213. HotKey5:
  214. Iniread, Drugs, %A_AppData%\Agency-Keybinder\settings.ini, HP, Drugs
  215. Iniread, DrugsUse, %A_AppData%\Agency-Keybinder\settings.ini, HP, DrugsUse
  216. if(IsInChat())
  217. return
  218. if(Drugs == 1)
  219. {
  220. if(getPlayerHealth() > DrugsUse)
  221. {
  222. AddChatMessage(" Du hast {FF0000}" . getPlayerHealth() . " HP{FFFFFF}, Du kannst erst unter {FF0000}" . DrugsUse . " HP{FFFFFF} deine Drogen benutzen.")
  223. return
  224. }
  225. else
  226. {
  227. SendChat("/usedrugs")
  228. }
  229. }
  230. else
  231. {
  232. SendChat("/usedrugs")
  233. }
  234. return
  235.  
  236. ;Erstehilfe
  237. HotKey6:
  238. Iniread, Erstehilfe, %A_AppData%\Agency-Keybinder\settings.ini, HP, Erstehilfe
  239. Iniread, PaketUse, %A_AppData%\Agency-Keybinder\settings.ini, HP, PaketUse
  240. if(IsInChat())
  241. return
  242. if(Erstehilfe == 1)
  243. {
  244. if(GetPlayerHealth() > PaketUse)
  245. {
  246. AddChatMessage(" Du hast {FF0000}" . getPlayerHealth() . " HP{FFFFFF}, Du kannst erst unter {FF0000}" . PaketUse . " HP{FFFFFF} dein Erstehilfe Paket benutzen.")
  247. return
  248. }
  249. else
  250. {
  251. SendChat("/erstehilfe")
  252. }
  253. }
  254. else
  255. {
  256. SendChat("/erstehilfe")
  257. }
  258. return
  259.  
  260. ;BK
  261. HotKey7:
  262. zone := getPlayerZone()
  263. City := getPlayerCity()
  264. if(!IsInChat())
  265. {
  266. SendChat("/F BK! POS: " zone ", " City " | ID: " . getId() . " | HP: " . GetPlayerHealth() . "")
  267. }
  268. return
  269.  
  270. ;Bkend
  271. HotKey8:
  272. if(IsInChat())
  273. return
  274. SendChat("/f BK wird NICHT mehr benötigt!")
  275. return
  276.  
  277. ;BKHelp
  278. HotKey9:
  279. if(IsInChat())
  280. return
  281. SendChat("/F Ich bin Unterwegs | Pos: " city ", " zone " ")
  282. return
  283.  
  284. ;Eject all
  285. HotKey10:
  286. psg := GetSeatIDs()
  287. if(isInChat())
  288. return
  289. if(psg[2] != -1)
  290. {
  291. SendChat("/eject "psg[2])
  292. }
  293. if(psg[3] != -1)
  294. {
  295. SendChat("/eject "psg[3])
  296. }
  297. if(psg[4] != -1)
  298. {
  299. SendChat("/eject "psg[4])
  300. }
  301. return
  302.  
  303.  
  304. ;PosF
  305. HotKey11:
  306. if(IsInChat())
  307. return
  308. SendChat("/F Ich befinde mich in " . getPlayerCity() . ", " . getPlayerZone() . ".")
  309. return
  310.  
  311.  
  312. ;Letzter Befehl
  313. HotKey12:
  314. if(IsInChat())
  315. return
  316. SendInput t{up}{enter}
  317. return
  318.  
  319.  
  320. ;Afind Stoppen
  321. HotKey13:
  322. if(IsInChat())
  323. return
  324. SetTimer, Find, Off
  325. SetTimer, Show, Off
  326. SetTimer, GK, Off
  327. AddChatMessage( "Automatisches Findsystem deaktiviert.")
  328. return
  329.  
  330.  
  331.  
  332. ;Hacken
  333. HotKey14:
  334. if(IsInChat())
  335. return
  336. SendChat("/hacken")
  337. return
  338.  
  339.  
  340. ;Accept Wheelman
  341. HotKey15:
  342. if(IsInChat())
  343. return
  344. SendChat("/accept Wheelman")
  345. Settimer, accept, 500
  346. return
  347.  
  348. accept:
  349. username := GetUsername()
  350. GetChatLine(0, line1)
  351. if(InStr(line1, "Du hast den Auftrag von") && InStr(line1, "angenommen"))
  352. {
  353. Settimer, accept, off
  354. url = http://wheelman.jameschans.de/keybinder/angen.php?name=%username%
  355. UrlDownloadToVar(url, result)
  356. StringSplit, result_, result, ~
  357. IniWrite, %result_1%, reporting.ini, Reporting%A_MM%-%A_DD%-%A_Hour%-%A_Min%
  358. if(result_1 == 1)
  359. {
  360. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Du hast bereits " FormatNumber(result_2) " Aufträge angenommen")
  361. url := ""
  362. result := ""
  363. url = http://wheelman.jameschans.de/keybinder/dm/dangen.php?name=%username%
  364. URLDownloadToVar(url, result)
  365. StringSplit, result, result, ~
  366. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wochenaufträge: " FormatNumber(result2) " - Monatsaufträge: " FormatNumber(result3))
  367. } else {
  368. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler. Bitte an John_Reese oder Pietro_Miller wenden.")
  369. }
  370. }
  371. return
  372.  
  373.  
  374.  
  375. ;Whzurücklegen
  376. HotKey16:
  377. if(IsInChat())
  378. return
  379. SendChat("/revert")
  380. return
  381.  
  382. ;CancelWheelman
  383. HotKey17:
  384. if(IsInChat())
  385. return
  386. SendChat("/cancel wheelman")
  387. return
  388.  
  389. ;Ausrüsten Prof 1
  390. HotKey18:
  391. if(IsInChat())
  392. return
  393. SendChat("/ausruesten " . Profil1_1 . " " . Profil1_2 . " " . Profil1_3 . " " . Profil1_4 . " " . Profil1_5 . " " . Profil1_6 . " " . Profil1_7 . "")
  394. Sleep, 500
  395. SendChat("/heal")
  396. return
  397.  
  398. ;Ausrüsten Prof 2
  399. HotKey19:
  400. if(IsInChat())
  401. return
  402. SendChat("/ausruesten " . Profil2_1 . " " . Profil2_2 . " " . Profil2_3 . " " . Profil2_4 . " " . Profil2_5 . " " . Profil2_6 . " " . Profil2_7 . "")
  403. Sleep, 500
  404. SendChat("/heal")
  405. return
  406.  
  407. ;Contracts
  408. HotKey20:
  409. if(IsInChat())
  410. return
  411. if(oldcontracts == 1)
  412. {
  413. SendChat("/oldcontracts")
  414. }
  415. else
  416. {
  417. SendChat("/contracts")
  418. }
  419. return
  420.  
  421.  
  422. contracts:
  423. GetChatLine(0, Line1)
  424. GetChatLine(2, Line3)
  425. username := GetUsername()
  426. url := ""
  427. urli := ""
  428. regex_ := ""
  429. regex_2 := ""
  430. result1 := ""
  431. result2 := ""
  432. output1_ := ""
  433. output1_1 := ""
  434. output1_2 := ""
  435. output1_3 := ""
  436. output2_ := ""
  437. output2_1 := ""
  438. output2_2 := ""
  439. output2_3 := ""
  440. output2_4 := ""
  441. output2_5 := ""
  442. if(InStr(Line1, "<< Hitman " username " hat den Auftrag ausgeführt und"))
  443. {
  444. RegExMatch(Line1, "<< Hitman " username " hat den Auftrag ausgeführt und (.*) für (.+)\$ getötet. >>", regex_)
  445. contracting := -1
  446. contractupload(username, regex_2)
  447.  
  448. }
  449. if(InStr(Line3, "<< Hitman " username " hat den Auftrag ausgeführt und"))
  450. {
  451.  
  452. RegExMatch(Line3, "<< Hitman " username " hat den Auftrag ausgeführt und (.*) für (.+)\$ getötet. >>", regex_)
  453. contracting := -1
  454.  
  455. contractupload(username, regex_2)
  456.  
  457.  
  458. }
  459. return
  460.  
  461. ;Mask
  462. HotKey21:
  463. if(IsInChat())
  464. return
  465. SendChat("/mask")
  466. return
  467.  
  468. ;Tor Auf
  469. Hotkey22:
  470. if(IsInChat())
  471. return
  472. SendChat("/auf")
  473. return
  474.  
  475. ;Keybinder Pauseren
  476. Hotkey23:
  477. Suspend
  478. If (A_IsSuspended)
  479. {
  480. ShowGameText("~r~Keybinder ~r~ deaktiviert", 2000, 3)
  481. paused = 1
  482. Suspend permit
  483. }
  484. if (!A_IsSuspended)
  485. {
  486. ShowGameText("~g~Keybinder ~g~ aktiviert", 2000, 3)
  487. paused = 0
  488. Suspend off
  489. }
  490. return
  491.  
  492. HotKey24:
  493. if(IsPlayerInAnyVehicle() && IsPlayerDriver())
  494. {
  495. if(IsPlayerInRangeOfPoint(614.7936,1689.5481,6.5567, 10) || IsPlayerInRangeOfPoint(-1328.5437,2677.2109,49.6285, 10) || IsPlayerInRangeOfPoint(1595.7455,2198.9319,10.3875, 10) || IsPlayerInRangeOfPoint(2202.3479,2473.9041,10.3849, 10) || IsPlayerInRangeOfPoint(2113.8887,920.1363,10.3840, 10) || IsPlayerInRangeOfPoint(-2408.7478,975.8612,44.8655, 10) || IsPlayerInRangeOfPoint(-2029.3025,156.4132,28.4108, 10) || IsPlayerInRangeOfPoint(-1676.3165,414.2832,6.7490, 10) || IsPlayerInRangeOfPoint(1004.1802,-939.2733,41.7504, 10) || IsPlayerInRangeOfPoint(1944.1013,-1772.9907,12.9622, 10) || IsPlayerInRangeOfPoint(-90.6283,-1169.5378,1.9707, 10) || IsPlayerInRangeOfPoint(-1605.3982,-2714.4424,48.5335, 10) || IsPlayerInRangeOfPoint(-2243.8896,-2560.5569,31.9219, 10) || IsPlayerInRangeOfPoint(1380.9418,457.1429,19.4861, 10) || IsPlayerInRangeOfPoint(70.4341,1218.6842,18.3743, 10) || IsPlayerInRangeOfPoint(1555.4310,-1605.5901,13.1827, 10))
  496. {
  497. if(InStr(chat0, "Du bist an keiner Tankstelle."))
  498. {
  499. return
  500. }
  501. else if !Errorlevel
  502. {
  503. if(getVehicleEngineState() == 1)
  504. {
  505. SendChat("/motor")
  506. }
  507. SendChat("/fill")
  508. Sleep, 10000
  509. SendChat("/motor")
  510. Sleep, 2600
  511. SendChat("/licht")
  512. }
  513. } else if(IsPlayerInRangeOfPoint(1733.4684,546.3726,26.2758, 10) || IsPlayerInRangeOfPoint(1741.1063,543.4731,26.3013, 10) || IsPlayerInRangeOfPoint(1744.0303,523.6337,27.3567, 10) || IsPlayerInRangeOfPoint(1752.7092,521.6908,27.3102, 10) || IsPlayerInRangeOfPoint(512.5435,476.6207,18.4921, 10) || IsPlayerInRangeOfPoint(529.2228,467.2050,18.5020, 10) || IsPlayerInRangeOfPoint(-159.7899,414.1762,11.6441, 10) || IsPlayerInRangeOfPoint(-157.4410,392.2368,11.6423, 10) || IsPlayerInRangeOfPoint(-1408.2322,824.1868,46.9611, 10) || IsPlayerInRangeOfPoint(-1414.7716,803.5920,46.8070, 10) || IsPlayerInRangeOfPoint(-2695.0493,1284.6304,54.9936, 10) || IsPlayerInRangeOfPoint(-2686.3394,1284.2363,54.9928, 10) || IsPlayerInRangeOfPoint(-2676.6162,1265.3683,54.9934, 10) || IsPlayerInRangeOfPoint(-2668.1848,1264.9076,54.9993, 10) || IsPlayerInRangeOfPoint(-963.0773,-343.0494,35.6944, 10) || IsPlayerInRangeOfPoint(-967.9983,-322.3340,35.9383, 10) || IsPlayerInRangeOfPoint(-71.7615,-892.4689,15.3092, 10) || IsPlayerInRangeOfPoint(-68.7422,-867.9615,14.0653, 10) || IsPlayerInRangeOfPoint(100.1979,-1284.3651,13.6976, 10) || IsPlayerInRangeOfPoint(94.4024,-1277.8165,13.6380, 10) || IsPlayerInRangeOfPoint(97.1871,-1254.1139,14.2317, 10) || IsPlayerInRangeOfPoint(94.6934,-1245.5920,14.2429, 10) || IsPlayerInRangeOfPoint(42.7052,-1537.9767,4.7632, 10) || IsPlayerInRangeOfPoint(58.0220,-1524.9335,4.5461, 10))
  514. {
  515. {
  516. SendChat("/zoll")
  517. }
  518. }
  519. }
  520. return
  521. /*
  522. Xtaste:
  523. GetChatline(0, line)
  524. if(IsPlayerInAnyVehicle() && IsPlayerDriver())
  525. {
  526. if(IsPlayerInRangeOfPoint(614.7936,1689.5481,6.5567, 10) || IsPlayerInRangeOfPoint(-1328.5437,2677.2109,49.6285, 10) || IsPlayerInRangeOfPoint(1595.7455,2198.9319,10.3875, 10) || IsPlayerInRangeOfPoint(2202.3479,2473.9041,10.3849, 10) || IsPlayerInRangeOfPoint(2113.8887,920.1363,10.3840, 10) || IsPlayerInRangeOfPoint(-2408.7478,975.8612,44.8655, 10) || IsPlayerInRangeOfPoint(-2029.3025,156.4132,28.4108, 10) || IsPlayerInRangeOfPoint(-1676.3165,414.2832,6.7490, 10) || IsPlayerInRangeOfPoint(1004.1802,-939.2733,41.7504, 10) || IsPlayerInRangeOfPoint(1944.1013,-1772.9907,12.9622, 10) || IsPlayerInRangeOfPoint(-90.6283,-1169.5378,1.9707, 10) || IsPlayerInRangeOfPoint(-1605.3982,-2714.4424,48.5335, 10) || IsPlayerInRangeOfPoint(-2243.8896,-2560.5569,31.9219, 10) || IsPlayerInRangeOfPoint(1380.9418,457.1429,19.4861, 10) || IsPlayerInRangeOfPoint(70.4341,1218.6842,18.3743, 10) || IsPlayerInRangeOfPoint(1555.4310,-1605.5901,13.1827, 10))
  527. {
  528. AddChatMessage("Du kannst jetzt dein Fahrzeug betanken. Drück '{FFBF00}" . HotKey24 . "{FFFFFF}' zum bestätigen.")
  529. return
  530. }else if(IsPlayerInRangeOfPoint(1733.4684,546.3726,26.2758, 10) || IsPlayerInRangeOfPoint(1741.1063,543.4731,26.3013, 10) || IsPlayerInRangeOfPoint(1744.0303,523.6337,27.3567, 10) || IsPlayerInRangeOfPoint(1752.7092,521.6908,27.3102, 10) || IsPlayerInRangeOfPoint(512.5435,476.6207,18.4921, 10) || IsPlayerInRangeOfPoint(529.2228,467.2050,18.5020, 10) || IsPlayerInRangeOfPoint(-159.7899,414.1762,11.6441, 10) || IsPlayerInRangeOfPoint(-157.4410,392.2368,11.6423, 10) || IsPlayerInRangeOfPoint(-1408.2322,824.1868,46.9611, 10) || IsPlayerInRangeOfPoint(-1414.7716,803.5920,46.8070, 10) || IsPlayerInRangeOfPoint(-2695.0493,1284.6304,54.9936, 10) || IsPlayerInRangeOfPoint(-2686.3394,1284.2363,54.9928, 10) || IsPlayerInRangeOfPoint(-2676.6162,1265.3683,54.9934, 10) || IsPlayerInRangeOfPoint(-2668.1848,1264.9076,54.9993, 10) || IsPlayerInRangeOfPoint(-963.0773,-343.0494,35.6944, 10) || IsPlayerInRangeOfPoint(-967.9983,-322.3340,35.9383, 10) || IsPlayerInRangeOfPoint(-71.7615,-892.4689,15.3092, 10) || IsPlayerInRangeOfPoint(-68.7422,-867.9615,14.0653, 10) || IsPlayerInRangeOfPoint(100.1979,-1284.3651,13.6976, 10) || IsPlayerInRangeOfPoint(94.4024,-1277.8165,13.6380, 10) || IsPlayerInRangeOfPoint(97.1871,-1254.1139,14.2317, 10) || IsPlayerInRangeOfPoint(94.6934,-1245.5920,14.2429, 10) || IsPlayerInRangeOfPoint(42.7052,-1537.9767,4.7632, 10) || IsPlayerInRangeOfPoint(58.0220,-1524.9335,4.5461, 10))
  531. {
  532. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}| Möchtest du den Zoll jetzt öffnen? Zum öffnen '{FFBF00}" . HotKey24 . "{FFFFFF}' drücken.")
  533. return
  534. }
  535. }
  536. return
  537. */
  538. XTaste:
  539. IniRead, XTasteOn, settings.ini, Einstellung, XTasteOn
  540. if(XtasteOn == 1)
  541. {
  542. if(IsPlayerInAnyVehicle() && IsPlayerDriver())
  543. {
  544. if(IsPlayerInRangeOfPoint(614.7936,1689.5481,6.5567, 10) || IsPlayerInRangeOfPoint(-1328.5437,2677.2109,49.6285, 10) || IsPlayerInRangeOfPoint(1595.7455,2198.9319,10.3875, 10) || IsPlayerInRangeOfPoint(2202.3479,2473.9041,10.3849, 10) || IsPlayerInRangeOfPoint(2113.8887,920.1363,10.3840, 10) || IsPlayerInRangeOfPoint(-2408.7478,975.8612,44.8655, 10) || IsPlayerInRangeOfPoint(-2029.3025,156.4132,28.4108, 10) || IsPlayerInRangeOfPoint(-1676.3165,414.2832,6.7490, 10) || IsPlayerInRangeOfPoint(1004.1802,-939.2733,41.7504, 10) || IsPlayerInRangeOfPoint(1944.1013,-1772.9907,12.9622, 10) || IsPlayerInRangeOfPoint(-90.6283,-1169.5378,1.9707, 10) || IsPlayerInRangeOfPoint(-1605.3982,-2714.4424,48.5335, 10) || IsPlayerInRangeOfPoint(-2243.8896,-2560.5569,31.9219, 10) || IsPlayerInRangeOfPoint(1380.9418,457.1429,19.4861, 10) || IsPlayerInRangeOfPoint(70.4341,1218.6842,18.3743, 10) || IsPlayerInRangeOfPoint(1555.4310,-1605.5901,13.1827, 10))
  545. {
  546. AddChatMessage(" |{01DF01}Wheelman{FFFFFF}| Du kannst jetzt dein Fahrzeug betanken. Drück '{FFBF00}X{FFFFFF}' zum bestätigen.")
  547. KeyWait, X, D, T10
  548. if(InStr(chat0, "Du bist an keiner Tankstelle."))
  549. {
  550. return
  551. }
  552. else if !Errorlevel
  553. {
  554. if(getVehicleEngineState() == 1)
  555. {
  556. SendChat("/motor")
  557. }
  558. SendChat("/fill")
  559. Sleep, 10000
  560. SendChat("/motor")
  561. Sleep, 2600
  562. SendChat("/licht")
  563.  
  564. }
  565. } else if(IsPlayerInRangeOfPoint(1733.4684,546.3726,26.2758, 10) || IsPlayerInRangeOfPoint(1741.1063,543.4731,26.3013, 10) || IsPlayerInRangeOfPoint(1744.0303,523.6337,27.3567, 10) || IsPlayerInRangeOfPoint(1752.7092,521.6908,27.3102, 10) || IsPlayerInRangeOfPoint(512.5435,476.6207,18.4921, 10) || IsPlayerInRangeOfPoint(529.2228,467.2050,18.5020, 10) || IsPlayerInRangeOfPoint(-159.7899,414.1762,11.6441, 10) || IsPlayerInRangeOfPoint(-157.4410,392.2368,11.6423, 10) || IsPlayerInRangeOfPoint(-1408.2322,824.1868,46.9611, 10) || IsPlayerInRangeOfPoint(-1414.7716,803.5920,46.8070, 10) || IsPlayerInRangeOfPoint(-2695.0493,1284.6304,54.9936, 10) || IsPlayerInRangeOfPoint(-2686.3394,1284.2363,54.9928, 10) || IsPlayerInRangeOfPoint(-2676.6162,1265.3683,54.9934, 10) || IsPlayerInRangeOfPoint(-2668.1848,1264.9076,54.9993, 10) || IsPlayerInRangeOfPoint(-963.0773,-343.0494,35.6944, 10) || IsPlayerInRangeOfPoint(-967.9983,-322.3340,35.9383, 10) || IsPlayerInRangeOfPoint(-71.7615,-892.4689,15.3092, 10) || IsPlayerInRangeOfPoint(-68.7422,-867.9615,14.0653, 10) || IsPlayerInRangeOfPoint(100.1979,-1284.3651,13.6976, 10) || IsPlayerInRangeOfPoint(94.4024,-1277.8165,13.6380, 10) || IsPlayerInRangeOfPoint(97.1871,-1254.1139,14.2317, 10) || IsPlayerInRangeOfPoint(94.6934,-1245.5920,14.2429, 10) || IsPlayerInRangeOfPoint(42.7052,-1537.9767,4.7632, 10) || IsPlayerInRangeOfPoint(58.0220,-1524.9335,4.5461, 10))
  566. {
  567. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}| Möchtest du den Zoll jetzt öffnen? Zum öffnen '{FFBF00}X{FFFFFF}' drücken.")
  568. Settimer, XTaste, off
  569. KeyWait, X, D, T10
  570. if !ErrorLevel
  571. {
  572. Settimer, XTaste, 500
  573. SendChat("/zoll")
  574. GetChatLine(0, chat)
  575. if(InStr(chat, "Es ist keine Zo l Station in deiner Nähe"))
  576. {
  577. Sleep, 800
  578. SendChat("/zoll")
  579. Sleep 5000
  580. }
  581. Sleep 5000
  582. }
  583. Settimer, XTaste, 500
  584. } else if(isPlayerInRangeOfPoint(330.7347,-40.3479,2.2255, 2))
  585. {
  586. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}| Möchtest du dir Drogen kaufen? Zum kaufen '{FFBF00}X{FFFFFF}' drücken.")
  587. Settimer, XTaste, off
  588. KeyWait, X, D, T10
  589. if !ErrorLevel
  590. {
  591. SendChat("/seed buy")
  592. Sleep, 5000
  593. }
  594. Sleep 5000
  595. Settimer, XTaste, 500
  596. }
  597. }
  598. }
  599. return
  600.  
  601. ;10 Selbst Belegbare
  602.  
  603. HotKey25:
  604. printHotkey(25)
  605. return
  606. HotKey26:
  607. printHotkey(26)
  608. return
  609. HotKey27:
  610. printHotkey(27)
  611. return
  612. HotKey28:
  613. printHotkey(28)
  614. return
  615. HotKey29:
  616. printHotkey(29)
  617. return
  618. HotKey30:
  619. printHotkey(30)
  620. return
  621. HotKey31:
  622. printHotkey(31)
  623. return
  624. HotKey32:
  625. printHotkey(32)
  626. return
  627. HotKey33:
  628. printHotkey(33)
  629. return
  630. HotKey34:
  631. printHotkey(33)
  632. return
  633. return
  634. HotKey35:
  635. printHotkey(35)
  636. return
  637.  
  638. ; eject Platz 2
  639. ~e & ~1::
  640. psg := GetSeatIDs()
  641. if(IsInChat())
  642. return
  643. if(psg[2] != -1)
  644. {
  645. SendChat("/eject "psg[2])
  646. }
  647. return
  648. ; eject Platz 3
  649. ~e & ~2::
  650. psg := GetSeatIDs()
  651. if(IsInChat())
  652. return
  653. if(psg[3] != -1)
  654. {
  655. SendChat("/eject "psg[3])
  656. }
  657. return
  658. ; eject Platz 4
  659. ~e & ~3::
  660. psg := GetSeatIDs()
  661. if(IsInChat())
  662. return
  663. if(psg[4] != -1)
  664. {
  665. SendChat("/eject "psg[4])
  666. }
  667. return
  668. */
  669.  
  670. ;Festgeld anlegen
  671. :?:/fg::
  672. SendChat("/festgeld " fg)
  673. return
  674.  
  675. ; GK suche
  676. :?:/gk::
  677. Suspend Permit
  678. gk := PlayerInput("Welchen GK suchst du? ")
  679. if(gk=="")
  680. return
  681. gk_search(gk)
  682. return
  683.  
  684. ;Taschenrechner
  685. :?:/tr::
  686. :?:/taschenrechner::
  687. :?:/rechner::
  688. Suspend Permit
  689.  
  690. Zahl1 := PlayerInput("Zahl 1: ")
  691. AddChatMessage("Es gibt folgende Aktionen: + - * /")
  692. Aktion := PlayerInput("Aktion: ")
  693. Zahl2 := PlayerInput("Zahl 2: ")
  694. if (Aktion = "+")
  695. {
  696. StringSplit, calc, Aktion, +
  697. calcresult := Round(Zahl1 + Zahl2, 3)
  698. }
  699. if (Aktion = "-")
  700. {
  701. StringSplit, calc, Aktion, -
  702. calcresult := Round(Zahl1 - Zahl2, 3)
  703. }
  704. if (Aktion = "*")
  705. {
  706. StringSplit, calc, Aktion, *
  707. calcresult := Round(Zahl1 * Zahl2, 3)
  708. }
  709. if (Aktion = "/")
  710. {
  711. StringSplit, calc, Aktion, /
  712. calcresult := Round(Zahl1 / Zahl2, 3)
  713. }
  714. AddChatMessage("Das Ergebnis lautet: {01DF01}" . calcresult . "")
  715. return
  716.  
  717. ;Anrufzeug
  718. :?:/p::
  719. SendChat("/p")
  720. SendChat("Guten Tag, Sie sind verbunden mit " name ".")
  721. SendChat("Was kann ich für Sie tun?")
  722. return
  723.  
  724. :?:/h::
  725. SendChat("Vielen Dank für Ihren Anruf.")
  726. SendChat("/h")
  727. return
  728.  
  729. ~F::
  730. if(IsInChat())
  731. return
  732. if(AutoMotorAus == 1)
  733. {
  734. Sleep, 250
  735. if(IsPlayerInAnyVehicle())
  736. {
  737. if(IsPlayerDriver())
  738. {
  739. if(getVehicleEngineState())
  740. {
  741. SendChat("/motor")
  742. }
  743. }
  744. }
  745. }
  746. return
  747.  
  748. ;Ksms
  749. :?:/ksms::
  750. Suspend, Permit
  751. pinput := PlayerInput("Name: ")
  752. SendChat("/number " . pinput . "")
  753. Loop,
  754. {
  755. GetChatLine(0, line)
  756. if(InStr(line, "Name: "))
  757. {
  758. RegExMatch(line, "Name: (.*), Ph: (.*)", Output)
  759. SendInput, t/sms %Output2%{space}
  760. return
  761. }
  762. else If(InStr(line, "Diesen Spieler gibt es nicht!"))
  763. {
  764. AddChatMessage("Versendung nicht möglich!")
  765. return
  766. }
  767. else
  768. {
  769. continue
  770. }
  771. }
  772. return
  773.  
  774. ;Time in F-Chat
  775. :?:/ftime::
  776. Suspend Permit
  777. SendChat("/time")
  778. Sleep, 100
  779. adrGTA2 := getModuleBaseAddress("gta_sa.exe", hGTA)
  780. cText := readString(hGTA, adrGTA2 + 0x7AAD43, 512)
  781. if(instr(cText, "In Behandlung")) {
  782. RegExMatch(cText, "(.*)In Behandlung: (\d+)", ausgabe)
  783. newText2 := ""
  784. zeit := sekunden(ausgabe2)
  785. SendChat("/f ~Ich bin noch " . zeit . " in Behandlung")
  786. StringReplace, newText2, cText, In Behandlung: %ausgabe2% Sekunden, Noch %zeit% im KH
  787. writeString(hGTA, adrGTA2 + 0x7AAD43, newText2)
  788. } else if(instr(cText, "Knastzeit")) {
  789. RegExMatch(cText, "(.*)Knastzeit: (\d+)", ausgabe)
  790. newText2 := ""
  791. zeit := sekunden(ausgabe2)
  792. SendChat("/f Ich befinde mich noch " . zeit . " im Knast")
  793. StringReplace, newText2, cText, Knastzeit: %ausgabe2% Sekunden, Noch %zeit% im Knast
  794. writeString(hGTA, adrGTA2 + 0x7AAD43, newText2)
  795. }
  796. return
  797.  
  798. ;CountDown
  799. :?:/cd::
  800. Suspend Permit
  801. zahli := 0
  802. AddChatMessage(" Gib eine Zahl für deinen Countdown ein")
  803. zahl := PlayerInput("/Countdown: ")
  804. AddChatMessage(" Du kannst den Countdown mit '{FFBF00}<{FFFFFF}' beenden.")
  805. ;SendChat("Countdown startet!")
  806. Sleep 1000
  807. Loop, %zahl%
  808. {
  809. Sendchat("/s << " zahl " >>")
  810. zahl--
  811. KeyWait, <, D T1
  812. If !ErrorLevel
  813. {
  814. return
  815. }
  816. Sleep 100
  817. }
  818. AddChatMessage("Freigegeben")
  819. return
  820.  
  821. ;Random Loto
  822. :?:/alotto::
  823. Suspend Permit
  824. Random, rand, 1, 200
  825. SendChat("/lotto " rand)
  826. return
  827.  
  828. ;Ausrüsten Alles
  829. :?:/aall::
  830. Suspend, Permit
  831. SendChat("/ausruesten all")
  832. return
  833.  
  834. ; Linkgrabber
  835. :?:/link::
  836. Suspend Permit
  837. GetChatLine(0, Link)
  838. IfInString, Link, http
  839. {
  840. res := SubStr(Link,(s := InStr(Link,"http://")),InStr(Link,"/",0,1,3) - s + 1)
  841. If(!InStr(Link, radio))
  842. AddChatMessage("[Link] Es wurde ein Link erkannt und in der Zwischenablage gespeichert")
  843. Clipboard := res
  844. }
  845. return
  846.  
  847. ;Eigene AD
  848. :?:/sad::
  849. Suspend Permit
  850. SendChat("/ad " . Werbung . "")
  851. return
  852.  
  853. ;Interne Stats //////////// muss noch überarbetet werden
  854. :?:/agstats::
  855. username := GetUsername()
  856. url = http://wheelman.jameschans.de/keybinder/stats.php?name=%username%
  857. URLDownloadToVar(url, result)
  858. StringSplit, result_, result, ~
  859. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Deine Wheelman Statistiken")
  860. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Angenommen`t`tAusgeführt`t`tGehackt`t`tEinnahmen:")
  861. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| " FormatNumber(result_1) "`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t" FormatNumber(result_2) "`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t`t" FormatNumber(result_3) "`t`t`t`t`t`t`t`t`t`t`t`t" FormatNumber(result_4) "$")
  862. return
  863.  
  864. ;Accept All
  865. :?:/ac::
  866. Suspend Permit
  867. Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  868. {
  869. If InStr(A_LoopReadLine, "/accept drugs")
  870. {
  871. Service = drugs
  872. }
  873. else If InStr(A_LoopReadLine, "/accept kaution cash")
  874. {
  875. Service = kaution
  876. }else If InStr(A_LoopReadLine, "/accept weapon")
  877. {
  878. Service = weapon
  879. }
  880. else If InStr(A_LoopReadLine, "/accept live")
  881. {
  882. Service = live
  883. }
  884. else If InStr(A_LoopReadLine, "/accept repair")
  885. {
  886. Service = repair
  887. }
  888. else If InStr(A_LoopReadLine, "/accept refill")
  889. {
  890. Service = refill
  891. }
  892. else If InStr(A_LoopReadLine, "/accept taxi")
  893. {
  894. Service = taxi
  895. }
  896. else If InStr(A_LoopReadLine, "/accept medic")
  897. {
  898. Service = medic
  899. }
  900. else If InStr(A_LoopReadLine, "/accept ticket")
  901. {
  902. Service = ticket
  903. }
  904. else If InStr(A_LoopReadLine, "/accept dice")
  905. {
  906. Service = dice
  907. }
  908. else If InStr(A_LoopReadLine, "/accept stats")
  909. {
  910. Service = stats
  911. }
  912. else If InStr(A_LoopReadLine, "/accept paket")
  913. {
  914. Service = paket
  915. }
  916. }
  917. SendChat("/accept " Service "")
  918. return
  919.  
  920.  
  921. :?:/af::
  922. :?:/afind::
  923. Suspend Permit
  924. Suspend On
  925. SendInput, /find{space}
  926. Input, AID, V I M,{enter}
  927. Send {enter}
  928. SetTimer, Find, 6000
  929. SetTimer, GK, 1000
  930. Suspend Off
  931. AddChatMessage("Das automatische Suchen können Sie mit der eingestellten Taste deaktivieren.")
  932. return
  933.  
  934. :?:/as::
  935. :?:/ashow::
  936. Suspend Permit
  937. SendInput, /showpos{space}
  938. Input, AID, V I M,{enter}
  939. Send {enter}
  940. SetTimer, Show, 6000
  941. SetTimer, GK, 1000
  942. Suspend Off
  943. AddChatMessage("Das automatische Suchen können Sie mit der eingestellten Taste deaktivieren.")
  944. return
  945.  
  946. Find:
  947. SendChat("/find " . AID)
  948. return
  949. Show:
  950. SendChat("/showpos " . AID)
  951. return
  952. GK:
  953. GetChatLine(0, Chatline)
  954. if(InStr(Chatline, "Der Spieler befindet sich in") && InStr(Chatline, "Gebäudekomplex"))
  955. {
  956. RegExMatch(Chatline, "Der Spieler befindet sich in Gebäudekomplex (.*)", params)
  957. GKID := params1
  958. gk_search(GKID)
  959. }
  960. return
  961.  
  962. antiSpam:
  963. if(!WinActive("GTA:SA:MP"))
  964. return
  965. GetChatLine(0, Chatline__)
  966. GetChatLine(1, Chatline_)
  967. Chatline := Chatline_ Chatline__
  968. if(InStr(Chatline, "WARNUNG: Hör auf zu Spamen, sonst wirst du gekickt!")){
  969. if(InStr(Chatline, "sagt:") || InStr(Chatline, "schreit:") || InStr(Chatline, "**(("))
  970. return
  971. BlockChatInput()
  972. AddChatMessage("|{01DF01}Wheelman{FFFFFF}|Anti-Spam Schutz aktiviert.")
  973. sleep, 3000
  974. AddChatMessage("|{01DF01}Wheelman{FFFFFF}|Anti-Spam Schutz deaktiviert.")
  975. unblockChatInput()
  976. }
  977. return
  978.  
  979.  
  980.  
  981. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Fisch
  982. :?:/vrk::
  983. :?:/asell::
  984. Suspend Permit
  985. GetChatLine(0, Line1)
  986. sleep 50
  987. SendChat("/sell fish 1")
  988. if(InStr(Line1, "Du bist in keinem 24-7!"))
  989. return
  990. SendChat("/sell fish 2")
  991. if(InStr(Line1, "Du bist in keinem 24-7!"))
  992. return
  993. sleep, 1000
  994. SendChat("/sell fish 3")
  995. if(InStr(Line1, "Du bist in keinem 24-7!"))
  996. return
  997. SendChat("/sell fish 4")
  998. if(InStr(Line1, "Du bist in keinem 24-7!"))
  999. return
  1000. sleep, 1000
  1001. SendChat("/sell fish 5")
  1002. if(InStr(Line1, "Du bist in keinem 24-7!"))
  1003. return
  1004. sleep, 100
  1005. gesamtmoney:=0
  1006. gesamtlbs:=0
  1007. counter:=0
  1008. Loop, 25
  1009. {
  1010. GetChatLine(A_Index-1, Chatline)
  1011. if(InStr(Chatline,"Du hast deinen")){
  1012. RegExMatch(Chatline, "Du hast deinen (.*) \((.*) LBS\) für (.*)\$ verkauft\.", var)
  1013. gesamtmoney:=gesamtmoney+var3
  1014. gesamtlbs:=gesamtlbs+var2
  1015. counter++
  1016. if(counter==5)
  1017. break
  1018. }
  1019. }
  1020. AddChatMessage("Du hast alle deine Fische verkauft! ($" . gesamtmoney . ")")
  1021. return
  1022. return
  1023.  
  1024.  
  1025. /*
  1026. InteriorID := 24/7 == ID:10
  1027.  
  1028.  
  1029. */
  1030.  
  1031.  
  1032. :?:/FishHP::
  1033. Suspend Permit
  1034. angelType := 1
  1035. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}| Der Keybinder wirft nun bei '/fish || /afish' den Fisch weg, der die wenigsten HP bringt.")
  1036. return
  1037.  
  1038. :?:/FishGeld::
  1039. Suspend Permit
  1040. angelType := 2
  1041. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}| Der Keybinder wirft nun bei '/fish || /afish' den Fisch mit den billigstens Verkaufpreis weg.")
  1042. return
  1043.  
  1044. :?:/FishNix::
  1045. Suspend Permit
  1046. angelType := 3
  1047. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Der Keybinder wirft nun bei '/fish || /afish' keinen Fisch weg")
  1048. return
  1049.  
  1050. :?:/fish::
  1051. :?:/afish::
  1052. Suspend Permit
  1053. sleep 50
  1054. if(IsPlayerInRangeOfPoint(378.383605, -2085.143310, 7.387549, 50) || IsPlayerInRangeOfPoint(-2075.935546, 1434.549194, 7.101562, 50) || IsPlayerInRangeOfPoint(1600.157592, 602.537170, 7.780212, 50))
  1055. {
  1056. Loop {
  1057. SendChat("/fish")
  1058. sleep, 100
  1059. GetChatLine(0,Chatline)
  1060. if(!InStr(Chatline, "gefangen")){
  1061. if(InStr(Chatline,"Du bist an keinem Angelplatz (Big Wheel Rods) oder an einem Fischerboot!")){
  1062. return
  1063. }else if(InStr(Chatline,"Du kannst nur 5 Fische bei dir tragen.")){
  1064. SendChat("/fishes")
  1065. sleep, 500
  1066. if(angelType == 1){
  1067. lowestLBS := 999
  1068. lowestFish := 1
  1069. Loop, 5
  1070. {
  1071. GetChatLine(A_Index, Chatline)
  1072. RegExMatch(Chatline, "\*\* \(([0-9]+)\) Fisch\: (.*) \(([0-9]+) LBS\)", fishes_var)
  1073. if(fishes_var3 <= lowestLBS){
  1074. lowestLBS := fishes_var3
  1075. lowestFish := fishes_var1
  1076. lowestFishName := fishes_var2
  1077. }
  1078. }
  1079. SendChat("/releasefish " . lowestFish)
  1080. AddChatMessage("Du hast ein " . lowestFishName . " mit " . lowestLBS . " LBS weggeworfen.")
  1081.  
  1082. }else if(angelType == 2){
  1083. lowestPrice := 5000
  1084. lowestFish := 1
  1085. Loop, 5
  1086. {
  1087. GetChatLine(A_Index, Chatline)
  1088. RegExMatch(Chatline, "\*\* \(([0-9]+)\) Fisch\: (.*) \(([0-9]+) LBS\)", fishes_var)
  1089. price := GetFishPrice(fishes_var2, fishes_var3)
  1090. if(price <= lowestPrice){
  1091. lowestPrice := price
  1092. lowestFish := fishes_var1
  1093. lowestFishName := fishes_var2
  1094. }
  1095. }
  1096. SendChat("/releasefish " . lowestFish)
  1097. AddChatMessage("Du hast ein " . lowestFishName . " mit dem Verkaufs-Preis " . lowestPrice . "$ weggeworfen.")
  1098. } else if(angelType == 3){
  1099. moneyGesamt := 0
  1100. healthGesamt := 0
  1101. Loop, 5
  1102. {
  1103. GetChatLine(A_Index, Chatline)
  1104. RegExMatch(Chatline, "\*\* \(([0-9]+)\) Fisch\: (.*) \(([0-9]+) LBS\)", fishes_var)
  1105. if(fishes_var3 < 20)
  1106. continue
  1107. if(fishes_var2 == "Nichts"){
  1108. continue
  1109. }else if(fishes_var2 == "Bernfisch"){
  1110. moneyGesamt += Floor(fishes_var3 * 1)
  1111. }else if(fishes_var2 == "Blauer Fächerfisch"){
  1112. moneyGesamt += Floor(fishes_var3 * 2)
  1113. }else if(fishes_var2 == "Schwertfisch" || fishes_var2 == "Zackenbarsch" || fishes_var2 == "Roter Schnapper"){
  1114. moneyGesamt += Floor(fishes_var3 * 3)
  1115. }else if(fishes_var2 == "Katzenfisch"){
  1116. moneyGesamt += Floor(fishes_var3 * 4)
  1117. }else if(fishes_var2 == "Forelle"){
  1118. moneyGesamt += Floor(fishes_var3 * 5)
  1119. }else if(fishes_var2 == "Delphin" || fishes_var2 == "Hai" || fishes_var2 == "Segelfisch"){
  1120. moneyGesamt += Floor(fishes_var3 * 7)
  1121. }else if(fishes_var2 == "Makrele"){
  1122. moneyGesamt += Floor(fishes_var3 * 8)
  1123. }else if(fishes_var2 == "Hecht" || fishes_var2 == "Aal"){
  1124. moneyGesamt += Floor(fishes_var3 * 9)
  1125. }else if(fishes_var2 == "Schildkröte"){
  1126. moneyGesamt += Floor(fishes_var3 * 10)
  1127. }else if(fishes_var2 == "Thunfisch" || fishes_var2 == "Wolfbarsch"){
  1128. moneyGesamt += Floor(fishes_var3 * 12)
  1129. }else{
  1130. AddChatMessage(fishes_var2 . " (" . fishes_var3 . " LBS) ist ein unbekannter Fisch und konnte nicht berechnet werden.")
  1131. AddChatMessage("Es wäre nett von dir, wenn du dir den Verkaufspreis, den Namen und die LBS des Fisches merken könntest")
  1132. AddChatMessage("und diese Daten Im CP unter'Bug Melden' posten.")
  1133. AddChatMessage(" Vielen Dank!")
  1134. continue
  1135. }
  1136. healthGesamt += Floor(fishes_var3 * 0.3)
  1137. }
  1138.  
  1139. AddChatMessage("Die Fische würden dir ingesamt " . healthGesamt . "HP oder " . moneyGesamt . "$ bringen.")
  1140. break
  1141. }
  1142. }else if(InStr(Chatline, "Du kannst erst in")){
  1143. SendChat("/fishes")
  1144. sleep, 250
  1145. moneyGesamt := 0
  1146. healthGesamt := 0
  1147. Loop, 5
  1148. {
  1149. GetChatLine(A_Index, Chatline)
  1150. RegExMatch(Chatline, "\*\* \(([0-9]+)\) Fisch\: (.*) \(([0-9]+) LBS\)", fishes_var)
  1151. if(fishes_var3 < 20)
  1152. continue
  1153. if(fishes_var2 == "Nichts"){
  1154. continue
  1155. }else if(fishes_var2 == "Bernfisch"){
  1156. moneyGesamt += Floor(fishes_var3 * 1)
  1157. }else if(fishes_var2 == "Blauer Fächerfisch"){
  1158. moneyGesamt += Floor(fishes_var3 * 2)
  1159. }else if(fishes_var2 == "Schwertfisch" || fishes_var2 == "Zackenbarsch" || fishes_var2 == "Roter Schnapper"){
  1160. moneyGesamt += Floor(fishes_var3 * 3)
  1161. }else if(fishes_var2 == "Katzenfisch"){
  1162. moneyGesamt += Floor(fishes_var3 * 4)
  1163. }else if(fishes_var2 == "Forelle"){
  1164. moneyGesamt += Floor(fishes_var3 * 5)
  1165. }else if(fishes_var2 == "Delphin" || fishes_var2 == "Hai" || fishes_var2 == "Segelfisch"){
  1166. moneyGesamt += Floor(fishes_var3 * 7)
  1167. }else if(fishes_var2 == "Makrele"){
  1168. moneyGesamt += Floor(fishes_var3 * 8)
  1169. }else if(fishes_var2 == "Hecht" || fishes_var2 == "Aal"){
  1170. moneyGesamt += Floor(fishes_var3 * 9)
  1171. }else if(fishes_var2 == "Schildkröte"){
  1172. moneyGesamt += Floor(fishes_var3 * 10)
  1173. }else if(fishes_var2 == "Thunfisch" || fishes_var2 == "Wolfbarsch"){
  1174. moneyGesamt += Floor(fishes_var3 * 12)
  1175. }else{
  1176. AddChatMessage(fishes_var2 . " (" . fishes_var3 . " LBS) ist ein unbekannter Fisch und konnte nicht berechnet werden.")
  1177. AddChatMessage("Es wäre nett von dir, wenn du dir den Verkaufspreis, den Namen und die LBS des Fisches merken könntest")
  1178. AddChatMessage("und diese Daten Im CP unter'Bug Melden' posten.")
  1179. AddChatMessage(" Vielen Dank!")
  1180. continue
  1181. }
  1182. healthGesamt += Floor(fishes_var3 * 0.3)
  1183. }
  1184. AddChatMessage("Die Fische würden dir ingesamt " . healthGesamt . "HP oder " . moneyGesamt . "$ bringen.")
  1185. return
  1186. }
  1187. }
  1188. sleep, 800
  1189. }
  1190. } else {
  1191. SendChat("/fish")
  1192. }
  1193. return
  1194.  
  1195. :?:/fische::
  1196. Suspend, Permit
  1197. SendChat("/fishes")
  1198. moneyGesamt := 0
  1199. healthGesamt := 0
  1200. Sleep 500
  1201. Loop, 5
  1202. {
  1203. GetChatLine(A_Index, Chatline)
  1204. RegExMatch(Chatline, "\*\* \(([0-9]+)\) Fisch\: (.*) \(([0-9]+) LBS\)", fishes_var)
  1205. if(fishes_var3 < 20)
  1206. continue
  1207. if(fishes_var2 == "Nichts"){
  1208. continue
  1209. }else if(fishes_var2 == "Bernfisch"){
  1210. moneyGesamt += Floor(fishes_var3 * 1)
  1211. }else if(fishes_var2 == "Blauer Fächerfisch"){
  1212. moneyGesamt += Floor(fishes_var3 * 2)
  1213. }else if(fishes_var2 == "Schwertfisch" || fishes_var2 == "Zackenbarsch" || fishes_var2 == "Roter Schnapper"){
  1214. moneyGesamt += Floor(fishes_var3 * 3)
  1215. }else if(fishes_var2 == "Katzenfisch"){
  1216. moneyGesamt += Floor(fishes_var3 * 4)
  1217. }else if(fishes_var2 == "Forelle"){
  1218. moneyGesamt += Floor(fishes_var3 * 5)
  1219. }else if(fishes_var2 == "Delphin" || fishes_var2 == "Hai" || fishes_var2 == "Segelfisch"){
  1220. moneyGesamt += Floor(fishes_var3 * 7)
  1221. }else if(fishes_var2 == "Makrele"){
  1222. moneyGesamt += Floor(fishes_var3 * 8)
  1223. }else if(fishes_var2 == "Hecht" || fishes_var2 == "Aal"){
  1224. moneyGesamt += Floor(fishes_var3 * 9)
  1225. }else if(fishes_var2 == "Schildkröte"){
  1226. moneyGesamt += Floor(fishes_var3 * 10)
  1227. }else if(fishes_var2 == "Thunfisch" || fishes_var2 == "Wolfbarsch"){
  1228. moneyGesamt += Floor(fishes_var3 * 12)
  1229. }else{
  1230. AddChatMessage(fishes_var2 . " (" . fishes_var3 . " LBS) ist ein unbekannter Fisch und konnte nicht berechnet werden.")
  1231. AddChatMessage("Es wäre nett von dir, wenn du dir den Verkaufspreis, den Namen und die LBS des Fisches merken könntest")
  1232. AddChatMessage("und diese Daten Im CP unter'Bug Melden' posten.")
  1233. AddChatMessage(" Vielen Dank!")
  1234. continue
  1235. }
  1236. healthGesamt += Floor(fishes_var3 * 0.3)
  1237. }
  1238. AddChatMessage("Die Fische würden dir ingesamt " . healthGesamt . "HP oder " . moneyGesamt . "$ bringen.")
  1239. return
  1240.  
  1241. :?:/acook::
  1242. :?:/kochen::
  1243. Suspend Permit
  1244. SendChat("/cook fish 1")
  1245. SendChat("/cook fish 2")
  1246. sleep, 1000
  1247. SendChat("/cook fish 3")
  1248. SendChat("/cook fish 4")
  1249. sleep, 1000
  1250. SendChat("/cook fish 5")
  1251. sleep, 150
  1252. j := 0
  1253. gesamt_HP := 0
  1254. Loop, 15
  1255. {
  1256. i := A_Index - 1
  1257. GetChatLine(i, Chatline)
  1258. if(InStr(Chatline, "* Du hast ein/e") && InStr(Chatline, " LBS gekocht.")){
  1259. j++
  1260. RegExMatch(Chatline, "\* Du hast ein\/e (.*) mit ([0-9]+) LBS gekocht.", fishes_)
  1261. fish_HP := Floor(fishes_2 * 0.3)
  1262. gesamt_HP += fish_HP
  1263. SetChatLine(i, "* Du hast ein/e " . fishes_1 . " mit " . fishes_2 . " LBS gekocht. (" . fish_HP . " HP)")
  1264. }
  1265. if(j == 5)
  1266. break
  1267. }
  1268. sleep, 15
  1269. AddChatMessage( "Es wurden alle Fische gekocht. Die Fische bringen " . gesamt_HP . " HP.")
  1270. return
  1271.  
  1272. :?:/cooked::
  1273. :?:/hp::
  1274. SendChat("/cooked")
  1275. Sleep 250
  1276. HP = 0
  1277. Loop, 5{
  1278. GetChatLine(A_Index, fisch)
  1279. RegExMatch(fisch, "\Q** (\E(.*)\Q) Hergestellt: gekochten \E(.*) \((.*) LBS\)", fisch%A_Index%_)
  1280. HP%A_Index% := Floor(fisch%A_Index%_3 * 0.3)
  1281. HP += HP%A_Index%
  1282. }
  1283. Loop, 5{
  1284. AddChatMessage("|{01DF01}Wheelman{FFFFFF}|" . fisch%A_Index%_1 . " (" . fisch%A_Index%_2 . " LBS) - {FFA000} " . HP%A_Index% . " HP")
  1285. }
  1286.  
  1287. AddChatMessage( "|{01DF01}Wheelman{FFFFFF}|Die Fische bringen dir Gesamt: {FFA000}" . HP . " HP")
  1288. return
  1289.  
  1290.  
  1291.  
  1292.  
  1293. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Vorrübergehende Copliste
  1294.  
  1295. :?:/cops::
  1296. copscount := 0
  1297. UrlDownloadToVar("http://wheelman.jameschans.de/keybinder/allcops.php", result)
  1298. cops := "Name `t`t`t`t`tID`n"
  1299. if(coplist == 1){
  1300. Loop, Parse, result, ~
  1301. {
  1302. RegExMatch(A_LoopField, "(\S+)", member)
  1303. id := getPlayerIdByName(member1)
  1304. if (member1 != "") {
  1305. if (id != -1) {
  1306. if (StrLen(member1) > 13) {
  1307. tab := "`t`t"
  1308. } else if (StrLen(member1) > 6 && StrLen(member1) < 13) {
  1309. tab := "`t`t`t`t"
  1310. } else if(StrLen(member1) == 13){
  1311. tab := "`t`t`t"
  1312. } else {
  1313. tab := "`t`t`t"
  1314. }
  1315. ;AddChatMessage(member1 . " [ID: " . id "]")
  1316. cops .= "`n{0B610B}" . member1 . "{FF8000}" . tab "" . id
  1317. copscount++
  1318. }
  1319. }
  1320. }
  1321. title := "Copliste"
  1322. ShowDialog(0, title, cops, "OK")
  1323.  
  1324. } else if(coplist == 2){
  1325. Loop, Parse, result, ~
  1326. {
  1327. RegExMatch(A_LoopField, "(\S+)", member)
  1328. id := getPlayerIdByName(member1)
  1329. if (member1 != "") {
  1330. if (id != -1) {
  1331. if (StrLen(member1) > 14) {
  1332. tab := "`t"
  1333. } else if (StrLen(member1) > 6) {
  1334. tab := "`t`t"
  1335. } else {
  1336. tab := "`t`t`t"
  1337. }
  1338. AddChatMessage("{0B610B} " . member1 . "{FF8000}" . tab "`t`t [ID: " . id "]")
  1339. copscount++
  1340.  
  1341. }
  1342. }
  1343. }
  1344. }
  1345. if(copscount != 0)
  1346. {
  1347. AddChatMessage(" Es sind " copscount " Cops online")
  1348. } else if(copscount == 0){
  1349. AddChatMessage(" Es sind 0 Cops online")
  1350. }
  1351. return
  1352.  
  1353. :?:/addcop::
  1354. Suspend Permit
  1355. playername := GetUsername()
  1356. cname := PlayerInput("/Cop-Name: ")
  1357. url = http://wheelman.jameschans.de/keybinder/addcop.php?name=%cname%&uname=%playername%
  1358. URLDownloadToVar(url, result)
  1359. if(result == 1 || result == 11)
  1360. {
  1361. AddChatMessage(" Du hast den Cop " cname " hinzugefügt")
  1362. } else {
  1363. AddChatMessage(" Fehler: " result)
  1364. }
  1365. return
  1366.  
  1367. :?:/delcop::
  1368. Suspend Permit
  1369. username := GetUsername()
  1370. cname := PlayerInput("/Cop-Name: ")
  1371. url = http://wheelman.jameschans.de/keybinder/delcop.php?name=%cname%&uname=%username%
  1372. URLDownloadToVar(url, result)
  1373. if(result == 1)
  1374. {
  1375. AddChatMessage(" Du hast den Cop " cname " gelöscht")
  1376. } else {
  1377. AddChatMessage(" Fehler: " result)
  1378. }
  1379. return
  1380.  
  1381. :?:/relog::
  1382. AddChatMessage(" Du verbindest nun neu...")
  1383. restart()
  1384. return
  1385.  
  1386.  
  1387. :?:/re::
  1388. :?:/resms::
  1389. Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  1390. {
  1391. if (RegExMatch(A_LoopReadLine, "SMS: (.+), Sender: (\S+) \((\d+)\)")) {
  1392. RegExMatch(A_LoopReadLine, "SMS: (.+), Sender: (\S+) \((\d+)\)", sms_)
  1393. } else if (RegExMatch(A_LoopReadLine, "SMS: (.+)\.\.\.")) {
  1394. }
  1395. }
  1396. if (sms_2 != "" && sms_2 != GetUsername()) {
  1397. AddChatMessage("Letzte SMS (von " . sms_2 . "):")
  1398. AddChatMessage(sms_1)
  1399. SendInput /sms %sms_3%{space}
  1400. } else {
  1401. AddChatMessage("Keiner hat dich angeschrieben!")
  1402. }
  1403. return
  1404.  
  1405.  
  1406. fee:
  1407. GetChatLine(1, line2)
  1408. if(InStr(line2, "Du hast deinen heutigen Aktivitätsbonus"))
  1409. {
  1410. SendChat("/fee " . FeeEinstellung . "")
  1411. }
  1412. return
  1413.  
  1414. clearvariable:
  1415. urli := ""
  1416. money_ := ""
  1417. money_1 := ""
  1418. money_2 := ""
  1419. resultm := ""
  1420. resultm_1 := ""
  1421. resultm_2 := ""
  1422. result := ""
  1423. result_ := ""
  1424. result_1 := ""
  1425. result_2 := ""
  1426. line3name := ""
  1427. line2name := ""
  1428. line1name := ""
  1429. url := ""
  1430. resulti := ""
  1431. line3name := ""
  1432. line2name := ""
  1433. line1name := ""
  1434. return
  1435.  
  1436. Grabben:
  1437. zone := GetPlayerZone()
  1438. City := GetPlayerCity()
  1439. GetChatLine(1, line)
  1440. if(InStr(line, "* Du versuchst") && InStr(line, "in dein Fahrzeug zu ziehen."))
  1441. {
  1442. SendChat("/f Ich versuche den Kunden rauszuziehen, bitte PD blockieren. | Pos: "zone " "City "")
  1443. Sleep 1000
  1444. ShowGameText("~g~5 ~g~", 1000, 3)
  1445. GetChatLine(0, line1)
  1446. if(InStr(line1, "Du bist nicht in der Nähe des Spielers"))
  1447. {
  1448. return
  1449. }
  1450. Sleep 1000
  1451. ShowGameText("~g~4 ~g~", 1000, 3)
  1452. GetChatLine(0, line1)
  1453. if(InStr(line1, "Du bist nicht in der Nähe des Spielers"))
  1454. {
  1455. return
  1456. }
  1457. Sleep 1000
  1458. ShowGameText("~g~3 ~g~", 1000, 3)
  1459. GetChatLine(0, line1)
  1460. if(InStr(line1, "Du bist nicht in der Nähe des Spielers"))
  1461. {
  1462. return
  1463. }
  1464. Sleep 1000
  1465. ShowGameText("~g~2 ~g~", 1000, 3)
  1466. GetChatLine(0, line1)
  1467. if(InStr(line1, "Du bist nicht in der Nähe des Spielers"))
  1468. {
  1469. return
  1470. }
  1471. Sleep 1000
  1472. ShowGameText("~g~1 ~g~", 1000, 3)
  1473. }
  1474. GetChatLine(0, line1)
  1475. if(InStr(line1, "Du bist nicht in der Nähe des Spielers"))
  1476. {
  1477. return
  1478. }
  1479. ; Bei Grabben Timer nach der letzten }
  1480. GetChatLine(0, line1)
  1481. if(InStr(line1, "steigt in dein Fahrzeug ein und zahlt"))
  1482. {
  1483. RegExMatch(line1, "(.*) steigt in dein Fahrzeug ein und zahlt (.*)\$", money_)
  1484. urli = http://wheelman.jameschans.de/keybinder/einnahme.php?name=%username%&einnahme=%money_2%
  1485. UrlDownloadToVar(urli, resultm)
  1486. StringSplit, resultm_, resultm, ~
  1487. SendChat("/f Ich habe den Kunden " money_1 " erfolgreich befreit. Danke!")
  1488. url = http://wheelman.jameschans.de/keybinder/ausge.php?name=%username%
  1489. result := ""
  1490. result_1 := ""
  1491. URLDownloadToVar(url, result)
  1492. StringSplit, result, result, ~
  1493.  
  1494. if(result1 == 1 && resultm_1 == 1)
  1495. {
  1496. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Du hast schon " FormatNumber(result2) " Personen befreit und " FormatNumber(resultm_2) "$ verdient.")
  1497.  
  1498. url = http://wheelman.jameschans.de/keybinder/dm/deinnahme.php?name=%username%&einnahme=%money_2%
  1499. urli = http://wheelman.jameschans.de/keybinder/dm/dausge.php?name=%username%
  1500. URLDownloadToVar(url, result)
  1501. URLDownloadToVar(urli, resulti)
  1502. StringSplit, result, result, ~
  1503. StringSplit, resulti, resulti, ~
  1504. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wocheneinnahmen: " FormatNumber(result2) "$ - Monatseinnahmen: " FormatNumber(result3) "$")
  1505. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wochengrabs: " resulti2 " - Monatsgrabs: " resulti3)
  1506. } else {
  1507. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler. Bitte an Pietro_Miller oder John_Reese wenden.")
  1508. }
  1509. }
  1510.  
  1511. return
  1512.  
  1513. hacken: ; Nach XTasten Timer
  1514. GetChatLine(0, line1)
  1515. GetChatLine(1, line2)
  1516. GetChatLine(2, line3)
  1517. name := GetUsername()
  1518.  
  1519. If(InStr(line1, "hat einen Eintrag entfernt") || InStr(line2, "hat einen Eintrag entfernt") || InStr(line3, "hat einen Eintrag entfernt")){
  1520. if(InStr(line1, "hat einen Eintrag entfernt. Verbleibend:") && !InStr(line2, "hat einen Eintrag entfernt. Verbleibend:") && !InStr(line3, "hat einen Eintrag entfernt. Verbleibend:"))
  1521. {
  1522.  
  1523. RegExMatch(line1, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", money_)
  1524. line1name := money_1
  1525.  
  1526. if(line1name == line2name || line1name == line3name || line1name == ""){
  1527. return
  1528. }
  1529. urli = http://wheelman.jameschans.de/keybinder/einnahme.php?name=%username%&einnahme=%money_2%
  1530. UrlDownloadToVar(urli, resultm)
  1531. StringSplit, resultm_, resultm, ~
  1532. url = http://wheelman.jameschans.de/keybinder/gehackt.php?name=%username%&anzahl=1
  1533. UrlDownloadToVar(url, result)
  1534. StringSplit, result_, result, ~
  1535. if(result_1 == 11 && resultm_1 == 1 || result_1 == 1 && resultm_1 == 1)
  1536. {
  1537. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Du hast bereits " result_2 " Wanteds gehackt und bereits " resultm_2 "$ verdient.")
  1538.  
  1539. VarSetCapacity(url, 0)
  1540. VarSetCapacity(result, 0)
  1541. VarSetCapacity(urli, 0)
  1542. VarSetCapacity(resulti, 0)
  1543. url = http://wheelman.jameschans.de/keybinder/dm/deinnahme.php?name=%username%&einnahme=%money_2%
  1544. urli = http://wheelman.jameschans.de/keybinder/dm/dgehackt.php?name=%username%&anzahl=1
  1545. URLDownloadToVar(url, result)
  1546. URLDownloadToVar(urli, resulti)
  1547. StringSplit, result, result, ~
  1548. StringSplit, resulti, resulti, ~
  1549. if(result1 == 11 && resulti1 == 1 || result1 == 1 && resulti1 == 1){
  1550. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wocheneinnahmen: " FormatNumber(result2) "$ - Monatseinnahmen: " FormatNumber(result3) "$")
  1551. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wochenwanteds: " FormatNumber(resulti2) " - Monatswanteds: " FormatNumber(resulti3))
  1552. } else {
  1553. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result2 " (Result2) ~~ " resulti2 " (Resulti2) ~~ Bitte an John_Reese wenden")
  1554. }
  1555.  
  1556. Sleep 1000
  1557. } else {
  1558. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result_2 " (Result_2) ~~ " resultm_2 " (Resultm_2) ~~ Bitte an John_Reese wenden")
  1559. }
  1560. }
  1561. if(InStr(line1, "hat einen Eintrag entfernt. Verbleibend: ") && InStr(line2, "hat einen Eintrag entfernt. Verbleibend:") && !InStr(line3, "hat einen Eintrag entfernt. Verbleibend:"))
  1562. {
  1563. RegExMatch(line2, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", moneyl2_)
  1564. RegExMatch(line1, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", moneyl1_)
  1565. line2name := moneyl2_1
  1566. line1name := moneyl1_1
  1567. money_gesamt := 0
  1568. if(line2name == line1name || line2name == line3name || line2name == "" || line1name == ""){
  1569. return
  1570. }
  1571. money_gesamt += moneyl2_2
  1572. money_gesamt += moneyl1_2
  1573. urli = http://wheelman.jameschans.de/keybinder/einnahme.php?name=%username%&einnahme=%money_gesamt%
  1574. UrlDownloadToVar(urli, resultm)
  1575. StringSplit, resultm_, resultm, ~
  1576. url = http://wheelman.jameschans.de/keybinder/gehackt.php?name=%username%&anzahl=2
  1577. UrlDownloadToVar(url, result)
  1578. StringSplit, result_, result, ~
  1579. if(result_1 == 11 && resultm_1 == 1 || result_1 == 1 && resultm_1 == 1)
  1580. {
  1581. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Du hast bereits " result_2 " Wanteds gehackt und bereits " resultm_2 "$ verdient.")
  1582. VarSetCapacity(url, 0)
  1583. VarSetCapacity(result, 0)
  1584. VarSetCapacity(urli, 0)
  1585. VarSetCapacity(resulti, 0)
  1586. url = http://wheelman.jameschans.de/keybinder/dm/deinnahme.php?name=%username%&einnahme=%money_2%
  1587. urli = http://wheelman.jameschans.de/keybinder/dm/dgehackt.php?name=%username%&anzahl=2
  1588. URLDownloadToVar(url, result)
  1589. URLDownloadToVar(urli, resulti)
  1590. StringSplit, result, result, ~
  1591. StringSplit, resulti, resulti, ~
  1592. if(result1 == 11 && resulti1 == 1 || result1 == 1 && resulti1 == 1){
  1593. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wocheneinnahmen: " FormatNumber(result2) "$ - Monatseinnahmen: " FormatNumber(result3) "$")
  1594. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wochenwanteds: " FormatNumber(resulti2) " - Monatswanteds: " FormatNumber(resulti3))
  1595. } else {
  1596. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result2 " (Result2) ~~ " resulti2 " (Resulti2) ~~ Bitte an John_Reese wenden")
  1597. }
  1598.  
  1599. Sleep 1000
  1600. } else {
  1601. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result_2 " (Result_2) ~~ " resultm_2 " (Resultm_2) ~~ Bitte an John_Reese wenden")
  1602. }
  1603. }
  1604. if(InStr(line1, "hat einen Eintrag entfernt. Verbleibend: ") && InStr(line2, "hat einen Eintrag entfernt. Verbleibend:") && InStr(line3, "hat einen Eintrag entfernt. Verbleibend:"))
  1605. {
  1606. RegExMatch(line3, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", moneyl3_)
  1607. RegExMatch(line2, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", moneyl2_)
  1608. RegExMatch(line1, "(.*) hat einen Eintrag entfernt. Verbleibend: .* \(\+(.+)\$\)", moneyl1_)
  1609. line3name := moneyl3_1
  1610. line2name := moneyl2_1
  1611. line1name := moneyl1_1
  1612. money_gesamt := 0
  1613.  
  1614. if(line3name == line2name || line3name == line1name || line2name == "" || line1name == "" || line3name == ""){
  1615. return
  1616. }
  1617. money_gesamt += moneyl3_2
  1618. money_gesamt += moneyl2_2
  1619. money_gesamt += moneyl1_2
  1620.  
  1621. urli = http://wheelman.jameschans.de/keybinder/einnahme.php?name=%username%&einnahme=%money_gesamt%
  1622. UrlDownloadToVar(urli, resultm)
  1623. StringSplit, resultm_, resultm, ~
  1624. url = http://wheelman.jameschans.de/keybinder/gehackt.php?name=%username%&anzahl=3
  1625. UrlDownloadToVar(url, result)
  1626. StringSplit, result_, result, ~
  1627. if(result_1 == 11 && resultm_1 == 1 || result_1 == 1 && resultm_1 == 1)
  1628. {
  1629. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Du hast bereits " result_2 " Wanteds gehackt und bereits " resultm_2 "$ verdient.")
  1630.  
  1631. VarSetCapacity(url, 0)
  1632. VarSetCapacity(result, 0)
  1633. VarSetCapacity(urli, 0)
  1634. VarSetCapacity(resulti, 0)
  1635. url = http://wheelman.jameschans.de/keybinder/dm/deinnahme.php?name=%username%&einnahme=%money_2%
  1636. urli = http://wheelman.jameschans.de/keybinder/dm/dgehackt.php?name=%username%&anzahl=3
  1637. URLDownloadToVar(url, result)
  1638. URLDownloadToVar(urli, resulti)
  1639. StringSplit, result, result, ~
  1640. StringSplit, resulti, resulti, ~
  1641. if(result1 == 11 && resulti1 == 1 || result1 == 1 && resulti1 == 1){
  1642. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wocheneinnahmen: " FormatNumber(result2) "$ - Monatseinnahmen: " FormatNumber(result3) "$")
  1643. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Wochenwanteds: " FormatNumber(resulti2) " - Monatswanteds: " FormatNumber(resulti3))
  1644. } else {
  1645. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result2 " (Result2) ~~ " resulti2 " (Resulti2) ~~ Bitte an John_Reese wenden")
  1646. }
  1647.  
  1648. Sleep 1000
  1649. } else {
  1650. AddChatMessage("|{01DF01}Wheelman{FFFFFF}| Datenbankfehler: " result_2 " (Result_2) ~~ " resultm_2 " (Resultm_2) ~~ Bitte an John_Reese wenden")
  1651. }
  1652. }
  1653. }
  1654. return
  1655.  
  1656.  
  1657.  
  1658. ;~ Scripte
  1659.  
  1660.  
  1661.  
  1662. printHotkey(id)
  1663. {
  1664. if(IsInChat())
  1665. return
  1666. IniRead, command, Hotkeys.ini, Command, CMD%id%
  1667.  
  1668. if(command == "[HEAL]")
  1669. {
  1670. if(GetPlayerHealth() >= 100)
  1671. {
  1672. AddChatMessage("Du hast es nicht nötig, dich zu healen!")
  1673. return
  1674. }
  1675.  
  1676. Loop 4
  1677. {
  1678. if(A_Index == 4)
  1679. {
  1680. AddChatMessage("Du hast keine HP-bringenden Items bei dir!")
  1681. return
  1682. }
  1683.  
  1684. if(use%A_Index% == "Paket" && ersteHilfe)
  1685. {
  1686. SendChat("/erstehilfe")
  1687. return
  1688. }
  1689. else if(use%A_Index% == "Drogen" && drogen > 0)
  1690. {
  1691. SendChat("/usedrugs")
  1692. return
  1693. }
  1694. else if(use%A_Index% == "Fische" && fische > 0)
  1695. {
  1696. SendChat("/eat " . fische)
  1697. return
  1698. }
  1699. }
  1700. }
  1701. else if(command == "[MOTOR]")
  1702. {
  1703. if(!IsPlayerInAnyVehicle())
  1704. return
  1705. if(!(GetVehicleLockState() && !GetVehicleEngineState()))
  1706. SendChat("/lock")
  1707. SendChat("/motor")
  1708.  
  1709. if(A_Hour >= 21 || A_Hour <= 6)
  1710. SendChat("/licht")
  1711. }
  1712. else
  1713. {
  1714. ;command := "Es folgt ein Countdown:[1000]~>> 3 <<[1000]~>> 2 <<[1000]~>> 1 <<[1000]~>> GO <<"
  1715. StringReplace, command, command, [HP], % GetPlayerHealth()
  1716. StringReplace, command, command, [Land], % GetPlayerZone()
  1717. StringReplace, command, command, [Stadt], % GetPlayerCity()
  1718. StringReplace, command, command, [Veh], % GetVehicleModelName()
  1719. StringReplace, command, command, [VehHP], % Floor(GetVehicleHealth() / 10)
  1720. StringReplace, command, command, [Kill], % kills
  1721. StringReplace, command, command, [Death], % deaths
  1722. StringReplace, command, command, [KD], % kills / deaths
  1723.  
  1724. if(InStr(command, "~"))
  1725. {
  1726. StringSplit, command, command, ~
  1727.  
  1728. Loop %command0%
  1729. {
  1730. if(RegExMatch(command%A_Index%, "\[SL(\d*)]", sleep))
  1731. StringReplace, command%A_Index%, command%A_Index%, [SL%sleep1%],,
  1732. SendChat(command%A_Index%)
  1733. Sleep, %sleep1%
  1734. }
  1735. }
  1736. else
  1737. SendChat(command)
  1738. }
  1739. }
  1740.  
  1741.  
  1742. FischPreis(FishName, FishLBS) {
  1743. if(FishName == "Delphin")
  1744. Preis := FishLBS*7
  1745. else if(FishName == "Makrele")
  1746. Preis := FishLBS*8
  1747. else if(FishName == "Segelfisch")
  1748. Preis := FishLBS*7
  1749. else if(FishName == "Bernfisch")
  1750. Preis := FishLBS*1
  1751. else if(FishName == "Hai")
  1752. Preis := FishLBS*7
  1753. else if(FishName == "Schwertfisch")
  1754. Preis := FishLBS*3
  1755. else if(FishName == "Schildkröte")
  1756. Preis := FishLBS*10
  1757. else if(FishName == "Thunfisch")
  1758. Preis := FishLBS*12
  1759. else if(FishName == "Hecht")
  1760. Preis := FishLBS*9
  1761. else if(FishName == "Aal")
  1762. Preis := FishLBS*9
  1763. else if(FishName == "Forelle")
  1764. Preis := FishLBS*5
  1765. else if(FishName == "Wolfbarsch")
  1766. Preis := FishLBS*12
  1767. else if(FishName == "Zackenbarsch")
  1768. Preis := FishLBS*3
  1769. else if(FishName == "Katzenfisch")
  1770. Preis := FishLBS*4
  1771. else if(FishName == "Blauer Fächerfisch")
  1772. Preis := FishLBS*2
  1773. else if(FishName == "Roter Schnapper")
  1774. Preis := FishLBS*3
  1775. if(Preis == "")
  1776. Preis := 0
  1777. return Preis
  1778. }
  1779.  
  1780. sekunden(sek){
  1781. min := floor(sek/60)
  1782. sek := mod(sek, 60)
  1783. if(min == 0){
  1784. return sek " Sek"
  1785. }else{
  1786. return min " Min, " sek " Sek"
  1787. }
  1788. }
  1789.  
  1790.  
  1791. UrlDownloadToVar(URL, ByRef Result, UserAgent = "", Proxy = "", ProxyBypass = "")
  1792. {
  1793. hModule := DllCall("LoadLibrary", "Str", "wininet.dll")
  1794. AccessType := Proxy != "" ? 3 : 1
  1795. io := DllCall("wininet\InternetOpenA", "Str", UserAgent, "UInt", AccessType, "Str", Proxy, "Str", ProxyBypass, "UInt", 0)
  1796.  
  1797. iou := DllCall("wininet\InternetOpenUrlA", "UInt", io, "Str", url, "Str", "", "UInt", 0, "UInt", 0x80000000, "UInt", 0)
  1798. If (ErrorLevel != 0 or iou = 0) {
  1799. DllCall("FreeLibrary", "UInt", hModule)
  1800. return 0
  1801. }
  1802.  
  1803. VarSetCapacity(buffer, 10240, 0)
  1804. VarSetCapacity(BytesRead, 4, 0)
  1805.  
  1806. Loop
  1807. {
  1808. irf := DllCall("wininet\InternetReadFile", "UInt", iou, "UInt", &buffer, "UInt", 10240, "UInt", &BytesRead)
  1809. VarSetCapacity(buffer, -1)
  1810. BytesRead_ = 0
  1811.  
  1812. Loop, 4
  1813. BytesRead_ += *(&BytesRead + A_Index-1) << 8*(A_Index-1)
  1814. If (irf = 1 and BytesRead_ = 0)
  1815. break
  1816. Else
  1817. Result .= SubStr(buffer, 1, BytesRead_)
  1818. }
  1819.  
  1820. DllCall("wininet\InternetCloseHandle", "UInt", iou)
  1821. DllCall("wininet\InternetCloseHandle", "UInt", io)
  1822. DllCall("FreeLibrary", "UInt", hModule)
  1823. }
  1824.  
  1825.  
  1826. GetFishPrice(fish, lbs){
  1827. if(fish == "Bernfisch"){
  1828. price := Floor(lbs * 1)
  1829. }else if(fish == "Blauer Fächerfisch"){
  1830. price := Floor(lbs * 2)
  1831. }else if(fish == "Schwertfisch" || fish == "Zackenbarsch" || fish == "Roter Schnapper"){
  1832. price := Floor(lbs * 3)
  1833. }else if(fish == "Katzenfisch"){
  1834. price := Floor(lbs * 4)
  1835. }else if(fish == "Forelle"){
  1836. price := Floor(lbs * 5)
  1837. }else if(fish == "Delphin" || fish == "Hai" || fish == "Segelfisch"){
  1838. price := Floor(lbs * 7)
  1839. }else if(fish == "Makrele"){
  1840. price := Floor(lbs * 8)
  1841. }else if(fish == "Hecht" || fish == "Aal"){
  1842. price := Floor(lbs * 9)
  1843. }else if(fish == "Schildkröte"){
  1844. price := Floor(lbs * 10)
  1845. }else if(fish == "Thunfisch" || fish == "Wolfbarsch"){
  1846. price := Floor(lbs * 12)
  1847. }else{
  1848. price := 0
  1849. }
  1850. return price
  1851. }
  1852.  
  1853.  
  1854. gk_search(gk)
  1855. {
  1856. if(!RegExMatch(gk, "^\s*(\d+)\.(\d+)\s*$", regex_))
  1857. {
  1858. AddChatMessage("Deine Angabe ist ungültig")
  1859. return
  1860. }
  1861. URLDownloadToVar("http://samp.lennartf.com/gkapi/query/" regex_1 "/" regex_2 "", res)
  1862. if(!InStr(res, "success"))
  1863. {
  1864. AddChatMessage("Die vom Server erhaltenen Daten sind fehlerhaft. Versuche es (später) erneut")
  1865. return
  1866. }
  1867. AddChatMessage("{FFFFFF}Es wurden folgende Gebäudekomplexe unter {0077FF}" gk "{FFFFFF} gefunden:")
  1868. Loop, parse, res, `n
  1869. {
  1870. if(RegExMatch(A_LoopField, "^([^`t]*)`t([^`t]*)`t([^`t]*)`t([^`t]*)`t([^`t]*)", regex_))
  1871. {
  1872. if(regex_1 == "generic")
  1873. color := "{FF7F00}"
  1874. else if(regex_1 == "house")
  1875. color := "{77FF00}"
  1876. else if(regex_1 == "vehicle")
  1877. {
  1878. color := "{DD11FF}"
  1879. AddChatMessage("{FFFFFF}" A_Index-1 ". " color regex_2 "")
  1880. return
  1881. }
  1882. AddChatMessage("{FFFFFF}" A_Index-1 ". " color regex_2 " {FFFFFF}in " color regex_5)
  1883. }
  1884. }
  1885. }
  1886.  
  1887.  
  1888.  
  1889. /* Folgt Später wenn es geht
  1890.  
  1891. #Include, C:\Users\Jakob\Desktop\Team\include\UDF.ahk
  1892. #Include, C:\Users\Jakob\Desktop\Team\include\API.ahk
  1893. #Include, C:\Users\Jakob\Desktop\Team\include\JSON.ahk
  1894. #Include, C:\Users\Jakob\Desktop\Team\include\overlay.ahk
  1895.  
  1896. global baseURL := "https://comniemeer.de/projects/teambinder/"
  1897. global botID := -1
  1898. global iRefreshTD := 0
  1899. global iUpdateTickTD := 100
  1900. global oTextDraws := []
  1901. SetTimer, annahmebot, 100
  1902.  
  1903.  
  1904. IfNotExist, %A_AppData%\Wheelman-Keybinder\
  1905. {
  1906. FileCreateDir, %A_AppData%\Wheelman-Keybinder\Wheelman-Keybinder
  1907. MsgBox, 48, Wheelman Keybinder, Der Keybinder erstellt nun dein Ordner , 5
  1908. }
  1909.  
  1910. IfNotExist, %A_AppData%\Wheelman-Keybinder\overlay.dll
  1911. {
  1912. URLDownloadToFile, %baseURL%downloads/bin/overlay.dll, overlay.dll
  1913. FileMove, overlay.dll, %A_AppData%\Wheelman-Keybinder\overlay.dll
  1914. }
  1915. IfNotExist Tickets
  1916. FileCreateDir, Tickets
  1917.  
  1918.  
  1919.  
  1920.  
  1921. overlayOn := false
  1922. aduty := false
  1923.  
  1924. Loop 15 {
  1925. sup_text_%A_Index% := ""
  1926. sup_name_%A_Index% := ""
  1927. }
  1928.  
  1929. numID := 1
  1930. page := 1
  1931.  
  1932. IniRead, primf, %A_AppData%\Wheelman-Keybinder\settings.ini, Settings, Primfarbe, 2550A7
  1933. IniRead, sekf, %A_AppData%\Wheelman-Keybinder\settings.ini, Settings, Sekfarbe, FF9E00
  1934. IniRead, overlayfs, %A_AppData%\Wheelman-Keybinder\settings.ini, Overlay, FarbeSelbst, FF8000
  1935. IniRead, overlayfa, %A_AppData%\Wheelman-Keybinder\settings.ini, Overlay, FarbeAndere, 0099FF
  1936. IniRead, adminrank, %A_AppData%\Wheelman-Keybinder\settings.ini, Settings, AdminRang, 1
  1937.  
  1938. IniRead, username, %A_AppData%\Wheelman-Keybinder\login.ini, Login, username, %A_Space%
  1939. IniRead, password, %A_AppData%\Wheelman-Keybinder\login.ini, Login, password, %A_Space%
  1940.  
  1941. global PRIMCOL := "{" . primf . "}"
  1942. global SECCOL := "{" . sekf . "}"
  1943.  
  1944. global PREFIX := PRIMCOL . "|Teambinder| {FFFFFF}"
  1945.  
  1946. global statsFormat := "Personalien:\tGeschlecht: (\S+)\n\t\tPartner: (\S+)\n\n\t\tLevel: (\d+)\n\t\tRespekt: (\d+)\/(\d+)\n\t\tPayday: (\d+)\/(\d+) Minuten\n\nBerufe:\t\tFraktion: (.+)\tRang: (\d+)\n\t\tNebenjob: (\S+)\n\t\tCrew: (.+)\n\nFinanzen:\tBargeld: (\d+)\$\n\t\tKonto: (\d+)\$\n\t\tFestgeld: (\d+)\$\tZinssatz: (\d+)\.(\d+)\n\nStatistik:\tMorde: (\d+)\n\t\tGestorben: (\d+)\n\t\tVerbrechen: (\d+)\n\t\tSpielzeit: (\d+)h\n\t\tKnast: (\d+)\n\t\tWanteds: (\d+)\n\t\tVerwarnungen: (\d+)\/(\d+)\n\nInventar:\tMaterialien: (\d+) \(Safe: (\d+)\)\n\t\tDrogen: (\d+)g \(Safe: (\d+)g\)\n\t\tHandy \(Nr\. (\d+)\)(\n\t\tErste-Hilfe-Paket)?(\n\t\tBenzin Kanister)?\n\nSkills:\t\tWaffendealer: (\d+) \((\d+)\)\n\t\tDrogendealer: (\d+) \((\d+)\)\n\t\tAngler: (\d+)\n\t\tBusfahrer: (\d+)\t\tExp: (\d+)\/(\d+)\n\t\tAnwalt: (\d+)\t\tExp: (\d+)\n\t\tDetektiv: (\d+)\t\tExp: (\d+)\n\t\tPilot: (\d+)\n\t\tHochseefischer: (\d+)(\n\n{(\S+)}(\S+)( \(noch (.+)\))?)?"
  1947.  
  1948. start := -1
  1949. hackerFinder := false
  1950.  
  1951. banwave := []
  1952. banwaveReason := ""
  1953.  
  1954. alternativePlayerInput := false
  1955.  
  1956. SetTimer, TicketTimer, 100
  1957. 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!