TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 21st Sep 2004 14:03

Modified: 1st Jan 1970 01:00

Author: ZEDBEL

Summary

Makes random numbers for LOTO Games

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 ZEDBEL LOTO

Rem Created: 21-09-2004 16:26:21

REM START ZEDBELWORLD

REM LOAD BITMAP

LOAD BITMAP "pics\bd07.bmp"

SET CURSOR 100,100

PRINT "ZEDBEL  LOTO  HELP"

WAIT (2000)

SET CURSOR 200,200

PRINT "WELCOME TO THIS PROGRAM"

WAIT (2000)

SET CURSOR 200,220

PRINT "CHARGING TOOLS"

WAIT (1000)

SET CURSOR 200,220

PRINT "CHARGING TOOLS."

WAIT (1000)

SET CURSOR 200,220

PRINT "CHARGING TOOLS.."

WAIT (1000)

SET CURSOR 200,220

PRINT "CHARGING TOOLS..."

WAIT (1000)

SET CURSOR 200,220

PRINT "CHARGING TOOLS...."

WAIT (1000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd07.bmp"

SET CURSOR 250,250

PRINT "COMPLETE"

WAIT (2000)

CLS

SET CURSOR 100,250

PRINT "WHENEVER YOU WANT TO LEAVE THE PROGRAM PRESS ESCAPE"

WAIT (5000)

cls

REPEAT

REM LOAD BITMAP

LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD BITMAP

LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD

SET CURSOR 250,250

INPUT "PRESS ENTER>";a$

SET CURSOR 270,270

PRINT RND(49)

WAIT (5000)

CLS

REM LOAD JPEG

LOAD BITMAP "pics\bd07.bmp"

WAIT (3000)

PRINT "A NEW ROUND WILL START IN 5 SECONDS"

WAIT (5000)

CLS

UNTIL 0

ENABLE ESCAPEKEY

Download

Please login to download

Comments

No comments yet.

CodeBase - ZEDBEL LOTO

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	ZEDBEL
CodeBase Entries:	4