Func IDAndSell()
    Update("Cleaning inventory")
    GoNearestNPCToCoords(-4231, 11350)
    CheckGold()
    Ident(1, 20)
    Ident(2, 5)
    Ident(3, 10)
;~  Ident(4, 10)
    Sell(1, 20)
    Sell(2, 5)
    Sell(3, 10)
;~  Sell(4, 10)
    CmdCB($CA_GetGold)
    $intGold += $cbVar[0] - $intCash
    $intCash = $cbVar[0]
    GUICtrlSetData($lblGold, $intGold)
EndFunc

Func CheckGold ()
    $cbType = "int"
    $Gold = CmdCB($CA_GETGOLD)
    $Gold = $cbVar[0]
    If $Gold > 70000 Then ;Store Gold?
        Cmd($CA_DEPOSITGOLD, 65000)
        Sleep (Random(1000, 1400))
    ElseIf $Gold < 100 Then ;Enough Money for IDKit?
        Cmd($CA_WithdrawGold, 5000)
        Sleep (Random(100, 150))
    EndIf
EndFunc

Func Ident($bagIndex, $numOfSlots)
    $cbType = "int"
    CmdCB($CA_GETIDKIT) ;Check if there is a IDKit

    If $cbVar[0] = 0 Then
        Cmd($CA_BuyItem, 5, 100) ;Buy IDKit. buyitem used because merch doesnt sell sup ID kits
        Sleep(Random(500,1000))
        CmdCB($CA_GETIDKIT)
        Sleep(Random(500,1000))
        MoveItemById($cbVar[0], 4, 1) ;Move IDKit to Spot (4, 1)
        Sleep(Random(500,1000))
    EndIf
   For $i = 1 To $numOfSlots Step 1



        Cmd($CA_IDENTIFYITEM, $bagIndex, $i)

        Sleep(Random(290, 310))
        $cbType = "int"
        CmdCB($CA_GETIDKIT) ;Check if there is a IDKit

        If $cbVar[0] = 0 Then
            Cmd($CA_BuyItem, 5, 100) ;Buy IDKit. buyitem used because merch doesnt sell sup ID kits
            Sleep(Random(500,1000))
            CmdCB($CA_GETIDKIT)
            Sleep(Random(500,1000))
            MoveItemById($cbVar[0], 4, 1) ;Move IDKit to Spot (4, 1)
            Sleep(Random(500,1000))
        EndIf
    Next
EndFunc


Func Sell($bagIndex, $numOfSlots)
   For $i = 1 To $numOfSlots Step 1
      Cmd($CA_SELLITEM, $bagIndex, $i)
      Sleep(Random(500,750))
   Next
EndFunc

Func GoNearestNPCToCoords($x, $y)
    MoveToEx($x, $y)
    $guy = GetNearestNPCToCoords($x, $y)

    $cbType = "float"
    Do
        RndSleep(250)
        Cmd($CA_GoNPC, $guy)
        RndSleep(250)
        $a = CmdCB($CA_GetCoords, $guy)
        CmdCB($CA_GetCoords, -2)
    Until ComputeDistanceEx($cbVar[0], $cbVar[1], $a[0], $a[1]) < 250
    RndSleep(500)
EndFunc