Editing Tintin++ (section)

==File for GMCP Automapping==

 <nowiki>#NOP Create a map or load it if it exists.
 #map create 500000
 #map goto 1
 #map flag vtmap
 #map flag static
 #map flag nofollow
 #map read ud_gmcp.map

 #NOP This variable is for renaming different ways of typing directions, used elsewhere.

 #VARIABLE {dir_list}
 {
    {D} {d}
    {down} {d}
	{d} {d}
    {E} {e}
    {east} {e}
	{e} {e}
    {N} {n}
    {north} {n}
	{n} {n}
    {S} {s}
	{s} {s}
    {south} {s}
    {U} {u}
	{u} {u}
    {up} {u}
    {W} {w}
	{w} {w}
    {west} {w}
	{southwest} {sw}
	{SW} {sw}
	{sw} {sw}
	{northeast} {ne}
	{NE} {ne}
	{southeast} {se}
	{SE} {se}
	{northwest} {nw}
	{NW} {nw}
 }

 #NOP This function replaces a name like 'west' with 'w'
 #FUNCTION {DIR_NAME}
 {
  #local temp $dir_list[%1];
  #if {"$temp" == ""} {#return %1};#else {#return $dir_list[%1]} 
 }

 #EVENT {SESSION DISCONNECTED}
 {
 #map write ud_gmcp.map;
 }

 #NOP This is the main part of the automapper which saves GMCP data.
 #EVENT {IAC SB GMCP UD.Map IAC SE}
 { 
	#NOP Save GMCP map data;
	#variable gmcp[map] {%0};
	
	#nop if there is no room ID do nothing;
	#if {$gmcp[map][roomId] == -1}
    {
        #return
    };	
	#NOP First dig the room vnum of the current room if it doesn't exist;
	#map goto {$gmcp[map][roomId]} {dig};
	#map get roomarea {result};
    #if {"$result" == ""}
    {
        #map set roomdesc $gmcp[map][roomDesc];
        #map set roomname $gmcp[map][roomName];
		#map set roomid $gmcp[map][roomId];
		#NOP Once you've been to a room, colour it something by default (new rooms will be red);
		#map set roomcolor <178>
    };
	#NOP For each exit, check if room and exit exists and create if not.
	#foreach {*gmcp[map][roomExits][]} {exit} {
	  #NOP get all exits of the current room in format {w}{2};
	  #map get {roomexits} {result};
	  #NOP If the direction doesn't exist, create the room;
        #if {&result[@DIR_NAME{$exit}] == 0}
   {   
       #map dig {@DIR_NAME{$exit}} {$gmcp[map][roomExits][$exit]};
		#map get {roomname} {result2} {$gmcp[map][roomExits][$exit]};
        #NOP This colours newly created rooms red.;
        #if {"$result2" == ""} {#map set {roomcolor} {<118>} {$gmcp[map][roomExits][$exit]}}
        }
	}
 }</nowiki>

[[Category:Guide]]