--Traffic-Light matox 2012
function setup()
displayMode(FULLSCREEN)
gox = 100
speed = 10
i=10
function bild()--Car
local img = image(16, 16)
img:set(2,3,255,0,0,255)
img:set(2,4,255,255,0,255)
img:set(2,5,255,255,0,255)
img:set(2,6,255,0,0,255)
img:set(3,2,127,127,127,255)
img:set(3,3,127,127,127,255)
img:set(3,4,127,127,127,255)
img:set(3,5,255,0,0,255)
img:set(3,6,255,0,0,255)
img:set(3,7,255,0,0,255)
img:set(4,2,127,127,127,255)
img:set(4,3,255,255,255,255)
img:set(4,4,127,127,127,255)
img:set(4,5,255,0,0,255)
img:set(4,6,255,0,0,255)
img:set(4,7,255,0,0,255)
img:set(4,8,255,0,0,255)
img:set(5,2,127,127,127,255)
img:set(5,3,127,127,127,255)
img:set(5,4,127,127,127,255)
img:set(5,5,255,0,0,255)
img:set(5,6,255,255,255,255)
img:set(5,7,255,255,255,255)
img:set(5,8,255,0,0,255)
img:set(5,9,255,0,0,255)
img:set(6,3,255,0,0,255)
img:set(6,4,255,0,0,255)
img:set(6,5,255,0,0,255)
img:set(6,6,255,255,255,255)
img:set(6,7,255,255,255,255)
img:set(6,8,255,255,255,255)
img:set(6,9,255,0,0,255)
img:set(7,3,255,0,0,255)
img:set(7,4,255,0,0,255)
img:set(7,5,255,0,0,255)
img:set(7,6,255,255,255,255)
img:set(7,7,255,255,255,255)
img:set(7,8,255,255,255,255)
img:set(7,9,255,0,0,255)
img:set(8,3,127,127,127,255)
img:set(8,4,127,127,127,255)
img:set(8,5,127,127,127,255)
img:set(8,6,127,127,127,255)
img:set(8,7,127,127,127,255)
img:set(8,8,127,127,127,255)
img:set(8,9,255,0,0,255)
img:set(9,3,255,0,0,255)
img:set(9,4,255,0,0,255)
img:set(9,5,127,127,127,255)
img:set(9,6,255,255,255,255)
img:set(9,7,255,255,255,255)
img:set(9,8,255,255,255,255)
img:set(9,9,255,0,0,255)
img:set(10,3,255,0,0,255)
img:set(10,4,255,0,0,255)
img:set(10,5,127,127,127,255)
img:set(10,6,255,255,255,255)
img:set(10,7,255,255,255,255)
img:set(10,8,255,255,255,255)
img:set(10,9,255,0,0,255)
img:set(11,3,255,0,0,255)
img:set(11,4,255,0,0,255)
img:set(11,5,255,0,0,255)
img:set(11,6,255,255,255,255)
img:set(11,7,255,255,255,255)
img:set(11,8,255,255,255,255)
img:set(11,9,255,0,0,255)
img:set(12,2,127,127,127,255)
img:set(12,3,127,127,127,255)
img:set(12,4,127,127,127,255)
img:set(12,5,255,0,0,255)
img:set(12,6,255,255,255,255)
img:set(12,7,255,255,255,255)
img:set(12,8,255,255,255,255)
img:set(12,9,255,0,0,255)
img:set(13,2,127,127,127,255)
img:set(13,3,255,255,255,255)
img:set(13,4,127,127,127,255)
img:set(13,5,255,0,0,255)
img:set(13,6,255,255,255,255)
img:set(13,7,255,255,255,255)
img:set(13,8,255,0,0,255)
img:set(14,2,127,127,127,255)
img:set(14,3,127,127,127,255)
img:set(14,4,127,127,127,255)
img:set(14,5,255,0,0,255)
img:set(14,6,255,255,255,255)
img:set(14,7,255,0,0,255)
img:set(15,3,255,0,0,255)
img:set(15,4,255,255,0,255)
img:set(15,5,255,255,0,255)
img:set(15,6,255,0,0,255)
return img
end
end
ampel = class()
function ampel:init(
self.x = x
function a1()
local img = image(16, 16) --Ampel
img:set(6,6,0,0,255,255)
img:set(6,7,0,0,255,255)
img:set(6,8,0,0,255,255)
img:set(6,9,0,0,255,255)
img:set(6,10,0,0,255,255)
img:set(6,11,0,0,255,255)
img:set(6,12,0,0,255,255)
img:set(6,13,0,0,255,255)
img:set(6,14,0,0,255,255)
img:set(6,15,0,0,255,255)
img:set(7,5,0,0,255,255)
img:set(7,6,0,128,255,255)
img:set(7,7,0,128,255,255)
img:set(7,8,0,128,255,255)
img:set(7,9,0,128,255,255)
img:set(7,10,0,128,255,255)
img:set(7,11,0,128,255,255)
img:set(7,12,0,128,255,255)
img:set(7,13,0,128,255,255)
img:set(7,14,0,128,255,255)
img:set(7,15,0,128,255,255)
img:set(7,16,0,0,255,255)
img:set(8,1,0,0,255,255)
img:set(8,2,0,0,255,255)
img:set(8,3,0,0,255,255)
img:set(8,4,0,0,255,255)
img:set(8,5,0,0,255,255)
img:set(8,6,0,128,255,255)
img:set(8,7,0,255,255,255)
img:set(8,8,0,255,255,255)
img:set(8,9,0,128,255,255)
img:set(8,10,0,255,255,255)
img:set(8,11,0,255,255,255)
img:set(8,12,0,128,255,255)
img:set(8,13,0,255,255,255)
img:set(8,14,0,255,255,255)
img:set(8,15,0,128,255,255)
img:set(8,16,0,0,255,255)
img:set(9,1,0,0,255,255)
img:set(9,2,0,0,255,255)
img:set(9,3,0,0,255,255)
img:set(9,4,0,0,255,255)
img:set(9,5,0,0,255,255)
img:set(9,6,0,128,255,255)
img:set(9,7,0,255,255,255)
img:set(9,8,0,255,255,255)
img:set(9,9,0,128,255,255)
img:set(9,10,0,255,255,255)
img:set(9,11,0,255,255,255)
img:set(9,12,0,128,255,255)
img:set(9,13,0,255,255,255)
img:set(9,14,0,255,255,255)
img:set(9,15,0,128,255,255)
img:set(9,16,0,0,255,255)
img:set(10,5,0,0,255,255)
img:set(10,6,0,128,255,255)
img:set(10,7,0,128,255,255)
img:set(10,8,0,128,255,255)
img:set(10,9,0,128,255,255)
img:set(10,10,0,128,255,255)
img:set(10,11,0,128,255,255)
img:set(10,12,0,128,255,255)
img:set(10,13,0,128,255,255)
img:set(10,14,0,128,255,255)
img:set(10,15,0,128,255,255)
img:set(10,16,0,0,255,255)
img:set(11,6,0,0,255,255)
img:set(11,7,0,0,255,255)
img:set(11,8,0,0,255,255)
img:set(11,9,0,0,255,255)
img:set(11,10,0,0,255,255)
img:set(11,11,0,0,255,255)
img:set(11,12,0,0,255,255)
img:set(11,13,0,0,255,255)
img:set(11,14,0,0,255,255)
img:set(11,15,0,0,255,255)
return img
end
end
-- This function gets called once every frame
function draw()
-- This sets a green background color
background(74, 205, 22, 255)
-- This sets the line thickness
strokeWidth(5)
img = bild()
if gox > 400 then speed = 10 end
if (gox < 350 and speed == 0) then speed = 10 end
gox = gox + speed
pushStyle()
fill(0)
popStyle()
if gox > 1200 then gox = -31 end
s1= (os.date("%S"))
-- Do your drawing here
smooth()
fill(0)
rect(465,180,70,160)
rect(485,84,30,100)
if (os.date("%S")) > ("00") then fill(255,0,0,255) ellipse(500,300,40,40);
fill(135, 130, 130, 255) ellipse(500,260,40,40);fill(136, 131, 131, 255)
ellipse(500,220,40,40); speed=0 end
if (os.date("%S")) > ("10") then fill(251, 9, 9, 255) ellipse(500,300,40,40);
fill(237, 251, 9, 255) ellipse(500,260,40,40);fill(130, 124, 124, 255)
ellipse(500,220,40,40) end
if (os.date("%S")) > ("12") then fill(130, 120, 120, 255) ellipse(500,300,40,40);
fill(138, 133, 133, 255) ellipse(500,260,40,40);fill(96, 255, 0, 255)
ellipse(500,220,40,40) ; speed = 10 end
if (os.date("%S")) > ("25") then fill(130, 126, 126, 255) ellipse(500,300,40,40);
fill(237, 251, 9, 255) ellipse(500,260,40,40);fill(24, 239, 19, 255)
ellipse(500,220,40,40) end
if (os.date("%S")) > ("27") then fill(250, 13, 13, 255) ellipse(500,300,40,40);
fill(138, 129, 129, 255) ellipse(500,260,40,40);fill(136, 131, 136, 255)
ellipse(500,220,40,40) ; speed = 0 end
if (os.date("%S")) > ("40") then fill(250, 13, 13, 255) ellipse(500,300,40,40);
fill(246, 211, 8, 255) ellipse(500,260,40,40);fill(132, 127, 127, 255)
ellipse(500,220,40,40) end
if (os.date("%S")) > ("42") then fill(136, 129, 129, 255) ellipse(500,300,40,40);
fill(136, 131, 131, 255) ellipse(500,260,40,40);fill(96, 255, 0, 255)
ellipse(500,220,40,40) ; speed = 10 end
if (os.date("%S")) > ("55") then fill(138, 134, 134, 255) ellipse(500,300,40,40);
fill(237, 251, 9, 255) ellipse(500,260,40,40);fill(24, 239, 19, 255)
ellipse(500,220,40,40) end
if (os.date("%S")) < ("01") then fill(251, 9, 9, 255) ellipse(500,300,40,40);
fill(134, 126, 134, 255) ellipse(500,260,40,40);fill(175, 165, 165, 255)
ellipse(500,220,40,40) end
pushStyle()
--smooth()
fill(175, 165, 165, 255)
noStroke()
rect(0,0,1100,90)
fill(0, 200, 255, 255)
rect(0,500,1100,400)
sprite(img,gox,150,250,200)
i=i-1
sprite("Tyrian Remastered:Satellite",i,680,200,100)
if i<- 100 then i = 1100 end
sprite("Small World:Windmill",300,300,200,300)
sprite("Planet Cute:Tree Tall",100,400)
sprite("Planet Cute:Tree Short",650,300)
sprite("Planet Cute:Tree Ugly",800,400)
popStyle()
end
What a surprise, the traffic light has a green-yellow phase.
What now? Did you think about refactoring your code to make it readable (if you intend to become a programmer)?
On a side note what’s with the ship is this going to be a space game?