Script for LDoN/Adventure Merchant

[Movement]

I got it working. Natedog (actually thinking of calling him NateGod instead! :P) helped me. Theres no way I could have gotten it working with out him and no way I could have figured out the code below. I am posting here to give him credit and thanks and going to post the code below so that it may help others in the future!

sub EVENT_SAY {
    my %stuff = (
        #itemID->POINTS->THEME
        4613 => [1, 1], # Some item, Deepest Guk Theme
        1234 => [1, 2], # some item, Miraguls Menagerie Theme
        2345 => [1, 3], # some item, Mistmoore Catacombs Theme
        3456 => [1, 4], # some item, Rujarkian Hills Theme
        13006 => [1, 5], # some item, Takish-Hiz Theme   --- WATER FLASK for example..
    );
    
    my %themes = (
        1 => "Deepest Guk Theme",
        2 => "Miraguls Menagerie Theme",
        3 => "Mistmoore Catacombs Theme",
        4 => "Rujarkian Hills Theme",
        5 => "Takish-Hiz Theme"
    );
    
    my $collected = 0;
            
    if ($text=~/Hail/i) {
        plugin::Whisper("You can hand in your " . quest::saylink("stuff",1));
    } elsif ($text=~/stuff/i) {
        plugin::Whisper("Collecting all LDON items...");
        foreach my $key (keys %stuff) {
            $collected = quest::collectitems($key, 1);
            if($collected) {
                quest::addldonpoints($stuff{$key}[0]*$collected, $stuff{$key}[1]);
                $client->Message(315, "Added " . $stuff{$key}[0]*$collected . " points to " . $themes{$stuff{$key}[1]});
            }
        }
    }
}