TheGameCreators - CodeBase - accurate typing game

Category: Complete Applications

Version: 1.0

Information

Uploaded: 1st Sep 2009 10:38

Modified: 1st Jan 1970 01:00

Author: CresCo

Summary

This is just a simple little application I whipped together as my first tutorial-independent DarkBasic professional program. The complete version should (in order to make the program even remotely fun) have a stopwatch function so there is time pressure on the player. At this time however such a function is somewhat beyond me and I've decided to move on to more interesting 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: TFIP2

REM Created: 8/17/2009 12:55:15 PM

REM

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

REM

global enemyHP as integer

global playerHP as integer

global enemydamage as integer

global playerdamage as integer

global prompt$ as string

global response$ as string

rem global enterhit as integer

dim words$(13)

words$(0) = "super"

words$(1) = "house"

words$(2) = "trenton"

words$(3) = "clinic"

words$(4) = "death"

words$(5) = "cynicism"

words$(6) = "hero"

words$(7) = "voodoo"

words$(8) = "qwerty"

words$(9) = "kyle"

words$(10) = "eros"

words$(11) = "eris"

words$(12) = "aphrodite"

words$(13) = "hephaestos"

enemyHP = 100

playerHP = 100

set text size 24

print "do you think you can defeat me, fool?!"

print "Haha, words are my only weakness- can you type enough to destroy me??"

print "If you are a coward and wish to fleee, type 'q', 'quit', or 'exit'"

wait 2000

set text size 16

print "press any key to continue"

wait key

cls

ink rgb(0,255,0),0

print "Enemy HP = 100"

print "Player HP = 100"

while enemyHP > 0 and playerHP > 0

ink rgb(100, 255, 50),0

seed = timer()

randomize seed

w = rnd(13) + 0

prompt$ = words$(w)

print prompt$

rem obviously this is where my attempt at a time mechanism came in-- ignore it :)

remstart

sync on

backdrop on

starttime = timer()

repeat

remainingtime = 2 - (timer() - starttime)/1000

print str$(remainingtime) + " seconds remaining!"

input response$

sync

until remainingtime <= 0

enterhit = keystate(13)

repeat

timecount = (timecount + timer())/1000

if timecount <= 3

ink rgb(0,0,0),0

set cursor 200,200

set text size 16

print str$(timecount)

endif

if timecount > 3 and timecount < 5

ink rgb(255,255,0),0

set cursor 200,200

set text size 24

print str$(timecount)

endif

if timecount >= 5

ink rgb(255,0,0),0

set cursor 200,200

set text size 35

print str$(timecount)

endif

input response$

sync

until enterhit = 1

remend

input response$

if lower$(response$) = "q" or lower$(response$)= "quit" or lower$(response$) = "exit" then goto a

damagecounts()

combat()

enemydamage = 0

playerdamage = 0

endwhile

if enemyHP <= 0 and playerHP <= 0

print "Double KO!"

wait key

goto a

endif

if enemyHP <= 0

print "Noooo!  You are indeed a talented typist!"

wait key

cls

set text size 40

ink rgb(0,255,0),0

print "YOU WIN!!!"

wait key

goto a

endif

if playerHP <= 0

print "Haha, you were not prepared fool! Die slowly..."

wait key

cls

set text size 40

ink rgb(255,0,0),0

print "YOU HAVE DIED!!!"

wait key

goto a

endif

end

function combat()

enemyHP = (enemyHP - enemydamage)

playerHP = (playerHP - playerdamage)

ink rgb(255,0,0),0

print "You do " + str$(enemydamage) + " damage to the Unicorn!"

print "The Uncihorn does " + str$(playerdamage) + " damage to you!"

ink rgb(255,255,0),0

print "Enemy HP = " + str$(enemyHP)

print "Player HP = " + str$(playerHP)

wait key

endfunction

function damagecounts()

local x as integer

playerdamage = 0

enemydamage = 0

x = 0

if len(response$) > len(prompt$)

playerdamage = playerdamage + (len(response$) - len(prompt$))

goto b

endif

if len(prompt$) > len(response$)

playerdamage = playerdamage + (len(prompt$) - len(response$))

goto c

endif

if len(prompt$) = len(response$)

goto b

endif

x = 0

for x = 1 to len(prompt$) step 1

if mid$(response$, x) = mid$(prompt$, x)

enemydamage = enemydamage + 1

endif

if mid$(response$, x) <> mid$(prompt$, x)

playerdamage = playerdamage + 1

endif

print str$(x) + " " + prompt$ + " " + response$ + " " + str$(enemydamage) + " " + str$(playerdamage) + " " + mid$(response$, x) + " " + mid$(prompt$, x)

next x

goto d

x = 0

for x = 1 to len(response$) step 1

if mid$(response$, x) = mid$(prompt$, x)

enemydamage = enemydamage + 1

endif

if mid$(response$, x) <> mid$(prompt$, x)

playerdamage = playerdamage + 1

endif

print str$(x) + " " + prompt$ + " " + response$ + " " + str$(enemydamage) + " " + str$(playerdamage) + " " + mid$(response$, x) + " " + mid$(prompt$, x)

CodeBase - accurate typing game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	CresCo
CodeBase Entries:	1