User blog:ImNotCalledDave/The Nimagi Freedom Fighter Database

The Intro
Hello! As a way of familiarising myself with Microsoft's Small Basic programming language for computer science, I wrote the following script. If you want to view it yourself, download Small Basic from HERE and copy and paste the rest of this blog into the window.

The Code!
'This script was written by ImNotCalledDave of the Sonic Fan Character Wiki

'All characters belong to their creators

'All characters with no mentioned forms are listed as "none"

Main:

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Welcome to the Nimagi Freedom Fighters Database")

TextWindow.WriteLine ("Open which profile (1 - 14)")

Profile = TextWindow.Read

If Profile = "1" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Axel")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: Leader")

TextWindow.WriteLine ("Age: 19")

TextWindow.WriteLine ("Abilities: Plasma Generation, Vector Control")

TextWindow.WriteLine ("Forms: Super, Dark")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "2" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Shira")

TextWindow.WriteLine ("Species: Fox")

TextWindow.WriteLine ("Position: 2nd in Command")

TextWindow.WriteLine ("Age: 18")

TextWindow.WriteLine ("Abilities: Unknown")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "3" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Asonja")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: Elite Member")

TextWindow.WriteLine ("Age: 16")

TextWindow.WriteLine ("Abilities: Good general combat skills")

TextWindow.WriteLine ("Forms: Fire (lvl 1/ lvl 2)")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "4" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Niwa")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: New Recruit")

TextWindow.WriteLine ("Age: 27")

TextWindow.WriteLine ("Abilities: Unknown")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "5" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Mahdi")

TextWindow.WriteLine ("Species: Weasel")

TextWindow.WriteLine ("Position: Elite Member")

TextWindow.WriteLine ("Age: Unknown")

TextWindow.WriteLine ("Abilities: Technological prowess, Drones")

TextWindow.WriteLine ("Forms: Code Breaker")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "6" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Razz")

TextWindow.WriteLine ("Species: Weasel")

TextWindow.WriteLine ("Position: Elite Member")

TextWindow.WriteLine ("Age: Unknown")

TextWindow.WriteLine ("Abilities: Martial arts, General combat")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "7" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Jane")

TextWindow.WriteLine ("Species: Rabbit")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: 18")

TextWindow.WriteLine ("Abilities: Unknown")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "8" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Karry")

TextWindow.WriteLine ("Species: Rabbit")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: 17")

TextWindow.WriteLine ("Abilities: Healing magic")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "9" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Enigma")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: N/A")

TextWindow.WriteLine ("Abilities: Chaos manipulation, Electricity manipulation")

TextWindow.WriteLine ("Forms: Eternal")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "10" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Raven")

TextWindow.WriteLine ("Species: Panther")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: 16")

TextWindow.WriteLine ("Abilities: Katana skills, Explosives")

TextWindow.WriteLine ("Forms: Dark Angel, Silver Knight, Super")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "11" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Yokotira")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: 19")

TextWindow.WriteLine ("Abilities: Unknown")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "12" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Ollet")

TextWindow.WriteLine ("Species: Hedgehog")

TextWindow.WriteLine ("Position: Member")

TextWindow.WriteLine ("Age: 25")

TextWindow.WriteLine ("Abilities: Knife & dart proficiency")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "13" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Damien")

TextWindow.WriteLine ("Species: Echidna")

TextWindow.WriteLine ("Position: Ally")

TextWindow.WriteLine ("Age: 38")

TextWindow.WriteLine ("Abilities: Martial arts")

TextWindow.WriteLine ("Forms: None")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf

If Profile = "14" Then

TextWindow.Clear

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Name: Rock")

TextWindow.WriteLine ("Species: Cat")

TextWindow.WriteLine ("Position: Ally")

TextWindow.WriteLine ("Age: 17")

TextWindow.WriteLine ("Abilities: Gun proficiency, Explosives")

TextWindow.WriteLine ("Forms: Time Master")

TextWindow.WriteLine ("")

TextWindow.WriteLine ("Press (r) to return")

Exit = TextWindow.Read

If Exit = "r" Then

TextWindow.Clear

Goto Main

Exit = ""

EndIf

EndIf