var x, wt, ht, tt, ls, hs, persent, progress : int := 0
setscreen ( "graphics:650;420" )
locate (9, 37)
put "Loading..."
loop
for b : 1 .. 1
drawfillbox (80 + progress, 185, 85 + progress, 225, 48)
delay (30)
progress += 5
end for
for a : 1 .. 1
persent += 1
delay (30)
locate (10, 40)
put " "
locate (10, 40)
put persent, " %"
end for
exit when persent = 100
drawbox (75, 180, 585, 230, black)
end loop
cls
colourback (9)
cls
process aa
loop
drawfillstar (495, 220, 555, 260, yellow)
drawline (525, 260, 525, 240, black)
drawline (525, 240, 555, 245, black)
drawline (525, 240, 495, 245, black)
drawline (525, 240, 505, 220, black)
drawline (525, 240, 545, 220, black)
delay (1000)
drawfillstar (495, 220, 555, 260, 59)
drawline (525, 260, 525, 240, black)
drawline (525, 240, 555, 245, black)
drawline (525, 240, 495, 245, black)
drawline (525, 240, 505, 220, black)
drawline (525, 240, 545, 220, black)
delay (1000)
drawfilloval (425, 65, 5, 5, red)
drawfilloval (450, 115, 5, 5, red)
drawfilloval (475, 165, 5, 5, red)
drawfilloval (575, 165, 5, 5, red)
drawfilloval (600, 115, 5, 5, red)
drawfilloval (625, 65, 5, 5, red)
delay (1000)
drawfilloval (425, 65, 5, 5, 40)
drawfilloval (450, 115, 5, 5, 40)
drawfilloval (475, 165, 5, 5, 40)
drawfilloval (575, 165, 5, 5, 40)
drawfilloval (600, 115, 5, 5, 40)
drawfilloval (625, 65, 5, 5, 40)
delay (1000)
end loop
end aa
process bb
loop
%Window1
drawfillbox (75, 125, 150, 175, yellow)
drawline (75, 150, 150, 150, black)
drawline (113, 125, 113, 175, black)
delay (4500)
drawfillbox (75, 125, 150, 175, 20)
drawline (75, 150, 150, 150, black)
drawline (113, 125, 113, 175, black)
delay (4500)
%Window2
drawfillbox (200, 125, 275, 175, yellow)
drawline (200, 150, 275, 150, black)
drawline (238, 125, 238, 175, black)
delay (5000)
drawfillbox (200, 125, 275, 175, 20)
drawline (200, 150, 275, 150, black)
drawline (238, 125, 238, 175, black)
delay (5000)
end loop
end bb
%Stars
process cc
loop
drawfillstar (300, 380, 305, 385, yellow)
drawfillstar (100, 275, 105, 280, yellow)
drawfillstar (50, 300, 55, 305, yellow)
drawfillstar (30, 220, 35, 225, yellow)
drawfillstar (410, 350, 415, 355, yellow)
drawfillstar (460, 280, 465, 285, yellow)
drawfillstar (545, 270, 550, 265, yellow)
delay (500)
drawfillstar (300, 380, 305, 385, 9)
drawfillstar (100, 275, 105, 280, 9)
drawfillstar (50, 300, 55, 305, 9)
drawfillstar (30, 220, 35, 225, 9)
drawfillstar (410, 350, 415, 355, 9)
drawfillstar (460, 280, 465, 285, 9)
drawfillstar (545, 270, 550, 265, 9)
delay (100)
end loop
end cc
%Door
process dd
for a : 0 .. 100 by 20
drawfillbox (150, 51, 200, 110, black)
drawfillbox (150, 51, 200 - a, 110, 112)
delay (500)
end for
for b : 0 .. 100 by 10
if b <= 50 then
drawfillbox (100, 51, 100 + b, 110, 40)
drawfillbox (150, 51, 100 + b, 110, 112)
drawfillbox (150, 51, 200, 110, black)
elsif b > 50 then
drawfillbox (150, 51, 200, 110, black)
drawfillbox (150, 51, 100 + b, 110, 112)
end if
delay (500)
end for
end dd
%Floor
drawfillbox (0, 0, maxx, 50, brown)
%House
drawfillbox (50, 51, 300, 200, 40)
%Roof
drawline (300, 200, 175, 250, black)
drawline (175, 250, 50, 200, black)
drawline (50, 200, 300, 200, black)
drawfill (175, 210, 114, black)
%Window1
drawfillbox (75, 125, 150, 175, 20)
drawline (75, 150, 150, 150, black)
drawline (113, 125, 113, 175, black)
%Window2
drawfillbox (200, 125, 275, 175, 20)
drawline (200, 150, 275, 150, black)
drawline (238, 125, 238, 175, black)
%Door
drawfillbox (150, 51, 200, 110, 112)
%Chimney
drawfillbox (220, 210, 260, 270, 114)
%Tree Trunk
drawfillbox (500, 50, 550, 70, 112)
%Moon
drawarc (450, 350, 35, 45, 280, 90, white)
drawarc (450, 350, 55, 45, 260, 90, white)
drawfill (490, 350, white, white)
for a : 1 .. 3
drawline (425 + wt, 71 + ht, 625 - wt, 71 + ht, green)
drawline (425 + wt, 71 + ht, 525, 130 + ht, green)
drawline (625 - wt, 71 + ht, 525, 130 + ht, green)
drawfill (525, 80 + tt, green, green)
wt += 25
ht += 50
tt += 70
end for
for b : 1 .. 3
drawfilloval (425 + ls, 65 + hs, 5, 5, red)
drawfilloval (575 + ls, 165 - hs, 5, 5, red)
ls += 25
hs += 50
end for
for j : 1 .. 999999
fork aa
fork bb
fork cc
fork dd
%Smoke
for a : 0 .. 6
drawfilloval (240 + x, 280 + x, 18 + x, 6 + x div 5, 25 + a)
delay (1000)
x += 10
end for
%Text
if j mod 2 = 1 then
Draw.Text ("Merry Christmas", 240, 333, Font.New ("serif:12:bold"), 40)
else
Draw.Text ("Happy New Year", 240, 333, Font.New ("sans serif:12:bold"), 42)
end if
x := 1
delay (1500)
end for
|