Error number: -2147221005
Event: finding CLSID of scripting language "PerlScript"
Description: Error -2147221005 occurred when finding CLSID of scripting language "PerlScript":
Invalid class string
Called by:
I get this when I try to set up perl scripting. I have version 3.27. The only thing that I can figure might be the problem is the file I've declared - C:\bin\mush.pl. It does exist, and as far as I can tell is a valid file, the contents of which are this:
sub GemSorter
{
my ($strTriggerName, $trig_Line, $wildcards) = @_;
$quality = $world->GetTriggerInfo ($strTriggerName, 101);
if ($quality < 26)
$world->Note ("put gem low");
if ($quality > 25 && $quality < 51)
$world->Note ("put gem mid");
if ($quality > 50 && $quality < 81)
$world->Note ("put gem good");
if ($quality > 80 && $quality < 100)
$world->Note ("put gem high");
if ($quality == 100)
$world->Note ("put gem chest");
}
and nothing else. Thoughts?
Event: finding CLSID of scripting language "PerlScript"
Description: Error -2147221005 occurred when finding CLSID of scripting language "PerlScript":
Invalid class string
Called by:
I get this when I try to set up perl scripting. I have version 3.27. The only thing that I can figure might be the problem is the file I've declared - C:\bin\mush.pl. It does exist, and as far as I can tell is a valid file, the contents of which are this:
sub GemSorter
{
my ($strTriggerName, $trig_Line, $wildcards) = @_;
$quality = $world->GetTriggerInfo ($strTriggerName, 101);
if ($quality < 26)
$world->Note ("put gem low");
if ($quality > 25 && $quality < 51)
$world->Note ("put gem mid");
if ($quality > 50 && $quality < 81)
$world->Note ("put gem good");
if ($quality > 80 && $quality < 100)
$world->Note ("put gem high");
if ($quality == 100)
$world->Note ("put gem chest");
}
and nothing else. Thoughts?