KLhRrjyf

1if(!A_IsAdmin) {
2Run *RunAs "%A_ScriptFullPath%"
3ExitApp
4}
5#IfWinActive, ahk_exe gta_sa.exe
6SetBatchLines, -1
7#UseHook
8#InstallKeybdHook
9#SingleInstance, Force
10#HotString EndChars `n
11#NoEnv
12SetWorkingDir %A_AppData%\AZZIMEMOKEYBINDER
13OnExit("ExitFunc")
14global binderVersion := "4.0"
15global PATH_SAMP_API := PathCombine(A_Appdata, "AZZIMEMOKEYBINDER/bin/Open-SAMP-API.dll")
16global chatlogpath := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
17global CurrentChatCount := GetChatLineCount()
18global inipath := A_AppData "\AZZIMEMOKEYBINDER\settings.ini"
19global fraks:= {1: ["0099FF","San Andreas Police Department","pd", "cops", "bullen"],2: ["000066", "Federal Bureau of Investigation", "fbi"],3: ["3E7221", "San Andreas Army Corps", "army"],4: ["B32400","San Andreas Rettungsdienst","sard"],5: ["000000","La Cosa Nostra", "lcn" , "Ndrangheta"],6: ["AA2B2F","Yakuza","yakuza"],7: ["FFFFFF", "Regierung","regierung"],9: ["FF6600", "San Andreas Media AG", "samag"],10: ["AAA49C","O'Brian Family","o'brian family","obrian","brian"],11: ["3399FF","18th Street","scarfo","18","18th"],13: ["800080","Purple Ice Ballas", "ballas", "purple ice ballas", "purple"],14: ["009933","Grove Street", "gs"],17: ["8F8F8F","Janitscharen MC", "janitscharen mc", "mc", "jani", "jmc", "dd"],18: ["F0F0F0","Korsakow Familie", "kf", "korsakow", "korsakow familie"],19: ["F3CF00","Los Vagos", "ms13", "vagos", "lv", "mara"]}
20global gEingeloggt := -1
21global binderLoaded := 0
22global mapViewed := 0
23global gegnerCheckOn := 0
24global gegnerCreated := 0
25global canupdatelabels := 0
26global gegnerTextDraw := -1
27global carDLTextDraw := -1
28global lsdTextDraw := -1
29global goldTextDraw := -1
30global nachwirkungTextDraw := -1
31global matsTextDraw := -1
32global lsdTime := -1
33global matsTime := -1
34global goldTime := -1
35global nachwirkungTime := -1
36global deathTime := -1
37global Anzahl_LSD := 0
38global Anzahl_Gold := 0
39global ort := "-/-"
40global spamCMD := 0
41global spamCMDPause := 0
42global VSAllowed := 1
43global lastHP := 100
44global lastAM := 100
45global drogenBot := 0
46global blacklistBot := 0
47global autoFlag := 0
48global bDeactivated := 0
49global DisableKilltrigger := 0
50global uYDAY := -1
51global uKSpruch1_1 := ""
52global uKSpruch1_2 := ""
53global uKSpruch2_1 := ""
54global uKSpruch2_2 := ""
55global uGKills := 0
56global uGDeaths := 0
57global uDKills := 0
58global uDDeaths := 0
59global uDExtorts := 0
60global uDBLSD := 0
61global uDBGreen := 0
62global uDBGold := 0
63global uDBStart := 0
64global uBLBStart := 0
65global uAutoEngine := 1
66global uAutoSwapGun := 1
67global uTicket := 1
68global uMV := 1
69global uBizFlag := 3
70global uRepeat := ,
71global uVS := y
72global uOldStats := 4
73global uDeactivate := End
74global uhitsoundActive := 0
75global uhitmsgActive := 0
76global uGOVSize := 8
77global uUSEOVSize := 8
78global engineAlreadySet := 0
79global lichtAlreadySet := 0
80global drivebyAlreadySet := 0
81global MaxKeybinds := 12
82global uBind_Bind_M_1 := ""
83global uBind_Bind_M_2 := ""
84global Image_Arrow := -1
85global Image_Map := -1
86global Image_VS := -1
87global Image_VS_X := -1
88global Image_VS_Y := -1
89SetTimer, ChatLabel, 100
90SetTimer, TimerHitSound, 100
91IfNotExist, %A_AppData%\AZZIMEMOKEYBINDER
92{
93FileCreateDir, %A_Appdata%\AZZIMEMOKEYBINDER
94FileCreateDir, %A_Appdata%\AZZIMEMOKEYBINDER\bin
95}
96IfExist, %A_Appdata%\AZZIMEMOKEYBINDER\ico.ico
97{
98FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\ico.ico
99}
100IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\Open-SAMP-API.dll
101{
102URLDownloadToFile, http://893.plusmacher-gmbh.de/dl/Open-SAMP-API.dll, API.dll
103FileMove, API.dll, %A_Appdata%\AZZIMEMOKEYBINDER\bin\Open-SAMP-API.dll, 1
104MsgBox % "Binder muss neugestartet werden!"
105ExitApp
106}
107IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hitsound.wav
108{
109URLDownloadToFile, http://893.plusmacher-gmbh.de/dl/hitsound.wav, hitsound.wav
110FileMove, hitsound.wav, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hitsound.wav, 1
111}
112HitSoundFile = %A_Appdata%\AZZIMEMOKEYBINDER\bin\hitsound.wav
113FileRead, readHitSound, *c %HitSoundFile%
114IfExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\map.png
115{
116FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\bin\map.png
117}
118IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\map.png
119{
120URLDownloadToFile, http://893.plusmacher-gmbh.de/dl/map.png, map.png
121FileMove, map.png, %A_Appdata%\AZZIMEMOKEYBINDER\bin\map.png, 1
122}
123IfExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\arrow.png
124{
125FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\bin\arrow.png
126}
127IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\arrow.png
128{
129URLDownloadToFile, http://893.plusmacher-gmbh.de/dl/arrow.png, arrow.png
130FileMove, arrow.png, %A_Appdata%\AZZIMEMOKEYBINDER\bin\arrow.png, 1
131}
132IfExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\vs.png
133{
134FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\bin\vs.png
135}
136IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\vs.png
137{
138URLDownloadToFile, http://893.plusmacher-gmbh.de/dl/vs.png, vs.png
139FileMove, vs.png, %A_Appdata%\AZZIMEMOKEYBINDER\bin\vs.png, 1
140}
141IfExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hintergrund.jpg
142{
143FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hintergrund.jpg
144}
145IfNotExist, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hintergrund.jpg
146{
147URLDownloadToFile, http://download1082.mediafire.com/rj9y23vltgjg/r3yyxecfp4h69ec/hintergrund.jpg, hintergrund.jpg
148FileMove, hintergrund.jpg, %A_Appdata%\AZZIMEMOKEYBINDER\bin\hintergrund.jpg, 1
149}
150createINI()
151loadINI()
152Gui, main:Add, Button, x102 y79 w100 h30 gbSettings, Einstellungen
153Gui, main:Show, xCenter yCenter h161 w310,
154Gui, settings:Add, Picture, x-8 y-1 w1500 h890 , %A_Appdata%\AZZIMEMOKEYBINDER\bin\hintergrund.jpg
155Gui, settings:Add, Button, x0 y585 w100 h30 gbConnect, Nova Connect
156Gui, settings:Add, CheckBox, x12 y39 w230 h20 vDB_Autostart, Drogenbot
157Gui, settings:Add, CheckBox, x12 y69 w230 h20 vAuto_Engine, Motor & Licht anschalten
158Gui, settings:Add, CheckBox, x12 y99 w230 h20 vAuto_SwapGun, Automatisch /swapgun
159Gui, settings:Add, CheckBox, x12 y129 w230 h20 vAuto_MV, /mv bei 2x H
160Gui, settings:Add, CheckBox, x12 y159 w230 h20 vBLB_Autostart, Blacklist Bot 
161Gui, settings:Add, CheckBox, x12 y189 w230 h20 vHitsound_active, Sounds bei Hits/Damage aktivieren
162Gui, settings:Add, CheckBox, x12 y219 w230 h20 vHitmsg_active , Nachricht bei Hits/Damage aktivieren
163Gui, settings:Add, CheckBox, x12 y249 w230 h20 vAuto_Ticket , Automatisch /gpayticket
164Gui, settings:Add, Button, x12 y470 w100 h30 gSettingsSpeichern, Speichern
165Gui, settings:Add, Hotkey, x12 y320 w60 h20 vRepeat_Bind, repeatbind
166Gui, settings:Add, Edit, x82 y320 w180 h20 ReadOnly, Eingabe wiederholen
167Gui, settings:Add, Hotkey, x12 y350 w60 h20 vBizFlag, bizbind
168Gui, settings:Add, Edit, x82 y350 w180 h20 ReadOnly, /dropbizflag~/getbizflag~/getflagtime
169Gui, settings:Add, Hotkey, x12 y380 w60 h20 vDeactivate_Bind,
170Gui, settings:Add, Edit, x82 y380 w180 h20 ReadOnly, Keybinds de/aktivieren
171Gui, settings:Add, Hotkey, x12 y410 w60 h20 vVS_Bind, vsbind
172Gui, settings:Add, Edit, x82 y410 w180 h20 ReadOnly, VS Benötigt /f Chat
173Gui, settings:Add, Hotkey, x12 y440 w60 h20 vOldStats_Bind, oldstatsbind
174Gui, settings:Add, Edit, x82 y440 w180 h20 ReadOnly, Drogen & Kills Abfrage & Aktualisierung
175Gui, settings:Add, Hotkey, x500 y39 w60 h20 vBind_Key_1, key1
176Gui, settings:Add, Edit, x570 y39 w180 h20 vBind_Bind_1, bind1
177Gui, settings:Add, Hotkey, x500 y60 w60 h20 vBind_Key_3, key3
178Gui, settings:Add, Edit, x570 y60 w180 h20 vBind_Bind_3, bind3
179Gui, settings:Add, Hotkey, x500 y81 w60 h20 vBind_Key_5, key5
180Gui, settings:Add, Edit, x570 y81 w180 h20 vBind_Bind_5, bind5
181Gui, settings:Add, Hotkey, x500 y102 w60 h20 vBind_Key_7, key7
182Gui, settings:Add, Edit, x570 y102 w180 h20 vBind_Bind_7, bind7
183Gui, settings:Add, Hotkey, x500 y123 w60 h20 vBind_Key_9, key9
184Gui, settings:Add, Edit, x570 y123 w180 h20 vBind_Bind_9, bind9
185Gui, settings:Add, Hotkey, x500 y144 w60 h20 vBind_Key_11, key11
186Gui, settings:Add, Edit, x570 y144 w180 h20 vBind_Bind_11, bind11
187Gui, settings:Add, Edit, x500 y165 w60 h20 vBind_Key_M_1 ReadOnly, Maus 1
188Gui, settings:Add, Edit, x570 y165 w180 h20 vBind_Bind_M_1, M1
189Gui, settings:Add, Hotkey, x770 y39 w60 h20 vBind_Key_2, key2
190Gui, settings:Add, Edit, x840 y39 w180 h20 vBind_Bind_2, bind2
191Gui, settings:Add, Hotkey, x770 y60 w60 h20 vBind_Key_4, key4
192Gui, settings:Add, Edit, x840 y60 w180 h20 vBind_Bind_4, bind4
193Gui, settings:Add, Hotkey, x770 y81 w60 h20 vBind_Key_6, bind6
194Gui, settings:Add, Edit, x840 y81 w180 h20 vBind_Bind_6, bind6
195Gui, settings:Add, Hotkey, x770 y102 w60 h20 vBind_Key_8, key8
196Gui, settings:Add, Edit, x840 y102 w180 h20 vBind_Bind_8, bind8
197Gui, settings:Add, Hotkey, x770 y123 w60 h20 vBind_Key_10, key10
198Gui, settings:Add, Edit, x840 y123 w180 h20 vBind_Bind_10, bind10
199Gui, settings:Add, Hotkey, x770 y144 w60 h20 vBind_Key_12, key12
200Gui, settings:Add, Edit, x840 y144 w180 h20 vBind_Bind_12, bind12
201Gui, settings:Add, Edit, x770 y165 w60 h20 vBind_Key_M_2 ReadOnly, Maus 2
202Gui, settings:Add, Edit, x840 y165 w180 h20 vBind_Bind_M_2, M2
203Gui, settings:Add, Button, x500 y210 w100 h30 gKeyBindSpeichern, Speichern
204Gui, settings:Add, Edit, x570 y300 w430 h20 vKillBind1Z1,
205Gui, settings:Add, Edit, x570 y330 w430 h20 vKillBind1Z2,
206Gui, settings:Add, Edit, x570 y380 w430 h20 vKillBind2Z1,
207Gui, settings:Add, Edit, x570 y410 w430 h20 vKillBind2Z2,
208Gui, settings:Add, Button, x570 y440 w100 h30 gKillBindSpeichern, Speichern
209LoadAPI:
210global hModule := DllCall("LoadLibrary", Str, PATH_SAMP_API)
211if(hModule == -1 || hModule == 0)
212{
213MsgBox, 48, Error, API konnte nicht geladen werden!
214ExitApp
215}
216else
217{
218if(WinExist("ahk_exe gta_sa.exe")) {
219#NoEnv
220Init_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "Init")
221SetParam_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "SetParam")
222GetGTACommandLine_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetGTACommandLine")
223IsMenuOpen_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsMenuOpen")
224ScreenToWorld_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ScreenToWorld")
225WorldToScreen_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "WorldToScreen")
226GetPlayerCPed_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerCPed")
227GetPlayerHealth_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerHealth")
228GetPlayerArmor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerArmor")
229GetPlayerMoney_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerMoney")
230GetPlayerSkinID_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerSkinID")
231GetPlayerInterior_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerInterior")
232IsPlayerInAnyVehicle_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerInAnyVehicle")
233IsPlayerDriver_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerDriver")
234IsPlayerPassenger_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerPassenger")
235IsPlayerInInterior_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerInInterior")
236GetPlayerX_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerX")
237GetPlayerY_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerY")
238GetPlayerZ_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerZ")
239GetPlayerPosition_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerPosition")
240IsPlayerInRange2D_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerInRange2D")
241IsPlayerInRange3D_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsPlayerInRange3D")
242GetCityName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetCityName")
243GetZoneName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetZoneName")
244TextCreate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextCreate")
245TextDestroy_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextDestroy")
246TextSetShadow_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextSetShadow")
247TextSetShown_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextSetShown")
248TextSetColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextSetColor")
249TextSetPos_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextSetPos")
250TextSetString_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextSetString")
251TextUpdate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "TextUpdate")
252BoxCreate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxCreate")
253BoxDestroy_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxDestroy")
254BoxSetShown_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetShown")
255BoxSetBorder_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetBorder")
256BoxSetBorderColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetBorderColor")
257BoxSetColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetColor")
258BoxSetHeight_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetHeight")
259BoxSetPos_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetPos")
260BoxSetWidth_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "BoxSetWidth")
261LineCreate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineCreate")
262LineDestroy_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineDestroy")
263LineSetShown_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineSetShown")
264LineSetColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineSetColor")
265LineSetWidth_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineSetWidth")
266LineSetPos_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "LineSetPos")
267ImageCreate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageCreate")
268ImageDestroy_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageDestroy")
269ImageSetShown_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageSetShown")
270ImageSetAlign_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageSetAlign")
271ImageSetPos_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageSetPos")
272ImageSetRotation_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ImageSetRotation")
273DestroyAllVisual_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "DestroyAllVisual")
274ShowAllVisual_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ShowAllVisual")
275HideAllVisual_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "HideAllVisual")
276GetFrameRate_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetFrameRate")
277GetScreenSpecs_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetScreenSpecs")
278SetCalculationRatio_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "SetCalculationRatio")
279SetOverlayPriority_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "SetOverlayPriority")
280SetOverlayCalculationEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "SetOverlayCalculationEnabled")
281GetServerIP_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetServerIP")
282GetServerPort_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetServerPort")
283SendChat_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "SendChat")
284ShowGameText_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ShowGameText")
285AddChatMessage_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "AddChatMessage")
286ShowDialog_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "ShowDialog")
287GetPlayerNameByID_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerNameByID")
288GetPlayerIDByName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerIDByName")
289GetPlayerName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerName")
290GetPlayerId_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerId")
291IsChatOpen_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsChatOpen")
292IsDialogOpen_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsDialogOpen")
293GetVehiclePointer_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehiclePointer")
294GetVehicleSpeed_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleSpeed")
295GetVehicleHealth_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleHealth")
296GetVehicleModelId_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleModelId")
297GetVehicleModelName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleModelName")
298GetVehicleModelNameById_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleModelNameById")
299GetVehicleType_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleType")
300GetVehicleFreeSeats_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleFreeSeats")
301GetVehicleFirstColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleFirstColor")
302GetVehicleSecondColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleSecondColor")
303GetVehicleColor_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetVehicleColor")
304IsVehicleSeatUsed_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleSeatUsed")
305IsVehicleLocked_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleLocked")
306IsVehicleHornEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleHornEnabled")
307IsVehicleSirenEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleSirenEnabled")
308IsVehicleAlternateSirenEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleAlternateSirenEnabled")
309IsVehicleEngineEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleEngineEnabled")
310IsVehicleLightEnabled_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleLightEnabled")
311IsVehicleCar_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleCar")
312IsVehiclePlane_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehiclePlane")
313IsVehicleBoat_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleBoat")
314IsVehicleTrain_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleTrain")
315IsVehicleBike_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "IsVehicleBike")
316HasWeaponIDClip_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "HasWeaponIDClip")
317GetPlayerWeaponID_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponID")
318GetPlayerWeaponType_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponType")
319GetPlayerWeaponSlot_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponSlot")
320GetPlayerWeaponName_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponName")
321GetPlayerWeaponClip_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponClip")
322GetPlayerWeaponTotalClip_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponTotalClip")
323GetPlayerWeaponState_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponState")
324GetPlayerWeaponAmmo_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponAmmo")
325GetPlayerWeaponAmmoInClip_func := DllCall("GetProcAddress", "UInt", hModule, "Str", "GetPlayerWeaponAmmoInClip")
326Init()
327{
328global Init_func
329return DllCall(Init_func)
330}
331SetParam(_szParamName, _szParamValue)
332{
333global SetParam_func
334return DllCall(SetParam_func, "Str", _szParamName, "Str", _szParamValue)
335}
336GetGTACommandLine(ByRef line, max_len)
337{
338global GetGTACommandLine_func
339VarSetCapacity(line, max_len, 0)
340return DllCall(GetGTACommandLine_func, "StrP", line, "Int", max_len)
341}
342IsMenuOpen()
343{
344global IsMenuOpen_func
345return DllCall(IsMenuOpen_func)
346}
347ScreenToWorld(x, y, ByRef worldX, ByRef worldY, ByRef worldZ)
348{
349global ScreenToWorld_func
350return DllCall(ScreenToWorld_func, "Float", x, "Float", y, "FloatP", worldX, "FloatP", worldY, "FloatP", worldZ)
351}
352WorldToScreen(x, y, z, ByRef screenX, ByRef screenY)
353{
354global WorldToScreen_func
355return DllCall(WorldToScreen_func, "Float", x, "Float", y, "Float", z, "FloatP", screenX, "FloatP", screenY)
356}
357GetPlayerCPed()
358{
359global GetPlayerCPed_func
360return DllCall(GetPlayerCPed_func)
361}
362GetPlayerHealth()
363{
364global GetPlayerHealth_func
365return DllCall(GetPlayerHealth_func)
366}
367GetPlayerArmor()
368{
369global GetPlayerArmor_func
370return DllCall(GetPlayerArmor_func)
371}
372GetPlayerMoney()
373{
374global GetPlayerMoney_func
375return DllCall(GetPlayerMoney_func)
376}
377GetPlayerSkinID()
378{
379global GetPlayerSkinID_func
380return DllCall(GetPlayerSkinID_func)
381}
382GetPlayerInterior()
383{
384global GetPlayerInterior_func
385return DllCall(GetPlayerInterior_func)
386}
387IsPlayerInAnyVehicle()
388{
389global IsPlayerInAnyVehicle_func
390return DllCall(IsPlayerInAnyVehicle_func)
391}
392IsPlayerDriver()
393{
394global IsPlayerDriver_func
395return DllCall(IsPlayerDriver_func)
396}
397IsPlayerPassenger()
398{
399global IsPlayerPassenger_func
400return DllCall(IsPlayerPassenger_func)
401}
402IsPlayerInInterior()
403{
404global IsPlayerInInterior_func
405return DllCall(IsPlayerInInterior_func)
406}
407GetPlayerX(ByRef posX)
408{
409global GetPlayerX_func
410return DllCall(GetPlayerX_func, "FloatP", posX)
411}
412GetPlayerY(ByRef posY)
413{
414global GetPlayerY_func
415return DllCall(GetPlayerY_func, "FloatP", posY)
416}
417GetPlayerZ(ByRef posZ)
418{
419global GetPlayerZ_func
420return DllCall(GetPlayerZ_func, "FloatP", posZ)
421}
422GetPlayerPosition(ByRef posX, ByRef posY, ByRef posZ)
423{
424global GetPlayerPosition_func
425return DllCall(GetPlayerPosition_func, "FloatP", posX, "FloatP", posY, "FloatP", posZ)
426}
427IsPlayerInRange2D(posX, posY, radius)
428{
429global IsPlayerInRange2D_func
430return DllCall(IsPlayerInRange2D_func, "Float", posX, "Float", posY, "Float", radius)
431}
432IsPlayerInRange3D(posX, posY, posZ, radius)
433{
434global IsPlayerInRange3D_func
435return DllCall(IsPlayerInRange3D_func, "Float", posX, "Float", posY, "Float", posZ, "Float", radius)
436}
437GetCityName(ByRef cityName, max_len)
438{
439global GetCityName_func
440VarSetCapacity(cityName, max_len, 0)
441return DllCall(GetCityName_func, "StrP", cityName, "Int", max_len)
442}
443GetZoneName(ByRef zoneName, max_len)
444{
445global GetZoneName_func
446VarSetCapacity(zoneName, max_len, 0)
447return DllCall(GetZoneName_func, "StrP", zoneName, "Int", max_len)
448}
449TextCreate(Font, FontSize, bBold, bItalic, x, y, color, text, bShadow, bShow)
450{
451global TextCreate_func
452return DllCall(TextCreate_func, "Str", Font, "Int", FontSize, "UChar", bBold, "UChar", bItalic, "Int", x, "Int", y, "UInt", color, "Str", text, "UChar", bShadow, "UChar", bShow)
453}
454TextDestroy(ID)
455{
456global TextDestroy_func
457return DllCall(TextDestroy_func, "Int", ID)
458}
459TextSetShadow(id, b)
460{
461global TextSetShadow_func
462return DllCall(TextSetShadow_func, "Int", id, "UChar", b)
463}
464TextSetShown(id, b)
465{
466global TextSetShown_func
467return DllCall(TextSetShown_func, "Int", id, "UChar", b)
468}
469TextSetColor(id, color)
470{
471global TextSetColor_func
472return DllCall(TextSetColor_func, "Int", id, "UInt", color)
473}
474TextSetPos(id, x, y)
475{
476global TextSetPos_func
477return DllCall(TextSetPos_func, "Int", id, "Int", x, "Int", y)
478}
479TextSetString(id, str)
480{
481global TextSetString_func
482return DllCall(TextSetString_func, "Int", id, "Str", str)
483}
484TextUpdate(id, Font, FontSize, bBold, bItalic)
485{
486global TextUpdate_func
487return DllCall(TextUpdate_func, "Int", id, "Str", Font, "Int", FontSize, "UChar", bBold, "UChar", bItalic)
488}
489BoxCreate(x, y, w, h, dwColor, bShow)
490{
491global BoxCreate_func
492return DllCall(BoxCreate_func, "Int", x, "Int", y, "Int", w, "Int", h, "UInt", dwColor, "UChar", bShow)
493}
494BoxDestroy(id)
495{
496global BoxDestroy_func
497return DllCall(BoxDestroy_func, "Int", id)
498}
499BoxSetShown(id, bShown)
500{
501global BoxSetShown_func
502return DllCall(BoxSetShown_func, "Int", id, "UChar", bShown)
503}
504BoxSetBorder(id, height, bShown)
505{
506global BoxSetBorder_func
507return DllCall(BoxSetBorder_func, "Int", id, "Int", height, "UChar", bShown)
508}
509BoxSetBorderColor(id, dwColor)
510{
511global BoxSetBorderColor_func
512return DllCall(BoxSetBorderColor_func, "Int", id, "UInt", dwColor)
513}
514BoxSetColor(id, dwColor)
515{
516global BoxSetColor_func
517return DllCall(BoxSetColor_func, "Int", id, "UInt", dwColor)
518}
519BoxSetHeight(id, height)
520{
521global BoxSetHeight_func
522return DllCall(BoxSetHeight_func, "Int", id, "Int", height)
523}
524BoxSetPos(id, x, y)
525{
526global BoxSetPos_func
527return DllCall(BoxSetPos_func, "Int", id, "Int", x, "Int", y)
528}
529BoxSetWidth(id, width)
530{
531global BoxSetWidth_func
532return DllCall(BoxSetWidth_func, "Int", id, "Int", width)
533}
534LineCreate(x1, y1, x2, y2, width, color, bShow)
535{
536global LineCreate_func
537return DllCall(LineCreate_func, "Int", x1, "Int", y1, "Int", x2, "Int", y2, "Int", width, "UInt", color, "UChar", bShow)
538}
539LineDestroy(id)
540{
541global LineDestroy_func
542return DllCall(LineDestroy_func, "Int", id)
543}
544LineSetShown(id, bShown)
545{
546global LineSetShown_func
547return DllCall(LineSetShown_func, "Int", id, "UChar", bShown)
548}
549LineSetColor(id, color)
550{
551global LineSetColor_func
552return DllCall(LineSetColor_func, "Int", id, "UInt", color)
553}
554LineSetWidth(id, width)
555{
556global LineSetWidth_func
557return DllCall(LineSetWidth_func, "Int", id, "Int", width)
558}
559LineSetPos(id, x1, y1, x2, y2)
560{
561global LineSetPos_func
562return DllCall(LineSetPos_func, "Int", id, "Int", x1, "Int", y1, "Int", x2, "Int", y2)
563}
564ImageCreate(path, x, y, rotation, align, bShow)
565{
566global ImageCreate_func
567return DllCall(ImageCreate_func, "Str", path, "Int", x, "Int", y, "Int", rotation, "Int", align, "UChar", bShow)
568}
569ImageDestroy(id)
570{
571global ImageDestroy_func
572return DllCall(ImageDestroy_func, "Int", id)
573}
574ImageSetShown(id, bShown)
575{
576global ImageSetShown_func
577return DllCall(ImageSetShown_func, "Int", id, "UChar", bShown)
578}
579ImageSetAlign(id, align)
580{
581global ImageSetAlign_func
582return DllCall(ImageSetAlign_func, "Int", id, "Int", align)
583}
584ImageSetPos(id, x, y)
585{
586global ImageSetPos_func
587return DllCall(ImageSetPos_func, "Int", id, "Int", x, "Int", y)
588}
589ImageSetRotation(id, rotation)
590{
591global ImageSetRotation_func
592return DllCall(ImageSetRotation_func, "Int", id, "Int", rotation)
593}
594DestroyAllVisual()
595{
596global DestroyAllVisual_func
597return DllCall(DestroyAllVisual_func)
598}
599ShowAllVisual()
600{
601global ShowAllVisual_func
602return DllCall(ShowAllVisual_func)
603}
604HideAllVisual()
605{
606global HideAllVisual_func
607return DllCall(HideAllVisual_func)
608}
609GetFrameRate()
610{
611global GetFrameRate_func
612return DllCall(GetFrameRate_func)
613}
614GetScreenSpecs(ByRef width, ByRef height)
615{
616global GetScreenSpecs_func
617return DllCall(GetScreenSpecs_func, "IntP", width, "IntP", height)
618}
619SetCalculationRatio(width, height)
620{
621global SetCalculationRatio_func
622return DllCall(SetCalculationRatio_func, "Int", width, "Int", height)
623}
624SetOverlayPriority(id, priority)
625{
626global SetOverlayPriority_func
627return DllCall(SetOverlayPriority_func, "Int", id, "Int", priority)
628}
629SetOverlayCalculationEnabled(id, enabled)
630{
631global SetOverlayCalculationEnabled_func
632return DllCall(SetOverlayCalculationEnabled_func, "Int", id, "UChar", enabled)
633}
634GetServerIP(ByRef ip, max_len)
635{
636global GetServerIP_func
637VarSetCapacity(ip, max_len, 0)
638return DllCall(GetServerIP_func, "StrP", ip, "Int", max_len)
639}
640GetServerPort()
641{
642global GetServerPort_func
643return DllCall(GetServerPort_func)
644}
645SendChat(msg)
646{
647global SendChat_func
648return DllCall(SendChat_func, "Str", msg)
649}
650ShowGameText(msg, time, style)
651{
652global ShowGameText_func
653return DllCall(ShowGameText_func, "Str", msg, "Int", time, "Int", style)
654}
655AddChatMessage(msg)
656{
657global AddChatMessage_func
658return DllCall(AddChatMessage_func, "Str", msg)
659}
660ShowDialog(id, style, caption, text, button, button2)
661{
662global ShowDialog_func
663return DllCall(ShowDialog_func, "Int", id, "Int", style, "Str", caption, "Str", text, "Str", button, "Str", button2)
664}
665GetPlayerNameByID(id, ByRef playername, max_len)
666{
667global GetPlayerNameByID_func
668VarSetCapacity(playername, max_len, 0)
669return DllCall(GetPlayerNameByID_func, "Int", id, "StrP", playername, "Int", max_len)
670}
671GetPlayerIDByName(name)
672{
673global GetPlayerIDByName_func
674return DllCall(GetPlayerIDByName_func, "Str", name)
675}
676GetPlayerName(ByRef playername, max_len)
677{
678global GetPlayerName_func
679VarSetCapacity(playername, max_len, 0)
680return DllCall(GetPlayerName_func, "StrP", playername, "Int", max_len)
681}
682GetPlayerId()
683{
684global GetPlayerId_func
685return DllCall(GetPlayerId_func)
686}
687IsChatOpen()
688{
689global IsChatOpen_func
690return DllCall(IsChatOpen_func)
691}
692IsDialogOpen()
693{
694global IsDialogOpen_func
695return DllCall(IsDialogOpen_func)
696}
697GetVehiclePointer()
698{
699global GetVehiclePointer_func
700return DllCall(GetVehiclePointer_func)
701}
702GetVehicleSpeed(factor)
703{
704global GetVehicleSpeed_func
705return DllCall(GetVehicleSpeed_func, "Float", factor)
706}
707GetVehicleHealth()
708{
709global GetVehicleHealth_func
710return DllCall(GetVehicleHealth_func, "Cdecl float")
711}
712GetVehicleModelId()
713{
714global GetVehicleModelId_func
715return DllCall(GetVehicleModelId_func)
716}
717GetVehicleModelName(ByRef name, max_len)
718{
719global GetVehicleModelName_func
720VarSetCapacity(name, max_len, 0)
721return DllCall(GetVehicleModelName_func, "StrP", name, "Int", max_len)
722}
723GetVehicleModelNameById(vehicleID, ByRef name, max_len)
724{
725global GetVehicleModelNameById_func
726VarSetCapacity(name, max_len, 0)
727return DllCall(GetVehicleModelNameById_func, "Int", vehicleID, "StrP", name, "Int", max_len)
728}
729GetVehicleType()
730{
731global GetVehicleType_func
732return DllCall(GetVehicleType_func)
733}
734GetVehicleFreeSeats(ByRef seatFL, ByRef seatFR, ByRef seatRL, ByRef seatRR)
735{
736global GetVehicleFreeSeats_func
737return DllCall(GetVehicleFreeSeats_func, "IntP", seatFL, "IntP", seatFR, "IntP", seatRL, "IntP", seatRR)
738}
739GetVehicleFirstColor()
740{
741global GetVehicleFirstColor_func
742return DllCall(GetVehicleFirstColor_func)
743}
744GetVehicleSecondColor()
745{
746global GetVehicleSecondColor_func
747return DllCall(GetVehicleSecondColor_func)
748}
749GetVehicleColor(ByRef color1, ByRef color2)
750{
751global GetVehicleColor_func
752return DllCall(GetVehicleColor_func, "IntP", color1, "IntP", color2)
753}
754IsVehicleSeatUsed(seat)
755{
756global IsVehicleSeatUsed_func
757return DllCall(IsVehicleSeatUsed_func, "Int", seat)
758}
759IsVehicleLocked()
760{
761global IsVehicleLocked_func
762return DllCall(IsVehicleLocked_func)
763}
764IsVehicleHornEnabled()
765{
766global IsVehicleHornEnabled_func
767return DllCall(IsVehicleHornEnabled_func)
768}
769IsVehicleSirenEnabled()
770{
771global IsVehicleSirenEnabled_func
772return DllCall(IsVehicleSirenEnabled_func)
773}
774IsVehicleAlternateSirenEnabled()
775{
776global IsVehicleAlternateSirenEnabled_func
777return DllCall(IsVehicleAlternateSirenEnabled_func)
778}
779IsVehicleEngineEnabled()
780{
781global IsVehicleEngineEnabled_func
782return DllCall(IsVehicleEngineEnabled_func)
783}
784IsVehicleLightEnabled()
785{
786global IsVehicleLightEnabled_func
787return DllCall(IsVehicleLightEnabled_func)
788}
789IsVehicleCar()
790{
791global IsVehicleCar_func
792return DllCall(IsVehicleCar_func)
793}
794IsVehiclePlane()
795{
796global IsVehiclePlane_func
797return DllCall(IsVehiclePlane_func)
798}
799IsVehicleBoat()
800{
801global IsVehicleBoat_func
802return DllCall(IsVehicleBoat_func)
803}
804IsVehicleTrain()
805{
806global IsVehicleTrain_func
807return DllCall(IsVehicleTrain_func)
808}
809IsVehicleBike()
810{
811global IsVehicleBike_func
812return DllCall(IsVehicleBike_func)
813}
814HasWeaponIDClip(weaponID)
815{
816global HasWeaponIDClip_func
817return DllCall(HasWeaponIDClip_func, "Int", weaponID)
818}
819GetPlayerWeaponID()
820{
821global GetPlayerWeaponID_func
822return DllCall(GetPlayerWeaponID_func)
823}
824GetPlayerWeaponType()
825{
826global GetPlayerWeaponType_func
827return DllCall(GetPlayerWeaponType_func)
828}
829GetPlayerWeaponSlot()
830{
831global GetPlayerWeaponSlot_func
832return DllCall(GetPlayerWeaponSlot_func)
833}
834GetPlayerWeaponName(dwWeapSlot, ByRef _szWeapName, max_len)
835{
836global GetPlayerWeaponName_func
837VarSetCapacity(_szWeapName, max_len, 0)
838return DllCall(GetPlayerWeaponName_func, "Int", dwWeapSlot, "StrP", _szWeapName, "Int", max_len)
839}
840GetPlayerWeaponClip(dwWeapSlot)
841{
842global GetPlayerWeaponClip_func
843return DllCall(GetPlayerWeaponClip_func, "Int", dwWeapSlot)
844}
845GetPlayerWeaponTotalClip(dwWeapSlot)
846{
847global GetPlayerWeaponTotalClip_func
848return DllCall(GetPlayerWeaponTotalClip_func, "Int", dwWeapSlot)
849}
850GetPlayerWeaponState()
851{
852global GetPlayerWeaponState_func
853return DllCall(GetPlayerWeaponState_func)
854}
855GetPlayerWeaponAmmo(weaponType)
856{
857global GetPlayerWeaponAmmo_func
858return DllCall(GetPlayerWeaponAmmo_func, "Int", weaponType)
859}
860GetPlayerWeaponAmmoInClip(weaponType)
861{
862global GetPlayerWeaponAmmoInClip_func
863return DllCall(GetPlayerWeaponAmmoInClip_func, "Int", weaponType)
864}
865PathCombine(abs, rel) {
866VarSetCapacity(dest, (A_IsUnicode ? 2 : 1) * 260, 1)
867DllCall("Shlwapi.dll\PathCombine", "UInt", &dest, "UInt", &abs, "UInt", &rel)
868Return, dest
869}
870binderLoaded := 1
871DestroyAllVisual()
872Sleep, 100
873SetTimer, OverlayTimer, 500
874gEingeloggt := 20
875CreateLabels()
876LoadHotKey()
877Sleep, 100
878if(uDBStart == 1) {
879StartDrogenBot()
880}
881_AddChatMessage("'/khelp' für Befehle!")
882sleep, 3000
883SendChat("/oldstats")
884SendChat("/friedhof")
885}
886}
887return
888mainGuiClose:
889ExitApp
890return
891settingsGuiClose:
892Gui, settings:Hide
893return
894TimerAllowVS:
895_AddChatMessage("VS Bind funktioniert wieder!")
896VSAllowed := 1
897SetTimer, TimerAllowVS, off
898return
899VSTimer:
900_AddChatMessage("VS Marker wird entfernt!")
901SendChat("/delmark 0")
902Image_VS_X := -1
903Image_VS_Y := -1
904SetTimer, VSTimer, off
905return
906SpamTimer:
907if(spamCMDPause != -1) {
908spamCMDPause --
909if(spamCMDPause == 0) {
910spamCMDPause := -1
911}
912return
913}
914if(spamCMD != 0) {
915SendChat(spamCMD)
916}
917return
918TimerHitSound:
919if(!WinExist("ahk_exe gta_sa.exe")) {
920unLoadBinder()
921return
922}
923hitSound()
924UpdateLabels()
925if(uAutoEngine == 1) {
926doAutoEngine()
927doAutoLicht()
928}
929if(uAutoSwapGun == 1) {
930doAutoDriveby()
931}
932return
933ChatLabel:
934LatestChat(ChatOutput)
935if(!ChatOutput)
936return
937if(RegStr(ChatOutput, "Connected. Joining the game...")) {
938binderLoaded := 0
939return
940}
941GetPlayerName(myname, 100)
942if(RegStr(ChatOutput, "SERVER: Willkommen ") && !InStr(ChatOutput, "zurück")) {
943gEingeloggt := 10
944Sleep, 500
945SendChat("/friedhof")
946goSub, LoadAPI
947return
948}
949if(RegStr(ChatOutput, "* Gratulation du hast nun einen neuen Job...")) {
950SendChat("/quitjob")
951return
952}
953if(RegStr(ChatOutput, "FEHLER: Der Befehl wurde wegen CMD Spam blockiert.")) {
954if(spamCMD != 0) {
955_AddChatMessage("Spambot wird für 2 Sekunden pausiert! (N zum Beenden)")
956spamCMDPause := 6
957}
958return
959}
960if(RegStr(ChatOutput, "Morde:[", "]")) {
961if(!RegExMatch(ChatOutput, "Morde\:\[(\d+)\]", rkills))
962return
963uGKills := rkills1
964IniWrite, %uGKills%, %inipath%, Kills, GKills
965_AddChatMessage("Morde auf {2E895A}" + uGKills " {CCC8CC}gesetzt!")
966return
967}
968if(RegStr(ChatOutput, "Hawaiian Green:[", "Acapulco Gold:[", "LSD:[")) {
969if(!RegExMatch(ChatOutput, "Hawaiian Green\:\[(\d+)\]", rgreen) || !RegExMatch(ChatOutput, "Acapulco Gold\:\[(\d+)\]", rgold) || !RegExMatch(ChatOutput, "LSD\:\[(\d+)\]", rlsd) || !RegExMatch(ChatOutput, "Eisen\:\[(\d+)\]", rmats))
970return
971SetFormat, float, 0.0
972if(rgreen1 < 2) {
973_AddChatMessage("{AA2B2F}KEIN GREEN!")
974}
975else {
976_AddChatMessage("{2E895A}Green " rgreen1 "g {CCC8CC}(" . (rgreen1/2) . " x /use)")
977}
978if(rgold1 < 20) {
979_AddChatMessage("{AA2B2F}KEIN GOLD!")
980}
981else {
982_AddChatMessage("{2E895A}Gold " rgold1 "g {CCC8CC}(" . (rgold1/20) . " x /use)")
983}
984if(rlsd1 < 2) {
985_AddChatMessage("{AA2B2F}KEIN LSD!")
986}
987else {
988_AddChatMessage("{2E895A}LSD " rlsd1 " {CCC8CC}(" . (rlsd1/2) . " x /use)")
989}
990_AddChatMessage("Mats " rmats1 " g")
991Anzahl_Gold := rgold1
992Anzahl_LSD := rlsd1
993TextSetString(goldTextDraw, "/USE GOLD: JETZT (" Anzahl_Gold " g)")
994TextSetString(lsdTextDraw, "/USE LSD   : JETZT (" Anzahl_LSD " Pillen)")
995return
996}
997if(RegStr(ChatOutput, "Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Anonym.") || RegStr(ChatOutput, "Du hast ein Verbrechen begangen ( Fahrerflucht ). Reporter: Anonym.") || RegStr(ChatOutput, "GANGWAR: Du hast einen Feind ausgeschaltet.") || RegStr(ChatOutput, "[" myname " hat ", "getötet | Grund: Blacklisted]")) {
998KillBind()
999return
1000}
1001if(RegStr(ChatOutput, "UNTERGRUND: Das Erpressen des Geschäfts hat den Einfluss deiner Fraktion steigen lassen ( +15EP )!")) {
1002uDExtorts ++
1003IniWrite, %uDExtorts%, %inipath%, Kills, DExtorts
1004_AddChatMessage("Heutige Extorts: " uDExtorts)
1005return
1006}
1007if(InStr(ChatOutput, "(/accept fget)") && drogenBot == 1) {
1008{
1009return
1010}
1011RegExMatch(ChatOutput, "\* (\S*) \(ID: (\d*)\) möchte (\d*.)\s(.*)\saus dem Lager entnehmen\. \(/accept fget\)", var)
1012gvar := StrReplace(var3, "g", "")
1013if(var4 == "Acapulco Gold"){
1014if(gvar <= uDBGold){
1015SendChat("/accept fget " var2)
1016return
1017}
1018else {
1019SendChat("/f Nimm doch nicht " gvar "g  Gold raus! nimm maximal " uDBGold "g" raus)
1020return
1021}
1022}
1023else if(var4 == "Hawaiian Green"){
1024if(gvar <= uDBGreen){
1025SendChat("/accept fget " var2)
1026return
1027}
1028else {
1029SendChat("/f Nimm doch nicht " gvar "g Green raus! nimm maximal " uDBGreen "g" raus)
1030return
1031}
1032}
1033else if(var4 == "LSD"){
1034if(gvar <= uDBLSD){
1035SendChat("/accept fget " var2)
1036return
1037}
1038else {
1039SendChat("/f Nimm doch nicht " gvar " LSD raus! nimm maximal " uDBLSD raus)
1040return
1041}
1042}
1043}
1044if(RegStr(ChatOutput, "LSD: Ein Container hat die Produktion abgeschlossen (/getlsdprod).")){
1045{
1046return
1047}
1048SoundBeep, 750, 1000
1049FormatTime, ZeitZeichenkette,, Time
1050msgtext := "Ein Container ist bereit zum ernten! (" . ZeitZeichenkette . " Uhr)"
1051return
1052}
1053if(RegStr(ChatOutput, "ACHTUNG: Ein Container wurde soeben vom Staat zerstört!") || RegStr(ChatOutput, "ACHTUNG: Beamte haben einen LSD Container zerstört!")){
1054{
1055return
1056}
1057SoundBeep, 750, 1000
1058FormatTime, ZeitZeichenkette,, Time
1059msgtext := "Ein Container wurde vom Staat zerstört! (" . ZeitZeichenkette . " Uhr)"
1060return
1061}
1062if(RegExMatch(ChatOutput, "ACHTUNG: (.*) hat den Geschäftsführer des\/der (.*) der (.*) entführt.") != 0 && gEingeloggt == -1){
1063{
1064return
1065}
1066RegExMatch(ChatOutput, "ACHTUNG: (.*) hat den Geschäftsführer des\/der (.*) der (.*) entführt.", var)
1067SoundBeep, 750, 1000
1068FormatTime, ZeitZeichenkette,, Time
1069msgtext := "BIZFIGHT: " . var1 . " hat 30Min Biz " . var2 . " der " . var3 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1070return
1071}
1072if(RegExMatch(ChatOutput, "ACHTUNG: Fraktion (.*) hat den Geschäftsführer der\/des (.*) in (.*) entführt.") != 0 && gEingeloggt == -1){
1073{
1074return
1075}
1076RegExMatch(ChatOutput, "ACHTUNG: Fraktion (.*) hat den Geschäftsführer der\/des (.*) in (.*) entführt.", var)
1077SoundBeep, 750, 1000
1078FormatTime, ZeitZeichenkette,, Time
1079msgtext := "BIZFIGHT: " . var1 . " haben 30Min Biz " . var2 . " in " . var3 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1080return
1081}
1082if(RegExMatch(ChatOutput, "ACHTUNG: (.*) hat einen BizWar gegen (.*) gestartet \(ID: (\d*)\).") != 0 && gEingeloggt == -1){
1083{
1084return
1085}
1086RegExMatch(ChatOutput, "ACHTUNG: (.*) hat einen BizWar gegen (.*) gestartet \(ID: (\d*)\).", var)
1087SoundBeep, 750, 1000
1088FormatTime, ZeitZeichenkette,, Time
1089msgtext := "BIZFIGHT: " . var1 . " hat Flaggen-Biz ID: " . var3 . " der " . var2 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1090return
1091}
1092if(RegExMatch(ChatOutput, "ACHTUNG: Fraktion (.*) hat Business \(ID: (\d*)\) deiner Fraktion angegriffen.") != 0 && gEingeloggt == -1){
1093{
1094return
1095}
1096RegExMatch(ChatOutput, "ACHTUNG: Fraktion (.*) hat Business \(ID: (\d*)\) deiner Fraktion angegriffen.", var)
1097SoundBeep, 750, 1000
1098FormatTime, ZeitZeichenkette,, Time
1099msgtext := "BIZFIGHT: Die " . var1 . " haben unser Flaggen-Biz ID: " . var2 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1100return
1101}
1102if(InStr(ChatOutput, "und der Janitscharen MC verwickelt")){
1103{
1104return
1105}
1106RegExMatch(ChatOutput, ".*Das\sGel.nde\svon\s(.*)\swurde\sin\seinen\sKampf\szwischen\sder\s(.*)\sund\sder\sJanitscharen MC\sverwickelt.*", var)
1107SoundBeep, 750, 1000
1108FormatTime, ZeitZeichenkette,, Time
1109msgtext := "VIERTELFIGHT: Wir haben " . var2 . " bei " . var1 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1110return
1111}
1112if(InStr(ChatOutput, "wurde in einen Kampf zwischen der Janitscharen MC")){
1113{
1114return
1115}
1116RegExMatch(ChatOutput, ".*Das\sGel.nde\svon\s(.*)\swurde\sin\seinen\sKampf\szwischen\sder\sJanitscharen MC\sund\sder\s(.*)\sverwickelt.*", var)
1117SoundBeep, 750, 1000
1118FormatTime, ZeitZeichenkette,, Time
1119msgtext := "VIERTELFIGHT: Die " . var2 . " haben uns bei " . var1 . " angegriffen! (" . ZeitZeichenkette . " Uhr)"
1120return
1121}
1122if(InStr(ChatOutput, "haben den Kampf um ein Business gegen die Janitscharen MC aufgegeben.") || InStr(ChatOutput, "NR: Die Janitscharen MC haben den Gangwar gegen") && InStr(ChatOutput, "gewonnen") || InStr(ChatOutput, "Die Janitscharen MC konnte den Machtkampf um") || InStr(ChatOutput, "Janitscharen MC haben den Kampf um ein Business") && !Instr(ChatOutput, "aufgegeben") || InStr(ChatOutput, "Janitscharen MC haben ein Business gegen") || InStr(ChatOutput, "Die Janitscharen MC haben ihr Gangwargebiet gegen") || InStr(ChatOutput, "NR Bot: Die Janitscharen MC scheint den Kampf für sich entschieden zu haben, laut Polizeiangaben gehen")){
1123{
1124return
1125}
1126SendChat("/f AZZIMEMO ist King")
1127return
1128}
1129if(RegStr(ChatOutput, "INFO: Begib dich nun zur Waffenfabrik in San Fierro, ein Mittelsmann wird das Eisenerz verarbeiten. (/materials deliver).")) {
1130{
1131return
1132}
1133SendChat("/f * hat Mats gekauft *")
1134return
1135}
1136if(RegStr(ChatOutput, "INFO: Die Verarbeitung des Eisenerzes dauert 3 Minuten.")){
1137{
1138return
1139}
1140matsTime := A_Now
1141EnvAdd, matsTime, 180, seconds
1142SendChat("/f * verarbeitet nun Mats *")
1143return
1144}
1145if(RegStr(ChatOutput, "WAFFENFABRIK: Hier ist die Ware, jetzt verschwinde hier und lass dich nicht von den Cops erwischen.")) {
1146{
1147return
1148}
1149SendChat("/f * hat Mats verarbeitet *")
1150return
1151}
1152if(RegStr(ChatOutput, "* " myname " hat sich eine Rüstung angezogen.") || RegStr(ChatOutput, "* " myname " hat sich geheilt.")) {
1153goldTime := A_Now
1154EnvAdd, goldTime, 120, seconds
1155return
1156}
1157if(RegStr(ChatOutput, "Du hast LSD Pillen eingenommen") != 0){
1158Anzahl_LSD -= 2
1159lsdTime := A_Now
1160nachwirkungTime := A_Now
1161EnvAdd, lsdTime, 120, seconds
1162EnvAdd, nachwirkungTime, 90, seconds
1163return
1164}
1165if(RegStr(ChatOutput, "Du hast einen Brownie benutzt!") != 0){
1166goldTime := A_Now
1167lsdTime := A_Now
1168EnvAdd, goldTime, 60, seconds
1169EnvAdd, lsdTime, 60, seconds
1170return
1171}
1172if(RegStr(ChatOutput, "Du hast 20g Acapulco Gold benutzt!") != 0){
1173Anzahl_Gold -= 20
1174goldTime := A_Now
1175EnvAdd, goldTime, 60, seconds
1176return
1177}
1178if(RegStr(ChatOutput, "Du hast 2g Hawaiian Green benutzt!") != 0){
1179goldTime := A_Now
1180EnvAdd, goldTime, 45, seconds
1181return
1182}
1183if(RegStr(ChatOutput, "INFO: Mit /quiz kannst du ein Quizduell starten oder mit /newquiz neue Fragen erstellen.") != 0) {
1184goldTime := -1
1185lsdTime := -1
1186nachwirkungTime := -1
1187TextSetShown(nachwirkungTextDraw, false)
1188TextSetString(goldTextDraw, "/USE GOLD: JETZT (" Anzahl_Gold " g)")
1189TextSetString(lsdTextDraw, "/USE LSD   : JETZT (" Anzahl_LSD " Pillen)")
1190if(gEingeloggt == -1) {
1191uGDeaths++
1192uDDeaths++
1193IniWrite, %uGDeaths%, %inipath%, Kills, GDeaths
1194IniWrite, %uDDeaths%, %inipath%, Kills, DDeaths
1195dailyDeathsForCalculation:= (uDDeaths == 0 ? 1 : uDDeaths)
1196dailyKD:= floorDecimal((uDKills/dailyDeathsForCalculation), 2)
1197_AddChatMessage("Heute Kills: {AA2B2F}" uDKills "{CCC8CC} Tode: {AA2B2F}" uDDeaths "{CCC8CC} K/D: {AA2B2F}" dailyKD "{CCC8CC}")
1198}
1199SendChat("/friedhof")
1200_AddChatMessage("Benutze /friedhof um den Timer zu aktualisieren!")
1201Sleep, 1000
1202SendChat("/friedhof")
1203return
1204}
1205if(RegExMatch(ChatOutput, "Du bist noch ca\. (.*) Sekunden auf dem Friedhof!") != 0) {
1206RegExMatch(ChatOutput, "Du bist noch ca\. (.*) Sekunden auf dem Friedhof!", var)
1207deathTime := A_Now
1208EnvAdd, deathTime, var1, seconds
1209return
1210}
1211if (RegStr(ChatOutput, "Du eroberst nun eine Flagge")){
1212SendChat("/f Ich nehme jetzt die " . ort . " ein")
1213return
1214}
1215if(RegExMatch(ChatOutput, ".*Chemikalien\swurden\sproduziert\sund\seingelagert") != 0){
1216{
1217return
1218}
1219SetFormat, float, 0.0
1220RegExMatch(ChatOutput, "Gute\sArbeit.\s(.*)ml\sChemikalien\swurden\sproduziert\sund\seingelagert", var)
1221SendChat("/f Ich habe " . var1 . "ml Chemikalien bzw. " . var1/5 . " LSD geerntet")
1222FormatTime, ZeitZeichenkette,, Time
1223GetPlayerPosition(posX, posY, posZ)
1224msgtext := "http://893.plusmacher-gmbh.de/map/" . posX . "/" . posY . "/map.png"
1225captionText := "CONTAINER: " . myname . " hat einen Container geerntet. " . var1 . " ml Chemikalien bzw. " . var1/5 . " LSD Pillen. (" . ZeitZeichenkette . " Uhr)"
1226}
1227if(RegStr(ChatOutput, "Momentanes Wantedlevel: ") and InStr(ChatOutput, "| Wantedpunkte: ")){
1228GetChatLine(1, chat11)
1229if(InStr(chat11, "Du hast ein Verbrechen begangen")){
1230after:= StrSplit(chat11, "(", " ")
1231reasonFiltered:= StrSplit(after[2], ")", " ")
1232reason:= reasonFiltered[1]
1233}
1234else {
1235reason:= -1
1236}
1237parts:= StrSplit(SubStr(ChatOutput, 11), "|")
1238RegExMatch(parts[1], "\d+", number1)
1239RegExMatch(parts[2], "\d+", number2)
1240if(reason == -1){
1241SendChat("/f " number2 " Wantedpunkte erhalten")
1242}
1243else {
1244SendChat("/f " number2 " Wantedpunkte erhalten. Grund: " reason)
1245}
1246return
1247}
1248if(InStr(ChatOutput, "Die Produktion von LSD wurde gestartet.")) {
1249{
1250return
1251}
1252FormatTime, ZeitZeichenkette,, Time
1253GetPlayerPosition(posX, posY, posZ)
1254msgtext := "http://893.plusmacher-gmbh.de/map/" . posX . "/" . posY . "/map.png"
1255tstamp := A_Now
1256if(A_Min > 10) {
1257EnvAdd, tstamp, 6, hours
1258}
1259else {
1260EnvAdd, tstamp, 5, hours
1261}
1262FormatTime, TimeString, %tstamp%,HH
1263captionText := "CONTAINER: " . myname . " hat die Produktion eines Containers gestartet! (" . ZeitZeichenkette . " Uhr) | Erntereif ab ca. " TimeString ":10"
1264SendChat("/lsdkeep natron")
1265SendChat("/lsdkeep ammoniak")
1266return
1267}
1268if(RegStr(ChatOutput, "* Das Fraktionsfahrzeug kann nicht bewegt werden, da eine Parkkralle angeheftet wurde.")) {
1269if(uTicket == 1) {
1270SendChat("/glfcar")
1271SendChat("/gpayticket")
1272SendChat("/cveh motor")
1273}
1274return
1275}
1276if(RegStr(ChatOutput, "UNTERGRUND: Das Nachfüllen der Chemikalie hat den Einfluss deiner Fraktion im Untergrund steigen lassen ( +15EP )")) {
1277{
1278return
1279}
1280FormatTime, ZeitZeichenkette,, Time
1281GetPlayerPosition(posX, posY, posZ)
1282msgtext := "http://893.plusmacher-gmbh.de/map/" . posX . "/" . posY . "/map.png"
1283captionText := "CONTAINER: " . myname . " hat einen Container gepflegt (" . ZeitZeichenkette . " Uhr)"
1284return
1285}
1286if(RegExMatch(ChatOutput, "FEHLER: Dieses Fabrikgelände kann erst in (.*) Minuten wieder umkämpft werden.") != 0){
1287{
1288return
1289}
1290RegExMatch(ChatOutput, "FEHLER: Dieses Fabrikgeläde kann erst in (.*) Minuten wieder umkämpft werden.",var)
1291tstamp := A_Now
1292EnvAdd, tstamp, %var1%, minutes
1293FormatTime, TimeString, %tstamp%,dd.MM.yy HH:mm:ss
1294_AddChatMessage("Dieses Viertel kann um " TimeString " Uhr wieder angegriffen werden!")
1295return
1296}
1297if(RegExMatch(ChatOutput, "FEHLER: Du kannst erst in (.*) Minuten wieder ein Fabrikgelände angreifen.") != 0){
1298{
1299return
1300}
1301RegExMatch(ChatOutput, "FEHLER: Du kannst erst in (.*) Minuten wieder ein Fabrikgelände angreifen.",var)
1302tstamp := A_Now
1303EnvAdd, tstamp, %var1%, minutes
1304FormatTime, TimeString, %tstamp%,dd.MM.yy HH:mm:ss
1305_AddChatMessage("Wir können um " TimeString " Uhr wieder ein Viertel angreifen!")
1306return
1307}
1308if(RegStr(ChatOutput, "SYSTEM: Dieses Business kann erst in")) {
1309{
1310return
1311}
1312RegExMatch(ChatOutput, "SYSTEM: Dieses Business kann erst in (.*) Stunden \((.*) Sekunden\) wieder angegriffen werden\.",var)
1313tstamp := A_Now
1314EnvAdd, tstamp, %var2%, seconds
1315FormatTime, TimeString, %tstamp%,dd.MM.yy HH:mm:ss
1316_AddChatMessage("Biz kann am " TimeString " Uhr angegriffen werden")
1317return
1318}
1319if(RegExMatch(ChatOutput, "\*\* (.*) (.*): VS COORDS \= X: (.*) \| Y: (.*) \| Z: (.*) \|\. \)\)  \*\*") != 0) {
1320RegExMatch(ChatOutput, "\*\* (.*) (.*): VS COORDS \= X: (.*) \| Y: (.*) \| Z: (.*) \|\. \)\)  \*\*",var)
1321GetPlayerName(myname, 100)
1322if(var2 == myname) {
1323_AddChatMessage("Marker wird nicht gesetzt, da eigener VS!")
1324return
1325}
1326_AddChatMessage("Setze Marker zum VS Punkt! Auch in dem Map Overlay sichtbar! (2x M)")
1327_AddChatMessage("Marker wird in 1 Minute gelöscht! - Ansonsten '/delmark 0'")
1328SendChat("/setmark " var3 " " var4 " " var5 " 0 AA2B2F")
1329Image_VS_X := var3
1330Image_VS_Y := var4
1331SetTimer, VSTimer, off
1332SetTimer, VSTimer, 60000
1333return
1334}
1335if(RegExMatch(ChatOutput, "\*\* (.*) (.*): BL BOT \| Name: (.*) \| Grund: (.*)\. \)\)  \*\*") != 0) {
1336{
1337return
1338}
1339if(blacklistBot == 0) {
1340return
1341}
1342RegExMatch(ChatOutput, "\*\* (.*) (.*): BL BOT \| Name: (.*) \| Grund: (.*)\. \)\)  \*\*",var)
1343if(isGTAInForeground() == 0) {
1344SendChat("/f BL BOT | Fehler: Auf Desktop nicht möglich")
1345return
1346}
1347if(var4 == "Flucht") {
1348SendChat("/setbl " var3 "")
1349sleep, 100
1350Send {down}
1351sleep, 100
1352Send {down}
1353sleep, 100
1354Send {enter}
1355}
1356else if(var4 == "VMord") {
1357SendChat("/setbl " var3 "")
1358sleep, 100
1359Send {enter}
1360}
1361captionText := "BL BOT: Setze " var3 " auf die Blacklist. Grund: " var4 " | Im Auftrag von: " var2 ""
1362return
1363}
1364if(RegExMatch(ChatOutput, "Mitglieder aus anderen Gangs/Mafien können nicht auf die Blacklist gesetzt werden\.") != 0) {
1365SendChat("/f BL BOT | Fehler: Mitglied einer Gang/Mafia")
1366return
1367}
1368if(RegExMatch(ChatOutput, "Staatsbeamte im Dienst können nicht auf die Blacklist gesetzt werden\.") != 0) {
1369SendChat("/f BL BOT | Fehler: Staatsbeamter im Dienst")
1370return
1371}
1372if(RegExMatch(ChatOutput, "Personen können erst ab Level 3 auf die Blacklist gesetzt werden\.") != 0) {
1373SendChat("/f BL BOT | Fehler: Unter Level 3")
1374return
1375}
1376if(RegExMatch(ChatOutput, "EISDIELE: Die Eisdiele hat noch (.*) Eis auf Lager \(ca\. (\d*) Pillen LSD\)\.") != 0) {
1377{
1378return
1379}
1380RegExMatch(ChatOutput, "EISDIELE: Die Eisdiele hat noch (.*) Eis auf Lager \(ca\. (\d*) Pillen LSD\)\.",var)
1381roundedvar := Round(var2)
1382UpdateEisdiele(roundedvar)
1383return
1384}
1385if(RegExMatch(ChatOutput, "Du hast (.*) Pillen LSD in das Gepäckstück eingelagert. Rest im Lager: (\d*)") != 0) {
1386{
1387return
1388}
1389SendChat("/storage")
1390return
1391}
1392if(RegExMatch(ChatOutput, "Du hast (.*) \(LSD\)Waldmeister aufgeladen\. Rest im Lager: (\d*)") != 0) {
1393{
1394return
1395}
1396RegExMatch(ChatOutput, "Du hast (.*) \(LSD\)Waldmeister aufgeladen\. Rest im Lager: (\d*)", var)
1397roundedvar := Round(var2/5)
1398UpdateEisdiele(roundedvar)
1399return
1400}
1401return
1402SettingsSpeichern:
1403if(uBizFlag != "") {
1404Hotkey, % uBizFlag, Label_for_all_Hotkeys, off
1405}
1406if(uVS != "") {
1407Hotkey, % uVS, Label_for_all_Hotkeys, off
1408}
1409if(uOldStats != "") {
1410Hotkey, % uOldStats, Label_for_all_Hotkeys, off
1411}
1412if(uRepeat != "") {
1413Hotkey, % uRepeat, Label_for_all_Hotkeys, off
1414}
1415if(uDeactivate != "") {
1416Hotkey, % uDeactivate, Label_for_all_Hotkeys, off
1417}
1418GuiControlGet, DB_Autostart
1419GuiControlGet, BLB_Autostart
1420GuiControlGet, Auto_Engine
1421GuiControlGet, Auto_SwapGun
1422GuiControlGet, Auto_MV
1423GuiControlGet, BizFlag
1424GuiControlGet, Repeat_Bind
1425GuiControlGet, Deactivate_Bind
1426GuiControlGet, Hitsound_active
1427GuiControlGet, Hitmsg_active
1428GuiControlGet, VS_Bind
1429GuiControlGet, OldStats_Bind
1430GuiControlGet, Auto_Ticket
1431uDBStart := DB_Autostart
1432uBLBStart := BLB_Autostart
1433uAutoEngine := Auto_Engine
1434uAutoSwapGun := Auto_SwapGun
1435uTicket := Auto_Ticket
1436uMV := Auto_MV
1437uhitsoundActive := Hitsound_active
1438uhitmsgActive := Hitmsg_active
1439uBizFlag := BizFlag
1440uRepeat := Repeat_Bind
1441uVS := VS_Bind
1442uOldStats := OldStats_Bind
1443uDeactivate := Deactivate_Bind
1444IniWrite, %uDBStart%, %inipath%, DrogenBot, Auto_Start
1445IniWrite, %uBLBStart%, %inipath%, Settings, BLB_Auto_Start
1446IniWrite, %uAutoEngine%, %inipath%, Settings, Auto_Engine
1447IniWrite, %uAutoSwapGun%, %inipath%, Settings, Auto_SwapGun
1448IniWrite, %uTicket%, %inipath%, Settings, Auto_Ticket
1449IniWrite, %uMV%, %inipath%, Settings, Auto_MV
1450IniWrite, %uBizFlag%, %inipath%, Settings, Biz_Flag
1451IniWrite, %uRepeat%, %inipath% , Settings, Repeat_Bind
1452IniWrite, %uVS%, %inipath%, Settings, VS_Bind
1453IniWrite, %uOldStats%, %inipath%, Settings, OldStats_Bind
1454IniWrite, %uDeactivate%, %inipath%, Settings, Deactivate_Bind
1455IniWrite, %uhitsoundActive%, %inipath%, Settings, Hitsound
1456IniWrite, %uhitmsgActive%, %inipath%, Settings, Hitmsg
1457LoadHotKey()
1458MsgBox, Einstellungen gespeichert!
1459return
1460KeyBindSpeichern:
1461if( uBind_Bind_M_1 != "") {
1462Hotkey, XButton1, Label_for_all_Hotkeys, off
1463}
1464if( uBind_Bind_M_2 != "") {
1465Hotkey, XButton2, Label_for_all_Hotkeys, off
1466}
1467GuiControlGet, Bind_Bind_M_1
1468uBind_Bind_M_1 := Bind_Bind_M_1
1469GuiControlGet, Bind_Bind_M_2
1470uBind_Bind_M_2 := Bind_Bind_M_2
1471IniWrite, %uBind_Bind_M_1%, %inipath%, KeyBinds, Bind_M_1
1472IniWrite, %uBind_Bind_M_2%, %inipath%, KeyBinds, Bind_M_2
1473Loop, %MaxKeybinds%
1474{
1475if( uBind_Key_%A_Index% != "") {
1476Hotkey, % uBind_Key_%A_Index%, Label_for_all_Hotkeys, off
1477}
1478GuiControlGet, Bind_Key_%A_Index%
1479GuiControlGet, Bind_Bind_%A_Index%
1480uBind_Key_%A_Index% := Bind_Key_%A_Index%
1481uBind_Bind_%A_Index% := Bind_Bind_%A_Index%
1482IniWrite, % uBind_Key_%A_Index%, %inipath%, KeyBinds, Bind_Key_%A_Index%
1483IniWrite, % uBind_Bind_%A_Index%, %inipath%, KeyBinds, Bind_Bind_%A_Index%
1484}
1485LoadHotKey()
1486MsgBox, Keybinds gespeichert!
1487return
1488KillBindSpeichern:
1489GuiControlGet, KillBind1Z1
1490GuiControlGet, KillBind1Z2
1491GuiControlGet, KillBind2Z1
1492GuiControlGet, KillBind2Z2
1493uKSpruch1_1 := KillBind1Z1
1494uKSpruch1_2 := KillBind1Z2
1495uKSpruch2_1 := KillBind2Z1
1496uKSpruch2_2 := KillBind2Z2
1497IniWrite, %uKSpruch1_1%, %inipath%, KillSpruch, 1_1
1498IniWrite, %uKSpruch1_2%, %inipath%, KillSpruch, 1_2
1499IniWrite, %uKSpruch2_1%, %inipath%, KillSpruch, 2_1
1500IniWrite, %uKSpruch2_2%, %inipath%, KillSpruch, 2_2
1501MsgBox, Killbinds gespeichert!
1502return
1503bSettings:
1504GuiControl, settings:, KillBind1Z1, %uKSpruch1_1%
1505GuiControl, settings:, KillBind1Z2, %uKSpruch1_2%
1506GuiControl, settings:, KillBind2Z1, %uKSpruch2_1%
1507GuiControl, settings:, KillBind2Z2, %uKSpruch2_2%
1508GuiControl, settings:, DB_Autostart, %uDBStart%
1509GuiControl, settings:, BLB_Autostart, %uBLBStart%
1510GuiControl, settings:, Auto_Engine, %uAutoEngine%
1511GuiControl, settings:, Auto_SwapGun, %uAutoSwapGun%
1512GuiControl, settings:, Auto_Ticket, %uTicket%
1513GuiControl, settings:, Auto_MV, %uMV%
1514GuiControl, settings:, Hitsound_active, %uhitsoundActive%
1515GuiControl, settings:, Hitmsg_active, %uhitmsgActive%
1516GuiControl, settings:, BizFlag, %uBizFlag%
1517GuiControl, settings:, Repeat_Bind, %uRepeat%
1518GuiControl, settings:, VS_Bind, %uVS%
1519GuiControl, settings:, OldStats_Bind, %uOldStats%
1520GuiControl, settings:, Deactivate_Bind, %uDeactivate%
1521GuiControl, settings:, Bind_Bind_M_1, %uBind_Bind_M_1%
1522GuiControl, settings:, Bind_Bind_M_2, %uBind_Bind_M_2%
1523Loop, %MaxKeybinds%
1524{
1525GuiControl, settings:, Bind_Key_%A_Index%, % uBind_Key_%A_Index%
1526GuiControl, settings:, Bind_Bind_%A_Index%, % uBind_Bind_%A_Index%
1527}
1528Gui, settings:Show, xCenter yCenter h615 w1051, AZZIMEMOKEYBINDER | Einstellungen
1529return
1530bConnect:
1531goSub, StartSAMP
1532return
1533bTest:
1534return
1535~t::
1536~+t::
1537Suspend On
1538Hotkey, ~NumpadEnter, On
1539Hotkey, ~Enter, On
1540Hotkey, ~Escape, On
1541return
1542~Escape::
1543~NumpadEnter::
1544~Enter::
1545Suspend Off
1546Hotkey, ~NumpadEnter, Off
1547Hotkey, ~Enter, Off
1548Hotkey, ~Escape, Off
1549return
1550~n::
1551if(IsChatOpen() == 1 || IsDialogOpen() == 1 || IsMenuOpen() == 1 || isGTAInForeground() == 0){
1552return
1553}
1554if(spamCMD != 0) {
1555spamCMD := 0
1556spamCMDPause := -1
1557SetTimer, SpamTimer, off
1558_AddChatMessage("Spambot wurde deaktiviert!")
1559}
1560return
1561~h::
1562if(IsChatOpen() == 1 || IsDialogOpen() == 1 || IsMenuOpen() == 1 || isGTAInForeground() == 0 || uMV == 0){
1563return
1564}
1565if (A_PriorHotkey <> "~h" or A_TimeSincePriorHotkey > 400)
1566{
1567KeyWait, h
1568return
1569}
1570SendChat("/mv")
1571SendChat("/oldmv")
1572SendChat("/towopen")
1573_AddChatMessage("Tore werden geöffnet/geschlossen... (Nicht spammen!)")
1574return
1575~m::
1576if(IsChatOpen() == 1 || IsDialogOpen() == 1 || IsMenuOpen() == 1 || isGTAInForeground() == 0){
1577return
1578}
1579if (A_PriorHotkey <> "~m" or A_TimeSincePriorHotkey > 400)
1580{
1581KeyWait, h
1582return
1583}
1584if(mapViewed == 0) {
1585mapViewed := 1
1586GetPlayerPosition(X,Y,Z)
1587Image_Map := ImageCreate("bin/map.png", 0, 0, 0, 0, 1)
1588aX := CalcActiveMap(X,, 20)
1589aY := CalcActiveMap(,Y, 20)
1590Image_Arrow := ImageCreate("bin/arrow.png", CalcScreenPos(aX), CalcScreenPos(,aY), 0, 0, 1)
1591if(Image_VS_X != -1 && Image_VS_Y != -1) {
1592vX := CalcActiveMap(Image_VS_X,, 10)
1593vY := CalcActiveMap(,Image_VS_Y, 10)
1594Image_VS := ImageCreate("bin/vs.png", CalcScreenPos(vX), CalcScreenPos(,vY), 0, 0, 1)
1595}
1596}
1597else if(mapViewed == 1) {
1598mapViewed := 0
1599ImageDestroy(Image_Map)
1600ImageDestroy(Image_Arrow)
1601ImageDestroy(Image_VS)
1602Image_Arrow := -1
1603Image_Map := -1
1604Image_VS := -1
1605}
1606return
1607:?:t/checkfrakid::
1608Suspend Permit
1609KeyWait, Enter
1610Sleep, 20
1611frakID:= -1
1612SearchVal := playerInputText("Fraktion: ")
1613if(SearchVal != "") {
1614For, key, value in fraks {
1615StringLower, SearchVal, SearchVal
1616if(hasValue(value, SearchVal))
1617frakID:= key
1618}
1619if(frakID == -1) {
1620_AddChatMessage("Die Fraktion """ SearchVal """ wurde leider nicht gefunden.")
1621return
1622}
1623request := WinHTTPRequest("http://893.plusmacher-gmbh.de/api/checkfrak.php?frakid=" frakID, members)
1624if(request != -1) {
1625_AddChatMessage("Fehler beim Laden!")
1626return
1627}
1628members := StrReplace(members, "</div>")
1629members := StrReplace(members, "Name:")
1630members := StrReplace(members, "Level:")
1631members := StrReplace(members, "Rang:")
1632members := StrReplace(members, "Status:")
1633membersData := StrSplit(members, "<div id=""Member"">")
1634namencount := 0
1635onlinecount := 0
1636_AddChatMessage("Daten der Fraktion {" fraks[frakID][1] "}" fraks[frakID][2] "{CCC8CC} werden geladen...")
1637For, index, value in membersData {
1638memberData:= StrSplit(value, "||")
1639if(memberData[4] != "online" and memberData[4] != "offline")
1640continue
1641namencount++
1642Sleep, 20
1643if(memberData[4] == "online") {
1644SendChat("/id " memberData[1])
1645onlinecount++
1646Sleep, 200
1647}
1648}
1649_AddChatMessage("Es sind " onlinecount "/" namencount " Member der Fraktion {" fraks[frakID][1] "}" fraks[frakID][2] "{CCC8CC} online!")
1650return
1651}
1652return
1653:?:t/playerinfo::
1654Suspend Permit
1655KeyWait, Enter
1656Sleep, 20
1657SearchPlayer := playerInputText("ID/Name des Spielers: ")
1658if(SearchPlayer != "") {
1659IsPlayerIngame(SearchPlayer, Name)
1660if(Name != false) {
1661SearchPlayer := Name
1662}
1663request := WinHTTPRequest("http://893.plusmacher-gmbh.de/api/playerinfo.php?userName=" SearchPlayer, playerdata)
1664if(request != -1) {
1665_AddChatMessage("Fehler beim Laden!")
1666return
1667}
1668if(playerdata == "Fehler") {
1669_AddChatMessage("Der Spieler " SearchPlayer " konnte nicht gefunden werden!")
1670return
1671}
1672playerdata := StrReplace(playerdata, "<div id=""User"">")
1673playerdata := StrReplace(playerdata, "</div>")
1674playerdata := StrReplace(playerdata, "Name:")
1675playerdata := StrReplace(playerdata, "Status:")
1676playerdata := StrReplace(playerdata, "Level:")
1677playerdata := StrReplace(playerdata, "Alter:")
1678playerdata := StrReplace(playerdata, "Handynummer:")
1679playerdata := StrReplace(playerdata, "Fraktion:")
1680playerdata := StrReplace(playerdata, "Fraktion_Letzte:")
1681playerdata := StrReplace(playerdata, "Treuepunkte:")
1682playerdata := StrReplace(playerdata, "Quizpunkte:")
1683playerdata := StrReplace(playerdata, "Ziviskin:")
1684playerdata := StrReplace(playerdata, "Frakskin:")
1685playerDatas:= StrSplit(playerdata, "||")
1686_AddChatMessage(SearchPlayer " wurde gefunden...")
1687_AddChatMessage("Name: " playerDatas[1] " Level: " playerDatas[3] " Status: " playerDatas[2])
1688_AddChatMessage("Alter: " playerDatas[4] " Handynummer: " playerDatas[5] " Treuepunkte: " playerDatas[8] " Quizpunkte: " playerDatas[9])
1689_AddChatMessage("Fraktion: " playerDatas[6] " (Letzte Fraktion: " playerDatas[7] " )")
1690if(playerDatas[11] == "empty") {
1691_AddChatMessage("Ziviskin: " playerDatas[10])
1692} else {
1693_AddChatMessage("Ziviskin: " playerDatas[10] " Frakskin: " playerDatas[11])
1694}
1695return
1696}
1697return
1698:?:t/kcall::
1699Suspend Permit
1700KeyWait, Enter
1701Sleep, 20
1702SearchPlayer := playerInputText("ID/Name des Spielers: ")
1703if(SearchPlayer != "") {
1704GetPlayerNumber(SearchPlayer, Nummer, Name)
1705if(Nummer == false) {
1706_AddChatMessage("Der Spieler " SearchPlayer " konnte nicht gefunden werden!")
1707return
1708}
1709_AddChatMessage("Du wirst nun mit " Name " verbunden. (Tel. Nr.: " Nummer ")")
1710SendChat("/call " Nummer)
1711}
1712return
1713:?:t/ksms::
1714Suspend Permit
1715KeyWait, Enter
1716Sleep, 20
1717SearchPlayer := playerInputText("ID/Name des Spielers: ")
1718if(SearchPlayer != "") {
1719GetPlayerNumber(SearchPlayer, Nummer, Name)
1720if(Nummer == false) {
1721_AddChatMessage("Der Spieler " SearchPlayer " konnte nicht gefunden werden!")
1722return
1723}
1724_AddChatMessage("Du schreibst eine SMS an " Name ". (Tel. Nr.: " Nummer ")")
1725SendChat("/sms")
1726Sleep, 100
1727SendInput, %Nummer%, {enter}
1728}
1729return
1730:?:t/kbl::
1731Suspend Permit
1732KeyWait, Enter
1733Sleep, 20
1734SendChat("/bl")
1735Sleep, 200
1736GetChatLine(0, Chat)
1737if(InStr(Chat, "Blacklist Spieler Online"))
1738return
1739bler:= StrSplit(Chat, ",", " ")
1740For, index, value in bler {
1741SendChat("/id " value)
1742Sleep, 150
1743}
1744return
1745:?:t/spam::
1746Suspend Permit
1747KeyWait, Enter
1748Sleep, 20
1749_AddChatMessage("Gib nun den Befehl ein den du alle 300ms spammen möchtest!")
1750Eingabe := playerInputText("Befehl (z.B /gangwar): ")
1751if(Eingabe != "") {
1752spamCMD := Eingabe
1753SendChat(spamCMD)
1754SetTimer, SpamTimer, 300
1755_AddChatMessage("Der Befehl '" spamCMD "' wird nun gespammt!")
1756_AddChatMessage("Benutze die Taste 'N' zum beenden!")
1757}
1758return
1759:?:t/flucht::
1760Suspend Permit
1761KeyWait, Enter
1762Sleep, 20
1763_AddChatMessage("ACHTUNG! Denk an die Beweispflicht!")
1764SearchPlayer := playerInputText("ID/Name des Spielers: ")
1765if(SearchPlayer != "") {
1766IsPlayerIngame(SearchPlayer, Name)
1767if(Name == false) {
1768_AddChatMessage("Der Spieler " SearchPlayer " konnte nicht gefunden werden!")
1769return
1770}
1771SendChat("/f BL BOT | Name: " Name " | Grund: Flucht")
1772}
1773return
1774:?:t/vmord::
1775Suspend Permit
1776KeyWait, Enter
1777Sleep, 20
1778_AddChatMessage("ACHTUNG! Denk an die Beweispflicht!")
1779SearchPlayer := playerInputText("ID/Name des Spielers: ")
1780if(SearchPlayer != "") {
1781IsPlayerIngame(SearchPlayer, Name)
1782if(Name == false) {
1783_AddChatMessage("Der Spieler " SearchPlayer " konnte nicht gefunden werden!")
1784return
1785}
1786SendChat("/f BL BOT | Name: " Name " | Grund: VMord")
1787}
1788return
1789:?:t/pflegen::
1790Suspend Permit
1791KeyWait, Enter
1792Sleep, 20
1793SendChat("/lsdkeep ammoniak")
1794SendChat("/lsdkeep natron")
1795return
1796:?:t/relog::
1797Suspend Permit
1798KeyWait, Enter
1799Sleep, 20
1800GoSub, CloseSAMP
1801GoSub, StartSAMP
1802return
1803:?:t/khelp::
1804Suspend Permit
1805KeyWait, Enter
1806Sleep, 20
1807_AddChatMessage(" --| AZZIMEMOKEYBINDER |-- ")
1808_AddChatMessage("Allgemein: /relog | /killtest | /kd | /fkd | /bizlist | /biz | /bizflag | /checkfrakid")
1809_AddChatMessage("Allgemein: /dealzones | /pflegen (/lsdkeep) | /spam (Befehl spammen)")
1810_AddChatMessage("Allgemein: /fraktionen /gegner (Für Gegner Overlay)")
1811_AddChatMessage("Allgemein: /ksms | /kcall | /kbl | /playerinfo")
1812_AddChatMessage("Drogenbot: /drogenbot | /dblimit")
1813_AddChatMessage("BlacklistBot: /blbot | /flucht | /vmord")
1814_AddChatMessage("Gegner Overlay: /gegner | /gegneroff")
1815_AddChatMessage("Overlay: /ovsize")
1816_AddChatMessage("Hotkeys: 2x M = Map Overlay | 2x H = Tore öffnen")
1817return
1818:?:t/dealzones::
1819Suspend Permit
1820KeyWait, Enter
1821Sleep, 20
1822_AddChatMessage(" --| Dealzones |-- ")
1823_AddChatMessage("BSN = Angel Pine + Las Venturas")
1824_AddChatMessage("Neulingsspawn = Farm + Huhn")
1825_AddChatMessage("Pier = Bayside + LS Docks")
1826_AddChatMessage("Glenpark = Palomino Creek + LS Arena")
1827_AddChatMessage("San Fierro = San Fierro + Kuh")
1828return
1829:?:t/dblimit::
1830Suspend Permit
1831KeyWait, Enter
1832Sleep, 20
1833_AddChatMessage("Drogenbot Limit ändern")
1834_AddChatMessage("Verfügbar: LSD | Green | Gold")
1835SearchVal := playerInputText("Droge: ")
1836sleep, 20
1837if(SearchVal != "") {
1838if(RegStr(SearchVal, "LSD")) {
1839_AddChatMessage("Derzeitiges LSD Limit: " uDBLSD)
1840SearchVal2 := playerInputText("Limit: ")
1841if(SearchVal2 != "") {
1842if(SearchVal2 is integer) {
1843uDBLSD := SearchVal2
1844IniWrite, %uDBLSD%, %inipath%, DrogenBot, Limit_LSD
1845_AddChatMessage("Drogenbot LSD Limit auf " . SearchVal2 . " geändert")
1846}
1847}
1848}
1849else if(RegStr(SearchVal, "Green")) {
1850_AddChatMessage("Derzeitiges Green Limit: " uDBGreen)
1851SearchVal2 := playerInputText("Limit: ")
1852if(SearchVal2 != "") {
1853if(SearchVal2 is integer) {
1854uDBGreen := SearchVal2
1855IniWrite, %uDBGreen%, %inipath%, DrogenBot, Limit_Green
1856_AddChatMessage("Drogenbot Green Limit auf " . SearchVal2 . "g geändert")
1857}
1858}
1859}
1860else if(RegStr(SearchVal, "Gold")) {
1861_AddChatMessage("Derzeitiges Gold Limit: " uDBGold)
1862SearchVal2 := playerInputText("Limit: ")
1863if(SearchVal2 != "") {
1864if(SearchVal2 is integer) {
1865uDBGold := SearchVal2
1866IniWrite, %uDBGold%, %inipath%, DrogenBot, Limit_Gold
1867_AddChatMessage("Drogenbot Gold Limit auf " . SearchVal2 . "g geändert")
1868}
1869}
1870}
1871else {
1872_AddChatMessage("Die Droge """ SearchVal """ ist nicht verfügbar.")
1873return
1874}
1875}
1876return
1877:?:/bizlist::
1878Suspend Permit
1879KeyWait, Enter
1880Sleep, 20
1881_AddChatMessage("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------")
1882_AddChatMessage("Alle Bizes und Flaggenpunkte! /biz für die Flaggenpunkte")
1883_AddChatMessage("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------")
1884_AddChatMessage("Business 9 - BSN Tankstelle")
1885_AddChatMessage("Business 10 - Grove Street Tankstelle")
1886_AddChatMessage("Business 11 - Truckstop Tankstellen")
1887_AddChatMessage("Business 12 - Dillimore Tankstelle")
1888_AddChatMessage("Business 13 - SF Bahnhof Tankstelle")
1889_AddChatMessage("Business 14 - SFPD Tankstelle")
1890_AddChatMessage("Business 15 - Carshop Tankstelle SF")
1891_AddChatMessage("Business 16 - Bundeswehr Tankstelle")
1892_AddChatMessage("Business 17 - AngelPine Tankstelle")
1893_AddChatMessage("Business 20 - LV-Süd Tankstelle")
1894_AddChatMessage("Business 21 - Tankstelle nähe Bayside")
1895return
1896:?:t/biz::
1897Suspend Permit
1898KeyWait, Enter
1899Sleep, 20
1900_AddChatMessage("Benutze /bizlist für die Auflistung aller BIZes")
1901SearchVal := playerInputText("BIZ ID: ")
1902if(SearchVal != "") {
1903if(RegStr(SearchVal, "9")) {
1904SendChat("/f BSN Tankstelle (9) - Flaggen:  |Angel Pine Tankstelle|  |LV Baseballstadion|  |Kuhgebiet (Ruine)|")
1905}
1906else if(RegStr(SearchVal, "10")) {
1907SendChat("/f Grove Street Tankstelle (10) - Flaggen:  |LV Arena über der FBI Base|  |San Fierro Kraftwerk|  |Fort Carson|")
1908}
1909else if(RegStr(SearchVal, "11")) {
1910SendChat("/f Truckstop Tankstellen (11) - Flaggen:  |Grube über Army Base|  |Catalinas Hütte bei MountGommery|  |Hütte über SF Tunnel|")
1911}
1912else if(RegStr(SearchVal, "12")) {
1913SendChat("/f Dillimore Tankstelle (12) - Flaggen:  |Holzhütte bei AP|  |Basketballplatz RockHotel|  |Bayside Campingplatz|")
1914}
1915else if(RegStr(SearchVal, "13")) {
1916SendChat("/f SF Bahnhof Tankstelle (13) - Flaggen:  |StauDamm|  |LS Airport|  |Palomeno Creek OC|")
1917}
1918else if(RegStr(SearchVal, "14")) {
1919SendChat("/f SFPD Tankstelle (14) - Flaggen:  |Nähe Riddicks Farm|  |Bayside Heliplattform|  |KF Base|")
1920}
1921else if(RegStr(SearchVal, "15")) {
1922SendChat("/f Carshop Tankstelle SF (15) - Flaggen:  |Toter Flughafen|  |Steg LV bei Fort Carson|  |Presivilla Aussichtsplattform|")
1923}
1924else if(RegStr(SearchVal, "16")) {
1925SendChat("/f Bundeswehr Tankstelle (16) - Flaggen:  |LCN Hotel|  |East LS Strand|  |SF Airport Hangar|")
1926}
1927else if(RegStr(SearchVal, "17")) {
1928SendChat("/f AngelPine Tankstelle (17) - Flaggen:  |SF Airport Landebahn|  |LV OST PB|  |Erzmine|")
1929}
1930else if(RegStr(SearchVal, "20")) {
1931SendChat("/f LV Süd Tankstelle (20) - Flaggen:  |Toter Flughafen kleiner Hangar|  |Heilige Makrele (Steg)|  |Motel neben Farm|")
1932}
1933else if(RegStr(SearchVal, "21")) {
1934SendChat("/f Tankstelle nähe Bayside (21) - Flaggen:  |Baustelle gegenüber SF Bahnhof|  |Holzhütte an der Farm|  |Montgomery (Dach)|")
1935}
1936else {
1937_AddChatMessage("Das BIZ """ SearchVal """ ist nicht verfügbar.")
1938return
1939}
1940}
1941return
1942:?:t/ovsize::
1943Suspend Permit
1944KeyWait, Enter
1945Sleep, 20
1946_AddChatMessage("Overlay Schriftgröße ändern")
1947_AddChatMessage("Verfügbar: gov (Gegner Overlay) | use (Use Timer etc)")
1948SearchVal := playerInputText("Welches Overlay: ")
1949ovID := -1
1950if(SearchVal != "") {
1951if(RegStr(SearchVal, "gov")) {
1952ovID := 1
1953_AddChatMessage("Verfügbar: 1-12 (Standard: 8)")
1954SearchVal2 := playerInputText("Schriftgröße: ")y
1955if(SearchVal2 != "") {
1956if(SearchVal2 is integer) {
1957if(SearchVal2 >= 1 && SearchVal2 <= 12) {
1958uGOVSize := SearchVal2
1959IniWrite, %uGOVSize%, %inipath%, Overlay, GOVSize
1960TextUpdate(gegnerTextDraw, "Lucida Sans", uGOVSize, false, false)
1961_AddChatMessage("Schriftgröße auf " . SearchVal2 . " geändert")
1962}
1963}
1964}
1965}
1966else if(RegStr(SearchVal, "use")) {
1967ovID := 1
1968_AddChatMessage("Verfügbar: 1-12 (Standard: 8)")
1969SearchVal2 := playerInputText("Schriftgröße: ")
1970if(SearchVal2 != "") {
1971if(SearchVal2 is integer) {
1972if(SearchVal2 >= 1 && SearchVal2 <= 12) {
1973uUSEOVSize := SearchVal2
1974IniWrite, %uUSEOVSize%, %inipath%, Overlay, USEOVSize
1975TextUpdate(lsdTextDraw, "Lucida Sans", uUSEOVSize, false, false)
1976TextUpdate(goldTextDraw, "Lucida Sans", uUSEOVSize, false, false)
1977TextUpdate(nachwirkungTextDraw, "Lucida Sans", uUSEOVSize, false, false)
1978TextUpdate(matsTextDraw, "Lucida Sans", uUSEOVSize, false, false)
1979_AddChatMessage("Schriftgröße auf " . SearchVal2 . " geändert")
1980}
1981}
1982}
1983}
1984else {
1985_AddChatMessage("Das Overlay """ SearchVal """ ist nicht verfügbar.")
1986return
1987}
1988}
1989return
1990:?:t/fraktionen::
1991Suspend Permit
1992KeyWait, Enter
1993Sleep, 20
1994For, key, value in fraks {
1995text := ""
1996test := fraks[key].MaxIndex()
1997getloops := (test-2)
1998loops := 3
1999Loop %getloops% {
2000text := "" . text . "" + "" . fraks[key][loops] . " | "
2001loops++
2002}
2003_AddChatMessage("{" fraks[key][1] "}" fraks[key][2] ": " text)
2004}
2005return
2006:?:t/gegner::
2007Suspend Permit
2008KeyWait, Enter
2009Sleep, 20
2010if(gegnerCheckOn != 0) {
2011_AddChatMessage("Bitte erst aktuelles Overlay mit /gegneroff löschen!")
2012return
2013}
2014frakID:= -1
2015SearchVal := playerInputText("Fraktion: ")
2016if(SearchVal != "") {
2017For, key, value in fraks {
2018StringLower, SearchVal, SearchVal
2019if(hasValue(value, SearchVal))
2020frakID:= key
2021}
2022if(frakID == -1) {
2023_AddChatMessage("Die Fraktion """ SearchVal """ wurde leider nicht gefunden.")
2024return
2025}
2026_AddChatMessage("{" fraks[frakID][1] "}" fraks[frakID][2] "{CCC8CC} Overlay aktiviert. Zum beenden /gegneroff")
2027gegnerOverlay(frakID)
2028return
2029}
2030return
2031:?:t/gegneroff::
2032Suspend Permit
2033KeyWait, Enter
2034Sleep, 20
2035if (gegnerCreated == 1) {
2036_AddChatMessage("Gegner Overlay beendet")
2037TextSetShown(gegnerTextDraw, false)
2038gegnerCheckOn := 0
2039gegnerCreated := 0
2040SetTimer, gegnerChecken, OFF
2041return
2042}
2043return
2044:?:t/bizflag::
2045Suspend Permit
2046KeyWait, Enter
2047Sleep, 20
2048StartAutoFlag()
2049return
2050:?:t/drogenbot::
2051Suspend Permit
2052KeyWait, Enter
2053Sleep, 20
2054StartDrogenBot() {
2055{
2056return
2057}
2058if(drogenBot == 0) {
2059drogenBot := 1
2060_AddChatMessage("Drogenbot {2E895A}aktiviert{CCC8CC}! (Limits: LSD: " uDBLSD " Pillen | Green: " uDBGreen "g | Gold: " uDBGold "g)")
2061}
2062else if(drogenBot == 1) {
2063drogenBot := 0
2064_AddChatMessage("Drogenbot {AA2B2F}deaktiviert{CCC8CC}!")
2065}
2066}
2067return
2068:?:t/blbot::
2069Suspend Permit
2070KeyWait, Enter
2071Sleep, 20
2072return
2073:?:t/killtest::
2074Suspend Permit
2075KeyWait, Enter
2076Sleep, 20
2077KillBind(1)
2078return
2079:?:t/kd::
2080Suspend Permit
2081KeyWait, Enter
2082Sleep, 20
2083globalDeathsForCalculation:= (uGDeaths == 0 ? 1 : uGDeaths)
2084dailyDeathsForCalculation:= (uDDeaths == 0 ? 1 : uDDeaths)
2085globalKD:= floorDecimal((uGKills/globalDeathsForCalculation), 2)
2086dailyKD:= floorDecimal((uDKills/dailyDeathsForCalculation), 2)
2087{
2088_AddChatMessage("Heute Kills: {AA2B2F}" uDKills "{CCC8CC} Tode: {AA2B2F}" uDDeaths "{CCC8CC} K/D: {AA2B2F}" dailyKD "{CCC8CC}")
2089}
2090_AddChatMessage("Gesamt Kills: {AA2B2F}" uGKills "{CCC8CC} Tode: {AA2B2F}" uGDeaths "{CCC8CC} K/D: {AA2B2F}" globalKD "{CCC8CC}")
2091return
2092:?:t/fkd::
2093Suspend Permit
2094KeyWait, Enter
2095Sleep, 20
2096dailyDeathsForCalculation:= (uDDeaths == 0 ? 1 : uDDeaths)
2097dailyKD:= floorDecimal((uDKills/dailyDeathsForCalculation), 2)
2098{
2099SendChat("/f Heute Kills: " uDKills " Tode: " uDDeaths " K/D: " dailyKD " (Extorts: " uDExtorts ")")
2100}
2101return
2102OverlayTimer:
2103if(gEingeloggt != -1) {
2104gEingeloggt--
2105if(gEingeloggt <= 0) {
2106gEingeloggt := -1
2107}
2108}
2109checkNewDay()
2110PosiBinds()
2111updateOverlays()
2112return
2113hitSound() {
2114global
2115if(WinExist("ahk_exe gta_sa.exe") && binderLoaded == 1) {
2116nowHP:= GetPlayerHealth()
2117nowAM:= GetPlayerArmor()
2118sumDif:= (lastHP - nowHP) + (lastAM - nowAM)
2119if(sumDif >= 5) {
2120if(uhitmsgActive == 1) {
2121_AddChatMessage("ACHTUNG! Du hast {AA2B2F}" sumDif "{CCC8CC} Schaden bekommen!")
2122}
2123if(uhitsoundActive == 1) {
2124PlaySound(readHitSound)
2125}
2126}
2127lastHP:= nowHP
2128lastAM:= nowAM
2129if(deathTime != -1 && nowHP <= 100) {
2130deathTime := -1
2131TextSetShown(nachwirkungTextDraw, false)
2132SendChat("/f lebt wieder!")
2133}
2134return
2135}
2136return
2137}
2138KillBind(ktest:=0) {
2139if(ktest == 0) {
2140uGKills++
2141uDKills++
2142IniWrite, %uGKills%, %inipath%, Kills, GKills
2143IniWrite, %uDKills%, %inipath%, Kills, DKills
2144}
2145sectionsEnabled := []
2146Loop, 2 {
2147text1 := uKSpruch%A_Index%_1
2148text2 := uKSpruch%A_Index%_2
2149if(text1 != "" or text2 != "") {
2150sectionsEnabled.Push(A_Index)
2151}
2152}
2153entry := Rand(1, sectionsEnabled.MaxIndex())
2154text1 := uKSpruch%entry%_1
2155text2 := uKSpruch%entry%_2
2156GetZoneName(zoneName, 50)
2157text1 := StrReplace(text1, "[GKills]" , uGKills)
2158text2 := StrReplace(text2, "[GKills]" , uGKills)
2159text1 := StrReplace(text1, "[DKills]" , uDKills)
2160text2 := StrReplace(text2, "[DKills]" , uDKills)
2161text1 := StrReplace(text1, "[Ort]" , zoneName)
2162text2 := StrReplace(text2, "[Ort]" , zoneName)
2163if(DisableKilltrigger != 1) {
2164if(text1 != "")
2165SendChat(text1)
2166if(text2 != "")
2167SendChat(text2)
2168}
2169else {
2170DisableKilltrigger := 0
2171SoundPlay, *-1
2172}
2173dailyDeathsForCalculation:= (uDDeaths == 0 ? 1 : uDDeaths)
2174dailyKD:= floorDecimal((uDKills/dailyDeathsForCalculation), 2)
2175Sleep, 65
2176_AddChatMessage("Heute Kills: {AA2B2F}" uDKills "{CCC8CC} Tode: {AA2B2F}" uDDeaths "{CCC8CC} K/D: {AA2B2F}" dailyKD "{CCC8CC}")
2177return
2178}
2179_AddChatMessage(Msg){
2180String := "{FFFF00}AZZIMEMOKEYBINDER > {FFFFFF}" + Msg
2181AddChatMessage(String)
2182}
2183_TrayTip(TrayText){
2184TrayTitel := "† AZZIMEMOKEYBINDER > "
2185TrayTip % TrayTitel, % TrayText
2186}
2187createINI() {
2188IfNotExist %inipath%
2189{
2190IniWrite, %uYDAY%, %inipath%, Settings, YDay
2191IniWrite, /f AZZIMEMO ist King  [Ort] Nr. [GKills], %inipath%, KillSpruch, 1_1
2192IniWrite, /s AZZIMEMO ist King  [Ort] Nr. [GKills], %inipath%, KillSpruch, 1_2
2193IniWrite, % "", %inipath%, KillSpruch, 2_1
2194IniWrite, % "", %inipath%, KillSpruch, 2_2
2195IniWrite, 0, %inipath%, Kills, GKills
2196IniWrite, 0, %inipath%, Kills, GDeaths
2197IniWrite, 0, %inipath%, Kills, DKills
2198IniWrite, 0, %inipath%, Kills, DDeaths
2199}
2200return
2201}
2202loadINI() {
2203global
2204IniRead, uYDAY, %inipath%, Settings, YDay
2205IniRead, uKSpruch1_1, %inipath%, KillSpruch, 1_1, /f AZZIMEMO ist King [Ort] Nr. [GKills]
2206IniRead, uKSpruch1_2, %inipath%, KillSpruch, 1_2, /s AZZIMEMO ist King [Ort] Nr. [GKills]
2207IniRead, uKSpruch2_1, %inipath%, KillSpruch, 2_1
2208IniRead, uKSpruch2_2, %inipath%, KillSpruch, 2_2
2209IniRead, uGKills, %inipath%, Kills, GKills, 0
2210IniRead, uGDeaths, %inipath%, Kills, GDeaths, 0
2211IniRead, uDKills, %inipath%, Kills, DKills, 0
2212IniRead, uDDeaths, %inipath%, Kills, DDeaths, 0
2213IniRead, uDExtorts, %inipath%, Kills, DExtorts, 0
2214IniRead, uGOVSize, %inipath%, Overlay, GOVSize, 8
2215IniRead, uUSEOVSize, %inipath%, Overlay, USEOVSize, 8
2216IniRead, uDBLSD, %inipath%, DrogenBot, Limit_LSD, 6
2217IniRead, uDBGreen, %inipath%, DrogenBot, Limit_Green, 30
2218IniRead, uDBGold, %inipath%, DrogenBot, Limit_Gold, 150
2219IniRead, uDBStart, %inipath%, DrogenBot, Auto_Start, 0
2220IniRead, uBLBStart, %inipath%, Settings, BLB_Auto_Start, 0
2221IniRead, uAutoEngine, %inipath%, Settings, Auto_Engine, 1
2222IniRead, uAutoSwapGun, %inipath%, Settings, Auto_SwapGun, 1
2223IniRead, uTicket, %inipath%, Settings, Auto_Ticket, 1
2224IniRead, uMV, %inipath%, Settings, Auto_MV, 1
2225IniRead, uhitsoundActive, %inipath%, Settings, Hitsound, 1
2226IniRead, uhitmsgActive, %inipath%, Settings, Hitmsg, 1
2227IniRead, uBizFlag, %inipath%, Settings, Biz_Flag, 3
2228IniRead, uRepeat, %inipath% , Settings, Repeat_Bind, ,
2229IniRead, uVS, %inipath%, Settings, VS_Bind, Y
2230IniRead, uOldStats, %inipath%, Settings, OldStats_Bind, 4
2231IniRead, uDeactivate, %inipath%, Settings, Deactivate_Bind, End
2232IniRead, uBind_Bind_M_1, %inipath%, KeyBinds, Bind_M_1, %A_SPACE%
2233IniRead, uBind_Bind_M_2, %inipath%, KeyBinds, Bind_M_2, %A_SPACE%
2234Loop, %MaxKeybinds%
2235{
2236IniRead, uBind_Key_%A_Index%, %inipath%, KeyBinds, Bind_Key_%A_Index%, %A_Space%
2237IniRead, uBind_Bind_%A_Index%, %inipath%, KeyBinds, Bind_Bind_%A_Index%, %A_Space%
2238}
2239Sleep, 500
2240saveINI()
2241return
2242}
2243saveINI() {
2244IniWrite, %uYDAY%, %inipath%, Settings, YDay
2245IniWrite, %uGKills%, %inipath%, Kills, GKills
2246IniWrite, %uGDeaths%, %inipath%, Kills, GDeaths
2247IniWrite, %uDKills%, %inipath%, Kills, DKills
2248IniWrite, %uDDeaths%, %inipath%, Kills, DDeaths
2249IniWrite, %uDExtorts%, %inipath%, Kills, DExtorts
2250IniWrite, %uGOVSize%, %inipath%, Overlay, GOVSize
2251IniWrite, %uUSEOVSize%, %inipath%, Overlay, USEOVSize
2252IniWrite, %uDBLSD%, %inipath%, DrogenBot, Limit_LSD
2253IniWrite, %uDBGreen%, %inipath%, DrogenBot, Limit_Green
2254IniWrite, %uDBGold%, %inipath%, DrogenBot, Limit_Gold
2255IniWrite, %uDBStart%, %inipath%, DrogenBot, Auto_Start
2256IniWrite, %uBLBStart%, %inipath%, Settings, BLB_Auto_Start
2257IniWrite, %uAutoEngine%, %inipath%, Settings, Auto_Engine
2258IniWrite, %uAutoSwapGun%, %inipath%, Settings, Auto_SwapGun
2259IniWrite, %uTicket%, %inipath%, Settings, Auto_Ticket
2260IniWrite, %uMV%, %inipath%, Settings, Auto_MV
2261IniWrite, %uhitsoundActive%, %inipath%, Settings, Hitsound
2262IniWrite, %uhitmsgActive%, %inipath%, Settings, Hitmsg
2263IniWrite, %uBizFlag%, %inipath%, Settings, Biz_Flag
2264IniWrite, %uRepeat%, %inipath% , Settings, Repeat_Bind
2265IniWrite, %uVS%, %inipath%, Settings, VS_Bind
2266IniWrite, %uOldStats%, %inipath%, Settings, OldStats_Bind
2267IniWrite, %uDeactivate%, %inipath%, Settings, Deactivate_Bind
2268IniWrite, %uBind_Bind_M_1%, %inipath%, KeyBinds, Bind_M_1
2269IniWrite, %uBind_Bind_M_2%, %inipath%, KeyBinds, Bind_M_2
2270Loop, %MaxKeybinds%
2271{
2272IniWrite, % uBind_Key_%A_Index%, %inipath%, KeyBinds, Bind_Key_%A_Index%
2273IniWrite, % uBind_Bind_%A_Index%, %inipath%, KeyBinds, Bind_Bind_%A_Index%
2274}
2275return
2276}
2277LatestChat(ByRef output) {
2278global DisableChats, DisableKilltrigger, MightKilled, HitCon_Name, varSetMoney, varHWD, valAdd5WP
2279NewChatCount := GetChatLineCount()
2280if(DisableChats > 0) {
2281DisableChats -= 1
2282CurrentChatCount += 1
2283output := 0
2284return
2285}
2286if((NewChatCount-CurrentChatCount)>100)
2287CurrentChatCount := NewChatCount
2288if(NewChatCount > CurrentChatCount) {
2289CurrentChatCount += 1
2290FileRead, cfile, %chatlogpath%
2291Loop, parse, cfile, `n, `r
2292{
2293if(A_Index = CurrentChatCount) {
2294LatestOutput := RegExReplace(A_LoopField, "U)^\[\d{2}:\d{2}:\d{2}\]")
2295LatestOutput := RegExReplace(LatestOutput, "Ui)\{[a-f0-9]{6}\}")
2296LatestOutput := Trim(LatestOutput, " ")
2297break
2298}
2299}
2300cfile := ""
2301if(RegStr(LatestOutput, "[NeS]", "mit der ID", "flüstert dir:"))
2302DisableChats := 1
2303DelVarIndex := 0
2304output := LatestOutput
2305return
2306}
2307if(NewChatCount <= CurrentChatCount) {
2308CurrentChatCount := NewChatCount
2309DelVarIndex += 1
2310if(DelVarIndex = 10) {
2311DisableChats := 0
2312DisableKilltrigger := 0
2313MightKilled := 0
2314HitCon_Name := 0
2315varSetMoney := 0
2316varHWD := 0
2317valAdd5WP := ""
2318}
2319output := 0
2320return
2321}
2322}
2323GetChatLineCount(){
2324FileRead, file, %chatlogpath%
2325StringReplace, file, file, `n, `n, UseErrorLevel
2326return ErrorLevel
2327}
2328GetChatLine(Line, ByRef Output, timestamp=0, color=0){
2329chatindex := GetChatLineCount()
2330FileRead, file, %chatlogpath%
2331loop, Parse, file, `n, `r
2332{
2333if(A_Index = chatindex - line){
2334output := A_LoopField
2335break
2336}
2337}
2338file := ""
2339if(!timestamp)
2340output := RegExReplace(output, "U)^\[\d{2}:\d{2}:\d{2}\]")
2341if(!color)
2342output := RegExReplace(output, "Ui)\{[a-f0-9]{6}\}")
2343output := Trim(output, " ")
2344return
2345}
2346playerInputText(text) {
2347s := A_IsSuspended
2348Suspend On
2349KeyWait Enter
2350SendInput t^a{backspace}%text%
2351Input, var, v, {enter}
2352SendInput ^a{backspace 100}{enter}
2353Sleep, 20
2354if(!s)
2355Suspend Off
2356return var
2357}
2358RegStr(String, Needle, Needle2="", Needle3="") {
2359Pos := RegExMatch(String, "(:|\*|•).*\Q" Needle "\E", output)
2360if(output)
2361return 0
2362if(!Needle2 AND !Needle3) {
2363if(InStr(String, Needle, 1))
2364return 1
2365}
2366if(Needle2 AND !Needle3) {
2367if(InStr(String, Needle, 1) AND InStr(String, Needle2, 1))
2368return 1
2369}
2370if(Needle2 AND Needle3) {
2371if(InStr(String, Needle, 1) AND InStr(String, Needle2, 1) AND InStr(String, Needle3, 1))
2372return 1
2373}
2374return 0
2375}
2376KeyReady(taste="enter") {
2377while(GetKeyState(taste, "P"))
2378Sleep, 10
2379}
2380floorDecimal(num,dec) {
2381return RegExReplace(num,"(?<=\.\d{" dec "}).*$")
2382}
2383PlaySound( ByRef Sound ) {
2384DllCall( "winmm.dll\PlaySound" ( A_IsUnicode ? "W" : "A" ), UInt,&Sound, UInt,1
2385, UInt, ((SND_MEMORY:=0x4)|(SND_NODEFAULT:=0x2)) )
2386return
2387}
2388isGTAInForeground(){
2389return WinActive("ahk_exe gta_sa.exe")
2390}
2391hasValue(haystack, needle) {
2392if(!isObject(haystack))
2393return false
2394if(haystack.Length()==0)
2395return false
2396for k,v in haystack
2397if(v==needle)
2398return true
2399return false
2400}
2401ExitFunc() {
2402DestroyAllVisual()
2403}
2404gegnerOverlay(SearchVal)
2405{
2406if(SearchVal)
2407{
2408For, key, value in fraks {
2409StringLower, SearchVal, SearchVal
2410if(hasValue(value, SearchVal))
2411frakID:= key
2412}
2413if(frakID == -1) {
2414_AddChatMessage("Die Fraktion """ SearchVal """ wurde leider nicht gefunden.")
2415return
2416}
2417request := WinHTTPRequest("http://893.plusmacher-gmbh.de/api/checkfrak.php?frakid=" SearchVal, members)
2418if(request != -1) {
2419_AddChatMessage("Fehler beim Laden!")
2420if(gegnerCreated == 1) {
2421_AddChatMessage("Gegner Overlay beendet")
2422TextSetShown(gegnerTextDraw, false)
2423gegnerCheckOn := 0
2424gegnerCreated := 0
2425SetTimer, gegnerChecken, OFF
2426}
2427return
2428}
2429members := StrReplace(members, "</div>")
2430members := StrReplace(members, "Name:")
2431members := StrReplace(members, "Level:")
2432members := StrReplace(members, "Rang:")
2433members := StrReplace(members, "Status:")
2434membersData := StrSplit(members, "<div id=""Member"">")
2435namenlist := ""
2436namencount := 0
2437onlinecount := 0
2438For, index, value in membersData {
2439memberData:= StrSplit(value, "||")
2440if(memberData[4] != "online" and memberData[4] != "offline")
2441continue
2442namencount++
2443Sleep, 20
2444if(memberData[4] == "online") {
2445onlinecount++
2446namenlist := "" . namenlist . "" + "`n" . memberData[1] . ""
2447}
2448}
2449ttext := "{" fraks[SearchVal][1] "}" fraks[SearchVal][2] " (" . onlinecount . "/" . namencount . "):`n"
2450ttext2 := "" . ttext . "" +  "" . namenlist . ""
2451TextSetString(gegnerTextDraw, ttext2)
2452TextUpdate(gegnerTextDraw, "Lucida Sans", uGOVSize, false, false)
2453gegnerCheckOn := SearchVal
2454if(gegnerCreated == 0) {
2455TextSetShown(gegnerTextDraw, true)
2456gegnerCreated := 1
2457}
2458SetTimer, gegnerChecken, 5000
2459return
2460}
2461}
2462gegnerChecken:
2463if(gegnerCheckOn != 0){
2464gegnerOverlay(gegnerCheckOn)
2465}
2466return
2467CreateLabels() {
2468if(!WinExist("ahk_exe gta_sa.exe") || binderLoaded != 1) {
2469return
2470}
2471gegnerTextDraw := TextCreate("Lucida Sans", uGOVSize, false, false, 640, 345, 0xFFFFFFFF, "Kein Gegner", true, false)
2472carDLTextDraw := TextCreate("Lucida Sans", 10, false, false, 553, 540, 0xFFFFFFFF, "DL: ", true, false)
2473lsdTextDraw := TextCreate("Lucida Sans", uUSEOVSize, false, false, 625, 190, 0xFFFFFFFF, "/USE LSD   : JETZT", true, true)
2474goldTextDraw := TextCreate("Lucida Sans", uUSEOVSize, false, false, 625, 205, 0xFFFFFFFF, "/USE GOLD: JETZT", true, true)
2475nachwirkungTextDraw := TextCreate("Lucida Sans", uUSEOVSize, false, false, 625, 220, 0xFFFFFFFF, " ", true, false)
2476matsTextDraw := TextCreate("Lucida Sans", uUSEOVSize, false, false, 625, 235, 0xFFFFFFFF, "Materials: 180sek", true, false)
2477canupdatelabels := 1
2478return
2479}
2480UpdateLabels() {
2481if(!WinExist("ahk_exe gta_sa.exe") || canupdatelabels != 1 || binderLoaded != 1) {
2482return
2483}
2484if(IsPlayerInAnyVehicle() == 1){
2485dl := GetVehicleHealth()
2486TextSetString(carDLTextDraw, "DL: " . Floor(dl))
2487TextSetShown(carDLTextDraw, true)
2488}
2489else {
2490TextSetShown(carDLTextDraw, false)
2491}
2492return
2493}
2494Rand( a=0.0, b=1 ) {
2495IfEqual,a,,Random,,% r := b = 1 ? Rand(0,0xFFFFFFFF) : b
2496Else Random,r,a,b
2497Return r
2498}
2499updateOverlays() {
2500if(!WinExist("ahk_exe gta_sa.exe")){
2501return
2502}
2503if(matsTime != -1) {
2504timeDif := matsTime
2505EnvSub, timeDif, A_Now, seconds
2506TextSetString(matsTextDraw, "Materials: " . timeDif . " sek")
2507TextSetShown(matsTextDraw, true)
2508if(timeDif <= 0) {
2509matsTime := -1
2510TextSetShown(matsTextDraw, false)
2511_AddChatMessage("Du kannst nun deine Mats abholen!")
2512SoundBeep, 750, 1000
2513}
2514}
2515if(lsdTime != -1) {
2516timeDif := lsdTime
2517EnvSub, timeDif, A_Now, seconds
2518TextSetString(lsdTextDraw, "/USE LSD   : " . timeDif . " sek")
2519if(timeDif <= 0) {
2520lsdTime := -1
2521TextSetString(lsdTextDraw, "/USE LSD   : JETZT (" Anzahl_LSD " Pillen)")
2522_AddChatMessage("Du kannst nun wieder LSD usen!")
2523}
2524}
2525if(goldTime != -1) {
2526timeDif := goldTime
2527EnvSub, timeDif, A_Now, seconds
2528TextSetString(goldTextDraw, "/USE GOLD: " . timeDif . " sek")
2529if(timeDif <= 0) {
2530goldTime := -1
2531TextSetString(goldTextDraw, "/USE GOLD: JETZT (" Anzahl_Gold " g)")
2532_AddChatMessage("Du kannst nun wieder Gold/Green usen!")
2533}
2534}
2535if(nachwirkungTime != -1) {
2536timeDif := nachwirkungTime
2537EnvSub, timeDif, A_Now, seconds
2538TextSetString(nachwirkungTextDraw, "NACHWIRKUNG: " . timeDif . " sek")
2539TextSetShown(nachwirkungTextDraw, true)
2540if(timeDif == 15) {
2541_AddChatMessage("LSD Nachwirkung in ca. {AA2B2F}" . timeDif . "{CCC8CC} Sekunden!")
2542}
2543if(timeDif <= 5) {
2544_AddChatMessage("LSD Nachwirkung in ca. {AA2B2F}" . timeDif . "{CCC8CC} Sekunden!")
2545}
2546if(timeDif <= 0) {
2547nachwirkungTime := -1
2548TextSetShown(nachwirkungTextDraw, false)
2549}
2550}
2551if(deathTime != -1 && nachwirkungTime == -1) {
2552timeDif := deathTime
2553EnvSub, timeDif, A_Now, seconds
2554TextSetString(nachwirkungTextDraw, "Respawn: " . timeDif . " sek")
2555TextSetShown(nachwirkungTextDraw, true)
2556if(timeDif <= 10) {
2557_AddChatMessage("Du bist noch ca. {AA2B2F}" . timeDif . "{CCC8CC} Sekunden auf dem Friedhof")
2558}
2559if(timeDif <= 0) {
2560deathTime := -1
2561TextSetShown(nachwirkungTextDraw, false)
2562SendChat("/f lebt wieder!")
2563}
2564}
2565return
2566}
2567unLoadBinder() {
2568binderLoaded := 0
2569deathTime := -1
2570nachwirkungTime := -1
2571goldTime := -1
2572lsdTime := -1
2573matsTime := -1
2574canupdatelabels := 0
2575gegnerCheckOn := 0
2576gegnerCreated := 0
2577drogenBot := 0
2578blacklistBot := 0
2579spamCMD := 0
2580Image_Arrow := -1
2581Image_Map := -1
2582Image_VS := -1
2583Image_VS_X := -1
2584Image_VS_Y := -1
2585autoFlag := 0
2586SetTimer, getflagposTimer, OFF
2587SetTimer, SpamTimer, off
2588SetTimer, VSTimer, off
2589SetTimer, OverlayTimer, off
2590}
2591PosiBinds() {
2592if(!WinExist("ahk_exe gta_sa.exe") || isGTAInForeground() == 0) {
2593return
2594}
2595radius := 1
2596GetPlayerPosition(X,Y,Z)
2597if(mapViewed == 1) {
2598aX := CalcActiveMap(X,, 20)
2599aY := CalcActiveMap(,Y, 20)
2600ImageSetPos(Image_Arrow, CalcScreenPos(aX), CalcScreenPos(,aY))
2601if(Image_VS_X != -1 && Image_VS_Y != -1) {
2602vX := CalcActiveMap(Image_VS_X,, 10)
2603vY := CalcActiveMap(,Image_VS_Y, 10)
2604if(Image_VS == -1) {
2605Image_VS := ImageCreate("bin/vs.png", CalcScreenPos(vX), CalcScreenPos(,vY), 0, 0, 1)
2606} else {
2607ImageSetPos(Image_VS, CalcScreenPos(vX), CalcScreenPos(,vY))
2608}
2609}
2610}
2611if(IsPlayerInAnyVehicle() == 1) {
2612if(IsInRadius(X,Y,Z,-154.2079,-338.7406,1.4219,radius)) {
2613SendChat("/chemload 400")
2614return
2615}
2616}
2617if(IsInRadius(X,Y,Z,597.1868,-1248.5756,18.2728,radius)) {
2618SendChat("/materials buy 4")
2619return
2620}
2621if(IsInRadius(X,Y,Z,-2109.5667,1.1253,35.3203,radius)) {
2622SendChat("/materials deliver")
2623return
2624}
2625if(IsPlayerInAnyVehicle() == 0) {
2626if(IsInExtort(X,Y,Z,radius)) {
2627    sleep, 100
2628SendChat("/extort")
2629return
2630}
2631if(IsInGWFlag(X,Y,Z,radius)) {
2632SendChat("/gangflag")
2633return
2634}
2635}
2636return
2637}
2638{
2639if(FileExist("updater.bat") != ""){
2640FileDelete, updater.bat
2641}
2642viname := (Rand(155015)+Rand(454550))
2643viname := "v" . viname . ".ini"
2644URLDownloadToFile, http://893.plusmacher-gmbh.de/version.ini, %viname%
2645FileMove, %viname%, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%, 1
2646IniRead, vi_info, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%, Info, Version, "0.0"
2647IniRead, vi_dl, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%, Info, DLLink, 0
2648IniRead, vi_datum, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%, Changelog, Datum, 0
2649IniRead, vi_clog, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%, Changelog, Changelog, 0
2650FileDelete, %A_Appdata%\AZZIMEMOKEYBINDER\bin\%viname%
2651if(vi_info != binderVersion) {
2652UpdateText := "Ein Update ist verfügbar!`n`nMöchtest du das Update v[NVersion] herunterladen & installieren?`n`nChangelog v[NVersion] vom [Datum]:`n"
2653StringReplace, UpdateText, UpdateText, [NVersion], %vi_info%, All
2654StringReplace, UpdateText, UpdateText, [Datum], %vi_datum%, All
2655StringReplace, vi_clog, vi_clog, [n], `n%A_Space%, All
2656StringReplace, vi_clog, vi_clog, [i], `n>%A_Space%, All
2657MsgBox, 68, Update verfügbar, %UpdateText% %vi_clog%
2658IfMsgBox, Yes
2659{
2660URLDownloadToFile, %vi_dl%, new-%A_ScriptName%
2661FileMove, new-%A_ScriptName%, %A_ScriptDir%, 1
2662BatchFile=
2663            (
2664                Echo Update wird ausgeführt..
2665                cd "%A_ScriptDir%"
2666                timeout 6 >nul
2667                Del "%A_ScriptFullPath%"
2668                Rename "new-%A_ScriptName%" "%A_ScriptName%"
2669                start %A_ScriptName%
2670)
2671FileDelete, updater.bat
2672FileAppend, %BatchFile%, updater.bat
2673Run *RunAs updater.bat
2674}
2675ExitApp
2676}
2677return
2678}
2679return
2680WinHttpRequest( URL, ByRef In_POST__Out_Data="", ByRef In_Out_HEADERS="", Options="" )
2681{
2682static nothing := ComObjError(0)
2683static oHTTP   := ComObjCreate("WinHttp.WinHttpRequest.5.1")
2684static oADO    := ComObjCreate("adodb.stream")
2685If IsObject(URL)
2686Return oHTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
2687If (In_POST__Out_Data != "") || InStr(Options, "Method: POST")
2688oHTTP.Open("POST", URL, True)
2689Else If InStr(Options, "Method: HEAD")
2690oHTTP.Open("HEAD", URL, True)
2691Else
2692oHTTP.Open("GET", URL, True)
2693If In_Out_HEADERS
2694{
2695In_Out_HEADERS := Trim(In_Out_HEADERS, " `t`r`n")
2696Loop, Parse, In_Out_HEADERS, `n, `r
2697{
2698If !( _pos := InStr(A_LoopField, ":") )
2699Continue
2700Header_Name  := SubStr(A_LoopField, 1, _pos-1)
2701Header_Value := SubStr(A_LoopField, _pos+1)
2702If (  Trim(Header_Value) != ""  )
2703oHTTP.SetRequestHeader( Header_Name, Header_Value )
2704}
2705}
2706If (In_POST__Out_Data != "") && !InStr(In_Out_HEADERS, "Content-Type:")
2707oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
2708If Options
2709{
2710Loop, Parse, Options, `n, `r
2711{
2712If ( _pos := InStr(A_LoopField, "Timeout:") )
2713Timeout := SubStr(A_LoopField, _pos+8)
2714Else If ( _pos := InStr(A_LoopField, "Proxy:") )
2715oHTTP.SetProxy( 2, SubStr(A_LoopField, _pos+6) )
2716Else If ( _pos := InStr(A_LoopField, "Codepage:") )
2717oHTTP.Option(2) := SubStr(A_LoopField, _pos+9)
2718}
2719oHTTP.Option(6) := InStr(Options, "NO_AUTO_REDIRECT") ? 0 : 1
2720}
2721oHTTP.Send(In_POST__Out_Data)
2722ReturnCode := oHTTP.WaitForResponse(Timeout ? Timeout : -1)
2723If InStr(Options, "SaveAs:")
2724{
2725RegExMatch(Options, "i)SaveAs:[ \t]*\K[^\r\n]+", SavePath)
2726oADO.Type := 1
2727oADO.Open()
2728oADO.Write( oHTTP.ResponseBody )
2729oADO.SaveToFile( SavePath, 2 )
2730oADO.Close()
2731In_POST__Out_Data := ""
2732}
2733Else If InStr(Options, "Charset:")
2734{
2735RegExMatch(Options, "i)Charset:[ \t]*\K[\w-]+", Encoding)
2736oADO.Type     := 1
2737oADO.Mode     := 3
2738oADO.Open()
2739oADO.Write( oHTTP.ResponseBody() )
2740oADO.Position := 0
2741oADO.Type     := 2
2742oADO.Charset  := Encoding
2743In_POST__Out_Data := IsByRef(In_POST__Out_Data) ? oADO.ReadText() : ""
2744oADO.Close()
2745}
2746Else
2747In_POST__Out_Data := IsByRef(In_POST__Out_Data) ? oHTTP.ResponseText : ""
2748In_Out_HEADERS := "HTTP/1.1 " oHTTP.Status() "`n" oHTTP.GetAllResponseHeaders()
2749Return, ReturnCode
2750}
2751ProcessStatus(Name) {
2752Process, Exist, %Name%
2753If(ErrorLevel)
2754return true
2755return false
2756}
2757CloseSAMP:
2758BlockInput, On
2759SendInput, t/q{enter}
2760BlockInput, Off
2761While(ProcessStatus("gta_sa.exe")) {
2762Sleep, 500
2763}
2764return
2765StartSAMP:
2766if(ProcessStatus("gta_sa.exe")) {
2767return
2768}
2769RegRead GTA_SA_EXE, HKEY_CURRENT_USER, Software\SAMP, gta_sa_exe
2770SplitPath, GTA_SA_EXE,, PFAD
2771run, %PFAD%\samp.exe server.nes-newlife.de:7777, %PFAD%
2772return
2773LoadHotKey() {
2774Loop, %MaxKeybinds%
2775{
2776if(uBind_Key_%A_Index% != "") {
2777bkKey := uBind_Key_%A_Index%
2778Hotkey, %bkKey%, Label_for_all_Hotkeys, on
2779}
2780}
2781if(uBind_Bind_M_1 != "") {
2782Hotkey, XButton1, Label_for_all_Hotkeys, on
2783}
2784if(uBind_Bind_M_2 != "") {
2785Hotkey, XButton2, Label_for_all_Hotkeys, on
2786}
2787if(uBizFlag != "") {
2788Hotkey, %uBizFlag%, Label_for_all_Hotkeys, on
2789}
2790if(uRepeat != "") {
2791Hotkey, %uRepeat%, Label_for_all_Hotkeys, on
2792}
2793if(uVS != "") {
2794Hotkey, %uVS%, Label_for_all_Hotkeys, on
2795}
2796if(uOldStats != "") {
2797Hotkey, %uOldStats%, Label_for_all_Hotkeys, on
2798}
2799if(uDeactivate != "") {
2800Hotkey, %uDeactivate%, Label_for_all_Hotkeys, on
2801}
2802return
2803}
2804Label_for_all_Hotkeys:
2805if(isGTAInForeground() == 0){
2806return
2807}
2808if(A_ThisHotkey == uDeactivate && StrLen(A_ThisHotkey) == StrLen(uDeactivate)) {
2809DeactivateBinds()
2810return
2811}
2812if(bDeactivated == 1 or IsChatOpen() == 1 or IsDialogOpen() == 1 or IsMenuOpen() == 1){
2813if(A_ThisHotkey != uDeactivate && StrLen(A_ThisHotkey) != StrLen(uDeactivate)) {
2814SendLevel 1
2815Hotkey, %A_ThisHotkey%, off
2816thisKeyToSend:= A_ThisHotkey
2817if(InStr(thisKeyToSend, "Numpad")){
2818thisKeyToSend:= SubStr(thisKeyToSend, 7)
2819}
2820if(GetKeyState("Shift") or GetKeyState("LShift") or GetKeyState("RShift") or (GetKeyState("Capslock", "T") and GetKeyState("RShift") == 0 and GetKeyState("LShift") == 0) )
2821SendEvent, +%thisKeyToSend%
2822else
2823if(GetKeyState("RALT") && GetKeyState("LCTRL"))
2824SendEvent, !^%thisKeyToSend%
2825else
2826SendEvent, %thisKeyToSend%
2827SendLevel 0
2828Hotkey, %A_ThisHotkey%, on
2829return
2830}
2831return
2832}
2833Loop, %MaxKeybinds%
2834{
2835if(A_ThisHotkey == uBind_Key_%A_Index% && StrLen(A_ThisHotkey) == StrLen(uBind_Key_%A_Index%) && bDeactivated != 1) {
2836if(InStr(uBind_Bind_%A_Index%, "~")){
2837CmdArray := StrSplit(uBind_Bind_%A_Index%, "~")
2838Loop % CmdArray.MaxIndex()
2839{
2840this_cmd := CmdArray[A_Index]
2841SendChat("" . this_cmd . "")
2842}
2843}
2844else {
2845SendChat(uBind_Bind_%A_Index%)
2846}
2847return
2848}
2849}
2850if(A_ThisHotkey == "XButton1" && bDeactivated != 1) {
2851if(InStr(uBind_Bind_M_1, "~")){
2852CmdArray := StrSplit(uBind_Bind_M_1, "~")
2853Loop % CmdArray.MaxIndex()
2854{
2855this_cmd := CmdArray[A_Index]
2856SendChat("" . this_cmd . "")
2857}
2858}
2859else {
2860SendChat(uBind_Bind_M_1)
2861}
2862return
2863}
2864if(A_ThisHotkey == "XButton2" && bDeactivated != 1) {
2865if(InStr(uBind_Bind_M_2, "~")){
2866CmdArray := StrSplit(uBind_Bind_M_2, "~")
2867Loop % CmdArray.MaxIndex()
2868{
2869this_cmd := CmdArray[A_Index]
2870SendChat("" . this_cmd . "")
2871}
2872}
2873else {
2874SendChat(uBind_Bind_M_2)
2875}
2876return
2877}
2878if(A_ThisHotkey == uRepeat && StrLen(A_ThisHotkey) == StrLen(uRepeat) && bDeactivated != 1) {
2879SendInput, {t}{up}{enter}
2880return
2881}
2882if(A_ThisHotkey == uOldStats && StrLen(A_ThisHotkey) == StrLen(uOldStats) && bDeactivated != 1) {
2883SendChat("/oldstats")
2884return
2885}
2886if(A_ThisHotkey == uVS && StrLen(A_ThisHotkey) == StrLen(uVS) && bDeactivated != 1) {
2887if(VSAllowed != 1) {
2888_AddChatMessage("VS Bind noch nicht möglich!")
2889return
2890}
2891GetZoneName(zoneName, 50)
2892GetCityName(cityName, 50)
2893vehicleString:= ""
2894if(IsPlayerInAnyVehicle()) {
2895GetVehicleModelName(vehName, 50)
2896vehicleString:= vehName
2897}
2898else {
2899if(IsPlayerInInterior()) {
2900vehicleString:= "in einem Interior!"
2901}
2902else
2903{
2904vehicleString:= "zu Fuss!"
2905}
2906}
2907GetPlayerPosition(X,Y,Z)
2908SendChat("/f VS | In " zoneName " (" cityName ") - " vehicleString "")
2909SendChat("/f Ich habe " GetPlayerHealth() "HP und " GetPlayerArmor() " Armor!")
2910SendChat("/f VS COORDS = X: " X " | Y: " Y " | Z: " Z " |")
2911_AddChatMessage("Nächster VS wieder in 10 Sekunden möglich!")
2912VSAllowed := 0
2913SetTimer, TimerAllowVS, 10000
2914return
2915}
2916if(A_ThisHotkey == uBizFlag && StrLen(A_ThisHotkey) == StrLen(uBizFlag) && bDeactivated != 1) {
2917SendChat("/dropbizflag")
2918SendChat("/getbizflag")
2919SendChat("/getflagtime")
2920return
2921}
2922return
2923AutoFlag(){
2924SendChat("/getflagpos")
2925SetTimer, getflagposTimer, 11000
2926return
2927}
2928getflagposTimer:
2929SendChat("/getflagpos")
2930return
2931StartAutoFlag() {
2932{
2933return
2934}
2935if(autoFlag == 0) {
2936autoFlag := 1
2937_AddChatMessage("Auto-/Getflagpos {2E895A}aktiviert{CCC8CC}!")
2938AutoFlag()
2939}
2940else if(autoFlag == 1) {
2941autoFlag := 0
2942SetTimer, getflagposTimer, OFF
2943_AddChatMessage("Auto-/Getflagpos {AA2B2F}deaktiviert{CCC8CC}!")
2944}
2945}
2946if(blacklistBot == 0) {
2947blacklistBot := 1
2948_AddChatMessage("Blacklist-Bot {2E895A}aktiviert{CCC8CC}! Auf dem Desktop nicht möglich!")
2949}
2950else if(blacklistBot == 1) {
2951blacklistBot := 0
2952_AddChatMessage("Blacklist-Bot {AA2B2F}deaktiviert{CCC8CC}!")
2953}
2954doAutoDriveby() {
2955global
2956if(drivebyAlreadySet == 1 and IsPlayerInAnyVehicle() == 0 and IsPlayerPassenger() == 0){
2957drivebyAlreadySet:= 0
2958return
2959}
2960if(IsPlayerInAnyVehicle() == 1 and drivebyAlreadySet == 0) {
2961drivebyAlreadySet:= 1
2962if(IsPlayerPassenger() == 1 and IsPlayerInAnyVehicle() == 1) {
2963SendChat("/swapgun")
2964Sleep, 100
2965SendInput, {down 2}{enter}
2966Sleep, 100
2967if(GetPlayerWeaponID() != 31) {
2968SendChat("/swapgun")
2969Sleep, 100
2970SendInput, {down 3}{enter}
2971Sleep, 100
2972if(GetPlayerWeaponID() != 30) {
2973SendChat("/swapgun")
2974Sleep, 100
2975SendInput, {down 1}{enter}
2976}
2977}
2978}
2979return
2980}
2981return
2982}
2983doAutoEngine() {
2984global
2985if(engineAlreadySet and IsPlayerInAnyVehicle() == 0){
2986engineAlreadySet:= 0
2987return
2988}
2989if(IsPlayerDriver() and engineAlreadySet == 0 and IsVehicleEngineEnabled() == 0){
2990engineAlreadySet:= 1
2991Sleep, 100
2992SendChat("/cveh motor")
2993} else if(IsPlayerDriver() and engineAlreadySet == 0 and IsVehicleEngineEnabled() == 1)
2994engineAlreadySet:= 1
2995return
2996}
2997doAutoLicht() {
2998global
2999if(lichtAlreadySet and IsPlayerInAnyVehicle() == 0){
3000lichtAlreadySet:= 0
3001return
3002}
3003if(IsPlayerDriver() and lichtAlreadySet == 0 and IsVehicleLightEnabled() == 0 and (A_Hour >= 21 or A_Hour <= 6)){
3004lichtAlreadySet:= 1
3005Sleep, 100
3006SendChat("/cveh licht")
3007} else if(IsPlayerDriver() and lichtAlreadySet == 0 and IsVehicleLightEnabled() == 1)
3008lichtAlreadySet:= 1
3009return
3010}
3011checkNewDay() {
3012global
3013if(uYDAY == A_YDay)
3014return
3015{
3016AddChatMessage("Neuer Tag! Tagesstats werden zurückgesetzt.")
3017AddChatMessage("Heutige gemachte Extorts: " uDExtorts)
3018}
3019uYDAY:= A_YDay
3020uDKills := 0
3021uDDeaths := 0
3022uDExtorts := 0
3023IniWrite, %uYDAY%, %inipath%, Settings, YDay
3024IniWrite, %uDKills%, %inipath%, Kills, DKills
3025IniWrite, %uDDeaths%, %inipath%, Kills, DDeaths
3026IniWrite, %uDExtorts%, %inipath%, Kills, DExtorts
3027return
3028}
3029DeactivateBinds() {
3030if(bDeactivated == 1) {
3031_AddChatMessage("{FFFF00}AZZIMEMOKEYBINDER {2E895A}aktiviert{CCC8CC}!")
3032bDeactivated := 0
3033} else {
3034_AddChatMessage("{FFFF00}AZZIMEMOKEYBINDER {AA2B2F}deaktiviert{CCC8CC}!")
3035bDeactivated := 1
3036}
3037return
3038}
3039IsInGWFlag(X,Y,Z,radius) {
3040if(IsInRadius(X,Y,Z,-2490.3679,2369.6501,10.2813,radius)) {
3041ort := "SMarkt-Flagge im Bayside-Gebiet"
3042return true
3043}
3044else if(IsInRadius(X,Y,Z,-2579.7300,2264.3171,5.5619,radius)) {
3045ort := "Wiese-Flagge im Bayside-Gebiet"
3046return true
3047}
3048else if(IsInRadius(X,Y,Z,-2259.2061,2382.4707,5.0227, radius)) {
3049ort := "Paintball-Flagge im Bayside-Gebiet"
3050return true
3051}
3052else if(IsInRadius(X,Y,Z,-263.2356,2590.7039,63.5703, radius)) {
3053ort := "Terrasse-Flagge im Huhn-Gebiet"
3054return true
3055}
3056else if(IsInRadius(X,Y,Z,-237.0982,2662.5830,63.8585, radius)) {
3057ort := "Huhn-Flagge im Huhn-Gebiet"
3058return true
3059}
3060else if(IsInRadius(X,Y,Z,-230.2454,2824.5417,62.1937, radius)) {
3061ort := "Berg-Flagge im Huhn-Gebiet"
3062return true
3063}
3064else if(IsInRadius(X,Y,Z,-864.1779,1525.3925,26.6542, radius)) {
3065ort := "Kuh-Flagge im Kuh-Gebiet"
3066return true
3067}
3068else if(IsInRadius(X,Y,Z,-733.1836,1554.6132,39.7643, radius)) {
3069ort := "Ruine-Flagge im Kuh-Gebiet"
3070return true
3071}
3072else if(IsInRadius(X,Y,Z,-643.2058,1446.9220,13.6172, radius)) {
3073ort := "Campingplatz-Flagge im Kuh-Gebiet"
3074return true
3075}
3076else if(IsInRadius(X,Y,Z,-321.8430,1055.5389,19.7422, radius)) {
3077ort := "Krankenhaus-Flagge im Fortcarson-Gebiet"
3078return true
3079}
3080else if(IsInRadius(X,Y,Z,-70.7647,1222.7404,19.6880, radius)) {
3081ort := "Hotel-Flagge im Fortcarson-Gebiet"
3082return true
3083}
3084else if(IsInRadius(X,Y,Z,315.6821,1152.1350,8.5859, radius)) {
3085ort := "Holzhuette-Flagge im Fortcarson-Gebiet"
3086return true
3087}
3088else if(IsInRadius(X,Y,Z,2133.8442,1141.3020,13.5102, radius)) {
3089ort := "Burg-Flagge im LV-Gebiet"
3090return true
3091}
3092else if(IsInRadius(X,Y,Z,2323.7427,1283.1783,97.6047, radius)) {
3093ort := "Pyramide-Flagge im LV-Gebiet"
3094return true
3095}
3096else if(IsInRadius(X,Y,Z,2138.4287,1480.1246,10.8203, radius)) {
3097ort := "Casino-Flagge im LV-Gebiet"
3098return true
3099}
3100else if(IsInRadius(X,Y,Z,2456.6968,127.1735,27.6756, radius)) {
3101ort := "Blaues Haus-Flagge im OC-Gebiet"
3102return true
3103}
3104else if(IsInRadius(X,Y,Z,2330.7739,0.8624,26.5229, radius)) {
3105ort := "Laden-Flagge im OC-Gebiet"
3106return true
3107}
3108else if(IsInRadius(X,Y,Z,2194.8560,-46.1991,27.4412, radius)) {
3109ort := "Garage-Flagge im OC-Gebiet"
3110return true
3111}
3112else if(IsInRadius(X,Y,Z,2795.4041,-1087.3375,30.7188, radius)) {
3113ort := "Hotel-Flagge im Arena-Gebiet"
3114return true
3115}
3116else if(IsInRadius(X,Y,Z,2804.2883,-1429.9288,40.0530, radius)) {
3117ort := "Parkhaus-Flagge im Arena-Gebiet"
3118return true
3119}
3120else if(IsInRadius(X,Y,Z,2730.9094,-1828.5193,11.8438, radius)) {
3121ort := "Arena-Flagge im Arena-Gebiet"
3122return true
3123}
3124else if(IsInRadius(X,Y,Z,2231.7405,-2284.5322,14.3751, radius)) {
3125ort := "Schiene-Flagge im Docks-Gebiet"
3126return true
3127}
3128else if(IsInRadius(X,Y,Z,2415.2473,-2594.1487,17.9107, radius)) {
3129ort := "Container-Flagge im Docks-Gebiet"
3130return true
3131}
3132else if(IsInRadius(X,Y,Z,2838.4111,-2363.9128,31.0039, radius)) {
3133ort := "Schiff-Flagge im Docks-Gebiet"
3134return true
3135}
3136else if(IsInRadius(X,Y,Z,251.7768,-57.2444,1.5703, radius)) {
3137ort := "Laden-Flagge im Farm-Gebiet"
3138return true
3139}
3140else if(IsInRadius(X,Y,Z,-61.2535,48.2657,3.1103, radius)) {
3141ort := "Farm-Flagge im Farm-Gebiet"
3142return true
3143}
3144else if(IsInRadius(X,Y,Z,-50.2327,-231.5292,6.7646, radius)) {
3145ort := "Fleischberg-Flagge im Farm-Gebiet"
3146return true
3147}
3148else if(IsInRadius(X,Y,Z,-935.7202,-504.2500,25.9609, radius)) {
3149ort := "Campingplatz-Flagge im OAmt-Gebiet"
3150return true
3151}
3152else if(IsInRadius(X,Y,Z,-722.6229,-692.0251,104.6989, radius)) {
3153ort := "Berg-Flagge im OAmt-Gebiet"
3154return true
3155}
3156else if(IsInRadius(X,Y,Z,-557.6062,-503.7660,24.7387, radius)) {
3157ort := "OAmt-Flagge im OAmt-Gebiet"
3158return true
3159}
3160else if(IsInRadius(X,Y,Z,-2058.8579,-2541.6460,30.6250, radius)) {
3161ort := "Campingplatz-Flagge im AP-Gebiet"
3162return true
3163}
3164else if(IsInRadius(X,Y,Z,-2177.0242,-2414.7827,35.2969, radius)) {
3165ort := "Dach-Flagge im AP-Gebiet"
3166return true
3167}
3168else if(IsInRadius(X,Y,Z,-2222.8186,-2293.4226,31.6719, radius)) {
3169ort := "Gasse-Flagge im AP-Gebiet"
3170return true
3171}
3172else if(IsInRadius(X,Y,Z,-2463.9390,-104.2914,25.8566, radius)) {
3173ort := "Garage-Flagge im SF-Gebiet"
3174return true
3175}
3176else if(IsInRadius(X,Y,Z,-2730.9011,75.4078,4.3359, radius)) {
3177ort := "Gasse-Flagge im SF-Gebiet"
3178return true
3179}
3180else if(IsInRadius(X,Y,Z,-2441.8660,522.9274,34.1690, radius)) {
3181ort := "Knast-Flagge im SF-Gebiet"
3182return true
3183}
3184return false
3185}
3186IsInExtort(X,Y,Z,radius) {
3187if(IsInRadius(X,Y,Z,-1843.9811,1332.8044,7.1797,radius))
3188return true
3189else if(IsInRadius(X,Y,Z,-1744.8770,1308.5565,7.1875,radius))
3190return true
3191else if(IsInRadius(X,Y,Z,-1808.4773,945.8027,24.8906,radius))
3192return true
3193else if(IsInRadius(X,Y,Z,-2373.8965,910.2366,45.4431,radius))
3194return true
3195else if(IsInRadius(X,Y,Z,-2717.6794,200.2498,4.3359,radius))
3196return true
3197else if(IsInRadius(X,Y,Z,-2202.2029,330.0013,35.3203,radius))
3198return true
3199else if(IsInRadius(X,Y,Z,-2490.6685,29.3647,25.6172,radius))
3200return true
3201else if(IsInRadius(X,Y,Z,-2491.3479,-90.5858,25.6172,radius))
3202return true
3203else if(IsInRadius(X,Y,Z,-2269.9431,-156.0150,35.3203,radius))
3204return true
3205else if(IsInRadius(X,Y,Z,-2240.5623,20.9777,35.3203,radius))
3206return true
3207else if(IsInRadius(X,Y,Z,-2016.8395,-37.5498,35.2947,radius))
3208return true
3209else if(IsInRadius(X,Y,Z,-2178.0093,-2400.3606,30.6250,radius))
3210return true
3211else if(IsInRadius(X,Y,Z,-2130.9263,-2435.2502,30.6250,radius))
3212return true
3213else if(IsInRadius(X,Y,Z,-2057.5251,-2464.8027,31.1797,radius))
3214return true
3215else if(IsInRadius(X,Y,Z,-2131.8943,-2344.7639,30.6250,radius))
3216return true
3217else if(IsInRadius(X,Y,Z,242.5956,-178.4280,1.5781,radius))
3218return true
3219else if(IsInRadius(X,Y,Z,203.3415,-202.2036,1.5781,radius))
3220return true
3221else if(IsInRadius(X,Y,Z,172.0978,-152.5143,1.5750,radius))
3222return true
3223else if(IsInRadius(X,Y,Z,207.8845,-62.2196,1.8075,radius))
3224return true
3225else if(IsInRadius(X,Y,Z,648.7990,-519.2838,16.5537,radius))
3226return true
3227else if(IsInRadius(X,Y,Z,701.6135,-518.4785,16.3245,radius))
3228return true
3229else if(IsInRadius(X,Y,Z,1289.0641,270.9784,19.5547,radius))
3230return true
3231else if(IsInRadius(X,Y,Z,1367.5488,248.2474,19.5669,radius))
3232return true
3233else if(IsInRadius(X,Y,Z,1244.7133,205.3388,19.6454,radius))
3234return true
3235else if(IsInRadius(X,Y,Z,2305.5378,82.8213,26.4787,radius))
3236return true
3237else if(IsInRadius(X,Y,Z,2332.9546,-17.6245,26.4844,radius))
3238return true
3239else if(IsInRadius(X,Y,Z,2318.6924,-88.6581,26.4844, radius))
3240return true
3241else if(IsInRadius(X,Y,Z,-828.1722,1503.9691,19.8257,radius))
3242return true
3243else if(IsInRadius(X,Y,Z,-857.6464,1535.6287,22.5870,radius))
3244return true
3245else if(IsInRadius(X,Y,Z,-844.6737,2746.1760,46.1409,radius))
3246return true
3247else if(IsInRadius(X,Y,Z,-179.5096,1133.1511,19.7422,radius))
3248return true
3249else if(IsInRadius(X,Y,Z,-99.1606,1083.2269,19.7500,radius))
3250return true
3251else if(IsInRadius(X,Y,Z,-206.7140,1212.2136,19.8906,radius))
3252return true
3253else if(IsInRadius(X,Y,Z,-187.5148,1210.7122,19.7035,radius))
3254return true
3255else if(IsInRadius(X,Y,Z,-19.0548,1175.3121,19.5634,radius))
3256return true
3257else if(IsInRadius(X,Y,Z,-89.4484,1378.2261,10.4698,radius))
3258return true
3259else if(IsInRadius(X,Y,Z,2838.9851,2407.4551,11.0690,radius))
3260return true
3261else if(IsInRadius(X,Y,Z,2368.7612,1983.9478,10.8203,radius))
3262return true
3263else if(IsInRadius(X,Y,Z,2330.7385,2165.9197,10.8281,radius))
3264return true
3265else if(IsInRadius(X,Y,Z,2652.0244,-1098.6127,69.3919,radius))
3266return true
3267else if(IsInRadius(X,Y,Z,2713.2158,-1121.0210,69.5781,radius))
3268return true
3269else if(IsInRadius(X,Y,Z,2352.8992,-1463.5710,24.0000,radius))
3270return true
3271else if(IsInRadius(X,Y,Z,2139.4419,-1176.9537,23.9922,radius))
3272return true
3273else if(IsInRadius(X,Y,Z,2112.5581,-1211.4550,23.9629,radius))
3274return true
3275else if(IsInRadius(X,Y,Z,2081.5244,-1202.4111,23.9159,radius))
3276return true
3277else if(IsInRadius(X,Y,Z,2095.9832,-1211.5804,23.9630,radius))
3278return true
3279else if(IsInRadius(X,Y,Z,1940.0159,-2115.9929,13.6953,radius))
3280return true
3281else if(IsInRadius(X,Y,Z,1634.4753,-1582.6393,13.6546,radius))
3282return true
3283else if(IsInRadius(X,Y,Z,1667.6265,-1558.6981,13.5469,radius))
3284return true
3285else if(IsInRadius(X,Y,Z,1673.6007,-1170.7894,23.9630,radius))
3286return true
3287else if(IsInRadius(X,Y,Z,1087.5767,-922.4806,43.3906,radius))
3288return true
3289else if(IsInRadius(X,Y,Z,1044.1973,-1308.8802,13.5469,radius))
3290return true
3291else if(IsInRadius(X,Y,Z,953.9196,-1336.5891,13.5389,radius))
3292return true
3293else if(IsInRadius(X,Y,Z,893.1490,-1336.0835,13.5469,radius))
3294return true
3295else if(IsInRadius(X,Y,Z,841.0768,-1596.5920,13.5469,radius))
3296return true
3297else if(IsInRadius(X,Y,Z,1070.8221,-1878.9407,13.5469,radius))
3298return true
3299else if(IsInRadius(X,Y,Z,530.1711,-1759.4138,14.2828,radius))
3300return true
3301else if(IsInRadius(X,Y,Z,387.8803,-1897.2461,7.8359,radius))
3302return true
3303else if(IsInRadius(X,Y,Z,503.7365,-1406.6166,16.1600,radius))
3304return true
3305else if(IsInRadius(X,Y,Z,499.7581,-1360.5693,16.3578,radius))
3306return true
3307else if(IsInRadius(X,Y,Z,1833.6035,-1842.4969,13.5781,radius))
3308return true
3309return false
3310}
3311CheckURL(Url){
3312h := DllCall("wininet\InternetOpen", "str", a, "uint", 1, "ptr", 0, "ptr", 0, "uint", 0, "ptr")
3313return DllCall("wininet\InternetOpenUrl", "ptr", h, "str", url, "ptr", 0, "uint", 0, "uint", 0x80003000, "ptr", 0, "ptr")
3314}
3315UpdateEisdiele(Anzahl) {
3316FormatTime, ZeitZeichenkette,, dd.MM.yy HH:mm:ss
3317msgtext := "In der Eisdiele befinden sich " Anzahl "/3600 Pillen! Stand: " ZeitZeichenkette ""
3318_AddChatMessage(msgtext)
3319return
3320}
3321IsInRadius(fromX,fromY,fromZ,toX,toY,toZ,radius) {
3322X := fromX -toX
3323Y := fromY -toY
3324Z := fromZ -toZ
3325if(((X < radius) && (X > -radius)) && ((Y < radius) && (Y > -radius)) && ((Z < radius) && (Z > -radius)))
3326return true
3327return false
3328}
3329CalcActiveMap(X=0, Y=0, Size=0) {
3330if(X) {
3331output := 0+(1024/2) + (X/6000*1024)
3332if(Size)
3333output -= Size/3
3334} else if(Y) {
3335Y := Y * (-1)
3336output := 0+(1024/2) + (Y/6000*1024)
3337if(Size)
3338output -= Size/3
3339}
3340return output
3341}
3342CalcScreenPos(X=0, Y=0) {
3343if(X) {
3344output := X/A_ScreenWidth*800
3345} else if(Y){
3346output := Y/A_ScreenHeight*600
3347}
3348return output
3349}
3350IsPlayerIngame(Player, ByRef name) {
3351name := "-1"
3352id := "-1"
3353SendChat("/id " Player)
3354Sleep, 200
3355GetChatLine(0, Chat)
3356if(RegExMatch(Chat, "ID: \((\d*)\) (.*) Level:") != 0)
3357{
3358RegExMatch(Chat, "ID: \((\d*)\) (.*) Level:", var)
3359name := var2
3360}
3361if(name == "-1") {
3362name := false
3363}
3364return
3365}
3366GetPlayerNumber(Player, ByRef nummer, ByRef name) {
3367nummer := "-1"
3368name := "-1"
3369SendChat("/nummer " Player)
3370Sleep, 200
3371GetChatLine(0, Chat)
3372if(RegExMatch(Chat, "Name: (.*), Ph: (\d*)") != 0)
3373{
3374RegExMatch(Chat, "Name: (.*), Ph: (\d*)", var)
3375name := varl
3376nummer := var2
3377}
3378if(nummer == "-1")
3379nummer:= false
3380if(name == "-1")
3381name := false
3382}
3383return