Sign in to follow this  
Followers 0
Aceguy

FFXI CRAFTING BOT

5 posts in this topic

Its not perfect but give it a go.

(dont carry any expensive items, wouldnt want it to drop them, tho its never happened to me)

Done lots and lots and lots of testing.....

you may have to change the pixel detection for the 6 crystal types.....

Any comments or suggestion.........

i also have a summoner bot which detcts low mp then rest till full then carrys on casting and casting and casting......... if your a SMN youll know what i mean..

Just a quick question is anyone can answer, why do i have to click 1x on top combo then 2x on one undernearth to bring up list (maybe once to activate it then another to bring up list)

one last thing, a B I G thanks to all who helped me within these forums, i couldnt have done it without your help THANKS YOU.

AutoItSetOption("SendKeyDelay", 45);
AutoItSetOption("SendKeyDownDelay", 45);





Global Const $WM_COMMAND    = 0x0111
Global Const $LBN_SELCHANGE = 1
Global Const $LBN_DBLCLK    = 2


#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <Guilist.au3>
#include <Guicombo.au3>
#Include <Misc.au3>

Dim $Lastselected = ""
Dim $IniFile = @MyDocumentsDir & "\Recipes.ini"
$op = FileOpen($IniFile, 0)
If $op = -1 Then
    msgbox (0,"PLEASE READ","This proram does not read or alter any FFXI files in anyway, however this is a bot program that reads the information on the screen. "&@CRLF&"Having said that please ensure you have Windower installed and running at 800x600 res. ENJOY",0)
    MsgBox(0, "", "Recipes File Not Found, Creating One", 2)
    
    If Not IsDeclared("sInputBoxAnswer") Then Dim $sInputBoxAnswer
    $sInputBoxAnswer = InputBox("Inventory Slots", "How many item slots do you have." & @CRLF, "", " ", "200", "100", "-1", "-1")
    Select
        Case @error = 0;OK - The string returned is valid
            
        Case @error = 1;The Cancel button was pushed
            
        Case @error = 3;The InputBox failed to open
            
    EndSelect
    
    
    IniWrite($IniFile, 'New', '', '')
    IniWrite($IniFile, 'Config', 0, $sInputBoxAnswer)
    MsgBox(0, "Learnin you Auction House Code", "Please ensure your but the A.H. and you have it targeted then click ok", 0)
    Sleep(1000)
    
    Dim $avArray[6], $I = 0
    
    
    $c = 0
    For $I = 0 To 5
        
        $avArray[$I] = PixelGetColor(681 + $c, 539)
        $c = $c + 1
    Next
    $sArrayString = _ArrayToString($avArray, "|")
    IniWrite($IniFile, 'Config', 1, $sArrayString)
    
    MsgBox(0,"","please use a crystal and Click ONCE in the Top left of the first box .Center.",0)
    
    While 1
    sleep(200)
    If _IsPressed(01) Then
      $m_pos= MouseGetPos()
       MsgBox(0,"",$m_pos[0]&"  "&$m_pos[1],0)
       
    IniWrite($IniFile,'Config',2,$m_pos[0])
   IniWrite($IniFile,'Config',3,$m_pos[1])
 ExitLoop  
  EndIf
WEnd

    
    
EndIf


Dim $inifile3 = @MyDocumentsDir & "\Locations.ini"
$op3 = FileOpen($inifile3, 0)
If $op3 = -1 Then
    MsgBox(0, "", "Locations File Not Found, Creating One", 2)
    FileWrite($inifile3, '[New]')
EndIf









Dim $Inifile2 = @MyDocumentsDir & "\Chars.ini"
$op2 = FileOpen($Inifile2, 0)
If $op2 = -1 Then
    MsgBox(0, "", "Chars File Not Found, Creating One", 2)
    FileWrite($Inifile2, '[New]')
EndIf

Global $number_gui, $rec, $chbx, $pice

$Form1 = GUICreate("FFXI", 175, 425, 850, 150)
GUISetBkColor(0x555555)
$Go = GUICtrlCreateButton("Synth Recipie", 10, 75, 75, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$show_recipie = GUICtrlCreateButton("EDIT", 95, 75, 75, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)

$Recipie = GUICtrlCreateCombo("New", 10, 40, 160, 250, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetFont(-1, 12)



$checkCN = GUICtrlCreateCheckbox("Image Sup.", 10, 125)
GUICtrlSetColor($checkCN,0xffffff)

GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetFont(-1, 8)
$auto_sort2 = GUICtrlCreateCheckbox("Auto Sort", 100, 125)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetColor(-1,0xffffff)
$as = GUICtrlRead($auto_sort2)
GUICtrlSetFont(-1, 8)

$AH_seller = GUICtrlCreateButton("Sell", 10, 155, 75, 20)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Qty_synth = GUICtrlCreateInput(0, 10, 105, 50, 20, $ES_NUMBER)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetBkColor(-1, 0xff0000)
GUICtrlCreateLabel("Qty to Synth", 65, 105, 100, 20)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetFont(-1, 12)
GUICtrlSetColor(-1,0xffffff)

$ah_price = GUICtrlCreateInput(0, 130, 155, 35, 20, $ES_NUMBER)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
ControlDisable($Form1, "", $ah_price)
GUICtrlSetBkColor($ah_price, 0xffffff)
GUICtrlCreateLabel("Price", 90, 160)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetFont(-1, 11)
GUICtrlSetColor(-1,0xffffff)
$wait_sell = GUICtrlCreateInput(0, 10, 185, 50, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$wait_sell_updn = GUICtrlCreateUpdown($wait_sell, $UDS_ALIGNRIGHT)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetLimit($wait_sell_updn, 60, 0)
GUICtrlCreateLabel("Mins, 0=Do 1x only", 65, 190)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetColor(-1,0xffffff)
$recent = GUICtrlCreateList("", 10, 220, 155, 160, BitOR($WS_BORDER, $WS_VSCROLL,$WS_HSCROLL))
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetFont(-1, 10)
GUICtrlCreateLabel("Log Window, Recent at Bottom", 10, 375)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetColor(-1,0xffffff)
$ins = GUICtrlCreateButton("Show Ingred", 10, 400, 75, 20)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$craft = GUICtrlCreateButton("Craft Help", 90, 400, 75, 20)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetTip(-1, "Inv. Sort")

$Invent_tracker = GUICtrlCreateButton("Inv. Tracker", 10, 10, 80, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)

$Guild = GUICtrlCreateCombo("Guild", 100, 10, 70, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetData($Guild, "Cooking|Woodworking|Alchemy|Goldsmithing|Clothcraft|Bonecraft")

$craft_size = 0
$IT_size_1 = 0

GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUISetState()

While 1
    $msg = GUIGetMsg()
    
    Select
          Case $msg = $recent
        $Selected = GUICtrlRead ( $recent )
        
        Case $msg = $Invent_tracker
            If $IT_size_1 = 0 Then
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], $size_main[2] + $size_main[2] + 50)
                $IT_size_1 = 1
                ControlDisable($Form1, "", $Recipie)
                ControlDisable($Form1, "", $show_recipie)
                ControlDisable($Form1, "", $Go)
                Itracker()
            Else
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], ($size_main[2] - 50) / 2)
                $IT_size_1 = 0
                ControlEnable($Form1, "", $show_recipie)
                ControlEnable($Form1, "", $Go)
                ControlEnable($Form1, "", $Recipie)
            EndIf
            
        Case $msg = $Qty_synth
            $q = GUICtrlRead($Qty_synth)
            If $q = 0 Then
                GUICtrlSetBkColor($Qty_synth, 0xff0000)
            Else
                GUICtrlSetBkColor($Qty_synth, 0xffffff)
            EndIf
        Case $msg = $auto_sort2
            $as = GUICtrlRead($auto_sort2)
            
        Case $msg = $Guild
            GUICtrlSetData($Recipie, "")
            
    $var = IniReadSectionNames($IniFile)
            _ArraySort($var, 0, 1)
            For $i_n = 1 To $var[0]
                If $var[$i_n] <> "Config" Then
                    $gn = IniRead($IniFile, $var[$i_n], 0, "")
                    $g_n = StringSplit($gn, '|')
                    if not @error then
                    
                    If $g_n[4] = "N/A" Then
                        $gn = IniRead($IniFile, $var[$i_n], 1, "")
                        $g_n = StringSplit($gn, '|')
                    EndIf
                    If $g_n[4] = GUICtrlRead($Guild) Then
                        GUICtrlSetData($Recipie, $var[$i_n], "")
                    EndIf
                    EndIf
                EndIf
            Next
        
        Case $msg = $Recipie  ;recipe editor
            
            
            
            $rec = GUICtrlRead($Recipie)
            $it_found_sell = 0
            $it_found_synth = 0
            For $var_split = 0 To 10
                
                $info_split = IniRead(@MyDocumentsDir & "\Recipes.ini", $rec, $var_split, "")
                
                $splt = StringSplit($info_split, "|")
                
                If @error = 0 Then
                    
                    $id_crystal_ini = $splt[1]
                    If $id_crystal_ini = "Sell" Then
                        $price = $splt[5]
                        $it_found_sell = 1
                        GUICtrlSetData($ah_price, $price)
                    ElseIf $id_crystal_ini <> "Sell" Then
                        $it_found_synth = 1
                        
                        GUICtrlSetState($AH_seller, $GUI_ENABLE)
                    EndIf
                EndIf
            Next
            
            If $it_found_sell = 0 Then
                
                GUICtrlSetState($AH_seller, $GUI_DISABLE)
                GUICtrlSetData($ah_price, 0)
            EndIf
            If $it_found_synth = 0 Then
                GUICtrlSetState($Go, $GUI_DISABLE)
            Else
                GUICtrlSetState($Go, $GUI_ENABLE)
            EndIf
            
            
            
            
            
        Case $msg = $show_recipie
            ControlDisable($Form1, "", $Invent_tracker)
            $edit_state = GUICtrlSetData($show_recipie, "Close Editor")
            $size_main = WinGetPos("FFXI")
            WinMove("FFXI", "", $size_main[0], $size_main[1], $size_main[2] + $size_main[2] + 50)
            If $craft_size = 1 Then
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], $size_main[2], $size_main[3] - 150)
                GUICtrlDelete($c_help)
                $craft_size = 0
            EndIf
            recipies_add()
            
        Case $msg = $checkCN
            $chbx = GUICtrlRead($checkCN)
            
            
            
            
        Case $msg = $craft
            If $craft_size = 0 Then
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], $size_main[2], $size_main[3] + 150)
                $c_help = GUICtrlCreatePic( "C:\Documents and Settings\Us\My Documents\My Pictures\image1.jpg", 15, 430, 140, 140)
                GUICtrlSetResizing(-1, $GUI_DOCKALL)
                $craft_size = 1
            ElseIf $craft_size = 1 Then
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], $size_main[2], $size_main[3] - 150)
                
                GUICtrlDelete($c_help)
                $craft_size = 0
            EndIf
            
            
            
            
        Case $msg = $AH_seller
        ;************************************************************************************************
***********
        ;*************************************  START OF SELL       *********************************************
        ;************************************************************************************************
***********
            GUICtrlSetData($recent, "")
            $time_at_start = GUICtrlRead($wait_sell)
            
            GUICtrlSetData($recent, "Please ensure your by the AH|")
            Do
                
                
                
                $rec = GUICtrlRead($Recipie)
                
                
                
                For $var_split = 0 To 10
                    
                    $info_split = IniRead(@MyDocumentsDir & "\Recipes.ini", $rec, $var_split, "")
                    
                    $splt = StringSplit($info_split, "|")
                    
                    If @error = 0 Then
                        
                        $id_crystal_ini = $splt[1]
                        $price = $splt[5]
                        GUICtrlSetData($ah_price, $price)
                        $id_read1 = $splt[6]
                        $id_read2 = $splt[7]
                        $id_read3 = $splt[8]
                        
                        If $id_crystal_ini = "Sell" Then
                            
                            
                            
                            If $price = 0 Then
                                GUICtrlSetData($recent, "Price not set|")
                            ElseIf $rec = "" Then
                                GUICtrlSetData($recent, "Recipie Not Selected|")
                            Else
                                Sleep(1000)
                                MouseMove(275, 15, 0)
                                Sleep(200)
                                MouseDown("Left")
                                Sleep(200)
                                MouseUp("left")
                                Sleep(1000)
                                
                                
                                $items = 7
                                $finish = 0
                                $line = 1
                                $yelow = 0
                                $ypix = 86
                                $sold = 0
                                
                                
                                Send("{f8}")
                                Sleep(2000)
                                
                                $c = 0
                                $sell_start = 0
                                $in = IniRead($IniFile, "Config", 1, "")
                                $insplit = StringSplit($in, "|")
                                For $I = 1 To 6
                                    If PixelGetColor(681 + $c, 539) = $insplit[$I]Then
                                        $sell_start = $sell_start + 1
                                    EndIf
                                    $c = $c + 1
                                Next
                                
                                
                                
                                If $sell_start = 6 Then
                                    Sleep(1500)
                                    Send("{enter}")
                                    Sleep(1500)
                                    MouseMove(735, 123)
                                    Sleep(700)
                                    MouseDown("left")
                                    MouseUp("left")
                                    Sleep(2000)
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Send("{up}")
                                    Sleep(500)
                                    $noitems = PixelSearch(59, 103, 275, 136, 16750261, 0, 2)
                                    If Not $noitems Then
                                        $yelow = 7
                                    EndIf
                                    
                                    
                                    
                                    
                                    If $yelow = 0 Then
                                        Do
                                            Sleep(500)
                                            
                                            $items = PixelSearch(43, $ypix, 63, $ypix + 11, 12234894, 20)
                                            $gill = PixelSearch(292, $ypix, 299, $ypix + 11, 10588827, 10)
                                            If Not $items Then
                                                
                                                $yelow = $yelow + 1
                                                $line = $line + 1
                                                Send("{enter}")
                                                Sleep(1000)
                                            ElseIf $gill Then
                                                
                                                $yelow = $yelow + 1
                                                Sleep(200)
                                                Send("{down}")
                                                $line = $line + 1
                                                $ypix = $ypix + 18
                                            Else
                                                
                                                Send("{down}")
                                                $line = $line + 1
                                                $ypix = $ypix + 18
                                            EndIf
                                            
                                        Until $line = 8
                                    EndIf
                                    GUICtrlSetData($recent, $yelow & " Items Found!!!|")
                                    
                                    
                                    If $yelow > 0 Then
                                        Sleep(500)
                                        Send("{esc}")
                                        Sleep(500)
                                        Send("{up}")
                                        Sleep(500)
                                        Send("{enter}")
                                        Sleep(750)
                                        $line = 1
                                        GUICtrlSetData($recent, "searching for " & $rec & "|")
                                        Do
                                            
                                            If PixelGetColor(38, 447) = $id_read1 And PixelGetColor(34, 460) = $id_read2 And PixelGetColor(51, 449) = $id_read3 Then
                                                GUICtrlSetData($recent, "Found it!!|")
                                                Sleep(500)
                                                Send("{enter}")
                                                Sleep(500)
                                                PixelSearch(26, 562, 34, 608, 16736644, 10)
                                                If @error = 1 Then
                                                    $splt_price = StringSplit($price, "")
                                                    
                                                    $ct = $splt_price[0] - 1
                                                    Do
                                                        Send("{LEFT}")
                                                        $ct = $ct - 1
                                                    Until $ct = 0
                                                    
                                                    
                                                    $ct = $splt_price[0]
                                                    For $xp = 1 To $splt_price[0]
                                                        $c = $splt_price[$xp]
                                                        If $c > 0 Then
                                                            Do
                                                                Send("{UP}")
                                                                $c = $c - 1
                                                            Until $c = 0
                                                        EndIf
                                                        
                                                        $ct = $ct - 1
                                                        If $ct > 0 Then
                                                            Send("{RIGHT}")
                                                        EndIf
                                                        
                                                    Next
                                                    
                                                    $yelow = $yelow - 1
                                                    
                                                    Send("{enter}")
                                                    Sleep(750)
                                                    Send("{up}")
                                                    Sleep(500)
                                                    Send("{enter}")
                                                    Sleep(1500)
                                                    Send("{left}")
                                                    Sleep(200)
                                                    Send("{enter}")
                                                    Sleep(500)
                                                    Send("{left}")
                                                    Sleep(200)
                                                    Send("{enter}")
                                                    Sleep(1500)
                                                    $sold = $sold + 1
                                                    If $yelow > 0 Then
                                                        Send("{enter}")
                                                        Sleep(1000)
                                                        $line = 1
                                                    EndIf
                                                Else
                                                    GUICtrlSetData($recent, "ERROR!|")
                                                    $yelow = 0
                                                    Sleep(1000)
                                                    Send("{esc}")
                                                    Send("{esc}")
                                                EndIf
                                            Else
                                                Send("{down}")
                                                $line = $line + 1
                                                
                                            EndIf
                                        Until $yelow = 0 Or $line > IniRead($IniFile, "Config", 0, "")
                                        
                                        
                                    EndIf
                                    Sleep(1000)
                                    Send("{esc}")
                                    Send("{esc}")
                                    
                                    
                                    
                                    Sleep(1000)
                                    
                                    
                                    
                                Else
                                    GUICtrlSetData($recent, "Auction house not found!|")
                                EndIf
                                
                                
                            EndIf
                            
                            
                        EndIf
                        
                    EndIf
                Next
                
                $time_new = GUICtrlRead($wait_sell)
            ;------------------------------
            ;-------------------------------
                $rec = GUICtrlRead($Recipie)
                $it_found_sell = 0
                $it_found_synth = 0
                For $var_split = 0 To 10
                    
                    $info_split = IniRead(@MyDocumentsDir & "\Recipes.ini", $rec, $var_split, "")
                    
                    $splt = StringSplit($info_split, "|")
                    
                    If @error = 0 Then
                        
                        $id_crystal_ini = $splt[1]
                        If $id_crystal_ini = "Sell" Then
                            $price = $splt[5]
                            $it_found_sell = 1
                            GUICtrlSetData($ah_price, $price)
                        ElseIf $id_crystal_ini <> "Sell" Then
                            $it_found_synth = 1
                            
                            GUICtrlSetState($AH_seller, $GUI_ENABLE)
                        EndIf
                    EndIf
                Next
                
                If $it_found_sell = 0 Then
                    
                    GUICtrlSetState($AH_seller, $GUI_DISABLE)
                    GUICtrlSetData($ah_price, 0)
                EndIf
                If $it_found_synth = 0 Then
                    GUICtrlSetState($Go, $GUI_DISABLE)
                Else
                    GUICtrlSetState($Go, $GUI_ENABLE)
                EndIf
            ;----------------------------------
            ;-----------------------------------
                Do
                    If $time_at_start > 0 And $line < IniRead($IniFile, "Config", 0, "") Then
                        GUICtrlSetData($recent, "")
                        GUICtrlSetData($recent, "!!!Timer Active!!!")
                        Sleep(60000)
                        $time_new = $time_new - 1
                        GUICtrlSetData($wait_sell, $time_new)
                    EndIf
                Until $time_new = 0 Or $line > IniRead($IniFile, "Config", 0, "")
                $time_new = $time_at_start
                GUICtrlSetData($wait_sell, $time_new)
                If $line > IniRead($IniFile, "Config", 0, "") Then
                    GUICtrlSetData($recent, "Not Found!!!")
                EndIf
                
                
            Until $time_new = 0 Or $line > IniRead($IniFile, "Config", 0, "")
            
            
            
        ;************************************************************************************************
***********
        ;***********************             END OF SELL                 *******************************************
        ;************************************************************************************************
***********
            
        Case $msg = $Go
        ;************************************************************************************************
***********
        ;***********************            START OF SYNTH             *******************************************
        ;************************************************************************************************
***********
            GUICtrlSetData($recent, "")
            $number_gui = GUICtrlRead($Qty_synth)
            $rec = GUICtrlRead($Recipie)
            ControlDisable($Form1, "", $Invent_tracker)
            ControlDisable($Form1, "", $show_recipie)
            If $number_gui = 0 Then
                GUICtrlSetData($recent, "You Can't Have 0 Synths|")
            ElseIf $rec = "" Then
                GUICtrlSetData($recent, "Recipie Not Selected|")
            Else
                GUICtrlSetData($recent, "Synthing " & $rec & " |")
                $end = 0
                $synthdone = 0
                
                $mousex = (IniRead($IniFile,'Config',2,"")-33)
                $mousey = IniRead($IniFile,'Config',3,"")
                $finish = 0
                
                
                Do
                    $cry = 0
                    $terminate = 0
                    $line = 1
                    
                    
                    Sleep(1000)
                    MouseMove(275, 15, 0)
                    Sleep(500)
                    MouseDown("Left")
                    Sleep(200)
                    MouseUp("left")
                    Sleep(1000)
                    
                ;check for image support
                    
                    If $chbx = 1 Then
                        $imsupp = PixelSearch(152, 86, 200, 98, 12697367, 1)
                        If $imsupp Then
                            Send("{F8}")
                            Sleep(500)
                            Send("{enter}")
                            Sleep(2000)
                            Send("{up}")
                            Sleep(200)
                            Send("{up}")
                            Sleep(200)
                            Send("{enter}")
                            Sleep(200)
                            Send("{up}")
                            Sleep(200)
                            Send("{enter}")
                            Sleep(200)
                            Send("{enter}")
                            Sleep(5000)
                        EndIf
                    EndIf
                    
                    invent()
                    
                    For $var_split = 0 To 10
                        
                        $info_split = IniRead(@MyDocumentsDir & "\Recipes.ini", $rec, $var_split, "")
                        $splt = StringSplit($info_split, "|")
                        If @error = 0 And $line < IniRead($IniFile, "Config", 0, "") And $cry <= 1 Then
                            
                            $id_crystal_ini = $splt[1]
                            $id_name_ini = $splt[2]
                            $no = $splt[3]
                            $id_read1 = $splt[5]
                            $id_read2 = $splt[6]
                            $id_read3 = $splt[7]
                            $id_read4 = $splt[8]
                            
                            If $id_crystal_ini <> "Sell" Then
                                
                                
                                If $cry = 0 Then
                                    If $id_crystal_ini = "Water" Then
                                        $idc = 11985151
                                    ElseIf $id_crystal_ini = "Fire" Then
                                        $idc = 13139580
                                    ElseIf $id_crystal_ini = "Dark" Then
                                        $idc = 395526
                                    ElseIf $id_crystal_ini = "Ice" Then
                                        $idc = 7120889
                                    ElseIf $id_crystal_ini = "Earth" Then
                                        $idc = 12892794
                                    ElseIf $id_crystal_ini = "Wind" Then
                                        $idc = 8174435
                                    ElseIf $id_crystal_ini = "Lightning" Then
                                        $idc = 13613032
                                    EndIf
                                    If $cry < 4 Then
                                        addcrystal()
                                    EndIf
                                    If $cry = 1 Then
                                        additem()
                                    EndIf
                                Else
                                    If $cry < 4 Then
                                        additem()
                                    EndIf
                                EndIf
                            Else
                                $terminate = 1
                            EndIf
                        EndIf
                        
                        
                    Next
                    
                    
                    If $line <= IniRead($IniFile, "Config", 0, "") - 1 And $cry = 1 Then
                        MouseMove(177, 117, 2)
                        Sleep(500)
                        MouseDown("left")
                        Sleep(300)
                        MouseUp("left")
                        Sleep(20000)
                        Send("{esc}")
                        Send("{esc}")
                        Send("{esc}")
                        $mousex = IniRead($IniFile,'Config',2,"")-33
                        $mousey = IniRead($IniFile,'Config',3,"")
                        $number_gui = $number_gui - 1
                        GUICtrlSetData($Qty_synth, $number_gui)
                        GUICtrlSetData($recent, "")
                        If $as = 1 Then
                            inventory_sort()
                        EndIf
                    Else
                        Send("{esc}")
                        Send("{esc}")
                        Send("{enter}")
                        Sleep(500)
                        Send("{esc}")
                        Send("{esc}")
                        Sleep(250)
                        If $cry = 2 Then
                            GUICtrlSetData($recent, "Ran out of " & $id_crystal_ini & " Crystals|")
                        ElseIf $cry = 3 Then
                            GUICtrlSetData($recent, "Crystal Found, but Inv. Full|")
                            Send("^s{enter}")
                        ElseIf $terminate = 1 And $cry = 0 Then
                            GUICtrlSetData($recent, "Not A Synthable Recipie")
                        Else
                            GUICtrlSetData($recent, "Out of " & $id_name_ini & "'s|")
                        EndIf
                        SoundPlay("C:\Windows\media\Windows Xp Critical Stop.wav")
                        $mousex = IniRead($IniFile,'Config',2,"")
                        $mousey = IniRead($IniFile,'Config',3,"")
                    EndIf
                    
                Until $number_gui = 0 Or $line >= IniRead($IniFile, "Config", 0, "") Or $cry = 0 Or $cry >= 2
                
            EndIf
            ControlEnable($Form1, "", $Invent_tracker)
            ControlEnable($Form1, "", $show_recipie)
            $q = GUICtrlRead($Qty_synth)
            If $q = 0 Then
                GUICtrlSetBkColor($Qty_synth, 0xff0000)
            EndIf
            
        ;************************************************************************************************
***********
        ;***********************                 END OF SYNTH           *******************************************
        ;************************************************************************************************
***********
        Case $msg = $GUI_EVENT_CLOSE Or $msg = -3
            GUIDelete()
            ExitLoop
        Case $msg = $ins
            $rec = GUICtrlRead($Recipie)
            $inientry = IniReadSection($IniFile, $rec)
            GUICtrlSetData($recent, "")
            
            If Not IsArray($inientry) Then
                GUICtrlSetData($recent, "No Data!!!")
            Else
                $Ingred = 0
                $Ingred_2 = 0
                $ingred_3 = 0
                $a = IniRead($IniFile, $rec, 0, "")
                $aa = StringSplit($a, "|")
                If $aa[1] = "Sell" Then
                    $a = IniRead($IniFile, $rec, 1, "")
                    $aa = StringSplit($a, "|")
                EndIf
                GUICtrlSetData($recent, $aa[1] & " Crystal")
                
                For $I = 1 To $inientry[0][0]
                    $string_split= (StringSplit($inientry[$I][1], "|"))
                    
                    If $string_split[1] <> "Sell" Then
                        GUICtrlSetData($recent, $string_split[3] & " x " & $string_split[2])
                        $Ingred_2 = $Ingred_2 + 1
                        
                    Else
                        $Ingred = $Ingred + 1
                    EndIf
                Next
                If $Ingred = 1 And $Ingred_2 = 0 Then
                    GUICtrlSetData($recent, "Not a Recipie")
                EndIf
                
            EndIf
    EndSelect
WEnd


;**********************************************************************************
;**************************  FUNCTIONS     ***********************************
;**********************************************************************************
Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    $nNotifyCode    = BitShift($wParam, 16)
    $nID            = BitAnd($wParam, 0x0000FFFF)
    $hCtrl        = $lParam
    
    If $nID = $recent Then
        Switch $nNotifyCode                 
            Case $LBN_DBLCLK
               doubleclick()
                           
            
Return 0
        EndSwitch
    EndIf
EndFunc

func doubleclick()

    $Selected = GUICtrlRead ($recent)
    $read_double=StringSplit($Selected," ")

if $read_double[0] >2 then

for $ss=1 to $read_double[0]
     Next

if $read_double[2] = "x" Then
if $read_double[0] =4 then 
 $r=$read_double[3]&" "&$read_double[4] 
Elseif $read_double[0]=5 Then
$r=$read_double[3]&" "&$read_double[4]&" "&$read_double[5]
Else
$r=$read_double[3]  
EndIf
EndIf
GUICtrlSetData($recent,"")  
$var3 = IniReadSectionNames($inifile3)
            
            
            For $i_n2 = 1 To $var3[0]
            if $r=$var3[$i_n2] Then
        
            $var4=IniReadSection($inifile3,$var3[$i_n2])
            
            for $i_n3= 1 to $var4[0][0]
    
            if  $var4[$i_n3][1] = "Woodworking" or  $var4[$i_n3][1] = "Cooking"then
            
        Else
            
            GUICtrlSetData($recent,$var4[$i_n3][1])
            
            EndIf
            Next
            
            EndIf
            Next


EndIf
EndFunc




Func addcrystal()
    Sleep(250)
    $cry = 0
    Do
        $item = PixelSearch(39, 435, 50, 455, $idc, 10)
        If Not $item Then
            Sleep(200)
            Send("{enter}")
            Sleep(250)
            $inv_full = PixelSearch(24, 595, 33, 608, 16737678, 6)
            If Not $inv_full Then
                $cry = 3
            Else
                $cry = 1
            EndIf
        Else
            
            Send("{down}")
            
            $line = $line + 1
            $cry = 2
        EndIf
    Until $cry = 1 Or $cry = 3 Or $line > 10
    $line = 1
    
EndFunc  ;==>addcrystal

Func additem()
    
    $finish = 0
    If $line < IniRead($IniFile, "Config", 0, "") Then
        mmove()
        $line = 1
        
        Do
            If PixelGetColor(42, 300) = $id_read1 And PixelGetColor(35, 290) = $id_read2 And PixelGetColor(33, 310) = $id_read3 And PixelGetColor(52, 302) = $id_read4 Then
            
                Sleep(300)
                Send("{enter}")
                Sleep(700)
                $qty = PixelSearch(50, 291, 65, 302, 8731199, 1)
                If Not $qty Then
                    count()
                Else
                    $no = $no - 1
                    
                    If $no >= 1 Then
                        
                        $end = 1
                        mmove()
                        
                    EndIf
                EndIf
            Else
                Send("{down}")
                
                $line = $line + 1
            EndIf
            
        Until $no <= 0 Or $line >= IniRead($IniFile, "Config", 0, "")
    EndIf
EndFunc  ;==>additem

Func invent()
    Send("{f1}")
    Sleep(200)
    Send("{enter}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{enter}")
    Sleep(100)
    Send("{left}")
    Send("{left}")
    Send("{left}")
    Send("{left}")
EndFunc  ;==>invent

Func mmove()
    Sleep(300)
    $mousex = $mousex + 33
    If $mousex < ((IniRead($IniFile,'Config',2,"")*4)-10) Or $mousey < 151 Then
        If $mousex > 161 Then
            $mousex = IniRead($IniFile,'Config',2,"")
            $mousey = IniRead($IniFile,'Config',3,"")+33
        EndIf
        MouseMove($mousex, $mousey, 0)
        Sleep(250)
        MouseDown("left")
        Sleep(200)
        MouseUp("left")
        Sleep(200)
        If $end = 0 Then
            Send("{left 6}")
        Else
            Send("{down}")
        EndIf
        
    Else
        $line = IniRead($IniFile, "Config", 0, "")
    EndIf
    
EndFunc  ;==>mmove

Func count()
    $end = 0
    $number = 1
    
    If $no > 1 Then
        
        Do
            $checksum = PixelChecksum(60, 290, 72, 302)
            Send("{up}")
            Sleep(100)
            $checksum2 = PixelChecksum(60, 290, 72, 302)
            
            If $checksum = $checksum2 Then
                $end = 1
            Else
                $number = $number + 1
                
            EndIf
            
        Until $no = $number Or $end = 1
    EndIf
    If $end = 1 Then
        $no = $no - $number
        Send("{enter}")
        mmove()
    Else
        Send("{enter}")
        $no = $no - $number
    EndIf
    
EndFunc  ;==>count

Func inventory_sort()
    GUICtrlSetData($recent, "Sorting Inventory")
    MouseMove(275, 15, 0)
    Sleep(500)
    MouseDown("Left")
    Sleep(200)
    MouseUp("left")
    Sleep(1000)
    Send("^i")
    Sleep(1000)
    Send("{NUMPADADD}")
    Sleep(100)
    Send("{enter}")
    Sleep(100)
    Send("{up}")
    Sleep(100)
    Send("{enter}")
    Sleep(100)
    Send("{esc}{esc}{esc}")
    GUICtrlSetData($recent, "Inventory has been sorted")
EndFunc  ;==>inventory_sort







Func recipies_add()
    $rec = GUICtrlRead($Recipie)
    ControlEnable($Form1, "", $ah_price)
    $Add = GUICtrlCreateButton("Add Record+Pixelsearch", 180, 180, 150, 25)
    $save = GUICtrlCreateButton("Save+Close", 180, 150, 75, 25)
    $crystal = GUICtrlCreateCombo("Select", 180, 110, 85, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetData($crystal, "Sell|Fire|Water|Earth|Dark|Ice|Light|Lightning|Wind")
    $Input_1 = GUICtrlCreateInput("Item Name", 180, 55, 100, 25)
    $Input_2 = GUICtrlCreateInput(0, 370, 85, 25, 25, $ES_NUMBER)   
    
    
    

    $ed_qty=GUICtrlCreateLabel("Qty",345,90)
    $Input_rname = GUICtrlCreateInput($rec, 180, 10, 200, 35)
    GUICtrlSetFont(-1, 16)
    $delete = GUICtrlCreateButton("Delete Record", 230, 210, 85, 25)
    $listview = GUICtrlCreateListView("Crys.|Item|Qty|Guild|Id1/Price|Id2|Id3|Id4", 180, 260, 220, 160)
    $rec = GUICtrlRead($Recipie)
    $inientry = IniReadSection($IniFile, $rec)
    $delete_all = GUICtrlCreateButton("Delete All", 330, 210, 65, 25)
    $cat = GUICtrlCreateCombo(GUICtrlRead($Guild), 180, 85, 85, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetData(-1, "Cooking|Woodworking|Alchemy|Goldsmithing|Clothcraft|Bonecraft")
    
    $up = GUICtrlCreateButton("Up", 180, 210, 20, 20)
    $down = GUICtrlCreateButton("Dn", 180, 235, 20, 20)
    If Not IsArray($inientry) Then
        GUICtrlSetData($recent, "No Data!!!")
    Else
    ;_ArraySort($var, 0, 1)
        For $I = 1 To $inientry[0][0]
            GUICtrlCreateListViewItem($inientry[$I][1], $listview)
            
        Next
    EndIf
    
    $combo_inged=GUICtrlCreateCombo("New",290,55,110,150,BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))

;--------------------------------------------------------------
    $var3 = IniReadSectionNames($inifile3)
            _ArraySort($var3, 0, 1)
            For $i_n2 = 1 To $var3[0]
            
        
            if IniRead($inifile3,$var3[$i_n2],0,"") = guictrlread($cat) or IniRead($inifile3,$var3[$i_n2],1,"") = guictrlread($cat)Then
            GUICtrlSetData($combo_inged,$var3[$i_n2])
            EndIf
            Next
;--------------------------------------------------------------
    
    
    
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        
        
        Select
            Case $msg = $up
                
                If _GUICtrlListViewGetSelectedCount($listview) = 1 And _GUICtrlListViewGetSelectedIndices($listview) + 1 > 1 Then
                    $curindex = _GUICtrlListViewGetSelectedIndices($listview)
                    For $x = 0 To _GUICtrlListViewGetSubItemsCount($listview)
                        $x_i = _GUICtrlListViewGetItemText($listview, $curindex - 1, $x)
                        _GUICtrlListViewSetItemText($listview, $curindex - 1, $x, _GUICtrlListViewGetItemText($listview, $curindex + 0, $x))
                        _GUICtrlListViewSetItemText($listview, $curindex - 0, $x, $x_i)
                    Next
                    _GUICtrlListViewSetItemSelState($listview, $curindex - 1, 1)
                    _GUICtrlListViewSetItemSelState($listview, $curindex - 0, 0)
                EndIf
                
            Case $msg = $down
                
                If _GUICtrlListViewGetSelectedCount($listview) = 1 And _GUICtrlListViewGetSelectedIndices($listview) + 1 < _GUICtrlListViewGetItemCount($listview) Then
                    $curindex = _GUICtrlListViewGetSelectedIndices($listview)
                    For $x = 0 To _GUICtrlListViewGetSubItemsCount($listview)
                        $x_i = _GUICtrlListViewGetItemText($listview, $curindex + 1, $x)
                        _GUICtrlListViewSetItemText($listview, $curindex + 1, $x, _GUICtrlListViewGetItemText($listview, $curindex + 0, $x))
                        _GUICtrlListViewSetItemText($listview, $curindex - 0, $x, $x_i)
                    Next
                    _GUICtrlListViewSetItemSelState($listview, $curindex + 1, 1)
                    _GUICtrlListViewSetItemSelState($listview, $curindex - 0, 0)
                EndIf
                
            Case $msg = $Add
                $id_crystal = GUICtrlRead($crystal)
                $id_name = GUICtrlRead($Input_1)
                
                if $id_name = "Item Name" or $id_name = "" Then
                    $id_name = guictrlread($combo_inged)
            
                    Else
                $id_name = GUICtrlRead($Input_1)
            
            EndIf
            
            
                $cat_2 = GUICtrlRead($cat)
                $id_qty = GUICtrlRead($Input_2)
                $true = 0
                If $id_crystal <> "Sell" And $cat_2 = "Guild" Then
                    $true = 1
                EndIf
                
                
                If Not $id_name = "" And $id_qty > 0 And $id_crystal <> "Select" And $true = 0 Then
                    
                    GUICtrlSetData($recent, "CAPTURING|")
                    Sleep(1000)
                    MouseMove(275, 15, 0)
                    Sleep(200)
                    MouseDown("Left")
                    Sleep(200)
                    MouseUp("left")
                    Sleep(1000)
                    
                If $id_crystal <> "Sell" Then
                    
                    $id_read1 = PixelGetColor(42, 300)
                    $id_read2 = PixelGetColor(35, 290)
                    $id_read3 = PixelGetColor(33, 310)
                    $id_read4 = PixelGetColor(52, 302)
                
                
                $incheck=IniReadSection($inifile3,$id_name)
                $test=iniread($inifile3,"Honey",0,"nothere")
                

                if  @error=1 Then
                if $incheck[0][0] =1 and GUICtrlRead($cat) <> $test Then
                IniWrite($inifile3,$id_name,1,GUICtrlRead($cat))    
                GUICtrlSetData($combo_inged,$id_name)
                MsgBox(0,"","Exists, And different catagory as inifile",2)
                Elseif $incheck[0][0] =0 Then
                IniWrite($inifile3,$id_name,0,GUICtrlRead($cat))
                GUICtrlSetData($combo_inged,$id_name)
                MsgBox(0,"","Not Exist, Creating entry",2)
            elseif $incheck[0][0]=1 and GUICtrlRead($cat) = $test Then
                MsgBox(0,"","Line exists and same catagory, not chainging",0)
            
            
            Else
                MsgBox(0,"","Nothing changed",0)
                EndIf
            Else
                IniWrite($inifile3,$id_name,0,GUICtrlRead($cat))
                GUICtrlSetData($combo_inged,$id_name)
                MsgBox(0,"","Entry not found, Adding",0)
                EndIf
                
                Else
                    $id_qty = 1
                    $id_read1 = PixelGetColor(38, 447)
                    $id_read2 = PixelGetColor(34, 460)
                    $id_read3 = PixelGetColor(51, 449)
                EndIf
                    
                    
                    If $id_crystal <> "Sell" Then
                        GUICtrlCreateListViewItem($id_crystal & "|" & $id_name & "|" & $id_qty & "|" & $cat_2 & "|" & $id_read1 & "|" & $id_read2 & "|" & $id_read3 & "|" & $id_read4 & "|", $listview)
                    Else
                        $price = GUICtrlRead($ah_price)
                        If $price > 0 Then
                            GUICtrlSetData($recent, "Setting price of " & $id_name & "|" & "... to " & $price & "|")
                            GUICtrlCreateListViewItem($id_crystal & "|" & $id_name & "|" & $id_qty & "|" & "N/A" & "|" & $price & "|" & $id_read1 & "|" & $id_read2 & "|" & $id_read3, $listview)
                        Else
                            GUICtrlSetData($recent, "Selling Prince Not Set!!|")
                        EndIf
                        
                        
                    EndIf
                    
                Else
                    
                    If $id_name = "Item Name" or $id_name = "New" Then
                        GUICtrlSetData($recent, "Name or list not selected|")
                        SoundPlay("C:\Windows\media\Windows XP Critical Stop.wav")
                        
                    ElseIf $id_qty = 0 Then
                        GUICtrlSetData($recent, $id_qty & " Qty Not Allowed|")
                        SoundPlay("C:\Windows\media\Windows XP Critical Stop.wav")
                        
                    ElseIf $id_crystal = "Select" Then
                        GUICtrlSetData($recent, "Please Choose correct type|")
                        SoundPlay("C:\Windows\media\Windows XP Critical Stop.wav")
                        
                    ElseIf $cat_2 = "Guild" And $id_crystal <> "Sell" Then
                        GUICtrlSetData($recent, "Please Choose correct Guild|")
                        SoundPlay("C:\Windows\media\Windows XP Critical Stop.wav")
                        
                    EndIf
                    
                    
                    
                EndIf
                
                
            Case $msg = $delete
                
                If _GUICtrlListViewGetSelectedCount($listview) Then
                    _GUICtrlListViewDeleteItemsSelected($listview)
                Else
                    MsgBox(0, "", "Nothing selected!!!", 0)
                EndIf
                
            Case $msg = $GUI_EVENT_CLOSE Or $msg = $show_recipie
                ControlEnable($Form1, "", $Invent_tracker)
                GUICtrlSetData($Recipie, "")
                $var = IniReadSectionNames($IniFile)
                _ArraySort($var, 0, 1)
                For $i_n = 1 To $var[0]
                    If $var[$i_n] <> "Config" Then
                        $gn = IniRead($IniFile, $var[$i_n], 0, "")
                        $g_n = StringSplit($gn, '|')
                        if not @error then
                        If $g_n[4] = "N/A" Then
                            $gn = IniRead($IniFile, $var[$i_n], 1, "")
                            $g_n = StringSplit($gn, '|')
                        EndIf
                        If $g_n[4] = GUICtrlRead($Guild) Then
                            GUICtrlSetData($Recipie, $var[$i_n], "")
                        EndIf
                        EndIf
                    EndIf
                Next
                ControlDisable($Form1, "", $ah_price)
                
                $edit_state = GUICtrlSetData($show_recipie, "Edit")
                
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], ($size_main[2] - 50) / 2)
                GUICtrlDelete($delete_all)
                GUICtrlDelete($cat)
                GUICtrlDelete($listview)
                GUICtrlDelete($Input_1)
                GUICtrlDelete($Input_2)
                GUICtrlDelete($Input_rname)
                GUICtrlDelete($crystal)
                GUICtrlDelete($save)
                GUICtrlDelete($Add)
                GUICtrlDelete($delete)
                GUICtrlDelete($up)
                GUICtrlDelete($down)
                GUICtrlDelete($combo_inged)
                GUICtrlDelete($ed_qty)
                ExitLoop
                
            Case $msg = $save
                ControlEnable($Form1, "", $Invent_tracker)
                $rn = GUICtrlRead($Input_rname)
                $item_count = _GUICtrlListViewGetItemCount($listview)
                IniDelete($IniFile, $rn)
                
                If $item_count > 0 Then
                    For $x = 0 To _GUICtrlListViewGetItemCount($listview) - 1
                        If _GUICtrlListViewGetItemText($listview, $x, 0) = "Sell" Then
                            $price = GUICtrlRead($ah_price)
                            _GUICtrlListViewSetItemText($listview, $x, 4, $price)
                        EndIf
                        
                        IniWrite($IniFile, $rn, $x, _GUICtrlListViewGetItemText($listview, $x))
                    Next
                    
                    GUICtrlSetData($Recipie, "")
                    $var = IniReadSectionNames($IniFile)
                    _ArraySort($var, 0, 1)
                    For $i_n = 1 To $var[0]
                        If $var[$i_n] <> "Config" Then
                            $gn = IniRead($IniFile, $var[$i_n], 0, "")
                            $g_n = StringSplit($gn, '|')
                            if not @error Then
                            If $g_n[4] = "N/A" Then
                                $gn = IniRead($IniFile, $var[$i_n], 1, "")
                                $g_n = StringSplit($gn, '|')
                            EndIf
                            If $g_n[4] = GUICtrlRead($Guild) Then
                                GUICtrlSetData($Recipie, $var[$i_n], "")
                            EndIf
                            endif
                        EndIf
                    Next
                    
                    ControlDisable($Form1, "", $ah_price)
                    
                    $edit_state = GUICtrlSetData($show_recipie, "Edit")
                    GUICtrlSetData($Recipie, $rn)
                    
                    $size_main = WinGetPos("FFXI")
                    WinMove("FFXI", "", $size_main[0], $size_main[1], ($size_main[2] - 50) / 2)
                    GUICtrlDelete($delete_all)
                    GUICtrlDelete($cat)
                    GUICtrlDelete($listview)
                    GUICtrlDelete($Input_1)
                    GUICtrlDelete($Input_2)
                    GUICtrlDelete($Input_rname)
                    GUICtrlDelete($crystal)
                    GUICtrlDelete($save)
                    GUICtrlDelete($Add)
                    GUICtrlDelete($delete)
                    GUICtrlDelete($up)
                    GUICtrlDelete($down)
                    GUICtrlDelete($combo_inged)
                GUICtrlDelete($ed_qty)
                    ExitLoop
                Else
                    MsgBox(0, "", "Nothing to Save!!", 0)
                    
                EndIf
                
            Case $msg = $delete_all
                
                If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
                $iMsgBoxAnswer = MsgBox(547, "Are You Sure......", "This will delete this record only." & @CRLF & "YES will return to main menu" & @CRLF)
                Select
                    Case $iMsgBoxAnswer = 6;Yes
                        $rn = GUICtrlRead($Input_rname)
                        IniDelete($IniFile, $rn)
                        GUICtrlSetData($Recipie, "")
                        $var = IniReadSectionNames($IniFile)
                        _ArraySort($var, 0, 1)
                        For $i_n = 1 To $var[0]
                            If $var[$i_n] <> "Config" Then
                                If $var[$i_n] <> "Chars" Then
                                    GUICtrlSetData($Recipie, $var[$i_n], "")
                                EndIf
                            EndIf
                        Next
                        
                        $edit_state = GUICtrlSetData($show_recipie, "Edit")
                        $size_main = WinGetPos("FFXI")
                        WinMove("FFXI", "", $size_main[0], $size_main[1], ($size_main[2] - 50) / 2)
                        GUICtrlDelete($delete_all)
                        GUICtrlDelete($cat)
                        GUICtrlDelete($listview)
                        GUICtrlDelete($Input_1)
                        GUICtrlDelete($Input_2)
                        GUICtrlDelete($Input_rname)
                        GUICtrlDelete($crystal)
                        GUICtrlDelete($save)
                        GUICtrlDelete($Add)
                        GUICtrlDelete($delete)
                        GUICtrlDelete($up)
                        GUICtrlDelete($down)
                        GUICtrlDelete($combo_inged)
                        GUICtrlDelete($ed_qty)
                        ExitLoop
                    Case $iMsgBoxAnswer = 7;No
                        
                    Case $iMsgBoxAnswer = 2;Cancel
                        
                EndSelect
                
            Case $msg = $cat
    GUICtrlSetData($combo_inged,"")
    $var3 = IniReadSectionNames($inifile3)
            _ArraySort($var3, 0, 1)
            For $i_n2 = 1 To $var3[0]
            
        
            if IniRead($inifile3,$var3[$i_n2],0,"") = guictrlread($cat) Then
            ElseIf IniRead($inifile3,$var3[$i_n2],1,"") = guictrlread($cat) Then
            GUICtrlSetData($combo_inged,$var3[$i_n2])
            EndIf
            Next


EndSelect
    WEnd
    
EndFunc  ;==>recipies_add

;--------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------

Func Itracker()
    $char = GUICtrlCreateCombo("", 185, 10, 100, 35)
    $char_add = GUICtrlCreateButton("Add Char", 290, 10, 55, 25)
    $char_delete = GUICtrlCreateButton("Delete", 350, 10, 45, 25)
    $char_group = GUICtrlCreateGroup("", 180, 0, 220, 40)
    GUICtrlSetColor(-1, 0xff0000)
    $char_name = GUICtrlCreateInput("", 180, 50, 100, 25)
    GUICtrlSetFont(-1, 14)
    $char_qty = GUICtrlCreateInput("", 285, 50, 30, 25, $ES_NUMBER)
    GUICtrlSetFont(-1, 14)
    $char_level = GUICtrlCreateInput("", 320, 50, 30, 25, $ES_NUMBER)
    GUICtrlSetFont(-1, 14)
    $char_item_add = GUICtrlCreateButton("<-- Add", 355, 50, 50, 25)
    
    $char_items = GUICtrlCreateListView("Name|Qty|Level|", 180, 175, 220, 245)
    _GUICtrlListViewSetColumnWidth(-1, 0, 100)
    $char_list_item_delete = GUICtrlCreateButton("D.Item", 355, 80, 50, 25)
    $char_edit_qty = GUICtrlCreateButton("Edit", 285, 80, 30, 25)
    
    $var2 = IniReadSectionNames($Inifile2)
    If IsArray($var2) Then
        For $I = 1 To $var2[0]
            
            GUICtrlSetData($char, $var2[$I])
        Next
    Else
        GUICtrlSetData($char, "New")
    EndIf
    
    Dim $B_DESCENDING[_GUICtrlListViewGetSubItemsCount($char_items) ]
    
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $char_edit_qty
                If _GUICtrlListViewGetSelectedCount($char_items) Then
                    If GUICtrlRead($char_qty) <> "" Then
                        
                        _GUICtrlListViewSetItemText($char_items, _GUICtrlListViewGetSelectedIndices($char_items) + 0, 1, GUICtrlRead($char_qty))
                    Else
                        GUICtrlSetData($recent, "No Input data")
                    EndIf
                    
                Else
                    GUICtrlSetData($recent, "Select Item First")
                EndIf
                
            Case $msg = $char_items
            ; sort the list by the column header clicked on
                _GUICtrlListViewSort($char_items, $B_DESCENDING, GUICtrlGetState($char_items))
                
            Case $msg = $char_list_item_delete; deletes item in listview
                If _GUICtrlListViewGetSelectedCount($char_items) Then
                    _GUICtrlListViewDeleteItemsSelected($char_items)
                    IniDelete($Inifile2, GUICtrlRead($char))
                    For $char_count1 = 0 To _GUICtrlListViewGetItemCount($char_items) - 1
                        IniWrite($Inifile2, GUICtrlRead($char), $char_count1, _GUICtrlListViewGetItemText($char_items, $char_count1))
                    Next
                Else
                    GUICtrlSetData($recent, "Nothing selected!!!")
                EndIf
            Case $msg = $char_delete; as it says
                
                If GUICtrlRead($char) <> "" Then
                    
                ;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Default Button=Second, Icon=None
                    If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
                    $iMsgBoxAnswer = MsgBox(260, "Are You Sure!!", "Warning All contents will be permantely deleted for this charcter.!!" & @CRLF)
                    Select
                        Case $iMsgBoxAnswer = 6;Yes
                            
                            IniDelete($Inifile2, GUICtrlRead($char))
                            GUICtrlSetData($char, "")
                            $var2 = IniReadSectionNames($Inifile2)
                            If IsArray($var2) Then
                                For $I = 1 To $var2[0]
                                    
                                    GUICtrlSetData($char, $var2[$I])
                                Next
                            Else
                                GUICtrlSetData($char, "New")
                            EndIf
                            
                        Case $iMsgBoxAnswer = 7;No
                            
                    EndSelect
                Else
                    GUICtrlSetData($recent, "No char Selected")
                EndIf
                
                
            Case $msg = $char; is combo list
                $char2 = GUICtrlRead($char)
                $inientry2 = IniReadSection($Inifile2, $char2)
                _GUICtrlListViewDeleteAllItems($char_items)
                If Not IsArray($inientry2) Then
                    GUICtrlSetData($recent, "No Data!!!")
                Else
                    For $I = 1 To $inientry2[0][0]
                        GUICtrlCreateListViewItem($inientry2[$I][1], $char_items)
                    Next
                EndIf
                
            Case $msg = $Invent_tracker Or $msg = $GUI_EVENT_CLOSE
                If _GUICtrlListViewGetItemCount($char_items) > 0 Then
                    For $char_count1 = 0 To _GUICtrlListViewGetItemCount($char_items) - 1
                        
                        IniWrite($Inifile2, GUICtrlRead($char), $char_count1, _GUICtrlListViewGetItemText($char_items, $char_count1))
                        
                    Next
                ElseIf GUICtrlRead($char) <> "" Then
                    GUICtrlSetData($recent, "Nothing to save" & "|" & "Creating New Char.")
                    IniWrite($Inifile2, GUICtrlRead($char), '', '')
                EndIf
                
                $size_main = WinGetPos("FFXI")
                WinMove("FFXI", "", $size_main[0], $size_main[1], ($size_main[2] - 50) / 2)
                $IT_size_1 = 0
                ControlEnable($Form1, "", $show_recipie)
                ControlEnable($Form1, "", $Go)
                ControlEnable($Form1, "", $Recipie)
                GUICtrlDelete($char)
                GUICtrlDelete($char_add)
                GUICtrlDelete($char_name)
                GUICtrlDelete($char_items)
                GUICtrlDelete($char_item_add)
                GUICtrlDelete($char_qty)
                GUICtrlDelete($char_delete)
                GUICtrlDelete($char_list_item_delete)
                GUICtrlDelete($char_level)
                GUICtrlDelete($char_edit_qty)
                GUICtrlDelete($char_group)
                ExitLoop
                
                
                
                
            Case $msg = $char_add; adds character to combo list
                If GUICtrlRead($char_name) <> "" Then
                    GUICtrlSetData($char, GUICtrlRead($char_name))
                    GUICtrlSetData($char_name, "")
                    
                Else
                    GUICtrlSetData($recent, "Nothing entered into input box")
                EndIf
                
            Case $msg = $char_item_add; adds item to list
                If GUICtrlRead($char) <> "" Then
                    $char_it1 = GUICtrlRead($char_name)
                    $char_it2 = GUICtrlRead($char_qty)
                    $char_it3 = GUICtrlRead($char_level)
                    If $char_it3 = "" Then
                        $char_it3 = "N/A"
                    EndIf
                    If $char_it2 = "" Then
                        $char_it2 = 1
                    EndIf
                    If $char_it1 <> "" Then
                        GUICtrlCreateListViewItem(GUICtrlRead($char_name) & "|" & $char_it2 & "|" & $char_it3, $char_items)
                        For $char_count1 = 0 To _GUICtrlListViewGetItemCount($char_items) - 1
                            IniWrite($Inifile2, GUICtrlRead($char), $char_count1, _GUICtrlListViewGetItemText($char_items, $char_count1))
                        Next
                        
                        GUICtrlSetData($char_qty, "")
                        GUICtrlSetData($char_level, "")
                    Else
                        GUICtrlSetData($recent, "boxes not filled in")
                    EndIf
                Else
                    GUICtrlSetData($recent, "Select a Charactert first")
                EndIf
                
        EndSelect
        
    WEnd
EndFunc  ;==>Itracker

Share this post


Link to post
Share on other sites



theres erorrs in the script

(282,38) : WARNING: $c_help: possibly used before declaration.

GUICtrlDelete($c_help)

(313,1) : ERROR: syntax error

(316,1) : ERROR: syntax error

609,1) : ERROR: syntax error

(612,1) : ERROR: syntax error

(616,1) : ERROR: syntax error

(619,1) : ERROR: syntax error

(784,1) : ERROR: syntax error

(787,1) : ERROR: syntax error

8 error(s), 1 warning(s)


some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

Share this post


Link to post
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
Sign in to follow this  
Followers 0