-----------------------------------

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