ProceI can update ame source

This commit is contained in:
David Schmenk 2016-06-05 18:01:11 -07:00
parent 9b5508a88c
commit 4810c72423

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.
// 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
// 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
// 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
// ANY KIND, either express or implied. See the License for the specific language
// governing permissions and limitations under the License.
///////////////////////////////////////////////////////////////////////////////////////////////////
@ -36,27 +36,43 @@ def _party_showPlayerSheet(num)
word x, y
byte dir
// This is just a stub for now. Dave, this is where you go wild...
// Count the number of players
pl = global=>p_players
while num > 0
pl = pl=>p_nextObj
num = num - 1
if !pl // Not that many players
showMapName("") // Force redraw of map name
return
fin
num--
loop
// First, display the player's name in the title bar
showMapName(pl=>s_name)
// Next, show stats in the main map area
// Next, show nventory in the main map area
setMapWindow()
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()
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
getUpperKey()
@ -67,4 +83,4 @@ end
// Boilerplate module initialization code
global = getGlobals()
return @funcTbl
done
done