Could someone help me with this code.

Author

Message

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 12th Jul 2005 05:36

Link

I'm trying to make a simple math game where the problem falls from the screen and the player has to answer before it hits the ground.

Please help!

+ Code Snippet

sync on
sync rate 30
hide mouse
global num1
global num2

textheight = 0
numfall=1
randomnumbers()
do

cls
if textheight = 400 then numfall=0
set cursor 0,textheight

if numfall=0
 randomnumbers()
 cls
 set cursor 0,0
 print "try again"
 numfall=1
endif


print num1,"+",num2
if  numfall=1
 textheight = textheight + 2

endif
sync
loop

end

function randomnumbers()
num1 = rnd(10)
num2 = rnd(10)
endfunction

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 12th Jul 2005 07:37 Edited at: 12th Jul 2005 07:40

Link

I have re-written your code for you the way that I would go about making a game.

You can see from my 'do-loop' that my main loop simply calls functions. I find it an easy way to work because you can see everything that the code needs to do within a loop and it is easy to see what to work on next.

It is perhaps not everyones favourite way to work but I find it much easier.

I have added a score system and a life remaining system to your code as well as a 'Game Over' message and the option to try again.

I have not put in any remarks to help you ... I thought you might like to work out what is happening on your own

... If you have any problems though please do not hesitate to ask and will help you.

sync on
sync rate 30
hide mouse

Global num1
Global num2
Global num3
Global TextHeight
global Score
Global Lives
Global Answer as string
Global LastInput as string
Global InputLength
Global AnswerLength

NewGame()

do
	
	cls
	DisplayProblem()
	GetUserInput()
	CheckAnswer()
	CheckHeight()
	
	sync
	
Loop

function DisplayProblem()
	
	set cursor 0,0
	Print "Lives: ",Lives,"    Score: ",Score
	set cursor 0,TextHeight
	print num1,"+",num2,"= ",Answer
	inc TextHeight,2

endfunction

function GetUserInput()
	
	I$ = inkey$() 
	if I$<>""  
		if I$ <> LastInput
			LastInput = I$
			inc InputLength,1
			Answer = Answer + I$
			LastInput = I$
		endif
	else
		LastInput =""	
	endif
	
endfunction

function CheckAnswer()
	
	if InputLength = AnswerLength
		if val(Answer) = num3
			inc Score
			NewProblem()
		else
			I$ = ""
			Answer = ""
			InputLength = 0
		endif
	endif
	
	if InputLength > AnswerLength
		I$ = ""
		Answer = ""
		InputLength = 0
	endif
	
endfunction

function CheckHeight()
	
	if TextHeight > 400 then Failed()
	
endfunction

function NewProblem()
	
	num1 = rnd(10)
	num2 = rnd(10)
	num3 = num1 + num2
	AnswerLength = len(str$(num3))
	InputLength = 0
	I$ = ""
	TextHeight = 15
	Answer = ""
	
endfunction

function Failed()
		
	dec Lives
	if Lives < 1
		cls
		Print "Game Over"
		print ""
		print "Your Score was ",Score," ... Well done!"
		print ""
		print "Do you want to play again?"
		sync
		repeat
			A$ = inkey$()
		until A$ = "y" or A$ = "Y" or A$ = "n" or A$ = "N"
		
		if A$ = "Y" or A$ = "y"
			NewGame()
		else
			end
		endif
	else
		NewProblem()
	endif
	
endfunction

function NewGame()
	
	Lives = 3
	Score = 0
	NewProblem()
	
endfunction

+ Code Snippet

sync on
sync rate 30
hide mouse

Global num1
Global num2
Global num3
Global TextHeight
global Score
Global Lives
Global Answer as string
Global LastInput as string
Global InputLength
Global AnswerLength

NewGame()

do
	
	cls
	DisplayProblem()
	GetUserInput()
	CheckAnswer()
	CheckHeight()
	
	sync
	
Loop

function DisplayProblem()
	
	set cursor 0,0
	Print "Lives: ",Lives,"    Score: ",Score
	set cursor 0,TextHeight
	print num1,"+",num2,"= ",Answer
	inc TextHeight,2

endfunction

function GetUserInput()
	
	I$ = inkey$() 
	if I$<>""  
		if I$ <> LastInput
			LastInput = I$
			inc InputLength,1
			Answer = Answer + I$
			LastInput = I$
		endif
	else
		LastInput =""	
	endif
	
endfunction

function CheckAnswer()
	
	if InputLength = AnswerLength
		if val(Answer) = num3
			inc Score
			NewProblem()
		else
			I$ = ""
			Answer = ""
			InputLength = 0
		endif
	endif
	
	if InputLength > AnswerLength
		I$ = ""
		Answer = ""
		InputLength = 0
	endif
	
endfunction


function CheckHeight()
	
	if TextHeight > 400 then Failed()
	
endfunction

function NewProblem()
	
	num1 = rnd(10)
	num2 = rnd(10)
	num3 = num1 + num2
	AnswerLength = len(str$(num3))
	InputLength = 0
	I$ = ""
	TextHeight = 15
	Answer = ""
	
endfunction

function Failed()
		
	dec Lives
	if Lives < 1
		cls
		Print "Game Over"
		print ""
		print "Your Score was ",Score," ... Well done!"
		print ""
		print "Do you want to play again?"
		sync
		repeat
			A$ = inkey$()
		until A$ = "y" or A$ = "Y" or A$ = "n" or A$ = "N"
		
		if A$ = "Y" or A$ = "y"
			NewGame()
		else
			end
		endif
	else
		NewProblem()
	endif
	
endfunction

function NewGame()
	
	Lives = 3
	Score = 0
	NewProblem()
	
endfunction

Another idea would be to speed up the falling text evertime the user gets a question correct. Let me know if you need help with it

Back to top

Profile PM Email

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 12th Jul 2005 08:24

Link

Oh man !
Thank you so much scraggle!

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 12th Jul 2005 15:52

Link

No problem ... glad I have helped

Back to top

Profile PM Email

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 13th Jul 2005 11:28 Edited at: 13th Jul 2005 11:28

Link

Booger

Back to top

Profile PM Email

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 14th Jul 2005 08:01

Link

Scraggle, or anyone else who wants to help, can you find out how to make the rocket ship blast off after the player types the correct answer?

sync on
sync rate 30
hide mouse

Global num1
Global num2
Global num3
Global TextHeight
Global Score
Global Lives
Global Answer as string
Global LastInput as string
Global InputLength
Global AnswerLength

NewGame()

load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\2D Game\Rocket Drive\Rocket Ship 2 (messed with).bmp",1
create animated sprite 1,"C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\2D Game\Rocket Drive\Rocket Ship 2 (messed with).bmp",2,2,1
scale sprite 1,28

do

sprite 1,0,TextHeight,1

cls
DisplayProblem()
GetUserInput()
CheckAnswer()
CheckHeight()

sync
Loop

function DisplayProblem()

set cursor 0,0
   Print "Lives: ",Lives,"    Score: ",Score
   set cursor 60,TextHeight+80
   print num1,"+",num2,
   inc TextHeight,2

endfunction

function GetUserInput()

I$ = inkey$()
   if I$<>""
      if I$ <> LastInput
         LastInput = I$
         inc InputLength,1
         Answer = Answer + I$
         LastInput = I$
      endif
   else
      LastInput =""
   endif

endfunction

function CheckAnswer()

if InputLength = AnswerLength
      if val(Answer) = num3
         inc Score
         SpriteStuff()
         NewProblem()
      else
         I$ = ""
         Answer = ""
         InputLength = 0
      endif
   endif

if InputLength > AnswerLength
      I$ = ""
      Answer = ""
      InputLength = 0
   endif

endfunction

function CheckHeight()

if TextHeight > 400 then Failed()

endfunction

function NewProblem()

num1 = rnd(10)
   num2 = rnd(10)
   num3 = num1 + num2
   AnswerLength = len(str$(num3))
   InputLength = 0
   I$ = ""
   TextHeight = 15
   Answer = ""

endfunction

function Failed()

dec Lives
   if Lives < 1
      cls
      Print "Game Over"
      print ""
      print "Your Score was ",Score," ... Well done!"
      print ""
      print "Do you want to play again? Y/N"
      sync
      repeat
         A$ = inkey$()
      until A$ = "y" or A$ = "Y" or A$ = "n" or A$ = "N"

if A$ = "Y" or A$ = "y"
         NewGame()
      else
         end
      endif
   else
      NewProblem()
   endif

endfunction

function NewGame()

Lives = 3
   Score = 0
   NewProblem()

endfunction

function SpriteStuff()

play sprite 1,1,4,1

endfunction

+ Code Snippet

sync on
sync rate 30
hide mouse

Global num1
Global num2
Global num3
Global TextHeight
Global Score
Global Lives
Global Answer as string
Global LastInput as string
Global InputLength
Global AnswerLength

NewGame()

load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\2D Game\Rocket Drive\Rocket Ship 2 (messed with).bmp",1
create animated sprite 1,"C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\2D Game\Rocket Drive\Rocket Ship 2 (messed with).bmp",2,2,1
scale sprite 1,28

do

sprite 1,0,TextHeight,1

cls
DisplayProblem()
GetUserInput()
CheckAnswer()
CheckHeight()

sync
Loop

function DisplayProblem()

   set cursor 0,0
   Print "Lives: ",Lives,"    Score: ",Score
   set cursor 60,TextHeight+80
   print num1,"+",num2,
   inc TextHeight,2

endfunction

function GetUserInput()

   I$ = inkey$()
   if I$<>""
      if I$ <> LastInput
         LastInput = I$
         inc InputLength,1
         Answer = Answer + I$
         LastInput = I$
      endif
   else
      LastInput =""
   endif

endfunction

function CheckAnswer()

   if InputLength = AnswerLength
      if val(Answer) = num3
         inc Score
         SpriteStuff()
         NewProblem()
      else
         I$ = ""
         Answer = ""
         InputLength = 0
      endif
   endif

   if InputLength > AnswerLength
      I$ = ""
      Answer = ""
      InputLength = 0
   endif

endfunction

function CheckHeight()

   if TextHeight > 400 then Failed()

endfunction

function NewProblem()

   num1 = rnd(10)
   num2 = rnd(10)
   num3 = num1 + num2
   AnswerLength = len(str$(num3))
   InputLength = 0
   I$ = ""
   TextHeight = 15
   Answer = ""

endfunction

function Failed()

   dec Lives
   if Lives < 1
      cls
      Print "Game Over"
      print ""
      print "Your Score was ",Score," ... Well done!"
      print ""
      print "Do you want to play again? Y/N"
      sync
      repeat
         A$ = inkey$()
      until A$ = "y" or A$ = "Y" or A$ = "n" or A$ = "N"

      if A$ = "Y" or A$ = "y"
         NewGame()
      else
         end
      endif
   else
      NewProblem()
   endif

endfunction

function NewGame()

   Lives = 3
   Score = 0
   NewProblem()

endfunction

function SpriteStuff()

play sprite 1,1,4,1


endfunction

Back to top

Profile PM Email

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 14th Jul 2005 08:18

Link

t

Back to top

Profile PM Email

Robot Booger

19

Years of Service

User Offline

Joined: 4th Jan 2005

Location:

Posted: 15th Jul 2005 10:25

Link

I can't post my media. I don't know why

Back to top

Profile PM Email

caleb870

19

Years of Service

User Offline

Joined: 13th Jul 2005

Location: LOOK! Over there!

Posted: 15th Jul 2005 12:19

Link

Maybe because your going over the 1MB limit otherwise I have no suggestions.

Back to top

Profile PM

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 15th Jul 2005 13:00

Link

hmmm
maybe using the edit button would be nice

does it say document contaisn no data as i have been having that problem recently

maybe telling us what the error message says and we could better assist you

n00bs will be shot on spot...

It only gets more logical from here(sigh)

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Could someone help me with this code.