Jump to content
Sign in to follow this  
alienkillaz

everquest scripts

Recommended Posts

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 by alienkillaz

Share this post


Link to post
Share on other sites
LxP

i just finished making an EQ2 craft bot

You forgot to attach it to the thread! :whistle:

Share this post


Link to post
Share on other sites
alienkillaz

$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

Share this post


Link to post
Share on other sites
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).

Share this post


Link to post
Share on other sites
theguy0000

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

- Matt :whistle:


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites
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 by Fohsap

Share this post


Link to post
Share on other sites
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


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×