Home
JAQForum Ver 20.06
Log In or Join  
Active Topics
Local Time 14:17 04 Dec 2022 Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Microcontroller and PC projects : CMM2: World and State Capitals quizzes

Author Message
bar1010
Senior Member

Joined: 10/08/2020
Location: United States
Posts: 184
Posted: 04:28am 03 Nov 2022
Copy link to clipboard 
Print this post

World and State Capitals quizzes for Color Maximite 2

There are three links below to download the three files.  
Had to split into three parts to avoid the 25MB upload limit on github.
You can use 7-Zip Extract Here on the first of the three files.

https://github.com/bar1010/Color-Maximite-2/blob/master/Quizzes.7z.001


https://github.com/bar1010/Color-Maximite-2/blob/master/Quizzes.7z.002


https://github.com/bar1010/Color-Maximite-2/blob/master/Quizzes.7z.003
 
bar1010
Senior Member

Joined: 10/08/2020
Location: United States
Posts: 184
Posted: 04:39am 03 Nov 2022
Copy link to clipboard 
Print this post





 
CaptainBoing

Guru

Joined: 07/09/2016
Location: United Kingdom
Posts: 1855
Posted: 09:18am 03 Nov 2022
Copy link to clipboard 
Print this post

Listenbourg is missing
 
Martin H.

Senior Member

Joined: 04/06/2022
Location: Germany
Posts: 181
Posted: 12:12pm 03 Nov 2022
Copy link to clipboard 
Print this post

  CaptainBoing said  Listenbourg is missing

what about Tomainia?

@bar1010
Sadly did'nt run on MMBasic 4 Windows, but maybee can be converted to the Pico by  shrinking the Images and save as JPG.
btw.
wouldn't it be better to simple encrypt (ROT13) the data to keep players from cheating?

Print ROT13$("Guvf vf n fghcvq fnzcyr grkg jvgu ab zrnavat 123!")
Function ROT13$(encode$)
 Local f%,fnd%
 Local abc$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
 Local nop$="NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm"
 For f%= 1 To Len(encode$)
   fin$=Mid$(encode$,f%,1)
   fnd%=Instr(abc$,fin$)
   If fnd% Then
     ROT13$=ROT13$+Mid$(nop$,fnd%,1)
   Else
     ROT13$=ROT13$+fin$
   End If
 Next f%
End Function

Edited 2022-11-04 05:23 by Martin H.
'no comment
 
Andrew_G
Guru

Joined: 18/10/2016
Location: Australia
Posts: 673
Posted: 06:34pm 03 Nov 2022
Copy link to clipboard 
Print this post

And I'm sorry but Melbourne is the capital of Victoria.
Try Sydney as the capital of NSW.
(but great program once the bugs are squished).
Or is that an example of how it responds to an incorrect answer?

Cheers,

Andrew
(Melbourne, Victoria, Australia)
Edited 2022-11-04 04:41 by Andrew_G
 
bar1010
Senior Member

Joined: 10/08/2020
Location: United States
Posts: 184
Posted: 11:36pm 03 Nov 2022
Copy link to clipboard 
Print this post

My answers to the questions are not necessarily the correct ones.
 
Andrew_G
Guru

Joined: 18/10/2016
Location: Australia
Posts: 673
Posted: 12:07am 04 Nov 2022
Copy link to clipboard 
Print this post

  Quote  My answers to the questions are not necessarily the correct ones.


Bill,
Understood, and appreciated.

Andrew
 
TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 5000
Posted: 01:23am 04 Nov 2022
Copy link to clipboard 
Print this post

  Martin H. said  
@bar1010
Sadly did'nt run on MMBasic 4 Windows,

The only change I had to make was include the full path to the data folders.

After that, it runs happily in MMB4W

Jim
VK7JH
MMedit   MMBasic Help
 
Print this page


To reply to this topic, you need to log in.

© JAQ Software 2022