My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

bullsbot

By: a guest | Feb 9th, 2010 | Syntax: AutoIt | Size: 2.94 KB | Hits: 119 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. #include <GUIConstantsEx.au3>
  2. #include "GWCAConstants.au3"
  3.  
  4. Opt("GUIOnEventMode", 1)
  5. Global $cGUI = GUICreate("GWCA Tool - Bulls Bot", 500, 40)
  6. Global $bEnabled = False
  7. GUIRegisterMsg(0x500, "WndCallback")
  8. HotKeySet("{F6}", "BotOnOff")
  9.  
  10. GUISetOnEvent($GUI_EVENT_CLOSE, "EventHandler")
  11. GUISetFont(8)
  12. $const_checkTop = 7
  13. $btnOnOff = GUICtrlCreateButton("Enable bot", 420, $const_checkTop, 70, 20)
  14. GUICtrlSetOnEvent(-1, "EventHandler")
  15. $check1 = GUICtrlCreateCheckbox("1",15, $const_checkTop)
  16. $check2 = GUICtrlCreateCheckbox("2",50, $const_checkTop)
  17. $check3 = GUICtrlCreateCheckbox("3",85, $const_checkTop)
  18. $check4 = GUICtrlCreateCheckbox("4",120, $const_checkTop)
  19. $check5 = GUICtrlCreateCheckbox("5",155, $const_checkTop)
  20. $check6 = GUICtrlCreateCheckbox("6",190, $const_checkTop)
  21. $check7 = GUICtrlCreateCheckbox("7", 225, $const_checkTop)
  22. $check8 = GUICtrlCreateCheckbox("8", 260, $const_checkTop)
  23. $labelDistance = GUICtrlCreateLabel("Max distance:", 295, 10)
  24. $inputDistance = GUICtrlCreateInput("200", 365, $const_checkTop, 45, 20)
  25. GUISetBkColor(0xCCCCCC)
  26. GUISetState(True, $cGUI)
  27.  
  28. While 1
  29.         If $bEnabled Then
  30.                 $cbType = "float"
  31.                 CmdCB($CA_GetMyDistanceToAgent, -1)
  32.                 If $cbVar[0] <= GUICtrlRead($inputDistance) then
  33.                         $cbType = "int"
  34.                         CmdCB($CA_GetAllegiance, -1)
  35.                         If $cbVar[0] = 0x300 Then
  36.                         CmdCB($CA_GetIsMoving, -1)
  37.                                 If $cbVar[0] = True Then
  38.                                         For $i = 1 To 8 Step 1
  39.                                                 If GUICtrlRead(Eval("check"&$i)) = 1 Then
  40.                                                         CmdCB($CA_SkillRecharge, $i)
  41.                                                         If $cbVar[0] = 0 Then
  42.                                                                 UseSkillEx($i, -1)
  43.                                                                 ExitLoop
  44.                                                         EndIf
  45.                                                 EndIf
  46.                                         Next
  47.                                 EndIf
  48.                         EndIf
  49.                 EndIf
  50.         EndIf
  51.         Sleep(10)
  52. WEnd
  53.  
  54. Func BotOnOff()
  55.         If WinActive($sGW) OR WinActive("GWCA Tool - Bulls Bot") Then
  56.                 $bEnabled = Not $bEnabled
  57.                 If $bEnabled Then
  58.                         Cmd($CA_STATUSBOT, 1, 0)
  59.                         GUICtrlSetData($btnOnOff, "Disable bot")
  60.                         GUICtrlSetState($check1, $GUI_DISABLE)
  61.                         GUICtrlSetState($check2, $GUI_DISABLE)
  62.                         GUICtrlSetState($check3, $GUI_DISABLE)
  63.                         GUICtrlSetState($check4, $GUI_DISABLE)
  64.                         GUICtrlSetState($check5, $GUI_DISABLE)
  65.                         GUICtrlSetState($check6, $GUI_DISABLE)
  66.                         GUICtrlSetState($check7, $GUI_DISABLE)
  67.                         GUICtrlSetState($check8, $GUI_DISABLE)
  68.                         GUICtrlSetState($inputDistance, $GUI_DISABLE)
  69.                 Else
  70.                         Cmd($CA_STATUSBOT, 2, 0)
  71.                         GUICtrlSetData($btnOnOff, "Enable bot")
  72.                         GUICtrlSetState($check1, $GUI_ENABLE)
  73.                         GUICtrlSetState($check2, $GUI_ENABLE)
  74.                         GUICtrlSetState($check3, $GUI_ENABLE)
  75.                         GUICtrlSetState($check4, $GUI_ENABLE)
  76.                         GUICtrlSetState($check5, $GUI_ENABLE)
  77.                         GUICtrlSetState($check6, $GUI_ENABLE)
  78.                         GUICtrlSetState($check7, $GUI_ENABLE)
  79.                         GUICtrlSetState($check8, $GUI_ENABLE)
  80.                         GUICtrlSetState($inputDistance, $GUI_ENABLE)
  81.                 EndIf
  82.         Else
  83.                 HotKeySet(@HotKeyPressed)
  84.                 Send(@HotKeyPressed)
  85.                 HotKeySet(@HotKeyPressed, "BotOnOff")
  86.         EndIf
  87. EndFunc
  88.  
  89. Func EventHandler()
  90.         Switch(@GUI_CtrlId)
  91.                 Case $GUI_EVENT_CLOSE
  92.                         Exit
  93.                        
  94.                 Case $btnOnOff
  95.                         BotOnOff()
  96.         EndSwitch
  97. EndFunc
create new paste | create new version of this paste RAW Paste Data