Guest User

Killzähler by Lewis.Crisp

a guest
Mar 17th, 2013
424
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance force
  2. #IfWinActive, GTA:SA:MP
  3. #UseHook
  4. FileInstall, API.dll, API.dll, 0
  5. FileAppend,,killzaehler.Ini
  6. IniRead, Kills, Killzaehler.ini, Killzähler, Kills, 0
  7. IniRead, API_benutzen, Killzaehler.ini, Killzähler, API benutzen?, 1
  8. If(API_benutzen == 1)
  9. {
  10. #include API.ahk
  11. }
  12.  
  13. else if(API_Benutzen == 0)
  14. {
  15.     Gosub, GUI
  16.     ~+T::
  17.     ~t::
  18.     Label_T:
  19.     Suspend, On
  20.     Hotkey, Enter, On
  21.     Hotkey, NumPadEnter, On
  22.     Hotkey, Escape, On
  23.     Hotkey, t, Off
  24.     Hotkey, +T, Off
  25.     return
  26.  
  27.  
  28.     ~NumpadEnter::
  29.     ~Enter::
  30.     ~Escape::
  31.     Label_Enter:
  32.     Suspend, Permit
  33.     Suspend, Off
  34.     Hotkey, t, On
  35.     Hotkey, +T, On
  36.     Hotkey, Enter, Off
  37.     Hotkey, NumPadEnter, Off
  38.     Hotkey, Escape, Off
  39. }
  40.  
  41. GUI:
  42. Gui, Font, s10, Arial
  43. Gui, Add, Text, x20 y20, Killzähler by Lewis.Crisp
  44. Gui, Add, Text, x20 y40, API benutzen?
  45. Gui, Add, Checkbox, x25 y60 vAPI_benutzen checked%API_benutzen%,
  46. Gui, Add, Button, x20 y80 gSpeichern, Speichern
  47. Gui, Show, w200 h200, Killzähler
  48. return
  49.  
  50. Speichern:
  51. Gui, Submit, NoHide
  52. IniWrite, %API_benutzen%, Killzaehler.ini, Killzähler, API benutzen?
  53. MsgBox, 48, Warnung, Der Killzähler wird in 10 Sekunden neu gestartet., 10
  54. Run, %A_ScriptFullPath%
  55. return
  56.  
  57. GuiClose:
  58. ExitApp
  59.  
  60. ~Numpad7::
  61. Suspend, Permit
  62. IniRead, Kills, Einstellungen\Einstellungen.ini, Killzähler, Kills, %A_Space%
  63. Kills++
  64. if(API_benutzen == 1)
  65. {
  66. if (IsChatOpen() == 1 || IsDialogOpen() == 1)
  67.     return
  68. SendChat("/f |->GanGwArkiLL Nr. " . Kills . " <-|")
  69. }
  70. else if(API_benutzen == 0)
  71.     SendInput, t/f |->GanGwArkiLL Nr. %Kills% <-|
  72. IniWrite, %Kills%, Killzaehler.ini, Killzähler, Kills
  73. return
Advertisement
Add Comment
Please, Sign In to add comment