everquest scripts

[alienkillaz]

i just finished making an EQ2 craft bot and now im curios if their is anybody else making stuff for EQ2

setting.zip

Edited September 3, 2005 by alienkillaz

[LxP]

i just finished making an EQ2 craft bot

You forgot to attach it to the thread!

[alienkillaz]

expandcollapse popup

$n=1
WinActivate("EverQuest II")
WinWaitActive("EverQuest II")
Sleep(2000)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
$first = 1
$second = 2
$third = 3
$z = 0
$x = 510
$y = 564
Call("mygui")
MouseClick("left",$x,$y)
Sleep(2000)
MouseClick("left",$x,$y)
ToolTip($z & "of" & $n, 496, 469)

If IniRead("setting.ini", "setting", "art", "") = "woodcraft" Then
        call ("woodcraft")
    ElseIf IniRead("setting.ini", "setting", "art", "") = "therma" Then
        call ("therma")
    ElseIf IniRead("setting.ini", "setting", "art", "") = "scribe" Then
        call("scribe")
    EndIf



;//////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func therma()
    Do
        Call("clicker")
        Sleep(1000)
        $a = PixelGetColor(478, 508);counter image
        $c = Random(1400, 1600); delay from counter image to button press
        
        If $a = 5320460 Then;handwriting code "test"
            Sleep($c)
            Call("rand1")
        ElseIf $a = 4662282 Then
            Sleep($c)
            Call("rand1")
            Sleep(1000)
        ElseIf $a = 3943204 Then ;"stir"3745313
            Sleep($c)
            Call("rand3")
        ElseIf $a = 3745313 Then ;"stir"3745313
            Sleep($c)
            Call("rand3")
            Sleep(1000)
        ElseIf $a = 2318759 Then ;"coalesce"
            Sleep($c)
            Call("rand2")
        ElseIf $a = 2252197 Then ;"coalesce"
            Sleep($c)
            Call("rand2")
            Sleep(1000)
        EndIf
    Until $z = $n
EndFunc  ;==>therma

;//////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Func scribe()
    Do
        Call("clicker")
        Sleep(1000)
        $a = PixelGetColor(478, 508);counter image
        $c = Random(1400, 1600); delay from counter image to button press
        
        If $a = 14537145 Then ;
            Sleep($c)
            Call("rand1")
            Sleep(1000)
            
        ElseIf $a = 5320460 Then;
            Sleep($c)
            Send("2")
            Sleep(1000)
            
        ElseIf $a = 9847405 Then ;
            Sleep($c)
            Send("3")
            Sleep(1000)
            
            
        EndIf
    Until $z = $n
EndFunc  ;==>scribe



;//////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func woodcraft()
    Do
        Call("clicker")
        
        $a = PixelGetColor(478, 508);counter image
        $c = Random(1400, 1600); delay from counter image to button press
        $x = 510
        $y = 564
        
        If $a = 9401908 Then;furbish
            Sleep($c)
            Call("rand3")
            Sleep(1000)
        ElseIf $a = 5600138 Then ;"furbish"
            Sleep($c)
            Call("rand2")
            Sleep(1000)
        ElseIf $a = 3745313 Then ;"laminate"
            Sleep($c)
            Call("rand1")
            Sleep(1000)
            
        EndIf
    Until $z = $n
EndFunc  ;==>woodcraft

;/////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func clicker(); scans for white letters after a recipe is complete
    $a = PixelSearch(410, 150, 450, 175, 16777215)
    If Not @error Then
        MouseClick("left", $x + 1, $y - 1)
        $z = $z + 1
        Sleep(2000)
        MouseClick("left", $x - 1, $y + 1)
        Sleep(4000)
    EndIf
EndFunc  ;==>clicker
;/////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func rand1()
    $decider = Random(1, 2, 1)
    If $decider = 1 Then
        Send(1)
    ElseIf $decider = 2 Then
        Send(4)
    EndIf
EndFunc  ;==>rand1

Func rand2()
    $decider = Random(1, 2, 1)
    If $decider = 1 Then
        Send(2)
    ElseIf $decider = 2 Then
        Send(5)
    EndIf
EndFunc  ;==>rand2

Func rand3()
    $decider = Random(1, 2, 1)
    If $decider = 1 Then
        Send(3)
    ElseIf $decider = 2 Then
        Send(6)
    EndIf
EndFunc  ;==>rand3
;/////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Func mygui()
    #include <GUIConstants.au3>
    $state = IniRead("setting.ini", "setting", "art", "")
    $ACTION = 1
    GUICreate("Alienkillaz EQ2 Craft Bot ver.1.0", 300, 190)
    GUISetState(@SW_SHOW)
    
    $n = GUICtrlCreateInput("How many items to create?", 10, 10)
    GUICtrlSetState(-1,$GUI_FOCUS)
    $therma = GUICtrlCreateRadio("thermaturgy", 10, 40)
    $scribe = GUICtrlCreateRadio("Scribing", 10, 70)
    $woodcraft = GUICtrlCreateRadio("Woodcraft", 10, 100)
    $buttonstart = GUICtrlCreateButton("start", 10, 140, 80,"",$BS_DEFPUSHBUTTON)
    $buttoncancel = GUICtrlCreateButton("cancel", 95, 140, 80)
    
    
    If IniRead("setting.ini", "setting", "art", "") = "woodcraft" Then
        GUICtrlSetState($woodcraft, $GUI_CHECKED)
    ElseIf IniRead("setting.ini", "setting", "art", "") = "therma" Then
        GUICtrlSetState($therma, $GUI_CHECKED)
    
    ElseIf IniRead("setting.ini", "setting", "art", "") = "scribe" Then
        GUICtrlSetState($scribe, $GUI_CHECKED)
    EndIf
    
    
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
            ExitLoop
        EndIf
        If $msg = $therma Then
            IniWrite("setting.ini", "setting", "art", "therma")
        ElseIf $msg = $scribe Then
            IniWrite("setting.ini", "setting", "art", "scribe")
        ElseIf $msg = $woodcraft Then
            IniWrite("setting.ini", "setting", "art", "woodcraft")
        ElseIf $msg = $buttonstart Then
            ExitLoop
        ElseIf $msg = $buttoncancel Then
            ExitLoop
        EndIf
        
    WEnd
EndFunc  ;==>mygui

























;/////////////////////////////////NEW FUNCTION\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\



Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc  ;==>TogglePause

[LxP]

I'm not working on anything for EQ2 but I've got a couple ideas for your script if you're interested.

You seem to use these functions a couple times:

Call("rand1")
Call("rand2")
Call("rand3")

which send one of two keys randomly. How about replacing your three rand#() functions with something like this:

func sendOneOf($keyA, $keyB)
    ; one in two chance
    if (random() < 0.5) then
        send($keyA)
    else
        send($keyB)
    endIf
endFunc

and then changing your Call()s to something like:

sendOneOf(1, 4)
sendOneOf(2, 5)
sendOneOf(3, 6)

respectively? It just makes your code a little shorter and a little more intuitive at first glance since what sendOneOf(X, Y) does is more obvious at first glance than randZ().

Also, clicker() is entirely equivalent to Call("clicker"). Call() is only meant to be used if you want to call a function whose name exists in a variable (presumably set through an InputBox() or GUI first).

[theguy0000]

dont know what everquest is lol, can i have the link?

- Matt

[Fohsap]

I'm looking into troubleshooting, but I currently don't know how. I'm getting: "AutoIt Error", "Line 172"... $BS_DEFPUSHBUTTON is not declared.

"Error: Variable used without being declared."

What's it supposed to do?

P.S. - On different versions of EQ, the title is different, so the script definitely requires at least that tailoring.

Edited December 6, 2010 by Fohsap

[Jos]

I'm looking into troubleshooting, but I currently don't know how. I'm getting: "AutoIt Error", "Line 172"... $BS_DEFPUSHBUTTON is not declared.

"Error: Variable used without being declared."

What's it supposed to do?

P.S. - On different versions of EQ, the title is different, so the script definitely requires at least that tailoring.

Resurrecting a thread from 2005?

Anyway: read out updated policy on BOTs at the top of the Support forum before posting again.

Jos