the japanese quiz - GameCreators Forum

Author

Message

vid1987

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 13th Jan 2005 09:25

Link

Hello I have built a japanese quiz game its really awesome and i only built it within an hour. its like a guessing game but it repeats the same questions in the same order and i cant figure out how to randomize that. check out my code and fix it to randomize please?

load image "C:/K-A.JPG",1
load image "C:/K-I.JPG",2
load image "C:/K-U.JPG",3
load image "C:/K-E.JPG",4
load image "C:/K-O.JPG",5
load image "C:/K-KA.JPG",6
load image "C:/K-KI.JPG",7
load image "C:/K-KU.JPG",8
load image "C:/K-KE.JPG",9
load image "C:/K-KO.JPG",10

do

paste image 1,X,Y
input "              ", guess$
gh$ = "a" : if guess$ = "a" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 2,X,Y
input "              ", guess$
gh$ = "i" : if guess$ = "i" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 3,X,Y
input "              ", guess$
gh$ = "u" : if guess$ = "u" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 4,X,Y
input "              ", guess$
gh$ = "e" : if guess$ = "e" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 5,X,Y
input "              ", guess$
gh$ = "o" : if guess$ = "o" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 6,X,Y
input "              ", guess$
gh$ = "ka" : if guess$ = "ka" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 7,X,Y
input "              ", guess$
gh$ = "ki" : if guess$ = "ki" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 8,X,Y
input "              ", guess$
gh$ = "ku" : if guess$ = "ku" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 9,X,Y
input "              ", guess$
gh$ = "ke" : if guess$ = "ke" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 10,X,Y
input "              ", guess$
gh$ = "ko" : if guess$ = "ko" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

loop

+ Code Snippet

load image "C:/K-A.JPG",1
load image "C:/K-I.JPG",2
load image "C:/K-U.JPG",3
load image "C:/K-E.JPG",4
load image "C:/K-O.JPG",5
load image "C:/K-KA.JPG",6
load image "C:/K-KI.JPG",7
load image "C:/K-KU.JPG",8
load image "C:/K-KE.JPG",9
load image "C:/K-KO.JPG",10


do

paste image 1,X,Y
input "              ", guess$
gh$ = "a" : if guess$ = "a" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 2,X,Y
input "              ", guess$
gh$ = "i" : if guess$ = "i" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 3,X,Y
input "              ", guess$
gh$ = "u" : if guess$ = "u" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 4,X,Y
input "              ", guess$
gh$ = "e" : if guess$ = "e" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 5,X,Y
input "              ", guess$
gh$ = "o" : if guess$ = "o" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 6,X,Y
input "              ", guess$
gh$ = "ka" : if guess$ = "ka" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif
paste image 7,X,Y
input "              ", guess$
gh$ = "ki" : if guess$ = "ki" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 8,X,Y
input "              ", guess$
gh$ = "ku" : if guess$ = "ku" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 9,X,Y
input "              ", guess$
gh$ = "ke" : if guess$ = "ke" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif

paste image 10,X,Y
input "              ", guess$
gh$ = "ko" : if guess$ = "ko" : print "correct" : sleep 1000 : else : print "wrong" : sleep 1000 : end : endif


loop

Vid

Back to top

Profile PM Email Website

vid1987

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 13th Jan 2005 12:00

Link

Someone respond.. for the love of God help me please...

Vid

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Jan 2005 21:45

Link

Since your images range from 1 to 10 to match questions 1 to 10, you can easily set up an array to store all the answers, then just grab a random number between 1 and 10.

+ Code Snippet

rem set a new random seed
randomize timer()

rem array to store answers
dim answers$(10) as string
answers$(1) = "a"
answers$(2) = "i"
answers$(3) = "u"
answers$(4) = "e"
answers$(5) = "o"
answers$(6) = "ka"
answers$(7) = "ki"
answers$(8) = "ku"
answers$(9) = "ke"
answers$(10) = "ko"



do

   rem random number between 1 and 10
   question = rnd(9)+1

   paste image question,X,Y

   input "          ", guess$

   if guess$ = answers$(question)
      print "correct"
      sleep 1000
   else
      print "wrong"
      sleep 1000
      end
   endif

loop

You could also use an array list so that no questions are asked twice until all questions have been answered at least once.

"eureka" - Archimedes

Back to top

Profile PM Email Website

vid1987

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 13th Jan 2005 22:42

Link

Thanks Phaelax I'll try and remember how to do that.
Peace

Vid

Back to top

Profile PM Email Website

vid1987

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 14th Jan 2005 01:02

Link

How do you make the code where people can download it and play the game?

Vid

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 14th Jan 2005 06:32

Link

You'll need a webhost to upload it to.

Back to top

Profile PM Email Website

1tg46

20

Years of Service

User Offline

Joined: 1st Feb 2004

Location: I dont know!

Posted: 16th Jan 2005 11:01

Link

or upload it to the forums, and then people can download the program.

Click sig for DarkBASIC Network IDE.

Back to top

Profile PM Website

vid1987

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 21st Jan 2005 03:55

Link

how

Vid

Back to top

Profile PM Email Website

Emperor Baal

20

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 22nd Jan 2005 18:59

Link

You can either find a webhost, such as geocities, and upload your file to it.

Or, you can use the attachment function on this forum. When you press reply you can add an attachment with a 1MB maximum file size.

1 more thing, remove c:/ from the load image commands, and put the executable (.exe + code) in the same directory as the images. This will allow other users to use your program.

The reason why you would want to do this is simple, other users probably dont have the images in the same directory on their harddrive (this case c:\)

So, zip up the executable (.exe) and the images and you can upload it here hopefully.

BTW, you probably want to take a look at my site, there's a hiragana teaching tool + source code + media files ready for downloading.

http://www.nuclearpublishing.com/hosting/emperorbaal/

you can find it under [projects/games]

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / the japanese quiz