TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 3rd Sep 2009 20:14

Modified: 1st Jan 1970 01:00

Author: Jeko

Summary

Just type letters and scares you so you have a virus. Be Happy

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

SET WINDOW TITLE "VIRUSES"

SET TEXT SIZE 22

SET TEXT FONT "Arial"

DISABLE ESCAPEKEY

CENTER TEXT 300,20, "DON'T PRESS ECAPE KEY IT WILL SPEED UP PROCESS."

typewriter("LOADING VIRUSES.EXE",90)

typewriter2("LAUNCHING VIRUSES.EXE",90)

typewriter3("EXTRACTING FILES FROM VIRUSES.EXE",85)

typewriter4("ALL FILES EXTRACTED VIRUSES ARE PLACED",80)

typewriter5("YOUR COMPUTER IS NOW INFECTED",90)

typewriter6("WHEN YOU NEXT TIME START COMPUTER IT WILL",90)

typewriter7("DELETE ONE FILE IN PROGRAM FILES EACH TIME",90)

typewriter8("RELAX IN YOUR LAST HOURS",90)

INPUT " ", exit$

IF exit$ = " " THEN EXIT

END

FUNCTION typewriter(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,40,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter2(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,60,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter3(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,80,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter4(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,100,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter5(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,120,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter6(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,140,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter7(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,160,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

FUNCTION typewriter8(text$,speed)

FOR a=2 TO LEN(text$)

TEXT 0,180,LEFT$(text$,a)

WAIT speed

NEXT a

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

CodeBase - Viruses

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Jeko
CodeBase Entries:	2