kopro OS ver. 0.002

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+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}
  radar_position = {x=screen_width/2 - 2, y = screen_height/2}
  radarscan_position = {x=2, y = screen_height-2}
  title_position  = {x=1, y = 1}
  textcenter_position = {x=1, y = screen_height/2}
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()
  mainmenu()
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")
  if las then
    feelScreen(colors.black,colors.white)
    screen.setCursorPos(automine_position.x , automine_position.y)
    screen.setBackgroundColor(colors.cyan)
    screen.write("AUTOMINE")

  end
  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 radarscan()
  modemenu = "radar"
  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)
  radiusr = 1000
  print(radar.pos())
  RadarEnergyLevel = radar.getEnergyLevel()
  print(RadarEnergyLevel)
  if RadarEnergyLevel < radiusr * radiusr then
    print("Low energy level. Sasaj")
    screen.setBackgroundColor(colors.red)
    screen.setCursorPos(1 , backbutton_position.y + 4)
    screen.write("Low energy ")
    feelScreen(colors.black,colors.white)
    sleep(1)
    mainmenu()
  end
  screen.setBackgroundColor(colors.cyan)
  screen.setCursorPos(1 , backbutton_position.y + 2)
  screen.write("Energy " .. RadarEnergyLevel)
  feelScreen(colors.black,colors.white)
  sc = radar.scanRadius(radiusr)
  print(sc)
  --sleep(0.3)
  print("Scanning...")
  rcount = radar.getResultsCount()
  if rcount > 0 then
    for i=0, rcount-1 do
      freq, x, y, z = radar.getResult(i)
      print("Find: "..freq.." ("..x.. " " .. y .. " " .. z .. ")")
      screen.setBackgroundColor(colors.blue)
      screen.setCursorPos(textcenter_position.x, textcenter_position.y -4)
      screen.write("Find: "..x.. " " .. y .. " " .. z)
      feelScreen(colors.black,colors.white)
    end
    mainmenu()
  else
    print("Nothing is found =(")
    screen.setBackgroundColor(colors.blue)
    screen.setCursorPos(textcenter_position.x, textcenter_position.y)
    screen.write("Nothing =(")
  end
  feelScreen(colors.black,colors.white)
  screen.setBackgroundColor(colors.green)
  screen.setCursorPos(radarscan_position.x , radarscan_position.y)
  screen.write("START RADAR")
  feelScreen(colors.black,colors.white)
  sleep (1)

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
      sleep(0.2)
      mainmenu()
    end
    mining()
    sleep(0.2)
  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
      if las 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
    end
  elseif modemenu == "main" then
    if xPos >= mining_position.x -1 and xPos <= mining_position.x +10 and yPos == mining_position.y then
      if las then
        mining()
      end
    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
      if shipsc then
        shipscan()
      end
    elseif  xPos >= radar_position.x -1 and xPos <= radar_position.x +10 and yPos == radar_position.y then
      if radar then
        radarscan()
      end
    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
  elseif modemenu == "radar" then
    if xPos >= radarscan_position.x -1 and xPos <= radarscan_position.x +10 and yPos == radarscan_position.y then
      feelScreen(colors.black,colors.white)
      screen.setCursorPos(radarscan_position.x , radarscan_position.y)
      screen.setBackgroundColor(colors.green)
      screen.write("START RADAR")
      sleep(0.3)
      radarscan()
    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 then
    print("wcore is present")
      if mon ~= true then
        print "need monitor"
        return 0

      else

        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 == "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()
        else
          modemenu = "main"
          mainmenu()
        end
      end
  else
    print ("need wcore controller")
  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])
    elseif device == "radar" then
      rad = true
      radar = 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.002")
  if las == true then
    feelScreen(colors.cyan,colors.white)
    screen.setCursorPos(mining_position.x, mining_position.y)
    screen.write("MINE")
  end
  if  shipsc == true then
    feelScreen(colors.cyan,colors.white)
    screen.setCursorPos(shipscan_position.x, shipscan_position.y)
    screen.write("SHIPSCAN")
  end
  feelScreen(colors.cyan,colors.white)
  screen.setCursorPos(jumping_position.x, jumping_position.y)
  screen.write("JUMP")
  if rad == true then
    feelScreen(colors.cyan,colors.white)
    screen.setCursorPos(radar_position.x, radar_position.y)
    screen.write("RADAR")
  end
  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)
  elseif modemenu == "radar" then
   parallel.waitForAny( touch_control,radarscan)
  end
end