mirror of
https://github.com/ProjectEQ/projecteqquests
synced 2026-08-12 00:26:10 -04:00
25 lines
No EOL
843 B
Perl
25 lines
No EOL
843 B
Perl
#BeginFile: cabeast\Pagnar_Vyng.pl
|
|
#Quest for East Cabilis - Pagnar Vyng: LoY Cultural Robes
|
|
# items: 65256
|
|
|
|
sub EVENT_SAY {
|
|
my $TrueRace = $client->GetBaseRace();
|
|
|
|
if($text=~/hail/i) {
|
|
quest::say("Hello, $name. Feel free to browse my wares. Unless you are looking to make a special Cabilisan robe. If so, just let me know that you want a [robe pattern]."); #Still need real text
|
|
}
|
|
if($text=~/robe pattern/i) {
|
|
if ($TrueRace==128) { #Iksar
|
|
quest::say("Very well. Take this pattern, and good luck to you Iksar."); #Still need real text
|
|
quest::summonitem(65256); #Cabilisan Robe Pattern
|
|
}
|
|
else {
|
|
quest::say("You are not an Iksar! Who are you trying to fool?"); #Still need real text
|
|
}
|
|
}
|
|
}
|
|
|
|
sub EVENT_ITEM {
|
|
plugin::return_items(\%itemcount);
|
|
}
|
|
#END of FILE Zone:cabeast ID:106118 -- Pagnar_Vyng |