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

ProceI can update ame source

Browse Source
This commit is contained in:
David Schmenk 2016-06-05 18:01:11 -07:00
parent 9b5508a88c
commit 4810c72423
1 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Platform/Apple/virtual/src/plasma/party.pla
View File

@ -1,10 +1,10 @@
/////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (C) 2015 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1 // Copyright (C) 2015 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1
// (the "License"); you may not use this file except in compliance with the License. // (the "License"); you may not use this file except in compliance with the License.
// You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>. // You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>.
// Unless required by applicable law or agreed to in writing, software distributed under // Unless required by applicable law or agreed to in writing, software distributed under
// the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF // the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
// ANY KIND, either express or implied. See the License for the specific language // ANY KIND, either express or implied. See the License for the specific language
// governing permissions and limitations under the License. // governing permissions and limitations under the License.
/////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////
@ -36,27 +36,43 @@ def _party_showPlayerSheet(num)
word x, y word x, y
byte dir byte dir
// This is just a stub for now. Dave, this is where you go wild...
// Count the number of players // Count the number of players
pl = global=>p_players pl = global=>p_players
while num > 0 while num > 0
pl = pl=>p_nextObj pl = pl=>p_nextObj
num = num - 1 if !pl // Not that many players
showMapName("") // Force redraw of map name
return
fin
num--
loop loop
// First, display the player's name in the title bar // First, display the player's name in the title bar
showMapName(pl=>s_name) showMapName(pl=>s_name)
// Next, show stats in the main map area // Next, show nventory in the main map area
setMapWindow() setMapWindow()
clearWindow() clearWindow()
displayStr("Stats") rawDisplayStr("^Y^LInventory^L^N\n")
displayStr("1 Gun\n")
displayStr("2 Food\n")
displayStr("0 Underwear\n")
// Show inventory in the right hand area // Show stats in the right hand area
setWindow2() setWindow2()
clearWindow() clearWindow()
displayStr("Inventory") rawDisplayStr("^Y^LStats/Skills^L^N\n")
displayStr("100% Health\n")
displayStr("75% Strength\n")
displayStr("85% Agility\n")
displayStr("85% Bravery\n")
displayStr("85% Stamina\n")
displayStr("200% Charisma\n")
displayStr("85% Spirit\n")
displayStr("85% Armor\n")
displayStr("85% Aiming\n")
displayStr("85% Dodging\n")
displayStr("85% Wilderness")
// Get a key, do something // Get a key, do something
getUpperKey() getUpperKey()
@ -67,4 +83,4 @@ end
// Boilerplate module initialization code // Boilerplate module initialization code
global = getGlobals() global = getGlobals()
return @funcTbl return @funcTbl
done done