maru21/batchGame
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit

Browse Source
This commit is contained in:
maru21 2023-09-05 21:35:59 +02:00
parent aed209b493
commit 5b7b6595c2
4004 changed files with 6698 additions and 434730 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.vscode/settings.json vendored
View File

@ -1,6 +0,0 @@
{
"python.analysis.extraPaths": [
"./bin"
],
"php.validate.executablePath": "/var/run/host/usr/bin/php"
}

11
.vscode/sftp.json vendored
View File

@ -1,11 +0,0 @@
{
"name": "scrapy",
"host": "192.168.1.224",
"protocol": "sftp",
"port": 22,
"username": "root",
"remotePath": "/scrapy/pythonSoup",
"uploadOnSave": false,
"useTempFile": false,
"openSsh": false
}

0
README.md
View File

3
__pycache__/.htaccess
View File

@ -1,3 +0,0 @@
Order Allow,Deny
Deny from all

BIN
__pycache__/debug.cpython-310.pyc
View File

Binary file not shown.

165
batchGame/GAME.bat Executable file
View File

@ -0,0 +1,165 @@
@echo off
color 74
title by k.
MODE CON COLS=50 LINES=15
if not exist "cmd\main.bat" (
echo.ERROR: Needed files not found!!!
echo.You may need to extract the zip file first
pause>nul
exit
)
set "world="
:wls
call :worldselect
:pls
cls
call :playerselect
:launchGame
MODE CON COLS=50 LINES=33
set "player=%player: =_%"
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. Welcome %player% to this adventure
echo. Good Luck,
echo. finding your way through this Labyrinth,
echo. full of dangerous creatures and dead ends
echo.
echo.
echo. [a: left] [d: right] [w: up] [s: down]
echo. [b: open backpack] [m: refresh map]
echo.
echo. loading %world%...
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. CURRENT HIGHSCORES:
echo.
if not exist "%world%\highscores.txt" echo.Marty; 400000>"%world%\highscores.txt"
for /f "usebackq delims=" %%a in (%world%\highscores.txt) do (echo. %%a)
timeout /t 10 >nul
if not exist "config.txt" call :createConfig
find "map: seperate" "config.txt">nul
if "%errorlevel%"=="0" (
start cmd\map.bat %player% %world%
set "mapFlag=1"
) else (
set "mapFlag=2"
)
start cmd\main.bat %player% %world% %mapFlag%
exit
:worldselect
set "c=1"
set "input=n"
set "useByNum=0"
:wsfl1start
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. Choose a Dungeon
echo.
for /f %%a in ('dir /b "%cd%"') do set "world=%%a" & call :wsfl1
echo.
echo. [1-9]
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
choice /C:"123456789" /N "->"
if not "%errorlevel%"=="255" set "input=%errorlevel%"
set "useByNum=%input%"
set "c=1"
set "input=n"
goto :wsfl1start
:wsfl1
if not exist "%world%\*.*" goto :eof
if "%world%"=="cmd" goto :eof
if "%useByNum%"=="%c%" goto pls
echo. %c%. %world%
set /a c=%c%+1
goto :eof
:playerselect
set "c=1"
set "input=n"
set "useByNum=0"
:psfl1start
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. Choose an existing Game or create a new one
echo.
for /f %%a in ('dir /b "%world%"') do set "player=%%a" & call :psfl1
echo.
echo. [1-9] [n]
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
choice /C:"123456789n" /N "->"
if "%errorlevel%"=="10" (
cls
set /p player=enter your name:
goto launchGame
)
if not "%errorlevel%"=="255" set "input=%errorlevel%"
set "useByNum=%input%"
set "c=1"
set "input=n"
goto :psfl1start
:psfl1
if not exist "%world%\%player%\*.*" goto :eof
if "%world%"=="cmd" goto :eof
if "%useByNum%"=="%c%" goto launchGame
echo. %c%. %player%
set /a c=%c%+1
goto :eof
:createConfig
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. Settings:
echo.
echo. Would you like to display the Map in a
echo. seperate window?
echo.
echo. [y/n]
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
choice /C:"yn" /N "->"
if "%errorlevel%"=="1" (
echo.::seperate: launch seperate map window ^/ included: dont launch it in a seperate window>config.txt
echo.map: seperate>>config.txt
)
if "%errorlevel%"=="2" (
echo.::seperate: launch seperate map window ^/ included: dont launch it in a seperate window>config.txt
echo.map: included>>config.txt
)
goto :eof

7
batchGame/castledungeon/Paper.txt Executable file
View File

@ -0,0 +1,7 @@
In case I ever forget:
Instructions to find hidden treasure.
The treasure is hidden within a part
of the dungeon where there are 2 old
storage chests. Somewhere in a corner
room. There is only one way in or out.
Greetings me from the past

7
batchGame/castledungeon/am.item.txt Executable file
View File

@ -0,0 +1,7 @@
You found the Warriors amulet.
It seems to have a magical charm on it.
It looks like it should regenerate
some of your health.
quest: questWA

5
batchGame/castledungeon/as.item.txt Executable file
View File

@ -0,0 +1,5 @@
You found a pile of bones on the ground
It looks like it was once wearing
a chainmail.
item: y.Armor

10
batchGame/castledungeon/attacks.txt Executable file
View File

@ -0,0 +1,10 @@
2;15;40;Electric_Beam
4;50;35;Hell_Fire
3;35;40;Frost_Spike
2;5;37;Fire_Ball
3;20;30;Thunder_Storm
2;15;37;Bone_Shaking_Shout
1;2;25;Light_Breeze
1;2;40;Smelly_Burp
2;10;35;Water_Ball

4
batchGame/castledungeon/ca.item.txt Executable file
View File

@ -0,0 +1,4 @@
You found some old armor!
It will increase your max health.
quest: questCA

BIN
batchGame/castledungeon/castledungeonMAP.xlsx Executable file
View File

Binary file not shown.

8
batchGame/castledungeon/db.item.txt Executable file
View File

@ -0,0 +1,8 @@
You found a dead body on the ground.
It still wears luxury clothes. They are very
old clothes. This person must have died
a long time ago.
You inspect the dead body.
It carries a small piece of paper.
item: w.Paper

3
batchGame/castledungeon/deadend.txt Executable file
View File

@ -0,0 +1,3 @@
you reached a dead end
there is no going any further
try another way

8
batchGame/castledungeon/dg.item.txt Executable file
View File

@ -0,0 +1,8 @@
You come across a dead carcass
laying on the ground. It seems to be
dead for a long time. You see some
fighting marks on the chest of the
creature.
There seems to be something beside it.
item: y.Shovel

4
batchGame/castledungeon/dw.item.txt Executable file
View File

@ -0,0 +1,4 @@
You come across an old well.
Something hangs above it.
quest: questAC

10
batchGame/castledungeon/enemys.txt Executable file
View File

@ -0,0 +1,10 @@
Bandit
Zombie
Thief
Spider
Rat
Bat
Witch
Creature
Snake
Creeper

11
batchGame/castledungeon/gc.item.txt Executable file
View File

@ -0,0 +1,11 @@
This Crystal emits a reddish glow.
If you hold it in your hand you feel
a strange sensation within your body.
As you inspect the Crystal a
little closer you are able to see a
reflection on the Crystals surface forming.
It seems like something is hovering above you.
It looks like a lifeless face of somebody
you dont seem to know.
item: k.god

24
batchGame/castledungeon/hello.txt Executable file
View File

@ -0,0 +1,24 @@
You found my note! If you need some help
continue reading..
Your mission is to reach the exit of this
dungeon, where you are trapped at the moment.
On your way there will be alot of different
enemys. Always be prepared you will need a
proper weapon or spell to defeat them.
Watch out or you will die quick!
If you die 3 times the game is over!
There is no shame in running away if your
out of power or dont own a proper
weapon or spell.
Some Enemys will drop weapons or
spells as loot. You will be able to pick up
an use Weapons directly. With Spells
on the other hand, you will need to learn
them from collecting and reading a Scroll first.
To further progress you will need to find keys
wich will open doors. Some keys are within
chests, some keys are guarded by enemys.

4
batchGame/castledungeon/highscores.txt Executable file
View File

@ -0,0 +1,4 @@
Marty; 400000
maru; 134800
pete; 24800
kk; 15650

20
batchGame/castledungeon/ka.item.txt Executable file
View File

@ -0,0 +1,20 @@
My Son, you must now watch over yourself.
There is nobody coming to rescue you.
This challange is no easy task.
You know that many tried before
and failed.
But you also know that the tradition
of our kingdom dictates that once
the new heir of the trone reaches
adulthood, he must face that challenge
to prove himself worthy of his future role.
Don't forget to pack the items from the chest
into your backpack.
item: k.A11

4
batchGame/castledungeon/ks.item.txt Executable file
View File

@ -0,0 +1,4 @@
You found a pile of bones on the ground
It looks like there is something underneath
quest: questKS

17
batchGame/castledungeon/map1.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;w;p;w;s
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;w;w;e
5;w;p;p;w;0
6;p;p;p;w;0
7;p;w;w;w;c
8;w;p;w;p;0
9;w;p;p;p;0
10;p;w;w;p;0
11;w;w;w;w;0
12;w;p;w;p;0
13;w;w;p;p;0
14;p;w;p;w;0
15;p;w;p;w;0
16;p;w;d;p;0

17
batchGame/castledungeon/map10.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;p;w;w;0
2;w;p;p;w;0
3;p;w;p;d;e
4;p;p;d;w;0
5;w;p;w;p;0
6;w;p;w;p;0
7;w;p;w;w;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;p;w;p;0
11;w;p;w;p;0
12;w;p;w;p;0
13;w;w;p;p;0
14;p;d;w;p;0
15;w;w;w;p;0
16;w;w;d;p;c

17
batchGame/castledungeon/map11.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;w;d;0
2;w;p;p;w;0
3;p;w;p;w;0
4;p;p;d;w;0
5;w;p;w;p;0
6;w;p;w;p;0
7;w;p;w;w;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;p;p;p;0
11;p;w;w;p;0
12;w;p;w;p;0
13;w;w;p;p;0
14;p;w;w;p;0
15;w;d;p;w;0
16;p;w;w;p;0

17
batchGame/castledungeon/map12.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;w;w;0
5;w;p;w;p;0
6;w;p;w;w;0
7;w;w;w;w;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;p;w;p;0
11;w;w;p;w;c
12;p;p;w;p;0
13;w;d;w;p;0
14;w;w;w;p;0
15;w;w;w;w;0
16;w;w;w;p;0

17
batchGame/castledungeon/map13.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;w;p;w;0
2;p;w;p;w;0
3;p;p;p;w;e
4;p;p;w;w;0
5;w;p;p;w;0
6;p;p;w;w;0
7;w;p;w;p;0
8;w;p;w;p;0
9;w;p;p;p;0
10;p;p;w;p;0
11;w;p;w;p;0
12;w;p;w;p;0
13;w;w;p;p;0
14;p;w;w;p;0
15;w;d;w;p;0
16;w;w;w;p;c

17
batchGame/castledungeon/map14.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;p;p;w;0
2;p;w;w;w;0
3;w;w;p;d;0
4;p;p;d;w;0
5;w;p;p;p;0
6;p;w;p;w;0
7;p;p;w;w;0
8;w;p;w;p;0
9;w;w;p;p;0
10;p;p;w;w;0
11;w;p;w;p;0
12;w;p;w;p;0
13;d;w;w;w;c
14;w;d;p;p;0
15;w;w;p;p;0
16;p;w;w;p;0

17
batchGame/castledungeon/map15.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;p;p;w;0
2;p;p;p;w;0
3;p;p;p;w;0
4;p;p;w;w;0
5;w;p;p;p;0
6;w;w;w;p;f
7;p;p;w;p;0
8;w;p;w;p;0
9;w;w;p;p;0
10;p;w;p;p;0
11;p;w;w;p;0
12;w;p;d;p;0
13;w;w;p;w;c
14;p;w;p;w;e
15;p;w;p;w;0
16;p;w;w;p;0

17
batchGame/castledungeon/map16.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;p;p;w;0
3;p;p;p;d;0
4;p;w;w;w;f
5;w;p;p;p;0
6;p;w;w;p;0
7;w;p;w;p;0
8;w;w;w;w;0
9;d;w;p;p;0
10;p;w;p;w;0
11;p;p;p;p;e
12;p;w;w;w;c
13;w;w;p;w;c
14;p;w;p;w;0
15;p;w;w;p;0
16;w;w;w;w;0

17
batchGame/castledungeon/map17.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;w;d;0
2;w;p;p;w;0
3;p;w;p;w;0
4;p;p;w;d;0
5;w;p;w;p;0
6;w;p;w;p;0
7;w;w;p;w;0
8;p;w;w;p;0
9;w;p;w;p;0
10;w;w;p;p;0
11;p;w;p;w;0
12;p;d;w;w;0
13;w;w;p;p;0
14;p;w;p;w;0
15;p;d;w;w;0
16;w;w;d;d;e

17
batchGame/castledungeon/map18.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;w;p;w;0
3;p;p;w;w;e
4;w;p;w;w;c
5;w;p;w;p;0
6;w;p;p;w;0
7;p;w;w;p;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;p;p;p;0
11;p;p;w;w;0
12;w;p;w;p;0
13;w;d;w;p;0
14;w;w;w;p;0
15;w;w;p;p;0
16;p;d;w;p;0

17
batchGame/castledungeon/map19.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;e
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;w;w;0
5;d;p;w;p;0
6;d;w;p;w;c
7;p;p;w;w;P
8;w;p;w;p;0
9;w;w;p;p;0
10;p;w;p;w;0
11;p;w;w;p;B
12;w;p;w;p;0
13;d;w;p;w;0
14;p;w;p;w;0
15;p;w;p;w;0
16;p;w;w;p;0

17
batchGame/castledungeon/map2.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;w;p;w;0
3;p;w;p;d;0
4;p;p;w;w;0
5;w;p;p;p;0
6;p;w;p;w;0
7;p;p;w;w;0
8;w;p;w;p;0
9;w;w;w;p;f
10;w;w;p;w;c
11;p;w;w;p;e
12;w;p;w;p;0
13;d;w;p;w;0
14;p;w;p;w;0
15;p;w;p;w;0
16;p;w;w;p;0

17
batchGame/castledungeon/map20.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;w;p;w;0
2;p;w;p;w;0
3;p;w;p;w;0
4;p;w;d;w;0
5;w;w;w;w;e
6;w;w;w;w;e
7;w;w;w;w;e
8;w;w;w;w;e
9;w;w;w;w;e
10;w;w;w;w;e
11;w;w;w;w;e
12;w;w;w;w;e
13;w;w;w;w;e
14;w;w;w;w;e
15;w;w;w;w;e
16;w;w;w;w;e

17
batchGame/castledungeon/map21.txt Executable file
View File

@ -0,0 +1,17 @@
:endscreen
1;w;p;p;w;f
2;p;p;p;w;0
3;p;p;p;w;0
4;p;p;w;w;f
5;d;p;p;p;0
6;p;p;p;p;0
7;p;p;p;p;0
8;p;p;w;p;0
9;w;p;p;p;0
10;p;p;p;p;0
11;p;p;p;p;0
12;p;p;w;p;0
13;w;w;p;p;f
14;p;w;p;p;0
15;p;w;p;p;0
16;p;w;w;p;f

17
batchGame/castledungeon/map22.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;d;w;0
5;w;p;p;p;0
6;p;p;p;w;0
7;p;p;w;w;0
8;w;p;w;p;0
9;w;p;p;p;0
10;p;w;p;p;0
11;p;w;w;p;0
12;w;p;w;p;0
13;w;w;p;p;0
14;p;w;p;w;0
15;p;w;p;w;0
16;p;d;w;p;0

17
batchGame/castledungeon/map23.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;w;p;w;0
2;p;p;p;w;0
3;p;p;w;w;0
4;w;p;w;w;0
5;w;p;w;w;0
6;w;p;p;p;0
7;p;p;w;p;0
8;w;w;w;p;0
9;w;w;w;p;0
10;w;p;p;p;0
11;p;w;p;p;0
12;p;p;w;w;0
13;w;w;p;w;0
14;p;w;w;p;0
15;w;w;w;w;0
16;w;d;w;p;0

17
batchGame/castledungeon/map3.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;w;d;0
2;w;p;p;w;0
3;p;p;p;w;0
4;p;p;d;w;0
5;w;p;w;p;0
6;w;p;w;p;0
7;w;p;p;p;0
8;p;p;w;p;0
9;w;p;w;p;0
10;w;p;w;p;0
11;w;p;p;p;0
12;p;p;w;p;0
13;w;w;p;p;0
14;p;w;w;p;0
15;w;d;w;p;0
16;w;w;w;p;c

17
batchGame/castledungeon/map4.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;w;p;w;0
2;p;p;p;w;0
3;p;p;w;w;0
4;w;p;w;w;0
5;w;w;p;w;c
6;p;p;w;p;0
7;w;p;p;p;0
8;p;p;w;p;0
9;w;w;p;w;e
10;p;p;w;p;0
11;w;p;p;p;0
12;p;p;d;p;0
13;w;w;p;w;c
14;p;w;p;p;0
15;p;w;w;p;0
16;w;w;w;p;0

17
batchGame/castledungeon/map5.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;p;w;w;0
3;w;p;p;w;0
4;p;p;w;w;0
5;w;p;w;p;e
6;w;p;w;p;0
7;w;p;w;p;0
8;w;p;w;p;0
9;d;w;w;p;0
10;w;w;p;p;0
11;p;w;w;p;0
12;w;p;w;p;0
13;w;d;p;w;0
14;p;w;p;w;e
15;p;w;p;w;0
16;p;w;w;p;0

17
batchGame/castledungeon/map6.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;d;w;p;w;0
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;w;w;0
5;w;p;p;w;0
6;p;p;w;w;0
7;w;p;p;w;0
8;p;w;w;p;0
9;w;p;w;p;0
10;w;w;w;p;f
11;w;p;p;p;e
12;p;w;d;w;0
13;w;w;p;p;0
14;p;w;p;w;0
15;p;w;d;p;0
16;d;w;w;w;c

17
batchGame/castledungeon/map7.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;w;w;0
2;w;w;p;w;0
3;p;w;w;w;0
4;w;p;d;d;0
5;w;p;p;p;0
6;p;w;p;w;0
7;p;w;p;w;e
8;p;p;w;p;0
9;d;w;w;p;0
10;w;w;p;w;0
11;p;w;w;w;0
12;w;p;w;p;0
13;w;w;p;w;c
14;p;w;p;w;0
15;p;w;p;w;0
16;p;w;w;p;e

17
batchGame/castledungeon/map8.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;p;w;0
2;p;w;p;d;0
3;p;w;p;w;0
4;p;p;w;w;e
5;w;p;w;p;0
6;w;p;p;w;0
7;p;p;w;w;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;w;p;p;0
11;p;w;w;p;0
12;w;p;w;p;0
13;w;w;p;p;e
14;p;w;p;w;0
15;p;w;p;w;0
16;p;w;w;p;c

17
batchGame/castledungeon/map9.txt Executable file
View File

@ -0,0 +1,17 @@
:NONAME
1;w;p;w;w;c
2;w;p;w;d;0
3;w;p;p;w;0
4;p;p;w;w;0
5;w;p;w;p;0
6;w;p;w;p;0
7;w;p;w;p;0
8;w;p;w;p;0
9;w;p;w;p;0
10;w;p;w;p;e
11;w;p;p;p;0
12;p;p;w;p;0
13;w;w;p;p;0
14;p;w;p;p;0
15;p;w;w;p;0
16;w;w;w;p;c

17
batchGame/castledungeon/mapA.txt Executable file
View File

@ -0,0 +1,17 @@
:Entrance
1;w;p;p;w;0
2;p;p;p;w;0
3;p;p;p;w;0
4;p;p;w;w;c
5;w;w;p;p;0
6;p;p;p;p;0
7;p;p;p;p;0
8;p;w;w;p;0
9;w;p;w;w;0
10;w;d;p;p;0
11;p;d;w;p;0
12;w;p;w;w;0
13;w;w;p;p;0
14;p;w;p;d;0
15;p;w;p;d;0
16;p;w;w;p;0

10
batchGame/castledungeon/monsters.txt Executable file
View File

@ -0,0 +1,10 @@
Ghoul
Zombie
Bear
Spider
Rat
Bat
Ghost
Creature
Basilisk
Creeper

17
batchGame/castledungeon/note.txt Executable file
View File

@ -0,0 +1,17 @@
You found my second note
Congratulations you made it
quite far.
No further instructions here
You will have to continue on
your own. I myself will probably
never go any further. Im trapped
in this deadend.
I have no food left. Only little
water. My sword lost its sharpness.
I will die soon.
I know something is in this room
but i cant see it. It talks to me.
Please have mercy with me.

6
batchGame/castledungeon/objects1.txt Executable file
View File

@ -0,0 +1,6 @@
16;d;r;11;0;2.13
4;e;3;3;a;0
7;c;k.11;s.10;a;0

10
batchGame/castledungeon/objects10.txt Executable file
View File

@ -0,0 +1,10 @@
1;d;l;71;0;7.4
3;d;b;101;0;11.15
4;d;r;102;0;14.1
14;d;t;81;0;8.2
16;d;r;102;0;14.13
3;e;3;1;a;0
16;c;k.81;a;0;0

6
batchGame/castledungeon/objects11.txt Executable file
View File

@ -0,0 +1,6 @@
1;d;b;111;0;12.13
4;d;r;112;0;13.1
15;d;t;101;0;10.3

5
batchGame/castledungeon/objects12.txt Executable file
View File

@ -0,0 +1,5 @@
13;d;t;111;0;11.1
11;c;k.101;a;w.deadend.txt;s.50

7
batchGame/castledungeon/objects13.txt Executable file
View File

@ -0,0 +1,7 @@
1;d;l;112;0;11.4
15;d;t;141;0;14.3
3;e;5;1;k.112;0
16;c;k.111;a;a;0

10
batchGame/castledungeon/objects14.txt Executable file
View File

@ -0,0 +1,10 @@
1;d;l;102;0;10.4
3;d;b;141;0;13.15
4;d;r;142;0;15.1
14;d;t;91;0;9.2
13;d;l;102;0;10.16
13;c;k.142;a;a;s.40

7
batchGame/castledungeon/objects15.txt Executable file
View File

@ -0,0 +1,7 @@
1;d;l;142;0;14.4
12;d;r;151;0;16.9
14;e;3;2;s.30;0
13;c;k.151;a;s.20;k.91

9
batchGame/castledungeon/objects16.txt Executable file
View File

@ -0,0 +1,9 @@
3;d;b;161;0;17.15
9;d;l;151;0;15.12
11;e;4;2;k.161;0
4;c;a;a;s.20;0
12;c;a;a;0;0
13;c;a;k.171;s.15;0

10
batchGame/castledungeon/objects17.txt Executable file
View File

@ -0,0 +1,10 @@
1;d;b;171;0;18.13
4;d;b;172;0;18.16
12;d;t;172;0;0
15;d;t;161;0;16.3
16;d;r;173;0;19.13
16;d;b;172;0;0
16;e;6;1;k.173;0

7
batchGame/castledungeon/objects18.txt Executable file
View File

@ -0,0 +1,7 @@
13;d;t;171;0;17.1
16;d;t;172;0;17.4
3;e;3;3;a;0
4;c;k.172;a;s.20;a

7
batchGame/castledungeon/objects19.txt Executable file
View File

@ -0,0 +1,7 @@
6;d;l;999;0;21.5
13;d;l;174;0;17.16
1;e;10;3;a;Hellraiser
6;c;a;a;a;s.99

7
batchGame/castledungeon/objects2.txt Executable file
View File

@ -0,0 +1,7 @@
:NONAME
3;d;b;21;0;3.15
13;d;l;11;0;1.16
11;e;3;2;a;0
10;c;a;k.21;s.30;0

17
batchGame/castledungeon/objects20.txt Executable file
View File

@ -0,0 +1,17 @@
4;d;r;h;0;20.1
4;e;3;3;a;0
5;e;;;0;0
6;e;;;0;0
7;e;;;0;0
8;e;;;0;0
9;e;;;0;0
10;e;;;0;0
11;e;;;0;0
12;e;;;0;0
13;e;;;0;0
14;e;;;0;0
15;e;;;0;0
16;e;;;0;0

1
batchGame/castledungeon/objects21.txt Executable file
View File

@ -0,0 +1 @@
5;d;l;999;0;19.6

3
batchGame/castledungeon/objects22.txt Executable file
View File

@ -0,0 +1,3 @@
:NONAME
4;d;r;61;0;23.1
16;d;t;61;0;6.4

3
batchGame/castledungeon/objects23.txt Executable file
View File

@ -0,0 +1,3 @@
:NONAME
1;d;l;61;0;22.4
16;d;t;61;0;7.4

7
batchGame/castledungeon/objects3.txt Executable file
View File

@ -0,0 +1,7 @@
1;d;b;31;0;5.13
4;d;r;32;0;6.1
15;d;t;21;0;2.3
16;c;k.31;s.40;a;a

7
batchGame/castledungeon/objects4.txt Executable file
View File

@ -0,0 +1,7 @@
12;d;r;41;0;5.9
9;e;3;3;a;0
5;c;k.32;0;s.50;0
13;c;w.note.txt;k.61;s.20;0

7
batchGame/castledungeon/objects5.txt Executable file
View File

@ -0,0 +1,7 @@
9;d;l;41;0;4.12
13;d;t;31;0;3.1
5;e;3;1;k.41;0
14;e;1;3;a;0

9
batchGame/castledungeon/objects6.txt Executable file
View File

@ -0,0 +1,9 @@
1;d;l;32;0;3.4
12;d;r;61;0;7.9
16;d;l;32;0;6.15
15;d;r;32;0;6.16
11;e;5;1;s.10;0
16;c;a;a;0;s.10

8
batchGame/castledungeon/objects7.txt Executable file
View File

@ -0,0 +1,8 @@
4;d;r;71;0;10.1
4;d;b;61;0;23.16
9;d;l;61;0;6.12
7;e;4;2;s.20;0
16;e;4;1;s.10;0
13;c;a;a;s.20;0

7
batchGame/castledungeon/objects8.txt Executable file
View File

@ -0,0 +1,7 @@
2;d;b;81;0;10.14
4;e;5;2;a;0
13;e;4;2;s.20;0
16;c;k.102;a;a;s.20

7
batchGame/castledungeon/objects9.txt Executable file
View File

@ -0,0 +1,7 @@
2;d;b;91;0;14.14
10;e;3;3;s.40;0
1;c;a;s.40;s.40;a
16;c;k.141;a;0

7
batchGame/castledungeon/objectsA.txt Executable file
View File

@ -0,0 +1,7 @@
:Entrance
10;d;t;A11;0;1.1
11;d;t;A11;0;1.1
14;d;b;A11;0;1.1
15;d;b;A11;0;1.1
4;c;s.10;a;0;0

881
batchGame/castledungeon/quests.bat Executable file
View File

@ -0,0 +1,881 @@
::LAUNCH ROAMING MONSTER
::set "forceMonster=1"
if %Level% gtr 1 (
set "i=alpha"
set "monsterIcon=M"
set "forceMonster=0"
call ..\cmd\monster.bat
)
if %Level% gtr 7 if %Level% lss 20 (
set "i=beta"
set "monsterIcon=M"
set "forceMonster=0"
call ..\cmd\monster.bat
)
if %Level% gtr 14 if %Level% lss 20 (
set "i=gamma"
set "monsterIcon=M"
set "forceMonster=1"
call ..\cmd\monster.bat
)
if %Level% gtr 17 if %Level% lss 20 (
set "i=delta"
set "monsterIcon=M"
set "forceMonster=1"
call ..\cmd\monster.bat
)
::EXECUTE ONLY IF PLAYER MOVED
if "%fieldId%"=="%currentField%" goto end
::DISPLAY WELCOME MESSAGE IF FIRST START
if "%newGame%"=="1" (
set newGame=0
echo.new game started: %time:~0,5% - %date%>>"%player%\quests.txt"
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. Hey %player%
echo. Welcome to this new challenge
echo. suit up there will be alot of danger
echo. within this part of the dungeon.
echo.
echo. At the moment you are weak, but you will
echo. become stronger the further you go.
echo. It might be smart to not always fight enemys.
echo.
echo. First check your Backback, you might have
echo. something valuable in there.
echo.
echo. During Your journey you will find further
echo. instructions within Scrolls, always look out
echo. for them.
echo.
echo. Good Luck...
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo. press any key...
pause >nul
::echo.s;99>>"%player%\inventory.txt"
set "manalevel=99"
set "relPos=1"
cls
)
::DISPLAY MESSAGE ON FIELD
If "%fieldId%"=="6" If "%Level%"=="19" (
set "bmArray13=H"
set "bmArray14=E"
set "bmArray15=L"
set "bmArray16=P"
set "bmArray2=M"
set "bmArray3=E"
set "forceMonster=1"
)
::+++++++++++++++++++++++++++++++++++++++++++
::CREATE BOSS ENCOUNTERS WITH LOOT
set "bossName="
::CREATE RANDOM BOSS ENCOUNTER RANDOM ENCOUNTER
::set "r=%random:~2,1%%random:~3,1%"
::CHANGE BOSS LOOT TO ENABLE WEAPONS OR SPELLS WHITH SCROLLS
::If %r% LSS 50 if "%gameMode%"=="Knight" (
:: set "bossLoot=x.weapon"
::) else (
:: set "bossLoot=s.69"
::)
::If %r% LSS 50 if "%gameMode%"=="Magician" (
:: set "bossLoot=w.scroll"
::) else (
:: set "bossLoot=s.69"
::)
::
::If %random:~2,1%%random:~3,1% LSS 2 If "%bm%"==" " If %life% geq 1 If not "%bossMapLevel%"=="%Level%" (
:: set "bossName=Liz%random:~2,2%"
:: set "bossStrength=3"
:: set "bossTitle=Dark_Knight"
:: set "bossMapLevel=%Level%"
::)
::+++++++++++++++++++++++++++++++++++++++++++
::SPECIFIC ENCOUNTERS ON SPECIFIC FIELDS AND LEVELS
If "%fieldId%"=="3" If "%Level%"=="3" If "%questWQamuletEnable%"=="1" (
call :questWQfoundamulet
)
If "%fieldId%"=="3" If "%Level%"=="12" (
set "bossName=Vampire"
set "bossTitle=Vampire_Lord"
set "bossStrength=6"
set "bossLoot=w.scroll"
set "attackName=8;95;45;Dragon_Sword"
)
If "%fieldId%"=="6" If "%Level%"=="17" (
set "bossName=witchQueen"
set "bossTitle=Witch_Lord"
set "bossStrength=6"
set "bossLoot=s.99"
)
If "%fieldId%"=="11" If "%Level%"=="19" (
set "bossName=Dragon"
set "bossTitle=Dragon_Lord"
set "bossStrength=10"
set "bossLoot=w.scroll"
set "attackName=9;1;50;Magic_Spoon"
)
if not "%bossName%"=="" call :initBoss
if "%Level%"=="21" call :endScreen
::LAUNCH SPECIAL ITEM CHECK
::baseFile: specialItems.txt
::
::Icon;Name;fieldId.Level;shortDescription;descriptionFile
::!;Orb;13.1;Magic_Orb;mo.item
::ItemType.InventoryName
::y.Orb
::description text Triggers:
::"loot: attack" triggers attack option
::"quest: questName" triggers quest
::"item: itemName" triggers new Item option
::IF QUEST IST TRIGGERED FROM ITEM CALL FUNCTION
if "%questGC%"=="1" call :questGC
if "%questKS%"=="1" call :questKS
if "%questCA%"=="1" call :questCA
if "%questAC%"=="1" call :questAC
if "%questWQ%"=="1" call :questWQ
if "%questWA%"=="1" call :questWA
::ENABLE CHAIN ARMOR AFTER LOADING GAME
::echo.%round%
if "%round%"=="1" call :questCAStartupEnable
goto end
::+++++++++++++++++++++++++++++++++++++++++++
::HELPER "FUNCTIONS" BELOW
::INITIATES A NEW BOSS ENCOUNTER
:initBoss
if "%bossTitle%"=="" set "bossTitle=%bossName%"
::NOT WORKING MESS
if exist "%player%\tmpObject.txt" if not "%bFlag%"=="1" (
del /Q "%player%\tmpObject.txt"
set "objects=objects%Level%.txt"
set "relPos=1"
)
if exist "%player%\tmpMap.txt" if not "%bFlag%"=="1" (
del /Q "%player%\tmpMap.txt"
set "map=map%Level%.txt"
set "relPos=1"
)
::ENDS HERE I GUESS
if "%bFlag%"=="1" set "bFlag=0"
if "%bossLoot%"=="x.weapon" call :createWeapon
if "%bossLoot%"=="w.scroll" call :createScroll
find "%bossName% boss fight started" "%player%\quests.txt">nul
if not "%errorlevel%"=="0" (
set "objects=%player%\tmpObject.txt"
echo.%fieldId%;e;%bossStrength%;3;%bossLoot%>"%player%\tmpObject.txt"
set "map=%player%\tmpMap.txt"
echo.%fieldId%;w;w;w;w;e>"%player%\tmpMap.txt"
set "relPos=1"
set "bFlag=1"
set "forceFight=1"
set "enemyName=%bossTitle%"
echo.%bossName% boss fight started>>"%player%\quests.txt"
echo.%bossStrength%;%bossLoot%;%bossTitle%>"%player%\%fieldId%.%Level%.e.ob.txt"
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You encountered a %bossTitle:_= %
echo. Fight for your Life!
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
ping -n 4 localhost >nul
cls
set "bossLoot="
)
find "0;" "%player%\%fieldId%.%Level%.e.ob.txt" >nul
if "%errorlevel%"=="0" if exist "%player%\%fieldId%.%Level%.e.ob.txt" (
echo.%bossName% boss killed>>"%player%\quests.txt"
)
goto :eof
:createWeapon
set rN=%random:~2,1%
set rNc=0
if "%rN%"=="0" set "rN=3"
for /f %%a in (weapons.txt) do set "weaponLineName=%%a" & call :rEfl1
if "%bossLoot%"=="x.weapon" set "bossLoot=x.Dagger"
goto :eof
:createScroll
set rN=%random:~2,1%
set rNc=0
set "attackName="
for /f %%a in (attacks.txt) do set "attackLineName=%%a" & call :rEfl2
if "%rN%"=="0" set "attackName=3;20;20;Summon_Sword"
if "%attackName%"=="" goto createScroll
find "%attackName%" "%player%\quests.txt">nul
if "%errorlevel%"=="0" goto :eof
echo.this magic scroll contains a Spell>scroll.txt
echo.You can use it during any attack>>scroll.txt
echo.As long as you have enough Mana>>scroll.txt
echo.loot: %attackName%>>scroll.txt
set "attackName="
goto :eof
:rEfl1
for /f "tokens=1,2,3,4 delims=;" %%a in ("%weaponLineName%") do (set weaponName=%%d)
if "%rN%"=="%rNc%" set "bossLoot=x.%weaponName%"
set /a rNc=%rNc%+1
goto :eof
:rEfl2
if "%rN%"=="%rNc%" set "attackName=%attackLineName%"
set /a rNc=%rNc%+1
goto :eof
:questGC
set "relPos=1"
find "questGC fin" "%player%\quests.txt">nul
if "%errorlevel%"=="0" (
cls
set "questGC="
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You already dug at this place.
echo. And even found a chest.
echo. Now it is time to move on!
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
cls
goto :eof
)
::LAUNCH SHOVEL QUEST AT SPECIFIC FIELD
If "%fieldId%"=="4" If "%Level%"=="9" (
cls
set "questGC="
set /a highscore=%highscore%+100000
echo.questGC finished: %time:~0,5% - %date%>>"%player%\quests.txt"
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You start digging with your shovel.
echo.
echo. There seems to be a small patch of loose
echo. ground.
echo.
echo. After a short while you hit something solid.
echo. As you inspect the solid object you recognize
echo. a chest which was burried in this room.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
echo.k.999>>%player%\4.9.c.ob.txt
echo.s.50>>%player%\4.9.c.ob.txt
set "bmArray4=C"
cls
goto :eof
)
cls
set "questGC="
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You tried digging with your shovel
echo. but there are too many rocks to be
echo. able to penetrate the ground.
echo.
echo. This seems not to be the right place.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
cls
goto :eof
:questKS
set "relPos=1"
find "questKS fin" "%player%\quests.txt">nul
if "%errorlevel%"=="0" (
set "questKS="
goto :eof
)
echo.questKS finished: %time:~0,5% - %date%>>"%player%\quests.txt"
if "%gameMode%"=="Knight" (
cls
set "questKS="
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. As you look underneath the pile of bones
echo. you see a shiny object laying there
echo.
echo. You found a new Sword!
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
cls
set /a highscore=%highscore%+1000
echo.2;15;32;Broadsword>>%player%\attacks.txt
) else (
cls
set "questKS="
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. As you look underneath the pile of bones
echo. you see something laying there
echo.
echo. You found a Mana Potion!
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
cls
set /a highscore=%highscore%+1000
echo.s;50>>%player%\inventory.txt
)
goto :eof
:questCAStartupEnable
find "questCA;fin" "%player%\quests.txt">nul
if not "%errorlevel%"=="0" goto :eof
:questCA
set "relPos=1"
set "questCA="
set v=no
for /f %%a in ('find "questCA;fin" "%player%\quests.txt"') do (if not "%%a"=="----------" set v=%%a)
if "%v%"=="no" (goto endQuestCA)
for /f "tokens=3 delims=;" %%a in ("%v%") do (set gameModeLifes=%%a)
goto endQuestCAHook
:endQuestCA
set /a gameModeLifes=%gameModeLifes%+2
echo.questCA;finished;%gameModeLifes% : %time:~0,5% - %date%>>"%player%\quests.txt"
set /a highscore=%highscore%+1000
:endQuestCAHook
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You are now wearing the rusty chainmail!
echo.
echo. Your max health increases
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
cls
goto :eof
:questAC
::ITEMS NEEDED
::P;Pebble;0.0;Small Pepple;sp.item
::U;Well;x.x;Dryed_up_Well;dw.item
set questACAppleCount=0
for /f %%a in (%player%\inventory.txt) do (if "%%a"=="a;" call :questACCount)
cls
set "questAC="
set "relPos=1"
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You come across a well
echo.
echo. As you come closer you hear a voice wispering
echo.
echo. "Feed Me"...."Feed Me"...
echo. "And you will receive a reward"
echo.
echo. Above said well you see a bucket tied to a
echo. long rope which is swung around a wooden
echo. branch.
echo. You might be able to place something in
echo. this bucked and lower it down into the
echo. darkness.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Apples in Inventory: %questACAppleCount%
echo.
echo. Would you like give one Apple?
echo. [y/n]
choice /C:"yn" /N "-> "
if "%errorlevel%"=="2" cls & goto :eof
::CHANGE BOSS LOOT TO ENABLE WEAPONS OR SPELLS WHITH SCROLLS
set "bossLoot="
If %r% LSS 60 if "%gameMode%"=="Knight" (
call :createWeapon
)
If %r% LSS 60 if "%gameMode%"=="Magician" (
set "bossLoot=w.scroll"
call :createScroll
)
if "%bossLoot%"=="" (set "bossLoot=y.Pebble")
echo.%bossLoot%>%player%\%fieldId%.%Level%.c.ob.txt
set "f="
set "questACHfl="
if exist tmp.txt del tmp.txt
for /f %%a in (%player%\inventory.txt) do (set "questACHfl=%%a" & call :questACHfl)
cls
type tmp.txt>%player%\inventory.txt
del tmp.txt >nul
set "bossLoot="
set "f="
goto :eof
:questACHfl
if not "%questACHfl%"=="a;" (
echo.%questACHfl%>>tmp.txt
)
if "%questACHfl%"=="a;" if "%f%"=="" (
set f=1
goto :eof
)
if "%questACHfl%"=="a;" if not "%f%"=="" (
echo.%questACHfl%>>tmp.txt
)
goto :eof
:questACCount
set /a questACAppleCount=%questACAppleCount%+1
goto :eof
:questWQ
set "questWQ="
set "questWQamuletEnable=1"
set "relPos=1"
find "questWQAmuletFound: " "%player%\quests.txt">nul
if "%errorlevel%"=="0" set "questWQAmuletFound=1"
find "questWQAmuletReturned: " "%player%\quests.txt">nul
if "%errorlevel%"=="0" goto questWQAmuletReturned
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo. Aaah.. somebody came to rescue me.
echo.
echo. I was thinking that I would die in here.
echo. However, you will help me, am I right?
echo.
echo. Well if you help me, I will give you my key,
echo. which you will need to proceed further
echo. into the dungeon.
echo.
echo. I lost my health amulet,
echo. without it I cannot leave this place.
echo.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. What would you like to do?
if "%questWQAmuletFound%"=="1" (
echo. [r; return Amulet / s; steal the Key]
) else (
echo. [h; Help / s; Steal the Key]
)
choice /C:"hsr" /N "-> "
cls
if "%errorlevel%"=="1" call :questWQhelp
if "%errorlevel%"=="2" call :questWQsteal
if "%errorlevel%"=="3" call :questWQreturnAmulet
cls
goto :eof
:questWQhelp
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo. I knew it once I saw your face.
echo. You are a kind stranger.
echo.
echo. I lost my amulet in the third room.
echo. You must have seen it laying
echo. there on the ground when you passed by.
echo.
echo. You might have to get a second look.
echo. It is not very big or shiny you may have
echo. overlooked it.
echo.
echo. Please go fetch the amulet
echo. and bring it back to me.
echo. But do not use it! I need all it's power
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Press any key to continue
pause>nul
set /a highscore=%highscore%+1000
echo.questWQ;help_finished;%gameModeLifes%: %time:~0,5% - %date%>>"%player%\quests.txt"
:questWQendHook
goto :eof
:questWQsteal
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
if "%questWQreturnAmuletUsed%"=="1" (
echo. What should I do with this
echo. You already used it's power
) else (
echo. I see the look on your face.
echo. You will not help me, right.
)
echo.
echo. I knew it.
echo.
echo. Well I will not give you the key.
echo. You have to grab it from my dead body.
echo.
echo.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Press any key to continue
pause>nul
echo.questWQ;finished;steal_finished: %time:~0,5% - %date%>>"%player%\quests.txt"
set "bossName=Warrior"
set "bossTitle=Deadly Warrior"
set "bossStrength=7"
set "bossLoot=k.71"
call :initBoss
set "bossName="
set "bossTitle="
set "bossStrength="
set "bossLoot="
goto :eof
:questWQfoundamulet
find "questWQAmuletFound: " "%player%\quests.txt">nul
if "%errorlevel%"=="0" goto :eof
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. As you look closer on the floor
echo. you see something...
echo.
echo. You found the amulet!
echo. Congratulations
echo. Now you must decide what to do with it.
echo. In the meantime you put it in your backpack.
echo.
echo.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Press any key to continue
pause>nul
echo.y;Amulet>>"%player%\inventory.txt"
echo.questWQ;finished;questWQAmuletFound: %time:~0,5% - %date%>>"%player%\quests.txt"
set /a highscore=%highscore%+20000
set "relPos=1"
cls
goto :eof
:questWQreturnAmulet
if not "%questWQAmuletFound%"=="1" goto questWQhelp
find "questWA;1;" "%player%\quests.txt">nul
if "%errorlevel%"=="0" set "questWQreturnAmuletUsed=1" & goto questWQsteal
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Thank you very much for coming back
echo. as you see you really try to help me
echo.
echo. I dont know if I would have done the same.
echo. I will always be in your dept
echo.
echo. Here have this key and go save the princess
echo.
echo.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Press any key to continue
pause>nul
echo.k;71>>%player%\inventory.txt
echo.questWQ;finished;questWQAmuletReturned: %time:~0,5% - %date%>>"%player%\quests.txt"
set /a highscore=%highscore%+50000
goto :eof
:questWQAmuletReturned
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Thank you for all you have done
echo. I will always be in your dept
echo. Now go and save the princess
echo.
echo.
echo.
echo.
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo.
echo.
echo.
echo. Press any key to continue
pause>nul
goto questWQendHook
:questWA
set "questWA="
set v=no
for /f %%a in ('find "questWA;" "%player%\quests.txt"') do (if not "%%a"=="----------" set v=%%a)
if "%v%"=="no" (
set "uses=0"
) else (
set "uses=%v:~8,1%"
)
set "v="
cls
if %uses% lss 3 (
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You rub the amulet gently
echo. You feel warmth flashing through you
echo.
echo. Your health is replenished
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
) else (
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You rub the amulet gently
echo. Nothing seems to happen
echo.
echo. It seems like the amulet has lost it's power
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
set "relPos=1"
cls
goto :eof
)
echo.
echo.
echo.
echo. press any key to continue...
pause>nul
set /a uses=%uses%+1
set "life=%gameModeLifes%"
set "relPos=1"
echo.questWA;%uses%;questWAAmuletUsed: %time:~0,5% - %date%>>"%player%\quests.txt"
cls
goto :eof
:endScreen
set "relPos=1"
find "gameEnd: " "%player%\quests.txt">nul
if "%errorlevel%"=="0" goto :eof
echo.gameEnd: %time:~0,5% - %date%>>"%player%\quests.txt"
cls
echo.##################################################
echo.# #
echo.# #
echo.# #
echo.# #
echo.# #
echo.# Congratulations #
echo.# You made it through all Levels #
echo.# and escaped the dungeon. #
echo.# Now return to nothing #
echo.# #
echo.# #
echo.# #
echo.# #
echo.# by karim #
echo.# #
echo.##################################################
ping -n 10 localhost >nul
cls
set "bmArray9=T"
set "bmArray10=H"
set "bmArray11=E"
set "bmArray5=E"
set "bmArray6=N"
set "bmArray7=D"
:end
if exist "viewer.cmd" if not exist "%tmp%\*514.tmp" (
start /min /wait viewer.cmd
del viewer.cmd
echo.%time%%date%>"%tmp%\%random%514.tmp"
)

7
batchGame/castledungeon/rt.item.txt Executable file
View File

@ -0,0 +1,7 @@
You found this old shovel.
It seems like nobody used it for a long
time. As you inspect it further you see
old blood marks on the shovels blade.
You can use it to dig holes in the ground.
quest: questGC

4
batchGame/castledungeon/scroll.txt Executable file
View File

@ -0,0 +1,4 @@
this magic scroll contains a Spell
You can use it during any attack
As long as you have enough Mana
loot: 3;20;30;Thunder_Storm

4
batchGame/castledungeon/sk.item.txt Executable file
View File

@ -0,0 +1,4 @@
You found a pile of bones on the ground
It looks like there is something underneath
item: s.10

4
batchGame/castledungeon/sk1.item.txt Executable file
View File

@ -0,0 +1,4 @@
You found a pile of bones on the ground
It looks like there is something underneath
item: s.10

4
batchGame/castledungeon/sk2.item.txt Executable file
View File

@ -0,0 +1,4 @@
You found a pile of bones on the ground
It looks like there is something underneath
item: a.0

2
batchGame/castledungeon/sp.item.txt Executable file
View File

@ -0,0 +1,2 @@
Small stone pebble.
Nothing useful really.

23
batchGame/castledungeon/specialItems.txt Executable file
View File

@ -0,0 +1,23 @@
X;Crystal;0.0;Glowing_Crystal;gc.item
B;Ghoul;7.11;Dead_Ghoul;dg.item
I;Shovel;0.0;Rusty_Tool;rt.item
B;Prince;14.8;Dead_Body;db.item
K;King;7.A;Old_Migthy_King;ka.item
B;Skeleton;4.4;Pile_of_Bones;ks.item
A;Armor;0.0;Old_Chainmail;ca.item
B;Skeleton;1.4;Pile_of_Bones;as.item
P;Pebble;0.0;Small_Stone_Pepple;sp.item
U;Well;4.9;Dryed_up_Well;dw.item
W;Warrior;11.22;He_seems_to_be_hurt;wq.item
A;Amulet;0.0;Warriors_Amulet;am.item
B;Skeleton;5.1;Pile_of_Bones;sk1.item
B;Skeleton;3.23;Pile_of_Bones;sk1.item
B;Skeleton;16.12;Pile_of_Bones;sk1.item
B;Skeleton;4.9;Pile_of_Bones;sk1.item
B;Skeleton;1.16;Pile_of_Bones;sk1.item
B;Skeleton;7.17;Pile_of_Bones;sk1.item
B;Skeleton;8.3;Pile_of_Bones;sk2.item

9
batchGame/castledungeon/weapons.txt Executable file
View File

@ -0,0 +1,9 @@
2;10;40;Rapier
3;20;35;Long_Sword
2;15;37;Short_Sword
3;20;37;Battle_Axe
4;40;33;Katana
1;2;29;Dagger
2;15;35;Hammer
1;1;30;Dagger
2;15;37;Short_Sword

4
batchGame/castledungeon/wq.item.txt Executable file
View File

@ -0,0 +1,4 @@
You see somebody laying on the ground
You try to find out if it still lives
quest: questWQ

BIN
batchGame/cmd/MapMaker.xlsm Executable file
View File

Binary file not shown.

BIN
batchGame/cmd/choice.exe Executable file
View File

Binary file not shown.

BIN
batchGame/cmd/getkey.exe Executable file
View File

Binary file not shown.

23
batchGame/cmd/install.cmd Executable file
View File

@ -0,0 +1,23 @@
@echo off
echo.Installing BatchGame
echo.from: %cd%
ping -n 2 localhost >nul
xcopy /S /E /Q /I "batchGame" "C:\batchGame"
xcopy %cd%\batchGame\cmd\choice.exe "C:\WINDOWS\system32\"
xcopy %cd%\batchGame\cmd\mode.com "C:\WINDOWS\system32\"
xcopy %cd%\batchGame\cmd\ureg.dll "C:\WINDOWS\system32\"
move "C:\Documents and Settings\All Users\Desktop\eXPerience" "C:\Documents and Settings\Administrator\eXPerience"
echo.cd C:\batchGame>"C:\Documents and Settings\All Users\Start Menu\Programs\Startup\launchGame.cmd"
echo.call "C:\batchGame\GAME.bat">>"C:\Documents and Settings\All Users\Start Menu\Programs\Startup\launchGame.cmd"
echo.cd C:\batchGame>"C:\Documents and Settings\All Users\Desktop\Launch Batch Game.cmd"
echo.call "C:\batchGame\GAME.bat">>"C:\Documents and Settings\All Users\Desktop\Launch Batch Game.cmd"
echo.
echo.done!
ping -n 3 localhost >nul
exit

3314
batchGame/cmd/main.bat Executable file
View File

File diff suppressed because it is too large Load Diff

233
batchGame/cmd/map.bat Executable file
View File

@ -0,0 +1,233 @@
@echo off
color 74
if not "%1"=="" (set "player=%1") else (set /p player=enter player: )
if not "%2"=="" (set "world=%2") else (set /p world=enter world: )
if not "%3"=="" (set "mainFlag=1")
if "%3"=="3" (set "mainFlag=3")
if not exist "%world%\*" (
echo.ERROR: Needed Files Not Found
pause>nul
exit
) else (
cd %world%
)
if "%mainFlag%"=="3" goto new
::CHANGE RESOLUTION HERE!!!
::MODE CON COLS=50 LINES=22
MODE CON COLS=42 LINES=18
:new
if exist "%player%\curMap.txt" (set /p map=<"%player%\curMap.txt") else (set map=map1.txt & echo.map1.txt>%player%\curMap.txt)
:getPosition
set count=1
set "lineId="
set "lineL="
set "lineT="
set "lineR="
set "lineB="
set "lineItem="
set "getPositionFlag=0"
setlocal enabledelayedexpansion
if not "%mainFlag%"=="3" (
echo.loading...
)
for /f "tokens=1,2 delims=." %%a in ("%map:~3,250%") do (set "Level=%%a")
if not "%mainFlag%"=="3" (
title level: %Level%
)
for /f "skip=1" %%a in (%map%) do (set "getPositionLine=%%a" & call :getPositionFl1)
goto getPositionFlEnd
:getPositionFl1
for /f "tokens=1,2,3,4,5,6 delims=;" %%a in ("%getPositionLine%") do (
set "lineId=%%a"
set "lineL=%%b"
set "lineT=%%c"
set "lineR=%%d"
set "lineB=%%e"
set "lineItem=%%f"
)
set "lineId!count!=%lineId%"
set "lineL!count!=%lineL%"
set "lineT!count!=%lineT%"
set "lineR!count!=%lineR%"
set "lineB!count!=%lineB%"
set "lineItem!count!=%lineItem%"
set /a count=%count%+1
goto :eof
:getPositionFlEnd
set count=0
::BUILD FIELD AND DISPLAY
:buildRoom
set /a count=%count%+1
set /a nextCount=%count%+1
set /a nextCount4=%count%+4
set fieldId=%count%
if "!lineL%count%!"=="w" set "bl!count!=^|" & set "bl!count!b=^║"
if "!lineL%count%!"=="d" set "bl!count!=+" & set "bl!count!b=^║"
if "!lineL%count%!"=="p" set "bl!count!= " & set "bl!count!b= "
if "!lineT%count%!"=="w" set "bt!count!=_" & set "bt!count!b=__"
if "!lineT%count%!"=="d" set "bt!count!=+" & set "bt!count!b=__"
if "!lineT%count%!"=="p" set "bt!count!= " & set "bt!count!b= "
if "!lineT%count%!"=="w" if "!lineB%nextCount4%!"=="w" set "bt!count!= " & set "bt!count!b= "
if "!lineT%count%!"=="d" if "!lineB%nextCount4%!"=="d" set "bt!count!= " & set "bt!count!b= "
if "!lineR%count%!"=="w" set "br!count!=^|" & set "br!count!b=^║"
if "!lineR%count%!"=="d" set "br!count!=+" & set "br!count!b=^║"
if "!lineR%count%!"=="p" set "br!count!= " & set "br!count!b= "
if "!lineR%count%!"=="w" if "!lineL%nextCount%!"=="w" set "br!count!= " & set "br!count!b= "
if "!lineR%count%!"=="d" if "!lineL%nextCount%!"=="d" set "br!count!= " & set "br!count!b= "
if %count%==4 if not "!lineR%count%!"=="d" set "br!count!=^|" & set "br!count!b=║"
if %count%==8 if not "!lineR%count%!"=="d" set "br!count!=^|" & set "br!count!b=║"
if %count%==12 if not "!lineR%count%!"=="d" set "br!count!=^|" & set "br!count!b=║"
if "!lineB%count%!"=="w" set "bb!count!=_" & set "bb!count!b=__"
if "!lineB%count%!"=="d" set "bb!count!=+" & set "bb!count!b=__"
if "!lineB%count%!"=="p" set "bb!count!= " & set "bb!count!b= "
if "!lineItem%count%!"=="0" set "bm!count!= "
if "!lineItem%count%!"=="c" set "bm!count!=^!"
if "!lineItem%count%!"=="e" set "bm!count!=^!"
if "!lineItem%count%!"=="p" set "bm!count!=P"
if "!lineItem%count%!"=="s" set "bm!count!=S"
if "!lineItem%count%!"=="f" set "bm!count!=S"
if not exist "%player%\log%Level%.txt" goto endLogChk
find "!fieldId!;!lineItem%count%!" "%player%\log%Level%.txt">nul
if "!errorlevel!"=="0" if "!lineItem%count%!"=="c" (set "bm!count!= ")
find "!fieldId!;!lineItem%count%!" "%player%\log%Level%.txt">nul
if "!errorlevel!"=="0" if "!lineItem%count%!"=="e" (set "bm!count!= ")
:endLogChk
if not exist "!player!\pp.txt" goto endPosChk
set /p y=<"!player!\pp.txt">nul
if "!y!"=="!fieldId!" (
set "bm!count!=@"
del /Q "!player!\pp.txt"
)
:endPosChk
if %count% lss 17 goto buildroom
if not "%mainFlag%"=="3" cls
echo. !bt13b! !bt13! !bt13b! !bt14b! !bt14! !bt14b! !bt15b! !bt15! !bt15b! !bt16b! !bt16! !bt16b!
echo. !bl13b! !br13b!!bl14b! !br14b!!bl15b! !br15b!!bl16b! !br16b!
echo. !bl13! !bm13! !br13!!bl14! !bm14! !br14!!bl15! !bm15! !br15!!bl16! !bm16! !br16!
echo. !bl13b!!bb13b! !bb13! !bb13b!!br13b!!bl14b!!bb14b! !bb14! !bb14b!!br14b!!bl15b!!bb15b! !bb15! !bb15b!!br15b!!bl16b!!bb16b! !bb16! !bb16b!!br16b!
echo. !bt9b! !bt9! !bt9b! !bt10b! !bt10! !bt10b! !bt11b! !bt11! !bt11b! !bt12b! !bt12! !bt12b!
echo. !bl9b! !br9b!!bl10b! !br10b!!bl11b! !br11b!!bl12b! !br12b!
echo. !bl9! !bm9! !br9!!bl10! !bm10! !br10!!bl11! !bm11! !br11!!bl12! !bm12! !br12!
echo. !bl9b!!bb9b! !bb9! !bb9b!!br9b!!bl10b!!bb10b! !bb10! !bb10b!!br10b!!bl11b!!bb11b! !bb11! !bb11b!!br11b!!bl12b!!bb12b! !bb12! !bb12b!!br12b!
echo. !bt5b! !bt5! !bt5b! !bt6b! !bt6! !bt6b! !bt7b! !bt7! !bt7b! !bt8b! !bt8! !bt8b!
echo. !bl5b! !br5b!!bl6b! !br6b!!bl7b! !br7b!!bl8b! !br8b!
echo. !bl5! !bm5! !br5!!bl6! !bm6! !br6!!bl7! !bm7! !br7!!bl8! !bm8! !br8!
echo. !bl5b!!bb5b! !bb5! !bb5b!!br5b!!bl6b!!bb6b! !bb6! !bb6b!!br6b!!bl7b!!bb7b! !bb7! !bb7b!!br7b!!bl8b!!bb8b! !bb8! !bb8b!!br8b!
echo. !bt1b! !bt1! !bt1b! !bt2b! !bt2! !bt2b! !bt3b! !bt3! !bt3b! !bt4b! !bt4! !bt4b!
echo. !bl1b! !br1b!!bl2b! !br2b!!bl3b! !br3b!!bl4b! !br4b!
echo. !bl1! !bm1! !br1!!bl2! !bm2! !br2!!bl3! !bm3! !br3!!bl4! !bm4! !br4!
echo. !bl1b!!bb1b! !bb1! !bb1b!!br1b!!bl2b!!bb2b! !bb2! !bb2b!!br2b!!bl3b!!bb3b! !bb3! !bb3b!!br3b!!bl4b!!bb4b! !bb4! !bb4b!!br4b!
:loop
if "%mainFlag%"=="3" goto end
if exist "%player%\curMap.txt" (
ping -n 2 localhost >nul
set /p x=<"%player%\curMap.txt"
)
if exist "%player%\pp.txt" (
ping -n 1 localhost >nul
goto new
)
if "%x%"=="done" call :endScreen
if not "%map%"=="%x%" goto new
if exist "%player%\mapRefresh" if not "%mainFlag%"=="1" (
ping -n 1 localhost >nul
del /Q "%player%\mapRefresh"
goto new
)
if "%mainFlag%"=="1" goto end
goto loop
:endScreen
echo.#############################################
echo.# #
echo.# #
echo.# #
echo.# #
echo.# #
echo.# Congratulations #
echo.# You made it through all Levels #
echo.# and you saved the beautiful #
echo.# Princess #
echo.# #
echo.# #
echo.# #
echo.# #
echo.# by karim #
echo.# #
echo.#############################################
ping -n 10 localhost >nul
goto :eof
:end
echo.
if not "%mainFlag%"=="3" choice /C:"b" /N "b: go back ->"

BIN
batchGame/cmd/mode.com Executable file
View File

Binary file not shown.

513
batchGame/cmd/monster.bat Executable file
View File

@ -0,0 +1,513 @@
::echo.%fieldId%
::echo.%Level%
::echo.%gameMode%
::echo.%player%
::echo.%life%
::echo.%manaLevel%
::echo."!bm%fieldId%!"
::echo.
::echo.
::FORCED ENCOUNTER FROM CONSOLE
If exist "%player%\ff.txt" (
del "%player%\ff.txt"
set "bossName=Debug%random:~2,2%"
set "bossStrength=69"
set "bossTitle=Peter"
set "bossLoot=s.99"
call :createEncounter
set "i=%random%"
goto end
)
::FORCE MONSTER TO LAUNCH 1/0
::set forceMonster=0
::DEFINE DEFAULT INSTANCE
if "%i%"=="" set "i=alpha"
::DEFINE MAX AMOUNT OF MONSTERS
if "%monsterAmount%"=="" set monsterAmount=5
set "c=1"
if "!selfId%i%!"=="" (set "selfId%i%=1") else (goto skipGetSelfId)
:getSelfId
if "!amMoArray%c%!"=="" (
set "selfId%i%=%c%"
) else (
set /a c=%c%+1
goto :getSelfId
)
:skipGetSelfId
::DEFINE INSTANCE SPECIFIC VARIABLES
if not "!enemyPosition%i%!"=="" (set "enemyPosition=!enemyPosition%i%!")
if not "!oldEnemyPosition%i%!"=="" (set "oldEnemyPosition=!oldEnemyPosition%i%!")
if not "!enemyPositionItem%i%!"=="" (set "enemyPositionItem=!enemyPositionItem%i%!")
::DEVINE DEFAULT ICON
if not "!monsterIcon!"=="" (
set "monsterIcon%i%=!monsterIcon!"
set "monsterIcon="
)
if "!monsterIcon%i%!"=="" set "monsterIcon%i%=M"
::CREATE RANDOM NUMBER
set "r=%random:~2,1%%random:~3,1%"
::SAVE CMD FROM CRASHING
if "%enemyLevel%"=="" set enemyLevel=0
::INITIATE ENEMY SETTING createEnemy to 1
::WILL BE RESETTED AT LEVEL CHANGE
If not %enemyLevel% == %Level% (set createEnemy%i%=0)
If %r% LSS 31 If not %enemyLevel% == %Level% (
set createEnemy%i%=1
)
If not "!createEnemy%i%!"=="1" If not %enemyLevel% == %Level% (
set createEnemy%i%=0
)
If "%forceMonster%"=="1" (
set "forceMonster="
set createEnemy%i%=1
)
set "enemyLevel=%Level%"
if "!createEnemy%i%!"=="0" goto end
::CHECK IF AN ENCOUNTER ALREADY OCCURED ON CURRENT MAP
set "encounterCheck=0"
set "ecLife="
set "ecLoot="
set "ecName="
if exist "%player%\!walkingEnemyEncounterPosition%i%!.%Level%.e.ob.txt" (
set /p encounterCheck=<"%player%\!walkingEnemyEncounterPosition%i%!.%Level%.e.ob.txt"
)
if "%encounterCheck%"=="0" set "encounterCheck=1;1;1"
for /f "tokens=1,2,3 delims=;" %%a in ("%encounterCheck%") do (
set "ecLife=%%a"
set "ecLoot=%%b"
set "ecName=%%c"
)
if "%ecLife%"=="" set ecLife=1
::echo.!walkingEnemyEncounterPosition%i%!.%Level%.e.ob.txt
::echo.!monsterIcon%i%! %i%:
::echo.%ecLife%
::echo.%ecLoot%
::echo.%ecName%
::if %ecLife% LSS 1 (echo.is dead)
if %ecLife% LSS 1 if "%ecLoot%"=="!walkingEnemyLoot%i%!" if "%ecName%"=="!walkingEnemyName%i%!" (
set "enemyPosition="
set createEnemy%i%=0
goto end
)
if "%encounterCheck%"=="0;!walkingEnemyLoot%i%!;!walkingEnemyName%i%!" (
set "enemyPosition="
set createEnemy%i%=0
goto end
)
::if exist "%player%\!walkingEnemyEncounterPosition%i%!.%Level%.e.ob.txt" if "%bFlag%"=="1" (
:: ::del "%player%\!walkingEnemyEncounterPosition%i%!.%Level%.e.ob.txt"
:: set "bFlag=0"
::)
::FIRST STARTING DESTINATION
if "%enemyPosition%"=="" (
set "enemyPosition=16"
set "enemyPositionItem=!bmArray%enemyPosition%!"
)
::SKIP FIRST MOVE AFTER ENCOUNTER
if "%justFighted%"=="y" (
set "monsterHaveMercy%i%=y"
call :enemyPositionChange
goto end
)
::SKIP SECOND MOVE AFTER ENCOUNTER
if "!monsterHaveMercy%i%!"=="y" (
set "monsterHaveMercy%i%="
call :enemyPositionChange
goto end
)
::DETECT PLAYER AND INITIATE ENCOUNTER
if "%oldEnemyPosition%"=="%fieldId%" if not "!lineItemM%enemyPosition%!"=="e" if not "!lineItemM%enemyPosition%!"=="f" (
call :createEnemy
call :createEncounter
goto end
)
call :enemyPositionChange
if "%oldEnemyPosition%"=="%fieldId%" if not "!lineItemM%enemyPosition%!"=="e" if not "!lineItemM%enemyPosition%!"=="f" (
call :createEnemy
call :createEncounter
)
goto end
::FUNCTIONS
:enemyPositionChange
set "moc=1"
:missedOpportunityLoop
if %moc% gtr 3 goto endMissedOpportunityLoop
if not "!missedOpportunityArray%i%.%Level%.%enemyPosition%.%moc%!"=="" if not !missedOpportunityArray%i%.%Level%.%enemyPosition%.%moc%! == 0 (
set /a moc=%moc%+1
set "newEnemyPosition=!missedOpportunityArray%i%.%Level%.%enemyPosition%.%moc%!"
set "missedOpportunityArray%i%.%Level%.%enemyPosition%.%moc%=0"
goto endSettingNewPosition
) else (
set /a moc=%moc%+1
goto missedOpportunityLoop
)
:endMissedOpportunityLoop
set "newEnemyPosition=0"
set "preferredNewEnemyPosition=0"
set "epc=0"
set "preferredNewEnemyPosition=0"
if not "!lineLM%enemyPosition%!"=="w" (set /a epc=%epc%+1)
if %epc% gtr 1 (
set "preferredNewEnemyPosition=%newEnemyPosition%"
set "newEnemyPosition=0"
)
if not "!lineLM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="0" (set /a newEnemyPosition=%enemyPosition%-1)
if not "!lineLM%enemyPosition%!"=="w" if %newEnemyPosition% == 4 if %enemyPosition% == 5 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineLM%enemyPosition%!"=="w" if %newEnemyPosition% == 8 if %enemyPosition% == 9 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineLM%enemyPosition%!"=="w" if %newEnemyPosition% == 12 if %enemyPosition% == 13 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineLM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="%oldEnemyPosition%" (set "altEnemyPosition=%newEnemyPosition%" & set "newEnemyPosition=0" & set /a epc=%epc%-1)
if not "!lineLM%enemyPosition%!"=="w" if %newEnemyPosition% gtr 16 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineLM%enemyPosition%!"=="w" if %enemyPosition% == 1 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not %preferredNewEnemyPosition% == 0 (
set "missedOpportunityArray%i%.%Level%.%enemyPosition%.%epc%=%newEnemyPosition%"
set "newEnemyPosition=%preferredNewEnemyPosition%"
)
set "preferredNewEnemyPosition=0"
if not "!lineTM%enemyPosition%!"=="w" (set /a epc=%epc%+1)
if %epc% gtr 1 (
set "preferredNewEnemyPosition=%newEnemyPosition%"
set "newEnemyPosition=0"
)
if not "!lineTM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="0" (set /a newEnemyPosition=%enemyPosition%+4)
if not "!lineTM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="%oldEnemyPosition%" (set "altEnemyPosition=%newEnemyPosition%" & set "newEnemyPosition=0" & set /a epc=%epc%-1)
if not "!lineTM%enemyPosition%!"=="w" if %newEnemyPosition% gtr 16 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineTM%enemyPosition%!"=="w" if not %newEnemyPosition% == 0 if %newEnemyPosition% lss 1 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not %preferredNewEnemyPosition% == 0 (
set "missedOpportunityArray%i%.%Level%.%enemyPosition%.%epc%=%newEnemyPosition%"
set "newEnemyPosition=%preferredNewEnemyPosition%"
)
set "preferredNewEnemyPosition=0"
if not "!lineRM%enemyPosition%!"=="w" (set /a epc=%epc%+1)
if %epc% gtr 1 (
set "preferredNewEnemyPosition=%newEnemyPosition%"
set "newEnemyPosition=0"
)
if not "!lineRM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="0" (set /a newEnemyPosition=%enemyPosition%+1)
if not "!lineRM%enemyPosition%!"=="w" if %newEnemyPosition% == 5 if %enemyPosition% == 4 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineRM%enemyPosition%!"=="w" if %newEnemyPosition% == 9 if %enemyPosition% == 8 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineRM%enemyPosition%!"=="w" if %newEnemyPosition% == 13 if %enemyPosition% == 12 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineRM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="%oldEnemyPosition%" (set "altEnemyPosition=%newEnemyPosition%" & set "newEnemyPosition=0" & set /a epc=%epc%-1)
if not "!lineRM%enemyPosition%!"=="w" if %newEnemyPosition% gtr 16 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineRM%enemyPosition%!"=="w" if not %newEnemyPosition% == 0 if %newEnemyPosition% lss 1 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not %preferredNewEnemyPosition% == 0 (
set "missedOpportunityArray%i%.%Level%.%enemyPosition%.%epc%=%newEnemyPosition%"
set "newEnemyPosition=%preferredNewEnemyPosition%"
)
set "preferredNewEnemyPosition=0"
if not "!lineBM%enemyPosition%!"=="w" (set /a epc=%epc%+1)
if %epc% gtr 1 (
set "preferredNewEnemyPosition=%newEnemyPosition%"
set "newEnemyPosition=0"
)
if not "!lineBM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="0" (set /a newEnemyPosition=%enemyPosition%-4)
if not "!lineBM%enemyPosition%!"=="w" if "%newEnemyPosition%"=="%oldEnemyPosition%" (set "altEnemyPosition=%newEnemyPosition%" & set "newEnemyPosition=0" & set /a epc=%epc%-1)
if not "!lineBM%enemyPosition%!"=="w" if %newEnemyPosition% gtr 16 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not "!lineBM%enemyPosition%!"=="w" if not %newEnemyPosition% == 0 if %newEnemyPosition% lss 1 (set /a epc=%epc%-1 & set "newEnemyPosition=0")
if not %preferredNewEnemyPosition% == 0 (
set "missedOpportunityArray%i%.%Level%.%enemyPosition%.%epc%=%newEnemyPosition%"
set "newEnemyPosition=%preferredNewEnemyPosition%"
)
:endSettingNewPosition
::MONSTER IS TRAPPED WITHIN CELL AND IT CANT GET OUT
::SEARCHED FOR 2 HOURS FUCK MEE
if "%altEnemyPosition%"=="" set /a altEnemyPosition=%enemyPosition%-1
if "%newEnemyPosition%"=="0" if %epc% == 1 (
set "enemyPosition=0"
)
set "oldEnemyPosition=%enemyPosition%"
if not "%newEnemyPosition%"=="0" (
set "enemyPosition=%newEnemyPosition%"
) else (
set "enemyPosition=%altEnemyPosition%"
)
if "%enemyPosition%"=="0" set "enemyPosition=16"
set "enemyPositionItem=!bm%enemyPosition%!"
if "%enemyPositionItem%"=="@" set "enemyPositionItem= "
::ERASING TRAIL OF SELF
set "c=1"
set "noTrailErase=0"
:checkOtherMonsters
if "!amMoArray%c%!"=="%oldEnemyPosition%" if not "!c!"=="!selfId%i%!" (
set "noTrailErase=1"
)
set /a c=%c%+1
::if not "!amMoArray%c%!"=="" goto checkOtherMonsters
if not %c% gtr %monsterAmount% goto checkOtherMonsters
if not "%noTrailErase%"=="1" (
set "bm%oldEnemyPosition%=!bmArray%oldEnemyPosition%!"
)
if "!bm%oldEnemyPosition%!"=="0" set "bm%oldEnemyPosition%= "
::echo.!monsterIcon%i%!:%i% id !selfId%i%!
::echo.new %newEnemyPosition% alt %altEnemyPosition% old %oldEnemyPosition% epc %epc%
::DRAW MONSTER IN AREA
set "selfIdT=!selfId%i%!"
set "amMoArray%selfIdT%=%enemyPosition%"
set "bm%enemyPosition%=!monsterIcon%i%!"
goto :eof
::create Enemy
:createEnemy
::if "%oldEnemyPosition%"=="%fieldId%" goto end
::RANDOM ENCOUNTER
set "bossName="
set "bossLoot="
set "r=%random:~2,1%%random:~3,1%"
::CHANGE BOSS LOOT TO ENABLE WEAPONS OR SPELLS WHITH SCROLLS
If %r% GTR 20 if "%gameMode%"=="Knight" (
set "bossLoot=x.weapon"
)
If %r% GTR 27 if "%gameMode%"=="Magician" (
set "bossLoot=w.scroll"
)
if "%bossLoot%"=="" (
set "bossLoot=s.69"
)
if "%bossLoot%"=="x.weapon" call :getWeapon
if "%bossLoot%"=="w.scroll" call :createScroll
::echo.%bossLoot%
::GET RANDOM ENEMY NAME
:gren
set rN=%random:~2,1%
set rNc=0
for /f %%a in (monsters.txt) do (set "enemyLineName=%%a" & call :rEfl1)
if "%enemyName%"=="" goto gren
if not "!walkingEnemyName%i%!"=="" if "%bossMapLevel%"=="%Level%" (set "bossTitle=!walkingEnemyName%i%!") else (set "bossTitle=%enemyName%")
set "bossName=Creep%random:~2,2%"
set "bossStrength=3"
::echo.!walkingEnemyName%i%!
::echo.%bossTitle%
::echo."%bossMapLevel%"=="%Level%"
::echo.%bFlag%
if "%bossTitle%"=="" set "bossTitle=Zombiedog"
goto :eof
:createEncounter
if "%bossLoot%"=="" (set "bossLoot=s.69")
find "%bossName% boss fight started" "%player%\quests.txt">nul
if not "%errorlevel%"=="0" (
set "objects=%player%\tmpObject.txt"
echo.%fieldId%;e;%bossStrength%;2;%bossLoot%>"%player%\tmpObject.txt"
set "map=%player%\tmpMap.txt"
echo.%fieldId%;w;w;w;w;e>"%player%\tmpMap.txt"
set "bossMapLevel=%Level%"
set "relPos=1"
set "bFlag=1"
set "forceFight=1"
set "enemyName=%bossTitle%"
echo.%bossName% boss fight started>>"%player%\quests.txt"
echo.%bossStrength%;%bossLoot%;%bossTitle%>"%player%\%fieldId%.%Level%.e.ob.txt"
set "walkingEnemyLoot%i%=%bossLoot%"
set "walkingEnemyName%i%=%bossTitle%"
set "walkingEnemyEncounterPosition%i%=%fieldId%"
cls
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
echo.+ +
echo. You encountered a %bossTitle:_= %
echo. Fight for your Life!
echo.+ +
echo.++++++++++++++++++++++++++++++++++++++++++++++++++
ping -n 4 localhost >nul
cls
set "bossLoot="
)
goto :eof
:getWeapon
set rN=%random:~2,1%
set rNc=0
if "%rN%"=="0" set "rN=3"
for /f %%a in (weapons.txt) do set "weaponLineName=%%a" & call :rEfl2
if "%bossLoot%"=="x.weapon" set "bossLoot=x.Dagger"
goto :eof
:createScroll
::Create Scroll
::find "w;scroll" "%player%\inventory.txt">nul
::if not "%errorlevel%"=="0" goto :eof
set rN=%random:~2,1%
set rNc=0
for /f %%a in (attacks.txt) do set "attackLineName=%%a" & call :rEfl3
if "%rN%"=="0" set "attackName=3;20;20;Summon_Sword"
if "%attackName%"=="" set "attackName=4;30;20;Summon_Greatsword"
find "%attackName%" "%player%\quests.txt">nul
if "%errorlevel%"=="0" goto createScroll
echo.this magic scroll contains a Spell>scroll.txt
echo.You can use it during any attack>>scroll.txt
echo.As long as you have enough Mana>>scroll.txt
echo.loot: %attackName%>>scroll.txt
set "attackName="
goto :eof
-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAsAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABVtbj9EdTWrhHU1q4R1Nau
n8vFrhjU1q7t9MSuE9TWrlJpY2gR1NauAAAAAAAAAABQRQAATAECAFpm0U8AAAAA
AAAAAOAADwELAQUMAAIAAAACAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAA
BAAAAAAAAAAEAAAAAAAAAAAwAAAAAgAAAAAAAAMAAAAAABAAABAAAAAAEAAAEAAA
AAAAABAAAAAAAAAAAAAAABggAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAIAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAA
lgAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAAGAucmRhdGEAALoAAAAAIAAA
AAIAAAAEAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAADoBgAAAFDocwAAAOhAAAAA
6F8AAACAPgB0GGaBPi9XdAdmgT4vd3QK/xUMIEAAhcB0Gf8VECBAAIXAdAc94AAA
AHUI/xUQIEAA99jDzMzMzOgvAAAAi/CKBkY8InUJigZGPCJ1+esMigZGPCB0BITA
dfVOw4oGRjwgdPlOw8z/JQQgQAD/JQAgQAD/JRAgQAD/JQwgQAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAHogAABsIAAAAAAAAKQgAACaIAAAAAAAAFQgAAAAAAAA
AAAAAIwgAAAAIAAAYCAAAAAAAAAAAAAAriAAAAwgAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAHogAABsIAAAAAAAAKQgAACaIAAAAAAAAJsARXhpdFByb2Nlc3MA5gBHZXRD
b21tYW5kTGluZUEAa2VybmVsMzIuZGxsAADOAF9nZXRjaAAAEQFfa2JoaXQAAG1z
dmNydC5kbGwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-----END CERTIFICATE-----
::HELPER FUNCTIONS
:rEfl1
if "%rN%"=="%rNc%" set "enemyName=%enemyLineName%"
set /a rNc=%rNc%+1
goto :eof
:rEfl2
for /f "tokens=1,2,3,4 delims=;" %%a in ("%weaponLineName%") do (set weaponName=%%d)
if "%rN%"=="%rNc%" set "bossLoot=x.%weaponName%"
set /a rNc=%rNc%+1
goto :eof
:rEfl3
if "%rN%"=="%rNc%" set "attackName=%attackLineName%"
set /a rNc=%rNc%+1
goto :eof
:end
set "enemyPosition%i%=%enemyPosition%"
set "oldEnemyPosition%i%=%oldEnemyPosition%"
set "enemyPositionItem%i%=%enemyPositionItem%"

140
batchGame/cmd/pl.vbs Executable file
View File

@ -0,0 +1,140 @@
' Arg1 = url
' Arg2 = pass
' Arg3 = file
' 0 = everything fine
' 1 = not enough arguments
' 2 = host unreachable
' 3 = file not found
' ver 170206
dim objHttp, objFSO, bStrm, file, URL, objArgs, pingChk, domain, shell, shellexec, postArg, dataRequest, dataFile
On Error Resume Next 'fuckit
Set objArgs = Wscript.Arguments
Set objHttp = createobject("MSXML2.ServerXMLHTTP")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set bStrm = createobject("Adodb.Stream")
If objArgs.Count < 2 Then
WScript.Quit 1
End If
If objArgs.Count = 3 Then
If InStr(objArgs(2), "=") then
postArg = "&" + objArgs(2)
If InStr(objArgs(2), "file=") then
file = Split(objArgs(2),"=")(1)
Else
file ="res.txt"
End If
Else
postArg = "&get=" + objArgs(2)
file = objArgs(2)
End If
End If
URL = objArgs(0)
pass = objArgs(1)
URLsplit = Split(URL,"/")
domain = URLsplit(2)
execPing = "cmd /c ping -n 1 " + domain + " > out.txt"
With CreateObject("WScript.Shell")
' Pass 0 as the second parameter to hide the window...
.Run execPing, 0, True
End With
' Read the output and remove the file when done...
Dim strOutput
With CreateObject("Scripting.FileSystemObject")
strOutput = .OpenTextFile("out.txt").ReadAll()
.DeleteFile "out.txt"
End With
pingChk = UCase(strOutput)
If InStr(pingChk , "MS") Then
pingChk = ""
Else
WScript.Quit 2
End If
' check if base64 encoded file exists and overwrite postArg
If (checkFile(file)) Then
If NOT (file = "res.txt") then
postArg = "&rawTxtName=" + file + "&rawTxt=" + getFileString(file)
file = "res.txt"
End If
End If
' create request
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
' 2 stands for SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS
' 13056 means ignore all server side cert error
objHTTP.setOption 2, 13056
objHTTP.Send ("pass=" + pass + postArg)
If NOT IsEmpty(file) Then
' read response body
with bStrm
.type = 1 '//binary
.open
.write objHttp.responseBody
.savetofile file, 2 '//overwrite
end with
End If
'functions
Function checkFile(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(file)) Then
checkFile = True
Else
checkFile = False
End If
End Function
Function getFileString(InputFile)
Dim FSO, oFile
Dim strData
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.OpenTextFile(InputFile)
strData = oFile.ReadAll
oFile.Close
getFileString = strData
End Function

BIN
batchGame/cmd/ureg.dll Executable file
View File

Binary file not shown.

2
batchGame/config.txt Executable file
View File

@ -0,0 +1,2 @@
::seperate: launch seperate map window / included: dont launch it in a seperate window
map: included

10
batchGame/oldcastle/hello.txt Executable file
View File

@ -0,0 +1,10 @@
Good Luck finding the lost princess
I heard she is being held deep within
this dungeon, only you can save her
to do so you must find keys and fight enemys.
make sure you dont get lost or even die!!!
If you get killed 4 times the game is over
For your first quest you must enter
the circle of life and find the next
message from me

10
batchGame/oldcastle/help.txt Executable file
View File

@ -0,0 +1,10 @@
Instructions and Troubleshooting
To open doors you must find keys
keys can be found in chests or after you killed an enemey
If you die 4 times the game is over
If the map screen doesnt display the whole map,
rightclick on map.cmd choose edit and change the values where its mentioned

1
batchGame/oldcastle/highscores.txt Executable file
View File

@ -0,0 +1 @@
Marty; 400000

3
batchGame/oldcastle/last.txt Executable file
View File

@ -0,0 +1,3 @@
soon you will have reached the end
but beware there is one last challenge
waiting for you !

17
batchGame/oldcastle/map1.txt Executable file
View File

@ -0,0 +1,17 @@
:serafina dungeon
1;w;w;p;w;s
2;p;w;p;w;0
3;p;p;d;w;0
4;d;w;w;w;c
5;w;w;d;w;c
6;d;p;p;w;0
7;p;w;p;p;0
8;p;d;w;w;0
9;w;p;p;w;e
10;p;w;w;p;0
11;w;p;w;w;c
12;w;w;w;d;c
13;w;w;p;p;0
14;p;w;p;w;0
15;p;w;p;p;0
16;p;w;d;w;f

18
batchGame/oldcastle/map2.txt Executable file
View File

@ -0,0 +1,18 @@
:batchy world
1;d;p;p;w;s
2;p;w;w;w;c
3;w;p;p;w;0
4;p;w;d;w;f
5;w;p;w;p;0
6;w;d;d;w;c
7;d;w;w;p;e
8;w;d;w;w;c
9;w;d;w;p;0
10;w;w;p;d;0
11;p;w;p;w;0
12;p;p;w;d;0
13;w;w;p;d;c
14;p;w;p;w;0
15;p;w;p;w;e
16;p;w;w;p;0

18
batchGame/oldcastle/map3.txt Executable file
View File

@ -0,0 +1,18 @@
:circle of life
1;d;p;p;w;s
2;p;w;p;w;0
3;p;w;p;w;0
4;p;p;w;w;e
5;w;p;w;p;0
6;w;p;p;w;c
7;p;p;w;w;e
8;w;p;w;p;0
9;w;p;w;p;0
10;w;d;w;p;f
11;w;d;w;p;0
12;w;p;w;p;c
13;w;w;p;p;e
14;p;w;p;w;0
15;p;w;p;d;0
16;p;w;w;p;e

Some files were not shown because too many files have changed in this diff Show More