################################################
##ThaiKoreEx :: autoSpell plugin
##This plugin is licensed under the GNU GPL
##This code is modified from Thaikore SVN
##For ThaiKoreEX 2.5  11/05/09 by Ninkoman
##Test on ThaikoreEX 2.5 Hunter Heal Mod. 11/08
################################################

package autoSpell;

use strict;
use Globals;
use Plugins;
use FileParser;
use Utils;

Plugins::register('autoSpell', 'use auto spell for Thaikore EX 2.5', \&Unload);

Plugins::addHook(HOOK_AI_LOCATION_POST, \&ai_location_post);

sub Unload { 
  Plugins::delHook(HOOK_AI_LOCATION_POST, \&ai_location_post);
}


sub ai_location_post {
  return if ($config{autoSpell} eq '' || $config{autoSpell} eq "0");

  if ($char->{skills}{SA_AUTOSPELL}{lv} && binFind(\@{$char->{status}}, 65) eq '' && ($AI->isIdle || $AI->is(qw[route route_getMapRoute follow attack memo])) && timeOut(\%{$timeout{autoSpell}})) {
      if (scalar(@autospellID)) {
        my $skillAlias = $skills_rlut{lcCht($config{autoSpell})};

        if (!ref($char->{skills}{$skillAlias}) || binFind(\@autospellID, $char->{skills}{$skillAlias}{ID}) eq '') {
            $interface->writeoutput("autoSpell: error skill : ${config{autoSpell}}.\n","yellow");
            configModify('autoSpell', 0);
        } else {
            $interface->writeoutput("autoSpell: start skill : ${config{autoSpell}}.\n","yellow");
            $msgSender->sendAutospell($char->{skills}{$skillAlias}{ID});
            $timeout{autoSpell}{time} = time;
            $timeout{autoSpell}{timeout} = 3;
        }

        undef @autospellID;

      } else {
        $AI->ai_skillUse($char->{skills}{SA_AUTOSPELL}{ID}, $char->{skills}{SA_AUTOSPELL}{lv}, 10, 0, $accountID);
      }
  }
}

return 1;