Advanced announcement script

[HnathBST]

This is a modified version to kingly_krab's announcement script. I like options, sometimes I want red, sometimes green, etc.

This also shows a more advanced example of perls regular expression matching.

sub EVENT_SAY
{
 if($text =~ /announce (.{1,9}) ([01]) ([0-9]{1,3}) (.+)/i){
 my %colors =(
 "white"=>0,
 "gray"=>1,
 "blue"=>4,
 "green"=>2,
 "red"=>13,
 "cyan"=>18,
 "oocgr"=>260
 );

 my $color = $colors{$1};
 my $char = $client->GetCleanName();
 my $allZones = $2;
 my $minStatus = $3;
 my $message = $4;
 if($client)
 {
 quest::gmsay("$char Announces: $message", $color, $allZones, 0, $minStatus);
 }
 }
 }
}

I have mine assigned to a NPC who checks GM status before checking text.

To use, simply target and type:
announce <color> <send to world 1|0> <min status> message

Example:
announce red 1 0 The server is going down for reboot now!

[HnathBST]

To clarify, I have my script attached (global) to a GM Pet, which has a spell to summon (and soon a clicky item...) I'll post details on how to make the GM pet if anyone is interested.

[Kingly_Krab]

I actually already made something like this, without the choice of color, in the Server Console NPC. My custom MOTD also allows you to choose the color!

[HnathBST]

Are you using the standard MOTD? Or are you using something custom?

[Kingly_Krab]

Something custom with DBI: http://prntscr.com/1r05k4

[HnathBST]

Oh nice! I've been playing around with DBI. Also for the MOTD (as a popup window) but I am setting mine up to change via my website (as a plugin) I already hacked the HTTP query into something I could easily use in php (via cURL)

Webbe's Soloable Server

[Kingly_Krab]

Also, it looks like this: http://prntscr.com/1r067l

[HnathBST]

That's awesome! Next time I'm on ill take a screenshot of my popup window (it's generic, but I feel like no one read it when it popped up in the chat.)