Last active
August 29, 2015 14:17
-
-
Save Westenburg/4a0fbf0d2db7e033f42e to your computer and use it in GitHub Desktop.
People Popcorn - Codea Game Jam 2015
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- People Popcorn | |
| -- by West | |
| --two space chameleons, Clive and Agnes descend on the unsuspecting planet. Who will gobble up the most people? | |
| supportedOrientations(LANDSCAPE_ANY) | |
| -- Use this function to perform your initial setup | |
| function setup() | |
| displayMode(FULLSCREEN_NO_BUTTONS) | |
| -- displayMode(FULLSCREEN) | |
| WALK=1 | |
| STAND=2 | |
| FALL=3 | |
| READY=1 | |
| GAMEOVER=2 | |
| PLAY=3 | |
| gamestate=READY | |
| deadtimer=0 | |
| gamemode=1 --default 1 player mode - 2 will be 2 player mode | |
| --create some custom graphics | |
| head=image(70,70) | |
| setContext(head) | |
| headmesh = mesh() | |
| headmesh.vertices = triangulate({vec2(29,43),vec2(29,55),vec2(31,61),vec2(37,61),vec2(49,53),vec2(55,51),vec2(59,47),vec2(61,39),vec2(61,31),vec2(47,35),vec2(35,35)}) | |
| headmesh:setColors(255,255,255,255) | |
| headmesh:draw() | |
| strokeWidth(1) | |
| fill(255) | |
| stroke(150) | |
| ellipse(50,50,16) | |
| fill(0) | |
| ellipse(50,53,4) | |
| fill(255) | |
| noStroke() | |
| setContext() | |
| jaw=image(70,70) | |
| setContext(jaw) | |
| jawmesh = mesh() | |
| jawmesh.vertices = triangulate({vec2(29,47),vec2(35,39),vec2(47,39),vec2(61,35),vec2(55,31),vec2(28,31)}) | |
| jawmesh:setColors(230,230,230,255) | |
| jawmesh:draw() | |
| setContext() | |
| fill(255) | |
| fontSize(80) | |
| bombimg=image(80,80) | |
| setContext(bombimg) | |
| local char = unicode2UTF8(128163) | |
| text(char,40,40) | |
| setContext() | |
| fontSize(80) | |
| cow=image(80,80) | |
| setContext(cow) | |
| local char = unicode2UTF8(128004) | |
| text(char,40,40) | |
| setContext() | |
| bike=image(80,80) | |
| setContext(bike) | |
| local char = unicode2UTF8(128692) | |
| text(char,40,40) | |
| setContext() | |
| -- saveLocalData("hiscore",0) | |
| if readLocalData("hiscore")~=nil then | |
| hiscore=readLocalData("hiscore") | |
| else | |
| hiscore=0 | |
| end | |
| obj={ | |
| {img="Planet Cute:Character Boy",w=25,h=42,spd=1}, | |
| {img="Planet Cute:Character Cat Girl",w=25,h=42,spd=1.5}, | |
| {img="Planet Cute:Character Horn Girl",w=25,h=42,spd=2}, | |
| {img="Planet Cute:Character Pink Girl",w=25,h=42,spd=2.5}, | |
| {img="Planet Cute:Character Princess Girl",w=33,h=57,spd=1}, | |
| {img=cow,w=-25,h=25,spd=0.5}, | |
| {img=bike,w=-25,h=25,spd=3} | |
| } | |
| initialise() | |
| --starfield setup --credit to Simeon @TLL: http://codea.io/talk/discussion/644/flicker-drawing-large-images-any-advice/p1 | |
| local gradSize = 2 | |
| grad = image(gradSize,gradSize) | |
| local toColor = color(29, 27, 38, 255) | |
| local fromColor = color(31, 32, 59, 255) | |
| -- Make a gradient | |
| local c = nil | |
| for i = 1,gradSize do | |
| for x = 1,gradSize do | |
| local a = i/gradSize | |
| c = blend( fromColor, toColor, a ) | |
| grad:set(x, i, c) | |
| end | |
| end | |
| starMesh = mesh() | |
| starMesh.texture = starImage(32) | |
| for i = 1,100 do | |
| local x = math.random(WIDTH) | |
| local y = math.random(HEIGHT) | |
| local s = math.random(8, 32) | |
| local idx = starMesh:addRect(x, y, s, s) | |
| local o = math.random(40,255) | |
| starMesh:setRectColor( idx, color(255,255,255,o) ) | |
| end | |
| triMesh = mesh() | |
| col1=color(29,27,38) | |
| timer=0 | |
| coladjust=1 | |
| col2=color(44,76,35) | |
| -- This is an array of colours we'll assign to the triMesh vertices | |
| triCol = { col1,col2,col2,col1,col2,col2} | |
| -- Assign colors to the mesh, there must be the same number of colours as vertices | |
| triMesh.colors = triCol | |
| touches={} | |
| tsup={} --tsup contains the supplementary info about the start position of the touch | |
| end | |
| -- This function gets called once every frame | |
| function draw() | |
| --increase the scoring as more peopleare rescued | |
| if #men<10 then | |
| multiplier=3 | |
| elseif #men<20 then | |
| multiplier=2 | |
| else | |
| multiplier=1 | |
| end | |
| if redcount>0 then redcount = redcount - 1 end | |
| if redcount2>0 then redcount2 = redcount2 - 1 end | |
| -- This sets a dark background color | |
| background(40, 40, 50) | |
| sprite( grad, WIDTH/2, HEIGHT/2, | |
| WIDTH+20, HEIGHT+20 ) | |
| starMesh:draw() | |
| fill(44, 76, 35, 255) | |
| noStroke() | |
| rect(0,0,WIDTH,92) | |
| local topleft = vec2(0,92) | |
| local bottomleft = vec2(0,78) | |
| local bottomright = vec2(WIDTH,78) | |
| local topright=vec2(WIDTH,92) | |
| -- Set points on mesh | |
| triMesh.vertices = { topleft, | |
| bottomleft, | |
| bottomright,bottomright,topleft,topright } | |
| triMesh.colors={col1,col2,col2,col2,col1,col1} | |
| -- Draw the mesh that we setup | |
| triMesh:draw() | |
| --Clive | |
| --experimental tongue | |
| tonguex = tonguex + tongueacc*math.cos(math.rad(tongueangle)) | |
| tonguey = tonguey + tongueacc*math.sin(math.rad(tongueangle)) | |
| tongueacc = tongueacc - 0.2 | |
| if tonguex>WIDTH then tongueacc = tongueacc * -1 tonguex=WIDTH end | |
| if tonguey<150 then tongueacc = tongueacc * -1 tonguey=150 end | |
| if tonguey>HEIGHT then tongueacc = tongueacc * -1 tonguey=HEIGHT end | |
| if tonguex<0 then | |
| tongueready=1 | |
| tongueangle=0 | |
| tonguex=0 | |
| tonguey=chamy | |
| end | |
| tint(255, 0, 197, 255) | |
| pushMatrix() | |
| translate(tonguex,tonguey) | |
| popMatrix() | |
| noTint() | |
| strokeWidth(5) | |
| stroke(157, 0, 255, 255) | |
| line(chamx,chamy,tonguex,tonguey) | |
| noStroke() | |
| fill(42, 89, 33, 255) | |
| ellipse(chamx-10,chamy,20) | |
| pushMatrix() | |
| local choffset=12 | |
| local mouthopen=math.min(35,(tonguex-chamx)/5) | |
| if redcount>40 then mouthopen=math.random(10) end | |
| translate(chamx,chamy) | |
| rotate(tongueangle) | |
| rotate(-mouthopen) | |
| tint(math.max(redcount,33),136,47,255) | |
| sprite(jaw,0,0) | |
| rotate(mouthopen) | |
| rotate(mouthopen) | |
| sprite(head,0,0) | |
| noTint() | |
| rotate(-mouthopen) | |
| popMatrix() | |
| --Agnes | |
| --experimental tongue | |
| tonguex2 = tonguex2 - tongueacc2*math.cos(math.rad(tongueangle2)) | |
| tonguey2 = tonguey2 - tongueacc2*math.sin(math.rad(tongueangle2)) | |
| tongueacc2 = tongueacc2 + 0.2 | |
| if tonguex2<0 then tongueacc2 = tongueacc2 * -1 tonguex2=0 end | |
| if tonguey2<150 then tongueacc2 = tongueacc2 * -1 tonguey2=150 end | |
| if tonguey2>HEIGHT then tongueacc2 = tongueacc2 * -1 tonguey2=HEIGHT end | |
| if tonguex2>WIDTH then | |
| tongueready2=1 | |
| tongueangle2=180 | |
| tonguex2=WIDTH | |
| tonguey2=chamy2 | |
| end | |
| tint(255, 0, 197, 255) | |
| pushMatrix() | |
| translate(tonguex2,tonguey2) | |
| popMatrix() | |
| noTint() | |
| strokeWidth(5) | |
| stroke(157, 0, 255, 255) | |
| line(chamx2,chamy2,tonguex2,tonguey2) | |
| noStroke() | |
| fill(30, 45, 128, 255) | |
| ellipse(chamx2+10,chamy2,20) | |
| pushMatrix() | |
| local choffset=12 | |
| local mouthopen=math.min(35,(chamx2-tonguex2)/5) | |
| mouthopen=-mouthopen | |
| if redcount2>40 then mouthopen=math.random(10) end | |
| translate(chamx2,chamy2) | |
| rotate(tongueangle2) | |
| rotate(-mouthopen) | |
| tint(math.max(redcount2,13),147,220,255) | |
| sprite(jaw,0,0,70,-70) | |
| rotate(mouthopen) | |
| rotate(mouthopen) | |
| sprite(head,0,0,70,-70) | |
| noTint() | |
| rotate(-mouthopen) | |
| popMatrix() | |
| for i,m in pairs(men) do | |
| if m.xacc>0 and m.y<=100 then m.xacc = m.xacc -0.06 end | |
| if m.xacc<0 and m.y<=100 then m.xacc = m.xacc + 0.06 end | |
| if math.abs(m.xacc)<0.05 then m.xacc=0 end | |
| if m.y>100 then | |
| m.yacc = m.yacc -0.1 | |
| if m.xacc>0 then m.face=1 end | |
| if m.xacc<0 then m.face=-1 end | |
| else | |
| --make the people jump up and down at the end | |
| if gamestate==GAMEOVER and math.random(10)==1 then | |
| m.yacc=math.random(20)/10 | |
| else | |
| m.y=100 | |
| m.yacc=0 | |
| if gamestate~=GAMEOVER then | |
| m.x = m.x + (m.face*obj[m.col].spd) | |
| end | |
| end | |
| end | |
| --draw the active bombs | |
| for j,b in pairs(bomb) do | |
| if b.fuse<=0 then | |
| bound=50+b.size | |
| local mag=vec2(m.x,m.y):dist(vec2(b.x,b.y-20)) | |
| local angle=math.atan2((b.y-20)-m.y,b.x-m.x) | |
| if mag<bound and mag>-bound then | |
| local mag2=(bound-math.abs(mag))*mag/math.abs(mag) | |
| m.xacc=m.xacc-(mag2/10)*math.cos(angle) | |
| m.yacc=m.yacc-(mag2/10)*math.sin(angle) | |
| elseif math.abs(b.x-m.x)<3*bound and m.y==100 then | |
| m.yacc = m.yacc + 1 | |
| end | |
| end | |
| if b.fuse<-0.2 then table.remove(bomb,j) | |
| sound("Game Sounds One:Pop 1") | |
| end | |
| end | |
| if m.x>WIDTH or m.x<0 then | |
| m.face = m.face * -1 | |
| m.xacc = m.xacc * -1 | |
| end | |
| m.y = m.y + m.yacc | |
| m.x = m.x + m.xacc | |
| if m.stuck==1 then | |
| m.x=tonguex | |
| m.y=tonguey | |
| elseif m.stuck==2 then | |
| m.x=tonguex2 | |
| m.y=tonguey2 | |
| end | |
| pushMatrix() | |
| if m.col==5 then | |
| translate(m.x,m.y+6) | |
| else | |
| translate(m.x,m.y) | |
| end | |
| if m.xacc~=0 and m.yacc~=0 then | |
| rotate(math.deg(math.atan2(m.yacc,m.xacc))-90) | |
| end | |
| --draw the people | |
| sprite(obj[m.col].img,0,0,m.face*obj[m.col].w,obj[m.col].h) | |
| popMatrix() | |
| noTint() | |
| if math.abs(m.x-tonguex)<25 and math.abs(m.y-tonguey)<25 then | |
| if m.stuck==0 then | |
| sound("Game Sounds One:Punch 1") | |
| end | |
| m.stuck=1 | |
| end | |
| if math.abs(m.x-tonguex2)<25 and math.abs(m.y-tonguey2)<25 then | |
| if m.stuck==0 then | |
| sound("Game Sounds One:Punch 1") | |
| end | |
| m.stuck=2 | |
| end | |
| if m.stuck==1 and tonguex<10 then | |
| table.remove(men,i) | |
| if m.col==5 then | |
| if #men==49 or #men==0 then | |
| --bonus for eating queen first or last | |
| score = score + 200 | |
| end | |
| score = score + (100*multiplier) | |
| sound("A Hero's Quest:Drink 2") | |
| queensaved=1 | |
| else | |
| score = score + (10*multiplier) | |
| sound("A Hero's Quest:Eat 1") | |
| --play a bike bell if cyclist is consumed | |
| if m.col==7 then | |
| sound("Game Sounds One:Bell 1") | |
| end | |
| end | |
| p1count = p1count + 1 | |
| end | |
| if m.stuck==2 and tonguex2>WIDTH-10 then | |
| table.remove(men,i) | |
| if m.col==5 then | |
| score = score + (100*multiplier) | |
| sound("A Hero's Quest:Drink 2") | |
| queensaved=2 | |
| else | |
| score = score + (10*multiplier) | |
| sound("A Hero's Quest:Eat 1") | |
| --play a bike bell if cyclist is consumed | |
| if m.col==7 then | |
| sound("Game Sounds One:Bell 1") | |
| end | |
| end | |
| if gamemode==2 then | |
| p2count = p2count + 1 | |
| end | |
| end | |
| end | |
| --kiss: if tongue tips touch then generate a heart | |
| if math.abs(tonguex2-tonguex)<30 and math.abs(tonguey2-tonguey)<30 then | |
| table.insert(particle,{x=tonguex-math.random(40),y=tonguey+math.random(20),size=math.random(5),fade=255,t=2}) | |
| sound("Game Sounds One:Slap") | |
| score = score + 5 | |
| end | |
| for i,b in pairs(bomb) do | |
| if b.stuck==1 then | |
| b.x=tonguex | |
| b.y=tonguey | |
| b.fuse=1 | |
| elseif b.stuck==2 then | |
| b.x=tonguex2 | |
| b.y=tonguey2 | |
| b.fuse=1 | |
| end | |
| if math.abs(b.x-tonguex)<25 and math.abs(b.y-tonguey)<25 then | |
| if b.stuck==0 then | |
| sound("Game Sounds One:Punch 1") | |
| end | |
| b.stuck=1 | |
| end | |
| if b.stuck==1 and tonguex<10 then | |
| table.remove(bomb,i) | |
| score = score -100 | |
| sound("Game Sounds One:Horror Howl 1") | |
| redcount=255 | |
| end | |
| if math.abs(b.x-tonguex2)<25 and math.abs(b.y-tonguey2)<25 then | |
| if b.stuck==0 then | |
| sound("Game Sounds One:Punch 1") | |
| end | |
| b.stuck=2 | |
| end | |
| if b.stuck==2 and tonguex2>WIDTH-10 then | |
| table.remove(bomb,i) | |
| score = score -100 | |
| sound("Game Sounds One:Horror Howl 1") | |
| redcount2=255 | |
| end | |
| if b.fuse<=0 then | |
| sprite("Small World:Explosion",b.x,b.y+4,24+2*b.size+math.sin(7*ElapsedTime),24+2*b.size+math.cos(11*ElapsedTime)) | |
| else | |
| sprite(bombimg,b.x,b.y,15+b.size+math.sin(7*ElapsedTime),15+b.size+math.cos(11*ElapsedTime)) | |
| strokeWidth(2) | |
| fill(252, 252, 252, 255) | |
| text(math.ceil(b.fuse),b.x,b.y+20) | |
| end | |
| b.fuse = b.fuse - 0.03 | |
| if b.y>100 then | |
| b.yacc = b.yacc -0.1 | |
| else | |
| b.y=100 | |
| end | |
| b.y = b.y + b.yacc | |
| end | |
| if redcount>50 then | |
| if math.random(5)==1 then | |
| table.insert(particle,{x=chamx+math.random(40),y=chamy+math.random(20),size=math.random(5),fade=255,t=1}) | |
| end | |
| end | |
| if redcount2>50 then | |
| if math.random(5)==1 then | |
| table.insert(particle,{x=chamx2-math.random(40),y=chamy2+math.random(20),size=math.random(5),fade=255,t=1}) | |
| end | |
| end | |
| for i,s in pairs(particle) do | |
| tint(255,255,255,s.fade) | |
| if s.t==1 then | |
| sprite("Cargo Bot:Smoke Particle",s.x,s.y,s.size,s.size) | |
| else | |
| sprite("Small World:Heart Glow",s.x,s.y,s.size,s.size) | |
| end | |
| noTint() | |
| s.fade = s.fade - math.random(3) | |
| s.size = s.size + math.random(10)/10 | |
| s.y = s.y + 2 | |
| if s.fade<0 then | |
| table.remove(particle,i) | |
| end | |
| end | |
| fill(255) | |
| --draw start and stop circles and connect them with lines for all active touches | |
| strokeWidth(2) | |
| -- for i,t in pairs(touches) do | |
| -- stroke(255) | |
| -- sprite(bombimg,t.x,t.y,12+math.sin(7*ElapsedTime),12+math.cos(11*ElapsedTime)) | |
| -- end | |
| textMode(CENTER) | |
| font("ArialRoundedMTBold") | |
| fontSize(24) | |
| if gamemode==1 then | |
| text("People eaten: "..50-#men,WIDTH*0.1,30) | |
| text("Score: "..score,0.10*WIDTH,HEIGHT-30) | |
| text("Hi-score: "..hiscore,WIDTH*0.9,HEIGHT-30) | |
| else | |
| text("People eaten: "..p1count,WIDTH*0.1,30) | |
| text("People eaten: "..p2count,WIDTH*0.85,30) | |
| end | |
| --add a queen icon if the queen has been eaten | |
| if queensaved==1 then | |
| sprite(obj[5].img,WIDTH*0.22,33,101/3,171/3) | |
| end | |
| --display the countdown | |
| fontSize(72) | |
| text(math.floor(counter),WIDTH/2,HEIGHT-50) | |
| fontSize(16) | |
| if #men==0 then | |
| if gamestate~=GAMEOVER then | |
| score = score + 250 | |
| end | |
| gamestate=GAMEOVER | |
| end | |
| if gamestate==PLAY then | |
| counter = counter - 0.02 | |
| if counter<=1 then | |
| gamestate=GAMEOVER | |
| end | |
| if gamemode==2 and math.random(50)==1 then | |
| table.insert(bomb,{x=30+math.random(WIDTH-60),y=HEIGHT,yacc=0,fuse=4+math.random(3),stuck=0,size=3+math.random(9)}) | |
| end | |
| -- Draw the "Ready" screen | |
| elseif gamestate==READY then | |
| deadtimer = deadtimer + 1 | |
| playerxspd=0 | |
| font("ArialRoundedMTBold") | |
| fill(220, 194, 30, 255) | |
| strokeWidth(3) | |
| fontSize(72) | |
| text("People Popcorn",WIDTH/2,HEIGHT*0.8) | |
| fontSize(40) | |
| text("Ready?",WIDTH/2,HEIGHT*0.3) | |
| textAlign(CENTER) | |
| textWrapWidth(WIDTH-200) | |
| fontSize(24) | |
| if gamemode==1 then | |
| instruct="Clive and Agnes are hungry space chameleons whose favourite food is people popcorn!" | |
| instruct = instruct.."\nTap screen to create a bomb to pop the people from the planet" | |
| instruct = instruct.."\nThe longer the tap the bigger the POP!" | |
| instruct = instruct.."\nSwipe right for Clive's tongue, swipe left for Agnes'" | |
| instruct = instruct.."\nDon't eat the bombs though, they cause terrible indigestion" | |
| else | |
| instruct="Clive and Agnes are hungry space chameleons whose favourite food is people popcorn!" | |
| instruct = instruct.."\nWho eats the most, WINS!" | |
| instruct = instruct.."\nPlayer 1 controls Clive by swiping in the left of the screen only." | |
| instruct = instruct.."\nPlayer 2 controls Agnes by swiping in the right of the screen only." | |
| instruct = instruct.."\nBombs automatically appear." | |
| end | |
| --add a fortune cookie statement to the end | |
| instruct = instruct.."\n\nOnly "..wordlist1[w[1]].." can save "..wordlist2[w[2]]..wordlist3[w[3]] | |
| text(instruct,WIDTH/2,HEIGHT*0.6) | |
| fill(200,255,255) | |
| text(gamemode.." Player Mode",WIDTH/2,HEIGHT*0.07) | |
| -- draw the game over screen | |
| elseif gamestate==GAMEOVER then | |
| if gamemode==1 then | |
| if deadtimer==1 then | |
| if #men>0 then | |
| sound("Game Sounds One:Pac Death 2") | |
| else | |
| sound("Game Sounds One:Crowd Cheer") | |
| end | |
| end | |
| fill(25, 164, 221, 255) | |
| strokeWidth(3) | |
| fontSize(40) | |
| --Print a different message if all the people have been eaten | |
| if #men>0 then | |
| text("Time up",WIDTH/2,HEIGHT/2) | |
| else | |
| text("Population Popcorn Popped!",WIDTH/2,HEIGHT/2) | |
| end | |
| text("Score: "..math.floor(score),WIDTH/2,2*HEIGHT/3) | |
| fontSize(24) | |
| --check the score and store it if it is a new high score | |
| if score>hiscore then | |
| saveLocalData("hiscore",score) | |
| hiscore=score | |
| end | |
| else | |
| fontSize(74) | |
| if p1count>p2count then | |
| if deadtimer==1 then | |
| sound("Game Sounds One:Crowd Cheer") | |
| end | |
| fill(33, 167, 47, 255) | |
| text("Clive Wins!",WIDTH/2,HEIGHT/2) | |
| elseif p1count<p2count then | |
| if deadtimer==1 then | |
| sound("Game Sounds One:Crowd Cheer") | |
| end | |
| fill(13,147,220,255) | |
| text("Agnes Wins!",WIDTH/2,HEIGHT/2) | |
| elseif p1count==p2count then | |
| if deadtimer==1 then | |
| sound("Game Sounds One:Crowd Sad") | |
| end | |
| fill(255, 193, 0, 255) | |
| text("Draw",WIDTH/2,HEIGHT/2) | |
| end | |
| end | |
| fontSize(40) | |
| text("Double Tap to restart",WIDTH/2,HEIGHT/3) | |
| deadtimer = deadtimer + 1 | |
| fontSize(16) | |
| --restart the game after a double tap and a short delay | |
| if deadtimer>100 and CurrentTouch.tapCount==2 then | |
| gamestate=READY | |
| deadtimer=0 | |
| initialise() | |
| end | |
| end | |
| end | |
| function touched(touch) | |
| if touch.state==MOVING then | |
| --record path | |
| if tsup[touch.id]~=nil then | |
| table.insert(tsup[touch.id].path,{pos=vec2(touch.x,touch.y),age=ElapsedTime}) | |
| end | |
| end | |
| if touch.state==ENDED or touch.state==CANCELLED then | |
| processTouch(touch) | |
| touches[touch.id] = nil | |
| tsup[touch.id]=nil | |
| else | |
| touches[touch.id] = touch | |
| --if there is no supplementary info associated with the current touch then add it | |
| if tsup[touch.id]==nil then | |
| tsup[touch.id]={tstartx=touch.x,tstarty=touch.y,starttime=ElapsedTime,path={}} | |
| end | |
| end | |
| end | |
| function processTouch(touch) | |
| if gamestate==PLAY then | |
| if ElapsedTime-tsup[touch.id].starttime<0.2 then | |
| --very short event | |
| if tsup[touch.id]==nil then | |
| if gamemode==1 then | |
| table.insert(bomb,{x=touch.x,y=touch.y,yacc=0,fuse=3,stuck=0,size=math.ceil(math.max(2,math.min(10,(ElapsedTime-tsup[touch.id].starttime)*6)))}) | |
| end | |
| elseif vec2(touch.x,touch.y):dist(vec2(tsup[touch.id].tstartx,tsup[touch.id].tstarty))<10 then | |
| if gamemode==1 then | |
| table.insert(bomb,{x=touch.x,y=touch.y,yacc=0,fuse=3,stuck=0,size=math.ceil(math.max(2,math.min(10,(ElapsedTime-tsup[touch.id].starttime)*6)))}) | |
| end | |
| else | |
| local ang=math.atan2(touch.y-tsup[touch.id].tstarty,touch.x-tsup[touch.id].tstartx) | |
| local dang=math.deg(ang) | |
| if dang>-90 and dang<90 then | |
| if tongueready==1 and redcount<1 and ((gamemode==2 and touch.x<WIDTH/2) or gamemode==1)then | |
| table.insert(slash,{x=touch.x,y=touch.y,a=ang,fade=255}) | |
| tongueacc=30 | |
| tongueready=0 | |
| tongueangle=dang | |
| end | |
| else | |
| if tongueready2==1 and redcount2<1 and ((gamemode==2 and touch.x>WIDTH/2) or gamemode==1) then | |
| table.insert(slash,{x=touch.x,y=touch.y,a=ang,fade=255}) | |
| tongueacc2=-30 | |
| tongueready2=0 | |
| tongueangle2=dang | |
| end | |
| end | |
| end | |
| else | |
| if gamemode==1 then | |
| table.insert(bomb,{x=touch.x,y=touch.y,yacc=0,fuse=3,stuck=0,size=math.ceil(math.max(2,math.min(10,(ElapsedTime-tsup[touch.id].starttime)*6)))}) | |
| end | |
| end | |
| elseif gamestate==READY then | |
| if touch.y<HEIGHT*0.15 then | |
| gamemode = gamemode + 1 | |
| sound("Game Sounds One:Radar") | |
| if gamemode>2 then gamemode=1 end | |
| elseif deadtimer>120 then | |
| gamestate=PLAY | |
| playerxspd=1 | |
| deadtimer=0 | |
| sound(SOUND_POWERUP, 14384) | |
| end | |
| end | |
| end | |
| function starImage(s) | |
| local s2 = s/2 | |
| local i = image(s,s) | |
| setContext(i) | |
| pushStyle() | |
| for i = 1,6 do | |
| fill( 240, 245, 255, i*10 ) | |
| ellipse( s2, s2, (s-1) / i ) | |
| end | |
| fill(255) | |
| ellipse( s2, s2, 3 ) | |
| popStyle() | |
| setContext() | |
| return i | |
| end | |
| function blend(c1, c2, a) | |
| return color(c1.r * a + c2.r * (1-a), | |
| c1.g * a + c2.g * (1-a), | |
| c1.b * a + c2.b * (1-a), | |
| c1.a) | |
| end | |
| function initialise() | |
| men={} | |
| --insert 1 queen | |
| table.insert(men,{x=math.random(WIDTH),y=100+math.random(200),ang=0,state=math.random(3),face=1,yacc=0,xacc=0,col=5}) | |
| for i=1,49 do | |
| local f=math.random(2) | |
| if f==2 then f=-1 end | |
| local kind=math.random(7) | |
| if kind==5 then kind = kind - math.random(3) end | |
| table.insert(men,{x=math.random(WIDTH),y=100+math.random(200),ang=0,state=math.random(3),face=f,yacc=0,xacc=0,col=kind,stuck=0}) | |
| end | |
| bomb={} | |
| counter=100 | |
| score=0 | |
| score=0 | |
| queensaved=0 | |
| multiplier=1 | |
| wordlist1={"you","bacon","JakAttak","salvation","yojimbo2000","CodeaNoob","Simeon","Chuck Norris","the meek","Ignatz","dave1707","andymac3d","Flash","truth","justice","deactive","Nathan","TechDojo","Wibble"} | |
| wordlist2={"mankind","the human race","tomorrow","yesterday","my bacon","planet earth","me","time and effort","us","my soul","humanity","money","for a rainy day","our dignity","wibble"} | |
| wordlist3={"!","?","?!!?!",".","...","!!","!!!"," now",". Wibble!"} | |
| w={math.random(#wordlist1),math.random(#wordlist2),math.random(#wordlist3)} | |
| chamx=10 | |
| chamy=500 | |
| tonguex=chamx | |
| tonguey=chamy | |
| tongueacc=0 | |
| tongueangle=-20+math.random(40) | |
| tongueready=1 | |
| chamx2=WIDTH-10 | |
| chamy2=500 | |
| tonguex2=chamx2 | |
| tonguey2=chamy2 | |
| tongueacc2=0 | |
| tongueangle2=-20+math.random(40)+180 | |
| tongueready2=1 | |
| slash={} | |
| redcount=0 | |
| redcount2=0 | |
| particle={} | |
| p1count=0 | |
| p2count=0 | |
| end | |
| -- thanks to mpilgrem for the following code posted on the forums | |
| -- Unicode code point to UTF-8 format string of bytes | |
| -- | |
| -- Bit Last point Byte 1 Byte 2 Byte 3 Byte 4 Byte 5 Byte 6 | |
| -- 7 U+007F 0xxxxxxx | |
| -- 11 U+07FF 110xxxxx 10xxxxxx | |
| -- 16 U+FFFF 1110xxxx 10xxxxxx 10xxxxxx | |
| -- 21 U+1FFFFF 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx | |
| -- 26 U+3FFFFFF 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx | |
| -- 31 U+7FFFFFFF 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx | |
| -- | |
| -- However, largest integer in Codea's Lua is 0x7FFFFF (23 bit) | |
| -- With acknowledgement also to Andrew Stacey's UTF-8 library | |
| function unicode2UTF8(u) | |
| u = math.max(0, math.floor(u)) -- A positive integer | |
| local UTF8 | |
| if u < 0x80 then -- less than 8 bits | |
| UTF8 = string.char(u) | |
| elseif u < 0x800 then -- less than 12 bits | |
| local b2 = u % 0x40 + 0x80 | |
| local b1 = math.floor(u/0x40) + 0xC0 | |
| UTF8 = string.char(b1, b2) | |
| elseif u < 0x10000 then -- less than 16 bits | |
| local b3 = u % 0x40 + 0x80 | |
| local b2 = math.floor(u/0x40) % 0x40 + 0x80 | |
| local b1 = math.floor(u/0x1000) + 0xE0 | |
| UTF8 = string.char(b1, b2, b3) | |
| elseif u < 0x200000 then -- less than 22 bits | |
| local b4 = u % 0x40 + 0x80 | |
| local b3 = math.floor(u/0x40) % 0x40 + 0x80 | |
| local b2 = math.floor(u/0x1000) % 0x40 + 0x80 | |
| local b1 = math.floor(u/0x40000) + 0xF0 | |
| UTF8 = string.char(b1, b2, b3, b4) | |
| elseif u < 0x800000 then -- less than 24 bits | |
| local b5 = u % 0x40 + 0x80 | |
| local b4 = math.floor(u/0x40) % 0x40 + 0x80 | |
| local b3 = math.floor(u/0x1000) % 0x40 + 0x80 | |
| local b2 = math.floor(u/0x40000) % 0x40 + 0x80 | |
| local b1 = math.floor(u/0x1000000) + 0xF8 | |
| UTF8 = string.char(b1, b2, b3, b4, b5) | |
| else | |
| print("Error: Code point too large for Codea's Lua.") | |
| end | |
| return UTF8 | |
| end |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment