dial

sleep(2)
m=peripheral.wrap("top")--sets the monitor to the top side
gate=peripheral.wrap("stargate_1")-- wrap the gate connected by wired modem
local net="right" -- set the side of the rednet cable

term.clear()
term.setCursorPos(1,1)
print("Super Gate Dialer v0.91")
print("made by Landstryder")
m.clear()
m.setCursorPos(1,1)
m.write("Gate Dialer Online")

--Put your gate addresses in below
local ads={"urnonba","nqqymaa","iiaanga","nalzmha","qmjcnfa","amnumja","ocpbnka","lamnmpa","hiaanqa","dixfnba"}
local adname={"Anchent Base","The Nether","name","name","name","name","name","name","name","name","name","name","name","name","name"}
--

local c={1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384}
local cc={"White","Orange","Magenta","Light Blue","Yellow","Lime","Pink","Gray","Light Gray","Cyan","Purple","Blue","Brown","Green","Red"}
m.setCursorPos(1,2)
m.write("current address library:")

function listgate()
for it=1,#ads do
 if adname[it]=="name" then
  ad = ads[it]
 else
  ad = adname[it]
 end

 m.setCursorPos(1,it+2)

 if m.isColor() then
  m.setTextColor(c[it])
  m.write(ad.." on "..cc[it])
  m.setTextColor(1)
 else
  m.write(ad.." on "..cc[it])
 end
end
end

listgate()

while true do
if rs.getBundledInput(net)>0 then
 if rs.testBundledInput(net,32768) then
 gate.disconnect()
 sleep(1)
 else
 for it=1,#ads do
  if rs.testBundledInput(net,c[it]) then
 gate.connect(ads[it])
 m.clear()
 m.setCursorPos(1,1)
 m.write("connecting to...")
 m.setCursorPos(2,2)
 if adname[it]=="name" then
  m.write("gate address "..ads[it])
 else
  m.write(adname[it])
 end
 m.setCursorPos(3,3)
 m.write("CHEVRON")
 m.setCursorPos(3,5)
 m.write("ENCODED")

 while not gate.isConnected() do
  m.setCursorPos(6,4)
  m.clearLine()
  m.write(gate.getLockedChevronCount())
  sleep(0.3)
 end
 m.setCursorPos(3,7)
 m.write("GATE CONNECTED")
 sleep(4)
 m.clear()
 m.setCursorPos(1,1)
 m.write("Gate Dialer Online")
 listgate()
 end
 end
 end
end
sleep(1)
end