Happy Smiling Face(fully graphical)

[sport]

code:

setscreen ("graphics") setscreen ("graphics:788;502") var x, y, r : int const colo := yellow const colo_eye := black const colo_mouth := brightred loop     randint (r, 1, 100)     randint (x, r, maxx - r)     randint (y, r, maxy - r)     const eye := r div 5     drawfilloval (x, y, r, r, colo)     drawoval (x, y, r, r, black)     drawfilloval (x + r div 3, y + r div 3, eye, eye, colo_eye)     drawfilloval (x - r div 3, y + r div 3, eye, eye, colo_eye)     drawarc (x, y - r div 4, r div 2, r div 3, 180, 360, colo_mouth)     for decreasing i : eye .. 1         drawfilloval (x + r div 3, y + r div 3, eye, i, colo_eye)         delay (50)         drawfilloval (x + r div 3, y + r div 3, eye, i, colo)     end for     for i : 1 .. eye         drawfilloval (x + r div 3, y + r div 3, eye, i, colo_eye)         delay (50)         drawfilloval (x + r div 3, y + r div 3, eye, i, colo)     end for     drawfilloval (x + r div 3, y + r div 3, eye, eye, colo_eye) end loop

[shorthair]

Good job ( pssss , its been done ) but its well done , good use of variable aswell

[DanShadow]

hmmm...I think that program was stolen sport...by you! I have seen that exact program done by someone else...except slightly different, like changed variable names. If you did indeed steal that and post it, let Vengeance be brought down upon you...but if you did truthfully make it, good job.

[[PS]] Shorthair, where did you get 1300 bits from???

[sport]

The code was not stolen, but I did help a couple of guys finishes their programs in school so if they posted their programs they might be somewhat alike, but I did right this program from start to the end.

[shorthair]

Ive been saving my bits dan, i got 1000 from mazer a while back for this exact program , but i spent that on email forwarding ,

[Prettyjnk]

nice faces, i like it!