`,]']>S}Wup8d%qy)6o;]AsVl3S}Wup8d%qy)6o;]AsVl3?̈*+̈"̈*̈"*"̈""̻̈*"̼̼̼̼̼̼̼̼̼̼̼̼̈̈̈̈̈̈̈̈"")")̼̼̈""""""̻̼)""""")̻Ȉ)"""))̼̈"")"̼̌")̼̌)"̻̈)"̼̼̘̘̘̈̌̌̌33̈8̈83̈̈8̈83̌̈83̌3̈̈83̌83̌̈33̈83̈̈3̈33̌̈83̈3̈3̌83̌33̌3̌83̈83̌83̈33̌3̌13̌83̌(33̈3̌"23̈83"33̈333́83<33<83,"231#"(3<3""33#"ለ<3<3"3"3#"<#"<3"33<<333<<3<3333<3<3333<3<3333<3<333<<3̃33̌̎쎈DDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD!!DDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDD!!DDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD!!LDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDD!!LDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDD!!LDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD!#LDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDD!!LDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD!!DDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD!!DDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDLDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffwwgfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffvwwwwwwwwffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffwwgffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffvwwffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffwwwwwwwwgfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffvwwfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffwwgfffffffffff-- title: farm - 1 -- author: potato imaginator -- desc: Enjoy ! -- script: lua cos=math.cos sin=math.sin pi=math.pi v1=2 -- Perspective Variable v2=0 -- Cloud Variable v3=130 -- Grass Pattern t=0 -- Cloud Timer t2=0 -- Bird Wings Timers t3=0 -- Wind Mill Speed b={} -- Birds for i=1,10 do b[i]= {x=math.random(0,120), y=math.random(-6,6), ang=2*pi*math.random(0,99)/100, c=math.random(1,2)} end function h1(val) -- Helper Function-1 return 2*(val-68)/50 end function upd_bird() flag=true for i=1,#b do b[i].x=b[i].x+3/4 b[i].y=b[i].y-24/240 if b[i].x<250 then flag=false end end if flag then for i=1,#b do b[i]= {x=math.random(0,120), y=math.random(-6,6), ang=2*pi*math.random(0,99)/100, c=math.random(1,2)} end end end function draw_bird() for i=1,#b do z1=8*sin(b[i].x/12) z2=8*sin(b[i].ang+t2) circ(b[i].x,b[i].y+z1+34,1,b[i].c) tri (b[i].x,b[i].y+z1+34-1, b[i].x,b[i].y+z1+34+1, b[i].x-6,b[i].y+z1+34+z2,b[i].c) tri (b[i].x,b[i].y+z1+34-1, b[i].x,b[i].y+z1+34+1, b[i].x+6,b[i].y+z1+34+z2,b[i].c) end end function SCN(l) if l<68 then poke -- Color 8 : Dark Blue (0x3fc0+3*8, 0x29+(0x1a-0x29)*(l/68)^2) poke (0x3fc1+3*8, 0x36+(0x1c-0x36)*(l/68)^2) poke -- Color 8: Dark Blue (0x3fc2+3*8, 0x6f+(0x2c-0x6f)*(l/68)^2) poke -- Color 9 : Space Blue (0x3fc0+3*9, 0x3b+(0x29-0x3b)*(l/68)) poke (0x3fc1+3*9, 0x5d+(0x36-0x5d)*(l/68)) poke -- Color 9 : Space Blue (0x3fc2+3*9, 0xc9+(0x6f-0xc9)*(l/68)) poke -- Color 10: Sky Blue (0x3fc0+3*10, 0x41+(0x3b-0x41)*(l/68)) poke (0x3fc1+3*10, 0xa6+(0x5d-0xa6)*(l/68)) poke (0x3fc2+3*10, 0xf6+(0xc9-0xf6)*(l/68)) elseif l>=68 and l<=118 then poke -- Color 4 (0x3fc0+3*4, 0xff+(0xef-0xff)*(l-68)^2/50^2) poke (0x3fc1+3*4, 0xcd+(0x7d-0xcd)*(l-68)^2/50^2) poke -- Color 4 (0x3fc2+3*4, 0x75+(0x57-0x75)*(l-68)^2/50^2) end end function TIC() cls(9) -- Blue Sky upd_bird() elli(240,0,1.5*46,46,10)--LightBlueSky for i=0,2*pi,2*pi/16 do circ (240+1.5*44*cos(i+2*t), 46*sin(i+2*t), 12-8*sin(i+2*t)^2,9) circ (240+1.5*44*cos(i+2*t+pi/16), 46*sin(i+2*t), 12-8*sin(i+2*t+pi/16)^2,9) end draw_bird() for i=0,58 do -- Dark Blue Sky z1=2*58*(1-(i/58)^2)^0.5 line(0,i,239-z1,i,8) end rect(0,58,240,68,8) -- Dark Blue Sky for i=0,2*pi,2*pi/16 do circ (240+2*58*cos(i+t), 58*sin(i+t),22-12*sin(i+t)^2,8) circ (240+2*58*cos(i+t+pi/16), 58*sin(i+t), 22-12*sin(i+t+pi/16)^2,8) end for i=-1,2,0.5 do circ -- Cloud (45-2*4^(i+v2),50-4*(i+v2)^2, 2^(i+2+v2),9) end for i=-1,2,0.5 do circ -- Cloud (45-2*4^(i+v2),50+2*(i+1)-4*(i+v2)^2, 2^(i+2+v2),8) end circ(240,0,34,11) -- Moon elli(240,0,30,31,12) circb(240,0,34,10) circ(240,18,3,11) circb(224,10,5,11) circ(230-4,22,1,11) clip(240-34,0,34,34) draw_bird() clip() rect(0,68,240,68,4) -- Bg Lights line(0,68,240,68,12) rect(0,102+17,240,34,5) -- Grass rect(0,104+17,240,34,6) for i=1,7 do line (120+v3+i*v3*1/24-2-6*(i%3//2), 121+2*i, 120+v3+i*v3*1/24+2+6*(i%3//2), 121+2*i,7) end for i=-1,1,0.5 do line (120-12+h1(68)*i,68, 120-12*v1+h1(118)*i,101+17,12)--V line (120+12+h1(68)*i,68, 120+12*v1+h1(118)*i,101+17,12)--V line (120+48+h1(68)*i,68, 120+48*v1+h1(118)*i,101+17,12)--V line (160+h1(68+16)*i,68+16, 160+16+h1(108)*i,68+40,12)--V line (205+h1(68)*i,68, 230+h1(84)*i,84,12)--V line (74+h1(84)*i,84, 74-18+h1(118)*i,118,12)--V line (55+h1(68)*i,68, 30+h1(100)*i,100,12)--V line (12+h1(68+16)*i,68+16, h1(68+32)*i,68+32,12)--V end for i=-1,1,1/4 do line (120-20,68+32+h1(68+32)*i, 120+20,68+32+h1(68+32)*i,12)--H line (136,68+16+h1(68+16)*i, 230,68+16+h1(68+16)*i,12)--H line (160+16,68+40+h1(68+40)*i, 206,68+40+h1(68+40)*i,12)--H line (104,84+h1(84)*i, 74,84+h1(84)*i,12)--H line (30,100+h1(100)*i, 66,100+h1(100)*i,12)--H line (0,68+16+h1(68+16)*i, 42,68+16+h1(68+16)*i,12)--H end for i=-7,7 do -- Fence if i%2==1 then rect(120+16*i-2,119-16,4,16,14) end end rect(0,119-12-2,240,4,15) rect(0,119-4-2,240,4,15) -- Fence tri(74,82,103,82,74+4,50,13)-- Wind tri(103,82,74+4,50,103-4,50,13)--Mill tri(107,69,103,82,103-4,50,14) tri(103-4+4,50-4,107,69,103-4,50,14) tri(74+4,50,103-4,50,88,37,2) tri(103-4,50,103-4+4,50-4,88,37,1) tri(88+4,37-1,88,37,103,50-4,1) rect(78,57,8,4,14) rect(78+4,57+5,8,4,14) rect(87-3,74,7,9,1) line(87-2,74,87-2,82,2) line(87+2,74,87+2,82,2) pix(87+1,79,3)-- Door Knob for i=-25,25 do circ(87+i*cos(t3),45+i*sin(t3),2,3) circ -- Wind Mill wings (87+i*cos(t3+pi/2), 45+i*sin(t3+pi/2),2,3) end tri -- Wind Mill wings (87,45,87+27*cos(t3),45+27*sin(t3), 87+1.1*27*cos(t3+0.4), 45+1.1*27*sin(t3+0.4), 12) tri (87,45,87-27*cos(t3),45-27*sin(t3), 87-1.1*27*cos(t3+0.4), 45-1.1*27*sin(t3+0.4), 12) tri (87,45, 87+27*cos(t3+pi/2), 45+27*sin(t3+pi/2), 87+1.1*27*cos(t3+0.4+pi/2), 45+1.1*27*sin(t3+0.4+pi/2), 12) tri (87,45, 87-27*cos(t3+pi/2), 45-27*sin(t3+pi/2), 87-1.1*27*cos(t3+0.4+pi/2), 45-1.1*27*sin(t3+0.4+pi/2), 12) circ(87,45,1,1) t=t+1/180 t2=t2+1/10 t3=t3+1/30 v2=v2+1/60 -- Cloud Variable if v2>=1 then v2=0 end v3=v3-1.5 if v3<=-130 then v3=130 end end