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

illu45

Fri Apr 01, 2005 9:14 pm


Stupid Prgram

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

Hey all,

I made this program in a couple of minutes today at school when I got bored, its pretty supid, and hurts the eyes sometimes :D... I'm sure any of you could do this, but I thought I'd share it with you...


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



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

Naveg

Fri Apr 01, 2005 10:57 pm



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

yea not too hard, its always fun to mess around though


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

Mazer

Sun Apr 03, 2005 7:44 am



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

So, are you trying to [url=http://www.compsci.ca/v2/viewtopic.php?t=7734]piss people off?


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

Drakain Zeil

Sun Apr 03, 2005 9:07 am



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

There should be a thread for stupid program that we've all made like this with intereting visuals.

http://www.freewebs.com/dzeil/turing/hypnotize.html


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

illu45

Sun Apr 03, 2005 5:37 pm



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

So, are you trying to 

No, not exactly... I just figured I'd post it here in case someone wanted to have a look...

You can delete the thread if you so see fit.


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

Drakain Zeil

Sun Apr 03, 2005 6:17 pm



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

Which is why I suggested a thread for OMFG trippy programs.


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

Cervantes

Mon Apr 04, 2005 5:06 pm



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

Or we could forego posting omfg trippy programs altogether.


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

jamonathin

Mon Apr 04, 2005 5:55 pm



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

I'm goin' with Cervantes, all those programs are, are annoying flashy n00b progs.


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

Mazer

Wed Apr 06, 2005 10:16 pm



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

It isn't really about the fact that it's flashy or that it's annoying (same thing really). It's more about the fact that almost no effort was put forth to create something completely unoriginal and useless.

But let's put this one behind us.
I think tomorrow I'll start a thread here providing suggestions for short programs you can make in your spare time that could prove interesting.