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

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!