Nominate games (or other programs) here to get featured on our Blog!

Question

Got a game you made that you want us to review for being featured on the blog? Maybe someone else's game that you think is great?

The Small Basic blog: http://blogs.msdn.com/b/smallbasic/

Post the game/program in this thread to nominate them!

Please include the following information:

1. Name of the game/program. Try to come up with something cool and that differentiates it. Instead of "Maze Game", call it "Smily Face Maze" or "Turtle Maze". For example, rather than "Tank Game", the TeamChallenge teams came up with "Tankinator" and "Tank Rampage". I might help you come up with a more interesting/different name if yours seems to generic.
2. Link to the program listing: http://smallbasic.com/smallbasic.com/program/ - What's your listing code? Include the full link to get us there faster.
3. Link to the download page. If your game/program runs better locally, then zip the files/folders together and upload it to the TechNet Gallery. Include the link to your gallery page. We've got a "Small Basic" tag going in the gallery. Here's the TechNet Gallery: http://gallery.technet.microsoft.com/
4. Name and Link to the creator's Profile Page. If it was you, then just include your name. Your profile link is attached to your post anyway. But if someone else wrote it, please link to their profile. If multiple people made the game/program, please include a profile link for each person and explain what they did (if you know).

I and other Small Basic community folks (like LitDev and some Microsoft employees) will evaluate the programs to select the ones to feature on the blog. If we don't select yours, we can explain why (if you want) and give you steps to make your program "better" (more fun/unique/etc.).

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 1

Here is the new version of my old game I used to call "Breaker". Since It had the same name as my previous game it didn't catch the eyes. I changed the name to a more unique one. It's the best game that I have made with small basic so far. Here are the descriptions:

Block Smasher V2.0 Ultimate
Finally, the ultimate version of the Block Smasher game is out! download it from here and play. It has 6 distinct levels and I also added save/load features and cheat codes to the game for more fun. You will get the cheat codes once you finish the game (And please don't cheat to find the cheat codes! Play the game thoroughly!). Follow this link to download: Block Smasher V2.0 Ultimate on Microsoft Technet Gallery


And I downloaded the sound used in the main menu from here:

Garden party.mp3

Also if you are looking for the source code find it in my previous post here: Sourrce code of Block Smasher

Answer 2

Amir's LED display program.

http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/3cf9385b-fdb0-4f42-9436-21d95e778903#b617a188-4fb0-40ea-b64e-135113640f9a

Modify it to show your own message!

Modified version ZRL837

Answer 3

Amir's LED display program, NGJ236.

http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/3cf9385b-fdb0-4f42-9436-21d95e778903#b617a188-4fb0-40ea-b64e-135113640f9a

Modify it to show your own message!

Hi LitDev,

I made a Text String to LED Font generator to show a full message.

---

Merry Xmas!

Answer 4

Great. I'll feature both of these. Thanks, guys!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 5

I'm nominating Zock's Tankinator:

Download Version 0.02: http://gallery.technet.microsoft.com/Tankinator-Small-Basic-Game-55a77a3f

Features added:

1) Added pause Feature ("P" to activate) - Thanks to litdev for source code

2) Added a Feature to enable setting the aim of the turret - As suggested by Ed Price

3) Added different turret wreck shapes for different turrets

4) fixed countless bugs

Give feedback here: http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/90825e1b-de5a-49e8-8fbe-ced2a5d9ccc9

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 6

Featured LED Display here: http://blogs.msdn.com/b/smallbasic/archive/2013/01/06/led-display-small-basic-featured-program.aspx

Thanks to Amir and LitDev!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 7

Soda Pop Showdown is the name of the game I would like to nominate. it is made by JKrueg.

Here is the Listing The code is SND683.

http://social.msdn.microsoft.com/profile/jkrueg/?ws=usercard-mini that is the link to the creators page!

I think this game is very fun and addictive to play that is why I am nominating it.

Answer 8

Thanks CLC!

I'm also nominating Small Music Player: http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/5ed51f6b-4029-4c9b-8019-73fcb492b80e/ 

by Amir CPS, NaochanON, and Absolu 

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 9

Latest features:

Block Smasher by Behnam Azizi: http://blogs.msdn.com/b/smallbasic/archive/2013/01/03/block-smasher-small-basic-featured-program.aspx

LED Display by Amir: http://blogs.msdn.com/b/smallbasic/archive/2013/01/06/led-display-small-basic-featured-program.aspx

Tankinator by Zock: http://blogs.msdn.com/b/smallbasic/archive/2013/01/09/tankinator-small-basic-featured-game.aspx 

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

Answer 10

Latest features:

LitDev's Alien Barrage: http://blogs.msdn.com/b/smallbasic/archive/2013/01/13/alien-barrage-small-basic-featured-game.aspx

Amir CPS's Small Music Player: http://blogs.msdn.com/b/smallbasic/archive/2013/01/15/small-music-player-small-basic-featured-program.aspx

JKrueg's Soda Pop Showdown: http://blogs.msdn.com/b/smallbasic/archive/2013/01/19/soda-pop-showdown-small-basic-featured-game.aspx

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 11

I'd like to nominate my own program.

it's called SB Story Writer

Here's the publish code: KKK028

It's not graphically pleasing but it will make you laugh.

Also I might update the program.

Answer 12

That's an awesome and funny program! Thanks for sharing it with the Small Basic community.

---

I am an 11 year old that loves math, games, and computers. 'Binary is as easy as 1, 10, 11.'

Answer 13

What about this? a binary calc :P first i made it in VB and then in SB

Import : THJ835 ' i got the idea to make a binary calculator from this program.

___________________________________________________________________________________

A Vigenere cipher program.

Import : WCD295

___________________________________________________________________________

A Abacus Program by my Facebook friend "Harry Hardjono"

Import : CKX791

A Spirograph by me.

Import : BCD721__________________________________________________________________________________________________________________

---

Merry Xmas!

Answer 14

I'd like to nominate my own program.

it's called SB Story Writer

Here's the publish code: KKK028

It's not graphically pleasing but it will make you laugh.

Also I might update the program.

Talgon, it doesn't run online. Could you include a download to it? One way to do that is on TechNet Gallery.

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 15

What about this? a binary calc :P first i made it in VB and then in SB

Import : THJ835 ' i got the idea to make a binary calculator from this program.

___________________________________________________________________________________

A Vigenere cipher program.

Import : WCD295

___________________________________________________________________________

A Abacus Program by my Facebook friend "Harry Hardjono"

Import : CKX791

A Spirograph by me.

Import : BCD721__________________________________________________________________________________________________________________

---

Merry Xmas!

Amir, very cool. I'll feature the binary/decimal converter now. And I'll check out some of the others.

Do you know what would be cool? A text to binary converter. =^)

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 16

I made a text to binary and binary to text converter

Import : JKH581

Small change in codes to handle "NewLine" character

Import : BTN178

---

1.GraphicsWindow.Width = 400

2.GraphicsWindow.Height = 300

3.GraphicsWindow.Title = "Text to Binary : Binary to Text"

4. 

5.TextBox = Controls.AddMultiLineTextBox(10,10)

6.Controls.SetSize(TextBox,380,250)

7.ButtonTB = Controls.AddButton("Convert to Binary",10,265)

8.ButtonBT = Controls.AddButton("Convert to Text",140,265)

9.Controls.ButtonClicked = onClick

10. 

11.Sub onClick

12.  LastButton = Controls.LastClickedButton

13.  If LastButton = "Button1" Then

14.    ConvertToBinary()

15.  Else

16.    ConvertToText()

17.  EndIf

18.EndSub

19.Sub ConvertToBinary

20.  String = Controls.GetTextBoxText(TextBox)

21.  For i = 1 To Text.GetLength(String)

22.    CharCode = Text.GetCharacterCode(Text.GetSubText(String,i,1))

23.    'convert ascii codes into binary

24.    bit = ""

25.    binval = ""

26.    Count = 0

27.    While CharCode > 0

28.      bit[Count] = Math.Remainder(CharCode,2)

29.      CharCode = Math.Floor(CharCode / 2)

30.      Count = Count + 1

31.    EndWhile

32.    For j = Array.GetItemCount(bit) To 0 Step -1

33.      binval = Text.Append(binval,bit[j])

34.    EndFor

35.    'add leading zero to make binary value even

36.    For b = 0 To 8 - Text.GetLength(binval)

37.      binval = Text.Append(0,binval)

38.    EndFor

39.    longbin = Text.Append(longbin,binval)

40.  EndFor

41.  Controls.SetTextBoxText(TextBox,longbin)

42.  longbin = ""

43.EndSub

44.Sub ConvertToText

45.  Binary = Controls.GetTextBoxText(TextBox)

46.  If Math.Remainder(Text.GetLength(Binary),8) <> 0 Then

47.    GraphicsWindow.ShowMessage("Binary is un even","Error")

48.  Else

49.    For g = 1 To Text.GetLength(Binary) Step 8

50.      Binarychar = Text.GetSubText(Binary,g,8)

51.      'Convert binary to decimal

52.      For bit_Count = 1 To Text.GetLength(Binarychar)

53.        binaryNum = binaryNum + Text.GetSubText(Binarychar,Text.GetLength(Binarychar)-bit_Count+1,1)*Math.Power(2,bit_Count-1)

54.      EndFor

55.      'get char from ascci code

56.      Char = Text.GetCharacter(binaryNum)

57.      binaryNum = ""

58.      'append char

59.      LongString = Text.Append(LongString,Char)

60.    EndFor

61.    Controls.SetTextBoxText(TextBox,LongString)

62.    LongString = ""

63.  EndIf

64.EndSub

---

Merry Xmas!

Answer 17

What about this? a binary calc :P first i made it in VB and then in SB

Import : THJ835 ' i got the idea to make a binary calculator from this program.

___________________________________________________________________________________

A Vigenere cipher program.

Import : WCD295

___________________________________________________________________________

A Abacus Program by my Facebook friend "Harry Hardjono"

Import : CKX791

A Spirograph by me.

Import : BCD721__________________________________________________________________________________________________________________

---

Merry Xmas!

Amir, very cool. I'll feature the binary/decimal converter now. And I'll check out some of the others.

Do you know what would be cool? A text to binary converter. =^)

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

i was talking about this.

---

Merry Xmas!

Answer 18

Amir,

I featured the cipher here: http://blogs.msdn.com/b/smallbasic/archive/2013/01/30/vigen-232-re-cipher-small-basic-featured-program.aspx

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 19

Amir, I love the Text to Binary Converter! Ha! So geeky cool!

I blogged about it here: http://blogs.msdn.com/b/smallbasic/archive/2013/02/01/text-to-binary-converter-small-basic-featured-program.aspx

And I left a ciphered message! =^)

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 20

Nice text/binary converter! It works very well, fast, and efficiently!

---

I am an 11 year old that loves math, games, and computers. 'Binary is as easy as 1, 10, 11.'

Answer 21

More programs I need to feature from this thread...

http://smallbasic.com/smallbasic.com/program/?KKK028 - Silly Story Writer from Talgon96 (http://social.msdn.microsoft.com/profile/talgon96). You have to run it locally, but it's hilarious.

http://smallbasic.com/smallbasic.com/program/?CKX791 - Small Basic Abacus from Harry Hardjono. Very cool. Even has a sound.

http://smallbasic.com/smallbasic.com/program/?BCD721 - Spirograph by 4mir (http://social.msdn.microsoft.com/profile/4mir%20'-/). This is amazing and fun!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 22

I will post many fractals here:

Original Mandelbrot: BTB864

Mandelbrot slightly modified for stripes on Mandelbrot points: NNH913

Burning ship fractal: KKP799

Tricorn Mandelbrot: LHN438

Julia set (change 'realVal' and 'imagVal' for different Julias): HVD712

Multibrot for d=4: VJT156

Multibrot for d=3: GMW425

And that's all for now!

---

I am an 11 year old that knows Small Basic and is learning Java and C. 'Binary is as easy as 1, 10, 11.'

Answer 23

I will post many fractals here:

Original Mandelbrot: BTB864

Mandelbrot slightly modified for stripes on Mandelbrot points: NNH913

Burning ship fractal: KKP799

Tricorn Mandelbrot: LHN438

Julia set (change 'realVal' and 'imagVal' for different Julias): HVD712

Multibrot for d=4: VJT156

Multibrot for d=3: GMW425

And that's all for now!

---

I am an 11 year old that knows Small Basic and is learning Java and C. 'Binary is as easy as 1, 10, 11.'

I love the Mandelbrot Stripes fractal!

http://smallbasic.com/smallbasic.com/program/?NNH913

Ooh, the Tricorn Mandelbrot is also cool: http://smallbasic.com/smallbasic.com/program/?LHN438

Okay, for starters I added a Fractal section under Math here: http://blogs.msdn.com/b/smallbasic/archive/2013/02/17/small-basic-program-gallery-listed-by-category.aspx 

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 24

Chomper by QBasicLover, thread here http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/85146e0c-4653-44d4-9b04-fe17c2a90ce0.

Current version Import CTF676.  Check for more recent version, but this one is good.

Answer 25

Updated version import is BFN681

Answer 26

hey i would like to nominate my first smallbasic program-a shell (macron 32). i created this in about 2 or 3 weeks and i just wanted to see if anyone liked it, so that i could update to macron 64. you can find it on technet if you enter in the search box: "The theme to my shell"

Thank you.

here is the source (goto technet to get music and image files)

GraphicsWindow.Show()
GraphicsWindow.Title = "Macron 32"
GraphicsWindow.Width = 650
GraphicsWindow.Height = 400
image1 = "C:\Users\User\Documents\SMALL Files\Macron Logo.png"
GraphicsWindow.DrawResizedImage(image1, 0, 0 ,650, 400)
Sound.PlayAndWait("C:\Users\User\Documents\SMALL Files\song.mp3")
GraphicsWindow.Hide()
GraphicsWindow.Clear()
TextWindow.Title="Macron 32"
TextWindow.ForeGroundColor="green"
MACRON:
time=Clock.Time
TextWindow.Clear()
TextWindow.WriteLine("enter a username: ")
username=TextWindow.Read()
HOME:
TextWindow.title="Macron 32"
TextWindow.Clear()
TextWindow.WriteLine("welcome to Macron 32, "+username+"!")
TextWindow.WriteLine("it is "+time)
TextWindow.WriteLine("-----------------------------------")
TextWindow.WriteLine("programs:")
TextWindow.WriteLine(">calculator [calc]")
TextWindow.WriteLine(">word machine [wordmach]")
TextWindow.WriteLine(">1 player game [1pgame]")
TextWindow.WriteLine(">2 player game [2pgame]")
TextWindow.WriteLine(">online dictionary [dic]")
TextWindow.WriteLine(">browse pc [bro]")
TextWindow.WriteLine(">help [hlp]")
TextWindow.WriteLine(">reboot [reb]")
TextWindow.WriteLine(">exit [exit]")
TextWindow.WriteLine("-----------------------------------")
programselect=TextWindow.Read()
If programselect=("calc") Then
Goto CALC
Else
If programselect=("wordmach") Then
Goto WORDMACH
Else
If programselect=("1pgame") Then
Goto PGAMEO
Else
If programselect=("2pgame") Then
Goto PGAMET
Else
If programselect=("reb") Then
  Goto MACRON
Else
  If programselect=("exit") Then
    Program.End()
    ELSE
    If programselect=("dic") Then
      Goto DIC
    Else
      If programselect=("bro") Then
        Goto MUZIC
       Else
      If programselect=("hlp") Then
        Goto HELP
      Else
        TextWindow.WriteLine("unknown command!")
        Program.Delay(1000)
        Goto HOME
      EndIf
      EndIf
EndIf   
EndIf
EndIf
EndIf
EndIf
EndIf

PGAMEO:
TextWindow.Clear()
TextWindow.title="Guessing Game-Macron 32"
rand=Math.GetRandomNumber(10)
TextWindow.WriteLine("guess a number 1-10: ")
ans=textwindow.Read()
If ans=rand Then
  TextWindow.WriteLine("you win!")
  Program.Delay(1000)
  Goto HOME
Else
  TextWindow.WriteLine("awwwww...")
  Program.Delay(1000)
  Goto HOME
  EndIf
  PGAMET:
  TextWindow.Clear()
  TextWindow.title="2 Player Word Guessing Game-Macron 32"
  TextWindow.WriteLine("player enter a word: ")
  pword=textwindow.Read()
  TextWindow.WriteLine("player enter a clue: ")
  pclue=textwindow.Read()
  TextWindow.Clear()
  TextWindow.WriteLine("clue:")
  TextWindow.WriteLine(pclue)
   TextWindow.WriteLine("------------------")
  ppword=textwindow.Read()
  If ppword=pword Then
    TextWindow.WriteLine("you win!")
    Program.Delay(1000)
    Goto HOME
  Else
    TextWindow.WriteLine("awwwww...")
    Program.Delay(1000)
    Goto HOME
    EndIf
  If pword=("\back") Then
    Goto HOME
    Else
      If pword Or pclue Or ppword=("\exit") Then
        Program.End()
      EndIf
      EndIf
   
  'calculator
CALC:
TextWindow.Title="Calculator-Macron 32"
num1=0
num2=0
TextWindow.Clear()
TextWindow.WriteLine("number? ")
TextWindow.WriteLine("-------")
num=TextWindow.Read()
TextWindow.WriteLine("number 2? ")
TextWindow.WriteLine("---------")
numb=TextWindow.Read()
TextWindow.WriteLine("process? [add][sub][div][mul] ")
TextWindow.WriteLine("--------------------------")
pro=Textwindow.Read()
If pro=("add")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num+numb)
Program.Delay(1000)
Goto HOME
EndIf

  If pro=("sub")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num-numb)
Program.Delay(1000)
Goto home
EndIf
   
  If pro=("div")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num/numb)
Program.Delay(1000)
Goto home
EndIf
   
  If pro=("mul")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num*numb)
Program.Delay(1000)
Goto home
EndIf
   
    'word machine
    WORDMACH:
    TextWindow.Clear()
    TextWindow.title= "Word Machine-Macron 32"
    TextWindow.WriteLine(": ")
    entry=Textwindow.Read()
    TextWindow.WriteLine("----------------------")
    TextWindow.WriteLine("exit? [y][n]")
    exit=Textwindow.read()
    If exit=("y") Then
      Goto HOME
    EndIf
      If exit=("n") Then
Goto wordmach
        EndIf
    If entry=("\back") Then
      Goto HOME
    EndIf
    If entry=("\exit") Then
      Program.End()
    EndIf
   
    MUZIC:
    TextWindow.Clear()
    TextWindow.Title="SongFinder-Macron 32"
    TextWindow.WriteLine("please type in exact location of song.")
    TextWindow.WriteLine("ex: C:\Users\User\Files\Song.mp3")
    TextWindow.WriteLine("--------------------------------------")
    location=textwindow.Read()
    TextWindow.WriteLine("playing "+location)
    TextWindow.WriteLine("--------------------------------------")
    sound.playandwait(location)
    TextWindow.WriteLine("done")
    Program.Delay(1000)
    Goto HOME
  EndIf
'dictionary
DIC:
TextWindow.Clear()
TextWindow.title="Dictionary-Macron 32"
TextWindow.WriteLine("word? ")
TextWindow.WriteLine("-----")
word=TextWindow.read()
define=Dictionary.GetDefinition(word)
TextWindow.Clear()
TextWindow.WriteLine(define)
If word=("\back") Then
  Goto HOME
EndIf
If word=("\exit") Then
  Program.End()
EndIf
TextWindow.WriteLine("what now? ")
TextWindow.WriteLine("---------")
whatnow=textwindow.Read()
If whatnow=("\back") Then
  Goto HOME
Else
  If whatnow=("\exit") Then
    Program.End()
    EndIf
  EndIf

'help
HELP:
TextWindow.title="Help Prompt-Macron 32
TextWindow.Clear()
TextWindow.WriteLine("help prompt")
TextWindow.WriteLine("macron 32 by drew tarnowski")
TextWindow.WriteLine("-----------")
TextWindow.WriteLine("\back - return to homescreen")
TextWindow.WriteLine("\exit - exit macron")
TextWindow.WriteLine("----------------------------")
helpnow=textwindow.Read()
If helpnow=("\back") Then
  Goto HOME
Else
  If helpnow=("\exit") Then
    Program.End()
    EndIf
  Endif

Answer 27

I'm nominating Zock's Tankinator:

Download Version 0.02: http://gallery.technet.microsoft.com/Tankinator-Small-Basic-Game-55a77a3f

Features added:

1) Added pause Feature ("P" to activate) - Thanks to litdev for source code

2) Added a Feature to enable setting the aim of the turret - As suggested by Ed Price

3) Added different turret wreck shapes for different turrets

4) fixed countless bugs

Give feedback here: http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/90825e1b-de5a-49e8-8fbe-ced2a5d9ccc9

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

do you have the updated version on here?

---

It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

Answer 28

I'd like to nominate this game by NaochanON.

http://smallbasic.com/smallbasic.com/program/?rzd792

The program runs well - very smooth and playable.

Also liked how it was written, easy to read and learn from.

Answer 29

I'd like nominate this beta version of a "Single Character String Searcher", by me.

Import: XMX755

http://smallbasic.com/program/?XMX755

Features:

• A colourful Interactive Program that searches any String for a given character.
• "Quick Input Mode"
• stores results in a multidimensional variable
• uses relevant character codes
• and a friendly UI.

Answer 30

I made a "3D Maze" type program as an exercise. Had not programmed anything for about 25 years, fancied getting back into it, and downloaded the free version of Visual Studio. It popped up with the option of SmallBasic, so I thought I'd start there first.

My first attempt at the 3D maze has been uploaded to program ID - DWV967

However, I wanted to develop this further into something that resembled the old Bard's Tale games and have some simple textured walls/graphics. But couldn't work out how to transform and project the textures in software alone. I then read about RayCasting being an efficient method of portraying a simple pseudo 3d world made from blocks, with the ability to map simple textures.

Found a tutorial at lodev.org with some sample C++ code. I eventually worked out how to translate this into Smallbasic (have never coded C++ before!!) and managed to get the basic engine working.

After that, I made some improvements to the code (though it is still a bit messy, could probably be optimised and needs more annotation), and included colour shading that gets darker the further away the walls are.

My RayCaster Maze has been uploaded to program ID - BRS931

It's probably not running fast enough to include textures within SmallBasic, which would probably benefit from some type of screen buffering (double buffering?) but am now very keen to see if I can port this to my Nexus 7 using "RFO Basic!", include textures and eventually some basic RPG elements too.

Cheers,

Answer 31

Chomper by QBasicLover, thread here http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/85146e0c-4653-44d4-9b04-fe17c2a90ce0.

Current version Import CTF676.  Check for more recent version, but this one is good.

Okay. I queued up a blog on Chomper using Anthony's latest import code.

I also added it to the list of games: http://blogs.msdn.com/b/smallbasic/archive/2013/02/17/small-basic-program-gallery-listed-by-category.aspx

Thanks, Litdev! (Sorry, I'm catching up on the blog.)

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 32

I'm nominating Zock's Tankinator:

Download Version 0.02: http://gallery.technet.microsoft.com/Tankinator-Small-Basic-Game-55a77a3f

Features added:

1) Added pause Feature ("P" to activate) - Thanks to litdev for source code

2) Added a Feature to enable setting the aim of the turret - As suggested by Ed Price

3) Added different turret wreck shapes for different turrets

4) fixed countless bugs

Give feedback here: http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/90825e1b-de5a-49e8-8fbe-ced2a5d9ccc9

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Twitter, Wiki)

do you have the updated version on here?

---

It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

This is the version I featured: http://blogs.msdn.com/b/smallbasic/archive/2013/01/09/tankinator-small-basic-featured-game.aspx

If you have a newer version, then I can just post again with the update.

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 33

hey i would like to nominate my first smallbasic program-a shell (macron 32). i created this in about 2 or 3 weeks and i just wanted to see if anyone liked it, so that i could update to macron 64. you can find it on technet if you enter in the search box: "The theme to my shell"

Thank you.

here is the source (goto technet to get music and image files)

GraphicsWindow.Show()
GraphicsWindow.Title = "Macron 32"
GraphicsWindow.Width = 650
GraphicsWindow.Height = 400
image1 = "C:\Users\User\Documents\SMALL Files\Macron Logo.png"
GraphicsWindow.DrawResizedImage(image1, 0, 0 ,650, 400)
Sound.PlayAndWait("C:\Users\User\Documents\SMALL Files\song.mp3")
GraphicsWindow.Hide()
GraphicsWindow.Clear()
TextWindow.Title="Macron 32"
TextWindow.ForeGroundColor="green"
MACRON:
time=Clock.Time
TextWindow.Clear()
TextWindow.WriteLine("enter a username: ")
username=TextWindow.Read()
HOME:
TextWindow.title="Macron 32"
TextWindow.Clear()
TextWindow.WriteLine("welcome to Macron 32, "+username+"!")
TextWindow.WriteLine("it is "+time)
TextWindow.WriteLine("-----------------------------------")
TextWindow.WriteLine("programs:")
TextWindow.WriteLine(">calculator [calc]")
TextWindow.WriteLine(">word machine [wordmach]")
TextWindow.WriteLine(">1 player game [1pgame]")
TextWindow.WriteLine(">2 player game [2pgame]")
TextWindow.WriteLine(">online dictionary [dic]")
TextWindow.WriteLine(">browse pc [bro]")
TextWindow.WriteLine(">help [hlp]")
TextWindow.WriteLine(">reboot [reb]")
TextWindow.WriteLine(">exit [exit]")
TextWindow.WriteLine("-----------------------------------")
programselect=TextWindow.Read()
If programselect=("calc") Then
Goto CALC
Else
If programselect=("wordmach") Then
Goto WORDMACH
Else
If programselect=("1pgame") Then
Goto PGAMEO
Else
If programselect=("2pgame") Then
Goto PGAMET
Else
If programselect=("reb") Then
  Goto MACRON
Else
  If programselect=("exit") Then
    Program.End()
    ELSE
    If programselect=("dic") Then
      Goto DIC
    Else
      If programselect=("bro") Then
        Goto MUZIC
       Else
      If programselect=("hlp") Then
        Goto HELP
      Else
        TextWindow.WriteLine("unknown command!")
        Program.Delay(1000)
        Goto HOME
      EndIf
      EndIf
EndIf   
EndIf
EndIf
EndIf
EndIf
EndIf

PGAMEO:
TextWindow.Clear()
TextWindow.title="Guessing Game-Macron 32"
rand=Math.GetRandomNumber(10)
TextWindow.WriteLine("guess a number 1-10: ")
ans=textwindow.Read()
If ans=rand Then
  TextWindow.WriteLine("you win!")
  Program.Delay(1000)
  Goto HOME
Else
  TextWindow.WriteLine("awwwww...")
  Program.Delay(1000)
  Goto HOME
  EndIf
  PGAMET:
  TextWindow.Clear()
  TextWindow.title="2 Player Word Guessing Game-Macron 32"
  TextWindow.WriteLine("player enter a word: ")
  pword=textwindow.Read()
  TextWindow.WriteLine("player enter a clue: ")
  pclue=textwindow.Read()
  TextWindow.Clear()
  TextWindow.WriteLine("clue:")
  TextWindow.WriteLine(pclue)
   TextWindow.WriteLine("------------------")
  ppword=textwindow.Read()
  If ppword=pword Then
    TextWindow.WriteLine("you win!")
    Program.Delay(1000)
    Goto HOME
  Else
    TextWindow.WriteLine("awwwww...")
    Program.Delay(1000)
    Goto HOME
    EndIf
  If pword=("\back") Then
    Goto HOME
    Else
      If pword Or pclue Or ppword=("\exit") Then
        Program.End()
      EndIf
      EndIf
   
  'calculator
CALC:
TextWindow.Title="Calculator-Macron 32"
num1=0
num2=0
TextWindow.Clear()
TextWindow.WriteLine("number? ")
TextWindow.WriteLine("-------")
num=TextWindow.Read()
TextWindow.WriteLine("number 2? ")
TextWindow.WriteLine("---------")
numb=TextWindow.Read()
TextWindow.WriteLine("process? [add][sub][div][mul] ")
TextWindow.WriteLine("--------------------------")
pro=Textwindow.Read()
If pro=("add")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num+numb)
Program.Delay(1000)
Goto HOME
EndIf

  If pro=("sub")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num-numb)
Program.Delay(1000)
Goto home
EndIf
   
  If pro=("div")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num/numb)
Program.Delay(1000)
Goto home
EndIf
   
  If pro=("mul")Then
  TextWindow.Clear()
  TextWindow.WriteLine(num*numb)
Program.Delay(1000)
Goto home
EndIf
   
    'word machine
    WORDMACH:
    TextWindow.Clear()
    TextWindow.title= "Word Machine-Macron 32"
    TextWindow.WriteLine(": ")
    entry=Textwindow.Read()
    TextWindow.WriteLine("----------------------")
    TextWindow.WriteLine("exit? [y][n]")
    exit=Textwindow.read()
    If exit=("y") Then
      Goto HOME
    EndIf
      If exit=("n") Then
Goto wordmach
        EndIf
    If entry=("\back") Then
      Goto HOME
    EndIf
    If entry=("\exit") Then
      Program.End()
    EndIf
   
    MUZIC:
    TextWindow.Clear()
    TextWindow.Title="SongFinder-Macron 32"
    TextWindow.WriteLine("please type in exact location of song.")
    TextWindow.WriteLine("ex: C:\Users\User\Files\Song.mp3")
    TextWindow.WriteLine("--------------------------------------")
    location=textwindow.Read()
    TextWindow.WriteLine("playing "+location)
    TextWindow.WriteLine("--------------------------------------")
    sound.playandwait(location)
    TextWindow.WriteLine("done")
    Program.Delay(1000)
    Goto HOME
  EndIf
'dictionary
DIC:
TextWindow.Clear()
TextWindow.title="Dictionary-Macron 32"
TextWindow.WriteLine("word? ")
TextWindow.WriteLine("-----")
word=TextWindow.read()
define=Dictionary.GetDefinition(word)
TextWindow.Clear()
TextWindow.WriteLine(define)
If word=("\back") Then
  Goto HOME
EndIf
If word=("\exit") Then
  Program.End()
EndIf
TextWindow.WriteLine("what now? ")
TextWindow.WriteLine("---------")
whatnow=textwindow.Read()
If whatnow=("\back") Then
  Goto HOME
Else
  If whatnow=("\exit") Then
    Program.End()
    EndIf
  EndIf

'help
HELP:
TextWindow.title="Help Prompt-Macron 32
TextWindow.Clear()
TextWindow.WriteLine("help prompt")
TextWindow.WriteLine("macron 32 by drew tarnowski")
TextWindow.WriteLine("-----------")
TextWindow.WriteLine("\back - return to homescreen")
TextWindow.WriteLine("\exit - exit macron")
TextWindow.WriteLine("----------------------------")
helpnow=textwindow.Read()
If helpnow=("\back") Then
  Goto HOME
Else
  If helpnow=("\exit") Then
    Program.End()
    EndIf
  Endif

Well, do you have an import code? Does it run online? What does this program do?

Thanks

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 34

I'd like to nominate this game by NaochanON.

http://smallbasic.com/smallbasic.com/program/?rzd792

The program runs well - very smooth and playable.

Also liked how it was written, easy to read and learn from.

Very addictive and challenging game! I queued it up to be featured and added it to the list of games here: http://blogs.msdn.com/b/smallbasic/archive/2013/02/17/small-basic-program-gallery-listed-by-category.aspx

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 35

I'd like nominate this beta version of a "Single Character String Searcher", by me.

Import: XMX755

http://smallbasic.com/program/?XMX755

Features:

• A colourful Interactive Program that searches any String for a given character.
• "Quick Input Mode"
• stores results in a multidimensional variable
• uses relevant character codes
• and a friendly UI.

How does it work? I type a string, press Enter, and then it asks me to type a character, it says it's searching and nothing. What else does it do?

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 36

I made a "3D Maze" type program as an exercise. Had not programmed anything for about 25 years, fancied getting back into it, and downloaded the free version of Visual Studio. It popped up with the option of SmallBasic, so I thought I'd start there first.

My first attempt at the 3D maze has been uploaded to program ID - DWV967

However, I wanted to develop this further into something that resembled the old Bard's Tale games and have some simple textured walls/graphics. But couldn't work out how to transform and project the textures in software alone. I then read about RayCasting being an efficient method of portraying a simple pseudo 3d world made from blocks, with the ability to map simple textures.

Found a tutorial at lodev.org with some sample C++ code. I eventually worked out how to translate this into Smallbasic (have never coded C++ before!!) and managed to get the basic engine working.

After that, I made some improvements to the code (though it is still a bit messy, could probably be optimised and needs more annotation), and included colour shading that gets darker the further away the walls are.

My RayCaster Maze has been uploaded to program ID - BRS931

It's probably not running fast enough to include textures within SmallBasic, which would probably benefit from some type of screen buffering (double buffering?) but am now very keen to see if I can port this to my Nexus 7 using "RFO Basic!", include textures and eventually some basic RPG elements too.

Cheers,

<input id="spamFlag" type="hidden" value="" />

This is the best 3D I've seen in Small Basic, that still runs online. Great job!

I added them here: http://blogs.msdn.com/b/smallbasic/archive/2013/02/17/small-basic-program-gallery-listed-by-category.aspx

I'm queuing it up to feature in the blog. Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 37

Hi Ed

Thanks for the fb. There's a small instruction that says hit "ESC" when finished.

2nd screen:

3rd screen, after you hit ESC:

It's not a very exciting program. I wrote to try out ways for "as fast as possible" mass data entry. So minimal key press. It can be expanded to limit the search criteria to more than 1 character and possibly search a db field from a txt file. Possibly not blog material? I enjoyed writing it and it accomplished what I wanted it to, fast criteria input.

---

You have to have a dream so you can get up in the morning. - Billy Wilder

Answer 38

Hi Ed

Thanks for the fb. There's a small instruction that says hit "ESC" when finished.

2nd screen:

3rd screen, after you hit ESC:

It's not a very exciting program. I wrote to try out ways for "as fast as possible" mass data entry. So minimal key press. It can be expanded to limit the search criteria to more than 1 character and possibly search a db field from a txt file. Possibly not blog material? I enjoyed writing it and it accomplished what I wanted it to, fast criteria input.

---

You have to have a dream so you can get up in the morning. - Billy Wilder

Maybe it's my keyboard, but Esc doesn't do anything for me. Do I have to run it locally to get Esc to work?

Thanks!

---

Ed Price (a.k.a User Ed), SQL Server Customer Program Manager (Blog, Small Basic, Wiki Ninjas, Wiki)

Answer an interesting question? Create a wiki article about it!

Answer 39

Yes, it looks that way. Runs fine locally.

I just ran a program that returns char codes on keypress and esc has zero response. Text.GetCharacter(27).

---

You have to have a dream so you can get up in the morning. - Billy Wilder

Answer 40

Wow! Very nice!