Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Short_1's suggestion
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Boarder16




PostPosted: Sun Feb 22, 2004 12:18 pm   Post subject: Short_1's suggestion

this is a program i made(boarder16 not short_1) that looskliek a virus... i know its not all that convincing but i'm bored lol, anyway i'll psot hte cod so u no it'l ldo nothin to ur comp..ok.. the writign dosent look liek a real virus but meh... have fun Very Happy and do waht it says at the very end..!!!
code:

var font1, font2, font3, font4, winID, i1 : int
winID := Window.Open ("position:0,0;graphics:788;528")
font1 := Font.New ("courier:14:bold")
font2 := Font.New ("serif:20")
font3 := Font.New ("serif:28")
font4 := Font.New ("courier:10")
colorback (black)
color (white)
cls

Font.Draw ("You have installed the setup for", 200, 490, font2, red)
Font.Draw ("The Meliisa Virus", 245, 450, font3, purple)
Font.Draw ("Meliisa will now delete all your system components", 120, 350, font1, blue)

i1 := 0
proc count
    drawbox (530, 240, 230, 220, white)
    for i : 0 .. 300
        drawbox (230 + i, 240, 230, 220, white)
        delay (20)
        locate (17, 46)
        put i div 3, "%"
        i1 := i div 3
    end for
end count

proc flicker
    for count : 1 .. 200
        drawfillbox (0, 0, maxx, maxy, white)
        delay (5)
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("You have installed the setup for", 200, 490, font2, red)
        Font.Draw ("The Meliisa Virus", 245, 450, font3, purple)
        Font.Draw ("Meliisa will now delete all your system components", 120, 350, font1, blue)
        drawfillbox (530, 240, 230, 220, white)
        locate (17, 46)
        put "100%"
        Font.Draw ("Disableing Computer", 305, 185, font4, yellow)
    end for
    delay (100)
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw ("Fatal System Error", 10, 505, font4, green)
    for count1 : 1 .. 4
        Font.Draw (".", 160, 505, font4, green)
        delay (800)
        drawfillbox (159, 504, 165, 510, black)
        delay (600)
    end for
    Font.Draw ("Computer Shut Down", 10, 460, font4, red)
    delay (1000)
    cls
    for z : 1 .. 2
        Font.Draw ("Just Kidding!!", 220, 360, font3, red)
        delay (500)
        cls
        Font.Draw ("Just Kidding!!", 220, 360, font3, yellow)
        delay(500)
        cls
    end for
    cls
    Font.Draw ("Have a nice day!", 260, 360, font3, blue)
    delay(1000)
    Font.Draw ("Brought to you by Boarder16...gimme your bits!!", 100, 300, font1, blue)
    delay(2000)
    cls
    Window.Close(winID)
end flicker

process files
    loop
        if i1 > 0 and i1 < 5 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Preparing viral componenets", 270, 185, font4, yellow)
        elsif i1 > 5 and i1 < 40 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Formatting Excess Drives", 275, 185, font4, yellow)
        elsif i1 > 40 and i1 < 80 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Deleting Windows Run Files", 275, 185, font4, yellow)
        elsif i1 > 80 and i1 < 100 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Disableing Computer", 305, 185, font4, yellow)
        end if
        exit when i1 = 100
        delay (20)
    end loop
    flicker
end files

fork files
count


bits bits bits bits! Twisted Evil
Sponsor
Sponsor
Sponsor
sponsor
Cervantes




PostPosted: Sun Feb 22, 2004 12:38 pm   Post subject: (No subject)

eew processes. Sad

that program is pretty evil. However it's utterly and completely pointless Eh
If you're bored in Turing, try to make you're favorite classic game.
Click here for some game ideas.
josh




PostPosted: Sun Feb 22, 2004 1:49 pm   Post subject: (No subject)

this is neat but it is really hard to read the green text on the black background.
jonos




PostPosted: Sun Feb 22, 2004 7:03 pm   Post subject: (No subject)

that's pretty cool, but the spelling mistakes may make it appear to be a joke.
the_short1




PostPosted: Wed Mar 03, 2004 5:26 pm   Post subject: (No subject)

funny... jsut what i was thinking... well acually i was thinking of new virus that was called

W32@Tripple.Threat << Mellisa, WTC, And MSBlaster >>
you have been infected with all three... ENJOY!!! MUAHAHHAHAHHA Twisted Evil Evil or Very Mad

but you got the idea..... seriously... make a game to fill in your time..... maybe make a pong (everyones made a pong game... but there cool)
Maverick




PostPosted: Wed Mar 03, 2004 10:13 pm   Post subject: (No subject)

ahhh SEIZURE
jonos




PostPosted: Wed Mar 03, 2004 10:21 pm   Post subject: (No subject)

tahts cool and everything, but you have to chagne the font colours becauseit doesn't look professional. anyways, good job.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 7 Posts ]
Jump to:   


Style:  
Search: