----------------------------------- we64 Mon Jan 19, 2004 8:48 pm Come on in.. my first animation... ----------------------------------- 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 (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 ----------------------------------- shorthair Mon Jan 19, 2004 9:43 pm ----------------------------------- You hav recieved a rating of " Gay " for having that stupid loading bar at the beginning , there is no need for that and your just wasting my time , you eill learn that you wanna cut down on code , processing time and user waiting time , just wait till you have to wait for things to finish , the actual program is good and its a good start to learning turings graphics , i just cant stand fake loading bars , i dont mean to flame but please just lay off the fake stuff , i know your probably new and had no clue that we dont like them , :D :D :D + 10 bits for the house ----------------------------------- we64 Mon Jan 19, 2004 10:36 pm ----------------------------------- thank you for your opinion. I will remember it the next time. ----------------------------------- the_icycle Tue Jan 20, 2004 11:04 am Nice ----------------------------------- Hey man! im new on this site, but thats pretty wck. Could've done a bit better but for first one is ok :wink: ----------------------------------- valor Wed Mar 24, 2004 10:39 pm ----------------------------------- nice ----------------------------------- jonos Thu Mar 25, 2004 5:15 pm ----------------------------------- please don't bring up old topics, you can reply to newer ones, there is not point, but nice job we, very sexy ----------------------------------- Hackster Thu Mar 25, 2004 6:38 pm ----------------------------------- hehe ... you called a prog sexy :lol: thats funny, ya good job we64, that long of a program is better in a downloadable file, not all the code.. i know this is an old topic too ----------------------------------- we64 Tue Mar 30, 2004 9:48 pm ----------------------------------- sexy~~~ interesting opinion for a program :D :D