The Sword of Arisan

[jony_basic]

I'm working on a project in QBasic 4.5, called "the sword of arisan".
It is an RPG/adventure game, in screen 13, with a pixel scrolling engine. (everything is original code, no libraries)
I have spoken about it once or twice in my other posts, but I suppose I should formally intruduce the project on the project board. Here's the short version.

----
A man named arisan must lead an army into battle against another
rising leader. If he fails, it will mean losing all the land that they had
cultivated and lived in for hundreds of years.

He eventually wins the battle, and peace is slowly but surely
restored to the land.
but after a period of time, as if out of nowhere, this corrupt
adversary appears again, and attempts to claim the lands he'd
failed to attain in the past.

Arisan is too old to lead in battle now. You, as Arisan's grand son,
must try to defeat this man before he amasses his forces again.
----

I have been working on this game for about 7 months.
the story is not entirely done, but that is the basic lay out.
I am looking for any writers that might be interested in contributing to this line.
I'm always open to suggestions.
I'm also looking for people who might want to do some sprite work, and map building.
you can read the full story at
http://www.freewebs.com/jony_basic/projects.htm

there will be current screen shots in the screen shots section very soon.

I hope you all like my game, I've been building this story for a long time now.

[shiftLynx]

Awesome. I look forward to playing it.

[marzecTM]

yeah looks great, finally a qb rpg again!

[Z!re]

Get rid of the fixed path. Now.

That is all.

[jony_basic]

I have tried to get relative paths to work many times, my computer seems to not want to do it.
I tried

path$ = ""
OPEN path$ + file$ + ".jif" FOR INPUT AS #1

is that wrong?
(I've posted about this before)
everyone else says it works.

[shiftLynx]

The chances are that your program is outside of your QBasic directory (i.e. where qb.exe, bc.exe, etc. are). To fix this, there are a few ways:

1) Create a shortcut to QB.exe in your folder and edit its Properties so that the working directory is your project's directory.

2) When you start QB, go to File and then Shell. From there, use MS-DOS to navigate to your project directory (i.e. cd\your\project\dir), then type 'exit' to return to QB.

3) Add a line to the start of your program that uses the CHDIR command to change to your project directory. When you're ready to release the code, remember to comment out that line.

[SSC]

the only think I dont like so far is the way the character scrolling looks choppy as he hits the edge of the screen.

[na_th_an]

http://faq.qbasicnews.com/?blast=RelativePaths

[jony_basic]

I have been out for a while, but I'm back, and Project Arisan is better than ever.
I've rebuilt the graphics and recreated the camera engine!
It is now pixel * pixel scrolling with pixel perfect movement.
(diagonal moving included)
of course I hope to have the graphics "top notch" so anyone
willing to rate me on that one, feel free.
see screenshots here
If you feel it's good or bad, please tell me, I don't mind critisism.
a demo of the game will be out soon
(within 1 month probably)
I still have a lot of map building to do, so if anyone's interested in helping out, give me a message.
the game will ultimately be an action battle setup, with all RPG elements like stat building and an exiting quest.
hope you're looking forward to it, and that somebody cares. :wink:

Jony_Basic

[Sebastian]

You can use the following code in order to detect the path of your exe file:

Code:

'By Pawel (www.pkworld.de) 1.2002
'======================================================
DECLARE FUNCTION EXENAME$ ()
DECLARE FUNCTION PATHNAME$ ()
'
CLS
'
PRINT EXENAME
PRINT PATHNAME
'
FUNCTION EXENAME$
DIM MCODE(1 TO 4) AS LONG, OS AS INTEGER, BX AS INTEGER, DUMMY AS LONG
DEF SEG = VARSEG(MCODE(1))
OS = VARPTR(MCODE(1))
POKE OS, &H55 'PUSH BP
POKE OS + 1, &H89: POKE OS + 2, &HE5 'MOV BP,SP
POKE OS + 3, &HB4: POKE OS + 4, &H62 'MOV AH,62
POKE OS + 5, &HCD: POKE OS + 6, &H21 'INT 21
POKE OS + 7, &H8B: POKE OS + 8, &H7E: POKE OS + 9, 6'MOV DI,[BP+6]
POKE OS + 10, &H89: POKE OS + 11, &H1D 'MOV [DI],BX
POKE OS + 12, &H5D 'POP BP
POKE OS + 13, &HCA: POKE OS + 14, 2: POKE OS + 15, 0'RETF 2
CALL ABSOLUTE(BX, OS)
DEF SEG = BX
ENVSM = PEEK(&H2C) + 256 * PEEK(&H2D)
ENVOS = 0
DEF SEG = ENVSM
DUMMY = 0&
WHILE DUMMY <> 65536
DUMMY = PEEK(ENVOS) + 256& * (PEEK(ENVOS + 1) + 256& * (PEEK(ENVOS + 2) + 256& * PEEK(ENVOS + 3)))
ENVOS = ENVOS + 1
WEND
ENVOS = ENVOS + 3
N$ = ""
A = 1
WHILE A <> 0
A = PEEK(ENVOS)
IF A <> 0 THEN N$ = N$ + CHR$(A)
ENVOS = ENVOS + 1
WEND
DEF SEG
EXENAME$ = N$
END FUNCTION
'
FUNCTION PATHNAME$
FOR idx = LEN(EXENAME$) TO 1 STEP -1
  IF MID$(EXENAME$, idx, 1) = "\" THEN EXIT FOR
NEXT idx
PATHNAME$ = LEFT$(EXENAME$, idx - 1)
END FUNCTION

Sebastian