TheGameCreators - CodeBase - Simple Numbers Game

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 30th Jul 2015 08:51

Modified: 1st Jan 1970 01:00

Author: Brux

Summary

A simple numbers game Guess the number

Full Description

A simple numbers game<br /> Guess the number that the computer thinks

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem *********************************************************************************************************************************************

Rem

Rem                           AAAA    AAAA   AA   AA AAAAA   AA      AAAAAA           AAAA     AA    AA   AA AAAAAA

Rem                          AA  AA    AA    AA   AA AA  AA  AA      AA              AA  AA   AAAA   AA   AA AA

Rem                          AA        AA    AAA AAA AA  AA  AA      AA              AA  AA  AA  AA  AAA AAA AA

Rem                           AA       AA    AA A AA AA  AA  AA      AA              AA      AA  AA  AA A AA AA

Rem                            AA      AA    AA A AA AAAAA   AA      AAAAA           AA      AA  AA  AA A AA AAAAA

Rem                             AA     AA    AA A AA AA      AA      AA              AA AAA  AAAAAA  AA A AA AA

Rem                              AA    AA    AA   AA AA      AA      AA              AA  AA  AA  AA  AA   AA AA

Rem                          AA  AA    AA    AA   AA AA      AA      AA              AA  AA  AA  AA  AA   AA AA

Rem                           AAAA    AAAA   AA   AA AA      AAAAAA  AAAAAA           AAAAA  AA  AA  AA   AA AAAAAA

Rem

Rem                          AAAAA   AA  AA          AAAAAA  AAAAA   AA   AA   AA    AA   AA AA   AA  AAAA

Rem                          AA  AA  AA  AA          AA      AA  AA  AA   AA  AAAA   AA   AA AA   AA AA  AA

Rem                          AA  AA  AA  AA          AA      AA  AA  AAA AAA AA  AA  AAA  AA AAA  AA AA  AA

Rem                          AA  AA  AA  AA          AA      AA  AA  AA A AA AA  AA  AAAA AA AAAA AA AA  AA

Rem                          AAAAA    AAAA           AAAAA   AAAAA   AA A AA AA  AA  AA AAAA AA AAAA AA  AA

Rem                          AA  AA    AA            AA      AA AA   AA A AA AAAAAA  AA  AAA AA  AAA AA  AA

Rem                          AA  AA    AA            AA      AA  AA  AA   AA AA  AA  AA   AA AA   AA AA  AA

Rem                          AAAAA     AA            AAAAAA  AA  AA  AA   AA AA  AA  AA   AA AA   AA  AAAA

Rem

Rem                                             AA    AAAA   AAAAAA    AA    AA      AA  AA   AA

Rem                                            AA      AA      AA     AAAA   AA      AA  AA    AA

Rem                                            AA      AA      AA    AA  AA  AA      AA  AA    AA

Rem                                           AA       AA      AA    AA  AA  AA      AA  AA     AA

Rem                                           AA       AA      AA    AA  AA  AA       AAAA      AA

Rem                                           AA       AA      AA    AAAAAA  AA        AA       AA

Rem                                           AA       AA      AA    AA  AA  AA        AA       AA

Rem                                            AA     AAAA     AA    AA  AA  AAAAAA    AA      AA

Rem                                            AA                                              AA

Rem                                             AA                                            AA

Rem

Rem *********************************************************************************************************************************************

oldSize=text size()

set text size 32

Center text 320,50,"Guess the number that I think !"

set text size oldSize

Center text 320,80,"Simple game 1-99"

mynumber=rnd(98)+1

main:

ink rgb(255,255,255),0

set cursor 20,120+y : input "Write your number ";yournumber

Rem check

set text size 32

if yournumber=mynumber

center text 320,400,"RIGHT!"

goto fine

endif

if yournumber<mynumber

center text 320,400,"TOO SMALL!"

clear()

endif

if yournumber>mynumber

center text 320,400,"TOO BIG!"

clear()

endif

set text size oldSize

inc y,12

goto main

fine:

wait key

end

function clear()

sleep 1000

ink 0,0

box 10,380,640,450

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Brux
CodeBase Entries:	33

CodeBase - Simple Numbers Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments