kopro OS

MON_SCALE  = 0.5
MIN_OFFSET = 2
MAX_OFFSET = 250
lazors     = {}
states     = {}
step       = 12
xOffset    = 2
yOffset    = 4
offset     = MIN_OFFSET
lasN = 0
print("loading...")
sleep(2)
Alarm = "top"
Style = {
CDeflt = colors.white,
BGDeflt = colors.blue,
CTitle = colors.black,
BGTitle = colors.cyan,
CWarn = colors.white,
BGWarn = colors.red
}

function setScreenPosition()
  backbutton_position = {x = screen_width/2, y = 1}
  start_all_position = {x = 1, y = screen_height-2}
  stop_all_position  = {x = screen_width - 3, y = screen_height-2}
  lasermode_position = {x = math.floor(screen_width/2 - 2), y = screen_height-4}
  mining_position = {x=screen_width/2 - 2, y = screen_height/2-4}
  jumping_position  = {x=screen_width/2 - 2, y = screen_height/2-2}
  GoJump_position = {x=screen_width/2 - 3, y = screen_height/2}
  automine_position = {x=screen_width/2 - 3, y = screen_height/2+2}
  shipscan_position = {x=screen_width/2 - 3, y = screen_height/2}
  deployship_position = {x=screen_width/2 - 3, y = screen_height/2+1}
  shipsc_position = {x=screen_width/2 - 2, y = screen_height/2-2}
  title_position  = {x=1, y = 1}
end

function resetColorsScreen()
  screen.setBackgroundColor(colors.black)
  screen.setTextColor(colors.white)
end

function setlasermode()
  if lasermode == "mine" then
  lasermode = "quarry"
  print(lasermode)
  SData.lasermode = lasermode
  SaveData()
  else
  lasermode = "mine"
  print(lasermode)
  SData.lasermode = lasermode
  SaveData()
  end
end

function start(laserNUM)
  print("Calling laser "..lazors[laserNUM].." for start")
  setOffset(laserNUM, offset)
  m.callRemote(lazors[laserNUM], lasermode)
end

function startAll()
  for i =1 ,#lazors do
   start(i)
  end
end

function stop(laserNUM)
  print("Calling laser "..lazors[laserNUM].." for stop")
  m.callRemote(lazors[laserNUM], "stop")
end

function stopAll()
  for i = 1 ,#lazors do
   stop(i)
  end
end

function setOffset(laserNUM, offset)
  m.callRemote(lazors[laserNUM], "offset", offset)
end

function minestatistic()
  screen.clear()
  feelScreen(colors.black,colors.white)
  qml = 0
  lay = 0
  lux = 0
  min = 0
  screen.setCursorPos(1 , 3)
  screen.setBackgroundColor(colors.cyan)
  screen.write( "LASERS      " .. #lazors)
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.blue)
  screen.setCursorPos(start_all_position.x ,start_all_position.y)
  if modemenu == "automine" then
    screen.write("AUTOMINE")
  else
    screen.write("GO")
    screen.setCursorPos(stop_all_position.x, stop_all_position.y)
    screen.write("xXx")
  end

  screen.setBackgroundColor(colors.green)
  screen.setCursorPos(lasermode_position.x, lasermode_position.y)
  screen.write(lasermode)
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.blue)
  screen.setCursorPos(backbutton_position.x, backbutton_position.y)
  screen.write("BACK")
  feelScreen(colors.black,colors.white)
  for a = 1,#lazors do
    mState, mEnergy, mLayer, mValuablesMined, mValuablesInLayer = m.callRemote(lazors[a], "state")
    print(mState)
    if mState ~= "not mining"  then
      qml= qml+1
      lay = lay + mLayer
      lux = lux + mValuablesMined
      min = min + mValuablesInLayer
      if mEnergy == 0 then
        screen.setCursorPos(1 , 11)
        screen.setBackgroundColor(colors.red)
        screen.write( "low energy L" ..a)
        feelScreen(colors.black,colors.white)
      end
    end
  end
  screen.setCursorPos(1 , 5)
  screen.setBackgroundColor(colors.green)
  screen.write( "IN WORK     " .. qml)
  feelScreen(colors.black,colors.white)
  print(qml)
  if qml > 0 then
    mLay = lay/qml
    mLux = lux/qml
    mmin = min*10/qml
  end
  screen.setCursorPos(1 , 7)
  screen.setBackgroundColor(colors.blue)
  screen.write( "LAYER    " .. tostring(mLay))
  feelScreen(colors.black,colors.white)
  screen.setCursorPos(1 , 9)
  screen.setBackgroundColor(colors.blue)
  screen.write( "MINE  " .. tostring(lux) .."/" .. tostring(mmin))
  feelScreen(colors.black,colors.white)
  sleep(0.5)
  return 0
end

function mining()
  modemenu = "mine"
  SData.modemenu = "mine"
  SData.lasermode = lasermode;
  SaveData()
  screen.clear()
  minestatistic()
  sleep(0.5)
  return 0
end


function automine()
  modemenu = "automine"
  SData.modemenu = "automine"
  SData.lasermode  = lasermode
  SaveData()

  minestatistic()

  if qml == 0 then
    stopAll()
    sleep(3)
    Warp()
    sleep(10)
  end
  sleep(0.5)
  return 0
end

function feelScreen(bcolor,tcolor)
  screen.setBackgroundColor(bcolor)
  screen.setTextColor(tcolor)
end

function SetColorDeflt()
  term.setBackgroundColor(Style.BGDeflt)
  term.setTextColor(Style.CDeflt)
end

function SetColorTitle()
  term.setBackgroundColor(Style.BGTitle)
  term.setTextColor(Style.CTitle)
end

function SetColorWarn()
  term.setBackgroundColor(Style.BGWarn)
  term.setTextColor(Style.CWarn)
end

function Clear()
  term.clear()
  term.setCursorPos(1,1)
end

function Show(Text)
  term.write(Text)
  local xt,yt = term.getCursorPos()
  term.setCursorPos(1, yt+1)
end

function ShowTitle(Text)
  SetColorTitle()
  term.setCursorPos(12, 1)
  Show(Text)
  SetColorDeflt()
end

function ShowMenu(Text)
  term.write(Text)
  local xt, yt = term.getCursorPos()
  for i = xt, 51 do
    term.write(" ")
  end
  term.setCursorPos(1, yt+1)
end

function ShowWarning(Text)
  SetColorWarn()
  term.setCursorPos(10, 19)
  term.write(" "..Text.." ")
  SetColorDeflt()
end

function SaveData()
  local file = fs.open("shipdata.txt", "w")
  file.writeLine(textutils.serialize(SData))
  file.close()
end

function ReadData()
  local file = fs.open("shipdata.txt", "r")
  SData = textutils.unserialize(file.readAll())
  file.close()
end

function Explode(d, p)
  local t, ll
  t = {}
  ll = 0
  if(#p == 1) then return {p} end
  while true do
    l = string.find(p ,d, ll, true)
    if l ~= nil then
      table.insert(t, string.sub(p, ll, l-1))
      ll = l+1
    else
      table.insert(t, string.sub(p, ll))
      break
    end
  end
  return t
end

function ShowDirection()
  if SData.Direction == 1 then
    Show(" Direction        = Up")
    elseif SData.Direction == 2 then
    Show(" Direction        = Down")
    elseif SData.Direction == 0 then
    Show(" Direction        = Front")
    elseif SData.Direction == 180 then
    Show(" Direction        = Back")
    elseif SData.Direction == 90 then
    Show(" Direction        = Left")
    elseif SData.Direction == 255 then
    Show(" Direction        = Right")
  end
  return 0
end

function CalcRealDistance()
  if IsInHyper then
    RealDistance = SData.Distance * 100
    MinimumDistance = 1
    JumpCost = (1000 * Weight) + (1000 * SData.Distance)
  else
    if SData.Direction == 1 or SData.Direction == 2 then
      MinimumDistance = GUp + GDown
      RealDistance = SData.Distance + MinimumDistance
    elseif SData.Direction == 0 or SData.Direction == 180 then
      MinimumDistance = GFront + GBack
      RealDistance = SData.Distance + MinimumDistance
    elseif SData.Direction == 90 or SData.Direction == 255 then
      MinimumDistance = GLeft + GRight
      RealDistance = SData.Distance + MinimumDistance
    end
    MinimumDistance = MinimumDistance + 1
    JumpCost = (10 * Weight) + (100 * SData.Distance)
  end
  return 0
end

function CalcNewCoords(cx, cy, cz)
  local res = {x=cx, y=cy, z=cz}
  if SData.Direction == 1 then
    res.y = res.y + RealDistance
  elseif SData.Direction == 2 then
    res.y = res.y - RealDistance
  end
  local dx = warp.get_dx()
  local dz = warp.get_dz()
  if dx ~= 0 then
    if SData.Direction == 0 then
      res.x = res.x + (RealDistance * dx)
    elseif SData.Direction == 180 then
      res.x = res.x - (RealDistance * dx)
    elseif SData.Direction == 90 then
      res.z = res.z + (RealDistance * dx)
    elseif SData.Direction == 255 then
      res.z = res.z - (RealDistance * dx)
    end
  else
    if SData.Direction == 0 then
      res.z = res.z + (RealDistance * dz)
    elseif SData.Direction == 180 then
      res.z = res.z - (RealDistance * dz)
    elseif SData.Direction == 90 then
      res.x = res.x + (RealDistance * dz)
    elseif SData.Direction == 255 then
      res.x = res.x - (RealDistance * dz)
    end
  end
  return res
end

function ShowInfo()
  Title = "<Jump-S 1.7.0 \""..SData.Shipname.."\">"
  ShowTitle(Title)
  Show("Core:")
  Show(" x, y, z          = "..X..", "..Y..", "..Z)
  local energy = warp.get_energy_level()
  Show(" Energy           = "..math.floor(energy / 1000000).." % ("..energy.."EU)")
  Show(" Attached players = "..warp.get_attached_players())
  Show("Dimensions:")
  Show(" Front, Right, Up = "..GFront..", "..GRight..", "..GUp)
  Show(" Back, Left, Down = "..GBack..", "..GLeft..", "..GDown)
  Show(" Size             = "..Weight.." blocks")
  Show("Warp data:")
  ShowDirection()
  local dest = CalcNewCoords(X, Y, Z)
  Show(" Distance         = "..RealDistance.." ("..JumpCost.."EU, "..math.floor(energy/JumpCost).." jumps)")
  Show(" Dest.coordinates = "..dest.x..", "..dest.y..", "..dest.z)
  if SData.Summon then
    Show(" Summon after     = Yes")
  else
    Show(" Summon after     = No")
  end
end

function Confirm()
  ShowWarning("Are you sure? (y/n)")
  local event, keycode = os.pullEvent("key")
  if keycode == 21 then
    return true
  else
    return false
  end
  Clear()
  statloop = true
end

function Warp()
  rs.setOutput(Alarm, false)
  warp.set_direction(SData.Direction)
  if IsInHyper then
    warp.set_mode(2)
  else
    warp.set_mode(1)
  end
  warp.do_jump()
  return 0
end

function SetDistance()
  Clear()
  ShowTitle("<====  Set distance  ====>")
  SData.Distance = 0
  CalcRealDistance()
  MaximumDistance = MinimumDistance + 127
  if IsInHyper then
    term.write("Distance * 100 (min "..MinimumDistance..", max "..MaximumDistance.."): ")
  else
    term.write("Distance (min "..MinimumDistance..", max "..MaximumDistance.."): ")
  end
  sleep(0.3)
  SData.Distance = tonumber(read())
  if SData.Distance == nil then SData.Distance = 1 end
  if SData.Distance < MinimumDistance or SData.Distance > MaximumDistance then
    SData.Distance = 1
    ShowWarning("Wrong distance. Try again.")
    os.pullEvent("key")
    CalcRealDistance()
  else
    if not IsInHyper then
      SData.Distance = SData.Distance - RealDistance
    end
    warp.set_distance(SData.Distance)
    CalcRealDistance()
  end
  return 0
end

function SetDirection()
  local drun = true
  while(drun) do
  Clear()
  ShowTitle("<==== Set direction ====>")
  ShowDirection()
  term.setCursorPos(1, 16)
  SetColorTitle()
  ShowMenu("Use directional keys")
  ShowMenu("W/S keys for Up/Down")
  ShowMenu("Enter - confirm")
  SetColorDeflt()
  local event, keycode = os.pullEvent("key")
  if keycode == 200 then
    SData.Direction = 0
  elseif keycode == 17 then
    SData.Direction = 1
  elseif keycode == 203 then
    SData.Direction = 90
  elseif keycode == 205 then
    SData.Direction = 255
  elseif keycode == 208 then
    SData.Direction = 180
  elseif keycode == 31 then
    SData.Direction = 2
  elseif keycode == 28 then
    drun = false
  end
  end
end

function SetDimensions()
  Clear()
  sleep(0.3)
  ShowTitle("<==== Set dimensions ====>")
  term.write(" Front ("..GFront..") : ")
  GFront = tonumber(read())
  term.write(" Right ("..GRight..") : ")
  GRight = tonumber(read())
  term.write(" Up    ("..GUp..") : ")
  GUp = tonumber(read())
  term.write(" Back  ("..GBack..") : ")
  GBack = tonumber(read())
  term.write(" Left  ("..GLeft..") : ")
  GLeft = tonumber(read())
  term.write(" Down  ("..GDown..") : ")
  GDown = tonumber(read())
  term.write("Setting dimensions...")
  warp.dim_setp(GFront, GRight, GUp)
  warp.dim_setn(GBack, GLeft, GDown)
  jumping()
end

function Summon()
  Clear()
  ShowTitle("<==== Summon players ====>")
  local players = Explode(",", warp.get_attached_players())
  for i = 1, #players do
    Show(i..". "..players[i])
  end
  SetColorTitle()
  ShowMenu("Enter player number")
  ShowMenu("or press enter to summon everyone")
  SetColorDeflt()
  sleep(0.3)
  term.write(":")
  local input = read()
  if input == "" then
    warp.summon_all()
  else
    input = tonumber(input)
    warp.summon(input - 1)
  end
  return 0
end

function JumpToBeacon()
  Clear()
  ShowTitle("<==== Jump to beacon ====>")
  sleep(0.3)
  term.write("Enter beacon frequency: ")
  local freq = tostring(read())
  rs.setOutput(Alarm, true)
  if Confirm() then
  rs.setOutput(Alarm, false)
  warp.set_mode(4)
  warp.set_beacon_frequency(freq)
  warp.do_jump()
  end
  rs.setOutput(Alarm, false)
  return 0
end

function JumpToGate()
  Clear()
  ShowTitle("<==== Jump to JumpGate ====>")
  sleep(0.3)
  term.write("Enter jumpgate name: ")
  local name = tostring(read())
  rs.setOutput(Alarm, true)
  if Confirm() then
  rs.setOutput(Alarm, false)
  warp.set_mode(6)
  warp.set_target_jumpgate(name)
  warp.do_jump()
  end
  rs.setOutput(Alarm, false)
  return 0
end

function SetShipName()
  Clear()
  sleep(0.3)
  ShowTitle("<==== Set ship name ====>")
  term.write("Enter ship name: ")
  SData.Shipname = tostring(read())
  os.setComputerLabel(SData.Shipname)
  warp.set_core_frequency(SData.Shipname)
  SaveData()
  return 0
end

function statistic()
  GFront, GRight, GUp = warp.dim_getp()
  GBack, GLeft, GDown = warp.dim_getn()
  IsInHyper = warp.is_in_hyperspace()
  repeat
  X = warp.get_x()
  sleep(0.3)
  until X ~= nil
  Y = warp.get_y()
  Z = warp.get_z()
  Weight = warp.get_ship_size()
  CalcRealDistance()
  Clear()
  ShowInfo()
  term.setCursorPos(1, 15)
  SetColorTitle()
  ShowMenu("D - Dimensions, M - Toggle summon, N - Ship name")
  ShowMenu("S - Set Warp Data, J - Jump, G - Jump to JumpGate")
  ShowMenu("B - Jump to Beacon, H -Jump to Hyperspace")
  ShowMenu("C - Summon, X - Shutdown WarpCore and Exit")
  SetColorDeflt()
  sleep(0.3)
  return 0
end

function manctrl()
  statistic()
  local event, keycode = os.pullEvent("key")
  if keycode == 31 then
    SetDirection()
    SetDistance()
    SaveData()
  elseif keycode == 50 then
    if SData.Summon then
      SData.Summon = false
    else
      SData.Summon = true
    end
    SaveData()
  elseif keycode == 32 then
    SetDimensions()
    SaveData()
  elseif keycode == 36 then
    rs.setOutput(Alarm, true)
    if Confirm() then
      Warp()
    end
    rs.setOutput(Alarm, false)
  elseif keycode == 46 then
    Summon()
  elseif keycode == 48 then
    JumpToBeacon()
  elseif keycode == 34 then
    JumpToGate()
  elseif keycode == 35 then
    rs.setOutput(Alarm, true)
    if Confirm() then
      rs.setOutput(Alarm, false)
      warp.set_mode(5)
      warp.do_jump()
    end
    rs.setOutput(Alarm, false)
  elseif keycode == 45 then
    warp.set_mode(0)
    Clear()
    print("wish you good")
    os.shutdown()
  elseif keycode == 49 then
    SetShipName()
  end
end

function jumping()
  screen.clear()
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.blue)
  screen.setCursorPos(backbutton_position.x, backbutton_position.y)
  screen.write("BACK") feelScreen(colors.black,colors.white)
  screen.setCursorPos(GoJump_position.x , GoJump_position.y)
  screen.setBackgroundColor(colors.cyan) screen.write("GO JUMP")
  feelScreen(colors.black,colors.white)
  screen.setCursorPos(automine_position.x , automine_position.y)
  screen.setBackgroundColor(colors.cyan) screen.write("AUTOMINE")
  feelScreen(colors.black,colors.white)
  modemenu = "jumping"
  SData.modemenu = "jumping"
  SaveData()
  statistic()
  sleep(0.3)
  return 0
end

function autosum()
  while summonloop do
    local event, command=os.pullEvent("chat_command")
    if (command=="sum1") then
      bridge.clear()
      bridge.addText(6,6,"summoning 1",0x777)
      warp.summon(0)
      bridge.clear()
    end
    if (command=="sum2")    then
      bridge.clear()
      bridge.addText(6,6,"summoning 2",0x777)
      warp.summon(1)
      bridge.clear()
    end
    sleep(3)
  end
  jumping()
end


function shipscan()
  modemenu = "shipscan"
  SData.modemenu = "shipscan"
  SaveData()
  screen.clear()
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.blue)
  screen.setCursorPos(backbutton_position.x, backbutton_position.y)
  screen.write("BACK")
  feelScreen(colors.purple,colors.white)
  screen.setCursorPos(shipsc_position.x , shipsc_position.y)
  screen.write("SCAN")
  feelScreen(colors.black,colors.white)
  feelScreen(colors.purple,colors.white)
  screen.setCursorPos(deployship_position.x , deployship_position.y)
  screen.write("DEPLOY")
  feelScreen(colors.black,colors.white)
end

function deployship()
  print(SData.schematic)
  if SData.schematic ~= "" then
    res,pw = shipscanner.deployShipFromSchematic(SData.schematic,0,30,0)
    print(res)
    print(pw)
  end

end

function scship()
  --print("scship")
  print("energy level " .. tostring(shipscanner.getEnergyLevel()))
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.green)
  screen.setCursorPos(shipsc_position.x, shipsc_position.y+8)
  screen.write(shipscanner.getEnergyLevel())
  scanstrings = shipscanner.scanShip()
  print(scanstrings)
  FN = shipscanner.getSchematicFileName()
  l = string.find(FN ," ")
  while l ~= nil do
    FN = shipscanner.getSchematicFileName()
    l = string.find(FN ," ")
    sleep(1)
    print("is scanning")
  end
  print(FN)
  SData.schematic = FN
  SaveData()
  sleep(0.3)
  return 0
end

function touch_control()
  local event, side, xPos, yPos = os.pullEvent("monitor_touch")
  if modemenu == "mine" then
    if xPos <= 10 and yPos >= screen_height-2 then
      startAll()
    elseif xPos >= stop_all_position.x and yPos >= stop_all_position.y then
      stopAll()
    elseif xPos >= lasermode_position.x -2 and xPos <= (lasermode_position.x + 5) and yPos == lasermode_position.y then
      setlasermode()
    elseif xPos >= backbutton_position.x  and xPos <= (backbutton_position.x + 10) and yPos == backbutton_position.y then
      mainmenu()
    end
    mining()
    sleep(0.5)
  elseif modemenu == "jumping" then
    if xPos >= backbutton_position.x  and xPos <= (backbutton_position.x + 10) and yPos == backbutton_position.y then
     mainmenu()
    elseif  xPos >= GoJump_position.x -1 and xPos <= GoJump_position.x +6 and yPos == GoJump_position.y then
      feelScreen(colors.black,colors.white)
      screen.setCursorPos(GoJump_position.x , GoJump_position.y)
      screen.setBackgroundColor(colors.green)
      screen.write("GO JUMP")
      Warp()
      sleep(0.3)
    elseif  xPos >= automine_position.x -1 and xPos <= automine_position.x +10 and yPos == automine_position.y then
      feelScreen(colors.black,colors.white)
      screen.setCursorPos(automine_position.x , automine_position.y)
      screen.setBackgroundColor(colors.green)
      screen.write("AUTOMINE")
      sleep(0.3)
      startAll()
      automine()
    end
  elseif modemenu == "main" then
    if xPos >= mining_position.x -1 and xPos <= mining_position.x +10 and yPos == mining_position.y then
      mining()
    elseif xPos >= jumping_position.x -1 and xPos <= jumping_position.x +10 and yPos == jumping_position.y then
      jumping()
    elseif  xPos >= shipscan_position.x -1 and xPos <= shipscan_position.x +10 and yPos == shipscan_position.y then
      shipscan()
    end
  elseif modemenu == "automine" then
    if xPos >= backbutton_position.x  and xPos <= (backbutton_position.x + 10) and yPos == backbutton_position.y then
      stopAll()
      mainmenu()
    end
  elseif modemenu == "shipscan" then
    if xPos >= shipsc_position.x -1 and xPos <= shipsc_position.x +10 and yPos == shipsc_position.y then
      scship()
    elseif xPos >= deployship_position.x-3  and xPos <= (deployship_position.x + 10) and yPos == deployship_position.y then

      deployship()
    elseif xPos >= backbutton_position.x  and xPos <= (backbutton_position.x + 10) and yPos == backbutton_position.y then
     mainmenu()
    end
  end

  sleep(0.3)
  return 0
end


function initwcore()
  if wcore == true then
    print("wcore is present")
    if fs.exists("shipdata.txt") then
      ReadData()
    else
      SData = {
      Summon = false,
      Distance = 1,
      Direction = 0,
      Shipname = "",
      modemenu = "",
      lasermode = "",
      schematic = ""
      }
    end
    SetColorDeflt()
    if type(warp) ~= "table" then
      ShowWarning("No warpcore controller detected")
      os.pullEvent("key")
      os.shutdown()
    end
    if SData.Shipname == "" then
      SetShipName()
    end
    if SData.Summon then
      warp.summon_all()
    end
    warp.set_mode(1)
    if SData.Summon then
      SData.Summon = false
      SaveData()
    end
    if SData.lasermode ~= "mine" or  SData.lasermode ~= "quarry"  then
      lasermode = "mine"
      SData.lasermode  = "mine"
      SaveData()
    end
    lasermode = SData.lasermode
    if SData.modemenu == "" or SData.modemenu == "main"  then
      modemenu = "main"
      mainmenu()
    elseif SData.modemenu == "jumping" then
      modemenu = "jumping"
      jumping()
    elseif SData.modemenu == "mine" then
      modemenu = "mine"
      mining()
    elseif SData.modemenu == "automine" then
      modemenu = "automine"
      startAll()
      automine()
    elseif SData.modemenu == "shipscan" then
      modemenu = "shipscan"
      shipscan()
    end
  end
end

function init()
  local periList = peripheral.getNames()
  for i = 1, #periList do
    device=peripheral.getType(periList[i])
    print(device)
    sleep(0.1)
    if device == "monitor" then
      mon = true
      screen = peripheral.wrap(periList[i])
      screen.setTextScale(MON_SCALE)
      screen_width, screen_height = screen.getSize()
      print("screensize:" .. tostring(screen_width) .."x".. tostring(screen_height))
      setScreenPosition()
    elseif device == "mininglaser" then
      las = true
      table.insert(lazors, periList[i])
    elseif device == "warpcore" then
      wcore = true
      warp = peripheral.wrap(periList[i])
    elseif device == "openperipheral_glassesbridge" then
      bridge = peripheral.wrap(periList[i])
    elseif device == "modem" then
      m = true
      m = peripheral.wrap(periList[i])
    elseif device == "shipscanner" then
      shipsc = true
      shipscanner = peripheral.wrap(periList[i])

    end
  end
end



function mainmenu()
  modemenu = "main"
  SData.modemenu = "main"
  SaveData()
  screen.clear()
  feelScreen(colors.orange,colors.cyan)
  screen.setCursorPos(title_position.x, title_position.y)
  screen.write("kopro-OS")
  screen.setCursorPos(title_position.x, title_position.y+1)
  screen.write("ver. 0.001")
  feelScreen(colors.cyan,colors.white)
  screen.setCursorPos(mining_position.x, mining_position.y)
  screen.write("MINE")
  feelScreen(colors.cyan,colors.white)
  screen.setCursorPos(shipscan_position.x, shipscan_position.y)
  screen.write("SHIPSCAN")
  feelScreen(colors.cyan,colors.white)
  screen.setCursorPos(jumping_position.x, jumping_position.y)
  screen.write("JUMP")
  feelScreen(colors.orange,colors.white)
  sleep(0.5)
  return 0
end

init()
initwcore()

while true do
  if modemenu == "mine" then
    parallel.waitForAny( touch_control,mining)
  elseif modemenu == "automine" then
   parallel.waitForAny( touch_control,automine)
  elseif modemenu == "jumping" then
   parallel.waitForAny(touch_control,manctrl)
  elseif modemenu == "main" then
   parallel.waitForAny( touch_control,mainmenu)
  elseif modemenu == "shipscan" then
   parallel.waitForAny( touch_control)
  end
end