Plugins locationSkill

package locationSkill;

#
# คำแนะนำเบื้องต้น โดย pmak
# ปลั๊กอินนี้ได้รับใบอนุญาตภายใต้ the GNU GPL
# ลิขสิทธิ์ 2005 by kaliwanagan
# --------------------------------------------------
#
# วิธีการติดตั้ง..:
#
# ใน control\config.txt เพิ่ม:
#
#locationSkill skillname {      # ชื่อสกิลลงพื้นที่จะใช้
#   coords [x, y[, map] ]      # ร่ายสกิืลในพิกัด X ,Y, map (ถ้าเป็นแบบพิกัด x และ y ให้เว้นการร่ายที่ตำแหน่งที่บอทยืน)
#   whenAtCoords [x, y[, range]]   # ร่ายสกิืลเมื่ออยู่ในระหว่าง พิกัด x y + หรือ - ด้วยระยะห่าง range จะร่ายสกิล ตรงที่ตัวเองยืน(เหมือน ออกนอกวงกลมแล้วจะไม่ร่าย range เหมือนรัศมี ประมาณนั้น)
#   lvl [x]            # lv สกิล , ถ้าไม่ระบุค่าเริ่มต้นคือ 10
#   coords_whenGround       # ใส่ชื่อสกิล##เมื่อพื้นที่นั้น(อ้างอิงจากจุดที่จะร่ายสกิล) มีสกิลนั่นลงอยู่ถึงจะร่ายสกิล , ร่ายสกิืลในพิกัด X ,Y, map เมื่อมีสกิลลงพื้นตรงตำแหน่งนั้น
#   coords_whenNotGround      #ใส่ชื่อสกิล##เมื่อพื้นที่นั้น(อ้างอิงจากจุดที่จะร่ายสกิล) ไม่มีสกิลนั่นลงอยู่ถึงจะร่ายสกิล , ร่ายสกิืลในพิกัด X ,Y, map เมื่อไม่มีสกิลลงพื้นตรงตำแหน่งนั้น
#   skillDelay         # ดีเลย์สกิล , ร่ายสกิลหลังจากผ่านไป n วินาที,เริ่มนับเวลาหลังจากที่ใช้สกิล(สกิลเดียวกัน)
#   blockDelayBeforeUse           # ร่ายสกิลหลังจากผ่านไป n seconds,นับช่วงเวลาตั้งแต่เริ่มที่ใช้สกิลนั้ , Before ก่อน ดีเลย์ก่อนใช้สกิล (หน่วยวินาที)
#   blockDelayAfterUse           # ร่ายสกิลหลังจากผ่านไป n seconds,นับช่วงเวลาหลังสกิลนั้ถูกใช้ , After หลัง ดีเลย์หลังใช้สกิล (หน้วยวินาที)
#   hp
#   sp
#   onAction
#   whenStatusActive
#   whenStatusInactive
#   whenFollowing
#   spirit
#   aggressives
#   monsters
#   notMonsters
#   stopWhenHit 0
#   notWhileSitting 0
#   notInTown 0
#   disabled 0
#   inInventory
#}

use strict;
use Plugins;
use Globals;
use Log qw(message warning error);
use AI;
use Skills;

Plugins::register('locationSkill', 'cast skill at a certain location', \&Unload);
my $hook1 = Plugins::addHook('AI_post', \&call);
my $hook2 = Plugins::addHook('packet_skilluse', \&packet_skilluse);

sub Unload {
   Plugins::delHook('packet_skilluse', $hook2);
   Plugins::delHook('AI_post', $hook1);
}

my %skillUse;
my %delay;

sub packet_skilluse {
   my (undef, $args) = @_;
   my $skillID = $args->{'skillID'};
   my $sourceID = $args->{'sourceID'};
   my $x = $args->{'x'};
   my $y = $args->{'y'};
 
   if ($sourceID eq $accountID) {
      $skillUse{$skillID} = 1;
   }
}

sub call {
   if (AI::action eq 'locationSkill') {
      my $args = AI::args;
      if ($args->{'stage'} eq 'end') {
         AI::dequeue;
      } elsif ($args->{'stage'} eq 'skillUse') {
         main::ai_skillUse(
            $args->{'handle'},
            $args->{'lvl'},
            $args->{'maxCastTime'},
            $args->{'minCastTime'},
            $args->{'x'}, $args->{'y'}
         );
         $args->{'stage'} = 'end';
      }
   }
   locationSkill() if (AI::isIdle);
}

sub locationSkill {
   my $prefix = "locationSkill_";
   my $i = 0;
   while (exists $config{$prefix.$i}) {
      if ((main::checkSelfCondition($prefix.$i)) &&
         main::timeOut($delay{$prefix.$i."_blockDelayBeforeUse"}) &&
         main::timeOut($delay{$prefix.$i."_blockDelayAfterUse"})
      ) {
         my $skillObj = Skills->new(name => $config{$prefix.$i});
         unless ($skillObj->handle) {
            my $msg = "Unknown skill name ".$config{$prefix.$i}." in $prefix.$i\n";
            error $msg;
            configModify($prefix.$i."_disabled", 1);
            next;
         }

         my %skill;
         ($skill{'x'}, $skill{'y'}, my $map) = split / *, */, $config{$prefix.$i."_coords"};
         my $pos = main::calcPosition($char);
         $skill{'x'} = $skill{'x'} || $pos->{'x'};
         $skill{'y'} = $skill{'y'} || $pos->{'y'};

         $delay{$prefix.$i."_blockDelayBeforeUse"}{'timeout'} = $config{$prefix.$i."_blockDelayBeforeUse"};
         if (!$delay{$prefix.$i."_blockDelayBeforeUse"}{'set'}) {
            $delay{$prefix.$i."_blockDelayBeforeUse"}{'time'} = time;
            $delay{$prefix.$i."_blockDelayBeforeUse"}{'set'} = 1;
         }
 
         $delay{$prefix.$skillObj->handle."_skillDelay"}{'timeout'} = $config{$prefix.$i."_skillDelay"};
         if ($skillUse{$skillObj->id}) { # set the delays only when the skill gets successfully cast
            $delay{$prefix.$skillObj->handle."_skillDelay"}{'time'} = time;
            $skillUse{$skillObj->id} = 0;
         }

         my %range;
         ($range{'x'}, $range{'y'}, $range{'range'}) = split / *, */, $config{$prefix.$i."_whenAtCoords"};

         my $inRange;
         $inRange = (($pos->{'x'} <= ($range{'x'} + $range{'range'})) &&
                  ($pos->{'x'} >= ($range{'x'} - $range{'range'})) &&
                  ($pos->{'y'} <= ($range{'y'} + $range{'range'})) &&
                  ($pos->{'y'} >= ($range{'y'} - $range{'range'})));
         undef %range;

         if ((checkCoordsCondition($prefix.$i."_coords",\%skill)) &&
            main::timeOut($delay{$prefix.$skillObj->handle."_skillDelay"}) &&
            (($inRange || (!$config{$prefix.$i."_whenAtCoords"}))) &&
            (($map eq $field{'name'}) || !$map)
         ) {
            $skill{'handle'} = $skillObj->handle;
            $skill{'lvl'} = ($config{$prefix.$i."_lvl"}) || 10;
            $skill{'maxCastTime'} = $config{$prefix.$i."_maxCastTime"};
            $skill{'minCastTime'} = $config{$prefix.$i."_minCastTime"};
            $skill{'stage'} = 'skillUse';
            AI::queue('locationSkill', \%skill);
            $delay{$prefix.$i."_blockDelayAfterUse"}{'timeout'} = $config{$prefix.$i."_blockDelayAfterUse"};
            $delay{$prefix.$i."_blockDelayAfterUse"}{'time'} = time;
            $delay{$prefix.$i."_blockDelayBeforeUse"}{'set'} = 0;
            last;
         }
      }
      $i++;
   }
}

sub checkCoordsCondition {
   my $prefix = shift;
   my $coord = shift;

   if ($config{$prefix."_whenGround"}) {
      return 0 unless main::whenGroundStatus($coord, $config{$prefix."_whenGround"});
   }
   if ($config{$prefix."_whenNotGround"}) {
      return 0 if main::whenGroundStatus($coord, $config{$prefix."_whenNotGround"});
   }

   return 1;
}

return 1;

หรือ Download

วิธีการติดตั้ง :

1. นำไฟล์ locationSkill.pl ไปใส่ยัง Plugins
2. ในไฟล์ control/config.txt

ใน control\config.txt เพิ่ม:

locationSkill skillname {      # ชื่อสกิลลงพื้นที่จะใช้
coords [x, y[, map] ]      # ร่ายสกิืลในพิกัด X ,Y, map (ถ้าเป็นแบบพิกัด x และ y ให้เว้นการร่ายที่ตำแหน่งที่บอทยืน)
whenAtCoords [x, y[, range]]   # ร่ายสกิืลเมื่ออยู่ในระหว่าง พิกัด x y + หรือ - ด้วยระยะห่าง range จะร่ายสกิล ตรงที่ตัวเองยืน(เหมือน ออกนอกวงกลมแล้วจะไม่ร่าย range เหมือนรัศมี ประมาณนั้น)
lvl [x]            # lv สกิล , ถ้าไม่ระบุค่าเริ่มต้นคือ 10
coords_whenGround       # ใส่ชื่อสกิล##เมื่อพื้นที่นั้น(อ้างอิงจากจุดที่จะร่ายสกิล) มีสกิลนั่นลงอยู่ถึงจะร่ายสกิล , ร่ายสกิืลในพิกัด X ,Y, map เมื่อมีสกิลลงพื้นตรงตำแหน่งนั้น
coords_whenNotGround      #ใส่ชื่อสกิล##เมื่อพื้นที่นั้น(อ้างอิงจากจุดที่จะร่ายสกิล) ไม่มีสกิลนั่นลงอยู่ถึงจะร่ายสกิล , ร่ายสกิืลในพิกัด X ,Y, map เมื่อไม่มีสกิลลงพื้นตรงตำแหน่งนั้น
skillDelay         # ดีเลย์สกิล , ร่ายสกิลหลังจากผ่านไป n วินาที,เริ่มนับเวลาหลังจากที่ใช้สกิล(สกิลเดียวกัน)
blockDelayBeforeUse           # ร่ายสกิลหลังจากผ่านไป n seconds,นับช่วงเวลาตั้งแต่เริ่มที่ใช้สกิลนั้ , Before ก่อน ดีเลย์ก่อนใช้สกิล (หน่วยวินาที)
blockDelayAfterUse           # ร่ายสกิลหลังจากผ่านไป n seconds,นับช่วงเวลาหลังสกิลนั้ถูกใช้ , After หลัง ดีเลย์หลังใช้สกิล (หน้วยวินาที)
hp
sp
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
monsters
notMonsters
stopWhenHit 0
notWhileSitting 0
notInTown 0
disabled 0
inInventory
}

ตัวอย่าง

locationSkill Ice Wall {
target 100 100
whenCoords gld_dun01 102 100
target_whenNotGround Ice Wall
}

locationSkill Storm Gust {
target 95 100
whenCoords gld_dun01 102 100
}