Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[PTTG??]

Still a work in progress.

Spoiler: batILLION Source (click to show/hide)

Code: [Select]

@ECHO off
::Navigation Vars
SET return=NULL
::World Vars
SET wTime=0
SET Seed=9997
::1073791813
SET passageChance=50
::Room Vars
SET rAddress=0
SET rNorthPassible=1
SET rEastPassible=1
SET rSouthPassible=1
SET rWestPassible=1
SET rTypenumber=0
::Player Vars
SET pX=1785
SET pY=1785
::Player Attributes
SET pHealthMax=100
SET pHealthCur=100
SET pLevel=1
SET pXP=0
SET pMind=10
SET pBody=10

echo ----------------------------
echo Hello! Welcome to BATillion!
echo ----------------------------

::This function generates the curent room and should only be called on arrival
:ARRIVE
SET /a rAddress=(%pX%*3571)+(%pY%*577)
SET i=0
echo You've arrived at %pX%,%pY%.
SET /a rNorthPassible=1
SET /a rEastPassible=1
SET /a rSouthPassible=1
SET /a rWestPassible=1
::Now I can reuse "roll". Must set return to the right flag before each instace...
SET return=ArriveRoll1
GOTO ROLL
:ArriveRoll1
IF %roll% GTR %passageChance% SET /a rNorthPassible=0
SET return=ArriveRoll2
GOTO ROLL
:ArriveRoll2
IF %roll% GTR %passageChance% SET /a rEastPassible=0
::Technically, it looks at the rooms to the south and west and sees if they are passible to the north and west.
SET /a rAddress=(%pX%*3571)+(%pY%*577)+-3571
SET /a i=0

SET return=ArriveRoll3
GOTO ROLL
:ArriveRoll3
IF %roll% GTR %passageChance% SET /a rSouthPassible=0
SET /a rAddress=(%pX%*3571)+(%pY%*577)+-577
SET return=ArriveRoll4
GOTO ROLL
:ArriveRoll4
IF %roll% GTR %passageChance% SET /a rWestPassible=0

::Returns to the current room
SET /a rAddress=(%pX%*3571)+(%pY%*577)

SET return=ArriveRoll5
GOTO ROLL
:ArriveRoll5
SET /a rTypenumber=%roll%

SET return=TRAVEL
GoTO LOOK

::MAIN MENU
:MENU
SET menuinput=0
echo What would you like to do?
echo 1 Look Around
echo 2 Travel or Wait
echo 3 Fight\Interact
echo 4 Search
echo 5 Stats\Inventory
echo 7 Quit
SET /P menuinput=select one (1-7):
set from=MENU
IF %menuinput%==1 GOTO LOOK
IF %menuinput%==2 GOTO TRAVEL
IF %menuinput%==3 GOTO NULL
IF %menuinput%==4 GOTO NULL
IF %menuinput%==5 GOTO NULL
IF %menuinput%==6 GOTO NULL
IF %menuinput%==7 GOTO QUIT
echo select something else!
GOTO MENU

::Look Around menu. Basically, give an update on this location.
:LOOK
echo ----------------------------
echo You are at %pX%, %pY%.
echo This room is room type number %rTypenumber%.
echo ----------------------------
GOTO %return%

:TRAVEL
echo ----------------------------
echo Where would you like to go?
:TMenu
echo  W         Go North
echo ASD West, Stay Here, East
echo  X         Go South
echo      C   Cancel
echo %rNorthPassible%
IF %rNorthPassible%==1 echo You may go North.
IF %rEastPassible%==1 echo You may go East.
IF %rSouthPassible%==1 echo You may go South.
IF %rWestPassible%==1 echo You may go West.
echo ----------------------------
SET /P menuinput=select WASDX, or C...
IF %menuinput%==W GOTO North
IF %menuinput%==w GOTO North
IF %menuinput%==A GOTO West
IF %menuinput%==a GOTO West
IF %menuinput%==S GOTO Wait
IF %menuinput%==s GOTO Wait
IF %menuinput%==D GOTO East
IF %menuinput%==d GOTO East
IF %menuinput%==X GOTO South
IF %menuinput%==x GOTO South
IF %menuinput%==C GOTO MENU
IF %menuinput%==c GOTO MENU
echo You must enter W, A, S, D, X, or C.
GOTO TMenu

:North
::Is north passible?
SET /a pX+=1
SET /a wTime+=1
GOTO ARRIVE

:East
::Is east passible?
SET /a pY+=1
SET /a wTime+=1
GOTO ARRIVE

:West
::Is west passible?
SET /a pY-=1
SET /a wTime+=1
GOTO ARRIVE

:South
::Is south passible?
SET /a pX-=1
SET /a wTime+=1
GOTO ARRIVE

:Wait
echo You wait.
SET /a wTime+=1
GOTO MENU

:QUIT
SET quitchoice=n
SET /P quitchoice=Sure? Enter Y to quit, anything else to cancel:
IF %quitchoice%==Y GOTO END
IF %quitchoice%==y GOTO END
GOTO MENU

:ROLL
SET /a i+=3
::This is a crude psudorandom number generator.There will be artifacts, but it does return a number between 1-100
SET /a roll=(%Seed%+%rAddress%*%i%)%%100
GOTO %return%

:NULL
echo Arrived at NULL!
echo Function probably not yet implemented,
echo or else something has gone wrong.
pause
GOTO MENU

:END
echo ----------------------------
echo Quitting...
echo ----------------------------
pause

It's open source, naturally. Copyrighted and released under GNU, all applicable and inexplicable treaties applied. All rights preserved in mason jars.

I'll be updating this as I get actual functions in there. Basically, it'll be a never-ending map of rooms, with random doors, enemies, and loot.

Why?

Because it's there.

More plans:

Each room will use its unique address as a seed for the procedural generation of contents. Right now that's limited to the number of doors and a test "room type number". The psuedorandom generator is in serious need of help. It does very strange things.

The contents of a room will eventually include some decoration and a "thing". That could be loot, a monster, a shopkeeper, or an "artifact" with special powers like granting one level-up or teleporting you to a random room. Most of these things will be either one-use or permanent. I'm not sure how to save the state of a room after you leave it, though.

[LordBucket]

Still a work in progress.

Yes, not much to look at yet. But a few comments:

 * Note that it's probably possible for you to use ANSI to possibly not only draw out full color maps using high ascii lines and symbols, but to also redraw portions of the screen to create a character who visibly moves around on that map without the vertical text scrolling you have at present. This might or might not require a manual loading of ansi.sys on modern windows.
 * According to a quick search, microsoft claims that there is no size limit to batch files. The dreaded 64k limit put a horrible noose around all my quickbasic games. You appear to have no such limits here. If it were me, I'd probably want to test it myself to confirm that's actually true. You might do the same.

[Levi]

You are a crazy crazy man.   

[PTTG??]

I'm still working on the seeded RNG. %random% works fine for one-off die rolls, but I also need a way to psuedoradomly determine the contents of a room, using the coordinates.

Here's my working model so far:

Spoiler: RNG_test.bat (click to show/hide)

Code: [Select]

@echo off
echo RNG Test
SET size=100
SET pX=0
SET pY=0
SET Seed=2147483647
SET Total=0
SET Loops=0
SET MAX=0
SET MIN=0
SET A=0
SET B=0
SET C=0
SET D=0
SET E=0
SET F=0
SET G=0
SET H=0
SET I=0
SET J=0
SET K=0
SET L=0
SET M=0
SET N=0
SET O=0
SET P=0
SET Q=0
SET R=0
SET S=0
SET T=0
SET U=0

:Loop
SET /a pAddress=%pX%*1000+%pY%+1
::SET /a pNum=51+((%Seed%*227*%pAddress%)%% 50)
SET /a pNum=10+((%Seed%*%pAddress%)%% 11)
SET /a Total+=%pNum%
SET /a Loops+=1
SET /a pY+=1
GOTO Scan
:scanReturn
::Y break
IF %pY% LEQ %size% GOTO Loop
SET pY=0
ECHO ----------------------------
ECHO ROW %pX% COMPLETE
SET /a Average = %Total%/%Loops%
ECHO Average %Average%
ECHO Max %MAX%
ECHO Min %MIN%
ECHO ----------------------------
SET /a pX+=1
::X break
IF %pX% LEQ %size% GOTO Loop
SET pX=0
ECHO ----------------------------
ECHO GRID COMPLETE
SET /a Average = %Total%/%Loops%
ECHO Max %MAX%
ECHO Min %MIN%
ECHO Average %Average%
ECHO Cycles  %Loops%
ECHO 0  %U%
ECHO 1  %A%
ECHO 2  %B%
ECHO 3  %C%
ECHO 4  %D%
ECHO 5  %E%
ECHO 6  %F%
ECHO 7  %G%
ECHO 8  %H%
ECHO 9  %I%
ECHO 10 %J%
ECHO 11 %K%
ECHO 12 %L%
ECHO 13 %M%
ECHO 14 %N%
ECHO 15 %O%
ECHO 16 %P%
ECHO 17 %Q%
ECHO 18 %R%
ECHO 19 %S%
ECHO 20 %T%
ECHO ----------------------------
GOTO END

:Scan
ECHO %pNum%
IF %pNum% GTR %MAX% SET MAX=%pNum%
IF %pNum% LSS %MIN% SET MIN=%pNum%
IF %pNum%==1 SET /a A+=1
IF %pNum%==2 SET /a B+=1
IF %pNum%==3 SET /a C+=1
IF %pNum%==4 SET /a D+=1
IF %pNum%==5 SET /a E+=1
IF %pNum%==6 SET /a F+=1
IF %pNum%==7 SET /a G+=1
IF %pNum%==8 SET /a H+=1
IF %pNum%==9 SET /a I+=1
IF %pNum%==10 SET /a J+=1
IF %pNum%==11 SET /a K+=1
IF %pNum%==12 SET /a L+=1
IF %pNum%==13 SET /a M+=1
IF %pNum%==14 SET /a N+=1
IF %pNum%==15 SET /a O+=1
IF %pNum%==16 SET /a P+=1
IF %pNum%==17 SET /a Q+=1
IF %pNum%==18 SET /a R+=1
IF %pNum%==19 SET /a S+=1
IF %pNum%==20 SET /a T+=1
IF %pNum%==0 SET /a U+=1
GOTO scanReturn

:END
pause

It will not only generate size^2 random numbers, but also spit out a histogram of it. Yes, it could be more efficient. It could be much more efficient, hypothetically speaking.

[PTTG??]

You can now move from room to room!
Walk around! Make a map! Tell me if anything doesn't line up, of course.

Right now, you can walk through walls, but that's intentional since there's nothing preventing you from getting trapped someplace.

There shouldn't be any one-way doors, but there might be.

Spoiler: BATillion (click to show/hide)

Code: [Select]

@ECHO off
::Navigation Vars
SET return=NULL
::World Vars
SET wTime=0
SET Seed=9997
::1073791813
SET passageChance=75
::Room Vars
SET rAddress=0
SET rNorthPassible=1
SET rEastPassible=1
SET rSouthPassible=1
SET rWestPassible=1
SET rTypenumber=0
::Player Vars
SET pX=1785
SET pY=1785
::Player Attributes
SET pHealthMax=100
SET pHealthCur=100
SET pLevel=1
SET pXP=0
SET pMind=10
SET pBody=10

echo ----------------------------
echo Hello! Welcome to BATillion!
echo ----------------------------

::This function generates the curent room and should only be called on arrival
:ARRIVE
SET /a rAddress=%pX%*3571+%pY%+1
SET i=0
echo You've arrived at %pX%,%pY%.
SET /a rNorthPassible=1
SET /a rEastPassible=1
SET /a rSouthPassible=1
SET /a rWestPassible=1
::Now I can reuse "roll". Must set return to the right flag before each instace...
SET return=ArriveRoll1
GOTO ROLL
:ArriveRoll1
IF %roll% GTR %passageChance% SET /a rNorthPassible=0
SET return=ArriveRoll2
GOTO ROLL
:ArriveRoll2
IF %roll% GTR %passageChance% SET /a rEastPassible=0
::Technically, it looks at the rooms to the south and west and sees if they are passible to the north and west.
SET /a rAddress=%pX%*3571+%pY%+-3570
SET /a i=0

SET return=ArriveRoll3
GOTO ROLL
:ArriveRoll3
IF %roll% GTR %passageChance% SET /a rSouthPassible=0
SET /a rAddress=%pX%*3571+%pY%
SET return=ArriveRoll4
GOTO ROLL
:ArriveRoll4
IF %roll% GTR %passageChance% SET /a rWestPassible=0

::Returns to the current room
SET /a rAddress=%pX%*3571+%pY%+1

SET return=ArriveRoll5
GOTO ROLL
:ArriveRoll5
SET /a rTypenumber=%roll%

SET return=MENU
GoTO LOOK

::MAIN MENU
:MENU
SET menuinput=0
echo What would you like to do?
echo 1 Look Around
echo 2 Travel or Wait
echo 3 Fight\Interact
echo 4 Search
echo 5 Stats\Inventory
echo 7 Quit
SET /P menuinput=select one (1-7):
set from=MENU
IF %menuinput%==1 GOTO LOOK
IF %menuinput%==2 GOTO TRAVEL
IF %menuinput%==3 GOTO NULL
IF %menuinput%==4 GOTO NULL
IF %menuinput%==5 GOTO NULL
IF %menuinput%==6 GOTO NULL
IF %menuinput%==7 GOTO QUIT
echo select something else!
GOTO MENU

::Look Around menu. Basically, give an update on this location.
:LOOK
echo ----------------------------
echo You are at %pX%, %pY%.
echo This room is room type number %rTypenumber%.
echo ----------------------------
GOTO %return%

:TRAVEL
echo ----------------------------
echo Where would you like to go?
:TMenu
echo  W         Go North
echo ASD West, Stay Here, East
echo  X         Go South
echo      C   Cancel
echo %rNorthPassible%
IF %rNorthPassible%==1 echo You may go North.
IF %rEastPassible%==1 echo You may go East.
IF %rSouthPassible%==1 echo You may go South.
IF %rWestPassible%==1 echo You may go West.
echo ----------------------------
SET /P menuinput=select WASDX, or C...
IF %menuinput%==W GOTO North
IF %menuinput%==w GOTO North
IF %menuinput%==A GOTO West
IF %menuinput%==a GOTO West
IF %menuinput%==S GOTO Wait
IF %menuinput%==s GOTO Wait
IF %menuinput%==D GOTO East
IF %menuinput%==d GOTO East
IF %menuinput%==X GOTO South
IF %menuinput%==x GOTO South
IF %menuinput%==C GOTO MENU
IF %menuinput%==c GOTO MENU
echo You must enter W, A, S, D, X, or C.
GOTO TMenu

:North
::Is north passible?
SET /a pX+=1
SET /a wTime+=1
GOTO ARRIVE

:East
::Is east passible?
SET /a pY+=1
SET /a wTime+=1
GOTO ARRIVE

:West
::Is west passible?
SET /a pY-=1
SET /a wTime+=1
GOTO ARRIVE

:South
::Is south passible?
SET /a pX-=1
SET /a wTime+=1
GOTO ARRIVE

:Wait
echo You wait.
SET /a wTime+=1
GOTO MENU

:QUIT
SET quitchoice=n
SET /P quitchoice=Sure? Enter Y to quit, anything else to cancel:
IF %quitchoice%==Y GOTO END
IF %quitchoice%==y GOTO END
GOTO MENU

:ROLL
SET /a i+=1
::This is a crude psudorandom number generator.There will be artifacts, but it does return a number between 1-100
SET /a roll=(%Seed%+%rAddress%*i)%%100
GOTO %return%

:NULL
echo Arrived at NULL!
echo Function probably not yet implemented,
echo or else something has gone wrong.
pause
GOTO MENU

:END
echo ----------------------------
echo Quitting...
echo ----------------------------
pause


Some plans:

Rooms will have types, and that may be anything from climate to simply the pattern of the stonework. There will be three or four details for each room also procedurally generated.

There will be a thing in each room- a monster, treasure, shopkeeper, or artifact.

Monsters can be killed, treasure collected, the shopkeeper will sell you things, and artifacts will do strange things, like granting one levelup or teleporting you to a random room.

The seed number should be a prime number... but I think other numbers will work (if poorly).

[Lectorog]

This is insane, and I love it. I've tried it out, and tried to make a map; except, I tried to make it 1 pixel per room, color-coded, but thinking walls were full coordinates. I realized this is room-to-room, then, not corridors. Better.

The only weird thing I've encountered so far is when you walk through walls, but you said that was intended. This is quite a project; I'll be watching.

[PTTG??]

SET response=Thanks!
echo %response%

I've been experimenting, it looks like the pseudorandom number generator is very much so in the pseudo, not so much on the random.

The maps it's been generating certainly do look interesting.

Here's the latest version. Addresses and rolling are still weird, but better. When they DO work well, then I'll be able to bash out some things to actually do in these corridors.

Oh, and movement might be a bit less annoying now.

Spoiler: batTALION.bat (click to show/hide)

Code: [Select]

@ECHO off
::Navigation Vars
SET return=NULL
::World Vars
SET wTime=0
SET Seed=9997
::1073791813
SET passageChance=50
::Room Vars
SET rAddress=0
SET rNorthPassible=1
SET rEastPassible=1
SET rSouthPassible=1
SET rWestPassible=1
SET rTypenumber=0
::Player Vars
SET pX=1785
SET pY=1785
::Player Attributes
SET pHealthMax=100
SET pHealthCur=100
SET pLevel=1
SET pXP=0
SET pMind=10
SET pBody=10

echo ----------------------------
echo Hello! Welcome to BATillion!
echo ----------------------------

::This function generates the curent room and should only be called on arrival
:ARRIVE
SET /a rAddress=(%pX%*3571)+(%pY%*577)
SET i=0
echo You've arrived at %pX%,%pY%.
SET /a rNorthPassible=1
SET /a rEastPassible=1
SET /a rSouthPassible=1
SET /a rWestPassible=1
::Now I can reuse "roll". Must set return to the right flag before each instace...
SET return=ArriveRoll1
GOTO ROLL
:ArriveRoll1
IF %roll% GTR %passageChance% SET /a rNorthPassible=0
SET return=ArriveRoll2
GOTO ROLL
:ArriveRoll2
IF %roll% GTR %passageChance% SET /a rEastPassible=0
::Technically, it looks at the rooms to the south and west and sees if they are passible to the north and west.
SET /a rAddress=(%pX%*3571)+(%pY%*577)+-3571
SET /a i=0

SET return=ArriveRoll3
GOTO ROLL
:ArriveRoll3
IF %roll% GTR %passageChance% SET /a rSouthPassible=0
SET /a rAddress=(%pX%*3571)+(%pY%*577)+-577
SET return=ArriveRoll4
GOTO ROLL
:ArriveRoll4
IF %roll% GTR %passageChance% SET /a rWestPassible=0

::Returns to the current room
SET /a rAddress=(%pX%*3571)+(%pY%*577)

SET return=ArriveRoll5
GOTO ROLL
:ArriveRoll5
SET /a rTypenumber=%roll%

SET return=TRAVEL
GoTO LOOK

::MAIN MENU
:MENU
SET menuinput=0
echo What would you like to do?
echo 1 Look Around
echo 2 Travel or Wait
echo 3 Fight\Interact
echo 4 Search
echo 5 Stats\Inventory
echo 7 Quit
SET /P menuinput=select one (1-7):
set from=MENU
IF %menuinput%==1 GOTO LOOK
IF %menuinput%==2 GOTO TRAVEL
IF %menuinput%==3 GOTO NULL
IF %menuinput%==4 GOTO NULL
IF %menuinput%==5 GOTO NULL
IF %menuinput%==6 GOTO NULL
IF %menuinput%==7 GOTO QUIT
echo select something else!
GOTO MENU

::Look Around menu. Basically, give an update on this location.
:LOOK
echo ----------------------------
echo You are at %pX%, %pY%.
echo This room is room type number %rTypenumber%.
echo ----------------------------
GOTO %return%

:TRAVEL
echo ----------------------------
echo Where would you like to go?
:TMenu
echo  W         Go North
echo ASD West, Stay Here, East
echo  X         Go South
echo      C   Cancel
echo %rNorthPassible%
IF %rNorthPassible%==1 echo You may go North.
IF %rEastPassible%==1 echo You may go East.
IF %rSouthPassible%==1 echo You may go South.
IF %rWestPassible%==1 echo You may go West.
echo ----------------------------
SET /P menuinput=select WASDX, or C...
IF %menuinput%==W GOTO North
IF %menuinput%==w GOTO North
IF %menuinput%==A GOTO West
IF %menuinput%==a GOTO West
IF %menuinput%==S GOTO Wait
IF %menuinput%==s GOTO Wait
IF %menuinput%==D GOTO East
IF %menuinput%==d GOTO East
IF %menuinput%==X GOTO South
IF %menuinput%==x GOTO South
IF %menuinput%==C GOTO MENU
IF %menuinput%==c GOTO MENU
echo You must enter W, A, S, D, X, or C.
GOTO TMenu

:North
::Is north passible?
SET /a pX+=1
SET /a wTime+=1
GOTO ARRIVE

:East
::Is east passible?
SET /a pY+=1
SET /a wTime+=1
GOTO ARRIVE

:West
::Is west passible?
SET /a pY-=1
SET /a wTime+=1
GOTO ARRIVE

:South
::Is south passible?
SET /a pX-=1
SET /a wTime+=1
GOTO ARRIVE

:Wait
echo You wait.
SET /a wTime+=1
GOTO MENU

:QUIT
SET quitchoice=n
SET /P quitchoice=Sure? Enter Y to quit, anything else to cancel:
IF %quitchoice%==Y GOTO END
IF %quitchoice%==y GOTO END
GOTO MENU

:ROLL
SET /a i+=3
::This is a crude psudorandom number generator.There will be artifacts, but it does return a number between 1-100
SET /a roll=(%Seed%+%rAddress%*%i%)%%100
GOTO %return%

:NULL
echo Arrived at NULL!
echo Function probably not yet implemented,
echo or else something has gone wrong.
pause
GOTO MENU

:END
echo ----------------------------
echo Quitting...
echo ----------------------------
pause

[PTTG??]

The RNG should generate far more random areas. So far so good!

Spoiler (click to show/hide)

Code: [Select]

@ECHO off
::Navigation Vars
SET return=NULL
::World Vars
SET wTime=0
SET Seed=7919
SET passageChance=50
::Room Vars
SET rAddress=0
SET rNorthPassible=1
SET rEastPassible=1
SET rSouthPassible=1
SET rWestPassible=1
SET rTypenumber=0
::Player Vars
SET pX=1785
SET pY=1785
::Player Attributes
SET pHealthMax=100
SET pHealthCur=100
SET pLevel=1
SET pXP=0
SET pMind=10
SET pBody=10

echo ----------------------------
echo Hello! Welcome to BATillion!
echo ----------------------------

::This function generates the curent room and should only be called on arrival
:ARRIVE
SET i=0
echo You've arrived at %pX%,%pY%.
SET /a rNorthPassible=1
SET /a rEastPassible=1
SET /a rSouthPassible=1
SET /a rWestPassible=1
::Now I can reuse "roll". Must set return to the right flag before each instace...
SET return=ArriveRoll1
GOTO ROLL
:ArriveRoll1
IF %roll% GTR %passageChance% SET /a rNorthPassible=0
SET return=ArriveRoll2
GOTO ROLL
:ArriveRoll2
IF %roll% GTR %passageChance% SET /a rEastPassible=0

::Technically, it looks at the rooms to the south and west and sees if they are passible to the north and west.
SET /a i=0
SET /a pX-=1
SET return=ArriveRoll3
GOTO ROLL
:ArriveRoll3
IF %roll% GTR %passageChance% SET /a rSouthPassible=0
SET /a pX+=1
SET /a pY-=1
SET return=ArriveRoll4
GOTO ROLL
:ArriveRoll4
IF %roll% GTR %passageChance% SET /a rWestPassible=0

::Returns to the current room
SET /a pY+=1

SET return=ArriveRoll5
GOTO ROLL
:ArriveRoll5
SET /a rTypenumber=%roll%

SET return=TRAVEL
GoTO LOOK

::MAIN MENU
:MENU
SET menuinput=0
echo What would you like to do?
echo 1 Look Around
echo 2 Travel or Wait
echo 3 Fight\Interact
echo 4 Search
echo 5 Stats\Inventory
echo 7 Quit
SET /P menuinput=select one (1-7):
set return=MENU
IF %menuinput%==1 GOTO LOOK
IF %menuinput%==2 GOTO TRAVEL
IF %menuinput%==3 GOTO NULL
IF %menuinput%==4 GOTO NULL
IF %menuinput%==5 GOTO NULL
IF %menuinput%==6 GOTO NULL
IF %menuinput%==7 GOTO QUIT
echo select something else!
GOTO MENU

::Look Around menu. Basically, give an update on this location.
:LOOK
echo ----------------------------
echo You are at %pX%, %pY%.
echo This room is room type number %rTypenumber%.
echo ----------------------------
GOTO %return%

:TRAVEL
echo ----------------------------
echo Where would you like to go?
:TMenu
echo  W         Go North
echo ASD West, Stay Here, East
echo  X         Go South
echo      C   Cancel
echo ----------------------------
IF %rNorthPassible%==0 echo /--\
IF %rNorthPassible%==1 echo /  \
IF %rEastPassible%==0 echo l  l
IF %rEastPassible%==1 echo l   
IF %rWestPassible%==0 echo l  l
IF %rWestPassible%==1 echo    l
IF %rSouthPassible%==0 echo \--/
IF %rSouthPassible%==1 echo \  /
::IF %rNorthPassible%==1 echo You may go North.
::IF %rEastPassible%==1 echo You may go East.
::IF %rSouthPassible%==1 echo You may go South.
::IF %rWestPassible%==1 echo You may go West.
echo ----------------------------
SET /P menuinput=select WASDX, or C...
IF %menuinput%==W GOTO North
IF %menuinput%==w GOTO North
IF %menuinput%==A GOTO West
IF %menuinput%==a GOTO West
IF %menuinput%==S GOTO Wait
IF %menuinput%==s GOTO Wait
IF %menuinput%==D GOTO East
IF %menuinput%==d GOTO East
IF %menuinput%==X GOTO South
IF %menuinput%==x GOTO South
IF %menuinput%==C GOTO MENU
IF %menuinput%==c GOTO MENU
echo You must enter W, A, S, D, X, or C.
GOTO TMenu

:North
::IF %rNorthPassible%==0 GOTO MoveFail
SET /a pX+=1
SET /a wTime+=1
GOTO ARRIVE

:East
::IF %rEastPassible%==0 GOTO MoveFail
SET /a pY+=1
SET /a wTime+=1
GOTO ARRIVE

:West
::IF %rWestPassible%==0 GOTO MoveFail
SET /a pY-=1
SET /a wTime+=1
GOTO ARRIVE

:South
::IF %rSouthPassible%==0 GOTO MoveFail
SET /a pX-=1
SET /a wTime+=1
GOTO ARRIVE

:Wait
echo You wait.
SET /a wTime+=1
GOTO TMenu

:MoveFail
Echo You can't go that way.
GOTO TMenu

:QUIT
SET quitchoice=n
SET /P quitchoice=Sure? Enter Y to quit, anything else to cancel:
IF %quitchoice%==Y GOTO END
IF %quitchoice%==y GOTO END
GOTO MENU

:ROLL
SET /a i+=1
SET /a rAddress=(%pX%*1009)+(%pY%*1597)
SET /a rolla=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1583)+(%pY%*1013)
SET /a rollb=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1019)+(%pY%*1579)
SET /a rollc=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1571)+(%pY%*1021)
SET /a rolld=(%Seed%+%rAddress%+%i%)%%100
SET /a roll=(rolla*rollb*rollc*rolld)%%100
GOTO %return%

:NULL
echo Arrived at NULL!
echo Function probably not yet implemented,
echo or else something has gone wrong.
pause
GOTO MENU

:END
echo ----------------------------
echo Quitting...
echo ----------------------------
pause

[Mechanoid]

Words... Can not express.

edit - what exactly are you limited to when using a batch file to play a game inside of the command console? for instance, would it be possible to have colors, or non-text characters appear? would it be possible to "export" a level map to a regular text file that you could read? ... could you recreate something like the original Rogue?

[SolarShado]

Insane project, posting to follow

[PTTG??]

Update:

Spoiler: battilion.bat (click to show/hide)

Code: [Select]

@ECHO off
::Navigation Vars
SET return=NULL
::World Vars
SET wTime=0
SET Seed=7919
SET passageChance=42
::Room Vars
SET rAddress=0
SET rNorthPassible=1
SET rEastPassible=1
SET rSouthPassible=1
SET rWestPassible=1
SET rTypenumber=0
SET rWallType=0
SET rRoomShape=0
SET rWallDecor=0
SET rFurniture=0
SET rLights=0
::Player Vars
SET pX=1785
SET pY=1785
::Player Attributes
SET pHealthMax=100
SET pHealthCur=100
SET pLevel=1
SET pXP=0
SET pMind=10
SET pBody=10

echo ----------------------------
echo Hello! Welcome to BATillion!
echo ----------------------------

::This function generates the curent room and should only be called on arrival
:ARRIVE
SET i=0
echo You've arrived at %pX%,%pY%.
SET /a rNorthPassible=1
SET /a rEastPassible=1
SET /a rSouthPassible=1
SET /a rWestPassible=1
::Now I can reuse "roll". Must set return to the right flag before each instace...
SET return=ArriveRoll1
GOTO ROLL
:ArriveRoll1
IF %roll% GTR %passageChance% SET /a rNorthPassible=0
SET return=ArriveRoll2
GOTO ROLL
:ArriveRoll2
IF %roll% GTR %passageChance% SET /a rEastPassible=0

::Technically, it looks at the rooms to the south and west and sees if they are passible to the north and west.
SET /a i=0
SET /a pX-=1
SET return=ArriveRoll3
GOTO ROLL
:ArriveRoll3
IF %roll% GTR %passageChance% SET /a rSouthPassible=0
SET /a pX+=1
SET /a pY-=1
SET return=ArriveRoll4
GOTO ROLL
:ArriveRoll4
IF %roll% GTR %passageChance% SET /a rWestPassible=0

::Returns to the current room
SET /a pY+=1

SET return=ArriveRoll5
GOTO ROLL
:ArriveRoll5
SET /a rWallType=(%roll% %% 14)
SET return=ArriveRoll6
GOTO ROLL
:ArriveRoll6
SET /a rRoomShape=(%roll% %% 12)
SET return=ArriveRoll7
GOTO ROLL
:ArriveRoll7
SET /a rWallDecor=(%roll% %% 8)
SET return=ArriveRoll8
GOTO ROLL
:ArriveRoll8
SET /a rFurniture=(%roll% %% 25)
SET return=ArriveRoll9
GOTO ROLL
:ArriveRoll9
SET /a rLights=(%roll% %% 13)
SET return=TRAVEL
GoTO LOOK

::MAIN MENU
:MENU
SET menuinput=0
echo What would you like to do?
echo 1 Look Around
echo 2 Travel or Wait
echo 3 Fight\Interact
echo 4 Search
echo 5 Stats\Inventory
echo 7 Quit
SET /P menuinput=select one (1-7):
set return=MENU
IF %menuinput%==1 GOTO LOOK
IF %menuinput%==2 GOTO TRAVEL
IF %menuinput%==3 GOTO NULL
IF %menuinput%==4 GOTO NULL
IF %menuinput%==5 GOTO NULL
IF %menuinput%==6 GOTO NULL
IF %menuinput%==7 GOTO QUIT
echo select something else!
GOTO MENU

::Look Around menu. Basically, give an update on this location.
:LOOK
echo ----------------------------
echo You are at %pX%, %pY%.
IF(%pX%==1785 AND %pY%==1785) ECHO Light Streams down from the cave mouth above. A frayed rope dangles just out of reach.
GOTO roomDescript
:lookReturn1
echo ----------------------------
GOTO %return%

:TRAVEL
echo ----------------------------
echo Where would you like to go?
:TMenu
echo  W         Go North
echo ASD West, Stay Here, East
echo  X         Go South
echo      C   Cancel
echo ----------------------------
IF %rNorthPassible%==0 echo /--\
IF %rNorthPassible%==1 echo /  \
IF %rEastPassible%==0 echo l  l
IF %rEastPassible%==1 echo l   
IF %rWestPassible%==0 echo l  l
IF %rWestPassible%==1 echo    l
IF %rSouthPassible%==0 echo \--/
IF %rSouthPassible%==1 echo \  /
::IF %rNorthPassible%==1 echo You may go North.
::IF %rEastPassible%==1 echo You may go East.
::IF %rSouthPassible%==1 echo You may go South.
::IF %rWestPassible%==1 echo You may go West.
echo ----------------------------
SET /P menuinput=select WASDX, or C...
IF %menuinput%==W GOTO North
IF %menuinput%==w GOTO North
IF %menuinput%==A GOTO West
IF %menuinput%==a GOTO West
IF %menuinput%==S GOTO Wait
IF %menuinput%==s GOTO Wait
IF %menuinput%==D GOTO East
IF %menuinput%==d GOTO East
IF %menuinput%==X GOTO South
IF %menuinput%==x GOTO South
IF %menuinput%==C GOTO MENU
IF %menuinput%==c GOTO MENU
echo You must enter W, A, S, D, X, or C.
GOTO TMenu

:North
::IF %rNorthPassible%==0 GOTO MoveFail
SET /a pX+=1
SET /a wTime+=1
GOTO ARRIVE

:East
::IF %rEastPassible%==0 GOTO MoveFail
SET /a pY+=1
SET /a wTime+=1
GOTO ARRIVE

:West
::IF %rWestPassible%==0 GOTO MoveFail
SET /a pY-=1
SET /a wTime+=1
GOTO ARRIVE

:South
::IF %rSouthPassible%==0 GOTO MoveFail
SET /a pX-=1
SET /a wTime+=1
GOTO ARRIVE

:Wait
echo You wait.
SET /a wTime+=1
GOTO TMenu

:MoveFail
Echo You can't go that way.
GOTO TMenu

:roomDescript
::echo This room is room type number %rTypenumber%.
IF %rWallType%==1 ECHO You are in a natural, limestone cave chamber.
IF %rWallType%==2 ECHO The chamber is rough-hewn from solid rock.
IF %rWallType%==3 ECHO You are in a well-carved solid rock room. The ceiling and walls are smoothed.
IF %rWallType%==4 ECHO The room you are in is lined with loose cobblestone, the ceiling paved with larger stones.
IF %rWallType%==5 ECHO You are in a room built from smooth stone bricks.
IF %rWallType%==6 ECHO The walls and ceiling are set from fine masonry, with elegant design
IF %rWallType%==7 ECHO The room is reinforced with balks of raw timber and whole tree trunks.
IF %rWallType%==8 ECHO The walls here are covered with wooden planks.
IF %rWallType%==9 ECHO Fine wood panneling is on each wall of this room.
IF %rWallType%==10 ECHO You are in a loose-rock mineshaft reinforced with wood.
IF %rWallType%==11 ECHO The room you are now in is dug from clay, soft and tacky to the touch.
IF %rWallType%==12 ECHO You are in a room cut from loose earth and reinforced with wood and cloth.
IF %rWallType%==13 ECHO The walls are made of thick mud and loam.
IF %rWallType%==14 ECHO The room's walls and ceiling are lined with plaster.
IF %rRoomShape%==1 ECHO It has a quite low ceiling.
IF %rRoomShape%==2 ECHO It is round, without corners.
IF %rRoomShape%==3 ECHO It is a hemisphere.
IF %rRoomShape%==4 ECHO It is square in footprint but quite tall.
IF %rRoomShape%==5 ECHO The hallway does not widen here; rather this is a continuation of the nearby passages.
IF %rRoomShape%==6 ECHO It has a square shape, and the walls are lined with alcoves.
IF %rRoomShape%==7 ECHO It is a simple square.
IF %rRoomShape%==8 ECHO The room is a long rectangle, running from north to south.
IF %rRoomShape%==9 ECHO The room is a long rectangle, running from east to west.
IF %rRoomShape%==10 ECHO The corners are to the north, south, east and west.
IF %rRoomShape%==11 ECHO There is a slightly raised platform in the center of the room.
IF %rRoomShape%==12 ECHO It has nine roughly straight sides.
IF %rWallDecor%==1 ECHO The walls are covered in graffiti
IF %rWallDecor%==2 ECHO Bloodstains are visible on the walls.
IF %rWallDecor%==3 ECHO The walls show signs of hasty, recent repair.
IF %rWallDecor%==4 ECHO Some great blow appears to have damaged the wall here.
IF %rWallDecor%==5 ECHO There is a scorchmark on the wall.
IF %rWallDecor%==6 ECHO Tapestries hang from the walls.
IF %rWallDecor%==7 ECHO The wall on one side has collapsed.
IF %rWallDecor%==8 ECHO burned-out torches are attached to one wall.
IF %rFurniture%==1 ECHO The chamber is dominated by a massive throne.
IF %rFurniture%==2 ECHO A table and chairs occupies the room.
IF %rFurniture%==3 ECHO Near the edge of the room is a well-locked wooden chest.
IF %rFurniture%==4 ECHO There are several bookcases in this room.
IF %rFurniture%==5 ECHO The room is full of rotting debris, wood, leather, meat, and other detritus.
IF %rFurniture%==6 ECHO The room is full of broken stone, rock, and gravel.
IF %rFurniture%==7 ECHO There is a layer of broken bones and skulls of various species on the floor.
IF %rFurniture%==8 ECHO The room appears to have been used as a barracks; several bedrolls lie on the floor.
IF %rFurniture%==9 ECHO A well occupies the center of the room. A rope plunges down into the darkness below.
IF %rFurniture%==10 ECHO The room is quite empty, except for thick dust on the floor.
IF %rFurniture%==11 ECHO Ankle-deep water fills the room.
IF %rFurniture%==12 ECHO A planter occupies the room. In it grows otherworldly flowers which very fainly glow.
IF %rFurniture%==13 ECHO A menacing stone altar dominates the room.
IF %rFurniture%==14 ECHO A skeleton rests in the room, the skull crushed beneath a stone apparently disloged from the ceiling.
IF %rFurniture%==15 ECHO There is nothing of note in this room.
IF %rFurniture%==16 ECHO You see nothing particularly interesting.
IF %rFurniture%==17 ECHO The room is disturbingly quiet.
IF %rFurniture%==18 ECHO An iron cage hangs from above.
IF %rLights%==1 ECHO The room is quite dark. You can barely see anything.
IF %rLights%==2 ECHO A few candles provide light here.
IF %rLights%==3 ECHO A torch burns in a sconce on the wall, casting flickering light on the chamber.
IF %rLights%==4 ECHO There are several torches against the wall, providing a reasonable level of light.
IF %rLights%==5 ECHO A braiser contains glowing coals in this room, casting a dim red light on the walls.
IF %rLights%==6 ECHO There is a set of covered lanterns to illuminate this room.
IF %rLights%==7 ECHO Someone has set a small cookfire here, providing light as well as heat.
IF %rLights%==8 ECHO Glowing crystals sit in a wire basket, producing a blue aura that fills the room.
IF %rLights%==9 ECHO Fungi grows from the walls here in clusters of softly glowing orbs. Green light pervades the chamber.
IF %rLights%==10 ECHO There are torches set into the wall every few meters here.
IF %rLights%==11 ECHO Nine tapering candles are arranged here, surrounding the room and providing light.
IF %rLights%==12 ECHO An oil lamp is set into the wall, providng a pure white glow.
IF %rLights%==13 ECHO A large bonfire provides a great deal of light and heat.
GOTO lookReturn1

:QUIT
SET quitchoice=n
SET /P quitchoice=Sure? Enter Y to quit, anything else to cancel:
IF %quitchoice%==Y GOTO END
IF %quitchoice%==y GOTO END
GOTO MENU

:ROLL
SET /a i+=1
SET /a rAddress=(%pX%*1009)+(%pY%*1597)
SET /a rolla=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1583)+(%pY%*1013)
SET /a rollb=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1019)+(%pY%*1579)
SET /a rollc=(%Seed%+%rAddress%+%i%)%%100
SET /a rAddress=(%pX%*1571)+(%pY%*1021)
SET /a rolld=(%Seed%+%rAddress%+%i%)%%100
SET /a roll=(rolla*rollb*rollc*rolld)%%100
GOTO %return%

:NULL
echo Arrived at NULL!
echo Function probably not yet implemented,
echo or else something has gone wrong.
pause
GOTO MENU

:END
echo ----------------------------
echo Quitting...
echo ----------------------------
pause

It now generates descriptions for each room. The map should be consistent on any machine and every game, so share your maps! The description text is very crude. Eventually it'll have have a few dimensions and there won't be such odd things as a narrow corridor dominated by an altar and illuminated by a cookfire.

[SirAaronIII]

Pretty nifty, I got a natural limestone cavern with one wall collapsed that had a well with a rope leading down in the center and was lit by a brazier with some red hot coals in it.

[Gatleos]

Is it... supposed to generate the same map every time? Because I'm getting the same map every time.

[Virex]

Words... Can not express.

edit - what exactly are you limited to when using a batch file to play a game inside of the command console? for instance, would it be possible to have colors, or non-text characters appear? would it be possible to "export" a level map to a regular text file that you could read? ... could you recreate something like the original Rogue?

The Batch interpreter cannot render graphics beyond the CLI, so to get graphics you'd need to invoke other programs. However, one could make a command that invokes Windows photo gallery on a certain file to display it, so displaying room graphics is possible. To have them randomly generated however, you'd have to write a JPEG writer in bash. And that's horrible.


Alternatively, you could invoke notepad on a text file, which is considerably easier to write in bash. That would give you ascii graphics, but it would be monochrome.

[Biag]

Is it... supposed to generate the same map every time? Because I'm getting the same map every time.

The map should be consistent on any machine and every game, so share your maps!