Acc_Names = {"11111","11111","11111","11111"}
    Char_Names = {"2222","2222","2222","2222"}
    Password = "pass"

-- get next char name
local maxindex = #Acc_Names
local index
if index == nil then
    index = 1
end
while Char_Names[index] ~= $name do
    index = index + 1
    if index > maxindex then
        index = 1
    end
end
index = index + 1
if index > maxindex then
    index = 1
end
--disable regular reconnect
setsetting("Cavebot/Scripts/rec/Enabled","yes") -- change the regular reconnect name
-- use statue if connected
while  $connected do
    useitem(0, ground($wptx, $wpty, $wptz))
    wait(1000,2000)
end
-- connect using next char if not connected
while not  $connected do
    setpriority(99,1,6000,5000 ,0)
    connect(Acc_Names[index],Password,Char_Names[index])
end
-- enable regular reconnect if character fir if it doesnt fit, go back 1 wpt
if $connected and $self.name == Char_Names[index] then
    setsetting("Cavebot/Scripts/rec/Enabled","yes") -- change the regular reconnect name
else
    gotolabel($wptid-1)
end