Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-06-27 07:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Apply charisma bonus for buying/selling at stores.

Browse Source
This commit is contained in:
Martin Haye 2021-08-15 09:11:24 -07:00
parent 0baee6e4e5
commit e2bf2ccfb1
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Platform/Apple/virtual/src/plasma/store.pla
View File

@ -33,6 +33,7 @@ word pageItems[MAX_PAGE_ITEMS]
word pagePrices[MAX_PAGE_ITEMS]
byte playerNum, playerCount
word pPlayer
word charmRatio
///////////////////////////////////////////////////////////////////////////////////////////////////
// Definitions used by assembly code
@ -115,7 +116,7 @@ end
///////////////////////////////////////////////////////////////////////////////////////////////////
def displayBuyPage(pItemTbl, markupRatio, pageNum, nPages)#1
byte numOnPage
word pItemNum, pItem
word pItemNum, pItem, price
// Clear stuff from previous page
heapCollect()
@ -129,7 +130,9 @@ def displayBuyPage(pItemTbl, markupRatio, pageNum, nPages)#1
pItem=>w_count = pItem=>w_storeAmount
fin
pageItems[numOnPage] = pItem
pagePrices[numOnPage] = max(1, pItem=>w_price + addRatio(pItem=>w_price, markupRatio))
price = max(1, pItem=>w_price + addRatio(pItem=>w_price, markupRatio))
price = max(1, price - addRatio(price, charmRatio))
pagePrices[numOnPage] = price
displayItemLine(numOnPage)
pItemNum = pItemNum + 2
next
@ -243,14 +246,21 @@ def browseItem(num)#0
loop
end
///////////////////////////////////////////////////////////////////////////////////////////////////
def setPlayer(num)#0
playerNum = num
pPlayer = index(global=>p_players, playerNum)
// Charisma discounts 3% per point when buying from a merchant; adds 3% when selling to merchant
charmRatio = percentToRatio(pPlayer->b_charisma * 3)
end
///////////////////////////////////////////////////////////////////////////////////////////////////
def storeSetup()#0
loadExtraModules()
setBigWindow()
playerCount = countList(global=>p_players)
playerNum = 0
pPlayer = index(global=>p_players, playerNum)
setPlayer(0)
end
///////////////////////////////////////////////////////////////////////////////////////////////////
@ -278,8 +288,7 @@ def _buyFromStore(storeCode, profitPercent)#1
elsif choice == '>' and pageNum+1 < nPages
pageNum++
elsif choice >= '1' and (choice-'1') < playerCount and (choice-'1') <> playerNum
playerNum = choice - '1'
pPlayer = index(global=>p_players, playerNum)
setPlayer(choice - '1')
elsif choice >= 'A' and (choice-'A' < nItemsOnPage)
browseItem(choice-'A')
elsif choice == $1B // Esc
@ -311,6 +320,7 @@ def iterateSellables(skipItems, markdownRatio)#1
fin
if ok
price = max(0, pItem=>w_price - addRatio(pItem=>w_price, markdownRatio))
price = price + addRatio(price, charmRatio)
if !price; ok = FALSE; fin
fin
if ok
@ -400,8 +410,7 @@ def _sellToStore(profitPercent)#1
elsif choice == '>' and pageNum+1 < nPages
pageNum++
elsif choice >= '1' and (choice-'1') < playerCount and (choice-'1') <> playerNum
playerNum = choice - '1'
pPlayer = index(global=>p_players, playerNum)
setPlayer(choice - '1')
totalItems = iterateSellables(9999, 0)
elsif choice >= 'A' and (choice-'A' < nItemsOnPage)
sellItem(choice-'A')