API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 1st, 2018
159
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 12.24 KB | None | 0 0
raw download clone embed print report
  1. #include SAMP_API.ahk
  2.  
  3. #IfWinActive, GTA:SA:MP
  4. #UseHook
  5. #SingleInstance, force
  6.  
  7. global prefix = "{D3D3D3}[{FF0000}Ballas{D3D3D3}]{ffffff} "
  8. global detektiv = 0
  9. global KEKSBOT_STATE = 0
  10. global SpiceBot = 0
  11.  
  12. ; IniRead
  13. IniRead, PLAYER_KILLS, ballas.ini, Database, Kills
  14. IniRead, PLAYER_DEATHS, ballas.ini, Database, Tode
  15. IniRead, PLAYER_KDR, ballas.ini, Database, KDR
  16.  
  17. ; ############### Gui
  18. Gui, Show, h500 w800
  19.  
  20. ; ############### Variablen
  21. global deathCalled := 0
  22.  
  23. ; ############### Timer
  24. SetTimer, Killzaehler, 200
  25. SetTimer, KeksBot, 200
  26. SetTimer, SpiceBot, 200
  27. SetTimer, DetektivBot, 200
  28.  
  29. return
  30.  
  31.     GuiClose:
  32.         ExitApp
  33.     return
  34.    
  35.     DetektivBot:
  36.         if (detektiv == 1) {
  37.             IniRead, target, ballas.ini, InGame, Target
  38.             SendChat("/dfinden " target)
  39.             Sleep, 10000
  40.         } else if (detektiv == 2) {
  41.             IniRead, target, ballas.ini, InGame, Target
  42.             IniRead, helfer, ballas.ini, InGame, Helfer
  43.             SendChat("/dzeigen " helfer " " target)
  44.             Sleep, 10000
  45.         }
  46.     return
  47.  
  48.     KeksBot:
  49.         if (KEKSBOT_STATE == 1) {
  50.            
  51.             while(GetPlayerHealth() < 90) {
  52.                 i = 6
  53.                 while (i != 0) {
  54.                     if (KEKSBOT_STATE == 0) {
  55.                         return
  56.                     }
  57.                    
  58.                     if (GetPlayerHealth() > 90 || GetPlayerHealth() == 90) {
  59.                         AddChatMessage(prefix "Du hast zu viele HP um Kekse zu essen.")
  60.                         KEKSBOT_STATE = 0
  61.                         AddChatMessage(prefix "Keksbot wurde deaktiviert.")
  62.                         return
  63.                     }
  64.                     SendChat("/isskeks")
  65.                     Sleep, 100
  66.                     i--
  67.                 }
  68.                 Sleep, 7000
  69.             }
  70.            
  71.             if (GetPlayerHealth() > 90 || GetPlayerHealth() == 90) {
  72.                 AddChatMessage(prefix "Du hast zu viele HP um Kekse zu essen.")
  73.                 KEKSBOT_STATE = 0
  74.                 AddChatMessage(prefix "Keksbot wurde deaktiviert.")
  75.                 return
  76.             }
  77.            
  78.         }
  79.     return
  80.    
  81.     SpiceBot:
  82.         if (SpiceBot == 1) {
  83.            
  84.             if(GetPlayerArmor() < 71) {
  85.                 SendChat("/nimmspice")
  86.                 Sleep, 5000
  87.                 return
  88.             }
  89.            
  90.             if (GetPlayerArmor() > 90 || GetPlayerArmor() == 90) {
  91.                 AddChatMessage(prefix "Du hast zu viele AP um Spice zu nehmen.")
  92.                 KEKSBOT_STATE = 0
  93.                 AddChatMessage(prefix "SpiceBot wurde deaktiviert.")
  94.                 return
  95.             }
  96.            
  97.         }
  98.     return
  99.  
  100. Killzaehler:
  101.     GetChatLine(1, chat)
  102.     if(InStr(chat,"Du hast ein Verbrechen begangen! (Mord an einem Gangmitglied) Reporter: Polizeizentrale") || InStr(chat,"Du hast ein Verbrechen begangen! (Beamten/Zivilisten Mord) Reporter: Polizeizentrale") || InStr(line, "->GANGFIGHTKILL<- " gfkill " Gangfightkill an")){
  103.        
  104.         AddChatMessage(prefix "-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -")
  105.         Sleep 150
  106.         SendChat("/ic --- Ein Snack weniger in " GetPlayerZone() " " GetPlayerCity() "! --- HP: " getPlayerHealth() " AP: " getPlayerArmor())
  107.         SendChat("/fc --- Ein Snack weniger in " GetPlayerZone() " " GetPlayerCity() "! --- HP: " getPlayerHealth() " AP: " getPlayerArmor())
  108.         showGameText("~w~+ 1 Streetkill", 2500, 4)
  109.         Sleep 150
  110.         AddChatMessage(prefix "-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -")
  111.     }
  112.    
  113.     if(getPlayerHealth() > 0){
  114.     deathCalled := 0
  115.     }
  116.    
  117.     if(getPlayerHealth() == 0){
  118.         if(deathCalled== 1){
  119.             return
  120.         }
  121.         SendChat("/fc Ich habe nur noch " getPlayerHealth() "HP in " GetPlayerZone() " " GetPlayerCity() "!")
  122.         deathCalled := 1
  123.     }
  124. return
  125.  
  126. #if !IsInChat() && IsSAMPAvailable() && IsPlayerDriver()
  127. M::
  128.     if (IsPlayerDriver() ) {
  129.         SendChat("/motor")
  130.         SendChat("/licht")
  131.         if (GetVehicleModelId() == 521 || GetVehicleModelId() = 522) {
  132.             SendChat("/helm")
  133.         }
  134.     }
  135. return
  136.  
  137. #if IsInChat() && IsSAMPAvailable()
  138. :?:/kd::
  139.     ReadConfig()
  140.     ShowDialog(DIALOG_STYLE_TABLIST, "==> Player Stats", "Stats: `n Kills: " PLAYER_KILLS " `n Tode: " PLAYER_DEATHS " `n K/D: " PLAYER_KDR, "Schließen", dialogPlayerStats)    
  141. return
  142.  
  143. :?:/übf::
  144.     SendChat("/ic ÜBERFALL!")
  145. return
  146.  
  147. :?:/kdfc::
  148.     ReadConfig()
  149.     SendChat("/fc K/D: " PLAYER_KDR " | Kills: " PLAYER_KILLS " | Tode: " PLAYER_DEATHS)
  150. return
  151.  
  152. :?:/hr::
  153.     ReadConfig()
  154.     SendChat("/fc Ich stehe unter Beschuss! Standort: " GetPlayerZone() " in " GetPlayerCity() "!")                                                                                                
  155. return
  156.  
  157. :?:/wtfc::
  158.     SendChat("/fc Ich bin jetzt am Waffenteile farmen.")
  159. return
  160.  
  161. :?:/vb::
  162.     SendChat("/s Verlassen sie die Base! Sonst wenden wir gewalt an!")
  163.     i = 10
  164.     while(i != 0) {
  165.         SendChat("/s >> " i " <<")
  166.         i--
  167.         Sleep, 1000
  168.     }
  169. return
  170.  
  171. :?:/keksbot::
  172.     if (KEKSBOT_STATE == 0) {
  173.         KEKSBOT_STATE = 1
  174.         AddChatMessage(prefix "KeksBot wurde aktiviert.")
  175.     } else {
  176.         KEKSBOT_STATE = 0
  177.         AddChatMessage(prefix "KeksBot wurde deaktiviert.")
  178.     }
  179. return
  180.  
  181. :?:/spicebot::
  182.     if (SpiceBot == 1) {
  183.         SpiceBot = 0
  184.         AddChatMessage(prefix "SpiceBot wurde deaktiviert.")
  185.     } else {
  186.         SpiceBot = 1
  187.         AddChatMessage(prefix "SpiceBot wurde aktiviert.")
  188.     }
  189. return
  190.  
  191. :?:/bots::
  192.     ShowDialog(2, "Bots", "{FF0000}Bots: `n DetektivBot: " numberToState(detektiv) "`n Keksbot: " numberToState(KEKSBOT_STATE) "`n SpiceBot: " numberToState(SpiceBot), "Weiter", "Abbrechen")
  193. return
  194.  
  195. :?:/wt::
  196.     ReadConfig()
  197.    
  198.     if (PLAYER_WAFFENTEILE > 0) {
  199.         SendChat("/safebox waffenteile reinlegen " PLAYER_WAFFENTEILE)
  200.     } else {
  201.         AddChatMessage(prefix "Du hast keine Waffenteile dabei.")
  202.     }
  203.    
  204.     if (PLAYER_DRUGS > 0) {
  205.         SendChat("/safebox drogen reinlegen " PLAYER_DRUGS)
  206.     } else {
  207.         AddChatMessage(prefix "Du hast keine Drogen dabei.")
  208.     }
  209.    
  210.     if (PLAYER_WANTEDCODES > 0) {
  211.         SendChat("/safebox wantedcodes reinlegen " PLAYER_WANTEDCODES)
  212.     } else {
  213.         AddChatMessage(prefix "Du hast keine Wantedcodes dabei.")
  214.     }
  215.    
  216.     if (PLAYER_SPICE > 0) {
  217.         SendChat("/safebox spice reinlegen " PLAYER_SPICE)
  218.        
  219.     } else {
  220.         AddChatMessage(prefix "Du hast kein Spice dabei.")
  221.     }
  222. return
  223.  
  224. :?:/cc::
  225.     i = 25
  226.     while (i != 0) {
  227.         AddChatMessage("")
  228.         i--
  229.     }
  230. return
  231.  
  232. :?:/find::
  233.     if(detektiv = 0 || detektiv = 2) {
  234.         detektiv = 1
  235.         AddChatMessage(prefix "DetektivBot wurde aktiviert (AutoFind).")
  236.     } else {
  237.         detektiv = 0
  238.         AddChatMessage(prefix "DetektivBot wurde deaktiviert.")
  239.     }
  240. return
  241.  
  242. :?:/show::
  243.     if(detektiv = 0 || detektiv = 1) {
  244.         detektiv = 2
  245.         AddChatMessage(prefix "DetektivBot wurde aktiviert (AutoShow).")
  246.     } else {
  247.         detektiv = 0
  248.         AddChatMessage(prefix "DetektivBot wurde deaktiviert.")
  249.     }
  250. return
  251.  
  252. :?:/target::
  253. target := PlayerInput("Target: ")
  254. IniWrite, %target%, ballas.ini, InGame, Target
  255. AddChatMessage(prefix "Target ist nun: " target)
  256. return
  257.  
  258. :?:/helfer::
  259. helfer := PlayerInput("Helfer: ")
  260. IniWrite, %helfer%, ballas.ini, InGame, Helfer
  261. AddChatMessage(prefix "Helfer ist nun: " helfer)
  262. return
  263.  
  264. :?:/who::
  265.     temp_id := GetClosestPlayerId()
  266.     AddChatMessage(prefix "Nähester Spieler: " GetPlayerNameById(temp_id) )
  267. return
  268.  
  269. :?:/wl::
  270. ShowWaffenlager()
  271. return
  272.  
  273. :?:/reconnect::
  274.     Suspend Permit
  275.     server := GetServerIP()
  276.     IniWrite, %server%, stats.ini, Server, ServerIP
  277.     Process, exist, samp.exe
  278.     Process, Close, %errorLevel%
  279.     Process, exist, gta_sa.exe
  280.     Process, Close, %errorLevel%
  281.     RegRead GTA_SA_EXE, HKEY_CURRENT_USER, Software\SAMP, gta_sa_exe
  282.     SplitPath, GTA_SA_EXE,, PFAD
  283.     IniRead, ServerIP, stats.ini, Server, ServerIP
  284.     Run, %PFAD%\samp.exe %ServerIP%, %PFAD%
  285. return
  286.  
  287. #If IsDialogOpen() && IsSAMPAvailable()
  288. Enter::
  289.     if (IsDialogOpen() ) {
  290.         if (GetDialogCaption() == "Waffenlager - Kurzmenü") {
  291.             if (GetDialogIndex() == 2) { ; Weste
  292.                 SendChat("/waffenlager")
  293.                 Sleep 100
  294.                 SendInput {down 1}
  295.                 Sleep 100
  296.                 SendInput {enter}
  297.                 Sleep 100
  298.                 SendInput {down 5}
  299.                 Sleep 100
  300.                 SendInput {enter}
  301.                 Sleep 100
  302.                 SendInput {escape 2}
  303.                 Sleep, 100
  304.                 ShowWaffenlager()
  305.                 return
  306.             } else if ( GetDialogIndex() == 3) { ; M4 1
  307.                 SendChat("/waffenlager")
  308.                 Sleep 100
  309.                 SendInput {down}
  310.                 Sleep 100
  311.                 SendInput {enter}
  312.                 Sleep 100
  313.                 SendInput {down}
  314.                 Sleep 100
  315.                 SendInput, {enter}
  316.                 Sleep, 100
  317.                 SendInput, {escape 2}
  318.                 Sleep, 100
  319.                 ShowWaffenlager()
  320.                 return
  321.             } else if (GetDialogIndex() == 4) { ; Sniper 0
  322.                 SendChat("/waffenlager")
  323.                 Sleep 100
  324.                 SendInput {down}
  325.                 Sleep 100
  326.                 SendInput {enter}
  327.                 Sleep 100
  328.                 SendInput, {enter}
  329.                 Sleep, 100
  330.                 SendInput, {escape 2}
  331.                 Sleep, 100
  332.                 ShowWaffenlager()
  333.                 return
  334.             } else if ( GetDialogIndex() == 5) { ; Shotgun 4
  335.                 SendChat("/waffenlager")
  336.                 Sleep 100
  337.                 SendInput {down}
  338.                 Sleep 100
  339.                 SendInput {enter}
  340.                 Sleep 100
  341.                 SendInput {down 4}
  342.                 Sleep 100
  343.                 SendInput, {enter}
  344.                 Sleep, 100
  345.                 SendInput, {escape 2}
  346.                 Sleep, 100
  347.                 ShowWaffenlager()
  348.                 return
  349.             } else if ( GetDialogIndex() == 6 ){ ; GF Pack
  350.                 SendChat("/waffenlager")
  351.                 Sleep 100
  352.                 SendInput {down}
  353.                 Sleep 100
  354.                 SendInput {enter}
  355.                 Sleep 100
  356.                 SendInput {down}
  357.                 Sleep 100
  358.                 SendInput {enter} ; Kauf M4
  359.                 Sleep, 100
  360.                 SendInput, {down 5}
  361.                 Sleep 100
  362.                 SendInput, {enter}
  363.                 Sleep, 100
  364.                 SendInput, {escape 2}
  365.                 Sleep, 100
  366.                 ShowWaffenlager()
  367.                 return
  368.             }
  369.         }
  370.        
  371.         if ( GetDialogCaption() == "Bots") {
  372.             if (GetDialogIndex() == 2) { ; DetektivBot
  373.                 if (detektiv == 0) {
  374.                     detektiv = 1
  375.                     AddChatMessage(prefix "DetektivBot wurde aktiviert (AutoFind).")
  376.                 } else if (detektiv == 1) {
  377.                     detektiv = 2
  378.                     AddChatMessage(prefix "DetektivBot wurde aktiviert (AutoShow).")
  379.                 } else if (detektiv == 2) {
  380.                     detektiv = 0
  381.                     AddChatMessage(prefix "DetektivBot wurde deaktiviert.")
  382.                 }
  383.                 ShowDialog(2, "Bots", "{FF0000}Bots: `n DetektivBot: " numberToState(detektiv) "`n Keksbot: " numberToState(KEKSBOT_STATE) "`n SpiceBot: " numberToState(SpiceBot), "Weiter", "Abbrechen")
  384.                 return
  385.             } else if (GetDialogIndex() == 3) {
  386.                 if (KEKSBOT_STATE == 0) { ; KeksBot
  387.                     KEKSBOT_STATE = 1
  388.                     AddChatMessage(prefix "KeksBot wurde aktiviert.")
  389.                 } else {
  390.                     KEKSBOT_STATE = 0
  391.                     AddChatMessage(prefix "KeksBot wurde deaktiviert.")
  392.                 }
  393.                 ShowDialog(2, "Bots", "{FF0000}Bots: `n DetektivBot: " numberToState(detektiv) "`n Keksbot: " numberToState(KEKSBOT_STATE) "`n SpiceBot: " numberToState(SpiceBot), "Weiter", "Abbrechen")
  394.                 return
  395.             }  else if (GetDialogIndex() == 4) { ; SpiceBot
  396.                 if (SpiceBot == 0) {
  397.                     SpiceBot = 1
  398.                     AddChatMessage(prefix "SpiceBot wurde aktiviert.")
  399.                 } else {
  400.                     SpiceBot = 0
  401.                     AddChatMessage(prefix "SpiceBot wurde deaktiviert.")
  402.                 }
  403.                 ShowDialog(2, "Bots", "{FF0000}Bots: `n DetektivBot: " numberToState(detektiv) "`n Keksbot: " numberToState(KEKSBOT_STATE) "`n SpiceBot: " numberToState(SpiceBot), "Weiter", "Abbrechen")
  404.                 return
  405.             }
  406.         }
  407.         SendInput, {enter}
  408.         return
  409.     }
  410. return
  411.  
  412.  
  413.     ReadConfig() {
  414.         SendChat("/stats")
  415.         Sleep, 100
  416.            
  417.         if(RegExMatch(GetDialogLine(21), "Morde: (.*), Verbrechen: (.*), Tode: (.*), KD-Rate: (.*), (.*)", new_player)) {
  418.             replaced_kills := RegExReplace(new_player1, "[^0-9]")
  419.             replaced_deaths := RegExReplace(new_player3, "[^0-9]")
  420.             kdr := (replaced_kills / replaced_deaths)
  421.                
  422.             IniWrite, %replaced_kills%, ballas.ini, Database, Kills
  423.             IniWrite, %replaced_deaths%, ballas.ini, Database, Tode
  424.             IniWrite, %kdr%, ballas.ini, Database, KDR
  425.            
  426.             IniWrite, PLAYER_KILLS, ballas.ini, Database, Kills
  427.             IniWrite, PLAYER_DEATHS, ballas.ini, Database, Tode
  428.             IniWrite, PLAYER_KDR, ballas.ini, Database, KDR
  429.         }
  430.        
  431.         if(RegExMatch(GetDialogLine(15), "Drogen: (.*), Waffenteile: (.*), Wantedcodes: (.*), Spice: (.*)", new_illegal)) {
  432.                        
  433.             replaceddrugs := RegExReplace(new_illegal1, "[^0-9]")
  434.             replacedwt := RegExReplace(new_illegal2, "[^0-9]")
  435.             replacedwanted := RegExReplace(new_illegal3, "[^0-9]")
  436.             replacedspice := RegExReplace(new_illegal4, "[^0-9]")
  437.            
  438.             PLAYER_WAFFENTEILE := replaceddrugs
  439.             PLAYER_DRUGS := replaceddrugs
  440.             PLAYER_WANTEDCODES := replacedwanted
  441.             PLAYER_SPICE := replacedspice
  442.            
  443.             SendInput, {escape}
  444.         }
  445.     }
  446.    
  447.     ShowWaffenlager() {
  448.         ShowDialog(2, "Waffenlager - Kurzmenü", "{FF0000}Waffenlager: `n Weste `n M4 `n Sniper `n Shotgun `n GF - Pack", "Abbrechen", "Weiter")
  449.     }
  450.    
  451.     numberToState(number) {
  452.         if (number == 1)
  453.             return "An"
  454.         if (number == 0)
  455.             return "Aus"
  456.         if (number == 2)
  457.             return "An"
  458.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!