Useful script for new content dev's

[jsr]

I place this in quests/templates/global_player.pl

It allows someone with 200 status (or whatever you prefer) to hail themselves for some help. This version outputs some spawn commands, and message colours. I'm slightly colourblind so haven't ordered the colours to make a rainbow

Anyone have some useful things to add?

sub EVENT_SAY {

	if($status>200){
		if($text=~/hail/i){
			my $messages = quest::saylink("messages");
			my $spawns = quest::saylink("spawns");
			$client->Message(300, "$messages or $spawns");
		}

		if($text=~/spawns/i){
			my $addspawn = quest::saylink("Creating Spawns", 1);
			my $removespawn = quest::saylink("Removing Spawns", 1);
			my $editspawn = quest::saylink("Editing Spawns", 1);
			$client->Message(300, "I can assist with $addspawn, $removespawn, or $editspawn!");
		}

		if ($text=~/creating spawns/i){
			$client->Message(300, "--== CREATING SPAWNS ==--");
			$client->Message(300, "STEP 1: Type #spawn (name) to create an npc where you are standing.");
			$client->Message(300, "STEP 2: Target the NPC and type '#advnpcspawn maketype' to add the NPC to the database.  Take note of the npc_type ID");
			$client->Message(300, "STEP 3: Type '#advnpcspawn makegroup (name)' to create a new spawngroup.  Take note of the Group ID");
			$client->Message(300, "STEP 4: Type '#advnpcspawn addgroupentry Group_ID NPC_Type ID chance'.  Chance = 100 if making a single mob spawn.");
			$client->Message(300, "STEP 5: Type '#advnpcspawn addgroupspawn Group_ID' to create the spawn where you are standing.");
		}

		if ($text=~/Removing spawns/i){
			$client->Message(300, "--== REMOVING SPAWNS ==--");
			$client->Message(300, "STEP 1: Target the NPC you wish to remove.");
			$client->Message(300, "STEP 2: Type '#advnpcspawn removegroupspawn'");
		}

		if ($text=~/editing spawns/i){
			$client->Message(300, "--== EDITING SPAWNS ==--");
			$client->Message(300, "STEP 1: Target the NPC you wish to edit.");
			$client->Message(300, "STEP 2: Use #npcedit help for more details");
		}

		if ($text=~/messages/i){
			$client->Message(1,"1");
			$client->Message(2,"2");
			$client->Message(3,"3");
			$client->Message(4,"4");
			$client->Message(5,"5");
			$client->Message(6,"6");
			$client->Message(7,"7");
			$client->Message(8,"8");
			$client->Message(9,"9");
			$client->Message(10,"10");
			$client->Message(11,"11");
			$client->Message(12,"12");
			$client->Message(13,"13");
			$client->Message(14,"14");
			$client->Message(15,"15");
			$client->Message(16,"16");
			$client->Message(17,"17");
			$client->Message(18,"18");
			$client->Message(19,"19");
			$client->Message(20,"20");
			$client->Message(256,"256");
			$client->Message(258,"258");
			$client->Message(259,"259");
			$client->Message(260,"260");
			$client->Message(262,"262");
			$client->Message(263,"263");
			$client->Message(269,"269");
			$client->Message(270,"270");
			$client->Message(271,"271");
			$client->Message(272,"272");
			$client->Message(275,"275");
			$client->Message(281,"281");
			$client->Message(282,"282");
			$client->Message(285,"285");
			$client->Message(286,"286");
			$client->Message(287,"287");
			$client->Message(290,"290");
			$client->Message(291,"291");
			$client->Message(307,"307");
			$client->Message(315,"315");
			$client->Message(325,"325");
			$client->Message(326,"326");
			$client->Message(327,"327");
			$client->Message(330,"330");
			$client->Message(334,"334");
			$client->Message(337,"337");
			$client->Message(341,"341");
			$client->Message(342,"342");
		}
	}
}