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

LiquidDragon

Wed Feb 18, 2004 3:42 pm


Cool Animation

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

This is my awsome animation i made for class!

setscreen ("graphics:640;480")
View.Set ("offscreenonly")
var font : int

%road
drawline (0, 200, 641, 200, 7)
drawline (0, 100, 641, 100, 7)
drawfill (1, 120, 0, 0)
drawfill (1, 1, 10, 7)

%house
drawline (20, 199, 20, 350, 7)
drawline (200, 200, 200, 350, 7)
drawline (0, 330, 110, 440, 7)
drawline (220, 330, 110, 440, 7)
drawfill (100, 300, 115, 7)
%door and windows
drawfillbox (90, 200, 130, 260, 7)
drawfillbox (140, 220, 190, 260, 0) %bottom right window
drawbox (140, 220, 190, 260, 7)
drawline (165, 260, 165, 220, 7)
drawline (140, 240, 190, 240, 7)
drawfillbox (30, 220, 80, 260, 0) %bottom left window
drawbox (30, 220, 80, 260, 7)
drawline (55, 260, 55, 220, 7)
drawline (30, 240, 80, 240, 7)
drawfillbox (30, 290, 90, 340, 0) %top left window
drawbox (30, 290, 90, 340, 7)
drawfillbox (130, 290, 190, 340, 0) %top right window
drawbox (130, 290, 190, 340, 7)

%tree
drawfillbox (520, 201, 580, 370, 187)
drawfilloval (550, 400, 70, 50, 143)

%man
drawoval (250, 260, 10, 10, 7)
drawline (250, 220, 250, 250, 7)
drawline (250, 220, 260, 200, 7)
drawline (250, 220, 240, 200, 7)
drawline (250, 240, 235, 230, 7)
drawline (250, 240, 265, 230, 7)
drawdot (247, 265, 7)
drawdot (253, 265, 7)
drawarc (250, 258, 5, 5, 200, 340, 7)
delay (1000)
drawoval (250, 260, 10, 10, 0)
drawline (250, 220, 250, 250, 0)
drawline (250, 220, 260, 200, 0)
drawline (250, 220, 240, 200, 0)
drawline (250, 240, 235, 230, 0)
drawline (250, 240, 265, 230, 0)
drawdot (247, 265, 0)
drawdot (253, 265, 0)
drawarc (250, 258, 5, 5, 200, 340, 0)
View.Update
%walking
for c : 1 .. 90 by 2

    drawoval (250, 260 - c, 10, 10, 7)
    drawfill (250, 260 - c, 0, 7)
    drawline (250, 220 - c, 250, 250 - c, 7)
    drawline (250, 220 - c, 260, 200 - c, 7)
    drawline (250, 220 - c, 240, 200 - c, 7)
    drawline (250, 240 - c, 235, 230 - c, 7)
    drawline (250, 240 - c, 265, 230 - c, 7)
    drawdot (247, 265 - c, 7)
    drawdot (253, 265 - c, 7)
    drawarc (250, 258 - c, 5, 5, 200, 340, 7)
    View.Update
    delay (100)
    drawoval (250, 260 - c, 10, 10, 0)
    drawline (250, 220 - c, 250, 250 - c, 0)
    drawline (250, 220 - c, 260, 200 - c, 0)
    drawline (250, 220 - c, 240, 200 - c, 0)
    drawline (250, 240 - c, 235, 230 - c, 0)
    drawline (250, 240 - c, 265, 230 - c, 0)
    drawdot (247, 265 - c, 0)
    drawdot (253, 265 - c, 0)
    drawarc (250, 258 - c, 5, 5, 200, 340, 0)
    drawline (0, 200, 641, 200, 7)
end for
drawoval (250, 170, 10, 10, 7)
drawline (250, 130, 250, 160, 7)
drawline (250, 130, 260, 110, 7)
drawline (250, 130, 240, 110, 7)
drawline (250, 150, 235, 140, 7)
drawline (250, 150, 265, 140, 7)
drawfilloval (247, 175, 2, 2, 7)
drawfilloval (253, 175, 2, 2, 7)
drawoval (250, 165, 3, 3, 7)
View.Update
%car
for c : 1 .. 640 by 20
    drawfillbox (1 + c, 130, 130 + c, 160, 9)
    drawfillbox (40 + c, 150, 80 + c, 180, 9)
    drawline (20 + c, 160, 40 + c, 180, 7)
    drawline (110 + c, 160, 80 + c, 180, 7)
    drawfilloval (20 + c, 120, 10, 10, 7)
    drawfilloval (110 + c, 120, 10, 10, 7)
    drawoval (87+c,166,5,5,7)
    drawdot (89+c,168,7)
    drawline (88+c,165,90+c,163,7)
    font := Font.New ("Times New Roman:25")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    View.Update
    delay (60)
    font := Font.New ("Times New Roman:20")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    drawfillbox (1 + c, 130, 130 + c, 160, 0)
    drawfillbox (40 + c, 150, 80 + c, 180, 0)
    drawline (20 + c, 160, 40 + c, 180, 0)
    drawline (110 + c, 160, 80 + c, 180, 0)
    drawfilloval (20 + c, 120, 10, 10, 0)
    drawfilloval (110 + c, 120, 10, 10, 0)
end for


%clears man
drawoval (250, 170, 10, 10, 0)
drawline (250, 130, 250, 160, 0)
drawline (250, 130, 260, 110, 0)
drawline (250, 130, 240, 110, 0)
drawline (250, 150, 235, 140, 0)
drawline (250, 150, 265, 140, 0)
drawfilloval (247, 175, 2, 2, 0)
drawfilloval (253, 175, 2, 2, 0)
drawoval (250, 165, 3, 3, 0)
View.Update
%dead man
drawoval (250, 140, 10, 10, 7)
drawline (260, 140, 300, 140, 7)
drawline (300, 140, 320, 150, 7)
drawline (300, 140, 320, 130, 7)
drawline (270, 140, 290, 150, 7)
drawline (270, 140, 260, 130, 7)
drawline (245, 135, 248, 138, 7)
drawline (245, 138, 248, 135, 7)
drawline (245, 142, 248, 145, 7)
drawline (245, 145, 248, 142, 7)
drawarc (260, 140, 5, 5, 140, 230, 7)
View.Update
delay (1000)


for decreasing d : 500 .. 1 by 4
    drawoval (270, 140, d, d, 12)
    View.Update
    delay (10)
end for
delay (100)
for c : 1 .. 550 by 2
    drawfilloval (270, 140, c, c, 12)
    View.Update
    delay (10)
end for

delay (1000)

%THE END
font := Font.New ("Times New Roman:40")
Font.Draw ("The End", 230, 225, font, black)

%inclosing circle
for decreasing c : 500 .. 100
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (5)
end for

delay (500)
for decreasing c : 100 .. 0
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (2)
end for



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

Krabjuice

Wed Feb 18, 2004 3:55 pm



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

Yea, and this won me the nobel prize


This code has been chopped, sliced and efficiently burned to applease Big Brother.  

Big Brother is watching.



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

Cervantes

Wed Feb 18, 2004 4:53 pm



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

not only is that program really bad, its totally inappropriate.
Don't do stuff like that.


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

LiquidDragon

Wed Feb 18, 2004 4:56 pm



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

WTF, i didnt say it was good. I said this is an animation i made for class and its like my second animation. So how about u be more considerate and F$%^ OFF URSELF


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

apomb

Wed Feb 18, 2004 5:01 pm



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

OMG man uum you said it was  You said: This is my awsome program i made for school
This is a computer SCIENCE help page ... what does that help with... or have anything to do with  real computer science?


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

jonos

Wed Feb 18, 2004 5:02 pm



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

settle down, i liked it, he was refering to the second one by krabjuice that is not wanted/needed on these forums cause they are meant for all ages.

people may swear, but very few people have ever used the gasp f word ungasp.


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

netninja

Wed Feb 18, 2004 5:12 pm



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

Really good, i espically like the part when the graphics were good, and when the guys face is seethrough and you can see the sidewalk through him. +500000 bits , jk
 :lol:

+50 bits to jonos for protecting the guy being flamed, and -50 for me,  for not protecting him lol

note: i love the gasp ungasp. But it should be /ungasp or something lol. maybe 


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

jonos

Wed Feb 18, 2004 5:49 pm



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

thankyou

in tag format, or

gasp("thankyou");

in function format, or

gasp