Strange Error. . . - GameCreators Forum

Author

Message

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 20th Feb 2017 21:58

Link

Hello Guys!

So, my math game is almost complete, but this one error message is keeping the game from compiling.

Here's the full game code:

Sync On
Sync Rate 60
Backdrop Off

load image "1.bmp",1
load image "2.bmp",2
load image "3.bmp",3

points = 0
lives = 3

MonsterGen: 
	monster = rnd(3)
  paste image 100,1,monster
	sync
	gosub ProblemGen
	
	ProblemGen: 	aparta = rnd(50)
	apartb = rnd(50)
	sparta = rnd(50)
	spartb = rnd(50)
	mparta = rnd(50)
	mpartb = rnd(10)
	
	if monster = 1 then gosub Addition
	if monster = 2 then gosub Subtraction
	if monster = 3 then gosub Multiplication
return
Addition:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input,"My answer is ---> ",aanswer
	if aanswer = aparta + apartb then gosub GetPoint
	if aanswer <> aparta + apartb then gosub LooseLife
return
Subtraction:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input,"My answer is ---> ",sanswer	print sparta
	print "Minus"
	print spartb
	print "Equals"
	if sanswer = sparta - spartb then gosub GetPoint
	if sanswer <> sparta - spartb then gosub LooseLife
return
Multiplication:
	print mparta
	print "Plus"
	print mpartb
	print "Equals"
	sync
	input,"My answer is ---> ",manswer
	if manswer = mparta * mpartb then gosub GetPoint
	if manswer <> mparta * mpartb then gosub LooseLife
return
GetPoint:
	cls
	delete image 1
	delete image 2
	delete image 3
	points = points + 1
	print "Your new score is", points
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if points = 20 then gosub Win
	gosub MonsterGen
return
	
LooseLife:
	cls
	delete image 1
	delete image 2
	delete image 3
	lives = lives - 1
	print "Oops! You lost a life! Your current health is now", lives .
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if lives = 0 then gosub Loose
return
Win:
	print "C O N G R A T U L A T I O N S !"
	print "You beat all the monsters!"
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return
Loose:
	print "O H   N O !"
	print "You have fallen to the monsters."
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return

+ Code Snippet

Sync On
Sync Rate 60
Backdrop Off

load image "1.bmp",1
load image "2.bmp",2
load image "3.bmp",3

points = 0
lives = 3

MonsterGen: 
	monster = rnd(3)
  paste image 100,1,monster
	sync
	gosub ProblemGen
	
	ProblemGen: 	aparta = rnd(50)
	apartb = rnd(50)
	sparta = rnd(50)
	spartb = rnd(50)
	mparta = rnd(50)
	mpartb = rnd(10)
	
	if monster = 1 then gosub Addition
	if monster = 2 then gosub Subtraction
	if monster = 3 then gosub Multiplication
return
Addition:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input,"My answer is ---> ",aanswer
	if aanswer = aparta + apartb then gosub GetPoint
	if aanswer <> aparta + apartb then gosub LooseLife
return
Subtraction:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input,"My answer is ---> ",sanswer	print sparta
	print "Minus"
	print spartb
	print "Equals"
	if sanswer = sparta - spartb then gosub GetPoint
	if sanswer <> sparta - spartb then gosub LooseLife
return
Multiplication:
	print mparta
	print "Plus"
	print mpartb
	print "Equals"
	sync
	input,"My answer is ---> ",manswer
	if manswer = mparta * mpartb then gosub GetPoint
	if manswer <> mparta * mpartb then gosub LooseLife
return
GetPoint:
	cls
	delete image 1
	delete image 2
	delete image 3
	points = points + 1
	print "Your new score is", points
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if points = 20 then gosub Win
	gosub MonsterGen
return
	
LooseLife:
	cls
	delete image 1
	delete image 2
	delete image 3
	lives = lives - 1
	print "Oops! You lost a life! Your current health is now", lives .
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if lives = 0 then gosub Loose
return
Win:
	print "C O N G R A T U L A T I O N S !"
	print "You beat all the monsters!"
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return
Loose:
	print "O H   N O !"
	print "You have fallen to the monsters."
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return

Whenever I compile this thing, I get the error message "Zero Length Parameter not allowed at Line 35".
I've checked and re-checked, and have tried multiple ways of fixing this.
Could someone help, please?

Thanks!
AndRaxius, Medium Class DBPro Skiddie

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 21st Feb 2017 05:43 Edited at: 21st Feb 2017 06:24

Link

Replace the comma with a space after input on line 35.

Edit: Actually there are many issues with the way you have coded this. For this type of program you don't need to use the sync statements or worry about the backdrop. You have a series of subroutines without much of a main body. Getting late, I will try to post something for you in the morning.

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 21st Feb 2017 17:31

Link

Ok, so I've made a new version of the script, which fixed some of my issues...

However, I'm still having two problems happen

1 : Flickering Screen.
2 : An error code saying "Unable to load image at line 5."

I'm trying to figure out what is causing the image error, and I think it has to do with the id being "0". The way the images work, is that a rnd(2) picks a number, either 0, 1, or 2, and then pastes the corresponding image. Originally, it was an rnd of 3, making it generate four numbers instead of three.

I'm wondering if there is a way to constraint the lowest random number, so I don't have to give an image an id of 0. Is there any way to do that?

Thanks!

Sync On
Sync Rate 60
Backdrop Off

load image "0.bmp",0
load image "1.bmp",1
load image "2.bmp",2

points = 0
lives = 3

MonsterGen: 
	monster = rnd(2)
  paste image monster,200,1
	sync
	gosub ProblemGen
	
	ProblemGen: 	aparta = rnd(50)
	apartb = rnd(50)
	sparta = rnd(50)
	spartb = rnd(50)
	mparta = rnd(50)
	mpartb = rnd(10)
	
	if monster = 1 then gosub Addition
	if monster = 2 then gosub Subtraction
	if monster = 3 then gosub Multiplication
return
Addition:
	print sparta
	print "Plus"
	print spartb
	print "Equals"
	sync
	input "My answer is ---> ",aanswer
	if aanswer = aparta + apartb then gosub GetPoint
	if aanswer <> aparta + apartb then gosub LooseLife
return
Subtraction:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input "My answer is ---> ",sanswer
	if sanswer = sparta - spartb then gosub GetPoint
	if sanswer <> sparta - spartb then gosub LooseLife
return
Multiplication:
	print mparta
	print "Times"
	print mpartb
	print "Equals"
	sync
	input "My answer is ---> ",manswer
	if manswer = mparta * mpartb then gosub GetPoint
	if manswer <> mparta * mpartb then gosub LooseLife
return
GetPoint:
	cls
	delete image 1
	delete image 2
	delete image 3
	points = points + 1
	print "Your new score is", points
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if points = 20 then gosub Win
	gosub MonsterGen
return
	
LooseLife:
	cls
	delete image monster
	lives = lives - 1
	print "Oops! You lost a life! Your current health is now", lives
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if lives = 0 then gosub Loose
	gosub MonsterGen
return
Win:
	print "C O N G R A T U L A T I O N S !"
	print "You beat all the monsters!"
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return
Loose:
	print "O H   N O !"
	print "You have fallen to the monsters."
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return

+ Code Snippet

Sync On
Sync Rate 60
Backdrop Off

load image "0.bmp",0
load image "1.bmp",1
load image "2.bmp",2

points = 0
lives = 3

MonsterGen: 
	monster = rnd(2)
  paste image monster,200,1
	sync
	gosub ProblemGen
	
	ProblemGen: 	aparta = rnd(50)
	apartb = rnd(50)
	sparta = rnd(50)
	spartb = rnd(50)
	mparta = rnd(50)
	mpartb = rnd(10)
	
	if monster = 1 then gosub Addition
	if monster = 2 then gosub Subtraction
	if monster = 3 then gosub Multiplication
return
Addition:
	print sparta
	print "Plus"
	print spartb
	print "Equals"
	sync
	input "My answer is ---> ",aanswer
	if aanswer = aparta + apartb then gosub GetPoint
	if aanswer <> aparta + apartb then gosub LooseLife
return
Subtraction:
	print sparta
	print "Minus"
	print spartb
	print "Equals"
	sync
	input "My answer is ---> ",sanswer
	if sanswer = sparta - spartb then gosub GetPoint
	if sanswer <> sparta - spartb then gosub LooseLife
return
Multiplication:
	print mparta
	print "Times"
	print mpartb
	print "Equals"
	sync
	input "My answer is ---> ",manswer
	if manswer = mparta * mpartb then gosub GetPoint
	if manswer <> mparta * mpartb then gosub LooseLife
return
GetPoint:
	cls
	delete image 1
	delete image 2
	delete image 3
	points = points + 1
	print "Your new score is", points
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if points = 20 then gosub Win
	gosub MonsterGen
return
	
LooseLife:
	cls
	delete image monster
	lives = lives - 1
	print "Oops! You lost a life! Your current health is now", lives
	print "Press a key for the next monster."
	sync
	Wait Key
	cls
	if lives = 0 then gosub Loose
	gosub MonsterGen
return
Win:
	print "C O N G R A T U L A T I O N S !"
	print "You beat all the monsters!"
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return
Loose:
	print "O H   N O !"
	print "You have fallen to the monsters."
	print "If you want to play again, please restart the game."
	Wait Key
	exit
return

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 01:48

Link

Give this a shot. To keep things simply I retained as much of your code as I could.

load image "0.bmp", 1
load image "1.bmp", 2
load image "2.bmp", 3

points = 0
lives = 3

do
   cls
   monster = rnd(2)+1
   paste image monster, 200, 1
   gosub ProblemGen

if monster = 1 then gosub Addition
   if monster = 2 then gosub Subtraction
   if monster = 3 then gosub Multiplication

if lives=0 or points=20
      exit
   endif
loop

if lives=0
   gosub Loose
else
   gosub Win
endif

end

ProblemGen:
   aparta = rnd(50)
   apartb = rnd(50)
   sparta = rnd(50)
   spartb = rnd(50)
   mparta = rnd(50)
   mpartb = rnd(10)
return

Addition:
   print aparta
   print "Plus"
   print apartb
   print "Equals"
   input "My answer is ---> ", aanswer
   if aanswer = aparta + apartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

Subtraction:
   print sparta
   print "Minus"
   print spartb
   print "Equals"
   input "My answer is ---> ", sanswer
   if sanswer = sparta - spartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

Multiplication:
   print mparta
   print "Times"
   print mpartb
   print "Equals"
   input "My answer is ---> ", manswer
   if manswer = mparta * mpartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

GetPoints:
   cls
   points = points + 1
   print "Your new score is: "; points
   print "Press a key for the next monster."
   wait key
return

LooseLife:
    cls
    lives = lives - 1
    print "Oops! You lost a life! Your current health is now: "; lives
    print "Press a key for the next monster."
    wait key
return

Win:
   cls
   print "C O N G R A T U L A T I O N S !"
   print "You beat all the monsters!"
   print "If you want to play again, please restart the game."
   wait key
return

Loose:
   cls
   print "O H   N O !"
   print "You have fallen to the monsters."
   print "If you want to play again, please restart the game."
   wait key
return

+ Code Snippet

load image "0.bmp", 1
load image "1.bmp", 2
load image "2.bmp", 3

points = 0
lives = 3

do
   cls
   monster = rnd(2)+1
   paste image monster, 200, 1
   gosub ProblemGen

   if monster = 1 then gosub Addition
   if monster = 2 then gosub Subtraction
   if monster = 3 then gosub Multiplication

   if lives=0 or points=20
      exit
   endif
loop

if lives=0
   gosub Loose
else
   gosub Win
endif

end

ProblemGen:
   aparta = rnd(50)
   apartb = rnd(50)
   sparta = rnd(50)
   spartb = rnd(50)
   mparta = rnd(50)
   mpartb = rnd(10)
return

Addition:
   print aparta
   print "Plus"
   print apartb
   print "Equals"
   input "My answer is ---> ", aanswer
   if aanswer = aparta + apartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

Subtraction:
   print sparta
   print "Minus"
   print spartb
   print "Equals"
   input "My answer is ---> ", sanswer
   if sanswer = sparta - spartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

Multiplication:
   print mparta
   print "Times"
   print mpartb
   print "Equals"
   input "My answer is ---> ", manswer
   if manswer = mparta * mpartb
      gosub GetPoints
   else
      gosub LooseLife
   endif
return

GetPoints:
   cls
   points = points + 1
   print "Your new score is: "; points
   print "Press a key for the next monster."
   wait key
return

LooseLife:
    cls
    lives = lives - 1
    print "Oops! You lost a life! Your current health is now: "; lives
    print "Press a key for the next monster."
    wait key
return

Win:
   cls
   print "C O N G R A T U L A T I O N S !"
   print "You beat all the monsters!"
   print "If you want to play again, please restart the game."
   wait key
return

Loose:
   cls
   print "O H   N O !"
   print "You have fallen to the monsters."
   print "If you want to play again, please restart the game."
   wait key
return

Back to top

Profile PM Email

zero32

7

Years of Service

User Offline

Joined: 28th Jul 2016

Location:

Posted: 22nd Feb 2017 10:59

Link

AndRaxius wrote: "An error code saying "Unable to load image at line 5."
I'm trying to figure out what is causing the image error, and I think it has to do with the id being "0"."

you are right. the ids of images, sprites, 3d objects all start with 1.
0 is an invalid id.

AndRaxius wrote: "I'm wondering if there is a way to constraint the lowest random number, so I don't have to give an image an id of 0. Is there any way to do that?"

short answer: 1+rnd(2) (just like WickedX did it)

sometimes, writing those things to paper might seem strange at first but can lead to the right answer. if you write down your result (0, 1, 2) and the wanted result (1, 2, 3) and then compare those values, it becomes obvious what you need to change. (add 1 to the result of rnd(2))
in school, my teacher gave me the task to make an array with 5 values. the first item would be a random number and the second should be the first value raised to the power of 2, the third value should be the first value raised to the power of 3 and so on. all of that only with for loops.
he told me that i would need 2 for loops to reach my goal. I had no idea how to do it, but after writing it down:

+ Code Snippet

dim arr(4)
value=186
arr(0)=value
arr(1)=value*value
arr(2)=value*value*value
arr(3)=value*value*value*value
arr(4)=value*value*value*value*value

i found that the next item is just the previous item times the first item and i could do it with only one for loop. my teacher was impressed.

+ Code Snippet

dim arr(4)
value=186
arr(0)=value
for i=1 to 4
arr(i)=arr(i-1)*arr(0)
next i

Back to top

Profile PM

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 14:12

Link

Thank you guys SO much for the help! I can't express how grateful I am.

The code WickedX sent works fantasticly. Thanks mate!

However, the text and images are still flickering? Any easy way to fix this?

Thanks!

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 14:43

Link

What version of DB are you using. If 9Ex you may need to update to newest release.

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 15:02

Link

Well, I'm using Indigo, but I'm not sure which version. How do I check?

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 15:17

Link

Is the flicker in the IDE or the application. I don't use indigo, but you should find your DBPro version in help about.

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 15:29

Link

Its the application that is flickering, the IDE is fine.

This is all I could find in terms of versions...

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 15:48

Link

In Editor folder in your DBPro installed path you will find the file "dbp_config.dll". If you can attach this file I can tell you your DBPro version.

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 16:09

Link

Found it!

AndRaxius - still a piece of human garbage.

Attachments

Login to view attachments

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 16:25

Link

Ok, you are using update version 7.1. First make a backup of your DBPro folder in case something goes wrong. Next install update 7.62 over the original copy. Let me know how this turns out.

http://files.thegamecreators.com/darkbasicprofessional/upgrade/dbpro_upgrade_7_62.zip

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 16:45

Link

The installer doesn't seem to recognize that I have dbpro installed. Now that I look at my files, it says that I'm using something called "rapid game pro". I'm not sure what this entails...

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 17:04 Edited at: 22nd Feb 2017 17:15

Link

"rapid game pro"; never heard of it. Where did you get that from? The attached zip file is extracted from the update 7.62 installer. Copy the file over your original DBPro folder.

Edit: Look like the file may be to large to attach. Boy, we will really have to do this the hard way. If you don't already have 7-zip installed on your system, download and install it now. After that's done, right click on the update installer and open the file in 7-zip. Now extract it to your desktop. Copy the files in the $_OUTDIR folder to your DBPro folder. Hopefully that will do it.

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 17:23

Link

Ok, so I think it worked. I basically just copied all the dbpro stuff into my rapid game pro folder, and just replaced any files with the same names. Is there a way to test if the installation worked?

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 17:27

Link

Do you still get the flicker?

Back to top

Profile PM Email

AndRaxius

7

Years of Service

User Offline

Joined: 16th Feb 2017

Location:

Posted: 22nd Feb 2017 17:52

Link

Y A Y ! NO FLICKER!

Thank you SO much! Is there a way to give you something akin to a medal or favorite or something?

AndRaxius - still a piece of human garbage.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Feb 2017 21:29

Link

Fantastic! Just knowing I could help is all the reward I need.

Back to top

Profile PM Email

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 24th Feb 2017 00:59

Link

Quote: " A Y ! NO FLICKER!

Thank you SO much! Is there a way to give you something akin to a medal or favorite or something?"

Actually there is

click his profile button at the bottom of one of his posts and you can nominate him for an appropriate badge.

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Strange Error. . .

Attachments