Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Let knowledge-boosting cyberware contribute towards skill slots. #111

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Let knowledge-boosting cyberware contribute towards skill slots. #111

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 9 additions & 2 deletions ghchars.pp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,6 +4,7 @@
{
GearHead: Arena, a roguelike mecha CRPG
Copyright (C) 2005 Joseph Hewitt
Copyright (C) 2005 Maxime Devos

This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Lesser General Public License as published by
Expand Down Expand Up @@ -438,7 +439,7 @@ function IsLegalCharSub( SPC, Part: GearPtr ): Boolean;

implementation

uses texutil;
uses gearutil, texutil;

Procedure InitChar(Part: GearPtr);
{PART is a newly created Character record.}
Expand Down Expand Up @@ -731,7 +732,13 @@ function RandomSoldier( StatPoints , SkillRank: Integer ): GearPtr;
var
N: Integer;
begin
N := ( ( PC^.STat[ STAT_Knowledge ] * 6 ) div 5 + 5 );
{ A PC might want to upgrade their brain with cyberware to help }
{ with learning skills, so use CStat instead of STat to take }
{ cyberware in account. This also results in status conditions }
{ being taken in account, which seems fitting -- having a bad }
{ mood wouldn't help with learning. }

N := ( ( CStat ( PC, STAT_KNOWLEDGE ) * 6) div 5 + 5 );
if NAttValue( PC^.NA , NAG_Talent , NAS_Savant ) <> 0 then N := N + 5;
NumberOfSkillSlots := N;
end;
Expand Down
3 changes: 3 additions & 0 deletions history.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,3 +1,6 @@
?.??? February 5 2023
- Knowledge adjustments from cyberware and mood contribute towards skill slots (ghchars.pp)

1.310 February 7 2019
- All old style walls have been replaced by thin walls (sdlmap.pp)
- Portraits may be assigned as unisex "por_n_*.png" (sdlinfo.pp)
Expand Down
6 changes: 5 additions & 1 deletion license.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,14 @@
The GearHead Universe is Copyright 2005 by Joseph Hewitt.
The GearHead Universe is mostly Copyright 2005 by Joseph Hewitt,
with some small contributions by other people under copyrigh by the
other people.

GearHead: Arena is a computer game set in the GearHead Universe,
and is distributed under the terms of the GNU Lesser General
Public License.

GearHead: Arena, a roguelike mecha CRPG
Copyright (C) 2005 Joseph Hewitt
Copyright (C) 2023 Maxime Devos

[email protected]
http://www.gearheadrpg.com
Expand Down