kopro OS ver. 0.004

        MON_SCALE  = 0.5
        MIN_OFFSET = 2
        MAX_OFFSET = 250
        lazors     = {}
        states     = {}
        wcores         = {}
        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}
          JumpToCoord_position = {x=screen_width/2 - 3, y = screen_height/2+4}
          automine_position = {x=screen_width/2 - 3, y = screen_height/2+2}
          shipscan_position = {x=screen_width/2 - 3, y = screen_height/2+2}
          shipsc_position = {x=screen_width/2 - 2, y = screen_height/2-6}
          deployship_position = {x=screen_width/2 - 3, y = screen_height/2-4}
          deployship1_position = {x=2, y = screen_height/2-2}
          deployship2_position = {x=2, y = screen_height/2}
          deployship3_position = {x=2, y = screen_height/2+2}
          deployship4_position = {x=2, y = screen_height/2+4}
          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 GetMinimumDistance()
          if IsInHyper then
            MinimumDistance = 1
          else
            if SData.Direction == 1 or SData.Direction == 2 then
              MinimumDistance = GUp + GDown
            elseif SData.Direction == 0 or SData.Direction == 180 then
              MinimumDistance = GFront + GBack
            elseif SData.Direction == 90 or SData.Direction == 255 then
              MinimumDistance = GLeft + GRight
            end
            MinimumDistance = MinimumDistance + 1
          end
        end

        function CalcRealDistance()
        GetMinimumDistance()
          if IsInHyper then
            RealDistance = SData.Distance * 100
            JumpCost = (1000 * Weight) + (1000 * SData.Distance)
          else
            RealDistance = SData.Distance + MinimumDistance
            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)
          if SData.MainCore == SData.CurrentCore then
            Show("Current core: " .. tostring(wcores[curCoreIndex]["ID"]) .. "M")
          else
            Show("Current core: " .. tostring(wcores[curCoreIndex]["ID"]) )
          end
          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()
        end

        function Warp()
          rs.setOutput(Alarm, false)
          if multicore then
            for cr = 1, #wcores do
              warp = wcores[cr]["core"]
              SData.CurrentCore = wcores[cr]["ID"]
              SaveData()
              if SData.MainCore ~= SData.CurrentCore then
                warp.set_direction(SData.Direction)
                warp.set_distance(SData.Distance)
                if IsInHyper then
                  warp.set_mode(2)
                else
                  warp.set_mode(1)
                end
               -- sleep(5)
                warp.do_jump()
                sleep(2)
              end
            end
            warp = wcores[SData.MainCore]["core"]
            warp.set_direction(SData.Direction)
            warp.set_distance(SData.Distance)
            if IsInHyper then
                warp.set_mode(2)
            else
                    warp.set_mode(1)
            end
            warp.do_jump()
            sleep(1)
          else
            warp.set_direction(SData.Direction)
            warp.set_distance(SData.Distance)
            if IsInHyper then
                    warp.set_mode(2)
            else
                    warp.set_mode(1)
            end
            warp.do_jump()

          end
        end

        function autojumpStatistic()
          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(1 , 3)
          screen.setBackgroundColor(colors.blue)
          screen.write( "DestCoords")
          feelScreen(colors.black,colors.white)
          screen.setCursorPos(1 , 4)
          screen.setBackgroundColor(colors.green)
          screen.write( " x:" .. SData.DestCoordX .. " Z:" .. SData.DestCoordZ)
          feelScreen(colors.black,colors.white)
          screen.setCursorPos(1 , 6)
          screen.setBackgroundColor(colors.green)
          DX  = math.abs(SData.DestCoordX - X)
          DZ  = math.abs(SData.DestCoordZ - Z)
          screen.write( " DX:" .. DX)
          feelScreen(colors.black,colors.white)
          screen.setCursorPos(1 , 7)
          screen.setBackgroundColor(colors.green)
          screen.write( " DZ:" .. DZ)
          feelScreen(colors.black,colors.white)
          screen.setCursorPos(1 , 9)
          screen.setBackgroundColor(colors.red)
          screen.write( " ENERGY:" .. warp.get_energy_level())
          feelScreen(colors.black,colors.white)
          screen.setCursorPos(1 , 11)
          screen.setBackgroundColor(colors.magenta)
          screen.write( " Jumps:" ..math.floor(warp.get_energy_level()/JumpCost))
          feelScreen(colors.black,colors.white)
        end

        function SetCoord()
          modemenu = "jtc"
          if SData.autojump == true then
            JumpToCoord()
          end
          Clear()
          ShowTitle("<====  Set DestCoords  ====>")
          term.write(" X ("..SData.DestCoordX..") : ")
          SData.DestCoordX = tonumber(read())
          term.write(" Z ("..SData.DestCoordZ..") : ")
          SData.DestCoordZ = tonumber(read())
          SaveData()
          sleep(0.3)
          if Confirm() then
            JumpToCoord()
          end
        end

        function GoToSpace()
          autojumpStatistic()
          if warp.is_in_space() then
            SData.DestCoordY = 250
            SData.Direction = 1
            GetMinimumDistance()
            SaveData()
            DY  = math.abs(SData.DestCoordY - Y)
            if DY > MinimumDistance then
              if SData.DestCoordY>Y then
                SData.Direction = 1
              elseif SData.DestCoordY<Y then
                SData.Direction = 0
              end
              Dist = DY
              GetMinimumDistance()
              MaxDist = MinimumDistance+127
              print(MaxDist .. " MaxDist")
              print(Dist .. " Dist")
              if Dist>MaxDist then
                SData.Distance = MaxDist
              else
                SData.Distance = Dist
              end
              SaveData()
              Warp()
              sleep(10)
            end
          elseif not IsInHyper then

            SData.Direction = 1
            GetMinimumDistance()
            MaxDist = MinimumDistance+127
            SData.Distance = MaxDist
            SaveData()
            Warp()
            sleep(10)
          end
        end


        function JumpInHyper()
          autojumpStatistic()
          if IsInHyper then
            print("in Hyperspace")

            DX  = math.abs(SData.DestCoordX - X)
            print(DX .. " alldistX")
            DZ  = math.abs(SData.DestCoordZ - Z)
            print(DZ .. " alldistZ")
            SData.Direction = 255
            GetMinimumDistance()

            if DX > 100 then
              if SData.DestCoordX>X then
                SData.Direction = 255
              elseif SData.DestCoordX<X then
                SData.Direction = 90
              end
              Dist = DX
              GetMinimumDistance()
              MaxDist = MinimumDistance+127
              print(MaxDist .. " MaxDist")
              print(Dist .. " Dist")
              if Dist>MaxDist*100 then
                SData.Distance = MaxDist
              else
                SData.Distance = math.floor(Dist/100)
              end
              SaveData()
              Warp()
              sleep(10)
            else
              SData.Direction = 180
              GetMinimumDistance()
              if DZ > 100 then
                if SData.DestCoordZ>Z then
                  SData.Direction = 180
                elseif SData.DestCoordZ<Z then
                  SData.Direction = 0
                end
                Dist = DZ
                GetMinimumDistance()
                MaxDist = MinimumDistance + 127
                print(MaxDist .. " MaxDist")
                print(Dist .. " Dist")
                if Dist>MaxDist*100 then
                  SData.Distance = MaxDist
                else
                  SData.Distance = math.floor(Dist/100)
                end
                SaveData()
                Warp()
                sleep(10)
              end
            end
          else
            print("go to Hyperspace")
            rs.setOutput(Alarm, false)
            warp.set_mode(5)
            warp.do_jump()
            sleep (10)
          end
        end


        function JumpToCoord()
          autojumpStatistic()
          SData.autojump = true
          SaveData()
          GoToSpace()

          print(SData.DestCoordX)
          DX  = math.abs(SData.DestCoordX - X)
          DZ  = math.abs(SData.DestCoordZ - Z)
          SData.Direction = 255
          GetMinimumDistance()
          MaxDist = MinimumDistance+127
          MAXDX =MaxDist*5
          if DX>MAXDX or DZ>MAXDX then
            print(MAXDX .. " to Hyperspace")
            JumpInHyper()
          else
            if IsInHyper then
              rs.setOutput(Alarm, false)
              warp.set_mode(5)
              warp.do_jump()
            end
          end
          if DX > MinimumDistance then
            if SData.DestCoordX>X then
              SData.Direction = 255
            elseif SData.DestCoordX<X then
              SData.Direction = 90
            end
            Dist = DX
            GetMinimumDistance()
            MaxDist = MinimumDistance+127
            if Dist>MaxDist then
              SData.Distance = MaxDist
            else
              SData.Distance = Dist
            end
            for i = 0,5 do
              print("autojump in " .. 5-i .. "sec.")
              sleep(1)
              i = i+1
            end
            SaveData()
            Warp()
            sleep(10)
          else
            SData.Direction = 180
            GetMinimumDistance()
            if DZ > MinimumDistance then
              if SData.DestCoordZ>Z then
                SData.Direction = 180
              elseif SData.DestCoordZ<Z then
                SData.Direction = 0
              end
              Dist = DZ
              GetMinimumDistance()
              MaxDist = MinimumDistance + 127
              if Dist>MaxDist then
                SData.Distance = MaxDist
              else
                SData.Distance = Dist
              end
              for i = 0,5 do
                print("autojump in " .. 5-i .. "sec.")
                sleep(1)
                i = i+1
              end
              SaveData()
              Warp()
              sleep(10)
            else
              SData.autojump = false
              SaveData()
            end
          end
        end


        function SetDistance()
          Clear()
          ShowTitle("<====  Set distance  ====>")
          SData.Distance = 0
          GetMinimumDistance()
          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()
          jumping()
        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 - set MainCore, 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")
          ShowMenu("Press <Left> or <Right> to switch core")
          ShowMenu("Press <Enter> to select core")
          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
            SData.MainCore = SData.CurrentCore
            SaveData()
            statistic()
          elseif keycode == 32 then
            SetDimensions()
            SaveData()
           elseif multicore==true and (keycode == 203 or keycode == 205) then -- Left or right with wcores count > 1
                                if keycode == 203 then
                                        if curCoreIndex==1 then
                                                curCoreIndex = #wcores
                                        else
                                                curCoreIndex = curCoreIndex-1
                                        end
                                elseif keycode == 205 then -- Right
                                        if curCoreIndex==#wcores then
                                                curCoreIndex = 1
                                        else
                                                curCoreIndex = curCoreIndex+1
                                        end
                                end
                                warp = wcores[curCoreIndex]["core"]
                                SData["CurrentCore"] = wcores[curCoreIndex]["ID"]
                                SaveData()
                                statistic()
          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.cyan,colors.white)
          screen.setCursorPos(JumpToCoord_position.x, JumpToCoord_position.y)
          screen.write("JUMP TO")
          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)
          feelScreen(colors.purple,colors.white)
          screen.setCursorPos(deployship1_position.x , deployship1_position.y)
          screen.write("1.MinePlat")
          feelScreen(colors.black,colors.white)
          feelScreen(colors.purple,colors.white)
          screen.setCursorPos(deployship2_position.x , deployship2_position.y)
          screen.write("2.PEKAFlower")
          feelScreen(colors.black,colors.white)
          feelScreen(colors.purple,colors.white)
          screen.setCursorPos(deployship3_position.x , deployship3_position.y)
          screen.write("3.TAXI")
          feelScreen(colors.black,colors.white)
          feelScreen(colors.purple,colors.white)
          screen.setCursorPos(deployship4_position.x , deployship4_position.y)
          screen.write("4.M.Ring")
          feelScreen(colors.black,colors.white)
        end

        function deployship(schema)
           print(schema)
            if schema == SData.schematic then
              if SData.schematic ~= "" then
                res,pw = shipscanner.deploy(SData.schematic,0,20,0)
                print(res)
                print(pw)
              end
            else
              if schema ~= "" then
                res,pw = shipscanner.deploy(schema,0,20,0)
                print(res)
                print(pw)
              end
            end
        end

        function scship()
          --print("scship")
          print("energy level " .. tostring(shipscanner.energy()))
          feelScreen(colors.black,colors.white)
          screen.setBackgroundColor(colors.green)
          screen.setCursorPos(shipsc_position.x, shipsc_position.y+12)
          screen.write(shipscanner.energy())
          scanstrings = shipscanner.scan()
          print(scanstrings)
          FN =shipscanner.fileName()
          l = string.find(FN ," ")
          while l ~= nil do
            FN = shipscanner.fileName()
            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
            elseif  xPos >= JumpToCoord_position.x -1 and xPos <= JumpToCoord_position.x +6 and yPos == JumpToCoord_position.y then
              feelScreen(colors.black,colors.white)
              SetCoord()
              sleep(1)
            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(SData.schematic)
            elseif xPos >= deployship1_position.x  and xPos <= (deployship1_position.x + 10) and yPos == deployship1_position.y then
              schema = "d1404472739316.schematic"
              deployship(schema)
            elseif xPos >= deployship2_position.x and xPos <= (deployship2_position.x + 10) and yPos == deployship2_position.y then
              schema = "default1407225353906.schematic"
              deployship(schema)
            elseif xPos >= deployship3_position.x  and xPos <= (deployship3_position.x + 10) and yPos == deployship3_position.y then
              schema = "taxi1407485902452.schematic"
              deployship(schema)
            elseif xPos >= deployship4_position.x  and xPos <= (deployship4_position.x + 10) and yPos == deployship4_position.y then
              schema = "default1409504631567.schematic"
              deployship(schema)
            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
          elseif modemenu == "jtc" then
            if xPos >= backbutton_position.x  and xPos <= (backbutton_position.x + 10) and yPos == backbutton_position.y then
              SData.autojump = false
              SaveData()
              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 = "",
                  CurrentCore = "",
                  MainCore = "",
                  autojump = "",
                  DestCoordX = "",
                  DestCoordY = "",
                  DestCoordZ = ""
                  }
                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.autojump ==true then
                  statistic()
                  autojumpStatistic()
                  if IsInHyper then
                    JumpInHyper()
                  else
                    JumpToCoord()
                  end
                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()
          --sleep(5)
          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
                    nc = 1
                    if wcore == true then
                            multicore = true
                            sleep(1)
                            nc = nc+1
                            print("multicore")
                            sleep(0.1)
                            table.insert(wcores,{ID = nc,core = peripheral.wrap(periList[i])})
                            warp = wcores[nc]["core"]
                            warp.set_mode(1)
                    else
                                    wcore = true
                                    warp = peripheral.wrap(periList[i])
                                    table.insert(wcores,{ID=nc,core = peripheral.wrap(periList[i])})
                                    warp.set_mode(1)
                    end
                            curCoreIndex = #wcores

                wcores[#wcores]["core"].set_mode(1)
            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.004")
          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 == "jtc" then
           parallel.waitForAny(touch_control,SetCoord)
          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