Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #SingleInstance force
- #IfWinActive, GTA:SA:MP
- #UseHook
- FileInstall, API.dll, API.dll, 0
- FileAppend,,killzaehler.Ini
- IniRead, Kills, Killzaehler.ini, Killzähler, Kills, 0
- IniRead, API_benutzen, Killzaehler.ini, Killzähler, API benutzen?, 1
- If(API_benutzen == 1)
- {
- #include API.ahk
- }
- else if(API_Benutzen == 0)
- {
- Gosub, GUI
- ~+T::
- ~t::
- Label_T:
- Suspend, On
- Hotkey, Enter, On
- Hotkey, NumPadEnter, On
- Hotkey, Escape, On
- Hotkey, t, Off
- Hotkey, +T, Off
- return
- ~NumpadEnter::
- ~Enter::
- ~Escape::
- Label_Enter:
- Suspend, Permit
- Suspend, Off
- Hotkey, t, On
- Hotkey, +T, On
- Hotkey, Enter, Off
- Hotkey, NumPadEnter, Off
- Hotkey, Escape, Off
- }
- GUI:
- Gui, Font, s10, Arial
- Gui, Add, Text, x20 y20, Killzähler by Lewis.Crisp
- Gui, Add, Text, x20 y40, API benutzen?
- Gui, Add, Checkbox, x25 y60 vAPI_benutzen checked%API_benutzen%,
- Gui, Add, Button, x20 y80 gSpeichern, Speichern
- Gui, Show, w200 h200, Killzähler
- return
- Speichern:
- Gui, Submit, NoHide
- IniWrite, %API_benutzen%, Killzaehler.ini, Killzähler, API benutzen?
- MsgBox, 48, Warnung, Der Killzähler wird in 10 Sekunden neu gestartet., 10
- Run, %A_ScriptFullPath%
- return
- GuiClose:
- ExitApp
- ~Numpad7::
- Suspend, Permit
- IniRead, Kills, Einstellungen\Einstellungen.ini, Killzähler, Kills, %A_Space%
- Kills++
- if(API_benutzen == 1)
- {
- if (IsChatOpen() == 1 || IsDialogOpen() == 1)
- return
- SendChat("/f |->GanGwArkiLL Nr. " . Kills . " <-|")
- }
- else if(API_benutzen == 0)
- SendInput, t/f |->GanGwArkiLL Nr. %Kills% <-|
- IniWrite, %Kills%, Killzaehler.ini, Killzähler, Kills
- return
Advertisement
Add Comment
Please, Sign In to add comment