Class Hierarchy
14 |15 | The units do not contain any classes, interfaces or objects.
16 |Generated by PasDoc 0.16.0. 17 | 18 |
4 | 15 | The units do not contain any classes, interfaces or objects.
16 |A low-fantasy, ASCII roguelike game. 17 | 18 |
Axes, Amour & Ale runs in the terminal in Windows, Linux & OSX. it is a standalone binary, and doesn't need to be installed. Currently at an incomplete 'alpha' stage of development, all bugfixes and suggestions are gratefully received.
A low-fantasy, ASCII roguelike game. 17 | 18 |
Axes, Amour & Ale runs in the terminal in Windows, Linux & OSX. it is a standalone binary, and doesn't need to be installed. Currently at an incomplete 'alpha' stage of development, all bugfixes and suggestions are gratefully received.
18 | crypt
19 |
21 | type coordinates = record
18 | map
19 |
21 | type tile = record
24 | Tiles that make up the game world
25 |18 | items
19 |
21 | type Item = record
24 | Store information about items
25 |18 | village
19 |
21 | type coordinates = record
18 | entities
19 |
21 | type Creature = record
24 | Creature
25 |18 | smallGrid
19 |
21 | type coordinates = record
18 | globalUtils
19 |
21 | type coordinates = record
18 | map
19 |
21 | type displayTile = record
24 | Tiles that make up the game world
25 |18 | scrTargeting
19 |
21 | type Equipment = record
24 | Weapons
25 |18 | island
19 |
21 | type locationTile = record
24 | Location on the island
25 |18 | scrThrow
19 |
21 | type TthrowTargets = record
24 | Enemies
25 |18 | island
19 |
21 | type displayTile = record
24 | Visible tiles that display the overworld
25 |18 | island
19 |
21 | type overworldTile = record
24 | Tiles that make up the overworld
25 |18 | player_inventory
19 |
21 | type Equipment = record
24 | Items in inventory
25 |18 | merchant_inventory
19 |
21 | type Equipment = record
24 | Items in inventory
25 |
3 |
4 |
27 | y k u 7 8 9 28 | \ | / \ | / 29 | h- -l 4- 5 -6 30 | / | \ / | \ 31 | b j n 1 2 3 32 | vi-keys numpad 33 | 34 | You can also move in cardinal directions using the arrow keys. 35 | Pick up an item from the ground with either 'g' or ',' 36 | View inventory with 'i' 37 | Drop an item with 'd' 38 | Quaff / drink with 'q' 39 | Wear armour or Wield a weapon with 'w' 40 | Zap magic with 'z' 41 | To exit a menu / quit the game press ESCAPE (on Linux you will need to double-tap the ESCAPE key) 42 |43 |
46 |
47 | Code documentation can be found at https://cyberfilth.github.io/Axes-Armour-Ale/intro.html
48 |
--------------------------------------------------------------------------------
/source/items/armour/cloth_armour1.pas:
--------------------------------------------------------------------------------
1 | (* Low quality cloth armour *)
2 |
3 | unit cloth_armour1;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create armour *)
10 | procedure createClothArmour(itmx, itmy: smallint);
11 | (* Wear armour *)
12 | procedure useItem(equipped: boolean);
13 |
14 | implementation
15 |
16 | uses
17 | items, entities, ui, player_stats;
18 |
19 | procedure createClothArmour(itmx, itmy: smallint);
20 | begin
21 | SetLength(itemList, length(itemList) + 1);
22 | with itemList[High(itemList)] do
23 | begin
24 | itemID := indexID;
25 | itemName := 'Cloth armour';
26 | itemDescription := 'adds 1 to defence';
27 | itemArticle := 'some';
28 | itemType := itmArmour;
29 | itemMaterial := matWool;
30 | useID := 5;
31 | glyph := '[';
32 | glyphColour := 'magenta';
33 | inView := False;
34 | posX := itmx;
35 | posY := itmy;
36 | NumberOfUses := 5;
37 | value := 4;
38 | onMap := True;
39 | throwable := False;
40 | throwDamage := 0;
41 | dice := 0;
42 | adds := 0;
43 | discovered := False;
44 | Inc(indexID);
45 | end;
46 | end;
47 |
48 | procedure useItem(equipped: boolean);
49 | begin
50 | if (equipped = False) then
51 | (* To wear the armour *)
52 | begin
53 | entityList[0].armourEquipped := True;
54 | Inc(entityList[0].defence);
55 | Inc(player_stats.armourPoints);
56 | ui.displayMessage('You don the cloth armour. The armour adds 1 point to your defence');
57 | ui.equippedArmour:='Cloth armour';
58 | ui.writeBufferedMessages;
59 | end
60 | else
61 | (* To remove the armour *)
62 | begin
63 | entityList[0].armourEquipped := False;
64 | Dec(entityList[0].defence);
65 | Dec(player_stats.armourPoints);
66 | ui.displayMessage('You remove the cloth armour.');
67 | ui.equippedArmour:='No armour worn';
68 | ui.writeBufferedMessages;
69 | end;
70 | end;
71 |
72 | end.
73 |
--------------------------------------------------------------------------------
/source/items/armour/lesser_bone_armour.pas:
--------------------------------------------------------------------------------
1 | (* Cuirass made from a ribcage *)
2 |
3 | unit lesser_bone_armour;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 | (* Create armour *)
9 | procedure createBoneArmour(itmx, itmy: smallint);
10 | (* Wear armour *)
11 | procedure useItem(equipped: boolean);
12 |
13 | implementation
14 |
15 | uses
16 | items, entities, ui, player_stats;
17 |
18 | procedure createBoneArmour(itmx, itmy: smallint);
19 | begin
20 | SetLength(itemList, length(itemList) + 1);
21 | with itemList[High(itemList)] do
22 | begin
23 | itemID := indexID;
24 | itemName := 'Bone armour';
25 | itemDescription := 'adds 3 to defence';
26 | itemArticle := 'some';
27 | itemType := itmArmour;
28 | itemMaterial := matBone;
29 | useID := 21;
30 | glyph := '[';
31 | glyphColour := 'white';
32 | inView := False;
33 | posX := itmx;
34 | posY := itmy;
35 | NumberOfUses := 5;
36 | value := 6;
37 | onMap := True;
38 | throwable := False;
39 | throwDamage := 0;
40 | dice := 0;
41 | adds := 0;
42 | discovered := False;
43 | Inc(indexID);
44 | end;
45 | end;
46 |
47 | procedure useItem(equipped: boolean);
48 | begin
49 | if (equipped = False) then
50 | (* To wear the armour *)
51 | begin
52 | entityList[0].armourEquipped := True;
53 | Inc(entityList[0].defence, 3);
54 | Inc(player_stats.armourPoints, 3);
55 | ui.displayMessage('You don the bone armour. The armour adds 3 points to your defence');
56 | ui.equippedArmour:='Bone armour';
57 | ui.writeBufferedMessages;
58 | end
59 | else
60 | (* To remove the armour *)
61 | begin
62 | entityList[0].armourEquipped := False;
63 | Dec(entityList[0].defence, 3);
64 | Dec(player_stats.armourPoints, 3);
65 | ui.displayMessage('You remove the bone armour.');
66 | ui.equippedArmour:='No armour worn';
67 | ui.writeBufferedMessages;
68 | end;
69 | end;
70 |
71 | end.
72 |
--------------------------------------------------------------------------------
/source/items/armour/leather_armour1.pas:
--------------------------------------------------------------------------------
1 | (* Low quality leather armour *)
2 |
3 | unit leather_armour1;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create armour *)
10 | procedure createLeatherArmour(itmx, itmy: smallint);
11 | (* Wear armour *)
12 | procedure useItem(equipped: boolean);
13 |
14 | implementation
15 |
16 | uses
17 | items, entities, ui, player_stats;
18 |
19 | procedure createLeatherArmour(itmx, itmy: smallint);
20 | begin
21 | SetLength(itemList, length(itemList) + 1);
22 | with itemList[High(itemList)] do
23 | begin
24 | itemID := indexID;
25 | itemName := 'Leather armour';
26 | itemDescription := 'adds 2 to defence';
27 | itemArticle := 'some';
28 | itemType := itmArmour;
29 | itemMaterial := matLeather;
30 | useID := 3;
31 | glyph := '[';
32 | glyphColour := 'lightMagenta';
33 | inView := False;
34 | posX := itmx;
35 | posY := itmy;
36 | NumberOfUses := 5;
37 | value := 5;
38 | onMap := True;
39 | throwable := False;
40 | throwDamage := 0;
41 | dice := 0;
42 | adds := 0;
43 | discovered := False;
44 | Inc(indexID);
45 | end;
46 | end;
47 |
48 | procedure useItem(equipped: boolean);
49 | begin
50 | if (equipped = False) then
51 | (* To wear the armour *)
52 | begin
53 | entityList[0].armourEquipped := True;
54 | Inc(entityList[0].defence, 2);
55 | Inc(player_stats.armourPoints, 2);
56 | ui.displayMessage('You don the leather armour. The armour adds 2 points to your defence');
57 | ui.equippedArmour:='Leather armour';
58 | ui.writeBufferedMessages;
59 | end
60 | else
61 | (* To remove the armour *)
62 | begin
63 | entityList[0].armourEquipped := False;
64 | Dec(entityList[0].defence, 2);
65 | Dec(player_stats.armourPoints, 2);
66 | ui.displayMessage('You remove the leather armour.');
67 | ui.equippedArmour:='No armour worn';
68 | ui.writeBufferedMessages;
69 | end;
70 | end;
71 |
72 | end.
73 |
74 |
--------------------------------------------------------------------------------
/source/items/weapons/short_bow.pas:
--------------------------------------------------------------------------------
1 | (* A short bow *)
2 |
3 | unit short_bow;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create a bow *)
10 | procedure createShortBow(itmx, itmy: smallint);
11 | (* Equip weapon *)
12 | procedure useItem(equipped: boolean);
13 | (* Remove weapon from inventory when thrown *)
14 | procedure throw;
15 |
16 | implementation
17 |
18 | uses
19 | items, entities, ui, player_stats;
20 |
21 | procedure createShortBow(itmx, itmy: smallint);
22 | begin
23 | SetLength(itemList, length(itemList) + 1);
24 | with itemList[High(itemList)] do
25 | begin
26 | itemID := indexID;
27 | itemName := 'short bow';
28 | itemDescription := 'small hunting bow';
29 | itemArticle := 'a';
30 | itemType := itmProjectileWeapon;
31 | itemMaterial := matWood;
32 | useID := 10;
33 | glyph := '}';
34 | glyphColour := 'brown';
35 | inView := False;
36 | posX := itmx;
37 | posY := itmy;
38 | NumberOfUses := 1;
39 | value := 3;
40 | onMap := True;
41 | throwable := True;
42 | throwDamage := 1;
43 | dice := 0;
44 | adds := 0;
45 | discovered := False;
46 | Inc(indexID);
47 | end;
48 | end;
49 |
50 | procedure useItem(equipped: boolean);
51 | begin
52 | if (equipped = False) then
53 | (* To equip the weapon *)
54 | begin
55 | entityList[0].weaponEquipped := True;
56 | ui.displayMessage('You equip the short bow.');
57 | ui.equippedWeapon := 'Short bow';
58 | player_stats.projectileWeaponEquipped := True;
59 | ui.writeBufferedMessages;
60 | end
61 | else
62 | (* To unequip the weapon *)
63 | begin
64 | entityList[0].weaponEquipped := False;
65 | ui.displayMessage('You unequip the short bow.');
66 | ui.equippedWeapon := 'No weapon equipped';
67 | player_stats.projectileWeaponEquipped := False;
68 | ui.writeBufferedMessages;
69 | end;
70 | end;
71 |
72 | procedure throw;
73 | begin
74 | entityList[0].weaponEquipped := False;
75 | ui.equippedWeapon := 'No weapon equipped';
76 | ui.writeBufferedMessages;
77 | end;
78 |
79 | end.
80 |
--------------------------------------------------------------------------------
/source/globalutils.pas:
--------------------------------------------------------------------------------
1 | (* Common functions / utilities *)
2 |
3 | unit globalUtils;
4 |
5 | {$mode objfpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | Classes;
11 |
12 | type
13 | coordinates = record
14 | x, y: smallint;
15 | end;
16 |
17 | (* Types of locations that can be explored. See 'architect' unit for explanation *)
18 | type
19 | dungeonTerrain = (tCave, tStoneCavern, tDungeon, tCrypt, tVillage);
20 |
21 | type (* Pathfinding - Path to player *)
22 | path = array[1..30] of TPoint;
23 |
24 | const
25 | (* Version info - a = Alpha, d = Debug, r = Release *)
26 | VERSION = '59a';
27 | (* Columns of the game map *)
28 | MAXCOLUMNS = 80;
29 | (* Rows of the game map *)
30 | MAXROWS = 20;
31 | (* Save game file *)
32 | saveFile = 'saveGame.dat';
33 |
34 | var
35 | dungeonArray: array[1..MAXROWS, 1..MAXCOLUMNS] of shortstring;
36 | (* Number of rooms in the current dungeon *)
37 | currentDgnTotalRooms: smallint;
38 | (* Save game directory *)
39 | saveDirectory: string;
40 | (* Name of entity or item that killed the player *)
41 | killer: shortstring;
42 | (* Stores whether the player is underground or overground ;-) *)
43 | womblingFree: shortstring;
44 | (* Last overworld coordinates the player was at *)
45 | OWx, OWy: smallint;
46 |
47 | (* Select random number from a range *)
48 | function randomRange(fromNumber, toNumber: smallint): smallint;
49 | (* Simulate dice rolls *)
50 | function rollDice(numberOfDice: byte): smallint;
51 |
52 | implementation
53 |
54 | function randomRange(fromNumber, toNumber: smallint): smallint;
55 | var
56 | p: smallint;
57 | begin
58 | p := toNumber - fromNumber;
59 | Result := random(p + 1) + fromNumber;
60 | end;
61 |
62 | function rollDice(numberOfDice: byte): smallint;
63 | var
64 | i: byte;
65 | x: smallint;
66 | begin
67 | x := 0; { initialise variable }
68 | if (numberOfDice = 0) then
69 | Result := 0
70 | else
71 | begin
72 | for i := 0 to numberOfDice do
73 | begin
74 | x := Random(6) + 1;
75 | end;
76 | Result := x;
77 | end;
78 | end;
79 |
80 | end.
81 |
--------------------------------------------------------------------------------
/scripts/fp.ini:
--------------------------------------------------------------------------------
1 | [Compile]
2 | CompileMode=DEBUG
3 | PrimaryFile=Axes.pas
4 |
5 | [Editor]
6 | DefaultTabSize=8
7 | DefaultIndentSize=1
8 | DefaultFlags=20599
9 | DefaultSaveExt=.pas
10 |
11 | [Highlight]
12 | Exts="*.pas;*.pp;*.inc;*.dpr;*.lpr"
13 | NeedsTabs="make*;make*.*;fpcmake.loc"
14 |
15 | [SourcePath]
16 | SourceList=""
17 |
18 | [Colors]
19 | Palette_1_40=#$03#$03#$08#$0B#$30#$28#$30#$17#$1F#$1A#$31#$31#$1E#$71#$1F#$37#$3F#$3A#$13#$13#$3E#$21#$3F#$0B#$03#$7A#$13#$13#$70#$7F#$7E#$70#$70#$78#$78#$70#$70#$70#$7F#$7E
20 | Palette_41_80=#$20#$2B#$2F#$78#$2E#$70#$30#$3F#$3E#$3F#$2F#$1A#$20#$72#$31#$31#$30#$2F#$3E#$31#$13#$38#$00#$17#$1F#$1A#$71#$71#$1E#$17#$1F#$1E#$20#$2B#$2F#$78#$2E#$10#$30#$3F
21 | Palette_81_120=#$3E#$70#$2F#$7A#$20#$12#$31#$31#$30#$2F#$3E#$31#$13#$38#$00#$37#$3F#$3A#$13#$13#$3E#$30#$3F#$3E#$20#$2B#$2F#$78#$2E#$30#$70#$7F#$7E#$1F#$2F#$1A#$20#$32#$31#$71
22 | Palette_121_160=#$70#$2F#$7E#$71#$13#$38#$00#$70#$7F#$7A#$13#$13#$70#$70#$7F#$7E#$20#$2B#$2F#$78#$2E#$70#$30#$3F#$3E#$1F#$2F#$1A#$20#$72#$31#$31#$30#$2F#$3E#$31#$13#$38#$00#$30
23 | Palette_161_200=#$3E#$1E#$70#$30#$3F#$3A#$08#$03#$03#$03#$03#$03#$71#$1F#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$88#$88
24 | Palette_201_240=#$06#$03#$0B#$0E#$0A#$07#$07#$70#$0B#$20#$02#$0A#$04#$4E#$31#$02#$0A#$02#$0A#$0A#$31#$3F#$0A#$20#$3E#$3F#$70#$20#$FF#$3A#$37#$FF#$FF#$FF
25 |
26 | [Mouse]
27 | DoubleDelay=8
28 | ReverseButtons=0
29 | AltClickAction=6
30 | CtrlClickAction=1
31 |
32 | [Keyboard]
33 | EditKeys=microsoft
34 |
35 | [Search]
36 | FindFlags=4
37 |
38 | [Breakpoints]
39 | Count=0
40 |
41 | [Watches]
42 | Count=0
43 |
44 | [Preferences]
45 | DesktopFileFlags=209
46 | CenterCurrentLineWhileDebugging=1
47 | AutoSaveFlags=6
48 | MiscOptions=6
49 | DesktopLocation=1
50 |
51 | [Misc]
52 | ShowReadme=0
53 |
54 | [Files]
55 | OpenExts="*.pas;*.pp;*.inc;*.dpr;*.lpr"
56 | RecentFile1=Axes.pas,0,0
57 | PrinterDevice=prn
58 |
59 | [Tools]
60 | Title1="Cleanup directory"
61 | Params1="delp -r ./"
62 | HotKey1=0
63 | Title2="Format code"
64 | Params2="./formatCode.sh $EDNAME"
65 | HotKey2=0
66 |
--------------------------------------------------------------------------------
/source/items/weapons/basic_club.pas:
--------------------------------------------------------------------------------
1 | (* A wooden club *)
2 |
3 | unit basic_club;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create a club *)
10 | procedure createClub(itmx, itmy: smallint);
11 | (* Equip weapon *)
12 | procedure useItem(equipped: boolean);
13 | (* Remove weapon from inventory when thrown *)
14 | procedure throw;
15 |
16 | implementation
17 |
18 | uses
19 | items, entities, ui;
20 |
21 | procedure createClub(itmx, itmy: smallint);
22 | begin
23 | SetLength(itemList, length(itemList) + 1);
24 | with itemList[High(itemList)] do
25 | begin
26 | itemID := indexID;
27 | itemName := 'wooden club';
28 | itemDescription := 'adds 1D6 to attack';
29 | itemArticle := 'a';
30 | itemType := itmWeapon;
31 | itemMaterial := matWood;
32 | useID := 4;
33 | glyph := chr(24);
34 | glyphColour := 'brown';
35 | inView := False;
36 | posX := itmx;
37 | posY := itmy;
38 | NumberOfUses := 5;
39 | value := 0;
40 | onMap := True;
41 | throwable := True;
42 | throwDamage := 4;
43 | dice := 1;
44 | adds := 0;
45 | discovered := False;
46 | Inc(indexID);
47 | end;
48 | end;
49 |
50 | procedure useItem(equipped: boolean);
51 | begin
52 | if (equipped = False) then
53 | (* To equip the weapon *)
54 | begin
55 | entityList[0].weaponEquipped := True;
56 | Inc(entityList[0].weaponDice);
57 | ui.displayMessage('You equip the wooden club. The club adds 1D6 to your attack');
58 | ui.equippedWeapon := 'Wooden club';
59 | ui.writeBufferedMessages;
60 | end
61 | else
62 | (* To unequip the weapon *)
63 | begin
64 | entityList[0].weaponEquipped := False;
65 | Dec(entityList[0].weaponDice);
66 | ui.displayMessage('You unequip the wooden club.');
67 | ui.equippedWeapon := 'No weapon equipped';
68 | ui.writeBufferedMessages;
69 | end;
70 | end;
71 |
72 | procedure throw;
73 | begin
74 | entityList[0].weaponEquipped := False;
75 | Dec(entityList[0].weaponDice);
76 | ui.equippedWeapon := 'No weapon equipped';
77 | ui.writeBufferedMessages;
78 | end;
79 |
80 | end.
81 |
82 |
--------------------------------------------------------------------------------
/source/entities/npc/merchant.pas:
--------------------------------------------------------------------------------
1 | (* Merchant - Buys and sells items *)
2 |
3 | unit merchant;
4 |
5 | {$mode objfpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | SysUtils, merchant_inventory;
11 |
12 | (* Create a merchant *)
13 | procedure createMerchant(uniqueid, npcx, npcy: smallint);
14 | (* The NPC takes their turn in the game loop *)
15 | procedure takeTurn(id: smallint);
16 |
17 | implementation
18 |
19 | uses
20 | entities, map;
21 |
22 | procedure createMerchant(uniqueid, npcx, npcy: smallint);
23 | begin
24 | (* Add a merchant to the list of creatures *)
25 | entities.listLength := length(entities.entityList);
26 | SetLength(entities.entityList, entities.listLength + 1);
27 | with entities.entityList[entities.listLength] do
28 | begin
29 | npcID := uniqueid;
30 | race := 'merchant';
31 | intName := 'Merchant';
32 | article := True;
33 | description := 'a merchant';
34 | glyph := '@';
35 | glyphColour := 'white';
36 | maxHP := 4000;
37 | currentHP := maxHP;
38 | attack := 1;
39 | defence := 1;
40 | weaponDice := 0;
41 | weaponAdds := 0;
42 | xpReward := 0;
43 | visionRange := 4;
44 | moveCount := 0;
45 | targetX := 0;
46 | targetY := 0;
47 | inView := False;
48 | blocks := False;
49 | faction := npcFaction;
50 | state := stateNeutral;
51 | discovered := False;
52 | weaponEquipped := False;
53 | armourEquipped := False;
54 | isDead := False;
55 | stsDrunk := False;
56 | stsPoison := False;
57 | stsBewild := False;
58 | stsFrozen := False;
59 | tmrDrunk := 0;
60 | tmrPoison := 0;
61 | tmrBewild := 0;
62 | tmrFrozen := 0;
63 | hasPath := False;
64 | destinationReached := False;
65 | entities.initPath(uniqueid);
66 | posX := npcx;
67 | posY := npcy;
68 | end;
69 | (* Generate list of wares in inventory *)
70 | merchant_inventory.populateVillageInventory;
71 | (* Occupy tile *)
72 | map.occupy(npcx, npcy);
73 | end;
74 |
75 | procedure takeTurn(id: smallint);
76 | begin
77 | entities.moveNPC(id, entityList[id].posX, entityList[id].posY);
78 | end;
79 |
80 | end.
81 |
--------------------------------------------------------------------------------
/source/items/weapons/leather_whip.pas:
--------------------------------------------------------------------------------
1 | (* A leather bullwhip *)
2 |
3 | unit leather_whip;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create a whip *)
10 | procedure createWhip(itmx, itmy: smallint);
11 | (* Equip weapon *)
12 | procedure useItem(equipped: boolean);
13 | (* Remove weapon from inventory when thrown *)
14 | procedure throw;
15 |
16 | implementation
17 |
18 | uses
19 | items, entities, ui;
20 |
21 | procedure createWhip(itmx, itmy: smallint);
22 | begin
23 | SetLength(itemList, length(itemList) + 1);
24 | with itemList[High(itemList)] do
25 | begin
26 | itemID := indexID;
27 | itemName := 'Bullwhip';
28 | itemDescription := 'Leather whip, 1D6+9 to attack';
29 | itemArticle := 'a';
30 | itemType := itmWeapon;
31 | itemMaterial := matLeather;
32 | useID := 28;
33 | glyph := chr(24);
34 | glyphColour := 'brown';
35 | inView := False;
36 | posX := itmx;
37 | posY := itmy;
38 | NumberOfUses := 5;
39 | value := 5;
40 | onMap := True;
41 | throwable := True;
42 | throwDamage := 2;
43 | dice := 1;
44 | adds := 9;
45 | discovered := False;
46 | Inc(indexID);
47 | end;
48 | end;
49 |
50 | procedure useItem(equipped: boolean);
51 | begin
52 | if (equipped = False) then
53 | (* To equip the weapon *)
54 | begin
55 | entityList[0].weaponEquipped := True;
56 | Inc(entityList[0].weaponDice);
57 | Inc(entityList[0].weaponAdds,9);
58 | ui.displayMessage('You equip the bullwhip. The whip adds 1D6+9 to your attack');
59 | ui.equippedWeapon := 'Bullwhip';
60 | ui.writeBufferedMessages;
61 | end
62 | else
63 | (* To unequip the weapon *)
64 | begin
65 | entityList[0].weaponEquipped := False;
66 | Dec(entityList[0].weaponDice);
67 | Dec(entityList[0].weaponAdds,9);
68 | ui.displayMessage('You unequip the bullwhip.');
69 | ui.equippedWeapon := 'No weapon equipped';
70 | ui.writeBufferedMessages;
71 | end;
72 | end;
73 |
74 | procedure throw;
75 | begin
76 | entityList[0].weaponEquipped := False;
77 | Dec(entityList[0].weaponDice);
78 | ui.equippedWeapon := 'No weapon equipped';
79 | ui.writeBufferedMessages;
80 | end;
81 |
82 | end.
--------------------------------------------------------------------------------
/source/items/macguffins/parchment.pas:
--------------------------------------------------------------------------------
1 | (* Parchment scroll that can increase a player stat *)
2 |
3 | unit parchment;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | SysUtils, player_stats, dlgInfo, video, plot_gen, globalUtils, ui, entities;
11 |
12 | (* Create the parchment *)
13 | procedure createParchment(itmx, itmy: smallint);
14 | (* Collect parchment *)
15 | procedure collectParchment;
16 |
17 | implementation
18 |
19 | uses
20 | items;
21 |
22 | procedure createParchment(itmx, itmy: smallint);
23 | begin
24 | SetLength(itemList, length(itemList) + 1);
25 | with itemList[High(itemList)] do
26 | begin
27 | itemID := indexID;
28 | itemName := 'Parchment scroll';
29 | itemDescription := 'A scroll with an enchanted aura';
30 | itemArticle := 'a';
31 | itemType := itmQuest;
32 | itemMaterial := matPaper;
33 | useID := 19;
34 | glyph := ')';
35 | glyphColour := 'white';
36 | inView := False;
37 | posX := itmx;
38 | posY := itmy;
39 | NumberOfUses := 5;
40 | value := 10;
41 | onMap := True;
42 | throwable := False;
43 | throwDamage := 0;
44 | dice := 0;
45 | adds := 0;
46 | discovered := False;
47 | Inc(indexID);
48 | end;
49 | end;
50 |
51 | procedure collectParchment;
52 | var
53 | attribute: smallint;
54 | begin
55 | (* choose the type of parchment found *)
56 | attribute := randomRange(0, 2);
57 | case attribute of
58 | 0: dlgInfo.parchmentType := 'DEX';
59 | 1: dlgInfo.parchmentType := 'ATT';
60 | 2: dlgInfo.parchmentType := 'DEF';
61 | end;
62 | dlgInfo.dialogType := dlgParchment;
63 | case parchmentType of
64 | 'DEX':
65 | begin
66 | Inc(player_stats.dexterity);
67 | ui.updateDexterity;
68 | ui.displayMessage('Your Dexterity increases.');
69 | end;
70 | 'ATT':
71 | begin
72 | Inc(entityList[0].attack);
73 | ui.updateAttack;
74 | ui.displayMessage('Your Attack strength increases.');
75 | end;
76 | 'DEF':
77 | begin
78 | Inc(entityList[0].defence);
79 | ui.updateDefence;
80 | ui.displayMessage('Your Defence ability increases.');
81 | end;
82 | end;
83 | end;
84 |
85 | end.
86 |
87 |
--------------------------------------------------------------------------------
/source/items/weapons/terbutje.pas:
--------------------------------------------------------------------------------
1 | (* A wooden club studded with spikes made of obsidian *)
2 |
3 | unit terbutje;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create a terbutje *)
10 | procedure createTerbutje(itmx, itmy: smallint);
11 | (* Equip weapon *)
12 | procedure useItem(equipped: boolean);
13 | (* Remove weapon from inventory when thrown *)
14 | procedure throw;
15 |
16 | implementation
17 |
18 | uses
19 | items, entities, ui;
20 |
21 | procedure createTerbutje(itmx, itmy: smallint);
22 | begin
23 | SetLength(itemList, length(itemList) + 1);
24 | with itemList[High(itemList)] do
25 | begin
26 | itemID := indexID;
27 | itemName := 'Terbutje';
28 | itemDescription := 'Club covered in obsidian spikes, 1D6+9 to attack';
29 | itemArticle := 'a';
30 | itemType := itmWeapon;
31 | itemMaterial := matWood;
32 | useID := 27;
33 | glyph := chr(24);
34 | glyphColour := 'brown';
35 | inView := False;
36 | posX := itmx;
37 | posY := itmy;
38 | NumberOfUses := 5;
39 | value := 5;
40 | onMap := True;
41 | throwable := True;
42 | throwDamage := 8;
43 | dice := 1;
44 | adds := 9;
45 | discovered := False;
46 | Inc(indexID);
47 | end;
48 | end;
49 |
50 | procedure useItem(equipped: boolean);
51 | begin
52 | if (equipped = False) then
53 | (* To equip the weapon *)
54 | begin
55 | entityList[0].weaponEquipped := True;
56 | Inc(entityList[0].weaponDice);
57 | Inc(entityList[0].weaponAdds,9);
58 | ui.displayMessage('You equip the terbutje. The terbutje adds 1D6+9 to your attack');
59 | ui.equippedWeapon := 'Terbutje';
60 | ui.writeBufferedMessages;
61 | end
62 | else
63 | (* To unequip the weapon *)
64 | begin
65 | entityList[0].weaponEquipped := False;
66 | Dec(entityList[0].weaponDice);
67 | Dec(entityList[0].weaponAdds,9);
68 | ui.displayMessage('You unequip the terbutje.');
69 | ui.equippedWeapon := 'No weapon equipped';
70 | ui.writeBufferedMessages;
71 | end;
72 | end;
73 |
74 | procedure throw;
75 | begin
76 | entityList[0].weaponEquipped := False;
77 | Dec(entityList[0].weaponDice);
78 | ui.equippedWeapon := 'No weapon equipped';
79 | ui.writeBufferedMessages;
80 | end;
81 |
82 | end.
--------------------------------------------------------------------------------
/source/items/weapons/pointy_stick.pas:
--------------------------------------------------------------------------------
1 | (* A pointy stick *)
2 |
3 | unit pointy_stick;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | (* Create a pointy stick *)
10 | procedure createPointyStick(itmx, itmy: smallint);
11 | (* Equip weapon *)
12 | procedure useItem(equipped: boolean);
13 | (* Remove weapon from inventory when thrown *)
14 | procedure throw;
15 |
16 | implementation
17 |
18 | uses
19 | items, entities, ui;
20 |
21 | procedure createPointyStick(itmx, itmy: smallint);
22 | begin
23 | SetLength(itemList, length(itemList) + 1);
24 | with itemList[High(itemList)] do
25 | begin
26 | itemID := indexID;
27 | itemName := 'pointy stick';
28 | itemDescription := 'adds 1D6+1 to attack';
29 | itemArticle := 'a';
30 | itemType := itmWeapon;
31 | itemMaterial := matWood;
32 | useID := 11;
33 | glyph := chr(173);
34 | glyphColour := 'brown';
35 | inView := False;
36 | posX := itmx;
37 | posY := itmy;
38 | NumberOfUses := 5;
39 | value := 0;
40 | onMap := True;
41 | throwable := True;
42 | throwDamage := 4;
43 | dice := 1;
44 | adds := 1;
45 | discovered := False;
46 | Inc(indexID);
47 | end;
48 | end;
49 |
50 | procedure useItem(equipped: boolean);
51 | begin
52 | if (equipped = False) then
53 | (* To equip the weapon *)
54 | begin
55 | entityList[0].weaponEquipped := True;
56 | Inc(entityList[0].weaponDice);
57 | Inc(entityList[0].weaponAdds);
58 | ui.displayMessage('You equip the pointy stick. The stick adds 1D6+1 to your attack');
59 | ui.equippedWeapon := 'Pointy stick';
60 | ui.writeBufferedMessages;
61 | end
62 | else
63 | (* To unequip the weapon *)
64 | begin
65 | entityList[0].weaponEquipped := False;
66 | Dec(entityList[0].weaponDice);
67 | Dec(entityList[0].weaponAdds);
68 | ui.displayMessage('You unequip the pointy stick.');
69 | ui.equippedWeapon := 'No weapon equipped';
70 | ui.writeBufferedMessages;
71 | end;
72 | end;
73 |
74 | procedure throw;
75 | begin
76 | entityList[0].weaponEquipped := False;
77 | Dec(entityList[0].weaponDice);
78 | Dec(entityList[0].weaponAdds);
79 | ui.equippedWeapon := 'No weapon equipped';
80 | ui.writeBufferedMessages;
81 | end;
82 |
83 | end.
84 |
--------------------------------------------------------------------------------
/source/entities/bugs/web.pas:
--------------------------------------------------------------------------------
1 | (* Environmental hazard - blocks entities *)
2 |
3 | unit web;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | SysUtils;
11 |
12 | (* Create web *)
13 | procedure createWeb(uniqueid, npcx, npcy: smallint);
14 | (* Take a turn *)
15 | procedure takeTurn(id: smallint);
16 |
17 | implementation
18 |
19 | uses
20 | entities, globalUtils, map;
21 |
22 | procedure createWeb(uniqueid, npcx, npcy: smallint);
23 | var
24 | i: smallint;
25 | begin
26 | (* Add a web to the list of entities *)
27 | entities.listLength := length(entities.entityList);
28 | SetLength(entities.entityList, entities.listLength + 1);
29 | with entities.entityList[entities.listLength] do
30 | begin
31 | npcID := uniqueid;
32 | race := 'web';
33 | intName := 'stickyWeb';
34 | article := True;
35 | description := 'a sticky web';
36 | glyph := '/';
37 | glyphColour := 'lightGrey';
38 | maxHP := randomRange(5, 8);
39 | currentHP := maxHP;
40 | attack := 0;
41 | defence := randomRange(5, 12);
42 | weaponDice := 0;
43 | weaponAdds := 0;
44 | xpReward := 0;
45 | visionRange := 4;
46 | (* Number of turns before web dissolves *)
47 | i := randomRange(5, 10);
48 | moveCount := i;
49 | targetX := 0;
50 | targetY := 0;
51 | inView := False;
52 | blocks := False;
53 | faction := trapFaction;
54 | state := stateHostile;
55 | discovered := False;
56 | weaponEquipped := False;
57 | armourEquipped := False;
58 | isDead := False;
59 | stsDrunk := False;
60 | stsPoison := False;
61 | stsBewild := False;
62 | stsFrozen := False;
63 | tmrDrunk := 0;
64 | tmrPoison := 0;
65 | tmrBewild := 0;
66 | tmrFrozen := 0;
67 | hasPath := False;
68 | destinationReached := False;
69 | entities.initPath(uniqueid);
70 | posX := npcx;
71 | posY := npcy;
72 | end;
73 | (* Occupy tile *)
74 | map.occupy(npcx, npcy);
75 | end;
76 |
77 | procedure takeTurn(id: smallint);
78 | begin
79 | Dec(entityList[id].moveCount);
80 | if (entityList[id].moveCount <= 0) then
81 | begin
82 | entityList[id].currentHP := 0;
83 | killEntity(id);
84 | end
85 | else
86 | entities.moveNPC(id, entityList[id].posX, entityList[id].posY);
87 | end;
88 |
89 | end.
90 |
--------------------------------------------------------------------------------
/source/screens/scrintro.pas:
--------------------------------------------------------------------------------
1 | (* Introduction screen *)
2 |
3 | unit scrIntro;
4 |
5 | {$mode fpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | ui, video, globalUtils;
11 |
12 | procedure displayIntroScreen;
13 |
14 | implementation
15 |
16 | procedure displayIntroScreen;
17 | var
18 | header, insult, sounds: string;
19 | prefix: smallint;
20 | begin
21 | (* Randomly select header text *)
22 | prefix := randomRange(1, 4);
23 | if (prefix = 1) then
24 | header := 'Thrown into the smugglers cave'
25 | else if (prefix = 2) then
26 | header := 'Kidnap! Waylaid in the night'
27 | else
28 | header := 'Every adventure begins with a single... fall';
29 |
30 | (* Randomly select insult *)
31 | prefix := randomRange(1, 5);
32 | if (prefix = 1) then
33 | insult := 'toad puke'
34 | else if (prefix = 2) then
35 | insult := 'pond scum'
36 | else if (prefix = 3) then
37 | insult := 'dung smear'
38 | else if (prefix = 4) then
39 | insult := 'slug'
40 | else
41 | insult := 'fish breath';
42 |
43 | (* Randomly select sounds *)
44 | prefix := randomRange(1, 4);
45 | if (prefix = 1) then
46 | sounds := 'scratching'
47 | else if (prefix = 2) then
48 | sounds := 'chittering'
49 | else
50 | sounds := 'squealing';
51 |
52 | (* prepare changes to the screen *)
53 | LockScreenUpdate;
54 | screenBlank;
55 | TextOut(ui.centreX(header), 2, 'cyan', header);
56 | { Flavour text }
57 | TextOut(3, 6, 'cyan', 'The smugglers roughly grab you and throw you down the crudely carved');
58 | TextOut(3, 7, 'cyan', 'stairs, into the cavern. You gaze around, struggling to penetrate the');
59 | TextOut(3, 8, 'cyan', 'darkness by your feeble torchlight.');
60 | TextOut(3, 9, 'cyan', '"Somewhere down there is the map, stolen by those thieving imps.');
61 | TextOut(4, 10, 'cyan', 'Find it and bring it back, you little ' + insult + '"');
62 | TextOut(3, 12, 'cyan', 'The door slams firmly closed behind you. Ignoring the sound of');
63 | TextOut(3, 13, 'cyan', sounds + ' coming from the darkness, you step forward...');
64 |
65 | TextOut(ui.centreX('[SPACE] to continue'), 24, 'cyan', '[SPACE] to continue');
66 | (* Write those changes to the screen *)
67 | UnlockScreenUpdate;
68 | (* only redraws the parts that have been updated *)
69 | UpdateScreen(False);
70 | end;
71 |
72 | end.
73 |
--------------------------------------------------------------------------------
/source/debuggingfunctions.pas:
--------------------------------------------------------------------------------
1 | (* Helper functions when debugging, printing out maps, topping up HP, etc *)
2 |
3 | unit debuggingFunctions;
4 |
5 | {$mode objfpc}{$H+}
6 |
7 | interface
8 |
9 | uses
10 | SysUtils, entities, player_stats, map, items, globalUtils, logging;
11 |
12 | (* Increases HP and light timer, to aid exploration *)
13 | procedure topUpStats;
14 | (* Show all entities on the screen *)
15 | procedure showEntitiesItems;
16 | (* Prints the map to a text file *)
17 | procedure dumpMap;
18 |
19 | implementation
20 |
21 | uses
22 | main;
23 |
24 | procedure topUpStats;
25 | begin
26 | Inc(entityList[0].maxHP, 100);
27 | entityList[0].currentHP := entityList[0].maxHP;
28 | Inc(player_stats.lightCounter, 500);
29 | showEntitiesItems
30 | end;
31 |
32 | procedure showEntitiesItems;
33 | var
34 | i: smallint;
35 | stateValue: shortstring;
36 | begin
37 | logAction('');
38 | logAction('-- showEntitiesItems --');
39 | (* Highlight entities *)
40 | for i := 0 to High(entityList) do
41 | begin
42 | logAction(IntToStr(i) + ': ' + entityList[i].race + ' is at ' + IntToStr(entityList[i].posX) + ', ' + IntToStr(entityList[i].posY));
43 | map.mapDisplay[entityList[i].posY, entityList[i].posX].GlyphColour := 'white';
44 | map.mapDisplay[entityList[i].posY, entityList[i].posX].Glyph := entityList[i].glyph;
45 | end;
46 | (* Highlight items *)
47 | for i := 0 to High(itemList) do
48 | begin
49 | logAction(IntToStr(i) + ': ' + itemList[i].itemName + ' is at ' + IntToStr(itemList[i].posX) + ', ' + IntToStr(itemList[i].posY));
50 | map.mapDisplay[itemList[i].posY, itemList[i].posX].GlyphColour := 'yellow';
51 | map.mapDisplay[itemList[i].posY, itemList[i].posX].Glyph := 'X';
52 | end;
53 | logAction('');
54 | dumpMap;
55 | (* Write out the game state *)
56 | WriteStr(stateValue, main.gameState);
57 | logAction('gameState: ' + stateValue);
58 | end;
59 |
60 | procedure dumpMap;
61 | var
62 | filename: shortstring;
63 | myfile: Text;
64 | begin
65 | filename := globalUtils.saveDirectory + PathDelim + 'map.txt';
66 | AssignFile(myfile, filename);
67 | rewrite(myfile);
68 | for r := 1 to MAXROWS do
69 | begin
70 | for c := 1 to MAXCOLUMNS do
71 | begin
72 | Write(myfile, map.maparea[r][c].Glyph);
73 | end;
74 | Write(myfile, sLineBreak);
75 | end;
76 | closeFile(myfile);
77 | end;
78 |
79 | end.
80 |
--------------------------------------------------------------------------------
/docs/scrTitle.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 | 18 | Title screen
19 |procedure displayTitleScreen(yn: byte); |
24 |
procedure displayTitleScreen(yn: byte); |
31 |
| 33 | |
18 | Introduction screen
19 |procedure displayIntroScreen; |
25 |
procedure displayIntroScreen; |
32 |
| 34 | |
| Marker | 17 |Visibility | 18 |
|---|---|
 |
21 | Strict Private | 22 |
|
25 | Private | 26 |
 |
29 | Strict Protected | 30 |
|
33 | Protected | 34 |
 |
37 | Public | 38 |
 |
41 | Published | 42 |
 |
45 | Automated | 46 |
|
49 | Implicit | 50 |
18 | Shown when exiting the Smugglers cave and starting the larger adventure
19 |procedure displayWinscreen; |
25 |
procedure displayWinscreen; |
32 |
|
34 | 35 | Show the Win screen 36 | |
18 | Arrow
19 |procedure createArrow(itmx, itmy: smallint); |
24 |
procedure useItem; |
27 |
procedure createArrow(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create an arrow 38 | |
procedure useItem; |
43 |
|
45 | 46 | Item cannot be equipped 47 | |
18 | A rock, causes base damage of 4 points
19 |procedure createRock(itmx, itmy: smallint); |
24 |
procedure useItem; |
27 |
procedure createRock(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create a rock 38 | |
procedure useItem; |
43 |
|
45 | 46 | Item cannot be equipped 47 | |
18 | A glowing pixie in a jar - Light source
19 |procedure createPixieJar; |
24 |
procedure useItem; |
27 |
procedure createPixieJar; |
34 |
|
36 | 37 | Create a pixie jar 38 | |
procedure useItem; |
43 |
|
45 | 46 | Item cannot be equipped 47 | |
18 | Axes, Armour & Ale Copyright 2021-2023 Chris Hawkins 19 | 20 |
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
21 |18 | Flask of wine - cures poison
19 |procedure createWineFlask(itmx, itmy: smallint); |
24 |
procedure useItem; |
27 |
procedure createWineFlask(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create a Potion of Cure Poison 38 | |
procedure useItem; |
43 |
|
45 | 46 | Drink Potion 47 | |
18 | A tankard of ale - health top up
19 |procedure createAleTankard(itmx, itmy: smallint); |
24 |
procedure useItem; |
27 |
procedure createAleTankard(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create a tankard of ale 38 | |
procedure useItem; |
43 |
|
45 | 46 | Drink Ale 47 | |
18 | Determines the terminal size when the game is first opened and resizes the user interface accordingly. For a typical 80x24 terminal size, the camera size will be 57x19 For a terminal size of 102x24 and greater, the camera size will be 80x19 This is kept to 19 rather than the full 20 to allow for screenshake to be added in future versions.
19 |procedure getSize; |
25 |
procedure getSize; |
32 |
| 34 | |
18 | Low quality cloth armour
19 |procedure createClothArmour(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure createClothArmour(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create armour 38 | |
procedure useItem(equipped: boolean); |
43 |
|
45 | 46 | Wear armour 47 | |
18 | A dimly glowing pixie in a jar - Light source
19 |procedure createPixieJarDim(itmx, itmy: smallint); |
24 |
procedure useItem; |
27 |
procedure createPixieJarDim(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create a pixie jar 38 | |
procedure useItem; |
43 |
|
45 | 46 | Item cannot be equipped 47 | |
18 | Low quality leather armour
19 |procedure createLeatherArmour(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure createLeatherArmour(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create armour 38 | |
procedure useItem(equipped: boolean); |
43 |
|
45 | 46 | Wear armour 47 | |
18 | Cuirass made from a ribcage
19 |procedure createBoneArmour(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure createBoneArmour(itmx, itmy: smallint); |
34 |
|
36 | 37 | Create armour 38 | |
procedure useItem(equipped: boolean); |
43 |
|
45 | 46 | Wear armour 47 | |
18 | Treasure
19 |procedure createGP(itmx, itmy: smallint); |
25 |
procedure useItem; |
28 |
procedure createGP(itmx, itmy: smallint); |
35 |
|
37 | 38 | Create Gpld 39 | |
procedure useItem; |
44 |
|
46 | 47 | Item cannot be equipped 48 | |
18 | Shared Artificial Stupidity unit for villager AI
19 |procedure wander(id, spx, spy: smallint); |
25 |
procedure chat; |
28 |
procedure wander(id, spx, spy: smallint); |
35 |
|
37 | 38 | Move in a random direction 39 | |
procedure chat; |
44 |
|
46 | 47 | Villager talks 48 | |
18 | Environmental hazard - blocks entities
19 |procedure createWeb(uniqueid, npcx, npcy: smallint); |
25 |
procedure takeTurn(id: smallint); |
28 |
procedure createWeb(uniqueid, npcx, npcy: smallint); |
35 |
|
37 | 38 | Create web 39 | |
procedure takeTurn(id: smallint); |
44 |
|
46 | 47 | Take a turn 48 | |
18 | Help screen - accessed from main game screen
19 |procedure drawOutline; |
25 |
procedure displayHelpScreen; |
28 |
procedure drawOutline; |
35 |
|
37 | 38 | Draw a box around the title 39 | |
procedure displayHelpScreen; |
44 |
|
46 | 47 | Display controls and keyboard shortcuts 48 | |
18 | Overworld screen user interface
19 |procedure drawSidepanel; |
25 |
procedure eraseTerrain; |
28 |
procedure drawSidepanel; |
35 |
|
37 | 38 | Draws the panel on side of screen 39 | |
procedure eraseTerrain; |
44 |
|
46 | 47 | Erase the previous 'terrain' message 48 | |
18 | Merchant - Buys and sells items
19 |procedure createMerchant(uniqueid, npcx, npcy: smallint); |
25 |
procedure takeTurn(id: smallint); |
28 |
procedure createMerchant(uniqueid, npcx, npcy: smallint); |
35 |
|
37 | 38 | Create a merchant 39 | |
procedure takeTurn(id: smallint); |
44 |
|
46 | 47 | The NPC takes their turn in the game loop 48 | |
18 | First quest MacGuffin, the smugglers map
19 |procedure createSmugglersMap(itmx, itmy: smallint); |
25 |
procedure obtainMap; |
28 |
procedure createSmugglersMap(itmx, itmy: smallint); |
35 |
|
37 | 38 | Create the map 39 | |
procedure obtainMap; |
44 |
|
46 | 47 | Collect quest item 48 | |
18 | Main game user interface
19 |procedure displayGameScreen; |
25 |
minX: smallint; |
31 |
procedure displayGameScreen; |
38 |
|
40 | 41 | Clear screen and load various panels for game 42 | |
minX: smallint; |
48 |
| 50 | |
18 | Character sheet - Shows player stats
19 |procedure drawOutline; |
25 |
procedure displayCharacterSheet; |
28 |
procedure drawOutline; |
35 |
|
37 | 38 | Draw a box around the title 39 | |
procedure displayCharacterSheet; |
44 |
|
46 | 47 | Display information about player character 48 | |
12 | Axes, Armour & Ale |
13 | Unit potion_curePoison14 |
15 |
16 | Uses Classes, Interfaces, Objects and Records Types Constants Variables Description17 |18 | Potion that cures poison 19 |Overview20 |Functions and Procedures21 |
Description30 |Functions and Procedures31 |
Generated by PasDoc 0.15.0. 50 | 51 | |
18 | A wooden club
19 |procedure createClub(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure throw; |
30 |
procedure createClub(itmx, itmy: smallint); |
37 |
|
39 | 40 | Create a club 41 | |
procedure useItem(equipped: boolean); |
46 |
|
48 | 49 | Equip weapon 50 | |
procedure throw; |
55 |
|
57 | 58 | Remove weapon from inventory when thrown 59 | |
18 | A short bow
19 |procedure createShortBow(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure throw; |
30 |
procedure createShortBow(itmx, itmy: smallint); |
37 |
|
39 | 40 | Create a bow 41 | |
procedure useItem(equipped: boolean); |
46 |
|
48 | 49 | Equip weapon 50 | |
procedure throw; |
55 |
|
57 | 58 | Remove weapon from inventory when thrown 59 | |
18 | Parchment scroll that can increase a player stat
19 |procedure createParchment(itmx, itmy: smallint); |
25 |
procedure collectParchment; |
28 |
procedure createParchment(itmx, itmy: smallint); |
35 |
|
37 | 38 | Create the parchment 39 | |
procedure collectParchment; |
44 |
|
46 | 47 | Collect parchment 48 | |
18 | A wooden club studded with spikes made of obsidian
19 |procedure createTerbutje(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure throw; |
30 |
procedure createTerbutje(itmx, itmy: smallint); |
37 |
|
39 | 40 | Create a terbutje 41 | |
procedure useItem(equipped: boolean); |
46 |
|
48 | 49 | Equip weapon 50 | |
procedure throw; |
55 |
|
57 | 58 | Remove weapon from inventory when thrown 59 | |
18 | A pointy stick
19 |procedure createPointyStick(itmx, itmy: smallint); |
24 |
procedure useItem(equipped: boolean); |
27 |
procedure throw; |
30 |
procedure createPointyStick(itmx, itmy: smallint); |
37 |
|
39 | 40 | Create a pointy stick 41 | |
procedure useItem(equipped: boolean); |
46 |
|
48 | 49 | Equip weapon 50 | |
procedure throw; |
55 |
|
57 | 58 | Remove weapon from inventory when thrown 59 | |
