Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-09-29 11:55:21 +00:00
Code Issues Projects Releases Wiki Activity

Workaround for PLASMA string thing.

Browse Source
This commit is contained in:
Martin Haye 2018-03-28 16:36:52 -07:00
parent add1c62f75
commit 1dbd41d79e
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Platform/Apple/tools/PLASMA/src/plasm.jar
View File

Binary file not shown.

19
Platform/Apple/virtual/src/plasma/godmode.pla
View File

@ -236,10 +236,19 @@ def _setCheatCmds()#1
return 0
end
///////////////////////////////////////////////////////////////////////////////////////////////////
// Workaround for plasma string space filling up: allocate a real frame, so that child strings
// will get freed up.
def makeThing(funcTbl, n)
word pFunc
pFunc = *(funcTbl + n)
return pFunc()
end
///////////////////////////////////////////////////////////////////////////////////////////////////
// Abstract code for adding from a list of things (players, items, etc.)
def selectThing(moduleNum, nThings, nSkip, prompt)#1
word pModule, funcTbl, nFunc, pFunc, p_thing, n_thing, n2
word pModule, funcTbl, nFunc, p_thing, n_thing, n2
nFunc = -1
flipToPage1()
@ -252,9 +261,8 @@ def selectThing(moduleNum, nThings, nSkip, prompt)#1
funcTbl = pModule()
for n_thing = 1 to nThings
nFunc = (n_thing-1+nSkip) << 1
pFunc = *(funcTbl + nFunc)
p_thing = pFunc()
nFunc = (n_thing-1+nSkip)<<1
p_thing = makeThing(funcTbl, nFunc)
printf2("%d: %s\n", n_thing, p_thing=>s_name)
if (n_thing % 22) == 0 or n_thing == nThings
mmgr(HEAP_COLLECT, 0)
@ -262,8 +270,7 @@ def selectThing(moduleNum, nThings, nSkip, prompt)#1
n2 = parseDecWithDefault(readStr(), 0)
if n2 >= 1 and n2 <= nThings
nFunc = (n2-1+nSkip) << 1
pFunc = *(funcTbl + nFunc)
p_thing = pFunc()
p_thing = makeThing(funcTbl, nFunc)
printf1("Adding '%s'\n", p_thing=>s_name)
break
else