12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- # magik
- act 'Physical attacks':gt'boxing'
- if spellMana['fog'] = 0:
- gs 'spellList'
- end
- $SpellListStr = "
- <center>
- <h1>Choose a Spell to cast.</h1>
- <br>
- <table CELLPADDING = '5'>
- <tr>
- <th align='left'>Spell</th>
- <th align='left'>Mana</th>
- <th align='left'>Description</th>
- </tr>"
- i = 0
- numSpellsKnown = 0
- :CombatSpellLoop
- $ThisSpellName = $combatSpells[i]
- if i < arrsize('$combatSpells'):
- if spellKnown[$ThisSpellName] = 1:
- $SpellListStr = $SpellListStr + "
- <tr>
- <td align='left'><a href=""EXEC: cls & gs 'castSpell', '<<$ThisSpellName>>'& xgt 'fight','sta' & act 'Physical attacks':gt'boxing' & act 'Magic attacks':gt'magik'""><<$spellName[$ThisSpellName]>></a></td>
- <td align='right'><<spellMana[$ThisSpellName]>></td>
- <td align='left'><<$spellDesc[$ThisSpellName]>></td>
- </tr>"
- numSpellsKnown += 1
- end
- i += 1
- jump 'CombatSpellLoop'
- end
- $SpellListStr = $SpellListStr + "
- </table>
- </center>"
- if numSpellsKnown = 0:
- "No combat spells known."
- else
- *pl func('cleanHTML',$SpellListStr)
- end
- killvar 'i'
- killvar 'numSpellsKnown'
- killvar '$ThisSpellName'
- killvar '$SpellListStr'
- --- magik ---------------------------------
|