Func help

[BuddyBoy]

expandcollapse popup

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
#include <GUIConstants.au3>

HotKeySet("{F5}", "On")
HotKeySet("{F5}", "On1")
HotKeySet("{ESC}", "Terminate")

Dim $SearchMob=0
GUICreate("Test",150,100,100,100)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")
$Lable=GUICtrlCreateCheckbox("Warrior/Trojan",10,5,130,15)
$Lable1=GUICtrlCreateCheckbox("Archer",10,35,130,15)
GUISetState()

While 1
    If $SearchMob Then Attack()
    Sleep(1000)
WEnd



Func On()
    $SearchMob=NOT $SearchMob
    If $SearchMob Then
        GUICtrlSetData($Lable,"F5 to turn off bot.")
    Else
        GUICtrlSetData($Lable,"F5 to turn on bot.")
    EndIf
EndFunc  

Func On1()
    $SearchMob=NOT $SearchMob
    If $SearchMob Then
        GUICtrlSetData($Lable1,"F5 to turn off bot.")
    Else
        GUICtrlSetData($Lable1,"F5 to turn on bot.")
    EndIf
EndFunc  

Func Jump()
    $x=Random(0,1024,1)
    $y=Random(0,690,1)
    MouseMove($x,$y,0)
    Send("{CTRLDOWN}")
    MouseClick("Left")
    Send("{CTRLUP}")
    Sleep(100)
EndFunc 

Func Attack()
    $Coords=PixelSearch(200,100,825,600,12059395,5)
    If NOT @error Then
        MouseClick("left",$Coords[0],$Coords[1]+20,1,0)
        Sleep(2500)
    Else
        Jump()
    EndIf
EndFunc

Func Terminate()
    Exit
EndFunc;==> Terminate()

Alright I almost got this figured out myself... Just stuck on one thing... I want the Warrior/Trojan checkbox to LEFT click (which I have) But for the archer, I want it to RIGHT click... How can I tell it to left click when Warrior/Trojan is started and how can I tell it also to Right click when Archer is started?

I created two On keys, is that right I hope...

Thanks for the help.

[Achilles]

You would do something like this (not tested) in your Attack() function:

If GuiCtrlRead($Lable) = $GUI_CHECKED then

Mouseclick('left', ....

Else

MouseClick('right', ...)

Endif

[BuddyBoy]

I understand what your saying... But I don't see where I could put it? Could I just put it on the bottom of the whole thing or what?

Thanks for the response

[BuddyBoy]

Why won't anyone help me... I thought the rules here if I at least gave it my best effort, I could get some assistance I've tried everything, but I just can't get it

Could I do something like this:

If GuiCtrlRead($Lable) = $GUI_CHECKED then
$left = Mouseclick('left', ....
EndIf

If GuiCtrlRead($Lable1) = $GUI_CHECKED then
$right = Mouseclick('right', ....
EndIf


Then down my clicks part I would do

[code]

Func Attack()
    $Coords=PixelSearch(200,100,825,600,12059395,5)
    If NOT @error Then
        MouseClick("$left, $right",$Coords[0],$Coords[1]+20,1,0); How could I do this part?
        Sleep(2500)
    Else
        Jump()
    EndIf
EndFunc

Idk if that would work... Would it?

Edited November 27, 2007 by BuddyBoy

[picaxe]

You would do something like this (not tested) in your Attack() function:

I think Piano Man means something like

Func Attack()
    $Coords=PixelSearch(200,100,825,600,12059395,5)
    If NOT @error Then
        If GuiCtrlRead($Lable) = $GUI_CHECKED then
            $left = Mouseclick('left',$Coords[0],$Coords[1]+20,1,0)
        EndIf
        If GuiCtrlRead($Lable1) = $GUI_CHECKED then
            $right = Mouseclick('right',$Coords[0],$Coords[1]+20,1,0)
        EndIf
        Sleep(2500)
    Else
        Jump()
    EndIf
EndFunc

[PsaltyDS]

HotKeySet("{F5}", "On")
HotKeySet("{F5}", "On1")
HotKeySet("{ESC}", "Terminate")

Alright I almost got this figured out myself... Just stuck on one thing... I want the Warrior/Trojan checkbox to LEFT click (which I have) But for the archer, I want it to RIGHT click... How can I tell it to left click when Warrior/Trojan is started and how can I tell it also to Right click when Archer is started?

I created two On keys, is that right I hope...

Have you fixed this yet? You have both functions On() and On1() assigning to the same F5 key. That means only On1() is actually assigned.

[Iklim]

First of all, I think you only can be Archer or Warrior (at a given time)

so you should use a radio button not checkboxes.

[function is GUICtrlCreateRadio]

Second, you should not bind a Key to two different functions, i mean you must use only one function.

Third, for your info message ("type F5 to start/stop"), i think you should use a label because you are overwriting

the text describing your checkboxes.

So, here it is :

expandcollapse popup

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
#include <GUIConstants.au3>

HotKeySet("{F5}", "On")
HotKeySet("{ESC}", "Terminate")

Dim $SearchMob=0
GUICreate("Test",150,100,100,100)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

$Label=GUICtrlCreateLabel("F5 to turn on bot.",10,5,130,15)
$Radio1=GUICtrlCreateRadio("Warrior",10,35,130,15)
$Radio2=GUICtrlCreateRadio("Archer",10,65,130,15)
GUICtrlSetState ($Radio1, $GUI_CHECKED)
GUISetState()

While 1
    If $SearchMob Then Attack()
    Sleep(1000)
WEnd



Func On()
    $SearchMob=NOT $SearchMob
    If $SearchMob Then
        GUICtrlSetData($Label,"F5 to turn off bot.")
    Else
        GUICtrlSetData($Label,"F5 to turn on bot.")
    EndIf
EndFunc  


Func Jump()
    $x=Random(0,1024,1)
    $y=Random(0,690,1)
    MouseMove($x,$y,0)
    Send("{CTRLDOWN}")
    MouseClick("Left")
    Send("{CTRLUP}")
    Sleep(100)
EndFunc

Func Attack()
    $Coords=PixelSearch(200,100,825,600,12059395,5)
    If NOT @error Then
        if BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED then
        MouseClick("left",$Coords[0],$Coords[1]+20,1,0)
        Sleep(2500)
            else
        MouseClick("right",$Coords[0],$Coords[1]+20,1,0)
        Sleep(2500)
      endif
    Else
        Jump()
    EndIf
EndFunc

Func Terminate()
    Exit
EndFunc;==> Terminate()