SHOW:
|
|
- or go back to the newest paste.
| 1 | --#load the touchpoint API | |
| 2 | os.loadAPI("touchpoint")
| |
| 3 | os.sleep(1) | |
| 4 | ||
| 5 | --# wrap the radar to the computer | |
| 6 | local p = peripheral.find("warpdriveRadar")
| |
| 7 | local x,y,z = p.getLocalPosition() | |
| 8 | local rPosOK,dim,rPosX,rPosY,rPosZ,localdim = p.getGlobalPosition() | |
| 9 | local text = x .. " "..y.." "..z | |
| 10 | local ldim = localdim:gsub(" ","")
| |
| 11 | --# initialize the planet instance set on the monitor | |
| 12 | local t = touchpoint.new("right")
| |
| 13 | ||
| 14 | --# Add planets | |
| 15 | if ldim == "Hyperspace" then | |
| 16 | t:add("Galaxy Map V0.1", nil, 5, 2, 45, 2, colors.gray, colors.black)
| |
| 17 | t:add("Currently in: "..localdim.." ", nil, 5, 4, 45, 4, colors.red, colors.black)
| |
| 18 | t:add("Bogdaleos", nil, 5, 6, 17, 6, colors.green, colors.orange)
| |
| 19 | t:add("Avalon", nil, 19, 6, 31, 6, colors.green, colors.orange)
| |
| 20 | t:add("Centauri", nil, 33, 6, 45, 6, colors.green, colors.orange)
| |
| 21 | t:add("Groth", nil, 19, 8, 31, 8, colors.green, colors.orange)
| |
| 22 | t:add("Click Planet to Navigate to.", nil, 5, 16, 45, 16, colors.gray, colors.lightBlue)
| |
| 23 | t:add("Local Pos "..text.."", nil, 5, 18, 45, 18, colors.red, colors.red)
| |
| 24 | ||
| 25 | elseif ldim == "Avalonsystem" then | |
| 26 | t:add("Galaxy Map V0.1", nil, 5, 2, 45, 2, colors.gray, colors.black)
| |
| 27 | t:add("Currently in: "..localdim.." ", nil, 5, 4, 45, 4, colors.red, colors.black)
| |
| 28 | -- | |
| 29 | t:add("Algua", nil, 5, 6, 17, 6, colors.green, colors.orange)
| |
| 30 | t:add("Wasteland", nil, 19, 6, 31, 6, colors.green, colors.orange)
| |
| 31 | t:add("The Haven", nil, 33, 6, 45, 6, colors.green, colors.orange)
| |
| 32 | t:add("L'Borean", nil, 5, 8, 17, 8, colors.green, colors.orange)
| |
| 33 | t:add("End", nil, 19, 8, 31, 8, colors.green, colors.orange)
| |
| 34 | t:add("Prometium", nil, 33, 8, 45, 8, colors.green, colors.orange)
| |
| 35 | t:add("Creeponia", nil, 5, 10, 17, 10, colors.green, colors.orange)
| |
| 36 | t:add("Sun", nil, 19, 10, 31, 10, colors.green, colors.orange)
| |
| 37 | -- | |
| 38 | t:add("Click Planet to Navigate to.", nil, 5, 16, 45, 16, colors.gray, colors.lightBlue)
| |
| 39 | t:add("Local Pos "..text.."", nil, 5, 18, 45, 18, colors.red, colors.red)
| |
| 40 | ||
| 41 | elseif ldim == "Centaurisystem" then | |
| 42 | t:add("Galaxy Map V0.1", nil, 5, 2, 45, 2, colors.gray, colors.black)
| |
| 43 | t:add("Currently in: "..localdim.." ", nil, 5, 4, 45, 4, colors.red, colors.black)
| |
| 44 | -- | |
| 45 | t:add("Alpha Site", nil, 5, 6, 17, 6, colors.green, colors.orange)
| |
| 46 | t:add("Candyland", nil, 19, 6, 31, 6, colors.green, colors.orange)
| |
| 47 | t:add("Centauri II", nil, 33, 6, 45, 6, colors.green, colors.orange)
| |
| 48 | t:add("Gardenica", nil, 5, 8, 17, 8, colors.green, colors.orange)
| |
| 49 | t:add("Greckon", nil, 19, 8, 31, 8, colors.green, colors.orange)
| |
| 50 | t:add("Iromine", nil, 33, 8, 45, 8, colors.green, colors.orange)
| |
| 51 | t:add("Lelyetia", nil, 5, 10, 17, 10, colors.green, colors.orange)
| |
| 52 | t:add("Runador", nil, 19, 10, 31, 10, colors.green, colors.orange)
| |
| 53 | t:add("Sun", nil, 33, 10, 45, 10, colors.green, colors.orange)
| |
| 54 | t:add("Click Planet to Navigate to.", nil, 5, 16, 45, 16, colors.gray, colors.lightBlue)
| |
| 55 | t:add("Local Pos "..text.."", nil, 5, 18, 45, 18, colors.red, colors.red)
| |
| 56 | ||
| 57 | elseif ldim == "Grothsystem" then | |
| 58 | t:add("Galaxy Map V0.1", nil, 5, 2, 45, 2, colors.gray, colors.black)
| |
| 59 | t:add("Currently in: "..localdim.." ", nil, 5, 4, 45, 4, colors.red, colors.black)
| |
| 60 | ||
| 61 | t:add("Click Planet to Navigate to.", nil, 5, 16, 45, 16, colors.gray, colors.lightBlue)
| |
| 62 | t:add("Local Pos "..text.."", nil, 5, 18, 45, 18, colors.red, colors.red)
| |
| 63 | ||
| 64 | elseif ldim == "Wasteland" then | |
| 65 | t:add("Galaxy Map V0.1", nil, 5, 2, 45, 2, colors.gray, colors.black)
| |
| 66 | t:add("Currently in: "..localdim.." ",nil, 5, 4, 45, 4, colors.red, colors.black)
| |
| 67 | ||
| 68 | t:add("Click Planet to Navigate to.", nil, 5, 16, 45, 16, colors.gray, colors.lightBlue)
| |
| 69 | t:add("Local Pos "..text.."", nil, 5, 18, 45, 18, colors.red, colors.red)
| |
| 70 | end | |
| 71 | ||
| 72 | ||
| 73 | --t:add("Shulker", nil, 5, 6, 17, 8, colors.blue, colors.lightBlue)
| |
| 74 | --t:add("Wither", nil, 19, 6, 31, 8, colors.blue, colors.lightBlue)
| |
| 75 | --t:add("Feral Ghoul", nil, 33, 6, 45, 8, colors.blue, colors.lightBlue)
| |
| 76 | --t:add("Evoker", nil, 5, 11, 17, 13, colors.blue, colors.lightBlue)
| |
| 77 | --t:add("Z Pigman", nil, 19, 11, 31, 13, colors.blue, colors.lightBlue)
| |
| 78 | --t:add("Ghast", nil, 33, 11, 45, 13, colors.blue, colors.lightBlue)
| |
| 79 | --t:add("Skeleton", nil, 5, 16, 17, 18, colors.blue, colors.lightBlue)
| |
| 80 | --t:add("Z Miner", nil, 19, 16, 31, 18, colors.blue, colors.lightBlue)
| |
| 81 | --t:add("Witch", nil, 33, 16, 45, 18, colors.blue, colors.lightBlue)
| |
| 82 | --t:add("Blizz", nil, 5, 21, 17, 23, colors.blue, colors.lightBlue)
| |
| 83 | --t:add("Slime", nil, 19, 21, 31, 23, colors.blue, colors.lightBlue)
| |
| 84 | --t:add("Cyberdemon", nil, 33, 21, 45, 23, colors.blue, colors.lightBlue)
| |
| 85 | --t:add("Spider", nil, 5, 26, 17, 28, colors.blue, colors.lightBlue)
| |
| 86 | --t:add("Enderman", nil, 19, 26, 31, 28, colors.blue, colors.lightBlue)
| |
| 87 | ||
| 88 | ||
| 89 | ||
| 90 | ||
| 91 | ||
| 92 | ||
| 93 | --t:add("You will be teleported upon picking a kit", nil, 3, 17, 47, 18, colors.black, colors.black)
| |
| 94 | --# draw the buttons | |
| 95 | t:draw() | |
| 96 | ||
| 97 | while true do | |
| 98 | --# handleEvents will convert monitor_touch events to button_click if it was on a button | |
| 99 | local event, p1 = t:handleEvents(os.pullEvent()) | |
| 100 | if event == "button_click" then | |
| 101 | if p1 == "Bogdaleos" then | |
| 102 | t:flash(p1) | |
| 103 | ||
| 104 | elseif p1 == "Avalon" then | |
| 105 | t:flash(p1) | |
| 106 | ||
| 107 | elseif p1 == "Centauri" then | |
| 108 | t:flash(p1) | |
| 109 | ||
| 110 | elseif p1 == "Groth" then | |
| 111 | t:flash(p1) | |
| 112 | ||
| 113 | end | |
| 114 | end | |
| 115 | end |