----------------------------------- mish Wed Jan 17, 2007 10:25 pm source code. just an animation i did a while ago =D ----------------------------------- %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 2f 2d 2c 2c 2d 2f 2d 2c 4c 4d 4c 4d 2f 2d 2f 2g 2d 2g 2f 2d 2c 2b- 2f 2g 2f 4d 8d8d 8c4c 8d8d4f 8d8d 4e- 4g 2f 4d 8d 8d 8c4c 8d8d4f 8d8d 8e-8e- 4g 2f 4d 8d8d 8c4c 8b-8b->8d8d4f 8d8d 4e- 4g 2f 4d 8d 8d 8c4c 8d8d4f 8d8d 8e-8e- 4g 2f 4d 8d8d 8c4c 2b- 2f 2g 2f 4d 8d8d 8c4c 8d8d4f 8d8d 4e- 4g 2f 4d 8d 8d 8c4c 8d8d4f 8d8d 8e-8e- 4g 2f 4d 8d8d 8c4c 8b-8b->8d8d4f 8d8d 4e- 4g 2f 4d 8d 8d 8c4c 8d8d4f 8d8d 8e-8e- 4g 2f 4d 8d8d 8c4c .< 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 Wed Jan 17, 2007 10:33 pm Re: source code. just an animation i did a while ago =D ----------------------------------- You kids have too much time on your hands :P