Flymode script, plugin
Yeah I am back again on this silly subject...But I am trying to make script this time. As I usually plagiarize all your folks outstanding works, for my own evil empire. This time I am attempting to actually script myself (well, sorta...)
I need help/push in the right direction.
Searches so far in the past two days... Flymode,$npc,$mob,setflymode,set
*** Done so far ***
I am using a in-game macro to set the NPC(Mob) flymode=0. This (for me) enables myself to hear the walking sounds of mobs nearby. Now I am trying to do this automated through a script (script is below).
*** Concerns ***
1. Since the macro is a clicky, it is dependent on my interaction with the NPC. Which is "meh", it works, but I am concerned about the effect it might have on the NPC(see number 2) as I leave its area of influence.
2. I am concerned with scripting issues and so forth with everything tied to a flymode=3.
*** Intention***
1. I am trying to use a script that will fire...to change the NPC(Mob)'s Flymode=0, when entering a $client range...and set it back to Flymode=3 when leaving.
2. I plan to make this a plugin and then call on it in the Global_player.pl.
3. It will have exception list for water mobs and such eventually.
4. Maybe figure out to make a in-game toggle command, just in case I come across a weird issue.
5. Will place it all in a quest::timer.
*** CURRENT ISSUE ***
I am having the worst brainfog on what to do, to get a mob's flymode to change. I can do it with a in-game command. And it seems looking at the Perl Reference list I can do this in a script. Of course unless I can get the script below to work, it is no use to go any further.
All my attempts that do not (seem) work have been #commented out but left to reference on failures.
Any suggestions?
(Placed in a global_npc.pl. for testing)
sub EVENT_SAY
# Testing only for now...later this will be in a check_distance on a timer...etc.
{
if($text=~/hail/i)
{
quest::say("You have grounded me!");
# my $npc_target = $client->GetTarget();
# my $mob_target = $npc_target->GetID();
# quest::FlyMode(0);
# $mob->SetFlyMode(uint8 flymode[0])
# $mob->SetFlyMode(0);
# SetFlyMode(0);
# $mob->SetFlyMode(uint8 flymode(0));
# $mob->SetFlyMode(uint8 flymode() = 0);
# $npc->SetFlyMode(0);
# my->SetFlyMode(0);
# $npc_target->SetFlyMode(0);
# $npc_target->SetFlyMode(flymode 0);
# $npc->SetFlyMode(flymode 0);
# SetFlyMode(0);
}
}
Thank you in advance!!
-Eric
|