Just BASIC Files Archive

Can you give some examples?
In some cases the files are part of the JB distribution, so you already have them.
In other cases they are downloadable through an external link in the post.
Some internet sites might also have been brought down by its owner, so you might be lucky and get the resources ...

Hi,

this forum is just used for sharing code that is to big to fit into a post or needs additional files.

Since you already started two other threads on the main forum, I would advice you to read the replies there.

BTW, posting one question to multiple forums doesn't help you getting a better ...

This forum is for uploading huge source code files, discussion is taking place at http://justbasic.conforums.com/

To get help you need to register at http://justbasic.conforums.com/

BTW, your code doesn't seem to be complete.

This is a files archive, so people are seldom here for discussion.

It is better to post the problem at http://justbasic.conforums.com/ and only upload the file here for reference.

cassiope01 wrote:A version with Maze Editor...

It would be nice to not include the error.log file.

May be you could use the Community Code Zip

Allow the user to select the location of Just BASIC in addition to select the location of the created data files.

Putting user created files into an installation folder of an application is against the Windows migration guidelines.

It would be so much easier, if the source code would be included in the ZIP archive, copy and paste of such a long code is a pain.

In addition people will be annoyed by having to scroll such a long way to see the archive, which after downloading does not contain the source code.

There is no ...

Attached find the original example at Processing.org translated in to JB.

There is one using only graphics commands and one with sprites.

I would replace CHR$(0) by a space in the display routine.

Sub Path.Print
' Display the loaded world map
Con(Path.StartX,Path.StartY) = asc("S")
Con(Path.EndX,Path.EndY) = asc("E")

For y = 1 To Path.Height
line$ = ""
For x = 1 To Path.Width
if Con(x,y) = 0 then
line$ = line$;" "
else ...

I think, that the path found:
++++++++++++++++++++++++++
+ +
+ PPPPPPPPP +
+ P+++++++P +
+ P+PPPP+ P +
+ PPP+ P+ P PPP PPP+
+ + + S+ PPP+PP PP+P+
+ ++++++++++ +PP PP+ P+
+ + +PPPPP+ P+
+ +++++++++ +++++ P+
+ + P+
+ +++++ PPPPPPP+
+ + P+++++++
+ ++PPPP +
+ + +P E +
++++++++++++++++++++++++++

is ...

I favor the following display routine, since it indicates the start and end of the path too.

Sub Path.Print
' Display the loaded world map
Con(Path.StartX,Path.StartY) = asc("S")
Con(Path.EndX,Path.EndY) = asc("E")

For y = 1 To Path.Height
line$ = ""
For x = 1 To Path.Width
line$ = line ...

Nice demo, so the next program will be a maze

It will be more confusing for people, if you separate the resources from the other files.

Thanks for the update

Thanks for the update