1
0

magik.qsrc 800 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. # magik
  2. $SpellListStr = "<center>
  3. <table>
  4. <tr>
  5. <th>Spell</th>
  6. <th>Mana</th>
  7. <th>Description</th>
  8. </tr>"
  9. i = 0
  10. :CombatSpellLoop
  11. $ThisSpellName = $combatSpells[i]
  12. if i < arrsize('$combatSpells'):
  13. if spellKnown[$ThisSpellName] = 1:
  14. $SpellListStr = $SpellListStr + "
  15. <tr>
  16. <td><a href=""EXEC: cls & gs 'castSpell', '<<$ThisSpellName>>'& xgt 'fight','sta' & act 'Physical attacks':gt'boxing' & act 'Magic attacks':gt'magik'""><<$spellName[$ThisSpellName]>></a></td>
  17. <td><<spellMana[$ThisSpellName]>></td>
  18. <td><<$spellDesc[$ThisSpellName]>></td>
  19. </tr>"
  20. end
  21. i += 1
  22. jump 'CombatSpellLoop'
  23. end
  24. $SpellListStr = $SpellListStr + "
  25. </table>
  26. </center>"
  27. $SpellListStr
  28. killvar 'i'
  29. killvar '$ThisSpellName'
  30. killvar '$SpellListStr'
  31. --- magik ---------------------------------