245 lines
15 KiB
Plaintext
245 lines
15 KiB
Plaintext
|
{ Initialized constants for Ladder }
|
|||
|
|
|
|||
|
|
CONST
|
|||
|
|
{
|
|||
|
|
p - The place where the lad starts.
|
|||
|
|
V - Der Dispenser. Der Rocks roll out of it to squash you flat.
|
|||
|
|
* - Der Eaters. They eat the Der Rocks but oddly do not harm you in the slightest
|
|||
|
|
= - Floor. You walk on it.
|
|||
|
|
H - Ladder. You climb it.
|
|||
|
|
| - Wall. You can't walk through it. You're not a ghost....yet.
|
|||
|
|
. - Rubber Ball. It's very bouncy. This difference is, it bounces you.
|
|||
|
|
$ - Treasure. The lad must get here to finish the level.
|
|||
|
|
& - Gold Statue. Money!Money!Money!Money!Money!
|
|||
|
|
^ - Fire. Turns you into extra crispy bacon.
|
|||
|
|
- - Disposable Floor. Well, you can walk on it once.
|
|||
|
|
}
|
|||
|
|
levels : ARRAY[1..NumLevels] OF LevelType = (
|
|||
|
|
(
|
|||
|
|
Name : 'Easy Street';
|
|||
|
|
InitialBonusTime : 35;
|
|||
|
|
Rocks : 5;
|
|||
|
|
Layout : (
|
|||
|
|
' V $ ',
|
|||
|
|
' H ',
|
|||
|
|
' H H ',
|
|||
|
|
' =========H================================================== ',
|
|||
|
|
' H ',
|
|||
|
|
' H ',
|
|||
|
|
' H H H ',
|
|||
|
|
'================H==========H================== ========H=====================',
|
|||
|
|
' & H H | | ',
|
|||
|
|
' H Easy Street ',
|
|||
|
|
' H H ',
|
|||
|
|
' =========H==========H========= ======================= ',
|
|||
|
|
' H ',
|
|||
|
|
' H ',
|
|||
|
|
' H H ',
|
|||
|
|
'======================== ====================== =========H============== ',
|
|||
|
|
' H ',
|
|||
|
|
' H ',
|
|||
|
|
'* p H *',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'Long Island';
|
|||
|
|
InitialBonusTime : 45;
|
|||
|
|
Rocks : 8;
|
|||
|
|
Layout : (
|
|||
|
|
' $ ',
|
|||
|
|
' & H ',
|
|||
|
|
' H |V V| H ',
|
|||
|
|
'====H======================= ========================= ====================== ',
|
|||
|
|
' H ',
|
|||
|
|
' H ',
|
|||
|
|
' H & | . . H ',
|
|||
|
|
'========================== ====== =================== ===================H== ',
|
|||
|
|
' H ',
|
|||
|
|
' | H ',
|
|||
|
|
' H | . . H ',
|
|||
|
|
'====H===================== ====== ================ ====================== ',
|
|||
|
|
' H ',
|
|||
|
|
' H | ',
|
|||
|
|
' H | . . H ',
|
|||
|
|
'========================= ======== ============== ==================H== ',
|
|||
|
|
' H ',
|
|||
|
|
'============== | H ',
|
|||
|
|
' Long Island | p * | * H ',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'Ghost Town';
|
|||
|
|
InitialBonusTime : 35;
|
|||
|
|
Rocks : 5;
|
|||
|
|
Layout : (
|
|||
|
|
' V V V $ ',
|
|||
|
|
' $$$ ',
|
|||
|
|
' p H H $$$$$ H',
|
|||
|
|
'==========H=== =H==============H',
|
|||
|
|
' H H H',
|
|||
|
|
' H & H H',
|
|||
|
|
' ============== ==== = ====== = ==== =====H===== H',
|
|||
|
|
' G ^^^ ^^^^^ ^^^^ ^^^^ ^^^ ^^^ $',
|
|||
|
|
' h | ',
|
|||
|
|
' o | H & | ',
|
|||
|
|
' s ======================H============================== =========== ',
|
|||
|
|
' t & H ',
|
|||
|
|
' H ',
|
|||
|
|
' | H H H ',
|
|||
|
|
' T ==================H=================H===================H======= ',
|
|||
|
|
' o H H ',
|
|||
|
|
' w H ',
|
|||
|
|
' n ^ H ',
|
|||
|
|
'* ^^^ H *',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'Tunnel Vision';
|
|||
|
|
InitialBonusTime : 36;
|
|||
|
|
Rocks : 5;
|
|||
|
|
Layout : (
|
|||
|
|
' V V ',
|
|||
|
|
' ',
|
|||
|
|
' H H | H ',
|
|||
|
|
'=====H=====--======H========================== ===----====H=========== ',
|
|||
|
|
' H H |&& H ',
|
|||
|
|
' H H ================== H ',
|
|||
|
|
' H H tunnel H H ',
|
|||
|
|
' H =======---===----=================H= H H ',
|
|||
|
|
' H | vision H H H ',
|
|||
|
|
' H =========---& -----============H H H ',
|
|||
|
|
' H H H | H H ',
|
|||
|
|
' H H=========----===----================ H ==============',
|
|||
|
|
' H & H ',
|
|||
|
|
' H | H ',
|
|||
|
|
'====---==== H | H ',
|
|||
|
|
'| | ================---===---=================== H ',
|
|||
|
|
'| === | H H p ',
|
|||
|
|
'| $ | H ===H=======',
|
|||
|
|
'|* $$$ *| * * * *H *H ',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'Point of No Return';
|
|||
|
|
InitialBonusTime : 35;
|
|||
|
|
Rocks : 7;
|
|||
|
|
Layout : (
|
|||
|
|
' $ ',
|
|||
|
|
' H V ',
|
|||
|
|
' H ',
|
|||
|
|
' HHHHHHHHHHHHH .HHHHHHHHHHHHHH H p ',
|
|||
|
|
' & V H ==H==========',
|
|||
|
|
' H H ',
|
|||
|
|
' H H . H ',
|
|||
|
|
'===H==============-----------============H==== H ',
|
|||
|
|
' H H H ',
|
|||
|
|
' H =====H============== ',
|
|||
|
|
' H H H ',
|
|||
|
|
' H &..^^^.....^..^ . ^^ H==--------- H ',
|
|||
|
|
' H ============================H & H H ',
|
|||
|
|
' H === === === H ---------=================H======',
|
|||
|
|
' H H H ',
|
|||
|
|
' H & H & H ',
|
|||
|
|
' ==========-------------------------=======----------=================== ',
|
|||
|
|
' ',
|
|||
|
|
'^^^* ^^^^^^^^^^^^^^^^^^^^^^^^^* *^^^^^^^^^^*Point of No Return*^^^^',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'Bug City';
|
|||
|
|
InitialBonusTime : 37;
|
|||
|
|
Rocks : 6;
|
|||
|
|
Layout : (
|
|||
|
|
' Bug City HHHHHHHH V ',
|
|||
|
|
' HHH HHH ',
|
|||
|
|
' H >mmmmmmmm ',
|
|||
|
|
' H=============== ==================== H ',
|
|||
|
|
' H |===== \ / V =====H==========',
|
|||
|
|
' H \/ H ',
|
|||
|
|
' H | $ H ',
|
|||
|
|
' H H | H H ',
|
|||
|
|
' H ====H======= p |&H H H ',
|
|||
|
|
' H H ======================H ====== ',
|
|||
|
|
' H H &| H H ',
|
|||
|
|
' H H &| H H }{ =====H==== ',
|
|||
|
|
'===H===& H =====================H H H ',
|
|||
|
|
' H H H H ',
|
|||
|
|
' H H & H ',
|
|||
|
|
' ======H=== ======= H <> & H ',
|
|||
|
|
' H========== ===== = ============',
|
|||
|
|
' }i{ H ',
|
|||
|
|
'* H *',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
),
|
|||
|
|
(
|
|||
|
|
Name : 'GangLand';
|
|||
|
|
InitialBonusTime : 32;
|
|||
|
|
Rocks : 6;
|
|||
|
|
Layout : (
|
|||
|
|
' =Gang Land= V ',
|
|||
|
|
' == _ == . ',
|
|||
|
|
' p H | [] |_| | & . H ',
|
|||
|
|
'===========H | |_| | H === ===================H ',
|
|||
|
|
' V H ============= H====== H ',
|
|||
|
|
' H H & H ',
|
|||
|
|
' H H | | H ',
|
|||
|
|
' H H ^^^&&^^^ & ^ ^^^ H H | =============H ',
|
|||
|
|
' H======H =======================H===========H===== & H ',
|
|||
|
|
' H H H | &&& H ',
|
|||
|
|
' H H H | &&&&& H ',
|
|||
|
|
' H H H | =============H ',
|
|||
|
|
' =====------================= H | $ $ ',
|
|||
|
|
' | H | $$$ $$$ ',
|
|||
|
|
'====------=== | H | $$$$$ $$$$$ ',
|
|||
|
|
' | = | ============= ============ ',
|
|||
|
|
' | $ ^ & ',
|
|||
|
|
' |^^^^^^^^^^^^^^ $ ^ ====== ',
|
|||
|
|
'* . & ^ H*^ ^ ^ ^^^^^^^^^^^^',
|
|||
|
|
'==============================================================================='
|
|||
|
|
)
|
|||
|
|
)
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
A moving jump is UR/UR/R/R/DR/DR
|
|||
|
|
or UL/UL/L/L/DL/DL
|
|||
|
|
A standing jump is U/U/-/D/D
|
|||
|
|
|
|||
|
|
====================
|
|||
|
|
----234-----23------
|
|||
|
|
---1---5----14------
|
|||
|
|
--0-----6---05------
|
|||
|
|
====================
|
|||
|
|
}
|
|||
|
|
jumpPaths : Array[JUMPRIGHT..JUMPLEFT] OF ActionArrayType = (
|
|||
|
|
(UPRIGHT, UPRIGHT, RIGHT, RIGHT, DOWNRIGHT, DOWNRIGHT),
|
|||
|
|
(UP, UP, STOPPED, DOWN, DOWN, ACTIONEND),
|
|||
|
|
(UPLEFT, UPLEFT, LEFT, LEFT, DOWNLEFT, DOWNLEFT)
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
dirs : ARRAY[STOPPED..JUMPLEFT] OF XYtype = (
|
|||
|
|
(x: 0; y: 0), { STOPPED }
|
|||
|
|
(x: 0; y:-1), { UP }
|
|||
|
|
(x: 1; y:-1), { UPRIGHT }
|
|||
|
|
(x: 1; y: 0), { RIGHT }
|
|||
|
|
(x: 1; y: 1), { DOWNRIGHT }
|
|||
|
|
(x: 0; y: 1), { DOWN }
|
|||
|
|
(x:-1; y: 1), { DOWNLEFT }
|
|||
|
|
(x:-1; y: 0), { LEFT }
|
|||
|
|
(x:-1; y:-1), { UPLEFT }
|
|||
|
|
(x: 0; y: 1), { FALLING }
|
|||
|
|
(x: 0; y: 0), { JUMP }
|
|||
|
|
(x: 0; y: 0), { JUMPRIGHT }
|
|||
|
|
(x: 0; y: 0), { JUMPUP }
|
|||
|
|
(x: 0; y: 0) { JUMPLEFT }
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
ReadmsWait : ARRAY [1..NumPlaySpeeds] OF INTEGER = (100, 50, 25, 13, 7);
|
|||
|
|
|