Code: Select all
[h,if(!isGM() && isNPC(token) && !isOwner()):abort(0)]
Code: Select all
[h:tokens = getSelectedNames()]
[h,if(listCount(tokens) != 1): abort(0)]
[h:token = listGet(tokens, 0)]
[h:go = 1]
[h,if(startsWith(token, "Lib")): abort(0)]
[h,if(!isGM() && isNPC(token) && !isOwner()):abort(0)]
[h:switchToken(token)]
[h:myGear = mlf.Gear]
[h:myGearList = json.fields(myGear)]
[h:gearTblSection=""]
[h,foreach(gearItem, myGearList),CODE:
{
[det = json.get(myGear, gearItem)]
[gearTblSection = strformat("%s%dx %s<br>", gearTblSection, json.get(det,"qty"), gearItem)]
}]
[frame("Character Sheet"):
{
<html>
<head>
<title>ADD&D 2E Character Sheet</title>
<head><link rel='onChangeSelection' type='macro' href='[r:macroLinkText("mlf.CharacterSheet@this", "none",token)]'></link>
</head>
<body bgcolor='white'>
<table border=0 width='100%'>
<tr>
[r:MacroLink("Main", "Main@Lib:AD&D", "none", "", currentToken())]
[r:MacroLink("Spells", "Spells@Lib:AD&D", "none", "", currentToken())]
[r:MacroLink("Gear", "Gear@Lib:AD&D", "none", "", currentToken())]
</tr>
<tr bgcolor="#808080">
<td colspan='4' align="center" ><img src='[r:getTokenImage()]'></img></td>
</tr>
<tr bgcolor='#000000' color='white'>
<td colspan='2'><b>[r:getName()]</b></td>
<td colspan='2'><b>Level [R:mlf.Level] [r:mlf.Race] [r:mlf.Class]</b></td>
</tr>
<tr bgcolor='#cccccc'>
<td colspan='2'><b>Alignment</b>: [r:mlf.Alignment]</td>
</tr>
<tr bgcolor='#eeeeee'>
<td><b>[r:MacroLink("HP/MaxHP:", "mlf.HPAdjust@Lib:AD&D", "all", "", currentToken())]</b> [r:mlf.HP] / [r:mlf.HPMAX]</td>
<td><b>[r:MacroLink("XP:", "mlf.XPAdjust@Lib:AD&D", "all", "", currentToken())]</b> [r:mlf.XP]</td>
<td><b>[r:MacroLink("AC:", "mlf.ACAdjust@Lib:AD&D", "all", "", currentToken())]</b> [r:mlf.ArmorClass]</td>
</tr>
<tr bgcolor='#cccccc'>
<td><b>[r:MacroLink("STR", "mlf.STRCheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Strength]</td>
<td><b>[r:MacroLink("CON", "mlf.CONCheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Constitution]</td>
<td><b>[r:MacroLink("DEX", "mlf.DEXCheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Dexterity]</td>
<td>[MacroLink("edit","mlf.editCharacter@Lib:AD&D", "", "","selected")]</td>
</tr>
<tr bgcolor='#eeeeee'>
<td><b>[r:MacroLink("INT", "mlf.INTCheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Intelligence]</td>
<td><b>[r:MacroLink("CHA", "mlf.CHACheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Charisma]</td>
<td><b>[r:MacroLink("WIS", "mlf.WISCheck@Lib:AD&D", "all", "", currentToken())]</b>:[r:mlf.Wisdom]</td>
</tr>
<tr><td>[MacroLink("Level Up","mlf.LevelUp@Lib:AD&D")]</td>
<td>[MacroLink("Level Loss","mlf.LevelDown@Lib:AD&D")]</td>
</tr>
<tr bgcolor='#cccccc'>
<td><b>THACO</b>: [r:mlf.THAC0]</td>
</tr>
<tr bgcolor='#eeeeee'>
<td valign='top' colspan='4'>
<b>Spell Book</b>: <br>
[h:SpellList = json.fields(mlf.SpellBook,"json" )]
[r: json.toList(SpellList)]
</td>
</tr>
<tr bgcolor='#cccccc'>
<td valign='top' colspan='4'>
<b>Memorised</b>:<br>
[h:SpellMem = json.fields(mlf.SpellsMemorised,"json" )]
[r: json.toList(SpellMem)]
</td>
</tr>
<tr>
<td valign='top' colspan='2'>
<b>Armor</b>:
[r:mlf.EquipedArmor]
[r:if(mlf.EquippedShield==1," & Shield","")]
</td>
<td valign='top' colspan='2'>
<b>Weapons M / R</b>:
[r: json.get(EquipedWeapon,"ItemName")] / [r:mlf.EquippedRanged]
</td>
</tr>
<tr>
<td valign='top' colspan='4' bgcolor='#dcdcdc'><b>Additional Gear</b></td>
</tr>
<tr>
<td colspan='4' bgcolor='#dcdcdc'>
[r:gearTblSection]
</td>
</tr>
</table>
</body>
</html>
}]
Thanks