Uglan.pl - Quest File
x
1
sub EVENT_SAY {
2
if ($text=~/hail/i) {
3
quest::say("Me Uglan. Mighty ogre. Member of Crakneks. We crush for dark elves. Do you [like dark elves] or they be [mean] to you?");
4
}
5
elsif ($text=~/like dark elves/i) {
6
quest::say("Me love friends Dark Elves.");
7
}
8
elsif ($text=~/mean/i) {
9
quest::say("You smart person. Me know Dark Elves are not friendly. They just use Ogres. Me not like Neriak anymore.");
10
}
11
}
12
13
sub EVENT_ITEM {
14
#:: Match a 13357 - Cracked Stein
15
if (plugin::takeItems(13357 => 1)) {
16
#:: Match if the player is an Ogre
17
if ($race eq "Ogre") {
18
quest::say("You from Oggok. Me waiting for you. Me know dark elves have dark plan for ogres. We must stop plan. You must go to Nektulos Forest. Wait for blue orc. He deliver message for dark elf king. Not good. You kill blue orc runners. If message on them then you take to Lork in Oggok. Ogres must know plan.");
19
#:: Ding!
20
quest::ding();
21
#:: Set factions
22
quest::faction(239, 5); #:: + The Dead
23
quest::faction(303, 1); #:: + Queen Cristanos Thex
24
quest::faction(278, -1); #:: - King Naythox Thex
25
quest::faction(275, -1); #:: - Keepers of the Art
26
quest::faction(245, -1); #:: - Eldritch Collective
27
quest::faction(1522,-10); #:: - Primordial Malice
28
#:: Grant a small amount of experience
29
quest::exp(500);
30
}
31
#:: Match if the player is any other race besides Ogre
32
else {
33
quest::say("Wat dis? Lork make deese steins. Dat means he tink you strong enuf for speshul quest me have for you. Me and Lork think ders something going on between dese darkies and the orcses in Crushbone. Someting bad for us Ogres. We need you to go mountains where da dorfs live. There be a blue orc runner wif darkie letters Lork wants. Bring Lork letters.");
34
#:: Ding!
35
quest::ding();
36
#:: Set factions (Unconfirmed)
37
quest::faction(228, 10); #:: + Clurg
38
quest::faction(232, 10); #:: + Craknek Warriors
39
quest::faction(261, -10); #:: - Green Blood Knights
40
#:: Grant a small amount of experience
41
quest::exp(500);
42
}
43
}
44
#:: Return unused items
45
plugin::returnUnusedItems();
46
}
47
Quest Source: 28 May 2022