TheGameCreators - CodeBase - Text game type thing

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 2nd Feb 2005 11:08

Modified: 1st Jan 1970 01:00

Author: Mode x

Summary

pretty useless really but looks fun

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

REM Project: Mode-X Systems

REM Created: 31/01/2005 13:10:20

REM

REM ***** Main Source File *****

REM

REM ***************

SET WINDOW ON

MAXIMIZE WINDOW

SET DISPLAY MODE 1024, 768, 32

load sound "fist.wav",3

LOAD SOUND "LAZER 2.WAV",1

LOAD SOUND "ROCKET TAKEOFF.WAV",2

SET CURSOR 10,700

WAIT (1*1000)

ink rgb(0,255,0),1

PRINT "SYSTEM INITALISE"

PLAY SOUND 2

WAIT (3*1000)

PRINT " PLEASE STANDBY .";

PLAY SOUND 1

WAIT (1*1000)

PRINT " .";

PLAY SOUND 1

WAIT (1*1000)

PRINT " .";

PLAY SOUND 1

WAIT (1*1000)

PRINT " .";

PLAY SOUND 1

WAIT (1*1000)

CLS

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

PRINT "PERFORMING SYSTEM TEST ";

WAIT (1*1000)

PRINT "PLEASE WAIT"

WAIT (1*1000)

print " MM/DD/YY"

WAIT (1*1000)

print " ";GET DATE$()

WAIT (1*1000)

print " HH:MM:SS"

WAIT (1*1000)

print " ";GET TIME$()

wait (1*1000)

PRINT "SYSTEM MEMORY:";system smem available()

PRINT ""

WAIT (1*1000)

PRINT "DRIVES"

PRINT ""

WAIT (1*1000)

PERFORM CHECKLIST FOR DRIVES

print "found:"

DRIVELIST

PRINT ""

WAIT (1*1000)

PRINT "FILES"

PRINT ""

WAIT (1*1000)

PERFORM CHECKLIST FOR FILES

PRINT "outcome hidden"

WAIT (1*1000)

print "GRAPHICS CARDS"

perform checklist for graphics cards

for c=1 to checklist quantity()

name$=checklist string$(c)

print "found:";name$

next c

set graphics card name$

print "using:";current graphics card$()

sleep 2000

print "DISPLAY MODES"

perform checklist for display modes

for c=1 to checklist quantity()

width=checklist value a(c)

height=checklist value b(c)

depth=checklist value c(c)

print "found:";checklist string$(c)

next c

wait (1*1000)

print "using:1024x768 32bit"

wait (1*1000)

print "SCREEN:"

wait (1*1000)

PRINT "";SCREEN TYPE()

if screen type()=1

print "HARDWARE ACCELERATED"

ELSE

PRINT "NOT ACCELERATED"

ENDIF

WAIT (1*1000)

PRINT "INITALISE BINARY DATA"

WAIT (1*1000)

remstart

GOSUB _BINARY

CLS

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

PRINT "DONE"

cls

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

Print "Loading User login screen"

wait (2*1000)

EXECUTE FILE "Hack.EXE", "", "\media",1

wait (1*1000)

cls

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

Print "Loading User login screen"

wait (2*1000)

EXECUTE FILE "User.EXE", "", "\media",1

EXECUTE FILE "Enter Password.EXE", "", "\media",1

cls

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

wait (2*1000)

print "Welcome: Kbob"

wait 1000

remstart

input "User Name:",userinput1$;

wait (1*1000)

print "K";

play sound 3

wait (1*1000)

print "b";

play sound 3

wait (1*1000)

print "o";

play sound 3

wait (1*1000)

print "b"

play sound 3

wait (1*1000)

play sound 3

input "Password:",userpassword1$;

wait (1*1000)

print "r";

play sound 3

wait (1*1000)

print "a";

play sound 3

wait (1*1000)

print "m";

play sound 3

wait (1*1000)

print "d";

play sound 3

wait (1*1000)

print "o";

play sound 3

wait (1*1000)

print "m"

play sound 3

SET DISPLAY MODE 1024, 768, 32

SET CURSOR 10,700

wait (1*1000)

print "Welcome: Kbob"

WAIT (4*1000)

remend

REMSTART

HIDE WINDOW

WAIT (1*1000)

SHOW WINDOW

MAXIMIZE WINDOW

WAIT (1*1000)

MINIMIZE WINDOW

WAIT (1*1000)

MAXIMIZE WINDOW

REMEND

END

_ERRORMESSAGE:

exit prompt "This program has performed an illegal operation and will close!","MODE-X SYSTEMS"

end

rem sub routine (call new program)

_execute:

EXECUTE FILE "Alert.exe","","\media",1

END

_BINARY:

PRINT "101010100100010101010101010101010011111010010010110001001";

WAIT (1*1000)

PRINT "1010101001000101010101010101010100111110101010001001010101001001001"

PRINT "1010101001000101010101010001010101010010111101001001010101010101010101001";

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001"

PRINT "10101010010001010101010101010101001010101011001001000010110";

PRINT "101010100100010101010101010101101010100010101010101001001111101001001001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001";

PRINT "10101010010001010101010101010101001111101001001010101010101010101001"

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001";

PRINT "10101010010001010101010101010101001111101001001001"

WAIT (1*1000)

PRINT "10101010010001010101010101010101001111101001001010101010101010101001";

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001";

PRINT "1010101001000001010101010101010101010101010101001111101001001010101010101010101001"

WAIT (1*1000)

PRINT "10101010010001010101010101010101001111101001001010101010101010101001";

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001";

PRINT "10101010010001010101010101010101001111101001001010101010101010101001"

PRINT "10101010010001010101010101010101001111101001001010101010101010101001";

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001";

PRINT "101010100100010101001111101001001010101010101010101001"

PRINT "10101010010001010101010101010101001111101001001010101010101010101001";

PRINT "101010100100010101010110100111110100100101010101010101010101001111100101001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001";

WAIT (1*1000)

PRINT "10101010010001010101010101010101001111101001001010101010101010101001"

PRINT "1010101001000101010101010101010100111110101010001001010101001001001"

PRINT "10101010010001010101010101010101001111101001001010101010101010101001";

PRINT "1010101001000101010101010101010100111110100100101010101010101010101001111100101001"

PRINT "10101010010001010101010101010101001111101001001000010110";