POPULAR AND EZ Autoit Scripts

[nbourg8]

FIRST OFF... THE PURPOSE OF THESE SCRIPTS HAVE BEEN POSTED BEFORE. THIS THREAD ONLY HAS THE INTENT OF EITHER SHOWING PEOPLE HOW TO USE THE GUI SCHEME FOR THEIR OWN SCRIPTS OR TO SIMPLY PROVIDE USERS WITH SIMPLE AND EASY TO USE SCRIPTS.

Okay, so I'm bored and tired of people begging me for my scripts so I'll post them here. Here are 3 different scripts, 1 autostall+login script, 1 autoattacker+login script and 1 autologin script. All of them have easy to use GUI's and they each use ini files to store data for later use to make setting them up a breeze. The only one without a GUI is the autoattacker and that is cuz im lazy.

Requirements: 1024x768 ingame and windows with LOW quality graphics and NO shadows. Must make monsters pure pink using nymbles programs.

DISCLAIMER: USE AT YOUR OWN RISK. I do not care to explain how to use/modify them as there are plenty of threads/posts dealing with such information. This thread was only made to provide a basic method of using autoit to create user-friendly scripts so others may build off of.

Autologin (ONLY) and detects d/c's:

#include <GUIConstants.au3>

WinActivate("SRO_Client")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
dim $inifile="AL.ini"
dim $SRO_Client="c:\Program Files\Silkroad\sro_client.exe 1234 /18 0 0"

main($inifile,$SRO_Client)

Func main($inifile,$SRO_Client)
    dim $login
    dim $pw
    dim $cslot
    dim $start_autologin_button
    GUICreate("AL by Clit",220,135)
    GUICtrlCreateGroup ("Enter Login Information", 15, 10, 200, 105)
    GUICtrlCreateLabel("Login:",20,35)
    GUICtrlCreateLabel("Password:",20,55)
    GUICtrlCreateLabel("Character Slot #:",20,75)
    GUICtrlCreateLabel("(1-3)",145,75)
    if FileExists($inifile) Then
        $login=IniRead($inifile,"Login","Login_Name","Not Found")
        $pw=IniRead($inifile,"Login","Password","Not Found")
        $cslot=IniRead($inifile,"Login","Character_Slot","Not Found")
    EndIf
    
    $login=GUICtrlCreateInput($login,110,30,100)
    $pw=GUICtrlCreateInput($pw,110,50,100,"",$ES_PASSWORD)
    $cslot=GUICtrlCreateInput($cslot,110,70,30)

    $start_autologin_button=GUICtrlCreateButton("Start AutoLogin",60,95,100,40)
    GUICtrlSetState(-1,$GUI_FOCUS)
    GUISetState()
    
    
    dim $msg=0
    while 1=1
        $msg=GUIGetMsg()
        Select
            Case $msg=$GUI_EVENT_CLOSE
                Exit
            Case $msg=$start_autologin_button
                While 1=1
                    if WinExists("SRO_Client") <> 1 Then
                        $login = GUICtrlRead($login)
                        $pw = GUICtrlRead($pw)
                        $cslot = GUICtrlRead($cslot)
                        if NOT slotCheck($cslot) Then
                            WriteIni($inifile,$login,$pw,$cslot)
                            Login($login,$pw,$cslot)
                        Else
                            main($inifile,$SRO_Client)
                        EndIf
                    EndIf
                wend
        EndSelect
    WEnd
EndFunc

Func WriteIni($inifile,$login,$pw,$cslot)
    FileOpen($inifile,2)
    IniWrite($inifile, "Login", "Login_Name", $login)
    IniWrite($inifile, "Login", "Password", $pw)
    IniWrite($inifile, "Login", "Character_Slot", $cslot)
    FileClose($inifile)
EndFunc

Func slotCheck($cslot)
    dim $test
    if ($cslot <> 1) and ($cslot <> 2) and ($cslot <> 3) then
        MsgBox(4096,"AA+L - Error","Invalid Character Slot #")
        $test=1
    endif
    Return $test
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func DC_CHECK($login,$pw,$cslot)
    if PixelGetColor(366,332)==0x111111 Or PixelGetColor(366,322)==0x000000 Then
        if PixelGetColor(654,332)==0x191919 Then
            MouseClick("left",515,426,1,0)
            sleep(2000)
            Login($login,$pw,$cslot)
        EndIf
    EndIf
EndFunc

Func Login($login,$pw,$cslot)
    Run($SRO_Client)
    while (PixelGetColor(36,21) <> 0x000000) and (winexists("Error") <> 1) and (winexists("NetError","") <> 1) and (winexists("??????") <> 1)
        sleep(500)
    WEnd
    if winexists("Error") or winexists("NetError","") or winexists("??????") then
        winactivate("Error")
        sleep(200)
        winactivate("NetError","")
        winactivate("??????","")
        sleep(200)
        controlclick("??????","","Button1","Left")
        sleep(200)
        controlclick("Error","", "Button1","Left")
        sleep(200)
        controlclick("NetError","","Button1","Left")
    else
        winactivate("SRO_Client")
        beginlogin($login,$pw,$cslot)
    endif
EndFunc

func beginlogin($login,$pw,$cslot)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(700)
    send($login)
    sleep(700)
    controlsend("SRO_Client","","","{TAB}")
    sleep(700)
    send($pw)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(5000)
    
    while (PixelGetColor(902,605) <> 0x3C301C) and (PixelGetColor(954,137) <> 0x6C4E2E)
        sleep(4000)
        controlsend("SRO_Client","","","{ENTER}")
        DC_CHECK($login,$pw,$cslot)
    WEnd
    
    if $cslot=1 then
        mouseclick("left",326,369,2,0)
        mouseclick("left",326,369,2,0)
    EndIf
    if $cslot=2 then
        mouseclick("left",517,386,2,0)
        mouseclick("left",517,386,2,0)
    EndIf
    
    if $cslot=3 then
        mouseclick("left",721,402,2,0)
        mouseclick("left",721,402,2,0)
    endif
    
    sleep(4000)
    mouseclick("left",763,708,2,0)
    mouseclick("left",763,708,2,0)
endfunc

AutoStall+Login detecting d/c's too (untested the d/c part)
The structure numbering layout of inventory and stall goes from left to right, top to bottom. So slot 0 is top left, slot 3 is top right, slot4 is 1st column, 2nd row and so on. Think of it as reading a book. I made the GUI represent that so you dont have to worry too much if you dont understand as the GUI is shown in a way that you dont really need to know this. But for those of you who would like to modify my script, that is very important.

#include <Array.au3>
#include <GUIConstants.au3>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
dim $SRO_Client="c:\Program Files\Silkroad\sro_client.exe 1234 /18 0 0"
dim $inifile="AS+L.ini"

main($SRO_Client,$inifile)

Func main($SRO_Client,$inifile)
    dim $slots=32
    dim $maxr=8
    dim $maxc=4
    dim $maxstallr=5
    dim $maxstallc=2
    dim $parray[$slots]
    dim $maxstall=10
    dim $sell_number
    dim $count=0
    dim $xinvcount=0
    dim $yinvcount=0
    dim $stallx=0
    dim $stally=0

    ;*** INVENTORY PIXELS ***;
    Dim $xpixels[$maxc]
    Dim $ypixels[$maxr]

    $xpixels[0]=640
    $xpixels[1]=675
    $xpixels[2]=712
    $xpixels[3]=750

    $ypixels[0]=356
    $ypixels[1]=392
    $ypixels[2]=428
    $ypixels[3]=463
    $ypixels[4]=500
    $ypixels[5]=536
    $ypixels[6]=570
    $ypixels[7]=610

    ;*** STALL PIXELS ***;
    Dim $sxpixels[$maxstallc]
    Dim $sypixels[$maxstallr]

    $sxpixels[0]=325
    $sxpixels[1]=535

    $sypixels[0]=270
    $sypixels[1]=320
    $sypixels[2]=360
    $sypixels[3]=400
    $sypixels[4]=440

    dim $guix
    dim $guiy
    dim $i=0
    dim $start_stall_button
    dim $priceboxwidth=75
    dim $priceboxheight=50
    dim $stall_name
    dim $sell_number
    dim $start_stall_button_width=100
    dim $start_stall_button_height=50
    dim $Login_Name
    dim $pw
    dim $cslot

    GUICreate("AutoStall by Clit",300,575)
    GUICtrlCreateGroup("Login Information",5,0,260,75)
    GUICtrlCreateLabel("Login Name:",10,25,75)
    GUICtrlCreateLabel("Password:",10,50,75)
    GUICtrlCreateLabel("Character Slot",175,25,50,30)
    GUICtrlCreateLabel("Stall name:",10,85,75)
    GUICtrlCreateLabel("Number if items being SOLD:",10,105,150)

    if FileExists($inifile) Then
        $Login_Name=IniRead($inifile,"Login", "Login_Name", "Not Found")
        $pw=IniRead($inifile,"Login","Password","Not Found")
        $cslot=IniRead($inifile,"Login","Character_Slot","1")
        $stall_name=IniRead($inifile,"Settings","stall_name","Not Found")
        $sell_number=IniRead($inifile,"Settings","sell_number","Not Found")
        for $i=0 to $slots-1 step 1
            $parray[$i]=IniRead($inifile,"Settings","Slot_" & $i,"Not Found")
        Next
    Else
        for $i=0 to $slots-1 step 1
            $parray[$i]=$i
        Next
    EndIf
    
    $Login_Name=GUICtrlCreateInput($Login_Name,70,20,100)
    $pw=GUICtrlCreateInput($pw,70,45,100)
    $cslot=GUICtrlCreateInput($cslot,225,20,30,30)
    $stall_name=GUICtrlCreateInput($stall_name,70,80,200,20)
    $sell_number=GUICtrlCreateInput($sell_number,150,100,30)

    $i=0
    for $guiy=125 to 500 step 50
        for $guix=0 to 225 step 75
            $parray[$i]=GUICtrlCreateInput($parray[$i],$guix,$guiy,$priceboxwidth,$priceboxheight,$ES_CENTER)
            $i=$i+1
            if $i>$slots-1 Then ExitLoop
        Next
        if $i>$slots-1 Then ExitLoop
    Next

    $start_stall_button=GUICtrlCreateButton("Start Autostall",100,$priceboxheight+$guiy,$start_stall_button_width,$start_stall_button_height)
    GUICtrlSetState(-1,$GUI_FOCUS)
    GUISetState()

    Do    
        $msg=GUIGetMsg()
        If $msg=$start_stall_button Then
            $Login_Name=GUICtrlRead($Login_Name)
            $pw=GUICtrlRead($pw)
            $cslot=GUICtrlRead($cslot)
            $stall_name=GUICtrlRead($stall_name)
            $sell_number=GUICtrlRead($sell_number)
            IniWrite($inifile,"Login","Login_Name",$Login_Name)
            IniWrite($inifile,"Login","Password",$pw)
            IniWrite($inifile,"Login","Character_Slot",$cslot)
            IniWrite($inifile,"Settings","stall_name",$stall_name)
            IniWrite($inifile,"Settings","sell_number",$sell_number)
            if slotCheck($cslot) Then
                main($SRO_Client,$inifile)
            EndIf
            for $i=0 to $slots-1 step 1
                $parray[$i]=GUICtrlRead($parray[$i])
                FileOpen($inifile,1)
                IniWrite($inifile, "Settings","Slot_" & $i,$parray[$i])
                FileClose($inifile)
            Next
            CheckForClient($SRO_Client,$inifile,$Login_Name,$pw,$cslot)
            ;GUIDelete()
            FillStall($stall_name,$maxc,$maxr,$sell_number,$xpixels,$ypixels,$sxpixels,$sypixels,$xinvcount,$yinvcount,$stallx,$stally,$parray,$maxstallc,$maxstallr,$maxstall)
            Exit
        EndIf
    Until $msg=$GUI_EVENT_CLOSE
        Terminate()
EndFunc

Func DC_CHECK($Login_Name,$pw,$cslot)
    if PixelGetColor(366,332)==0x111111 Or PixelGetColor(366,322)==0x000000 Then
        if PixelGetColor(654,332)==0x191919 Then
            MouseClick("left",515,426,1,0)
            sleep(2000)
            Login($SRO_Client,$inifile,$Login_Name,$pw,$cslot)
        EndIf
    EndIf
EndFunc

Func Login($SRO_Client,$inifile,$Login_Name,$pw,$cslot)
    Run($SRO_Client)
    while (PixelGetColor(36,21) <> 0x000000) and (winexists("Error") <> 1) and (winexists("NetError","") <> 1) and (winexists("??????") <> 1)
        sleep(500)
    WEnd
    if winexists("Error") or winexists("NetError","") or winexists("??????") then
        winactivate("Error")
        sleep(200)
        winactivate("NetError","")
        winactivate("??????","")
        sleep(200)
        controlclick("??????","","Button1","Left")
        sleep(200)
        controlclick("Error","", "Button1","Left")
        sleep(200)
        controlclick("NetError","","Button1","Left")
    else
        winactivate("SRO_Client")
        beginlogin($Login_Name,$pw,$cslot)
    endif
EndFunc

func beginlogin($Login_Name,$pw,$cslot)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(700)
    send($Login_Name)
    sleep(700)
    controlsend("SRO_Client","","","{TAB}")
    sleep(700)
    send($pw)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(5000)
    
    while (PixelGetColor(902,605) <> 0x3C301C) and (PixelGetColor(954,137) <> 0x6C4E2E)
        sleep(4000)
        controlsend("SRO_Client","","","{ENTER}")
        DC_CHECK($Login_Name,$pw,$cslot)
    WEnd
    
    if $cslot=1 then
        mouseclick("left",326,369,2,0)
        mouseclick("left",326,369,2,0)
    EndIf
    if $cslot=2 then
        mouseclick("left",517,386,2,0)
        mouseclick("left",517,386,2,0)
    EndIf
    
    if $cslot=3 then
        mouseclick("left",721,402,2,0)
        mouseclick("left",721,402,2,0)
    endif
    
    sleep(4000)
    mouseclick("left",763,708,2,0)
    mouseclick("left",763,708,2,0)
endfunc

Func slotCheck($cslot)
    dim $test
    if ($cslot <> 1) and ($cslot <> 2) and ($cslot <> 3) then
        MsgBox(4096,"AA+L - Error","Invalid Character Slot #")
        $test=1
    endif
    Return $test
EndFunc

Func FillStall($stall_name,$maxc,$maxr,$sell_number,$xpixels,$ypixels,$sxpixels,$sypixels,$xinvcount,$yinvcount,$stallx,$stally,$parray,$maxstallc,$maxstallr,$maxstall)
    dim $invcount=0
    dim $test
    dim $ic
    
    CreateStall($stall_name)
    if ($sell_number > $maxstall) Then
        $test=$maxstall
        $leftover=$sell_number-$test
    Else
        $test=$sell_number
        $leftover=0
    EndIf
    
    while ($invcount < $test)
        activeinv()
        additem($xpixels,$ypixels,$xinvcount,$yinvcount,$sxpixels,$sypixels,$stallx,$stally)
        enterPrices($parray,$invcount)
        
        ;*** TRAVERSE INVENTORY FROM LEFT TO RIGHT / TOP TO BOTTOM ***;
        $xinvcount=$xinvcount+1
        if ($xinvcount >= $maxc) then
            $xinvcount=0
            $yinvcount=$yinvcount+1
        endif
        
        ;*** TRAVERSE STALL FROM LEFT TO RIGHT / TOP TO BOTTOM ***;
        $stallx=$stallx+1
        if ($stallx >= $maxstallc) then
            $stallx=0
            $stally=$stally+1
            if ($stally >= $maxstallr) then
                $stally=0
            endif
        endif
        
        $invcount = $invcount+1      
    WEnd
    
    OpenModifyStall()
    if ($leftover > 0) Then
        CheckStall($maxc,$maxr,$sell_number,$xpixels,$ypixels,$sxpixels,$sypixels,$xinvcount,$yinvcount,$stallx,$stally,$parray,$maxstallc,$maxstallr,$leftover)
    Else
        Congrats()
        Terminate()
    EndIf
EndFunc
    
Func CheckStall($maxc,$maxr,$sell_number,$xpixels,$ypixels,$sxpixels,$sypixels,$xinvcount,$yinvcount,$stallx,$stally,$parray,$maxstallc,$maxstallr,$leftover)
    $stallx=0
    $stally=0
    dim $invcount=0
    while ($invcount < $leftover)
        if (PixelGetColor($sxpixels[$stallx],$sypixels[$stally]) <> 0x000000) and (PixelGetColor($sxpixels[$stallx],$sypixels[$stally]) <> 0x080808) then
            $stallx=$stallx+1
        Else
            OpenModifyStall()
            additem($xpixels,$ypixels,$xinvcount,$yinvcount,$sxpixels,$sypixels,$stallx,$stally)
            enterPrices($parray,$invcount)
            $invcount=$invcount+1
            OpenModifyStall()
            sleep(100)
            ;*** TRAVERSE INVENTORY FROM LEFT TO RIGHT / TOP TO BOTTOM ***;
            $xinvcount=$xinvcount+1
            if ($xinvcount >= $maxc) then
                $xinvcount=0
                $yinvcount=$yinvcount+1
            endif
        EndIf
        
        ;*** TRAVERSE STALL FROM LEFT TO RIGHT / TOP TO BOTTOM ***;
        $stallx=$stallx+1
        if ($stallx >= $maxstallc) then
            $stallx=0
            $stally=$stally+1
            if ($stally >= $maxstallr) then
                $stally=0
            endif
        endif
    WEnd
EndFunc

Func CreateStall($stall_name)
    winactivate("SRO_Client")
    sleep(4000)
    
    ;*** CREATE STALL ***;
    controlsend("SRO_Client","","","{0}")
    mouseclick("left",429,219,2)
    
    ;*** DELETE STALL NAME ***;
    dim $c
    while ($c < 25)
        controlsend("SRO_Client","","","{BACKSPACE}")
        $c=$c+1
    wend
    
    ;*** ENTER STALL NAME ***;
    send($stall_name)
    controlsend("SRO_Client","","","{ENTER}")
EndFunc

Func OpenModifyStall()
    ;*** Open/Modify STALL***;
    mouseclick("left",696,202,1)   
    sleep(500)
EndFunc

Func activeinv()
    ;*** INVENTORY ACTIVATION ***;
    mouseclick("left",827,282,1)
    sleep(500)
EndFunc

Func additem($xpixels,$ypixels,$xinvcount,$yinvcount,$sxpixels,$sypixels,$stallx,$stally)
    ;*** CLICK ON INV ITEM ***;
    mouseclick("left",$xpixels[$xinvcount],$ypixels[$yinvcount],1)
    sleep(500)
    
    ;*** DROP ITEM IN STALL ***;
    mouseclick("left",$sxpixels[$stallx],$sypixels[$stally],1)
    sleep(500)
EndFunc

Func enterPrices($parray,$invcount)
    send($parray[$invcount])
    sleep(600)
    controlsend("SRO_Client","","","{ENTER}")
EndFunc

Func CheckForClient($SRO_Client,$inifile,$Login_Name,$pw,$cslot)
    if (winexists("SRO_Client") <> 1) then
        $window=inputbox("AUTOSTALL - SILK WINDOW DOESN'T EXIST","Run Autologin.au3?" & @CRLF & "1 - yes" &  @CRLF & "2 - no")
        if ($window == 1) then
            Login($SRO_Client,$inifile,$Login_Name,$pw,$cslot)
        else
            Terminate()
        endif
    endif
EndFunc

Func Congrats()
    MsgBox(0,"Autostall - Congrats","All items sold or still in stall")
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    while ($Paused)
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    wend
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

AutoAttacker+Login detects Pink Monsters and d/c's while rejecting trade windows, and party windows.
Use 9 for AutoAttack Action and 3 for imbue or visa versa (these two skills are spammed). To ad more skills to spam, just copy the two lines of code stating:

        Send("9")
        sleep(500)

and replace the 9 with whatever skill # yours is. You MUST put these in the visible belt or they will not be spammed.

WinActivate("SRO_Client")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
dim $inifile="AA+L.ini"
dim $SRO_Client="c:\Program Files\Silkroad\sro_client.exe 1234 /18 0 0"

if FileExists($inifile) Then
    $login=IniRead($inifile,"Login","Login_Name","Not Found")
    $pw=IniRead($inifile,"Login","Password","Not Found")
    $cslot=IniRead($inifile,"Login","Character_Slot","Not Found")
Else
    $login=inputbox("Restarter","Give Login:")
    if @error then Exit
    $pw=inputbox("Restarter","Give Password:")
    if @error then Exit
    $cslot=inputbox("Restarter","Give Character Slot:")
    if @error then Exit
    FileOpen($inifile,2)
    IniWrite($inifile, "Login", "Login_Name", $login)
    IniWrite($inifile, "Login", "Password", $pw)
    IniWrite($inifile, "Login", "Character_Slot", $cslot)
    FileClose($inifile)
EndIf

if ($cslot <> 1) and ($cslot <> 2) and ($cslot <> 3) then
    MsgBox(4096,"AA+L - Error","Invalid Character Slot #")
    Terminate()
endif
while 1=1
    if WinExists("SRO_Client") <> 1 Then
        Login($login,$pw,$cslot)
    Else
        fight()
    EndIf
wend

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func DC_CHECK()
    if PixelGetColor(366,332)==0x111111 Or PixelGetColor(366,322)==0x000000 Then
        if PixelGetColor(654,332)==0x191919 Then
            MouseClick("left",515,426,1,0)
            sleep(2000)
            Login($login,$pw,$cslot)
        EndIf
    EndIf
EndFunc

Func Attack($coord)
    MouseClick("left",$coord[0]+20,$coord[1]+10,2,0)
    Sleep (400)
    While PixelGetColor(460,24) == 0x151715
        Send("9")
        sleep(500)
        send("3")
        sleep(500)
    WEnd
EndFunc

Func fight()
    ;test for trade/party window
    if PixelGetColor(366,332)==0x111111 and PixelGetColor(654,332)==0x191919 Then
        MouseClick("left",550,424,1,0)
        sleep(1000)
        ;test for ingame d/c window
        DC_CHECK()
    Else
        $coord = PixelSearch(3,83, 1022,679, 0x8E00B3, 50,2)
        If Not @error Then
            Attack($coord)
        Else
            $coord=PixelSearch(3,83, 1022,679, 0xFF00FF, 50,2)
            If Not @error Then
                Attack($coord)
            EndIf
        EndIf
        send ("g")
        sleep(500)
        MouseClickDrag("right", 640, 323, 340, 323)
        send ("g")
    EndIf
EndFunc


Func Login($login,$pw,$cslot)
    Run($SRO_Client)
    ;;;; CHECK FOR LOGIN SCREEN OPEN WITH NO ERRORS ;;;;
    ;;;; PIXEL LOCATION ON TOP LEFT DESIGN ;;;;
    while (PixelGetColor(36,21) <> 0x000000) and (winexists("Error") <> 1) and (winexists("NetError","") <> 1) and (winexists("??????") <> 1)
        sleep(500)
    WEnd
    if winexists("Error") or winexists("NetError","") or winexists("??????") then
        winactivate("Error")
        sleep(200)
        winactivate("NetError","")
        winactivate("??????","")
        sleep(200)
        controlclick("??????","","Button1","Left")
        sleep(200)
        controlclick("Error","", "Button1","Left")
        sleep(200)
        controlclick("NetError","","Button1","Left")
    else
        winactivate("SRO_Client")
        beginlogin($login,$pw,$cslot)
    endif 
EndFunc

func beginlogin($login,$pw,$cslot)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(700)
    send($login)
    sleep(700)
    controlsend("SRO_Client","","","{TAB}")
    sleep(700)
    send($pw)
    sleep(700)
    controlsend("SRO_Client","","","{ENTER}")
    sleep(5000)
    
    while (PixelGetColor(902,605) <> 0x3C301C) and (PixelGetColor(954,137) <> 0x6C4E2E)
        sleep(4000)
        controlsend("SRO_Client","","","{ENTER}")
        DC_CHECK()
    WEnd
    
    if $cslot=1 then
        mouseclick("left",326,369,2)
        mouseclick("left",326,369,2)
    EndIf
    if $cslot=2 then
        mouseclick("left",517,386,2)
        mouseclick("left",517,386,2)
    EndIf
    
    if $cslot=3 then
        mouseclick("left",721,402,2)
        mouseclick("left",721,402,2)
    endif
    
    sleep(4000)
    mouseclick("left",763,708,2)
    mouseclick("left",763,708,2)
    
    SoundPlay("C:\Windows\media\notify.wav")
    sleep(7000)
    MouseClick("left",11,705,1)
    sleep(300)
    MouseClick("left",11,705,1)
    sleep(300)
    MouseClick("left",11,705,1)
    sleep(300)
    MouseClick("left",11,705,1)
    sleep(300)
    MouseClick("left",11,705,1)
    sleep(300)
    MouseClickDrag("right",525,190,525,390)
    sleep(300)
    MouseWheel("down",10)
endfunc

[argenteyez]

can someone explain hwo to get the color of a pixel

if (PixelGetColor(412,208) = 181008) then

and what kind of color form is it?, rgb? html? etc

[VitaminC++]

in the auto it active window info look where it says pixel color under mouse theres Hex and Dec the code that you have posted is useing the Dec

[nbourg8]

Originally Posted by argenteyez

can someone explain hwo to get the color of a pixel

if (PixelGetColor(412,208) = 181008) then

and what kind of color form is it?, rgb? html? etc

What? Why you asking something like that in my thread? That code has nothing to do with my code nor this topic so please ask somewhere else or make your own thread.

And so you dont have to respond to this reply, to answer your question about that 6 digit code, it is in Dec form. If it contained 0x on the front like 0x181008, then it would be hex but its not. Autoit doesn't recognize rgb but does recognize octal. If you use Autoit Window Info tool, you can move your mouse to that location and see what the hex color would be, otherwise, don't bother asking us unless it came from OUR thread.

[SHaW]

nbourg don't use big text in regular posts.

[nbourg8]

Well, while your fixing the quick edit feature, you can remove the font size control.

A great man once said "Dont give man what he cannot handle"