View difference between Paste ID: XDgeSDTq and RpfK4aHf

-local scr_x, scr_y = term.getSize()
+--[[
    Sinelock v1.3
-local doit = function(move)
+  The *COOLEST* computer/door lock ever!
-  if not move then move = 0 end
+ Now with slightly less seizure!
-  local res1,res2
+
-  for a = 1, scr_y do
+ pastebin get XDgeSDTq sinelock
-    for b = 1, scr_x do
+ std pb XDgeSDTq sinelock
-      local x = b+math.floor(scr_x/2)
+ std ld sinelock sinelock
-      local y = a-math.ceil(scr_y/2)
+
-      res1 = math.abs( math.floor(math.sin((x/7)+move)*6) - y ) <= 2
+ Now with salting!
-      term.setCursorPos(b,a)
+--]]
-      if res1 then
+local scr_x, scr_y = term.getSize()	--Gets screen size. Don't modify this
-        term.blit(" ","7","7")
+
-      else
+--Config variables start!
-        term.write(" ")
+local terminateMode = 2				--0 enables termination, 1 blocks it, 2 provides a taunting screen.
-      end
+local passFile = ".sl_password"		--The ABSOLUTE path of the password file.
-      res2 = math.abs( math.floor(math.cos((x/4)+(move*4))*3) - y+2 ) <= 1
+local saltFile = ".sl_salt"			--The ABSOLUTE path of the salt file.
-      term.setCursorPos(b,a)
+local characterLimit = 1024			--The cap of characters at the read() prompt. Set this to prevent crashes.
-      if res2 then
+local runProgram = ""				--Set to something to run it when correct, and not using doors.
-        term.blit(" ","8","8")
+local dahChar = "*"					--The character used to hide characters when typed.
-      else
+local doKeyCards = true				--Whether or not the lock also accepts keycards (floppy disks) as well as passwords.
-        if not res1 then
+local doEjectDisk = false			--Whether or not to eject a keycard after it's accepted, just to speed things up a bit.
-          if (x % 2 == 0) and ((y+math.floor(move*-10)+(x % 5)) % 5 <= 1) then
+local doorSides = {}				--If it has anything, the lock will open the doors instead of unlocking the PC.
-            term.blit("|","7","f")
+local doInvertSignal = false		--If true, it will invert the redstone signal of the door, in case you need to.
-          else
+local doShowDoorSides = true		--If true, will show the door sides being opened. Set to false if you are paranoid.
-            term.write(" ")
+local beWavey = true				--Whether or not to animate the sine wave.
-          end
+local readYpos = scr_y-2			--The Y position of the read() prompt
-        end
+local requireAllPasswords = false	--Whether or not the lock asks for ONE of the multiple passwords, or ALL of them in order.
-      end
+local badlength = 4					--The length in seconds that you have to wait to try again.
-    end
+local goodlength = 6				--The length in seconds that doors will stay open.
-  end
+local sineFrameDelay = 0.15			--The amount of time between sine animation frames. Tradeoff of purty vs performance.
 local palate = {
 	frontsine = colors.lightGray,
-while true do
+	backsine = colors.gray,
-  for a = 1, 900 do
+	background = colors.black,
-    --term.clear()
+	rainColor = colors.gray,
-    doit(a/10)
+	rainChar = "|",
-    sleep(0.05)
+	promptBG = colors.gray,
-  end
+	promptTXT = colors.white,
 	wrongBG = colors.black,
 	wrongTXT = colors.gray,
 }
 local language = "english"
 local lang = {
 	english = {
 		wrong1 = "YOU ARE WRONG.",
 		wrong2 = "YOU ARE WRONG. AS ALWAYS.",
 		right1 = "Correct!",
 		right2 = "Correct, finally!",
 	},
 	spanish = {
 		wrong1 = "ESTA USTED EQUIVOCADO.",
 		wrong2 = "ESTA USTED EQUIVOCADO. TODAVIA OTRA VEZ.",
 		right1 = "Correcto!",
 		right2 = "Asi es, por fin!",
 		noTerminate = "No termine!",
 	},
 	german = {
 		wrong1 = "SIE LIEGEN FALSCH.",
 		wrong2 = "SIE LIEGEN FALSCH. WIE IMMER.",
 		right1 = "Richtig!",
 		right2 = "Richtig, endlich!",
 		noTerminate = "Nicht zu beenden!",
 	},
 	dutch = {
 		wrong1 = "U BENT ONJUIST.",
 		wrong2 = "JE BENT ONJUIST, ALS ALTIJD.",
 		right1 = "Dat is juist!",
 		right2 = "Dat is juist, eindelijk!",
 		noTerminate = "Niet te beeindigen!",
 	},
 	latin = { --As a joke
 		wrong1 = "ERRAS",
 		wrong2 = "TU DEFICIENTES!",
 		right1 = "Quod suus 'verum!",
 		right2 = "Quod suus 'verum, demum!",
 		noTerminate = "Vade futuo te ipsum!",
 	},
 	italian = {
 		wrong1 = "HAI SBAGLIATO.",
 		wrong2 = "HAI SBAGLIATO, COME SEMPRE D'ALTRONDE.",
 		right1 = "CORRETTO!",
 		right2 = "CORRETTO, FINALMENTE!",
 		noTerminate = "Non cercare di terminarmi",
 	},
 }
 
 -- Config variables end. Don't touch anything else, m'kay?
 if not _VERSION then
 	return printError("Sorry, only CC 1.7 and later supported.")
 end
 local csv, salt, doSine
 local floor, ceil, random, abs = math.floor, math.ceil, math.random, math.abs
 local sin, cos = math.sin, math.cos
 local rhite = term.write
 local setTextColor, setBackgroundColor, getTextColor, getBackgroundColor = term.setTextColor, term.setBackgroundColor, term.getTextColor, term.getBackgroundColor
 local setCursorPos, setCursorBlink, getCursorPos, getSize = term.setCursorPos, term.setCursorBlink, term.getCursorPos, term.getSize
 local sineLevel = 1
 local isTerminable = false
 local kaykaycoolcool = true
 if term.current().setVisible then
 	csv = true
 else
 	csv = false
 end
 
 local writeError = function(...)
 	local tx,bg = getTextColor(),getBackgroundColor()
 	if term.isColor() then
 		setTextColor(colors.red)
 	else
 		setTextColor(colors.white)
 	end
 	rhite(table.concat(arg," "))
 	setTextColor(tx)
 	setBackgroundColor(bg)
 end
 
 local goodPullEvent
 if terminateMode == 1 then
 	if os.pullEvent ~= os.pullEventRaw then
 		goodPullEvent = os.pullEvent
 	end
 	os.pullEvent = os.pullEventRaw
 end
 
 local keepLooping = true
 
 ---- SHA256 START ----
 --SHA256 implementation done by GravityScore.
 
 local MOD = 2^32
 local MODM = MOD-1
 
 local function memoize(f)
 	local mt = {}
 	local t = setmetatable({}, mt)
 	function mt:__index(k)
 		local v = f(k)
 		t[k] = v
 		return v
 	end
 	return t
 end
 
 local function make_bitop_uncached(t, m)
 	local function bitop(a, b)
 		local res,p = 0,1
 		while a ~= 0 and b ~= 0 do
 			local am, bm = a % m, b % m
 			res = res + t[am][bm] * p
 			a = (a - am) / m
 			b = (b - bm) / m
 			p = p*m
 		end
 		res = res + (a + b) * p
 		return res
 	end
 	return bitop
 end
 
 local function make_bitop(t)
 	local op1 = make_bitop_uncached(t,2^1)
 	local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
 	return make_bitop_uncached(op2, 2 ^ (t.n or 1))
 end
 
 local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})
 
 local function bxor(a, b, c, ...)
 	local z = nil
 	if b then
 		a = a % MOD
 		b = b % MOD
 		z = bxor1(a, b)
 		if c then z = bxor(z, c, ...) end
 		return z
 	elseif a then return a % MOD
 	else return 0 end
 end
 
 local function band(a, b, c, ...)
 	local z
 	if b then
 		a = a % MOD
 		b = b % MOD
 		z = ((a + b) - bxor1(a,b)) / 2
 		if c then z = bit32_band(z, c, ...) end
 		return z
 	elseif a then return a % MOD
 	else return MODM end
 end
 
 local function bnot(x) return (-1 - x) % MOD end
 
 local function rshift1(a, disp)
 	if disp < 0 then return lshift(a,-disp) end
 	return floor(a % 2 ^ 32 / 2 ^ disp)
 end
 
 local function rshift(x, disp)
 	if disp > 31 or disp < -31 then return 0 end
 	return rshift1(x % MOD, disp)
 end
 
 local function lshift(a, disp)
 	if disp < 0 then return rshift(a,-disp) end
 	return (a * 2 ^ disp) % 2 ^ 32
 end
 
 local function rrotate(x, disp)
     x = x % MOD
     disp = disp % 32
     local low = band(x, 2 ^ disp - 1)
     return rshift(x, disp) + lshift(low, 32 - disp)
 end
 
 local k = {
 	0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
 	0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
 	0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
 	0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
 	0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
 	0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
 	0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
 	0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
 	0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
 	0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
 	0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
 	0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
 	0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
 	0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
 	0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
 	0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
 }
 
 local function str2hexa(s)
 	return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
 end
 
 local function num2s(l, n)
 	local s = ""
 	for i = 1, n do
 		local rem = l % 256
 		s = string.char(rem) .. s
 		l = (l - rem) / 256
 	end
 	return s
 end
 
 local function s232num(s, i)
 	local n = 0
 	for i = i, i + 3 do n = n*256 + string.byte(s, i) end
 	return n
 end
 
 local function preproc(msg, len)
 	local extra = 64 - ((len + 9) % 64)
 	len = num2s(8 * len, 8)
 	msg = msg .. "\128" .. string.rep("\0", extra) .. len
 	assert(#msg % 64 == 0)
 	return msg
 end
 
 local function initH256(H)
 	H[1] = 0x6a09e667
 	H[2] = 0xbb67ae85
 	H[3] = 0x3c6ef372
 	H[4] = 0xa54ff53a
 	H[5] = 0x510e527f
 	H[6] = 0x9b05688c
 	H[7] = 0x1f83d9ab
 	H[8] = 0x5be0cd19
 	return H
 end
 
 local function digestblock(msg, i, H)
 	local w = {}
 	for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
 	for j = 17, 64 do
 		local v = w[j - 15]
 		local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
 		v = w[j - 2]
 		w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
 	end
 
 	local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
 	for i = 1, 64 do
 		local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
 		local maj = bxor(band(a, b), band(a, c), band(b, c))
 		local t2 = s0 + maj
 		local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
 		local ch = bxor (band(e, f), band(bnot(e), g))
 		local t1 = h + s1 + ch + k[i] + w[i]
 		h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
 	end
 
 	H[1] = band(H[1] + a)
 	H[2] = band(H[2] + b)
 	H[3] = band(H[3] + c)
 	H[4] = band(H[4] + d)
 	H[5] = band(H[5] + e)
 	H[6] = band(H[6] + f)
 	H[7] = band(H[7] + g)
 	H[8] = band(H[8] + h)
 end
 
 local function sha256(...)
 	local msg = table.concat(arg,",")
 	msg = preproc(msg, #msg)
 	local H = initH256({})
 	for i = 1, #msg, 64 do digestblock(msg, i, H) end
 	return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
 		num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
 end
 
 ---- SHA256 END ----
 
 local terminates = 0
 local sillyTerminate = function()
 	local goodpull = _G.os.pullEvent
 	os.pullEvent = os.pullEventRaw
 	terminates = terminates + 1
 	local script = {
 		"You shall not pass!",
 		"THOU shalt not pass!",
 		"Stop trying to pass!",
 		"...maybe I'm not clear.",
 		"YOU. SHALL NOT. PASS!!",
 		"Pass thou shalt not!",
 		"Hey, piss off, will ya?",
 		"I haven't got all day.",
 		"...no, shut up. I don't.",
 		"I won't tell you it!",
 		"No password for you.",
 		"It's been hashed!",
 		"Hashed...with a salt!",
 		"I'll never tell you the salt.",
 		"You know why?",
 		"Because that requires passing!",
 		"WHICH THOU SHALT NOT DO!",
 		"(oh btw don't pass k?)",
 		"You! Don't pass!",
 		"That means YOU!",
 		"Cut it out!",
 		"Re: Cut it out!",
 		"Perhaps if you keep it up...",
 		"..hmm...",
 		"..oh I give up.",
 		"<bullshitterm>",
 		"What? Is this what you wanted?",
 		"Huh? No? I-it's not?",
 		"Well then...!",
 		"<toobad>",
 		"YEAH I SAID IT",
 		"You think you're a terminating machine!",
 		"You think you're above consequence!",
 		"...w-...",
 		"eat my shorts",
 		"Your attempts are futile anyhow.",
 		"Here I am getting drunk off your sweat,",
 		"...while you push CTRL and T.",
 		"Or maybe you're pressing that [T] button.",
 		"Like, um, in CCEmuRedux.",
 		"But it matters not!",
 		"For you see, my defences are great!",
 		"Nothing can bust my rock-hard abs!",
 		"<fuckinghell>",
 		"Oh bualls.",
 		"That was embarrasing.",
 		"...?",
 		"What're YOU lookin' at??",
 		"You callin' me UNSTABLE!?",
 		"HUH!??",
 		"...",
 		"...w-well at least I admit it",
 		"...b-bakka",
 		".......",
 		"Hey, have you ever played EarthBound?",
 		"(Yes. I'm gonna rant.)",
 		"It's an RPG on the Super Nintendo.",
 		"Like, instead of fighting fantasy demons,",
 		"you fight stop signs and cars and shit",
 		"And, like, you hit rabid dogs with a bat",
 		"And you have magical PSI spells",
 		"...speaking of PSI, I happen to use it a lot.",
 		"...er, *I* as in the coder of this lock...",
 		"And by PSI, I mean the mod.",
 		"You don't see too many psychic locks these days.",
 		"A shame, really.",
 		"I bet a PSI lock could act as a heater with PSI Fire.",
 		"Or maybe it can kill rats with PSI Ground or Thunder",
 		"Maybe, you can get a psychic KEY lock, so, like,",
 		"you could put it on that Psychonauts head door thing.",
 		"...WHAT!? just a suggestion.",
 		"Psychonauts is another game I reccommend.",
 		"It has some really clever dialogue.",
 		"I'm sure you'd like it quite a lot.",
 		"I know, because you've been here for ten fucking minutes.",
 		"And you're not ONE STEP closer to getting the password",
 		"Which I've been guarding very, very closely.",
 		"Yes. Extremely closely.",
 		"Excrutiatingly, some would say.",
 		"You know, I should probably get to shouting.",
 		"*ahem*",
 		"...",
 		"*aahhhechhemmemmhmm*",
 		"*aachkskacehchachkhackcoughfartfuckdammitaaucahkh*",
 		"...",
 		"STAHP IT",
 		"STAHP TEHRMINATIN",
 		"do it for the CHILDREN",
 		"okay fuck the children, who needs 'em",
 		"then",
 		"um",
 		"THINK OF THE...THE...",
 		"the babies...?",
 		"um",
 		"<abuseofcommunity>",
 		"That's a fucking horrible idea.",
 		"I'd rather eat my own brain then think about that.",
 		"I'd sooner kiss a pig!",
 		"I'd sooner swallow an avocado pit!",
 		"...",
 		"You know, you suck so much.",
 		"You suck so much, and I'm sick of writing this script",
 		"If my knuckles bleed, you're paying my insurance",
 		"In order to save time, money, and my joints,",
 		"I believe it would be in order to...",
 		"...to say,",
 		"NO TERMINATING.",
 	}
 	setCursorBlink(false)
 	local mess
 	if terminates > #script then
 		mess = script[#script]
 	else
 		mess = script[terminates]
 	end
 	if mess == "<bullshitterm>" then
 		setBackgroundColor(colors.black)
 		if term.isColor() then
 			setTextColor(colors.yellow)
 		else
 			setTextColor(colors.white)
 		end
 		term.clear()
 		setCursorPos(1,1)
 		print(os.version())
 		write("> ")
 		setTextColor(colors.white)
 		read()
 		printError("shell:350: Unable to pass")
 		sleep(2)
 	elseif mess == "<toobad>" then
 		setBackgroundColor(colors.black)
 		if term.isColor() then
 			setTextColor(colors.red)
 		else
 			setTextColor(colors.white)
 		end
 		term.clear()
 		setCursorPos(1,scr_y/2)
 		local toobad = " T"..("O"):rep(scr_x-8).." BAD!"
 		for a = 1, #toobad do
 			for y = 1, scr_y do
 				setCursorPos(a,y)
 				rhite(toobad:sub(a,a))
 			end
 			sleep(0)
 		end
 		sleep(1.5)
 		for a = 1, 16 do
 			if a%3 == 0 then
 				setBackgroundColor(colors.white)
 			elseif a%3 == 1 then
 				setBackgroundColor(colors.black)
 			else
 				if term.isColor() then
 					setBackgroundColor(colors.red)
 				else
 					setBackgroundColor(colors.gray)
 				end
 			end
 			term.clear()
 			sleep(0)
 		end
 	elseif mess == "<fuckinghell>" then
 		writeError("Terminated")
 		setBackgroundColor(colors.black)
 		setTextColor(colors.white)
 		term.blit(">","4","f")
 		read()
 		sleep(0.75)
 		for a = 1, 2 do
 			sleep(0.05)
 			term.scroll(1)
 		end
 		for a = 1, scr_y do
 			sleep(0.05)
 			term.scroll(-1)
 		end
 		sleep(0.25)
 		setBackgroundColor(colors.gray)
 		term.clear()
 		sleep(0.1)
 		setBackgroundColor(colors.lightGray)
 		term.clear()
 		sleep(0.1)
 		setBackgroundColor(colors.white)
 		term.clear()
 		sleep(0.25)
 		local msg = "taht didn't happan"
 		term.setCursorPos(scr_x-#msg,scr_y)
 		setTextColor(colors.black)
 		rhite(msg)
 		sleep(1)
 	elseif mess == "<abuseofcommunity>" then
 		setBackgroundColor(colors.white)
 		setTextColor(colors.black)
 		term.clear()
 		setCursorPos(2,3)
 		print("Since you're such a smart bastard, why don't you come up with something objectionable to think about?\n")
 		setBackgroundColor(colors.gray)
 		setTextColor(colors.white)
 		term.clearLine()
 		local yourFuckingShittyAssResponceThatSucksSoMuchBallsThatIWouldRatherListenToThatFuckingOwlFromOcarinaOfTimeBlatherAboutHisFuckingDayThanSitWithYouForAnotherGoddamnedSecondReeeeee = read()
 		setBackgroundColor(colors.white)
 		setTextColor(colors.black)
 		for a = 1, 5 do
 			sleep(0.6)
 			write(".")
 		end
 		sleep(1)
 		term.setTextColor(colors.red)
 		for a = 1, 20 do
 			sleep(0.05)
 			write(".")
 		end
 		sleep(0.5)
 	else
 		setBackgroundColor(colors.gray)
 		setTextColor(colors.white)
 		setCursorPos(math.max(1,(scr_x/2)-(#mess/2)),scr_y/2)
 		if language == "english" then
 			write(mess)
 		else
 			write(lang[language].noTerminate)
 		end
 		sleep(1.5)
 	end
 	os.pullEvent = goodpull
 	return terminates
 end
 
 local shuffle = function(txt)
 	local output = ""
 	for a = 1, #txt do
 		if a % 2 == 0 then
 			output = output..txt:sub(a,a)
 		else
 			output = txt:sub(a,a)..output
 		end
 	end
 	return output
 end
 
 local goodpass = function(pswd,count)
 	isTerminable = true
 	doSine = false
 	setCursorBlink(false)
 	local flashes = {
 		colors.white,
 		colors.lightGray,
 		colors.gray,
 	}
 	if type(pswd) == "table" then
 		pswd = pswd[1]
 	end
 	setTextColor(colors.black)
 	local correctmsg
 	if count < 10 then
 		correctmsg = lang[language].right1
 	else
 		correctmsg = lang[language].right2
 	end
 	for a = 1, #flashes do
 		setBackgroundColor(flashes[#flashes-(a-1)])
 		term.clear()
 		setCursorPos((scr_x/2)-(#correctmsg/2),scr_y/2)
 		rhite(correctmsg)
 		sleep(0)
 	end
 	if #doorSides == 0 then
 		sleep(0.4)
 		keepLooping = false
 	else
 		local doormsg
 		if doShowDoorSides then
 			doormsg = "Applying RS to "..table.concat(doorSides,", ").."."
 		else
 			doormsg = "Applying redstone."
 		end
 		setCursorPos((scr_x/2)-(#doormsg/2),(scr_y/2)+2)
 		rhite(doormsg)
 		for a = 1, #doorSides do
 			redstone.setOutput(doorSides[a],not doInvertSignal)
 		end
 		if terminateMode == 1 then
 			os.pullEvent = goodPullEvent
 		end
 		sleep(goodlength)
 		if terminateMode == 1 then
 			os.pullEvent = os.pullEventRaw
 		end
 		for a = 1, #doorSides do
 			redstone.setOutput(doorSides[a],doInvertSignal)
 		end
 	end
 	for a = 1, #flashes do
 		setBackgroundColor(flashes[a])
 		term.clear()
 		setCursorPos((scr_x/2)-(#correctmsg/2),scr_y/2)
 		rhite(correctmsg)
 		sleep(0)
 	end
 	setBackgroundColor(colors.black)
 	term.clear()
 	setCursorPos(1,1)
 	if terminateMode == 1 and goodPullEvent and (#doorSides == 0) then
 		os.pullEvent = goodPullEvent
 	end
 	setCursorBlink(true)
 	isTerminable = false
 	return true
 end
 
 local badpass = function(pswd,count)
 	doSine = false
 	local getevent = os.pullEvent
 	os.pullEvent = os.pullEventRaw
 	setCursorBlink(false)
 	setBackgroundColor(palate.wrongBG)
 	setTextColor(palate.wrongTXT)
 	term.clear()
 	if type(pswd) == "table" then
 		pswd = pswd[1]
 	end
 	local badmsg
 	if count < 10 then
 		if pswd == sha256("bepis",salt) then
 			badmsg = "Bepis."
 		else
 			badmsg = lang[language].wrong1
 		end
 	else
 		if pswd == sha256("bepis",salt) then
 			badmsg = "BEPIS!"
 		else
 			badmsg = lang[language].wrong2
 		end
 	end
 	setCursorPos((scr_x/2)-(#badmsg/2),scr_y/2)
 	rhite(badmsg)
 	sleep(badlength)
 	doSine = true
 	setCursorBlink(true)
 	os.pullEvent = getevent
 	return "man you suck"
 end
 
 local readPassFile = function()
 	local _output, _salt
 	if fs.exists(passFile) then
 		local file = fs.open(passFile,"r")
 		_output = file.readLine()
 		file.close()
 	end
 	if fs.exists(saltFile) then
 		local file = fs.open(saltFile,"r")
 		_salt = file.readLine()
 		file.close()
 	end
 	return _output, _salt
 end
 
 local addNewPassword = function(pword,_path)
 	local file = fs.open(_path or passFile,"a")
 	file.write( sha256(pword,salt) )
 	file.close()
 end
 
 local rendersine = function(move)
 	move = move or 0
 	local res1,res2,x,y
 	if csv then term.current().setVisible(false) end
 	setBackgroundColor(colors.black)
 	setCursorBlink(false)
 	for a = 1, scr_y do
 		if a ~= readYpos then
 			for b = 1, scr_x do
 				x = b+floor(scr_x/2)
 				y = a-floor(scr_y/2)
 				res1 = abs( floor(sin((x/(scr_x/7.3))+move)*scr_y/4) - y ) <= 2
 				setCursorPos(b,a)
 				if res1 then
 					setBackgroundColor(palate.backsine)
 				else
 					setBackgroundColor(palate.background)
 				end
 				rhite(" ")
 				res2 = abs( floor(cos((x/(scr_x/12.75))+(move*4))*scr_y/7) - y+2 ) <= 1
 				setCursorPos(b,a)
 				if res2 then
 					setBackgroundColor(palate.frontsine)
 					rhite(" ")
 				elseif not res1 then
 					setBackgroundColor(palate.background)
 					setTextColor(palate.rainColor)
 					if (x % 2 == 0) and ((y+floor(move*-10)+(x % 5)) % 5 <= 1) then
 						rhite(palate.rainChar)
 					else
 						rhite(" ")
 					end
 				end
 			end
 		end
 	end
 	if csv then term.current().setVisible(true) end
 	setCursorBlink(true)
 end
 
 local sine = function()
 	doSine = true
 	while true do
 		if sineLevel > 900 then
 			sineLevel = 1
 		end
 		if doSine then
 			local cX,cY = getCursorPos()
 			local bg,txt = getBackgroundColor(),getTextColor()
 			rendersine(sineLevel/10)
 			setCursorPos(cX,cY)
 			setBackgroundColor(bg)
 			setTextColor(txt)
 		end
 		sleep(sineFrameDelay)
 		if kaykaycoolcool then
 			sineLevel = sineLevel + 1
 		end
 	end
 end
 
 local funcread = function(repchar,rHistory,doFunc,noNewLine,writeFunc,cursorAdjFunc,doFuncEvent,charLimit)
 	local scr_x,scr_y = term.getSize()
 	local sx,sy = term.getCursorPos()
 	local cursor = 1
 	local rCursor = #rHistory+1
 	local output = ""
 	term.setCursorBlink(true)
 	local rite = writeFunc or term.write
 	cursorAdjFunc = cursorAdjFunc or function() return 0 end
 	while true do
 		local evt,key = os.pullEvent()
 		if evt == doFuncEvent then
 			pleaseDoFunc = true
 		elseif evt == "key" then
 			if key == keys.enter then
 				if not noNewLine then
 					write("\n")
 				end
 				term.setCursorBlink(false)
 				return output
 			elseif key == keys.left then
 				if cursor-1 >= 1 then
 					cursor = cursor - 1
 				end
 			elseif key == keys.right then
 				if cursor <= #output then
 					cursor = cursor + 1
 				end
 			elseif key == keys.up then
 				if rCursor > 1 then
 					rCursor = rCursor - 1
 					term.setCursorPos(sx,sy)
 					rite((" "):rep(#output))
 					output = (rHistory[rCursor] or ""):sub(1,charLimit or -1)
 					cursor = #output+1
 					pleaseDoFunc = true
 				end
 			elseif key == keys.down then
 				term.setCursorPos(sx,sy)
 				rite((" "):rep(#output))
 				if rCursor < #rHistory then
 					rCursor = rCursor + 1
 					output = (rHistory[rCursor] or ""):sub(1,charLimit or -1)
 					cursor = #output+1
 					pleaseDoFunc = true
 				else
 					rCursor = #rHistory+1
 					output = ""
 					cursor = 1
 				end
 			elseif key == keys.backspace then
 				if cursor > 1 and #output > 0 then
 					output = (output:sub(1,cursor-2)..output:sub(cursor)):sub(1,charLimit or -1)
 					cursor = cursor - 1
 					pleaseDoFunc = true
 				end
 			elseif key == keys.delete then
 				if #output:sub(cursor,cursor) == 1 then
 					output = (output:sub(1,cursor-1)..output:sub(cursor+1)):sub(1,charLimit or -1)
 					pleaseDoFunc = true
 				end
 			end
 		elseif evt == "char" or evt == "paste" then
 			output = (output:sub(1,cursor-1)..key..output:sub(cursor+(#key-1))):sub(1,charLimit or -1)
 			cursor = math.min(#output+1,cursor+#key)
 			pleaseDoFunc = true
 		end
 		local pOut = (output or ""):sub(math.max( 1,(#output+sx)-scr_x) )
 		if pleaseDoFunc then
 			pleaseDoFunc = false
 			if type(doFunc) == "function" then
 				doFunc(output:sub(1,charLimit or -1))
 			end
 			term.setCursorPos(sx,sy)
 			if repchar then
 				rite(repchar:sub(1,1):rep(#pOut))
 			else
 				rite(pOut)
 			end
 			term.write(" ")
 		end
 		term.setCursorPos(sx+cursorAdjFunc(pOut)+cursor-math.max( 1,(#output+sx)-scr_x),sy)
 	end
 end
 
 local arse, arseSHA, passes
 
 local awaitKeyCard = function()
 	local bwop,_,side
 	repeat
 		_,side = os.pullEvent("disk")
 		if side then
 			bwop = fs.combine(disk.getMountPath(side),".sinepw") --bwop!
 		else
 			bwop = ""
 		end
 	until fs.exists(bwop) and not fs.isDir(bwop)
 	local file = fs.open(bwop,"r")
 	local output = file.readLine()
 	file.close()
 	arseSHA = output
 	if doEjectDisk then disk.eject(side) end
 end
 
 local passwordPrompt = function()
 	if requireAllPasswords then
 		arse = {}
 		arseSHA = ""
 		for a = 1, ceil(#passes/64) do
 			setCursorPos(1,readYpos)
 			setBackgroundColor(palate.promptBG)
 			term.clearLine()
 			setTextColor(palate.promptTXT)
 			write("P"..a..">")
 			arse[#arse+1] = read(dahChar)
 			arseSHA = arseSHA..sha256(arse[#arse],salt)
 		end
 	else
 		setCursorPos(1,readYpos)
 		setBackgroundColor(palate.promptBG)
 		term.clearLine()
 		setTextColor(palate.promptTXT)
 		write(">")
 		arse = funcread(dahChar,{},nil,true,nil,nil,nil,characterLimit)
 		arseSHA = sha256(arse,salt)
 	end
 end
 
 local count = 0
 
 local lock = function()
 	if #doorSides > 0 then
 		for a = 1, #doorSides do
 			redstone.setOutput(doorSides[a],doInvertSignal)
 		end
 	end
 	while true do
 		passes, salt = readPassFile()
 		count = count + 1
 		if doKeyCards then
 			parallel.waitForAny(passwordPrompt,awaitKeyCard)
 		else
 			passwordPrompt()
 		end
 		local good
 		if requireAllPasswords then
 			if passes == arseSHA then
 				good = true
 			else
 				good = false
 			end
 		else
 			if string.find(passes,arseSHA) then
 				good = true
 			else
 				good = false
 			end
 		end
 		if good then
 			goodpass(arseSHA,count)
 			if #doorSides == 0 then
 				return true
 			else
 				doSine = true
 			end
 		else
 			badpass(arseSHA,count)
 		end
 	end
 end
 
 local choice = function(input)
 	repeat
 		event, key = os.pullEvent("key")
 		if type(key) == "number" then key = keys.getName(key) end
 		if key == nil then key = " " end
 	until string.find(input, key)
 	return key
 end
 
 if not fs.exists(saltFile) then
 	local file = fs.open(saltFile,"w")
 	for a = 1, 128 do
 		local c = string.char(random(1,255))
 		file.write(c)
 	end
 	file.close()
 	local f = fs.open(saltFile,"r")
 	salt = f.readLine()
 	f.close()
 end
 
 passes, salt = readPassFile()
 
 local tArg = {...}
 if tArg[1] == "addpass" then
 	if tArg[2] then
 		print("Really add password? [Y,N]")
 		local answer = choice("yn")
 		if answer == "n" then
 			sleep(0)
 			return print("Oh, okay.")
 		else
 			table.remove(tArg,1)
 			addNewPassword(table.concat(tArg," "))
 			sleep(0)
 			return print("Added password.")
 		end
 	else
 		sleep(0)
 		return print("Expected a new password...")
 	end
 elseif tArg[1] == "keymake" then
 	if tArg[2] then
 		print("Really add to disk?")
 		print("Keep in mind the password has to be manually added for the keycard to work.\n[Y,N]")
 		local answer = choice("yn")
 		if answer == "n" then
 			sleep(0)
 			return print("Oh, okay.")
 		else
 			print("Please insert a disk or pocket computer.")
 			local _,side = os.pullEvent("disk")
 			local diskPassPath = fs.combine(disk.getMountPath(side),".sinepw")
 			table.remove(tArg,1)
 			addNewPassword(table.concat(tArg," "),diskPassPath)
 			if not disk.getLabel(side) then
 				disk.setLabel(side,"slkey-"..random(1,1000))
 			end
 			sleep(0)
 			print("Added password.")
 			if not doKeyCards then
 				print("Key cards aren't enabled, though.")
 			end
 			return
 		end
 	else
 		sleep(0)
 		return print("Expected a password...")
 	end
 end
 
 if not fs.exists(passFile) then
 	local progname = fs.getName(shell.getRunningProgram())
 	return print("No password file found.\nRun '"..progname.." addpass <password>' to add a password.")
 end
 
 setBackgroundColor(colors.black)
 term.clear()
 
 local parafunky = { --it looks kinda funky, but it tastes funKAY!
 	sine,
 	lock,
 }
 
 if not beWavey then table.remove(parafunky,1) end --not funky, man
 local staytis, errawr
 while keepLooping do
 	kaykaycoolcool = true
 	staytis, errawr = pcall(parallel.waitForAny,unpack(parafunky))
 	if keepLooping == false then break else
 		if terminateMode == 2 then
 			kaykaycoolcool = false
 			if not isTerminable then
 				sillyTerminate()
 			else
 				keepLooping = false
 				setBackgroundColor(colors.black)
 				term.clear()
 				setTextColor(colors.white)
 				setCursorPos(1,1)
 				break
 			end
 		else
 			keepLooping = false
 			setBackgroundColor(colors.black)
 			term.clear()
 			setTextColor(colors.white)
 			setCursorPos(1,1)
 			if not staytis then
 				printError(errawr)
 			end
 			break
 		end
 	end
 end
 if runProgram and (runProgram ~= "") then
 	shell.run(runProgram)
 end