NPC2
Code:
sub EVENT_SAY {
my $cure = quest::saylink ("cure", 1);
my $heal = quest::saylink ("heal", 1);
my $bind = quest::saylink ("bind", 1);
my $advanced = quest::saylink ("Advanced blessing");
my $Kimura = quest::saylink ("Kimura's Super Buff");
if ($text =~/Hail/i)
{ quest::say("Greetings $name. I have been sent to aid you on your journey! Would you like a [$cure], [$heal], [$advanced], [$Kimura] or I can [$bind] you to this location."); }
if ($text=~/cure/i) { quest::selfcast(3299); }
if ($text=~/heal/i) { quest::selfcast(13); }
if ($text=~/bind/i) { quest::selfcast(35); }
if ($text =~/advanced/i)
{
quest::say ("I charge 200pp for Advanced buffs.");
}
if ($text =~/Kimura/i)
{
quest::say ("I charge 20000pp for a buff so AWESOME!");
}
}
sub EVENT_ITEM
{
if($platinum == 20000)
{
quest::say ("Get ready for a breath from Kimura!");
quest::selfcast(6817);
}
if($platinum == 200)
{
quest::say ("Good, stand where you are while I cast");
quest::selfcast(18248);
quest::selfcast(5358);
quest::selfcast(3178);
quest::selfcast(1568);
quest::selfcast(2524);
}
}
NPC1
Code:
sub EVENT_SAY
{
# ItemID -> Cost -> Say text to match -> Slot type
# Slot type //1 = Alternate Currency // 2 = Epic Pieces // 3 = Platinum
%IL = (
1 => [40903, 2, "Radiant Crystal", 1],
2 => [50830, 2, "Shard of Living Crystal", 1],
3 => [40902, 2, "Ebon Crystal", 1],
4 => [500015, 5, "Dracus 5k Coin", 3],
5 => [500016, 10, "Dracus 10k Coin", 3],
6 => [500017, 50, "Dracus 50k Coin", 3],
7 => [500018, 100, "Dracus 100k Coin", 3],
8 => [1264, 200, "Mark of Saryn", 2],
9 => [1266, 200, "Mark of Bertoxxulous", 2],
10 => [1267, 200, "Mark of Aerin Dar", 2],
11 => [1118, 200, "Mark of Earth", 2],
12 => [1319, 200, "Mark of Water", 2],
13 => [1323, 200, "Mark of Fire", 2],
14 => [1352, 200, "Mark of Air", 2],
15 => [1096, 200, "Mark of Grummus", 2],
16 => [1374, 200, "Mark of Terris Thule", 2],
17 => [1270, 200, "Mark of Mithaniel Marr", 2],
18 => [1119, 200, "Mark of Rallos Zek", 2],
19 => [1261, 200, "Mark of Solusek Ro", 2],
20 => [1079, 200, "Mark of Agnarr the Storm Lord", 2],
21 => [31842, 200, "Mark of Execution", 2],
22 => [1377, 200, "Manaetic Behemoth Schematic", 2],
23 => [1375, 200, "Askr's Gratitude", 2],
);
my $empty = $client->GetItemIDAt(30); #Check cursor for an itemID will be HUGE number if INVALID or no item
my $total = $client->GetAAPoints();
my $epic = quest::saylink("Epic Pieces",1);
my $alternate = quest::saylink("Alternate Currency",1);
my $platinum = quest::saylink("Platinum",1);
my $n = 1;
if($text=~/Hail/i)
{
#$itemsid = undef;
#$itemcost = undef;
plugin::Whisper("Hi there $name do you want to browse my items?");
$client->Message(315, "[$alternate] || [$epic] || [$platinum]");
}
if($text=~/^alternate currency$/i)
{
$client->Message(315, "==== Alternate Currency ===");
while ($IL{$n}[0])
{
my $typeslot = $IL{$n}[3];
if($typeslot==1)
{
my $itemlink = quest::varlink($IL{$n}[0]);
my $saylink = quest::saylink($IL{$n}[2],1,"Buy");
my $cost = int($IL{$n}[1]);
$client->Message(315, "$saylink >for $cost AA points > $itemlink");
$client->Message(315, "----------------");
}
$n++;
}
$client->Message(315, "=============");
}
if($text=~/^Epic Pieces$/i)
{
$client->Message(315, "==== Epic Pieces ===");
while ($IL{$n}[0])
{
my $typeslot = $IL{$n}[3];
if($typeslot==2)
{
my $itemlink = quest::varlink($IL{$n}[0]);
my $saylink = quest::saylink($IL{$n}[2],1,"Buy");
my $cost = int($IL{$n}[1]);
$client->Message(315, "$saylink >for $cost AA points > $itemlink");
$client->Message(315, "----------------");
}
$n++;
}
$client->Message(315, "=============");
}
if($text=~/^platinum$/i)
{
$client->Message(315, "=== Platinum ===");
while ($IL{$n}[0])
{
my $typeslot = $IL{$n}[3];
if($typeslot==3)
{
my $itemlink = quest::varlink($IL{$n}[0]);
my $saylink = quest::saylink($IL{$n}[2],1,"Buy");
my $cost = int($IL{$n}[1]);
$client->Message(315, "$saylink >for $cost AA points > $itemlink");
$client->Message(315, "----------------");
}
$n++;
}
$client->Message(315, "=============");
}
######## Item Saylink Start
if ($text !~ /^Hail/)
{
while ($IL{$n}[0])
{
my $matchtxt = $IL{$n}[2];
my $cost = int($IL{$n}[1]);
my $createitem = $IL{$n}[0];
my $itemlink = quest::varlink($IL{$n}[0]);
if($text=~/$matchtxt/i)
{
if($empty > 400000) #Checks the cursor itemID to see if its valid returns a huge number for invalid
{
if($total >= $cost) #Cost of the item
{
$total = int($total-$cost);
$client->SetAAPoints($total);
plugin::Whisper("You made a wise choice.");
#Itemname
quest::summonitem($createitem,1);
$client->Message(315, "You now have $total AA points to spend.");
}
else
{
plugin::Whisper("You need more AA points for $itemlink."); #Player did not have enough AA
}
}
else
{
plugin::Whisper("You are holding an item please put it in your bags before you buy something."); #Player is holding an item already
}
}
$n++
}
}
######## Item Saylink END
}
Advanced Blessing from NPC2 brings up a window for dracus 5k coin from NPC1 when link is clicked, even if NPC2 isn't even targeted or in range...
Kimura's Super Buff from NPC2 brings up a window for dracus 10k coin from NPC1 when link is clicked, even if NPC2 isn't even targeted or in range...
|