CMM2: World and State Capitals quizzes

Author Message
bar1010
Senior Member

Joined: 10/08/2020
Location: United States
Posts: 197
Posted: 04:28am 03 Nov 2022      

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: 197
Posted: 04:39am 03 Nov 2022      





CaptainBoing

Guru

Joined: 07/09/2016
Location: United Kingdom
Posts: 2082
Posted: 09:18am 03 Nov 2022      

Listenbourg is missing
Martin H.

Guru

Joined: 04/06/2022
Location: Germany
Posts: 1121
Posted: 12:12pm 03 Nov 2022      

  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.
Andrew_G
Guru

Joined: 18/10/2016
Location: Australia
Posts: 847
Posted: 06:34pm 03 Nov 2022      

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: 197
Posted: 11:36pm 03 Nov 2022      

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

Joined: 18/10/2016
Location: Australia
Posts: 847
Posted: 12:07am 04 Nov 2022      

  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: 6120
Posted: 01:23am 04 Nov 2022      

  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