Variable question

I get this error:

Error number: -2146827284
Event: Execution of line 2 column 5
Description: Expected ';'
Called by: Immediate execution

For this function:
(target is defined on the variables menu with a basic default of 'foo'.)


sub OnTargeter
{
my ($thename, $theoutput, $wildcards) = @_;

$world->SetVariable ("target",($thename, 101));

}

And here's the alias:
Alias: tt *
Send:
Label: Targeting
Script OnTargeter

This is the entire script so far, I'm trying to make a basic system to then run off of and creatively change. Do I need to add a #usr/bin/perl statement at the top or is the problem really something else?

Also, if I was to write an alias to use this modification in the script, would it be say kick @target or $target?

To get the first wildcard value you need to call "$world->GetAliasInfo" using value 101 (wildcard 1). You have omitted that part.

This will work, I tried it...

Thank you sir. And you have very nice product here. :)

Thank you.

I see I didn't answer your other questions. :)



No you don't need that.



You would say "kick @target", and check "Expand Variables".

Thanks a ton again. My scripts are running well and good thanks to your help.

Two more questions for you though:

1. I've been using the $world->GetVariable
(i.e $itcombat = $world->GetVariable ("tcombat");) method to get global variables into my subs. Is there another way?

2. Is there a way to just look at the first or second letter in a wildcard (Off a trigger) or in a script? For instance, if I wanted to know that the second letter in 'apple' was a p.

Thanks again, you've been a great help.

No, that is the usual way.



In Perl you can use "substr" to do that. You supply the string in question, and an offset (number of characters to skip), and a length. If you omit the length the entire rest of the string is returned. eg.


$result = substr ("apple", 1, 1); # returns 'p'
$result = substr ("apple", 2); # returns 'ple'