Global Defaults, Logging (and XML format)

Sub LogSend (SendString)
	World.Send SendString
	World.WriteLog SendString
End Sub

Ages of Despair - Tuesday, May 21, 2002, 12:03 AM ------------------------------------------------- 

Times (on the left) are %z.
Times (on the left) are Eastern Daylight Time.

Times (on the left) are %Z.
Times (on the left) are EDT.

Times (on the left) are %z (%Z).
Times (on the left) are Eastern Daylight Time (EDT).

Times (on the left) are %#z.
Times (on the left) are GMT -04:00.

Times (on the left) are %Z (%#z).
Times (on the left) are EDT (GMT -04:00).

<muclient>
<include name="mystandardsettings.xml" />
<world
  blah blah
 >
</muclient>

Sub LogSend_HTML (SendString)
 World.Send SendString

 World.WriteLog world.getalphaoption ("log_line_preamble_input")

 World.WriteLog "<font color='" & _
            World.RGBcolourtoname _
            (World.GetOption ("input_text_colour")) & _            
            "'>"

 World.WriteLog FixupHTML (SendString)

 World.WriteLog "</font>"

 World.WriteLog world.getalphaoption ("log_line_postamble_input")
 
End Sub

Added extra options to the formatting strings for log file preamble, postamble, line preamble etc. These are:

  %N - name of current world
  %P - player name
  %F - default world directory
  %L - default log file directory

------------------------------------------------------
Configuration - Merentha
------------------------------------------------------
- Main Settings       |
|  - General          |
|  |   L IP address   |
|  |   L Notes        |
|  + Appearance       |
|  + Input            |
|  + Paste/Send       |
|  + Scripting        |
- EQ Plugin           |
|  + General          |
|  + Appearance       |
|  + Input            |
|  + Paste/Send       |
|  + Scripting        |
+ Spell Queue Plugin  |
------------------------------------------------------

<triggers>
  <trigger
   custom_colour="1"
   enabled="y"
   expand_variables="y"
   match="@target falls to the ground"
   name="target_falls"
   regexp="y"
   script="vm1:OnTargetFalls"
   sequence="100"
  >
  <send>kill @target</send>
  </trigger>
</triggers>
<script vm="vm1">

sub OnTargetFalls (a, b, c)

' blah blah

end sub

</script>

<plugin name="Magnum's wilderness walker"
        language="vbscript"
        author="Magnum"
>
<description>
This lets you walk through the wilderness blah blah ...
</description>
<use>
To use it type BLAH followed by BLAH
</use>
</plugin>

<!-- This has established the start of a plugin - one per include file I would suggest -->

<triggers>
  <trigger
   custom_colour="1"
   enabled="y"
   expand_variables="y"
   match="@target falls to the ground"
   name="target_falls"
   regexp="y"
   script="OnTargetFalls"
   sequence="100"
  >
  <send>kill @target</send>
  </trigger>
</triggers>

<aliases>
  <alias
   match="gems"
   enabled="y"
   ignore_case="y"
   name="gems"
  >
  <send>insert gems into statue</send>
  </alias>
</aliases>

<script>
<![CDATA[
'
' Using CDATA means you don't have to worry about > signs 
'  in the script.
'

sub OnTargetFalls (a, b, c)
 world.note world.getvariable ("blah")
end sub

]]> 
</script>

VARIANT CMUSHclientDoc::GetVariable(LPCTSTR VariableName) 
{
CString strVariableName = VariableName;
CVariable * variable_item;
VARIANT vaResult;

  VariantInit(&vaResult);

  vaResult.vt = VT_NULL;

  // return if bad name, if so return NULL
  if (CheckObjectName (strVariableName))
    return vaResult;

  vaResult.vt = VT_EMPTY;

  // see if variable exists, if not return EMPTY
  if (!m_VariableMap.Lookup (strVariableName, variable_item))
	  return vaResult;

  SetUpVariantString (vaResult, variable_item->strContents);

  return vaResult;

}

MainWorld Trigger: *
MainWorld script: Communicate_everything

Sub Communicate_everything (a, b, WorldLine)
  PluginWorld.Note WorldLine
End Sub
---
PluginWorld Trigger: Whatever you want...
PluginWorld Script: WhatEver

Sub WhatEver (a,b,c)
  'Do Whatever your plugin should do
  MainWorld.Send "Whatever you want to send"
End Sub

Function MatchTrigger (LinetoSearch, WorldObjectMakingRequest)
  Search through all triggers for this world and see if there is a match. Take action accordingly.
End Function

dim oldfore, oldback

  oldfore = world.NoteColourFore  ' what are they?
  oldback = world.NoteColourBack
  world.NoteColourRGB vbRed, vbGreen ' change them
  world.Note "blah blah"  ' do the note
  world.NoteColourRGB oldfore, oldback ' restore them

' or if you really do just mean "notecolour" just do this ...

dim oldcolour

  oldcolour = world.notecolour
  world.notecolour = 3
  world.note "eep"
  world.notecolour = oldcolour  ' restore custom colour #

sub mynote (sText)

dim oldfore, oldback
dim newfore, newback

'
' my preferred colours are in variables
' 
  newfore = world.getvariable ("myforeground")
  newback = world.getvariable ("mybackground")

  oldfore = world.NoteColourFore  ' what are they?
  oldback = world.NoteColourBack
  world.NoteColourName newfore, newback ' change them
  world.Note sText  ' display the text
  world.NoteColourRGB oldfore, oldback ' restore them

end sub

Sub LookForMatchingTrigger (Linetoprocess, WorldObject)
  Loop through all the triggers that belong to this WorldObject
    Did the trigger fire?
      React
  End Loop
End Sub

Sub LookForMatchingAlias (Linetoprocess, WorldObject)
  Loop through all the aliases that belong to this WorldObject
    Did the alias fire?
      React
  End Loop
End Sub

class CMUSHclientDoc : public CDocument
{

// Attributes
public:
  CChatSocket* m_pSocket;  // TCP/IP connection

// stuff saved to disk

  CString m_server;   // IP address
  CString m_mush_name;  // world name
  CString m_name;  // player name
  CString m_password;  // password

  // normal (ANSI) colours
  COLORREF m_normalcolour [8];
  COLORREF m_boldcolour [8];

  // custom (user-defined) colours for triggers etc.
  COLORREF m_customtext [MAX_CUSTOM];
  COLORREF m_customback [MAX_CUSTOM];

// list of output buffer lines

  CLineList m_LineList;  // linked list of output lines

  __int64 m_nBytesIn;   // bytes received
  __int64 m_nBytesOut;  // bytes sent

// Operations
public:
  BOOL ConnectSocket(void);  // connect to world
  void ProcessPendingRead();  // process new stuff
  void SendMsg(CString strText,  const bool bEchoIt,
       const bool bQueueIt = false);  // send text
  void ReceiveMsg();   // have received a line
  void DisplayMsg(LPCTSTR lpszText, int size, const int flags);  // add to output window
  void ShowStatusLine (const bool bNow = false); // update the status line

// exposed script routines ...

  afx_msg void Note(LPCTSTR Message);
  afx_msg long Send(LPCTSTR Message);
  afx_msg long Connect();
  afx_msg long Disconnect();
  afx_msg long DeleteAlias(LPCTSTR AliasName);
  afx_msg long EnableAlias(LPCTSTR AliasName, BOOL Enabled);

  };

long CMUSHclientDoc::GetReceivedBytes() 
{
  return m_nBytesIn;
}