----------------------------------- sport Sat Jan 17, 2004 2:07 pm Happy Smiling Face(fully graphical) ----------------------------------- 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 Sat Jan 17, 2004 2:59 pm ----------------------------------- Good job ( pssss , its been done :roll: ) but its well done , good use of variable aswell ----------------------------------- DanShadow Sat Jan 17, 2004 10:14 pm ----------------------------------- 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 :twisted:Vengeance:twisted: be brought down upon you...but if you did truthfully make it, good job. :) Shorthair, where did you get 1300 bits from??? ----------------------------------- sport Sat Jan 17, 2004 11:20 pm Reply ----------------------------------- 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 Sun Jan 18, 2004 10:32 am ----------------------------------- 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 Thu Apr 29, 2004 3:43 pm ----------------------------------- nice faces, i like it!