main.lua

functionlove.load()
--requires--
require"controls"
require"gameB"
require"gameBmulti"
require"gameA"
require"menu"
require"failed"
require"rocket"

vsync=true

autosize()

suggestedscale=math.min(math.floor((desktopheight-50)/144), math.floor((desktopwidth-10)/160))
ifsuggestedscale>5then
suggestedscale=5
end

loadoptions()

maxscale=math.min(math.floor(desktopheight/144), math.floor(desktopwidth/160)) 
maxmpscale=math.min(math.floor(desktopheight/144), math.floor(desktopwidth/274)) 

iffullscreen==falsethen
ifscale~=5then
love.graphics.setMode( 160*scale, 144*scale, false, vsync, 0 )
end
else
love.graphics.setMode( 0, 0, true, vsync, 0 )
love.mouse.setVisible( false )
desktopwidth, desktopheight=love.graphics.getWidth(), love.graphics.getHeight()
saveoptions()

suggestedscale=math.floor((desktopheight-50)/144)
ifsuggestedscale>5then
suggestedscale=5
end
maxscale=math.min(math.floor(desktopheight/144), math.floor(desktopwidth/160))

scale=maxscale

fullscreenoffsetX= (desktopwidth-160*scale)/2
fullscreenoffsetY= (desktopheight-144*scale)/2
end

physicsscale=scale/4

--pieces--
tetriimages= {}
tetriimagedata= {}

--SOUND--
music= {}

music[1] =love.audio.newSource( "sounds/themeA.ogg", "stream")
music[1]:setVolume( 0.6 )
music[1]:setLooping( true )

music[2] =love.audio.newSource( "sounds/themeB.ogg", "stream")
music[2]:setVolume( 0.6 )
music[2]:setLooping( true )

music[3] =love.audio.newSource( "sounds/themeC.ogg", "stream")
music[3]:setVolume( 0.6 )
music[3]:setLooping( true )

musictitle=love.audio.newSource( "sounds/titlemusic.ogg", "stream")
musictitle:setVolume( 0.6 )
musictitle:setLooping( true )

musichighscore=love.audio.newSource( "sounds/highscoremusic.ogg", "stream")
musichighscore:setVolume( 0.6 )
musichighscore:setLooping( true )

musicrocket4=love.audio.newSource( "sounds/rocket4.ogg", "stream")
musicrocket4:setVolume( 0.6 )
musicrocket4:setLooping( false )

musicrocket1to3=love.audio.newSource( "sounds/rocket1to3.ogg", "stream")
musicrocket1to3:setVolume( 0.6 )
musicrocket1to3:setLooping( false )

musicresults=love.audio.newSource( "sounds/resultsmusic.ogg", "stream")
musicresults:setVolume( 1 )
musicresults:setLooping( false )

highscoreintro=love.audio.newSource( "sounds/highscoreintro.ogg", "stream")
highscoreintro:setVolume( 0.6 )
highscoreintro:setLooping( false )

musicoptions=love.audio.newSource( "sounds/musicoptions.ogg", "stream")
musicoptions:setVolume( 1 )
musicoptions:setLooping( true )

boot=love.audio.newSource( "sounds/boot.ogg")
blockfall=love.audio.newSource( "sounds/blockfall.ogg", "stream")
blockturn=love.audio.newSource( "sounds/turn.ogg", "stream")
blockmove=love.audio.newSource( "sounds/move.ogg", "stream")
lineclear=love.audio.newSource( "sounds/lineclear.ogg", "stream")
fourlineclear=love.audio.newSource( "sounds/4lineclear.ogg", "stream")
gameover1=love.audio.newSource( "sounds/gameover1.ogg", "stream")
gameover2=love.audio.newSource( "sounds/gameover2.ogg", "stream")
pausesound=love.audio.newSource( "sounds/pause.ogg", "stream")
highscorebeep=love.audio.newSource( "sounds/highscorebeep.ogg", "stream")
newlevel=love.audio.newSource( "sounds/newlevel.ogg", "stream")
newlevel:setVolume( 0.6 )

changevolume(volume)

--IMAGES THAT WON'T CHANGE HUE:
rainbowgradient=love.graphics.newImage("graphics/rainbow.png")rainbowgradient:setFilter("nearest", "nearest")

--Whitelist for highscorenames--
whitelist= {}
fori=48, 57do-- 0 - 9
whitelist[i] =true
end
fori=65, 90do-- A - Z
whitelist[i] =true
end
fori=97, 122do--a - z
whitelist[i] =true
end
whitelist[32] =true-- space
whitelist[44] =true-- ,
whitelist[45] =true-- -
whitelist[46] =true-- .
whitelist[95] =true-- _

-----------------------------

math.randomseed( os.time() )
math.random();math.random();math.random() --discarding some as they seem to tend to unrandomness.

love.graphics.setBackgroundColor( 255, 255, 255 )

p1wins=0
p2wins=0

skipupdate=true
soundenabled=true
startdelay=1
logoduration=1.5
logodelay=1
creditsdelay=2
selectblinkrate=0.29
cursorblinkrate=0.14
selectblink=true
cursorblink=true
playerselection=1
musicno=1--
gameno=1--
selection=1--
colorizeduration=3--seconds
lineclearduration=1.2--seconds
lineclearblinks=7--i
linecleartreshold=8.1--in blocks
densityupdateinterval=1/30--in seconds
nextpiecerotspeed=1--rad per seconnd
minfps=1/50--dt doesn't go higher than this
scoreaddtime=0.5
startdelaytime=0
density=0.1

blockstartY=-64--where new blocks are created
losingY=0--lose if block 1 collides above this line
blockmass=5--probably obsolete because body:setMassFromShapes()
blockrot=10
blockrestitution=0.1
minmass=1

optionschoices= {"volume", "color", "scale", "fullscrn"}

piececenter= {}
piececenter[1] = {17, 5}
piececenter[2] = {13, 9}
piececenter[3] = {13, 9}
piececenter[4] = { 9, 9}
piececenter[5] = {13, 9}
piececenter[6] = {13, 9}
piececenter[7] = {13, 9}

piececenterpreview= {}
piececenterpreview[1] = {17, 5}
piececenterpreview[2] = {15, 7}
piececenterpreview[3] = {11, 7}
piececenterpreview[4] = { 9, 9}
piececenterpreview[5] = {13, 9}
piececenterpreview[6] = {13, 7}
piececenterpreview[7] = {13, 9}

loadhighscores()
loadconfig()

loadimages()

--all done!
ifstartdelay==0then
menu_load()
end
end

functionstart()
menu_load()
end

functionloadimages()
--IMAGES--
--menu--
stabyourselflogo=newPaddedImage("graphics/stabyourselflogo.png")
logo=newPaddedImage("graphics/logo.png")
title=newPaddedImage("graphics/title.png")
gametype=newPaddedImage("graphics/gametype.png")
mpmenu=newPaddedImage("graphics/mpmenu.png")
optionsmenu=newPaddedImage("graphics/options.png")
volumeslider=newPaddedImage("graphics/volumeslider.png")
--game--
gamebackground=newPaddedImage("graphics/gamebackground.png")
gamebackgroundcutoff=newPaddedImage("graphics/gamebackgroundgamea.png")
gamebackgroundmulti=newPaddedImage("graphics/gamebackgroundmulti.png")
multiresults=newPaddedImage("graphics/multiresults.png")

number1=newPaddedImage("graphics/versus/number1.png")
number2=newPaddedImage("graphics/versus/number2.png")
number3=newPaddedImage("graphics/versus/number3.png")

gameover=newPaddedImage("graphics/gameover.png")
gameovercutoff=newPaddedImage("graphics/gameovercutoff.png")
pausegraphic=newPaddedImage("graphics/pause.png")
pausegraphiccutoff=newPaddedImage("graphics/pausecutoff.png")

--figures--
marioidle=newPaddedImage("graphics/versus/marioidle.png")
mariojump=newPaddedImage("graphics/versus/mariojump.png")
mariocry1=newPaddedImage("graphics/versus/mariocry1.png")
mariocry2=newPaddedImage("graphics/versus/mariocry2.png")

luigiidle=newPaddedImage("graphics/versus/luigiidle.png")
luigijump=newPaddedImage("graphics/versus/luigijump.png")
luigicry1=newPaddedImage("graphics/versus/luigicry1.png")
luigicry2=newPaddedImage("graphics/versus/luigicry2.png")

--rockets--
rocket1=newPaddedImage("graphics/rocket1.png");rocket1:setFilter( "nearest", "nearest" )
rocket2=newPaddedImage("graphics/rocket2.png")
rocket3=newPaddedImage("graphics/rocket3.png")
spaceshuttle=newPaddedImage("graphics/spaceshuttle.png")

rocketbackground=newPaddedImage("graphics/rocketbackground.png")
bigrocketbackground=newPaddedImage("graphics/bigrocketbackground.png")
bigrockettakeoffbackground=newPaddedImage("graphics/bigrockettakeoffbackground.png")


smoke1left=newPaddedImage("graphics/smoke1left.png")
smoke1right=newPaddedImage("graphics/smoke1right.png")
smoke2left=newPaddedImage("graphics/smoke2left.png")
smoke2right=newPaddedImage("graphics/smoke2right.png")

fire1=newPaddedImage("graphics/fire1.png")
fire2=newPaddedImage("graphics/fire2.png")
firebig1=newPaddedImage("graphics/firebig1.png")
firebig2=newPaddedImage("graphics/firebig2.png")

congratsline=newPaddedImage("graphics/congratsline.png")

--nextpiece
nextpieceimg= {}
fori=1, 7do
nextpieceimg[i] =newPaddedImage( "graphics/pieces/"..i..".png", scale )
end

--font--
tetrisfont=newPaddedImageFont("graphics/font.png", "0123456789abcdefghijklmnopqrstTuvwxyz.,'C-#_>:<! ")
whitefont=newPaddedImageFont("graphics/fontwhite.png", "0123456789abcdefghijklmnopqrstTuvwxyz.,'C-#_>:<!+ ")
love.graphics.setFont(tetrisfont)

--filters!
stabyourselflogo:setFilter("nearest", "nearest")
logo:setFilter( "nearest", "nearest" )
title:setFilter( "nearest", "nearest" )
gametype:setFilter( "nearest", "nearest" )
mpmenu:setFilter( "nearest", "nearest" )
optionsmenu:setFilter( "nearest", "nearest" )
volumeslider:setFilter( "nearest", "nearest" )
gamebackground:setFilter( "nearest", "nearest" )
gamebackgroundcutoff:setFilter( "nearest", "nearest" )
gamebackgroundmulti:setFilter( "nearest", "nearest" )
multiresults:setFilter( "nearest", "nearest" )
number1:setFilter( "nearest", "nearest" )
number2:setFilter( "nearest", "nearest" )
number3:setFilter( "nearest", "nearest" )
gameover:setFilter( "nearest", "nearest" )
gameovercutoff:setFilter( "nearest", "nearest" )
pausegraphic:setFilter( "nearest", "nearest" )
pausegraphiccutoff:setFilter( "nearest", "nearest" )
marioidle:setFilter( "nearest", "nearest" )
mariojump:setFilter( "nearest", "nearest" )
mariocry1:setFilter( "nearest", "nearest" )
mariocry2:setFilter( "nearest", "nearest" )
luigiidle:setFilter( "nearest", "nearest" )
luigijump:setFilter( "nearest", "nearest" )
luigicry1:setFilter( "nearest", "nearest" )
luigicry2:setFilter( "nearest", "nearest" )
rocket2:setFilter( "nearest", "nearest" )
rocket3:setFilter( "nearest", "nearest" )
spaceshuttle:setFilter( "nearest", "nearest" )
rocketbackground:setFilter( "nearest", "nearest" )
bigrocketbackground:setFilter( "nearest", "nearest" )
bigrockettakeoffbackground:setFilter( "nearest", "nearest" )
smoke1left:setFilter( "nearest", "nearest" )
smoke1right:setFilter( "nearest", "nearest" )
smoke2left:setFilter( "nearest", "nearest" )
smoke2right:setFilter( "nearest", "nearest" )
fire1:setFilter( "nearest", "nearest" )
fire2:setFilter( "nearest", "nearest" )
firebig1:setFilter( "nearest", "nearest" )
firebig2:setFilter( "nearest", "nearest" )
congratsline:setFilter( "nearest", "nearest" )
end

functionlove.update(dt)
ifgamestate==nilthen
startdelaytime=startdelaytime+dt
ifstartdelaytime>=startdelaythen
start()
end
end

ifskipupdatethen
skipupdate=false
return
end

ifcuttingtimer~=0then
dt=math.min(dt, minfps)
end

ifgamestate=="logo" orgamestate=="credits" orgamestate=="title" orgamestate=="menu" orgamestate=="multimenu" orgamestate=="highscoreentry" orgamestate=="options" then
menu_update(dt)
elseifgamestate=="gameA" orgamestate=="failingA" then
ifpause==falsethen
gameA_update(dt)
end
elseifgamestate=="gameB" orgamestate=="failingB" then
ifpause==falsethen
gameB_update(dt)
end
elseifgamestate=="gameBmulti" orgamestate=="failingBmulti" orgamestate=="failedBmulti" orgamestate=="gameBmulti_results" then
gameBmulti_update(dt)
elseifgamestate=="rocket1" orgamestate=="rocket2" orgamestate=="rocket3" orgamestate=="rocket4" then
rocket_update()
end
end

functionlove.draw()
ifgamestate=="logo" orgamestate=="credits" orgamestate=="title" orgamestate=="menu" orgamestate=="multimenu" orgamestate=="highscoreentry" orgamestate=="options" then
menu_draw()
elseifgamestate=="gameA" orgamestate=="failingA" then
gameA_draw()
elseifgamestate=="gameB" orgamestate=="failingB" then
gameB_draw()
elseifgamestate=="gameBmulti" orgamestate=="failingBmulti" orgamestate=="failedBmulti" orgamestate=="gameBmulti_results" then
gameBmulti_draw()
elseifgamestate=="failed" then
failed_draw()
elseifgamestate=="rocket1" orgamestate=="rocket2" orgamestate=="rocket3" orgamestate=="rocket4" then
rocket_draw()
end
end

functionnewImageData(path, s)
localimagedata=love.image.newImageData( path )

ifsthen
imagedata=scaleImagedata(imagedata, s)
end

localwidth, height=imagedata:getWidth(), imagedata:getHeight()

localrr, rg, rb=unpack(getrainbowcolor(hue))

fory=0, height-1do
forx=0, width-1do
localoldr, oldg, oldb, olda=imagedata:getPixel(x, y)

ifolda~=0then
ifoldr>203andoldr<213then--lightgrey
localr=145+rr*64
localg=145+rg*64
localb=145+rb*64
imagedata:setPixel(x, y, r, g, b, olda)
elseifoldr>107andoldr<117then--darkgrey
localr=73+rr*43
localg=73+rg*43
localb=73+rb*43
imagedata:setPixel(x, y, r, g, b, olda)
end
end
end
end

returnimagedata
end

functionnewPaddedImage(filename, s)
localsource=newImageData(filename)

ifsthen
source=scaleImagedata(source, s)
end

localw, h=source:getWidth(), source:getHeight()

-- Find closest power-of-two.
localwp=math.pow(2, math.ceil(math.log(w)/math.log(2)))
localhp=math.pow(2, math.ceil(math.log(h)/math.log(2)))

-- Only pad if needed:
ifwp~=worhp~=hthen
localpadded=love.image.newImageData(wp, hp)
padded:paste(source, 0, 0)
returnlove.graphics.newImage(padded)
end

returnlove.graphics.newImage(source)
end

functionpadImagedata(source) --returns image, not imagedata!
localw, h=source:getWidth(), source:getHeight()

-- Find closest power-of-two.
localwp=math.pow(2, math.ceil(math.log(w)/math.log(2)))
localhp=math.pow(2, math.ceil(math.log(h)/math.log(2)))

-- Only pad if needed:
ifwp~=worhp~=hthen
localpadded=love.image.newImageData(wp, hp)
padded:paste(source, 0, 0)
returnlove.graphics.newImage(padded)
end

returnlove.graphics.newImage(source)
end

functionnewPaddedImageFont(filename, glyphs)
localsource=newImageData(filename)
localw, h=source:getWidth(), source:getHeight()

-- Find closest power-of-two.
localwp=math.pow(2, math.ceil(math.log(w)/math.log(2)))
localhp=math.pow(2, math.ceil(math.log(h)/math.log(2)))

-- Only pad if needed:
ifwp~=worhp~=hthen
localpadded=love.image.newImageData(wp, hp)
padded:paste(source, 0, 0)
localimage=love.graphics.newImage(padded)
image:setFilter("nearest", "nearest")
returnlove.graphics.newImageFont(image, glyphs)
end

returnlove.graphics.newImageFont(source, glyphs)
end

functionscaleImagedata(imagedata, i)
localwidth, height=imagedata:getWidth(), imagedata:getHeight()
localscaled=love.image.newImageData(width*i, height*i)

fory=0, height*i-1do
forx=0, width*i-1do
localr, g, b, a=imagedata:getPixel(math.floor(x/i), math.floor(y/i))
scaled:setPixel(x, y, r, g, b, a)
end
end

returnscaled
end

functionchangevolume(i)
music[1]:setVolume( 0.6*i )
music[2]:setVolume( 0.6*i )
music[3]:setVolume( 0.6*i )
musictitle:setVolume( 0.6*i )
musichighscore:setVolume( 0.6*i )
musicrocket4:setVolume( 0.6*i )
musicrocket1to3:setVolume( 0.6*i )
musicresults:setVolume( i )
highscoreintro:setVolume( 0.6*i )
musicoptions:setVolume( i )
boot:setVolume( i )
blockfall:setVolume( i )
blockturn:setVolume( i )
blockmove:setVolume( i )
lineclear:setVolume( i )
fourlineclear:setVolume( i )
gameover1:setVolume( i )
gameover2:setVolume( i )
pausesound:setVolume( i )
highscorebeep:setVolume( i )
newlevel:setVolume( 0.6*i )
end

functionloadconfig()
--standard controls
--[[controls = {}
 controls["left"] = {"left"}
 controls["right"] = {"right"}
 controls["down"] = {"down"}
 controls["rotateleft"] = {"y", "z", "w"}
 controls["rotateright"] = {"x"}

 controls["p1left"] = {"a"}
 controls["p1right"] = {"d"}
 controls["p1down"] = {"s"}
 controls["p1rotateleft"] = {"g"}
 controls["p1rotateright"] = {"h"}

 controls["p2left"] = {"left"}
 controls["p2right"] = {"right"}
 controls["p2down"] = {"down"}
 controls["p2rotateleft"] = {"kp1"}
 controls["p2rotateright"] = {"kp2"}

 local keys = {"left", "right", "down", "rotateleft", "rotateright", "p1left", "p1right", "p1down", "p1rotateleft", "p1rotateright", "p2left", "p2right", "p2down", "p2rotateleft", "p2rotateright"}


 print(unpack(controls["left"]))--]]
end

functionloadoptions()
iflove.filesystem.exists("options.txt") then
locals=love.filesystem.read("options.txt")
localsplit1=s:split("\n")
fori=1, #split1do
localsplit2=split1[i]:split("=")
ifsplit2[1] =="volume" then
localv=tonumber(split2[2])
--clamp and round
ifv<0then
v=0
elseifv>1then
v=1
end
v=math.floor(v*10)/10

volume=v

elseifsplit2[1] =="hue" then
hue=tonumber(split2[2])

elseifsplit2[1] =="scale" then
scale=tonumber(split2[2])

elseifsplit2[1] =="fullscreen" then
ifsplit2[2] =="true" then
fullscreen=true
else
fullscreen=false
end
end
end

ifvolume==nilthen
volume=1
end
ifhue==nilthen
hue=0.08
end
iffullscreen==nilthen
fullscreen=false
end

ifscale==nilthen
scale=suggestedscale
end


else
volume=1
hue=0.08
autosize()
scale=suggestedscale
fullscreen=false
end

saveoptions()
end

functionsaveoptions()
locals=""

s=s.."volume=" ..volume.."\n"
s=s.."hue=" ..hue.."\n"
s=s.."scale=" ..scale.."\n"
s=s.."fullscreen=" ..tostring(fullscreen) .."\n"

love.filesystem.write("options.txt", s)
end

functionautosize()
localmodes=love.graphics.getModes()
desktopwidth, desktopheight=modes[1]["width"], modes[1]["height"]
end

functiontogglefullscreen(fullscr)
fullscreen=fullscr
love.mouse.setVisible( notfullscreen )
iffullscr==falsethen
scale=suggestedscale
physicsscale=scale/4
love.graphics.setMode( 160*scale, 144*scale, false, vsync, 0 )
else
love.graphics.setMode( 0, 0, true, vsync, 16 )
desktopwidth, desktopheight=love.graphics.getWidth(), love.graphics.getHeight()
suggestedscale=math.min(math.floor((desktopheight-50)/144), math.floor((desktopwidth-10)/160))
suggestedscale=math.min(math.floor((desktopheight-50)/144), math.floor((desktopwidth-10)/160))
ifsuggestedscale>5then
suggestedscale=5
end
maxscale=math.min(math.floor(desktopheight/144), math.floor(desktopwidth/160))

scale=maxscale
physicsscale=scale/4

fullscreenoffsetX= (desktopwidth-160*scale)/2
fullscreenoffsetY= (desktopheight-144*scale)/2
end
end

functionloadhighscores()
ifgameno==1then
fileloc="highscoresA.txt"
else
fileloc="highscoresB.txt"
end

iflove.filesystem.exists( fileloc ) then

highdata=love.filesystem.read( fileloc )
highdata=highdata:split(";")
highscore= {}
highscorename= {}
fori=1, 3do
highscore[i] =tonumber(highdata[i*2])
highscorename[i] =string.lower(highdata[i*2-1])
end
else
highscore= {}
highscorename= {}
highscore[1] =0
highscorename[1] =""
highscore[2] =0
highscorename[2] =""
highscore[3] =0
highscorename[3] =""
savehighscores()
end
end

functionnewhighscores()
highscore= {}
highscorename= {}
highscore[1] =0
highscorename[1] =""
highscore[2] =0
highscorename[2] =""
highscore[3] =0
highscorename[3] =""
savehighscores()
end

functionsavehighscores()
ifgameno==1then
fileloc="highscoresA.txt"
else
fileloc="highscoresB.txt"
end

highdata=""
fori=1, 3do
highdata=highdata..highscorename[i]..";"..highscore[i]..";"
end
love.filesystem.write( fileloc, highdata.."\n" )
end

functionchangescale(i)
love.graphics.setMode( 160*i, 144*i, false, vsync, 0 )
nextpieceimg= {}
forj=1, 7do
nextpieceimg[j] =newPaddedImage( "graphics/pieces/"..j..".png", i )
end
physicsscale=i/4
end

functionisElement(t, value)
fori, vinpairs(t) do
ifv==valuethen
returntrue
end
end

returnfalse
end

functionstring:split(delimiter)
localresult= {}
localfrom=1
localdelim_from, delim_to=string.find( self, delimiter, from )
whiledelim_fromdo
table.insert( result, string.sub( self, from , delim_from-1 ) )
from=delim_to+1
delim_from, delim_to=string.find( self, delimiter, from )
end
table.insert( result, string.sub( self, from ) )
returnresult
end

functionpythagoras(a, b)
c=math.sqrt(a^2+b^2)
ifa<0orb<0then
c=-c
end
returnc
end

functionround(num, idp)
localmult=10^(idpor0)
returnmath.floor(num*mult+0.5) /mult
end

functiontable2string(mytable)
output= {}
fori, vinpairs (mytable) do
output[i] =mytable[i]
end
returnoutput
end

functiongetPoints2table(shape)
x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8=shape:getPoints()
ifx4==nilthen
return {x1,y1,x2,y2,x3,y3}
end
ifx5==nilthen
return {x1,y1,x2,y2,x3,y3,x4,y4}
end
ifx6==nilthen
return {x1,y1,x2,y2,x3,y3,x4,y4,x5,y5}
end
ifx7==nilthen
return {x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6}
end
ifx8==nilthen
return {x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7}
end
return {x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8}
end

functiongetrainbowcolor(i)
localr, g, b
ifi<1/6then
r=1
g=i*6
b=0
elseifi>=1/6andi<2/6then
r= (1/6-(i-1/6))*6
g=1
b=0
elseifi>=2/6andi<3/6then
r=0
g=1
b= (i-2/6)*6
elseifi>=3/6andi<4/6then
r=0
g= (1/6-(i-3/6))*6
b=1
elseifi>=4/6andi<5/6then
r= (i-4/6)*6
g=0
b=1
else
r=1
g=0
b= (1/6-(i-5/6))*6
end

return {r, g, b}
end

functionlove.keypressed( key, unicode )
ifgamestate==nilthen
ifcontrols.check("return", key) then
gamestate="title"
love.graphics.setBackgroundColor( 0, 0, 0)
love.audio.play(musictitle)
oldtime=love.timer.getTime()
end

elseifgamestate=="logo" then
ifcontrols.check("return", key) then
gamestate="title"
love.graphics.setBackgroundColor( 0, 0, 0)
love.audio.play(musictitle)
oldtime=love.timer.getTime()
end

elseifgamestate=="credits" then
ifcontrols.check("return", key) then
gamestate="title"
love.graphics.setBackgroundColor( 0, 0, 0)
love.audio.play(musictitle)
oldtime=love.timer.getTime()
end

elseifgamestate=="title" then
ifcontrols.check("return", key) then
ifplayerselection~=3then
ifsoundenabledthen
love.audio.stop(musictitle)
ifmusicno<4then
love.audio.play(music[musicno])
end
end
end
ifplayerselection==1then
gamestate="menu"
elseifplayerselection==2then
gamestate="multimenu"
else
gamestate="options"
ifsoundenabledthen
love.audio.stop(musictitle)
love.audio.play(musicoptions)
end
optionsselection=1
end
elseifcontrols.check("escape", key) then
love.event.push("q")
elseifcontrols.check("left", key) andplayerselection>1then
playerselection=playerselection-1
elseifcontrols.check("right", key) andplayerselection<3then
playerselection=playerselection+1
end

elseifgamestate=="menu" then
oldmusicno=musicno
ifcontrols.check("escape", key) then
ifmusicno<4then
love.audio.stop(music[musicno])
end
gamestate="title"
ifsoundenabledthen
love.audio.stop(musictitle)
love.audio.play(musictitle)
end
elseifkey=="backspace" then
newhighscores()
elseifcontrols.check("return", key) then
ifgameno==1then
gameA_load()
else
gameB_load()
end
elseifcontrols.check("left", key) then
ifselection==2orselection==4orselection==6then
selection=selection-1
selectblink=true
oldtime=love.timer.getTime()
end
elseifcontrols.check("right", key) then
ifselection==1orselection==3orselection==5then
selection=selection+1
selectblink=true
oldtime=love.timer.getTime()
end
elseifcontrols.check("up", key) then
ifselection==3orselection==4orselection==5orselection==6then
selection=selection-2
selectblink=true
oldtime=love.timer.getTime()
ifselection<3then
selection=gameno
selectblink=false
oldtime=love.timer.getTime()
end
elseifselection==1orselection==2then
selection=musicno+2
selectblink=false
oldtime=love.timer.getTime()
end
elseifcontrols.check("down", key) then
ifselection==1orselection==2orselection==3orselection==4then
selection=selection+2
selectblink=true
oldtime=love.timer.getTime()
ifselection>2andselection<5then
selection=musicno+2
selectblink=false
oldtime=love.timer.getTime()
end
elseifselection==5orselection==6then
selection=gameno
selectblink=false
oldtime=love.timer.getTime()
end
end
ifselection>2andnotcontrols.check("escape", key) then
musicno=selection-2
ifoldmusicno~=musicnoandoldmusicno~=4then
love.audio.stop(music[oldmusicno])
end
ifmusicno<4then
love.audio.play(music[musicno])
end
elseifnotcontrols.check("escape", key) then
gameno=selection
loadhighscores()
end

elseifgamestate=="options" then
ifcontrols.check("escape", key) then
ifsoundenabledthen
love.audio.stop(musicoptions)
love.audio.stop(musictitle)
love.audio.play(musictitle)
end
saveoptions()
loadimages()
gamestate="title"
elseifcontrols.check("down", key) then
optionsselection=optionsselection+1
ifoptionsselection>#optionschoicesthen
optionsselection=1
end
selectblink=true
oldtime=love.timer.getTime()

elseifcontrols.check("up", key) then
optionsselection=optionsselection-1
ifoptionsselection==0then
optionsselection=#optionschoices
end
selectblink=true
oldtime=love.timer.getTime()

elseifcontrols.check("left", key) then
ifoptionsselection==1then
ifvolume>=0.1then
volume=volume-0.1
ifvolume<0.1then
volume=0
end
changevolume(volume)
end

elseifoptionsselection==3then
iffullscreen==falsethen
ifscale>1then
scale=scale-1
changescale(scale)
end
end

elseifoptionsselection==4then
iffullscreen==falsethen
togglefullscreen(true)
end

end

elseifcontrols.check("right", key) then
ifoptionsselection==1then
ifvolume<=0.9then
volume=volume+0.1
changevolume(volume)
end

elseifoptionsselection==3then
iffullscreen==falsethen
ifscale<maxscalethen
scale=scale+1
changescale(scale)
end
end

elseifoptionsselection==4then
iffullscreen==truethen
togglefullscreen(false)
end

end

elseifcontrols.check("return", key) then
ifoptionsselection==1then
volume=1
changevolume(volume)
elseifoptionsselection==2then
hue=0.08
optionsmenu=newPaddedImage("graphics/options.png");optionsmenu:setFilter( "nearest", "nearest" )