var shape : string
var font, x, y, x2, y2, button, clr : int
font := Font.New ("Times New Roman:16")
Font.Draw ("Surgeon's General Warning:", 0, 350, font, red)
Font.Draw ("Using this program may cause headaches and/or seizures.", 0, 325, font, red)
Font.Draw ("If any symptoms appear, discontinue use immideately.", 0, 300, font, red)
delay(1750)
cls
put "What shape would you like to use? Circle or Rectangle?"
get shape
cls
loop
randint (x2, 1, 250)
randint (y2, 1, 250)
randint (clr, 1, 255)
mousewhere (x, y, button)
if button = 1 then
if shape = "rectangle" or shape = "Rectangle" then
drawfillbox (x - x2, y - y2, x + x2, y + y2, clr)
delay(100)
cls
elsif shape = "circle" or shape = "Cirlce" then
drawfilloval (x , y, x2, y2, clr)
delay(100)
cls
end if
end if
end loop
|