Func Withdraw_Golds()
   If $bRunning = False Then
       $ocbty=$cbtype
       $counter = 0
       $Slot_Counter = 0

        _GWCA_CloseStream()
        $input_character = GUICtrlRead($inputCharacter)
        $sGW = "Guild Wars - " & $input_character

        $i_info = CmdCB($CA_FindEmptySlot)
        Switch $i_info[0]
            Case 1
                $i = $i_info[1]
            Case 2
                $i = $i_info[1] + 20
            Case 3
                $i = $i_info[1] + 25
            Case 4
                $i = $i_info[1] + 35
        EndSwitch

            $Slot_Counter = $i
            For $slot=$i to 45 step 1
                $counter += 1
                If $counter <= 20 Then
                    Select
                        Case $Slot_Counter <= 20
                            MoveItem(8,$counter, 1, 0)
                            $Slot_Counter += 1
                        Case $Slot_Counter <= 25
                            MoveItem(8,$counter, 2, 0)
                            $Slot_Counter += 1
                        Case $Slot_Counter <= 35
                            MoveItem(8,$counter, 3, 0)
                            $Slot_Counter += 1
                        Case $Slot_Counter <= 45
                            MoveItem(8,$counter, 4, 0)
                            $Slot_Counter += 1
                    EndSelect
                ElseIf $counter <= 40 Then
                        Select
                            Case $Slot_Counter <= 20
                                MoveItem(9,$counter - 20, 1, 0)
                                $Slot_Counter += 1
                            Case $Slot_Counter <= 25
                                MoveItem(9,$counter - 20, 2, 0)
                                $Slot_Counter += 1
                            Case $Slot_Counter <= 35
                                MoveItem(9,$counter - 20, 3, 0)
                                $Slot_Counter += 1
                            Case $Slot_Counter <= 45
                                MoveItem(9,$counter - 20, 4, 0)
                                $Slot_Counter += 1
                        EndSelect
                EndIf
            Next
            For $i = 1 to 10
                MoveItem(3,$i,1,0)
            Next
            For $i = 1 to 10
                MoveItem(4,$i,1,0)
            Next
            $cbtype=$ocbty
    EndIf
EndFunc