View difference between Paste ID: LUBcauBH and zyxqS7GC

-os.loadAPI("json")
+-- Manipulator Laser Defense System
 -- Originally made by Phaneron
-local sensor = peripheral.wrap("right")
+-- Modified by LDD (scrollable log, automatic laser detection, design change)
---local gun1 = peripheral.wrap("manipulator_8")
+
---local gun2 = peripheral.wrap("manipulator_9")
+if (not fs.exists("json")) and (not json) then
-local manips,guns
+	print("No JSON API found! Downloading...")
 	local prog = http.get("https://pastebin.com/raw/4nRg9CHU")
 	if not prog then
 		error("Couldn't download JSON API...")
 	else
 		local file = fs.open("json","w")
 		file.write(prog.readAll())
 		file.close()
 		os.loadAPI("json")
 	end
 elseif fs.exists("json") and (not json) then
 	os.loadAPI("json")
 end
 
 local manips,guns,sensor
 local scr_x,scr_y = term.getSize()
 log = {}
-  guns = {}
+
 
 local logadd = function(input)
   log[#log+1] = {
     txt = input,
     time = os.time(),
     day = os.day(),
   }
 end
 
 local ts = tostring
 
 local assignGuns = function()
   manips = {peripheral.find("manipulator")}
   guns = {}
   for a = 1, #manips do
     if manips[a].fire then
       guns[#guns+1] = manips[a]
     elseif manips[a].sense then
 		sensor = manips[a]
 	end
   end
 end
 
 assignGuns()
 
 if #guns == 0 then
   error("you've got no guns")
 end
 
 local tps = function(vis)
   if term.current().setVisible then
     term.current().setVisible(vis)
     return true
   else
     return false
   end
 end
 
 local cwrite = function(txt,y)
-phaneronHit = 0
+
   term.setCursorPos((scr_x/2)-math.ceil(#txt/2),y or cy)
--- leave EVERYTHING to me
+
 end
 
 local function fire(gun, entity)
   local x = entity.x
   local y = entity.y
   local z = entity.z
 
   local pitch = -math.atan2(y, math.sqrt(x * x + z * z))
   local yaw = math.atan2(-x, y)
   gun.fire(math.deg(yaw), math.deg(pitch), 5)
   sleep(0.2)
 end
 
 local fuckEmUp = function(target)
   assignGuns()
   for a = 1, #guns do
     fire(guns[a],target)
   end
 end
-  ["EldidiStroyrr"] = true --teehee
+
 local safeNames = {
   ["Phaneron"] = true,
   ["EldidiStroyrr"] = true, --teehee
-  --if name == "Phaneron" then
+
   ["Cow"] = true,
-    if phaneronHit > 5 then
+
-      error("hit 5 times"..phaneronHit)
+
   ["Rabbit"] = true,
-
+  ["MushroomCow"] = true,
-
+
   ["XPOrb"] = true,
   ["Painting"] = true,
   ["Arrow"] = true,
   ["plethora:laser"] = true,
 }
 
 function isATarget(name)
   if safeNames[name] then
     return false
   else
     return true
   end
 end
 
 term.setBackgroundColor(colors.black)
 term.clear()
 term.setTextColor(term.isColor() and colors.yellow or colors.lightGray)
 cwrite("Phaneron Laser Defence System",2)
 term.setTextColor(colors.gray)
 cwrite("-- None shall pass! --",3)
 term.setTextColor(colors.lightGray)
 cwrite("(lasers: "..#guns..")\n",4)
 term.setTextColor(colors.white)
 print(" Log of worthless peons:\n")
 local doTheSense = function()
   while true do
-      else
+
-        -- print(json.encode(r))
+
       if isATarget(r.name) and r.x ~= nil then
         if r.x > 6 then
           logadd("Engaged: '"..r.name.."'")
           os.queueEvent("laserlog_update")
           fuckEmUp(r)
         end
       end
     end
   end
 end
 
 local renderLog = function(scroll,topY)
   tps(false)
   for a = topY,scr_y do
     term.setCursorPos(1,a)
     term.clearLine()
     local lpos = scroll+(a-(topY-1))
     if log[lpos] then
       term.blit(ts(lpos)..(" "):rep(#ts(#log)-#ts(lpos)),("8"):rep(#ts(#log)),("7"):rep(#ts(#log)))
       term.write(" "..log[lpos].txt)
     end
   end
   tps(true)
 end
 
 local endbuf = 6
 local handleGUI = function()
   while true do
     local evt,dir = os.pullEvent()
     if evt == "mouse_scroll" then
       if dir+logscroll >= 0 and dir+logscroll <= (#log-(scr_y-endbuf)) then
         logscroll = dir+logscroll
         renderLog(logscroll,6)
       end
     elseif evt == "laserlog_update" then
       if logscroll >= (#log-(scr_y-endbuf)-1) then
         logscroll = #log-(scr_y-endbuf)
       end
       renderLog(logscroll,6)
     elseif evt == "key" then
       local scrolldist
       if dir == keys.up then
         scrolldist = -1
       elseif dir == keys.down then
         scrolldist = 1
       elseif dir == keys.pageUp then
         scrolldist = -(scr_y-endbuf)
       elseif dir == keys.pageDown then
         scrolldist = scr_y-endbuf
       elseif dir == keys.home then
         scrolldist = -#log
       elseif dir == keys["end"] then
         scrolldist = #log
       else
         scrolldist = 0
       end
       logscroll = math.max(0,math.min(logscroll+scrolldist,#log-(scr_y-endbuf)))
     end
   end
 end
 
 parallel.waitForAny(doTheSense,handleGUI)