library SpellBase initializer InitSpellBase

 private constant int spellstack  = 100
 private constant int KEY         = 'A000'
 private constant int RANGE_SPELL = 1
 private constant int MELEE_SPELL = 2
 private constant int POINT_SPELL = 3
 private constant int NULL_SPELL  = 0
 private int          SPELL_COUNT = 0
 private int array    SPELL_ID    [spellstack]
 private int array    SPELL_TYPE  [spellstack]
 private string array SPELL_ORDER [spellstack]

 private int A2I(int spellid)
  {return spellid-KEY}
 
  int GetSpellTypeById(int spellid)
   {return SPELL_TYPE[A2I(spellid)]}
  
  string GetSpellOrder(int spellid)
   {return SPELL_ORDER[A2I(spellid)]}
 
 void CastSpellMelee(int spell,unit u)
  {
   IssueImmediateOrder(u,GetSpellOrder(spell))
  }
  
 void CastSpellRange(int spell,unit u,unit t)
  {
   IssueTargetOrder(u,GetSpellOrder(spell),t)
  }
  
 void CastSpellPoint(int spell,unit u,real tx,real ty)
  {
   IssuePointOrder(u,GetSpellOrder(spell),tx,ty)
  }
 
 private void InitSpellBase()
  {
   SPELL_ID   [0]= 'A000'
   SPELL_TYPE [0]= MELEE_SPELL
   SPELL_ORDER[0]= "channel"
   
   SPELL_ID   [1]= 'A001'
   SPELL_TYPE [1]= POINT_SPELL
   SPELL_ORDER[1]= "channel"   
   
   SPELL_ID   [2]='A002'
   SPELL_TYPE [2]= RANGE_SPELL
   SPELL_ORDER[2]= "channel"
   
   SPELL_COUNT = 2
  }

endlibrary