View difference between Paste ID: NHrWRYkS and 4fx4HnK9

 --==============  Lights 1.0  ==============
 --==   copyright (c) 2014 InputUsername   ==
 --==========================================</fancy header>
 
 --=================================
 --== INITIALIZATION
 --=================================
 local w,h=term.getSize()
 if w<26 or h<14 then
 	w,h=nil,nil
 	print("Sorry, your display is too small.\nLights requires a display of at least 26x14 to work.")
 	return
 end
 if not term.isColor then
 	print("Sorry, your ComputerCraft version is not supported.\nPlease update to a recent version.")
 	return
 elseif not term.isColor() then
 	print("Sorry, Lights is currently supported on advanced computers only.")
 	return
 end
 
 --=================================
 --== SOME OOP-esque STUFF
 --=================================
 --new light at (x,y) with size (w,h), state (s) and colors (cOn,cOff)
 local function newLight(x,y,w,h,s,cOn,cOff)
 	return {
 		x=x,
 		y=y,
 		w=w,
 		h=h,
 		s=s,
 		cOn=cOn,
 		cOff=cOff,
 		draw=function(self)
 			term.setBackgroundColor(self.s==1 and self.cOn or self.cOff)
 			local b=(" "):rep(self.w)
 			for ypos=self.y,self.y+self.h-1 do
 				term.setCursorPos(self.x,ypos)
 				term.write(b)
 			end
 		end,
 		toggle = function(self)
 			if self.s==1 then self.s=0 else	self.s=1 end
 			self:draw()
 		end,
 		isclicked = function(self,xp,yp)
 			return(xp>=self.x)and(xp<=self.x+self.w-1)and(yp>=self.y)and(yp<=self.y+self.h-1)
 		end
 	}
 end
 
 --new button at (x,y) with text (s) and colors (cB,cT)
 local function newButton(x,y,s,cB,cT)
 	return {
 		x=x,
 		y=y,
 		s=s,
 		cB=cB,
 		cT=cT,
 		draw=function(self)
 			term.setBackgroundColor(self.cB)
 			term.setTextColor(self.cT)
 			term.setCursorPos(self.x,self.y)
 			term.write(self.s)
 		end,
 		isclicked=function(self,xp,yp)
 			return(xp>=self.x)and(xp<=self.x+#self.s-1)and(yp==self.y)
 		end
 	}
 end
 
 --=================================
 --== VARIABLES
 --=================================
 local colorScheme={
 	back=colors.black,
 	text=colors.white,
 	title=colors.green,
 
 	menuB=colors.green,
 	menuT=colors.white,
 
 	on=colors.green,
 	off=colors.gray,
 }
 
 local options = {
 	defaultGameLights=6,
 	patternGameLights=7
 }
 
 --either 'mainMenu', 'optionsMenu', 'aboutMenu', 'defaultGame', 'patternGame' or 'exit'
 local state="mainMenu"
 
 local tw,th=term.getSize()
 local cx,cy=math.floor(tw/2),math.floor(th/2)
 
 --=================================
 --== FUNCTIONS
 --=================================
 local function saveOptions()
 	local h=fs.open("/.lightsdata","w")
 	local s=textutils.serialize(options)
 	if type(s)=="string" then
 		h.write(s)
 	end
 	h.close()
 end
 
 local function loadOptions()
 	if not fs.exists("/.lightsdata") then
 		saveOptions()
 	end
 	local h=fs.open("/.lightsdata","r")
 	local c=h.readAll()
 	c=textutils.unserialize(c)
 	if type(c)=="table" then
 		options=c
 	end
 	h.close()
 end
 
 local function clear(x,y,b,t)
 	term.setCursorPos(x,y)
 	if b then term.setBackgroundColor(b) end
 	if t then term.setTextColor(t) end
 	term.clear()
 end
 
 local function initialize()
 	clear(1,1,colorScheme.back,colorScheme.text)
 end
 
 local function reset()
 	clear(1,1,colors.black,colors.white)
 end
 
 local function mainMenu()
 	clear(cx-3,cy-6,colorScheme.back,colorScheme.title)
 	term.write("Lights")
 
 	local items={" Regular game "," Pattern game ","   Options    ","    About     "}
 	local buttons={}
 
 	for i=1,#items do
 		buttons[i]=newButton(cx-6,cy-4+2*(i-1),items[i],colorScheme.menuB,colorScheme.menuT)
 		buttons[i]:draw()
 	end
-	buttons[#buttons+1]=newButton(cx-6,cy+5,"     Exit     ",colorScheme.menuB,colorScheme.menuT)
+	--buttons[#buttons+1]=newButton(cx-6,cy+5,"     Exit     ",colorScheme.menuB,colorScheme.menuT)
         --this button will crash Sapphari, we cannot allow the user to terminate the program.
 	buttons[#buttons]:draw()
 
-		local e,_,x,y=os.pullEvent"mouse_click"
+
 		local e,_,x,y=sapphUtils.pullEvent"mouse_click"
 		for i=1,#buttons do
 			if buttons[i]:isclicked(x,y) then
 				if i==1 then
 					state="defaultGame"
 					return
 				elseif i==2 then
 					state="patternGame"
 					return
 				elseif i==3 then
 					state="optionsMenu"
 					return
 				elseif i==4 then
 					state="aboutMenu"
 					return
 				elseif i==5 then
 					state="exit"
 					return
 				end
 			end
 		end
 	end
 end
 local function optionsMenu()
 	clear(cx-3,cy-6,colorScheme.back,colorScheme.title)
 	term.write("Options")
 
 	term.setTextColor(colorScheme.text)
 	term.setCursorPos(cx-10,cy-3)
 	term.write("Regular game lights:")
 	term.setCursorPos(cx-10,cy-1)
 	term.write("Pattern game lights:")
 
 	local items={}
 	local buttons={}
 
 	buttons[1]=newButton(cx+11,cy-3," "..options.defaultGameLights.." ",colorScheme.menuB,colorScheme.menuT)
 	buttons[2]=newButton(cx+11,cy-1," "..options.patternGameLights.." ",colorScheme.menuB,colorScheme.menuT)
 	buttons[3]=newButton(cx-6,cy+5,"     Back     ",colorScheme.menuB,colorScheme.menuT)
 
 	for i=1,#buttons do
 		buttons[i]:draw()
 	end
 
-		local e,_,x,y=os.pullEvent"mouse_click"
+
 		local e,_,x,y=sapphUtils.pullEvent"mouse_click"
 
 		for i=1,#buttons do
 			if buttons[i]:isclicked(x,y) then
 				if i==1 then
 					if options.defaultGameLights<9 then
 						options.defaultGameLights=options.defaultGameLights+1
 					else
 						options.defaultGameLights=3
 					end
 					buttons[i].s=" "..options.defaultGameLights.." "
 					buttons[i]:draw()
 				elseif i==2 then
 					if options.patternGameLights<9 then
 						options.patternGameLights=options.patternGameLights+1
 					else
 						options.patternGameLights=3
 					end
 					buttons[i].s=" "..options.patternGameLights.." "
 					buttons[i]:draw()
 				elseif i==3 then
 					state="mainMenu"
 					saveOptions()
 					return
 				end
 			end
 		end
 	end
 end
 local function aboutMenu()
 	clear(cx-3,cy-6,colorScheme.back,colorScheme.title)
 	term.write("About")
 
 	local function cwrite(y,s)
 		term.setCursorPos(cx-math.floor(#s/2),y)
 		term.write(s)
 	end
 
 	term.setTextColor(colorScheme.text)
 	cwrite(cy-4,"In Regular game mode, the goal is")
 	cwrite(cy-3,"to turn every light green.")
 	cwrite(cy-2,"In Pattern game mode, you must")
 	cwrite(cy-1,"copy a certain pattern to win.")
 
 	cwrite(cy+1,"You can exit with the 'give up' button.")
 
 	cwrite(cy+3,"Copyright (c) 2014 InputUsername")
         cwrite(cy+6, " Ported by Hithere, ALL CREDITS TO ORIGINAL AUTHOR")
 
 	local back=newButton(cx-6,cy+5,"     Back     ",colorScheme.menuB,colorScheme.menuT)
 	back:draw()
-		local e,_,x,y=os.pullEvent"mouse_click"
+
 	while true do
 		local e,_,x,y=sapphUtils.pullEvent"mouse_click"
 		if back:isclicked(x,y) then
 			state="mainMenu"
 			return
 		end
 	end
 end
 local function defaultGame()
 	clear(cx-6,cy-6,colorScheme.back,colorScheme.title)
 	term.write("Regular game")
 
 	local lights={}
 	for i=1,options.defaultGameLights do
 		lights[i]=newLight(cx-math.ceil(options.defaultGameLights*2.5)+5*(i-1),cy-4,4,3,math.floor(math.random(0,1)),colorScheme.on,colorScheme.off)
 		lights[i]:draw()
-	local giveup=newButton(2,2," Give up ",colorScheme.menuB,colorScheme.menuT)
+
 
 	local giveup=newButton(2,3," Give up ",colorScheme.menuB,colorScheme.menuT)
 	giveup:draw()
 
 	local function check()
 		for i=1,#lights do
 			if lights[i].s==0 then return false end
 		end
 		return true
 	end
-		local e,_,x,y = os.pullEvent"mouse_click"
+
 	while true do
 		local e,_,x,y = sapphUtils.pullEvent"mouse_click"
 		for i=1,#lights do
 			if lights[i]:isclicked(x,y) then
 				if lights[i-1] then lights[i-1]:toggle() end
 				if lights[i+1] then lights[i+1]:toggle() end
 				lights[i]:toggle()
 				break
 			end
 		end
 
 		if giveup:isclicked(x,y) then
 			clear(cx-2,cy,colorScheme.back,colorScheme.text)
 			term.write("D'oh! :(")
 			sleep(0.75)
 			state="mainMenu"
 			return
 		end
 
 		if check() then
 			sleep(.2)
 			clear(cx-6,cy,colorScheme.back,colorScheme.text)
 			term.write("Congratulations!")
 			sleep(1)
 			state="mainMenu"
 			return
 		end
 	end
 end
 local function patternGame()
 	clear(cx-6,cy-6,colorScheme.back,colorScheme.title)
 	term.write("Pattern game")
 
 	term.setCursorPos(cx-9,cy+1)
 	term.write("Copy this pattern:")
 
 	local lights={}
 	for i=1,options.patternGameLights do
 		lights[i]=newLight(cx-math.ceil(options.patternGameLights*5/2)+5*(i-1),cy-4,4,3,math.floor(math.random(0,1)),colorScheme.on,colorScheme.off)
 		lights[i]:draw()
-	local giveup=newButton(2,2," Give up ",colorScheme.menuB,colorScheme.menuT)
+
 
 	local giveup=newButton(2,3," Give up ",colorScheme.menuB,colorScheme.menuT)
 	giveup:draw()
 
 	local pattern={}
 	for i=1,options.patternGameLights do
 		pattern[i]=math.floor(math.random(0,1))
 		term.setBackgroundColor(pattern[i]==1 and colorScheme.on or colorScheme.off)
 		term.setCursorPos(cx-options.patternGameLights+2*(i-1),cy+3)
 		term.write(" ")
 	end
 
 	local function check()
 		for i=1,#lights do
 			if lights[i].s~=pattern[i] then return false end
 		end
 		return true
 	end
 
 	while check() do
 		for i=1,options.patternGameLights do
 			pattern[i]=math.floor(math.random(0,1))
 			term.setBackgroundColor(pattern[i]==1 and colorScheme.on or colorScheme.off)
 			term.setCursorPos(cx-options.patternGameLights+2*(i-1),cy+3)
 			term.write(" ")
 		end
 	end
-		local e,_,x,y = os.pullEvent"mouse_click"
+
 	while true do
 		local e,_,x,y = sapphUtils.pullEvent"mouse_click"
 		for i=1,#lights do
 			if lights[i]:isclicked(x,y) then
 				if lights[i-1] then lights[i-1]:toggle() end
 				if lights[i+1] then lights[i+1]:toggle() end
 				lights[i]:toggle()
 				break
 			end
 		end
 
 		if giveup:isclicked(x,y) then
 			clear(cx-2,cy,colorScheme.back,colorScheme.text)
 			term.write("D'oh! :(")
 			sleep(0.75)
 			state="mainMenu"
 			return
 		end
 
 		if check() then
 			sleep(.2)
 			clear(cx-6,cy,colorScheme.back,colorScheme.text)
 			term.write("Congratulations!")
 			sleep(1)
 			state="mainMenu"
 			return
 		end
 	end
 end
 
 --=================================
 --== GAME
 --=================================
 initialize()
 loadOptions()
 
 while true do
 	if state=="mainMenu" then
 		mainMenu()
 	elseif state=="optionsMenu" then
 		optionsMenu()
 	elseif state=="aboutMenu" then
 		aboutMenu()
 	elseif state=="defaultGame" then
 		defaultGame()
 	elseif state=="patternGame" then
 		patternGame()
 	elseif state=="exit" then
 		break
 	end
 end
 
 reset()
 saveOptions()