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

Boarder16

Sun Feb 22, 2004 12:18 pm


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 :D and do waht it says at the very end..!!!

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:


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

Cervantes

Sun Feb 22, 2004 12:38 pm



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

eew processes. :( 

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 [url=http://www.compsci.ca/v2/viewtopic.php?t=1022]here for some game ideas.


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

josh

Sun Feb 22, 2004 1:49 pm



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

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


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

jonos

Sun Feb 22, 2004 7:03 pm



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

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


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

the_short1

Wed Mar 03, 2004 5:26 pm



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

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

W32@Tripple.Threat   >
you have been infected with all three... ENJOY!!! MUAHAHHAHAHHA :twisted: :evil:

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

Wed Mar 03, 2004 10:13 pm



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

ahhh SEIZURE


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

jonos

Wed Mar 03, 2004 10:21 pm



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

tahts cool and everything, but you have to chagne the font colours becauseit doesn't look professional. anyways, good job.