Advertisement
AnthonyGates

Untitled

Nov 17th, 2016
171
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; * Copyright (C) Antal Krisztián - All Rights Reserved
  2. ; * Unauthorized copying of this file, via any medium is strictly prohibited
  3. ; * Proprietary and confidential
  4. ; * Written by Antal Krisztián <[email protected]>, November 2016
  5.  
  6.  
  7.  
  8.  
  9. SendMode Input
  10. SetWorkingDir %A_ScriptDir%
  11. #include %A_ScriptDir%\SAMP.ahk
  12. MsgBox, 1, Csohano-BOT by Anthony Gates,
  13. (
  14. A szoftvert Anthony Gates készítette. A szoftver rendeltetése: Project San Andreas szerveren a horgászat automatizálása.
  15. A szoftver használatából adódó károkért (megrovás, kitiltás) a program készítője nem vállal felelősséget.
  16. A szoftver használata: F11 billentyűvel aktiválható, és deaktiválható.
  17.  
  18. A szoftvert módosítani, terjeszteni, továbbadni, árusítani a készítő engedélye nélkül TILOS.
  19.  
  20. Ez a felirat 20 másodpercen belül eltűnik!
  21. ), 20
  22. #MaxThreadsPerHotkey 3
  23. F11::
  24. #MaxThreadsPerHotkey 1
  25. if not PecaFolyamat
  26. {
  27.     addMessageToChatWindow("{23e059}[CSOHANO] {dee5e0}Horgászat script elindítva - {23e059}by Anthony Gates")
  28. }
  29. else
  30. {
  31.     addMessageToChatWindow("{23e059}[CSOHANO] {dee5e0}Horgászat script leállítva.")
  32. }
  33.  
  34. if PecaFolyamat
  35. {
  36.     PecaFolyamat := false
  37.     return
  38. }
  39.  
  40. PecaFolyamat := true
  41. Loop
  42. {
  43.     if ( isInChat() )
  44.         Send {Esc}
  45.     SendInput t/horgász kezdés{enter}
  46.     showGameText("~g~[CSOHANO] Horgászbot bedobva", 3000, 1)
  47.     Sleep, 10000
  48.     if not PecaFolyamat
  49.         break
  50. }
  51. PecaFolyamat := false
  52. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement