Armor Quest

[Bandor]

Custom armor quest. Was quite a pita to make this thing so hopefully someone can use it lol


#Quest file for Mesa - Lobo

sub EVENT_SAY {
if($text=~/hail/i) {
plugin::Whisper("Hail $class. Do you seek to earn some " . quest::saylink("armour", 1) . "?");
}
elsif($text=~/armour/i) {
plugin::Whisper("I can make you armor provided you have the proper " . quest::saylink("materials", 1) . " for me.");
}
elsif($text=~/materials/i) {
plugin::Whisper(" Bring me a armor " . quest::saylink("pattern", 1) . " and a " . quest::saylink("crafting", 1) . " piece.");
}
elsif($text=~/pattern/i) {
plugin::Whisper("Indeed, they can be found from most creatures. Keep your eyes and ears open.");
}
elsif($text=~/crafting/i) {
plugin::Whisper("Yes you fool! Infact I happen to sell them. Plate for Plate,Chain for Chain get it?!");
}
}

sub EVENT_SPAWN {
plugin::SetMobColor(quest::ChooseRandom(0..255), quest::ChooseRandom(0..255), quest::ChooseRandom(0..255));
}

sub EVENT_ITEM {
if(plugin::check_handin(\%itemcount, 1458 => 1, 1380 => 1)) { # Plate
quest::summonitem(1387); # Plate boots
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1374 => 1)) { # Plate
quest::summonitem(1386); # Plate arms
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1375 => 1)) { # Plate
quest::summonitem(1384); # Plate wrists
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1379 => 1)) { # Plate
quest::summonitem(1386); # Plate hands
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1373 => 1)) { # Plate
quest::summonitem(1389); # Plate head
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1381 => 1)) { # Plate
quest::summonitem(1388); # Plate legs
} elsif (plugin::check_handin(\%itemcount, 1458 => 1, 1382 => 1)) { # Plate
quest::summonitem(1383); # Plate Chest
} elsif(plugin::check_handin(\%itemcount, 1503 => 1, 1380 => 1)) { # Leather
quest::summonitem(1391); # Leather boots
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1374 => 1)) { # Leather
quest::summonitem(1399); # Leather arms
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1375 => 1)) { # Leather
quest::summonitem(1392); # Leather wrists
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1379 => 1)) { # Leather
quest::summonitem(1394); # Leather hands
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1373 => 1)) { # Leather
quest::summonitem(1396); # Leather head
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1381 => 1)) { # Leather
quest::summonitem(1395); # Leather legs
} elsif (plugin::check_handin(\%itemcount, 1503 => 1, 1382 => 1)) { # Leather
quest::summonitem(1393); # Leather Chest
} elsif(plugin::check_handin(\%itemcount, 1450 => 1, 1380 => 1)) { # Chain
quest::summonitem(1434); # chain boots
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1374 => 1)) { # Chain
quest::summonitem(1432); # chain arms
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1375 => 1)) { # Chain
quest::summonitem(1435); # chain wrists
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1379 => 1)) { # Chain
quest::summonitem(1439); # chain hands
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1373 => 1)) { # Chain
quest::summonitem(1440); # chain head
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1381 => 1)) { # Chain
quest::summonitem(1441); # chain legs
} elsif (plugin::check_handin(\%itemcount, 1450 => 1, 1382 => 1)) { # Chain
quest::summonitem(1436); # chain Chest
} elsif(plugin::check_handin(\%itemcount, 1502 => 1, 1380 => 1)) { # silk
quest::summonitem(1443); # silk boots
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1374 => 1)) { # silk
quest::summonitem(1442); # silk arms
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1375 => 1)) { # silk
quest::summonitem(1445); # silk wrists
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1379 => 1)) { # silk
quest::summonitem(1447); # silk hands
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1373 => 1)) { # silk
quest::summonitem(1449); # silk head
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1381 => 1)) { # silk
quest::summonitem(1448); # silk legs
} elsif (plugin::check_handin(\%itemcount, 1502 => 1, 1382 => 1)) { # silk
quest::summonitem(1446); # silk Chest
}
}

[jimrocken]

little change so it will be easier to add, remove or change things later on


#Quest file for Mesa - Lobo

sub EVENT_SAY {
$Link_Armour = quest::saylink("armour", 1);
$Link_materials = quest::saylink("materials", 1);
$Link_crafting = quest::saylink("crafting", 1);
$Link_Pattern = quest::saylink("pattern", 1);
if($text=~/hail/i) {
plugin::Whisper("Hail $class. Do you seek to earn some $Link_armour?");
}
elsif($text=~/armour/i) {
plugin::Whisper("I can make you armor provided you have the proper $Link_materials for me.");
}
elsif($text=~/materials/i) {
plugin::Whisper(" Bring me a armor $Link_pattern and a $Link_crafting piece.");
}
elsif($text=~/pattern/i) {
plugin::Whisper("Indeed, they can be found from most creatures. Keep your eyes and ears open.");
}
elsif($text=~/crafting/i) {
plugin::Whisper("Yes you fool! Infact I happen to sell them. Plate for Plate,Chain for Chain get it?!");
}
}

sub EVENT_SPAWN {
plugin::SetMobColor(quest::ChooseRandom(0..255), quest::ChooseRandom(0..255), quest::ChooseRandom(0..255));
}

sub EVENT_ITEM {
%ItemDB = (
1387 => { "ReqItem1" => 1458, "ReqItem2" => 1380}, #Plate Boots
1386 => { "ReqItem1" => 1458, "ReqItem2" => 1374}, #Plate Arms
1384 => { "ReqItem1" => 1458, "ReqItem2" => 1375}, #Plate Wrist
1386 => { "ReqItem1" => 1458, "ReqItem2" => 1379}, #Plate Hands
1389 => { "ReqItem1" => 1458, "ReqItem2" => 1373}, #Plate Head
1388 => { "ReqItem1" => 1458, "ReqItem2" => 1381}, #Plate Legs
1383 => { "ReqItem1" => 1458, "ReqItem2" => 1382}, #Plate Chest
1391 => { "ReqItem1" => 1503, "ReqItem2" => 1380}, #Leather boots
1399 => { "ReqItem1" => 1503, "ReqItem2" => 1374}, #Leather arms
1392 => { "ReqItem1" => 1503, "ReqItem2" => 1375}, #Leather wrists
1394 => { "ReqItem1" => 1503, "ReqItem2" => 1379}, #Leather hands
1396 => { "ReqItem1" => 1503, "ReqItem2" => 1373}, #Leather head
1395 => { "ReqItem1" => 1503, "ReqItem2" => 1381}, #Leather legs
1393 => { "ReqItem1" => 1503, "ReqItem2" => 1382}, #Leather Chest
1434 => { "ReqItem1" => 1450, "ReqItem2" => 1380}, #chain boots
1432 => { "ReqItem1" => 1450, "ReqItem2" => 1374}, #chain arms
1435 => { "ReqItem1" => 1450, "ReqItem2" => 1375}, #chain wrists
1439 => { "ReqItem1" => 1450, "ReqItem2" => 1379}, #chain hands
1440 => { "ReqItem1" => 1450, "ReqItem2" => 1373}, #chain head
1441 => { "ReqItem1" => 1450, "ReqItem2" => 1381}, #chain legs
1436 => { "ReqItem1" => 1450, "ReqItem2" => 1382}, #chain Chest
1443 => { "ReqItem1" => 1502, "ReqItem2" => 1380}, #silk boots
1442 => { "ReqItem1" => 1502, "ReqItem2" => 1374}, #silk arms
1445 => { "ReqItem1" => 1502, "ReqItem2" => 1375}, #silk wrists
1447 => { "ReqItem1" => 1502, "ReqItem2" => 1379}, #silk hands
1449 => { "ReqItem1" => 1502, "ReqItem2" => 1373}, #silk head
1448 => { "ReqItem1" => 1502, "ReqItem2" => 1381}, #silk legs
1446 => { "ReqItem1" => 1502, "ReqItem2" => 1382} #silk Chest
);
foreach $id (sort keys %ItemDB)
{
if(plugin::check_handin(\%itemcount, $ItemDB{$id}{"ReqItem1"} => 1, $ItemDB{$id}{"ReqItem2"} => 1)) {
quest::summonitem($id);
}
}
plugin::return_items(\%itemcount);
}

[Bandor]

awesome clean up job,gives me a little bit of better way of coding aswell!

[ghanja]

Hash'es are invaluable, as jim demonstrated.

http://perlmaven.com/perl-hashes


awesome clean up job,gives me a little bit of better way of coding aswell!