View difference between Paste ID: <a href="/xw94unH7">xw94unH7</a> and <a href="/1W791Qzj">1W791Qzj</a>

#IfWinActive GTA:SA:MP
1		#IfWinActive GTA:SA:MP
2		#SingleInstance force
3		#NoEnv
4		;lädt API.dll automatisch, wenn Sie nicht vorhanden ist:
5		FileGetSize, OutputVar, API.dll
6		If (OutputVar == "")
7		URLDownloadToFile, http://samp-api.net/downloads/current_api/API.dll, API.dll
8		#include API.ahk
9		SetTimer, readChat, 100
10		SetTimer, Box, 900
11		SetTimer, Ping, 900
12		SetTimer, Zone, 900
13		SetTimer, ID, 900
14		SetTimer, Level, 900
15		; TIMER ;
16		getplayerdata()
17		box_Overlay := -1
18		Ping_Overlay := -1
19		Zone_Overlay := -1
20		ID_Overlay := -1
21		Level_Overlay:= -1
22
23		x := GetScreenSizeX()
24	-	If ( x > 560) Textgröße = 12
24	+	If ( x > 560)
25	-	If (x > 1024) Textgröße = 14
25	+	Textgröße = 12
26		If (x > 1024)
27		Textgröße = 14
28		FileRead,playername,name.txt
29		FileDelete,name.txt
30		Fileappend,%playername%,name.txt
31		FileRead,dmunition,2deagle_munition.txt
32		FileRead,amunition,2ak_munition.txt
33		FileRead,smunition,2shotgun_munition.txt
34		FileRead,mmunition,2m4_munition.txt
35		FileDelete,2deagle_munition.txt
36		FileDelete,2ak_munition.txt
37		FileDelete,2m4_munition.txt
38		FileDelete,2shotgun_munition.txt
39		If (dmunition == "")
40		dmunition := 293
41		If (amunition == "")
42		amunition := 470
43		If (mmunition == "")
44		mmunition := 470
45		If (smunition == "")
46		smunition := 199
47		Fileappend,%dmunition%,2deagle_munition.txt
48		Fileappend,%amunition%,2ak_munition.txt
49		Fileappend,%mmunition%,2m4_munition.txt
50		Fileappend,%smunition%,2shotgun_munition.txt
51
52		RegisterTextBind("/gate", 1285.747070,-2054.785889,58.713394, 6, 1, 6000)
53		RegisterTextBind("/loadweapons 5",219.7454,7.5686,2.6884, 10.5, 1, 10000)
54		RegisterTextBind("/unloadweapons", 1119.6101,-1173.0078,22.6565, 10.5, 1, 30000)
55		RegisterTextBind("/zoll", 57.5687,-1538.6981,5.0971, 6, 1, 6000)
56		RegisterTextBind("/zoll", 1739.4640,510.8497,28.5648, 6, 1, 6000)
57		RegisterTextBind("/zoll", 1748.4053,507.3607,28.5840, 6, 1, 6000)
58		RegisterTextBind("/zoll", 1733.5543,521.0560,28.1247, 6, 1, 6000)
59		RegisterTextBind("/zoll", 1724.6410,524.2784,28.1106, 6, 1, 6000)
60		RegisterTextBind("/zoll", 66.7720,-1527.6808,4.8815, 6, 1, 6000)
61
62		~1::
63		If (IsChatOpen() == 1 \|\| IsDialogOpen() == 1 \|\| IsMenuOpen() == 1)
64		return
65		if(IsPlayerInRangeOfPoint2D(295.6162,-39.9934, 15))
66		{
67		AddChatMessage(0xffffff, "Es wird eine Deagle mit " dmunition " Munition erworben.")
68		Send {Enter}
69		sleep, 50
70		Send, {f down}
71		sleep, 50
72		Send, {f up}
73		i := 0
74		While (IsDialogOpen() == 0)
75		{
76		sleep, 100
77		i+= 1
78		If (i == 10)
79		{
80		Send, {f down}
81		sleep, 50
82		Send, {f up}
83
84		}
85		If (i == 20)
86		{
87		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0301) - " i)
88		return
89		}
90		}
91		Send, {Down} {Enter}
92		i := 0
93		While (IsDialogOpen() == 0)
94		{
95		sleep, 100
96		i+= 1
97		If (i == 10)
98		{
99		Send, {Down} {Enter}
100
101		}
102		If (i == 20)
103		{
104		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0302) - " i)
105		return
106		}
107		}
108		Send, {Enter}
109		i := 0
110		While (IsDialogOpen() == 0)
111		{
112		sleep, 100
113		i+= 1
114		If (i == 10)
115		{
116		Send, {Enter}
117
118		}
119		If (i == 20)
120		{
121		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0303) - " i)
122		return
123		}
124		}
125		Send, {Pgdn}
126
127		i := 0
128		While (IsDialogOpen() == 0)
129		{
130		sleep, 200
131		i+= 1
132		If (i == 10)
133		{
134		Send, {Pgdn}
135
136		AddChatMessage(0xffffff, "Dialog-Handling wurde wiederholt (e0304) - " i)
137		}
138		If (i == 20)
139		{
140		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0304) - " i)
141		return
142		}
143		}
144		Send, {Enter}
145		i := 0
146		sleep, 200
147		Send, {f down}
148		sleep, 50
149		Send, {f up}
150		i := 0
151		While (IsDialogOpen() == 0)
152		{
153		sleep, 100
154		i+= 1
155		If (i == 10)
156		{
157		Send, {f down}
158		sleep, 50
159		Send, {f up}
160
161		}
162		If (i == 20)
163		{
164		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0306) - " i)
165		return
166		}
167		}
168		Send, {Down}{Down}{Enter}
169		i := 0
170		While (IsDialogOpen() == 0)
171		{
172		sleep, 100
173		i+= 1
174		If (i == 10)
175		{
176		Send, {Down}{Down}{Enter}
177
178		}
179		If (i == 20)
180		{
181		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0307) - " i)
182		return
183		}
184		}
185		Send, {Enter}
186		i := 0
187		While (IsDialogOpen() == 0)
188		{
189		sleep, 100
190		i+= 1
191		If (i == 10)
192		{
193		Send, {Enter}
194
195		}
196		If (i == 20)
197		{
198		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0308) - " i)
199		return
200		}
201		}
202		Send, {pgdn}{enter}
203		i := 0
204		While (IsDialogOpen() == 0)
205		{
206		sleep, 100
207		i+= 1
208		If (i == 10)
209		{
210		Send, {pgdn}{enter}
211		}
212		If (i == 20)
213		{
214		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0309) - " i)
215		return
216		}
217		}
218		Send, %dmunition%{enter}
219		return
220		}
221		return
222
223		~2::
224		If (IsChatOpen() == 1 \|\| IsDialogOpen() == 1 \|\| IsMenuOpen() == 1 )
225		return
226		if(IsPlayerInRangeOfPoint2D(295.6162,-39.9934, 15))
227		{
228		AddChatMessage(0xffffff, "Es wird eine Schutzweste erworben.")
229		Send, {f down}
230		sleep, 50
231		Send, {f up}
232		i := 0
233		While (IsDialogOpen() == 0)
234		{
235		sleep, 100
236		i+= 1
237		If (i == 20)
238		{
239		AddChatMessage(0xffffff, "Dialog-Timeout, Weste wurde nicht erworben. (e0301) - " i)
240		return
241		}
242		}
243		If (IsDialogOpen() == 0)
244		return
245		Send, {Pgdn}{Enter}
246		i := 0
247		While (IsDialogOpen() == 0)
248		{
249		sleep, 100
250		i+= 1
251		If (i == 20)
252		{
253		AddChatMessage(0xffffff, "Dialog-Timeout, Weste wurde nicht erworben. (e0302) - " i)
254		return
255		}
256		}
257		Send, {Pgdn}{Enter}
258		If (next == 2)
259		{
260		next := 0
261		}
262		return
263		}
264		return
265
266
267		~3::
268		If (IsChatOpen() == 1 \|\| IsDialogOpen() == 1 \|\| IsMenuOpen() == 1 )
269		return
270		if(IsPlayerInRangeOfPoint2D(295.6162,-39.9934, 15))
271		{
272		AddChatMessage(0xffffff, "Es wird eine AK mit " amunition " Munition erworben.")
273		Send, {f down}
274		sleep, 50
275		Send, {f up}
276		While (IsDialogOpen() == 0)
277		{
278		sleep, 100
279		i+= 1
280		If (i == 20)
281		{
282		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0301) - " i)
283		return
284		}
285		}
286		Send, {Down}{Enter}
287		i := 0
288		While (IsDialogOpen() == 0)
289		{
290		sleep, 100
291		i+= 1
292		If (i == 20)
293		{
294		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0302) - " i)
295		return
296		}
297		}
298		Send, {down}{down}{enter}
299
300		i := 0
301		While (IsDialogOpen() == 0)
302		{
303		sleep, 100
304		i+= 1
305		If (i == 20)
306		{
307		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0303) - " i)
308		return
309		}
310		}
311		Send, {Enter}
312		sleep, 100
313		Send, {f down}
314		sleep, 100
315		Send, {f up}
316		i := 0
317		While (IsDialogOpen() == 0)
318		{
319		sleep, 100
320		i+= 1
321		If (i == 20)
322		{
323		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0304) - " i)
324		return
325		}
326		}
327		If (IsDialogOpen() == 0)
328		sleep, 150
329		Send, {Down}{Down}{Enter}
330		i := 0
331		While (IsDialogOpen() == 0)
332		{
333		sleep, 100
334		i+= 1
335		If (i == 20)
336		{
337		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0305) - " i)
338		return
339		}
340		}
341		Send, {Down}{Down}{Enter}
342		i := 0
343		While (IsDialogOpen() == 0)
344		{
345		sleep, 100
346		i+= 1
347		If (i == 20)
348		{
349		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0306) - " i)
350		return
351		}
352		}
353		Send, {Enter}
354		i := 0
355		While (IsDialogOpen() == 0)
356		{
357		sleep, 100
358		i+= 1
359		If (i == 20)
360		{
361		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0307) - " i)
362		return
363		}
364		}
365		Send, %amunition%{Enter}
366
367
368		Return
369		}
370		return
371
372		~4::
373		If (IsChatOpen() == 1 \|\| IsDialogOpen() == 1 \|\| IsMenuOpen() == 1 )
374		return
375		if(IsPlayerInRangeOfPoint2D(295.6162,-39.9934, 15))
376		{
377		AddChatMessage(0xffffff, "Es wird eine M4 mit " mmunition " Munition erworben.")
378		Send, {f down}
379		sleep, 50
380		Send, {f up}
381		While (IsDialogOpen() == 0)
382		{
383		sleep, 100
384		i+= 1
385		If (i == 20)
386		{
387		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0301) - " i)
388		return
389		}
390		}
391		Send, {Down}{Enter}
392		i := 0
393		While (IsDialogOpen() == 0)
394		{
395		sleep, 100
396		i+= 1
397		If (i == 20)
398		{
399		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0302) - " i)
400		return
401		}
402		}
403		Send, {down}{down}{enter}
404
405		i := 0
406		While (IsDialogOpen() == 0)
407		{
408		sleep, 100
409		i+= 1
410		If (i == 20)
411		{
412		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0303) - " i)
413		return
414		}
415		}
416		Send, {down}{Enter}
417		sleep, 100
418		Send, {f down}
419		sleep, 100
420		Send, {f up}
421		i := 0
422		While (IsDialogOpen() == 0)
423		{
424		sleep, 100
425		i+= 1
426		If (i == 20)
427		{
428		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0304) - " i)
429		return
430		}
431		}
432		If (IsDialogOpen() == 0)
433		sleep, 150
434		Send, {Down}{Down}{Enter}
435		i := 0
436		While (IsDialogOpen() == 0)
437		{
438		sleep, 100
439		i+= 1
440		If (i == 20)
441		{
442		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0305) - " i)
443		return
444		}
445		}
446		Send, {Down}{Down}{Enter}
447		i := 0
448		While (IsDialogOpen() == 0)
449		{
450		sleep, 100
451		i+= 1
452		If (i == 20)
453		{
454		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0306) - " i)
455		return
456		}
457		}
458		Send, {down}{Enter}
459		i := 0
460		While (IsDialogOpen() == 0)
461		{
462		sleep, 100
463		i+= 1
464		If (i == 20)
465		{
466		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0307) - " i)
467		return
468		}
469		}
470		Send, %mmunition%{Enter}
471
472
473		Return
474		}
475		return
476
477		~5::
478		If (IsChatOpen() == 1 \|\| IsDialogOpen() == 1 \|\| IsMenuOpen() == 1 )
479		return
480		if(IsPlayerInRangeOfPoint2D(295.6162,-39.9934, 15) && speecing < 1)
481		{
482		AddChatMessage(0xffffff, "Es wird eine Shotgun mit " smunition " Munition erworben.")
483		Send, {f down}
484		sleep, 50
485		Send, {f up}
486		While (IsDialogOpen() == 0)
487		{
488		sleep, 100
489		i+= 1
490		If (i == 20)
491		{
492		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0301) - " i)
493		return
494		}
495		}
496		Send, {Down}{Enter}
497		i := 0
498		While (IsDialogOpen() == 0)
499		{
500		sleep, 100
501		i+= 1
502		If (i == 20)
503		{
504		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0302) - " i)
505		return
506		}
507		}
508		Send, {down}{down}{down}{enter}
509
510		i := 0
511		While (IsDialogOpen() == 0)
512		{
513		sleep, 100
514		i+= 1
515		If (i == 20)
516		{
517		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0303) - " i)
518		return
519		}
520		}
521		Send, {Enter}
522		sleep, 100
523		Send, {f down}
524		sleep, 100
525		Send, {f up}
526		i := 0
527		While (IsDialogOpen() == 0)
528		{
529		sleep, 100
530		i+= 1
531		If (i == 20)
532		{
533		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0304) - " i)
534		return
535		}
536		}
537		If (IsDialogOpen() == 0)
538		sleep, 150
539		Send, {Down}{Down}{Enter}
540		i := 0
541		While (IsDialogOpen() == 0)
542		{
543		sleep, 100
544		i+= 1
545		If (i == 20)
546		{
547		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0305) - " i)
548		return
549		}
550		}
551		Send, {Down}{Down}{down}{Enter}
552		i := 0
553		While (IsDialogOpen() == 0)
554		{
555		sleep, 100
556		i+= 1
557		If (i == 20)
558		{
559		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0306) - " i)
560		return
561		}
562		}
563		Send, {Enter}
564		i := 0
565		While (IsDialogOpen() == 0)
566		{
567		sleep, 100
568		i+= 1
569		If (i == 20)
570		{
571		AddChatMessage(0xffffff, "Dialog-Timeout, Waffe wurde nicht erworben. (e0307) - " i)
572		return
573		}
574		}
575		Send, %smunition%{Enter}
576
577		Return
578
579
580		}
581		return
582
583		:*?:/keybinderhilfe::
584		Suspend, Permit
585		Send {enter}
586		ShowDialog(0, "Keybinderhilfe", "°~ Keybinder Hilfe ~°`n***********************`n{FF0000}Waffen kaufen:{FFFFFF} `n \| 1 Für eine Deagle mit 293 Schuss \|`n \| 2 Für eine volle Schutzweste \|`n \| 3 Für eine AK47 mit 470 Schuss \|`n \| 4 Für eine M4 mit 470 Schuss \|`n \| 5 Für eine Shotgun mit 199 Schuss \|`n `n {00FF00}[Keybinder aus / ein [F12]{FFFFFF}`n `n {FF0000}Keybinds:{FFFFFF} `n \| Alt + 1 = /takeflag \|`n \| Alt + 2 = /gangwar \|`n \| Alt + 3 = /faction \|`n \| Alt + 4 = .. \|`n `n ", "OK")
587		Suspend, Off
588		Suspend, Off
589		return
590
591		; KEYBINDS \| Anfang ;
592
593		!4::
594		if(IsChatOpen() == 1\|\| IsDialogOpen() == 1)
595		return
596		SendChat("/smoke")
597		return
598
599		~NumpadAdd::
600		if(IsChatOpen() == 1\|\| IsDialogOpen() == 1)
601		return
602		SendInput t/pickup{enter}
603		SendInput tHallo sie sprechen mit %playername% \| Triaden \| Rank 7 \|{enter}
604		SendInput tWas kann ich für sie tun?{enter}
605		return
606
607		!3::
608		if(IsChatOpen() == 1\|\| IsDialogOpen() == 1)
609		return
610		SendInput t/faction{enter}
611		return
612
613		!2::
614		if(IsChatOpen() == 1\|\| IsDialogOpen() == 1)
615		return
616		SendInput t/gangwar{enter}
617		return
618
619		!1::
620		if(IsChatOpen() == 1\|\| IsDialogOpen() == 1)
621		return
622		SendInput t/takeflag{enter}
623		return
624
625		; KEYBINDS \| Ende ;
626
627
628		; Gangwar Killzähler \| Anfang ;
629
630		readChat:
631		Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
632		{
633		If (CHATLOG_zeile >= A_Index)
634		Continue
635		CHATLOG_zeile := A_Index
636		If (InStr(A_LoopReadLine, "tötet seinen Feind") && InStr(A_LoopReadLine,"Triaden"))
637		{
638		RegExMatch(A_LoopReadLine, "\[([0-9:]*)\]" ,var)
639		FormatTime,timenow,,HHmmss
640		logtime := RegExReplace(var1, ":", "")
641		result := timenow - logtime
642		If (result > 30)
643		continue
644		RegExMatch(A_LoopReadLine, "R\] (.*) tötet seinen Feind" ,var)
645		IniRead,playerkills,kill-death-flag.ini,kills,%var1%
646		if (playerkills == ERROR)
647		playerkills = 0
648		playerkills +=1
649		IniWrite,%playerkills%,kill-death-flag.ini,kills,%var1%
650		AddChatMessage(0xff00ff, "{00FF00}Das war der " playerkills ". Kill von {FFFFFF}" var1 "{00FF00}.{FFFFFF}")
651		If (var1 = playername)
652		SoundPlay, ring.mp3
653		return
654		}
655		If (InStr(A_LoopReadLine, "Es wurde ein Gangwar ") && InStr(A_LoopReadLine,"Triaden"))
656		FileDelete, kill-death-flag.ini
657		}
658
659		; Gangwar Killzähler \| Ende ;
660		Box:
661		{
662		If(WinActive("GTA:SA:MP"))
663		{
664		If(box_Overlay == -1)
665		{
666		box_Overlay := BoxCreate()
667		BoxSetPos(box_Overlay, 621, 211)
668		BoxSetBorder(id, 2)
669		BoxSetHeight(id, 90)
670		BoxSetWidth(id, 150)
671		BoxSetBorderColor(id, 0xFFFFFFFFCC)
672		BoxSetColor(id, 0xFFFF000000)
673		BoxShow(box_Overlay)
674		}
675		}
676		return
677		}
678		return
679
680		Ping:
681		{
682		If(WinActive("GTA:SA:MP"))
683		{
684		If(Ping_Overlay == -1)
685		{
686		Ping_Overlay := TextCreate("Calibri", Schriftgröße, true, false)
687		TextSetPos(Ping_Overlay, 623, 288)
688		TextSetColor(Ping_Overlay, 0xFFFFFFFF)
689		Textshow(Ping_Overlay)
690		}
691		TextSetString(Ping_Overlay, "Ping: " GetPlayerPing() " \| " )
692		}
693		return
694		}
695		return
696
697		Zone:
698		{
699		If(WinActive("GTA:SA:MP"))
700		{
701		If(Zone_Overlay == -1)
702		{
703		Zone_Overlay := TextCreate("Calibri", Schriftgröße, true, false)
704		TextSetPos(Zone_Overlay, 620, 250)
705		TextSetColor(Zone_Overlay, 0xFFFFFFFF)
706		Textshow(Zone_Overlay)
707		}
708		GetZoneName(MyZone)
709		TextSetString(Zone_Overlay, " Zone: " MyZone " \| " )
710		}
711		return
712		}
713		return
714
715		ID:
716		{
717		If(WinActive("GTA:SA:MP"))
718		{
719		If(ID_Overlay == -1)
720		{
721		ID_Overlay := TextCreate("Calibri", Schriftgröße, true, false)
722		TextSetPos(ID_Overlay, 623, 210)
723		TextSetColor(ID_Overlay, 0xFFFFFFFF)
724		Textshow(ID_Overlay)
725		}
726		TextSetString(ID_Overlay, "ID: " GetPlayerID() " \| ")
727		}
728		return
729		}
730		return
731
732		Level:
733		{
734		If(WinActive("GTA:SA:MP"))
735		{
736		If(Level_Overlay == -1)
737		{
738		Level_Overlay := TextCreate("Calibri", Schriftgröße, true, false)
739		TextSetPos(Level_Overlay, 660, 210)
740		TextSetColor(Level_Overlay, 0xFFFFFFFF)
741		Textshow(Level_Overlay)
742		}
743		TextSetString(Level_Overlay, " Level: " GetPlayerScore() " \| ")
744		}
745		return
746		}
747		return
748
749
750
751
752
753		F12::Suspend
754		return
755		; Keybinder aus / ein ;