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

Originally Posted by Bandor

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