source code. just an animation i did a while ago =D

[mish]

%Michelle Tran
%October 24,2006
%Ms.Dyke
%The user will see a girl holding onto a hot air balloon while she throws rocks at the unsuspecting boy below.

setscreen ("graphics:640;640")
setscreen ("offscreenonly")
% process music
% play (">2f 2c2c 4f 4e 1f 2c 2c 4f 4e 2f 1f 4f 4d 4d 4c 1c 4c 4c 4f 4e 2f 2c >4a <4g 4g 4a 1a")
% play (">2f 2d 2c <2b- >2c 2d 2f 2d 2c <2b- >4c 4d 4c 4d 2f 2d 2f 2g 2d 2g 2f 2d 2c <1b-")
% play (">2b- 2f 2g 2f <4b- 4b- >4d 8d8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 4e- 4g 2f <4b- 4b- >4d 8d 8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 8e-8e- 4g 2f <4b-4b- >4d 8d8d 8c<8b- >4c <2b-")
% play (">8b-8b->8d8d4f 8d8d 4e- 4g 2f <4b- 4b- >4d 8d 8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 8e-8e- 4g 2f <4b-4b- >4d 8d8d 8c<8b- >4c <2b-")
% play (">2b- 2f 2g 2f <4b- 4b- >4d 8d8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 4e- 4g 2f <4b- 4b- >4d 8d 8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 8e-8e- 4g 2f <4b-4b- >4d 8d8d 8c<8b- >4c <2b-")
% play (">8b-8b->8d8d4f 8d8d 4e- 4g 2f <4b- 4b- >4d 8d 8d 8c<8b- >4c <2b- 8b-8b->8d8d4f 8d8d 8e-8e- 4g 2f <4b-4b- >4d 8d8d 8c<8b- >4c <2b-")
%
% end music

for x : 0 .. 640
drawline (0, x, 639, x, 77)
end for

%ground
for x : 0 .. 3
drawline (0, x, 639, x, 2)
end for

process person
%She walks to balloon
for x : 0 .. 415
drawfillbox (0 + x, 5, 89 + x, 103, 77)
%hands and feet
drawline (55 + x, 55, 85 + x, 55, black)
drawline (35 + x, 55, 10 + x, 55, black)
drawline (40 + x, 24, 40 + x, 10, black)
drawline (50 + x, 24, 50 + x, 10, black)
%dress
drawfillbox (32 + x, 25, 58 + x, 75, 42)
%head
drawfilloval (45 + x, 75, 20, 20, 92)
%face
drawline (40 + x, 85, 40 + x, 75, black)
drawline (48 + x, 85, 48 + x, 75, black)
drawarc (45 + x, 75, 15, 15, 180, 0, black)
%hair
drawfillbox (60 + x, 90, 85 + x, 100, 58)
drawfillbox (85 + x, 100, 75 + x, 75, 56)
drawfillbox (5 + x, 90, 30 + x, 100, 58)
drawfillbox (5 + x, 100, 15 + x, 75, 56)
%hairbubbles
drawfilloval (65 + x, 88, 5, 5, 105)
drawfilloval (62 + x, 95, 5, 5, 105)
drawfilloval (25 + x, 88, 5, 5, 105)
drawfilloval (28 + x, 95, 5, 5, 105)
%shoes
drawfilloval (35 + x, 10, 8, 5, 54)
drawfilloval (55 + x, 10, 8, 5, 54)
%rock
drawfilloval (10 + x, 55, 5, 5, gray)
drawfilloval (5 + x, 55, 2, 2, gray)
View.Update
delay (5)
end for

%She goes up with the balloon
for x : 0 .. 310
drawfillbox (415, 4 + x, 506, 103 + x, 77)
%hands and feet
drawline (475, 55 + x, 505, 55 + x, black)
drawline (455, 55 + x, 430, 55 + x, black)
drawline (460, 24 + x, 460, 10 + x, black)
drawline (470, 24 + x, 470, 10 + x, black)
%dress
drawfillbox (452, 25 + x, 478, 75 + x, 42)
%head
drawfilloval (465, 75 + x, 20, 20, 92)
%face
drawline (460, 85 + x, 460, 75 + x, black)
drawline (468, 85 + x, 468, 75 + x, black)
drawarc (465, 75 + x, 15, 15, 180, 0, black)
%hair
drawfillbox (480, 90 + x, 505, 100 + x, 58)
drawfillbox (505, 100 + x, 495, 75 + x, 56)
drawfillbox (425, 90 + x, 450, 100 + x, 58)
drawfillbox (425, 100 + x, 435, 75 + x, 56)
%hairbubbles
drawfilloval (485, 88 + x, 5, 5, 105)
drawfilloval (482, 95 + x, 5, 5, 105)
drawfilloval (445, 88 + x, 5, 5, 105)
drawfilloval (448, 95 + x, 5, 5, 105)
%shoes
drawfilloval (455, 10 + x, 8, 5, 54)
drawfilloval (475, 10 + x, 8, 5, 54)
%rock
drawfilloval (425, 55 + x, 5, 5, gray)
drawfilloval (420, 55 + x, 2, 2, gray)
View.Update
delay (92)
end for

%She goes across the sky

for x : 0 .. 400
drawfillbox (420 - x, 309, 508 - x, 435, 77)
%hands and feet
drawline (475 - x, 365, 505 - x, 365, black)
drawline (455 - x, 365, 430 - x, 365, black)
drawline (460 - x, 334, 460 - x, 320, black)
drawline (470 - x, 334, 470 - x, 320, black)
%dress
drawfillbox (452 - x, 335, 478 - x, 385, 42)
%head
drawfilloval (465 - x, 385, 20, 20, 92)
%face
drawline (460 - x, 395, 460 - x, 385, black)
drawline (468 - x, 395, 468 - x, 385, black)
drawarc (465 - x, 385, 15, 15, 180, 0, black)
%hair
drawfillbox (480 - x, 400, 505 - x, 410, 58)
drawfillbox (505 - x, 410, 495 - x, 385, 56)
drawfillbox (425 - x, 400, 450 - x, 410, 58)
drawfillbox (425 - x, 410, 435 - x, 385, 56)
%hairbubbles
drawfilloval (485 - x, 398, 5, 5, 105)
drawfilloval (482 - x, 405, 5, 5, 105)
drawfilloval (445 - x, 398, 5, 5, 105)
drawfilloval (448 - x, 405, 5, 5, 105)
%shoes
drawfilloval (455 - x, 320, 8, 5, 54)
drawfilloval (475 - x, 320, 8, 5, 54)
%rock
drawfilloval (425 - x, 365, 5, 5, gray)
drawfilloval (420 - x, 365, 2, 2, gray)
View.Update
delay (46)
end for


%rock falling
for x : 0 .. 260
drawfilloval (24, 366 - x, 6, 6, 77)
drawfilloval (25, 365 - x, 5, 5, gray)
drawfilloval (19, 366 - x, 3, 3, 77)
drawfilloval (20, 365 - x, 2, 2, gray)
View.Update
delay (20)
end for

%rock blown away
for x : 0 .. 650
drawfilloval (24 + x, 106, 6, 6, 77)
drawfilloval (25 + x, 105, 5, 5, gray)
drawfilloval (19 + x, 106, 3, 3, 77)
drawfilloval (20 + x, 105, 2, 2, gray)
delay (5)
end for

%Thank you note
locatexy (60, 75)
put "PHEW! That was SO close >.< Thanks for saving me Michelle!" ..
end person

process cloud

%clouds
for y : 0 .. 500
for x : 0 .. 1200
drawfillbox (148 + x, 520, 350 + x, 599, 77)
drawfilloval (200 + x, 550, 50, 20, 101)
drawfilloval (215 + x, 570, 40, 25, 101)
drawfilloval (225 + x, 540, 50, 20, 101)
drawfilloval (245 + x, 555, 60, 25, 101)
drawfilloval (260 + x, 545, 70, 20, 101)
View.Update
delay (20)
end for
end for
end cloud

process cloud2
for y : 0 .. 500
for x : 0 .. 650
drawfillbox (-10 + x, 520, 200 + x, 599, 77)
drawfilloval (60 + x, 550, 60, 20, 101)
drawfilloval (65 + x, 570, 50, 25, 101)
drawfilloval (75 + x, 540, 60, 20, 101)
drawfilloval (95 + x, 555, 70, 25, 101)
drawfilloval (110 + x, 545, 80, 20, 101)
View.Update
delay (40)
end for
end for
end cloud2

process balloon
%Hot Air Balloon
for x : 0 .. 350
drawfillbox (505, 10 + x, 630, 100 + x, 77)
drawline (516, 100 + x, 508, 15 + x, 138)
drawline (530, 35 + x, 520, 65 + x, black)
drawline (565, 35 + x, 565, 65 + x, black)
drawline (600, 35 + x, 610, 65 + x, black)
drawfillbox (530, 11 + x, 600, 35 + x, 114)
drawfilloval (565, 100 + x, 60, 55, 53)
drawarc (575, 100 + x, 5, 55, 270, 90, 68)
drawarc (545, 100 + x, 5, 52, 90, 270, 68)
drawarc (600, 100 + x, 5, 45, 280, 100, 68)
drawarc (520, 100 + x, 5, 36, 90, 270, 68)
drawarc (615, 100 + x, 5, 30, 270, 90, 68)
View.Update
delay (95)
end for
%balloon flies across
for x : 0 .. 400
drawfillbox (505 - x, 360, 630 - x, 510, 77)
drawline (516 - x, 450, 508 - x, 365, 138)
drawline (530 - x, 385, 520 - x, 415, black)
drawline (565 - x, 385, 565 - x, 415, black)
drawline (600 - x, 385, 610 - x, 415, black)
drawfillbox (530 - x, 361, 600 - x, 385, 114)
drawfilloval (565 - x, 450, 60, 55, 53)
drawarc (575 - x, 450, 5, 55, 270, 90, 68)
drawarc (545 - x, 450, 5, 52, 90, 270, 68)
drawarc (600 - x, 450, 5, 45, 280, 100, 68)
drawarc (520 - x, 450, 5, 36, 90, 270, 68)
drawarc (615 - x, 450, 5, 30, 270, 90, 68)
View.Update
delay (49)
end for
end balloon

process boy


for x : 0 .. 380
drawfillbox (-86 + x, 5, 50 + x, 130, 77)
%hands and feet
drawline (-45 + x, 55, -75 + x, 55, black)
drawline (-35 + x, 55, -10 + x, 55, black)
drawline (-40 + x, 24, -40 + x, 10, black)
drawline (-50 + x, 24, -50 + x, 10, black)
%clothes
drawfillbox (-32 + x, 40, -58 + x, 75, 71)
drawfillbox (-32 + x, 40, -42 + x, 25, 0)
drawfillbox (-47 + x, 40, -58 + x, 25, 0)
drawfillbox (-32 + x, 40, -58 + x, 30, 0)
%hair
drawline (-64 + x, 75, -75 + x, 85, 183)
drawline (-54 + x, 85, -62 + x, 100, 183)
drawline (-44 + x, 75, -44 + x, 105, 183)
drawline (-34 + x, 75, -28 + x, 100, 183)
drawline (-28 + x, 75, -18 + x, 90, 183)
%head
drawfilloval (-45 + x, 75, 20, 20, 92)
%face
drawline (-40 + x, 85, -40 + x, 75, black)
drawline (-48 + x, 85, -48 + x, 75, black)
drawarc (-45 + x, 75, 15, 15, 180, 0, black)
%shoes
drawfilloval (-35 + x, 10, 8, 5, 38)
drawfilloval (-55 + x, 10, 8, 5, 38)
%balloon
drawline (5 + x, 50, 5 + x, 100, black)
drawfilloval (5 + x, 105, 20, 20, 12)
View.Update
delay (30)
end for

%balloon goes up
for x : 0 .. 600
drawfillbox (364, 44 + x, 406, 120 + x, 77)
drawline (385, 50 + x, 385, 100 + x, black)
drawfilloval (385, 105 + x, 20, 20, red)
View.Update
delay (10)
end for

% sad face
for x : 0 .. 8
drawfillbox (320, 60 + x, 350, 68 + x, 92)
drawarc (335, 60, 15, 10, 0, 180, black)
delay (10)
end for
% flower flying
for x : 0 .. 700
drawfillbox (39 + x, 34 + x, 59 + x, 4 + x, 77)
drawline (40 + x, 35 + x, 60 + x, 5 + x, 118)
drawfilloval (39 + x, 39 + x, 7, 15, 77)
drawfilloval (49 + x, 29 + x, 15, 7, 77)
drawfilloval (29 + x, 29 + x, 15, 7, 77)
drawfilloval (39 + x, 19 + x, 7, 15, 77)
drawfilloval (39 + x, 29 + x, 8, 8, 77)
drawfilloval (40 + x, 40 + x, 7, 15, 80)
drawfilloval (50 + x, 30 + x, 15, 7, 81)
drawfilloval (30 + x, 30 + x, 15, 7, 82)
drawfilloval (40 + x, 20 + x, 7, 15, 83)
drawfilloval (40 + x, 30 + x, 8, 8, 95)
View.Update
delay (10)
end for

%boy walks back
for x : 0 .. 300
drawfillbox (294 - x, 5, 430 - x, 130, 77)
%hands and feet
drawline (335 - x, 55, 305 - x, 55, black)
drawline (345 - x, 55, 370 - x, 55, black)
drawline (340 - x, 24, 340 - x, 10, black)
drawline (330 - x, 24, 330 - x, 10, black)
%clothes
drawfillbox (348 - x, 40, 322 - x, 75, 71)
drawfillbox (348 - x, 40, 338 - x, 25, 0)
drawfillbox (333 - x, 40, 322 - x, 25, 0)
drawfillbox (348 - x, 40, 322 - x, 30, 0)
%hair
drawline (316 - x, 75, 305 - x, 85, 183)
drawline (326 - x, 85, 318 - x, 100, 183)
drawline (336 - x, 75, 336 - x, 105, 183)
drawline (346 - x, 75, 352 - x, 100, 183)
drawline (352 - x, 75, 362 - x, 90, 183)
%head
drawfilloval (335 - x, 75, 20, 20, 92)
%face
drawline (340 - x, 85, 340 - x, 75, black)
drawline (332 - x, 85, 332 - x, 75, black)
drawfillbox (320 - x, 68, 350 - x, 74, 92)
drawarc (335 - x, 60, 15, 10, 0, 180, black)
%shoes
drawfilloval (345 - x, 10, 8, 5, 38)
drawfilloval (325 - x, 10, 8, 5, 38)
View.Update
delay (50)
end for


end boy
fork cloud
fork balloon
fork cloud2
fork person
fork music
fork boy








don't bite kids =P

[CodeMonkey2000]

You kids have too much time on your hands