I was bored.. so I wrote a thing.. maybe this will help you?
https://perl.pastebin.mozilla.org/8840687
place that into a .pl file in your plugins folder...
Here is an example quest on how to use it..
Code:
sub EVENT_SAY {
if($text=~/hail/i) {
plugin::Whisper("This handin requires two " . quest::varlink(21779)
. ", three " . quest::varlink(9990)
. ", one " . quest::varlink(1001)
. ", and 1 platinum, 5 gold, 5 silver, 5 copper.");
$client->Message(315, "::" . quest::saylink("handin",1));
} elsif($text=~/handin/i) {
if (plugin::collect_quest($client, 21779 => 2, 9990 => 3, 1001 => 1, "platinum" => 1, "gold" => 5, "silver" => 5, "copper" => 5)) {
plugin::Whisper("GRATS YOU DID A TURN IN..");
}
}
}