mirror of
https://github.com/badvision/lawless-legends.git
synced 2025-02-20 21:29:13 +00:00
Oversized window for buy and sell.
This commit is contained in:
Martin Haye
parent
3611b8ebb5
commit
142f50a695
@ -2578,7 +2578,7 @@ end
|
||||
|
||||
def outCodeToFuncTbl(prefix, codeToFunc, out)
|
||||
{
|
||||
codeToFunc.sort().each { code, funcs ->
|
||||
codeToFunc.sort { ent -> ent.key.toLowerCase() }.each { code, funcs ->
|
||||
funcs.eachWithIndex { func, index ->
|
||||
out.println(
|
||||
"${index==0 ? "word[] $prefix${humanNameToSymbol(code, false)} = " : "word = "}@$func")
|
||||
|
||||
@ -51,7 +51,8 @@
|
||||
|
||||
DEBUG = 0 ; 1=some logging, 2=lots of logging
|
||||
|
||||
T1_Val = $D ;zero page Temporary variables
|
||||
pTmp = $4 ;zero page Temporary variables
|
||||
T1_Val = $D
|
||||
T1_vLo = $E
|
||||
T1_vHi = $F
|
||||
zTmp1 = $10
|
||||
@ -108,6 +109,12 @@ RestCursor JMP RsCurs
|
||||
;left arrow or delete key to backspace.
|
||||
GetStr JMP In_Str
|
||||
|
||||
;Get the address of a line on the screen
|
||||
GetScreenLine JMP GetScLn
|
||||
|
||||
;Advance to next line on the screen
|
||||
NextScreenLine JMP NxtScLn
|
||||
|
||||
;If you know which of the {0..110} bitmapped characters
|
||||
;you want plotted, you can bypass testing for control
|
||||
;codes, making this a faster way to plot.
|
||||
@ -1716,6 +1723,38 @@ Wp_rCmb STX Wp_Dig2 ;save digit
|
||||
STA CharRate ;store the rate parameter
|
||||
JMP Wpr_Clr
|
||||
|
||||
; Get pointer to screen line A into A=lo/Y=hi (and to pTmp)
|
||||
GetScLn TAX
|
||||
LDA HgrTbHi,X
|
||||
STA pTmp+1
|
||||
TAY
|
||||
LDA HgrTbLo,X
|
||||
STA pTmp
|
||||
RTS
|
||||
|
||||
; Fun code to advance pTmp to the next hi-res line. Destroys A and Y
|
||||
NxtScLn LDY pTmp+1
|
||||
INY
|
||||
INY
|
||||
INY
|
||||
INY
|
||||
CPY #$40
|
||||
BCC .ok2
|
||||
TYA
|
||||
SBC #$20 ; carry already set
|
||||
TAY
|
||||
LDA pTmp
|
||||
EOR #$80
|
||||
BMI .ok
|
||||
INY
|
||||
CPY #$24
|
||||
BCC .ok
|
||||
LDY #$20
|
||||
ADC #$27 ; carry was set, so actually adding $28
|
||||
.ok STA pTmp
|
||||
.ok2 STY pTmp+1
|
||||
RTS
|
||||
|
||||
HgrTbHi !byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
||||
!byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
||||
!byte $21,$25,$29,$2D,$31,$35,$39,$3D
|
||||
|
||||
@ -24,4 +24,6 @@ DisplayStr = DisplayChar+3
|
||||
CalcWidth = DisplayStr+3
|
||||
SaveCursor = CalcWidth+3
|
||||
RestCursor = SaveCursor+3
|
||||
GetStr = RestCursor+3
|
||||
GetStr = RestCursor+3
|
||||
GetScreenLine = GetStr+3
|
||||
NextScreenLine = GetScreenLine+3
|
||||
@ -30,7 +30,7 @@ import gamelib
|
||||
predef addPlayerToParty, removePlayerFromParty, partyHasPlayer, loadFrameImg, loadMainFrameImg
|
||||
predef scriptSwapTile, setIntimateMode, fontCmd, setIntimateMode
|
||||
predef callGlobalFunc, getCharResponse, memcpy, checkEncounter, finalWin, addUnique
|
||||
predef benchPlayer, unbenchPlayer, buyFromStore, sellToStore
|
||||
predef benchPlayer, unbenchPlayer, buyFromStore, sellToStore, setOversizeWindow, convertDec
|
||||
|
||||
// This pointer is the root of all heap-tracked (and garbage collected) objects.
|
||||
// See playtype.plh for definitions of all the datastructures and how they interconnect.
|
||||
|
||||
@ -268,6 +268,39 @@ export asm memcpy // params: pSrc, pDst, len. Non-overlapping only!
|
||||
rts
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
export asm memset // params: pDst, val, len.
|
||||
+asmPlasm 3
|
||||
ldy #0
|
||||
lda evalStkL+2,x ; dest ptr
|
||||
sta pTmp
|
||||
lda evalStkH+2,x
|
||||
sta pTmp+1
|
||||
lda evalStkL+1,x ; value
|
||||
sta tmp
|
||||
lda evalStkL,x ; len lo
|
||||
pha
|
||||
lda evalStkH,x ; len hi
|
||||
tax
|
||||
beq +
|
||||
lda tmp
|
||||
- sta (pTmp),y
|
||||
iny
|
||||
bne -
|
||||
inc pTmp+1
|
||||
dex
|
||||
bne -
|
||||
+ pla
|
||||
beq +
|
||||
tax
|
||||
lda tmp
|
||||
- sta (pTmp),y
|
||||
iny
|
||||
dex
|
||||
bne -
|
||||
+ rts
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
asm readAuxByte // params: ptr; ret: char
|
||||
+asmPlasm 1
|
||||
@ -487,47 +520,48 @@ asm blit // params: srcData, dstScreenPtr, nLines, lineSize
|
||||
lda #$60
|
||||
sta $1D
|
||||
|
||||
; Outer copy loop
|
||||
pla ; line count
|
||||
tax
|
||||
.loop
|
||||
ldy ysav ; byte count minus 1. There are 18 bytes per line
|
||||
- ldy ysav ; byte count minus 1. There are 18 bytes per line
|
||||
dey
|
||||
jsr $10 ; copy pixel bytes
|
||||
|
||||
; Advance to next row of data
|
||||
lda tmp
|
||||
lda tmp ; advance to next row of data
|
||||
clc
|
||||
adc ysav
|
||||
sta tmp
|
||||
bcc +
|
||||
inc tmp+1
|
||||
+ ; Fun code to advance to the next hi-res line
|
||||
ldy pTmp+1
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
cpy #$40
|
||||
bcc .ok2
|
||||
tya
|
||||
sbc #$20 ; carry already set
|
||||
tay
|
||||
lda pTmp
|
||||
eor #$80
|
||||
bmi .ok
|
||||
iny
|
||||
cpy #$24
|
||||
bcc .ok
|
||||
ldy #$20
|
||||
adc #$27 ; carry was set, so actually adding $28
|
||||
.ok
|
||||
sta pTmp
|
||||
.ok2
|
||||
sty pTmp+1
|
||||
; Loop until we've done all rows.
|
||||
+ jsr NextScreenLine ; and next screen line
|
||||
dex
|
||||
bne .loop
|
||||
bne - ; Loop until we've done all rows.
|
||||
rts
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
asm vline // params: dstScreenPtr, val, nLines
|
||||
+asmPlasm 3
|
||||
|
||||
; Save number of lines
|
||||
pha
|
||||
|
||||
; Save value
|
||||
lda evalStkL+1,x
|
||||
sta tmp
|
||||
|
||||
; Save the dest pointer
|
||||
lda evalStkL+2,x
|
||||
sta pTmp
|
||||
lda evalStkH+2,x
|
||||
sta pTmp+1
|
||||
|
||||
pla ; line count
|
||||
tax
|
||||
- ldy #0
|
||||
lda tmp
|
||||
sta (pTmp),y
|
||||
jsr NextScreenLine
|
||||
dex
|
||||
bne -
|
||||
rts
|
||||
end
|
||||
|
||||
@ -816,6 +850,13 @@ export asm calcWidth
|
||||
jmp CalcWidth
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Get the address of the given hi-res screen line
|
||||
export asm getScreenLine
|
||||
+asmPlasm_bank2 1
|
||||
jmp GetScreenLine
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Display a string using the font engine but not its parser.
|
||||
// Params: pStr
|
||||
@ -969,7 +1010,7 @@ end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Convert signed decimal to string in decimalBuf (@decimalBuf returned)
|
||||
def convertDec(n)
|
||||
export def convertDec(n)
|
||||
word n0
|
||||
word p
|
||||
p = @decimalBuf + 1
|
||||
@ -1257,6 +1298,32 @@ export def getMapWindow(width, height)
|
||||
fin
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def hline(addr, startByte, midByte, midSize, endByte)
|
||||
^addr = startByte
|
||||
memset(addr+1, midByte, midSize)
|
||||
^(addr+midSize+1) = endByte
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Window that covers the entire inner area (destroys frame image, so be sure to loadMainFrame
|
||||
// afterwards)
|
||||
export def setOversizeWindow()
|
||||
hline(getScreenLine(5)+1, 0, 0, 36, 0)
|
||||
hline(getScreenLine(6)+1, $F8, $FF, 36, $8F)
|
||||
hline(getScreenLine(7)+1, $FC, $FF, 36, $9F)
|
||||
hline(getScreenLine(8)+1, $8C, 0, 36, $98)
|
||||
vline(getScreenLine(9)+1, $8C, 174)
|
||||
vline(getScreenLine(9)+38, $98, 174)
|
||||
hline(getScreenLine(182)+1, $8C, 0, 36, $98)
|
||||
hline(getScreenLine(183)+1, $FC, $FF, 36, $9F)
|
||||
hline(getScreenLine(184)+1, $F8, $FF, 36, $8F)
|
||||
hline(getScreenLine(185)+1, 0, 0, 36, 0)
|
||||
setWindow(10, 183, 14, 267) // Top, Bottom, Left, Right
|
||||
clearWindow()
|
||||
frameLoaded = 0
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
export def fontCmd(code, coord)
|
||||
tabBuf[0] = 4 // length
|
||||
@ -1391,7 +1458,6 @@ end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
export def loadMainFrameImg()
|
||||
mmgr(START_LOAD, 1) // partition 1 is where code lives
|
||||
loadFrameImg(mapIs3D+2)
|
||||
if curFullscreenImg
|
||||
auxMmgr(FREE_MEMORY, curFullscreenImg)
|
||||
@ -1835,13 +1901,13 @@ def showAnimFrame()
|
||||
if curPortrait
|
||||
// Blit portrait to the appropriate area on the screen
|
||||
if frameLoaded == 3 // 3D-mode frame? Note: don't check mapIs3D, because we might be in an engine
|
||||
blit(curPortrait + 2, $2182, 128, 18) // start at 3rd text line
|
||||
blit(curPortrait + 2, getScreenLine(24)+2, 128, 18) // start at 3rd text line
|
||||
else
|
||||
blit(curPortrait + 2, $2202, 128, 18) // start at 4th text line
|
||||
blit(curPortrait + 2, getScreenLine(32)+2, 128, 18) // start at 4th text line
|
||||
fin
|
||||
needRender = FALSE // suppress display of map for this frame
|
||||
elsif curFullscreenImg
|
||||
blit(curFullscreenImg + 2, $2000, 192, 40) // the +2 is to skip anim hdr offset
|
||||
blit(curFullscreenImg + 2, getScreenLine(0), 192, 40) // the +2 is to skip anim hdr offset
|
||||
needRender = FALSE // suppress display of map for this frame
|
||||
elsif mapIs3D
|
||||
if textDrawn and mapIs3D and texturesLoaded; copyWindow(); fin
|
||||
@ -2020,6 +2086,7 @@ def returnFromEngine()
|
||||
if curEngine
|
||||
mmgr(FREE_MEMORY, curEngine)
|
||||
curEngine = NULL
|
||||
loadMainFrameImg()
|
||||
clearPortrait()
|
||||
if renderLoaded; texControl(1); fin
|
||||
mapNameHash = 0; showMapName(global=>s_mapName)
|
||||
@ -2285,6 +2352,25 @@ def loadTitle()
|
||||
|
||||
puts("Loading game.\n")
|
||||
|
||||
// Allocate and permanently lock mem for the font engine and its font (up in LC ram)
|
||||
mmgr(START_LOAD, 1) // partition 1 is where code lives
|
||||
mmgr(SET_MEM_TARGET, fontEngine)
|
||||
mmgr(REQUEST_MEMORY, fontEngineLen)
|
||||
mmgr(LOCK_MEMORY, fontEngine)
|
||||
|
||||
mmgr(SET_MEM_TARGET, fontData)
|
||||
mmgr(REQUEST_MEMORY, fontDataLen)
|
||||
mmgr(LOCK_MEMORY, fontData)
|
||||
|
||||
// Load them into lo mem
|
||||
pEngine = mmgr(QUEUE_LOAD, CODE_FONT_ENGINE<<8 | RES_TYPE_CODE)
|
||||
pFont = mmgr(QUEUE_LOAD, 1<<8 | RES_TYPE_FONT)
|
||||
mmgr(FINISH_LOAD, 0)
|
||||
|
||||
// Relocate font engine and font data to their final spots up in the language card
|
||||
memcpy(pEngine, fontEngine, fontEngineLen)
|
||||
memcpy(pFont, fontData, fontDataLen)
|
||||
|
||||
// Load the title screen and show it.
|
||||
loadFrameImg(1) // title screen is fixed at #1
|
||||
^$C050 // graphics
|
||||
@ -2296,19 +2382,6 @@ def loadTitle()
|
||||
^$C07E=0 // disable double-hi-res
|
||||
^$C05F // disable double-hi-res
|
||||
|
||||
// Allocate and permanently lock mem for the font engine and its font (up in LC ram)
|
||||
mmgr(SET_MEM_TARGET, fontEngine)
|
||||
mmgr(REQUEST_MEMORY, fontEngineLen)
|
||||
mmgr(LOCK_MEMORY, fontEngine)
|
||||
|
||||
mmgr(SET_MEM_TARGET, fontData)
|
||||
mmgr(REQUEST_MEMORY, fontDataLen)
|
||||
mmgr(LOCK_MEMORY, fontData)
|
||||
|
||||
// Load them into lo mem
|
||||
pEngine = mmgr(QUEUE_LOAD, CODE_FONT_ENGINE<<8 | RES_TYPE_CODE)
|
||||
pFont = mmgr(QUEUE_LOAD, 1<<8 | RES_TYPE_FONT)
|
||||
|
||||
// While we're loading, let's get the expander into aux RAM.
|
||||
auxMmgr(SET_MEM_TARGET, expandVec)
|
||||
auxMmgr(QUEUE_LOAD, CODE_EXPAND<<8 | RES_TYPE_CODE)
|
||||
@ -2319,10 +2392,6 @@ def loadTitle()
|
||||
|
||||
mmgr(FINISH_LOAD, 0)
|
||||
|
||||
// Relocate font engine and font data to their final spots up in the language card
|
||||
memcpy(pEngine, fontEngine, fontEngineLen)
|
||||
memcpy(pFont, fontData, fontDataLen)
|
||||
|
||||
// Tell the font engine where to find its font
|
||||
setFont(fontData)
|
||||
|
||||
|
||||
@ -14,8 +14,7 @@ include "globalDefs.plh"
|
||||
include "gen_modules.plh"
|
||||
include "gen_items.plh"
|
||||
|
||||
const NUM_COLUMN = 14
|
||||
const PRICE_COLUMN = 125
|
||||
const PAGE_SIZE = 19
|
||||
|
||||
// Exported functions go here. First a predef for each one, then a table with function pointers
|
||||
// in the same order as the constants are defined in the header.
|
||||
@ -27,6 +26,8 @@ const MAX_PAGE_ITEMS = 20 // should be plenty
|
||||
word pageItems[MAX_PAGE_ITEMS]
|
||||
word pagePrices[MAX_PAGE_ITEMS]
|
||||
|
||||
byte selStrBuf[2]
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Definitions used by assembly code
|
||||
asm _defs
|
||||
@ -111,51 +112,32 @@ def unloadItems()
|
||||
mmgr(FREE_MEMORY, pItemsModule)
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def calcPageSize()
|
||||
word hMap, vMap
|
||||
getMapWindow(@hMap, @vMap)
|
||||
printf1("vMap=%d\n", vMap)
|
||||
return vMap / 9 // nine scanlines per character line
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def displayBuyTitle()
|
||||
rawDisplayStr("^L")
|
||||
rightJustifyStr("#", NUM_COLUMN)
|
||||
rawDisplayStr(".^L ^LItem")
|
||||
rightJustifyStr("Price", PRICE_COLUMN)
|
||||
rawDisplayStr("^L")
|
||||
rawDisplayStr("^T108Buying\n\n")
|
||||
rawDisplayStr("^LSel^T025Price^T060Item^L")
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def displayBuyLine(num, name, price)
|
||||
word buf
|
||||
rawDisplayStr("\n")
|
||||
rightJustifyNum(num, NUM_COLUMN)
|
||||
rawDisplayStr(". ")
|
||||
^(@buf) = 1
|
||||
^(@buf + 1) = num + 'A'
|
||||
rawDisplayStr(@buf)
|
||||
rawDisplayStr(".^T025")
|
||||
rawDisplayStr(convertDec(price))
|
||||
rawDisplayStr("^T060")
|
||||
rawDisplayStr(name)
|
||||
rightJustifyNum(price, PRICE_COLUMN)
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def _buyFromStore(storeCode, markupRatio)
|
||||
word pItemTbl, pItemFunc, pageNum, itemNum, pageSize
|
||||
|
||||
clearWindow()
|
||||
showMapName("Buy items")
|
||||
|
||||
setMapWindow()
|
||||
clearWindow()
|
||||
|
||||
loadItems()
|
||||
pItemTbl = pItemsModule()=>items_forStoreCode(storeCode)
|
||||
pageSize = calcPageSize()
|
||||
|
||||
pItemFunc = pItemTbl
|
||||
|
||||
def displayBuyPage(pItemFunc, markupRatio)
|
||||
byte itemNum
|
||||
itemNum = 0
|
||||
displayBuyTitle()
|
||||
while itemNum < pageSize-1 // 1 for the title line
|
||||
mmgr(HEAP_COLLECT, 0)
|
||||
while itemNum < PAGE_SIZE-5
|
||||
pageItems[itemNum] = (*pItemFunc)()
|
||||
pagePrices[itemNum] = max(1, pageItems[itemNum]=>w_price + calcMarkup(pageItems[itemNum]=>w_price, markupRatio))
|
||||
if pageItems[itemNum]->t_type == TYPE_STUFF // show plural for countable stuff like ammo, pelts
|
||||
@ -163,15 +145,31 @@ def _buyFromStore(storeCode, markupRatio)
|
||||
else
|
||||
setPlural(FALSE)
|
||||
fin
|
||||
displayBuyLine(itemNum+1, pageItems[itemNum]=>s_name, pagePrices[itemNum])
|
||||
displayBuyLine(itemNum, pageItems[itemNum]=>s_name, pagePrices[itemNum])
|
||||
itemNum++
|
||||
pItemFunc = pItemFunc + 2
|
||||
if !*pItemFunc; break; fin
|
||||
loop
|
||||
return itemNum
|
||||
end
|
||||
|
||||
setWindow2()
|
||||
rawDisplayStr("Select item to buy.\n")
|
||||
getUpperKey()
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
def _buyFromStore(storeCode, markupRatio)
|
||||
word pItemTbl, topItem, choice
|
||||
|
||||
setOversizeWindow()
|
||||
clearWindow()
|
||||
|
||||
loadItems()
|
||||
pItemTbl = pItemsModule()=>items_forStoreCode(storeCode)
|
||||
topItem = pItemTbl
|
||||
|
||||
while TRUE
|
||||
displayBuyPage(topItem, markupRatio)
|
||||
rawDisplayStr("\n\nSelect item, Return for next pg, Esc to leave")
|
||||
choice = readStr()
|
||||
break
|
||||
loop
|
||||
end
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user