Jump to content

Well I need some help...


BuddyBoy
 Share

Recommended Posts

Alright. This should be my last question, sorry to bug you all.

I'm trying so hard to make a bot for my friend... I don't play the game and he does, and he keeps begging me to make him one... I know how to do all the coding but ONE part...

With my previous problem I cannot have a Func in a Func...

Well how can I have 3 separate groups that people can choose from... Whether its a GUI or "Press this button for optionA, Press this button for optionB"...

My three "groups" are- Warrior/Trojan, Archer, AND fire...

I just can't figure out how to organize them in a GUI or anything... I've been looking around the help file for roughly 30 mins-50 mins now and its getting tiresome lol.

Also since I can't have a func in a func... How can I put a stop and start button for the whole program?

Sorry I'm asking for so much, I just can't figure it out on my own ;)

READ BOTTOM POSTS THANKS :P

Edited by BuddyBoy
Link to comment
Share on other sites

Functions inside functions are not alowed in AutoIt..:P

Edited by Uten
Link to comment
Share on other sites

Try..

#include <GuiConstants.au3>
Opt("GUIOnEventMode",1)
HotKeySet("{F5}", "_Start")
HotKeySet("{F7}", "_NoClick")
HotKeySet("{ESC}","Terminate")
HotKeySet("^g", "_GetPos")
$ClickIt = 0
Dim $SearchMob

GUICreate("Bot", 400, 300)
GUISetOnEvent($GUI_EVENT_CLOSE,"Terminate")
$Checkbox_1 = GUICtrlCreateCheckbox("Bot", 20, 40, 150, 20)

GUISetState()
While 1
    Sleep( 10 )
WEnd
Exit
Func _Start ()
    $ClickIt = 1
    While $ClickIt = 1
        If BitAND(GUICtrlRead($Checkbox_1), $GUI_CHECKED) = $GUI_CHECKED Then
            While 1
                If $SearchMob Then Attack()
                Sleep(1000)
            WEnd
   Attack()
Jump()
        EndIf
    WEnd
EndFunc ;==>_Start
Func _NoClick ()
    ToolTip("")
    $ClickIt = 0
EndFunc ;==>_NoClick
Func Terminate ()
    Exit
EndFunc ;==>Terminate
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()
            PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,"0xBD0000", 20)
            If NOT @error Then
                MouseClick("left",$Coords[0],$Coords[1],1,0)
            Else
                Jump()
            EndIf
EndFunc
Link to comment
Share on other sites

Hey it wasn't my idea... It was my best friend... We've been good friends forever, how can I say no... *no I don't want your response lol*

@Nevin If so then shouldn't asm or c++ be the virus language? Pointless post and waste of bandwidth.

@BuddyBoy, set an event for the check box, use a bool to moniter if it's checked, and when you press F5, if not then return.

Edited by Generator
Link to comment
Share on other sites

But I can't put a function in a function.... I didn't want to make a new post to take up more room... I'm going to start from scratch and all I need is the begining start... Just need a start/stop and how to make 3 groups... You don't have to give me a script (would be appreciated ;)), but you can just guide me on how to do it.

Thanks in advance

Ignore all the posts above this one :P

Link to comment
Share on other sites

Made an example based on your situation, Fairly easy to understand.

#include <GUIConstants.au3>
Global $Type="Warrior"
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Radio Box Example", 377, 101, 193, 125)
$Group1 = GUICtrlCreateGroup("Select Your Action", 8, 8, 361, 49)
$Radio1 = GUICtrlCreateRadio("Warrior", 16, 24, 97, 25)
$Radio2 = GUICtrlCreateRadio("Trojan/Archer", 120, 24, 129, 25)
$Radio3 = GUICtrlCreateRadio("Archer", 256, 24, 113, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 8, 64, 129, 33, 0)
$Label1=GUICtrlCreateLabel("Your selection is " & $Type, 144, 64, 220, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($Radio1,$GUI_CHECKED)
GUICtrlSetOnEvent($Radio1,"_HandleRadio")
GUICtrlSetOnEvent($Radio2,"_HandleRadio")
GUICtrlSetOnEvent($Radio3,"_HandleRadio")
GUICtrLSetOnEvent($Button1,"_Start")
GUISetOnEvent($GUI_EVENT_CLOSE,"_Bye")
While 1
    Sleep(1)
WEnd
Func _HandleRadio()
    If @GUI_CtrlId=$Radio1 Then     
        $Type="Warrior"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
    ElseIf @GUI_CtrlId=$Radio2 Then
        $Type="Trojan"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
    ElseIf @GUI_CtrlId=$Radio3 Then
        $Type="Fire"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
    EndIf
EndFunc
Func _Start()
    GUICtrlSetState($Radio1,$GUI_DISABLE)
    GUICtrlSetState($Radio2,$GUI_DISABLE)
    GUICtrlSetState($Radio3,$GUI_DISABLE)
    GUICtrLSetData($Button1,"Cancel")
    _Action()
EndFunc
Func _Action()
    Switch $Type
        Case "Warrior" 
            
        Case "Trojan"
            
        Case "Fire"

    EndSwitch
EndFunc
Func _Bye()
    Exit
EndFunc
Link to comment
Share on other sites

Func _Action()
    Switch $Type
        Case "Warrior"
           
        Case "Trojan"
           
        Case "Fire"

    EndSwitch
EndFunc

Is there where I add each line of script for each class?

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

Func Swap()
    $SearchMob=NOT $SearchMob
    If $SearchMob Then
        GUICtrlSetData($Mess,"<HOME> to switch off")
    Else
        GUICtrlSetData($Mess,"<HOME> to switch on")
    EndIf
EndFunc ;==> Swap()

Func JumpAround()
    $xrand=Random(0,1024,1)
    $yrand=Random(0,690,1)
    MouseMove($xrand,$yrand,0)
    Send("{CTRLDOWN}")
    MouseClick("Left")
    Send("{CTRLUP}")
    Sleep(100)
EndFunc;==> JumpAround()

Func MobSearch()
    $Coords=PixelSearch(200,100,825,600,12059395,5)
    If NOT @error Then
        MouseClick("left",$Coords[0],$Coords[1]+30,1,0)
    Else
        JumpAround()
    EndIf
EndFunc ;==> MobSearch()

I found this somewhere, and just saved it... can't remember where I had found it at... I just fixed it up a little bit from my previous code...

But thats what I PRETTY much want for each class to do... With a lot of modifications, but if I can get that going, I surely can get it working...

How can I put all that in, without putting it in an already existing Func?

Edited by BuddyBoy
Link to comment
Share on other sites

Sorry to be a noob spammer... I promised I would get this done to my friend ASAP... Could anyone just guide me? I'm not begging you or anything.. But from the code I gave you and the code generator gave... Is there anyway i can put all my code into his?

Thanks

Link to comment
Share on other sites

#include <GUIConstants.au3>
Global $Type="Warrior"
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Radio Box Example", 377, 101, 193, 125)
$Group1 = GUICtrlCreateGroup("Select Your Action", 8, 8, 361, 49)
$Radio1 = GUICtrlCreateRadio("Warrior/Trojan", 16, 24, 97, 25)
$Radio2 = GUICtrlCreateRadio("Archer", 120, 24, 129, 25)
$Radio3 = GUICtrlCreateRadio("Fire Tao (Nado)", 256, 24, 113, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 8, 64, 129, 33, 0)
$Label1=GUICtrlCreateLabel("Your selection is " & $Type, 144, 64, 220, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($Radio1,$GUI_CHECKED)
GUICtrlSetOnEvent($Radio1,"_HandleRadio")
GUICtrlSetOnEvent($Radio2,"_HandleRadio")
GUICtrlSetOnEvent($Radio3,"_HandleRadio")
GUICtrLSetOnEvent($Button1,"_Start")
GUISetOnEvent($GUI_EVENT_CLOSE,"_Bye")

Dim $SearchMob=0;I got this declared... ?

While 1
    Sleep(1)
WEnd
Func _HandleRadio()
    If @GUI_CtrlId=$Radio1 Then  
        $Type="Warrior/Trojan"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
        Sleep(1000)
        MsgBox(0, "Ultimate Plvler", "The bot will begin in 15 seconds")
        Sleep(15000)
        While 1
            If $SearchMob Then Attack()
            Sleep(1000)
        Wend
    ElseIf @GUI_CtrlId=$Radio2 Then
        $Type="Archer"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
        While 1
            If $SearchMob Then Attack()
            Sleep(1000)
        Wend
    ElseIf @GUI_CtrlId=$Radio3 Then
        $Type="Fire"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
        While 1
            If $SearchMob Then Attack()
            Sleep(1000)
        Wend
    EndIf
EndFunc


Func Attack()
    $pixelsearch = Pixelsearch(0, 0, @Desktopwidth, @DesktopHeight, "0xBD0000", 1, 10)
    If NOT @error Then
        MouseClick("left",$Coords[0],$Coords[1]+30,1,0)
    Else
        Jump()
    EndIf
EndFunc;==> MobSearch()

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

Func _Start()
    GUICtrlSetState($Radio1,$GUI_DISABLE)
    GUICtrlSetState($Radio2,$GUI_DISABLE)
    GUICtrlSetState($Radio3,$GUI_DISABLE)
    GUICtrLSetData($Button1,"Cancel")
    _Action()
EndFunc

Func _Action()
    Switch $Type
        Case "Warrior"
           
        Case "Trojan"
           
        Case "Fire"

    EndSwitch
EndFunc
Func _Bye()
    Exit
EndFunc

Alright I thought a little... And this is what I got... It runs fine... But once I select a Radio box and press start... nothing happens... It should pop-up that message box, then start the bot shouldn't it? Idk maybe I'm doing something wrong here. :P At least I gave it a shot.

Func _HandleRadio()
    If @GUI_CtrlId=$Radio1 Then  
        $Type="Warrior/Trojan"
        GUICtrlSetData($Label1,"Your selection is " & $Type)
        Sleep(1000)
        MsgBox(0, "Ultimate Plvler", "The bot will begin in 15 seconds")
        Sleep(15000)
        While 1
            If $SearchMob Then Attack()
            Sleep(1000)
        Wend

I just edited this section, and Dim $SearchMob= 0 or whatever at the top....

That section should do in order as I put it shouldn't it? ;)

Edited by BuddyBoy
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...