├── .gitignore
├── AFK_timer.xml
├── ANSI_Log.xml
├── ATCP_Mapper.xml
├── ATCP_NJG.xml
├── Achaea_Experience_Bar.xml
├── Achaea_Health_Bar.xml
├── Achaea_Helplist_Miniwindow.xml
├── Add_NewLine_To_Prompt.xml
├── Auto_Say_Visualizer.xml
├── BatMUD_Analyzer.xml
├── Braille_Reader.xml
├── Combat_Text.xml
├── Command_Throttler.xml
├── Convert_Packet_Debug.xml
├── Count_Instruction_Cycles.xml
├── Create_ATCP_Map_Database.xml
├── Current_Output_Window.xml
├── Encrypted_Chat.xml
├── Exits_Window.xml
├── Experience_Bar.xml
├── Experience_Bar_Telnet.xml
├── GMCP_Mapper.xml
├── GMCP_handler_NJG.xml
├── GMCP_message_receiver_test.xml
├── Generic_Chat_Miniwindow.xml
├── Grab.xml
├── Health_Bar_Miniwindow.xml
├── Health_Bar_Miniwindow_MM.xml
├── Health_Bar_Miniwindow_Telnet.xml
├── Icon_Bar.xml
├── Inquisition_Mapper.xml
├── Item_Cache_Helper.xml
├── Lands_Of_Redemption_Mapper.xml
├── Learning_Mapper.lua
├── Learning_Mapper.xml
├── Level_Timer.xml
├── Lua_Chat.xml
├── MUSHclient_Help.xml
├── Mapper_Telnet.xml
├── Materia_Magica_Mapper.xml
├── MudDatabase.xml
├── NewActivity.xml
├── Omit_Blank_Lines.xml
├── Play_Random_Sound.xml
├── Plugin_Installer.xml
├── Random_Socials.xml
├── Realm_Of_Magic_Mapper.xml
├── Reconnecter.xml
├── Room_Contents_Telnet.xml
├── Room_Info_Helper.xml
├── Room_Location_Telnet.xml
├── SWmud mapper.xml
├── Scrolling_Window_Demo.xml
├── Send_Input_To_Main_World.xml
├── Slow_speedwalk.xml
├── Source_scanner.xml
├── TTS_SystemAccess.xml
├── Telnet_Logger.xml
├── Thesaurus.xml
├── Timer.xml
├── Trace_To_Notepad.xml
├── Trace_Window.xml
├── Version_Check.xml
├── World_Activity_Bar.xml
├── World_Name_Bar.xml
├── aardwolf
    ├── AFK_Detector.xml
    ├── Aardwolf_BigMap_Graphical.xml
    ├── Aardwolf_Campaign_Noter.xml
    ├── Aardwolf_Campaign_Noter_mw.xml
    ├── Aardwolf_Chat_Hyperlinked.xml
    ├── Aardwolf_Consider_Miniwindow.xml
    ├── Aardwolf_Exp_gain.xml
    ├── Aardwolf_Experience_Bar.xml
    ├── Aardwolf_Health_Bar_Miniwindow.xml
    ├── Aardwolf_Help.xml
    ├── Aardwolf_Help_mw.xml
    ├── Aardwolf_Helplist.xml
    ├── Aardwolf_Inventory_v3.xml
    ├── Aardwolf_Map_mw.xml
    ├── Aardwolf_Quest_Tracker_mw.xml
    ├── Aardwolf_Scan.xml
    ├── Aardwolf_Spellups.xml
    ├── Consider_info.xml
    ├── Copy_Colour_Output.xml
    ├── Create_World_File.xml
    ├── Helplist_Miniwindow.xml
    ├── Playing_Detector.xml
    ├── Spellups.mcl
    ├── Stats_Detector.xml
    └── telnet_options.lua
├── constants.js
├── constants.lua
├── constants.pl
├── constants.pys
├── constants.vbs
├── readme.txt
└── sapi.xml


/.gitignore:
--------------------------------------------------------------------------------
1 | state
2 | 
3 | 


--------------------------------------------------------------------------------
/AFK_timer.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient [
  3 |   <!ENTITY afk_command "afk" > 
  4 |   <!ENTITY timer_mins "5" > 
  5 |   <!ENTITY timer_secs "0" > 
  6 |   <!ENTITY afk_message "You are now afk." > 
  7 |   <!ENTITY not_afk_message "You are no longer afk." > 
  8 | ]>
  9 | 
 10 | <!--
 11 | 
 12 | Customising (change above entities) ...
 13 | 
 14 | Change "afk_command" to whatever sets you AFK.
 15 |   Default: afk
 16 |    
 17 | Change "timer_mins" to be the number of minutes before you are AFK.
 18 | 	Default: 5 minutes
 19 | 	
 20 | Change "timer_secs" to be the number of seconds before you are AFK.
 21 | 	Default: 0 seconds
 22 | 
 23 | In other words, to be AFK after 2.5 minutes, timer_mins would be 2, and 
 24 | timer_secs would be 30.
 25 | 
 26 | -->
 27 | 
 28 | <!-- Saved on Saturday, October 08, 2005, 10:37 AM -->
 29 | <!-- MuClient version 3.66 -->
 30 | 
 31 | <!-- Plugin "AFK_timer" generated by Plugin Wizard -->
 32 | 
 33 | <muclient>
 34 | <plugin
 35 |    name="AFK_timer"
 36 |    author="Nick Gammon"
 37 |    id="4d167d47cac26fb36e161e48"
 38 |    language="Lua"
 39 |    purpose="Sends AFK to the MUD when 5 minutes elapse"
 40 |    date_written="2005-10-08 10:32:50"
 41 |    requires="3.52"
 42 |    version="1.0"
 43 |    >
 44 | <description trim="y">
 45 | <![CDATA[
 46 | After the specified interval (default 5 minutes) elapse, sends "afk" to the MUD.
 47 | ]]>
 48 | </description>
 49 | 
 50 | </plugin>
 51 | 
 52 | <!--  Timers  -->
 53 | 
 54 | <timers>
 55 |   <timer name="afk_timer" 
 56 |          second="&timer_secs;"  
 57 |          minute="&timer_mins;"  
 58 |          send_to="12"    
 59 |          enabled="y"
 60 | >
 61 |   <send>
 62 |     ColourNote ("salmon", "", "You are now AFK.")
 63 |     Send ("&afk_command;")
 64 |     EnableTimer ("afk_timer", 0)
 65 |   </send>
 66 |   </timer>
 67 | </timers>
 68 | 
 69 | <!--  Triggers -->
 70 | 
 71 | <triggers>
 72 |   <trigger
 73 |    enabled="y"
 74 |    match="&not_afk_message;"
 75 |    send_to="12"
 76 |   >
 77 |   <send>
 78 |     FixTimer ()  -- make sure timer is back on
 79 |   </send>
 80 |   </trigger>
 81 | </triggers>
 82 | 
 83 | <triggers>
 84 |   <trigger
 85 |    enabled="y"
 86 |    match="&afk_message;"
 87 |    send_to="12"
 88 |   >
 89 |   <send>
 90 |     EnableTimer ("afk_timer", 0) -- make sure timer is off
 91 |   </send>
 92 |   </trigger>
 93 | </triggers>
 94 | 
 95 | 
 96 | <!--  Script  -->
 97 | 
 98 | 
 99 | <script>
100 | <![CDATA[
101 | 
102 | -- when they type something, reset AFK status
103 | 
104 | function OnPluginCommand (sText)
105 |   FixTimer ()
106 |   return true  -- process the command
107 | end
108 | 
109 | -- when you connect to the MUD, presumably you are not AFK
110 | 
111 | function OnPluginConnect ()
112 |   FixTimer ()
113 | end
114 | 
115 | -- shared routine to handle turning AFK off
116 | 
117 | function FixTimer ()
118 |   if GetTimerOption ("afk_timer", "enabled") == 0 then
119 |     ColourNote ("salmon", "", "You are no longer AFK.")
120 |   end
121 | 
122 | -- turn timer back on
123 |   EnableTimer ("afk_timer", 1)
124 | 
125 | -- make sure the full time interval elapses
126 |   ResetTimer ("afk_timer")
127 | 
128 | end
129 | ]]>
130 | </script>
131 | 
132 | </muclient>
133 | 


--------------------------------------------------------------------------------
/ATCP_NJG.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="ATCP_NJG"
  7 |    author="Nick Gammon"
  8 |    id="85f72d0e263d75df7bde6f00"
  9 |    language="Lua"
 10 |    purpose="Nick Gammon's ATCP plugin"
 11 |    date_written="2010-03-09 10:04:32"
 12 |    requires="4.50"
 13 |    version="1.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Install into IRE games to catch ATCP messages.
 18 | 
 19 | Other plugins can detect ATCP messages like this:
 20 | 
 21 | function OnPluginBroadcast (msg, id, name, text)
 22 |   if id == "85f72d0e263d75df7bde6f00" then
 23 |   
 24 |     if msg == 1 then
 25 |       do_ATCP_vitals (text)      -- eg. "H:496/496 M:412/412 E:1380/1380 W:960/960 NL:89/100 "
 26 |                                  --      health    mana      endurance   willpower experience
 27 |     elseif msg == 2 then
 28 |       do_ATCP_room_brief (text)  -- eg. "Continuing on the Parade of Zarathustra"
 29 |     elseif msg == 3 then
 30 |       do_ATCP_room_exit (text)   -- eg. "n,s"
 31 |     elseif msg == 4 then
 32 |       do_ATCP_room_number (text) -- eg. "401"
 33 |     elseif msg == 5 then
 34 |       do_ATCP_room_full_exits (text) -- eg. "ne(8564),w(8428)"
 35 |     elseif msg == 6 then
 36 |       do_ATCP_room_environment (text) -- eg. "Urban"
 37 |     elseif msg == 7 then
 38 |       do_ATCP_room_coordinates (text) -- eg. "38,3,1,0"
 39 |     elseif msg == 8 then
 40 |       do_ATCP_room_info (text)        -- eg. "shop,postoffice"
 41 |     end -- if   
 42 |  
 43 |   end -- if ATCP message
 44 | end
 45 | 
 46 | ]]>
 47 | </description>
 48 | 
 49 | </plugin>
 50 | 
 51 | 
 52 | <!--  Script  -->
 53 | 
 54 | 
 55 | <script>
 56 | <![CDATA[
 57 | 
 58 | local CLIENT_ID = "MUSHclient " .. Version ()
 59 | local IAC, SB, SE, DO = 0xFF, 0xFA, 0xF0, 0xFD
 60 | local ATCP = 200
 61 | 
 62 | 
 63 | -- agree to use ATCP
 64 | function OnPluginTelnetRequest (type, data)
 65 |   
 66 |   if type == ATCP and data == "WILL" then
 67 |     return true
 68 |   end -- if
 69 |   
 70 |   if type == ATCP and data == "SENT_DO" then
 71 |     Note ("Enabling ATCP.")
 72 |     SendPkt (string.char (IAC, SB, ATCP) .. 
 73 |            "hello " .. CLIENT_ID .. "\n" ..
 74 |            "auth 1\n" ..
 75 |            "char_name 1\n" ..
 76 |            "char_vitals 1\n" ..
 77 |            "room_brief 1\n" ..
 78 |            "room_exits 1" ..
 79 |            string.char (IAC, SE)) 
 80 |      return true
 81 |   end -- if ATCP login needed (just sent DO)
 82 |   
 83 |   return false
 84 |   
 85 | end -- function OnPluginTelnetRequest
 86 | 
 87 | -- we got authorization request, eg. 
 88 | -- Auth.Request CH\n<identstr>
 89 | -- Auth.Request ON
 90 | 
 91 | function got_auth_request (s)
 92 |    
 93 |   -- calculate challenge response
 94 |   local function atcp_auth (seed)
 95 |     local a = 17
 96 |     local i = 0
 97 |     local n
 98 |     
 99 |     for letter in string.gmatch (seed, ".") do
100 |       n = string.byte (letter) - 96
101 |       if bit.band (i, 1) == 0 then  -- even/odd?
102 |         a = a + n * bit.bor (i, 13)
103 |       else
104 |         a = a - n * bit.bor (i, 11)
105 |       end -- if
106 |       i = i + 1
107 |     end -- for
108 |     return a
109 |   end
110 | 
111 |   if s:upper () == "ON" then
112 |     Note ("ATCP authorization accepted.")
113 |     return
114 |   end -- if
115 |     
116 |   local identstr = string.match (s, "^CH\n(.+)$")
117 |   
118 |   if identstr then
119 |     SendPkt (string.char (IAC, SB, ATCP) .. 
120 |              "auth " .. 
121 |              tostring (atcp_auth (identstr)) .. 
122 |              " " .. CLIENT_ID .. 
123 |              string.char (IAC, SE)) 
124 |     return
125 |   end -- if
126 |   
127 | end -- got_auth_request
128 | 
129 | 
130 | function got_vitals (s)      -- eg. "H:496/496 M:412/412 E:1380/1380 W:960/960 NL:89/100"
131 |   BroadcastPlugin (1, s)
132 | end -- got_vitals
133 | 
134 | function got_room_brief (s)  -- eg. "Continuing on the Parade of Zarathustra"
135 |   BroadcastPlugin (2, s)
136 | end -- got_room_brief
137 | 
138 | function got_room_exits (s)  -- eg. "n,s"
139 |   BroadcastPlugin (3, s)
140 | end -- got_room_exits
141 | 
142 | function got_room_number (s)  -- eg. "441"
143 |   BroadcastPlugin (4, s)
144 | end -- got_room_number
145 | 
146 | function got_full_exits (s)  -- eg. "ne(8564),w(8428)"
147 |   BroadcastPlugin (5, s)
148 | end -- got_full_exits
149 | 
150 | function got_environment (s)  -- eg. "Urban"
151 |   BroadcastPlugin (6, s)
152 | end -- got_environment
153 | 
154 | function got_coordinates (s)  -- eg. "38,3,1,0"  (area,x,y,z)
155 |   BroadcastPlugin (7, s)
156 | end -- got_coordinates
157 | 
158 | function got_info (s)  -- eg. "shop,postoffice"
159 |   BroadcastPlugin (8, s)
160 | end -- got_info
161 | 
162 | handlers = {
163 |   ['Auth.Request']  = got_auth_request,  -- handled here
164 | 
165 |   ['Room.Num']          = got_room_number,
166 |   ['Room.Brief']        = got_room_brief,
167 |   ['Room.Exits']        = got_room_exits,
168 |   ['Char.Vitals']       = got_vitals,
169 |   ['Room.FullExits']    = got_full_exits,
170 |   ['Room.Environment']  = got_environment,
171 |   ['Room.Coordinates']  = got_coordinates,
172 |   ['Room.Info']         = got_info,
173 |   
174 |   
175 |   } -- end handlers
176 |   
177 | function OnPluginTelnetSubnegotiation (type, option)
178 | 
179 |   if type ~= ATCP then
180 |     return
181 |   end -- not Achaea subnegotiation
182 | 
183 |   local command, args = string.match (option, "^([%a.]+)%s+(.*)$")
184 |   
185 |   if not command then
186 |     return
187 |   end -- don't seem to have a command
188 |   
189 |   local f = handlers [command]
190 |   
191 |   if f then
192 |     f (args)  -- call handler
193 |   else
194 |     BroadcastPlugin (0, option) -- other, just send whole message
195 |   end -- handler
196 |           
197 | end -- function OnPluginTelnetSubnegotiation
198 | 
199 | ]]>
200 | </script>
201 | 
202 | 
203 | </muclient>
204 | 


--------------------------------------------------------------------------------
/Achaea_Experience_Bar.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Achaea_Experience_Bar"
  7 |    author="Nick Gammon"
  8 |    id="3304ff357fcc6eba09cf8378"
  9 |    language="Lua"
 10 |    purpose="Shows XP to level"
 11 |    date_written="2010-03-09"
 12 |    requires="4.50"
 13 |    version="1.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Install this plugin to show an how close you are to levelling.
 18 | ]]>
 19 | </description>
 20 | 
 21 | </plugin>
 22 | 
 23 | <!--  Script  -->
 24 | 
 25 | 
 26 | <script>
 27 | <![CDATA[
 28 | 
 29 | win = GetPluginID ()  -- get a unique name
 30 | 
 31 | -- configuration
 32 | 
 33 | GAUGE_HEIGHT = 11
 34 | NUMBER_OF_TICKS = 19  -- (ie. 20 bars)
 35 | 
 36 | BACKGROUND_COLOUR = 0x808080
 37 | BOX_COLOUR = ColourNameToRGB "dodgerblue"
 38 | 
 39 | require "checkplugin"
 40 | require "gauge"
 41 | 
 42 | -- draw the bar here, on getting the status info, or window resize
 43 | function draw_bar ()
 44 | 
 45 |   -- check numbers for validity
 46 |   if not cur_xp or  
 47 |      not max_xp or
 48 |      cur_xp < 0 or
 49 |      max_xp <= 0 then
 50 |      return
 51 |   end -- if
 52 | 
 53 |   -- cannot have more than max xp
 54 |   if cur_xp > max_xp then
 55 |      cur_xp = max_xp
 56 |   end -- if
 57 |     
 58 |   -- width is window width minus 2
 59 |   local gauge_width = GetInfo (281) - 2  -- GetInfo (281) = Output window client width
 60 |   
 61 |   -- make room for the bar
 62 |   local bottom_margin = GetInfo (275)  -- = Text rectangle - bottom
 63 |   
 64 |   -- adjust text rectangle, keeping existing settings where possible
 65 |   if bottom_margin == 0 or 
 66 |     (bottom_margin < 0 and math.abs (bottom_margin) < (GAUGE_HEIGHT + 2)) then
 67 |    TextRectangle(GetInfo (272), GetInfo (273),   -- left, top
 68 |                   GetInfo (274), -- right
 69 |                   - (GAUGE_HEIGHT + 2),  -- bottom (gauge height plus 2 more)
 70 |                   GetInfo (276), GetInfo (282) or 0, GetInfo (277),  --  BorderOffset, BorderColour, BorderWidth
 71 |                   GetInfo (278), GetInfo (279)) -- OutsideFillColour, OutsideFillStyle
 72 |   end -- if
 73 |   
 74 |   -- make the miniwindow
 75 |   WindowCreate (win, 
 76 |              0, 0,   -- left, top (auto-positions)
 77 |              gauge_width,     -- width
 78 |              GAUGE_HEIGHT,  -- height
 79 |              10,       -- auto-position: bottom left
 80 |              0,  -- flags
 81 |              BACKGROUND_COLOUR) 
 82 |              
 83 |   local cur, max = cur_xp, max_xp
 84 |  
 85 |   gauge (win, "XP", cur, max, 
 86 |           0, 0, gauge_width, GAUGE_HEIGHT,
 87 |           BOX_COLOUR, BACKGROUND_COLOUR,
 88 |           NUMBER_OF_TICKS)
 89 | 
 90 |   -- ensure window visible
 91 |   WindowShow (win, true)
 92 |   
 93 | end -- draw_bar
 94 | 
 95 | stats = {}
 96 | 
 97 | function got_vitals (s)
 98 |   stats.health, stats.maxhealth, 
 99 |   stats.mana, stats.maxmana, 
100 |   stats.endurance, stats.maxendurance, 
101 |   stats.willpower, stats.maxwillpower, 
102 |   stats.exp, stats.maxexp = string.match (s, "^H:(%d+)/(%d+) M:(%d+)/(%d+) E:(%d+)/(%d+) W:(%d+)/(%d+) NL:(%d+)/(%d+)")
103 |   
104 |   if stats.exp then
105 |     cur_xp = tonumber (stats.exp)
106 |     max_xp = tonumber (stats.maxexp)
107 |     draw_bar ()
108 |   end -- if
109 | end -- function got_vitals
110 | 
111 | function OnPluginBroadcast (msg, id, name, text)
112 |   if id == "85f72d0e263d75df7bde6f00" then
113 |   
114 |     if msg == 1 then
115 |       got_vitals (text)      -- eg. "H:496/496 M:412/412 E:1380/1380 W:960/960 NL:89/100 "
116 |     end -- if   
117 |  
118 |   end -- if ATCP message
119 | end
120 | 
121 | function OnPluginWorldOutputResized ()
122 |   draw_bar ()
123 | end -- function
124 |  
125 | -- hide window on removal
126 | function OnPluginClose ()
127 |   WindowShow (win,  false)  -- hide it
128 | end -- OnPluginClose
129 | 
130 | -- hide window on disable
131 | function OnPluginDisable ()
132 |   WindowShow (win,  false)  -- hide it
133 | end -- OnPluginDisable
134 | 
135 | -- show window on enable
136 | function OnPluginEnable ()
137 |   if (cur_xp and max_xp) or pct_xp then
138 |     WindowShow (win,  true)  -- show it
139 |   end -- if
140 | end -- OnPluginEnable
141 | 
142 | function OnPluginListChanged ()
143 |   do_plugin_check_now ("85f72d0e263d75df7bde6f00", "ATCP_NJG")    -- check we have ATCP plugin
144 | end -- OnPluginListChanged
145 | 
146 | 
147 | ]]>
148 | </script>
149 | 
150 | </muclient>
151 | 


--------------------------------------------------------------------------------
/Achaea_Health_Bar.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Achaea_Health_Bar"
  7 |    author="Nick Gammon"
  8 |    id="e149d30173eb8af91dae945f"
  9 |    language="Lua"
 10 |    purpose="Shows stats in a mini window"
 11 |    date_written="2010-03-09"
 12 |    requires="4.50"
 13 |    version="1.0"
 14 |    save_state="y"
 15 |    >
 16 | <description trim="y">
 17 | <![CDATA[
 18 | Install this plugin to show an info bar with HP, Mana, Endurance and Willpower.
 19 | ]]>
 20 | </description>
 21 | 
 22 | </plugin>
 23 | 
 24 | <!--  Script  -->
 25 | 
 26 | 
 27 | <script>
 28 | <![CDATA[
 29 | 
 30 | require "movewindow"
 31 | require "gauge"
 32 | require "serialize"
 33 | require "checkplugin"
 34 | 
 35 | GAUGE_HEIGHT = 15
 36 | 
 37 | WINDOW_WIDTH = 300
 38 | GAUGE_COUNT = 4
 39 | GAP_BETWEEN_BARS = 4
 40 | NUMBER_OF_TICKS = 5
 41 | 
 42 | BACKGROUND_COLOUR = ColourNameToRGB "rosybrown"
 43 | FONT_COLOUR = ColourNameToRGB "darkred"
 44 | BORDER_COLOUR = ColourNameToRGB "#553333"
 45 | 
 46 | FONT_NAME = get_preferred_font {"Sylfaen", "Dina", "Lucida Console", "Fixedsys", "Courier" } 
 47 | FONT_SIZE = 10
 48 | 
 49 | function DoGauge (sPrompt, win, current, max, Colour)
 50 |   local width = WindowTextWidth (win, FONT_ID, sPrompt, true)  -- to right-justify it
 51 |   WindowText (win, FONT_ID, sPrompt, gauge_left - width + 5, vertical, 0, 0, ColourNameToRGB "#444444", true)
 52 |   
 53 |   gauge (win, sPrompt, 
 54 |           current, max, 
 55 |           gauge_left + 10, vertical, WINDOW_WIDTH - gauge_left - 20, font_height,
 56 |           ColourNameToRGB (Colour or "darkgreen"), ColourNameToRGB "gray",
 57 |           5, ColourNameToRGB "silver", -- ticks
 58 |           ColourNameToRGB "lightgrey",  -- frame
 59 |           0x444444)   -- shadow
 60 | 
 61 |   vertical = vertical + font_height + GAP_BETWEEN_BARS
 62 | end --  DoGauge
 63 | 
 64 | 
 65 | function OnPluginInstall ()
 66 |   
 67 |   win = GetPluginID ()
 68 |   FONT_ID = "fn"
 69 | 
 70 |   -- make initial window
 71 |   WindowCreate (win, 0, 0, 0, 0, 0, 0, 0)
 72 |   -- add the fonts
 73 |   WindowFont (win, FONT_ID, FONT_NAME, FONT_SIZE)
 74 |   font_height = WindowFontInfo (win, FONT_ID, 1)  -- height
 75 |   
 76 |   -- install the window movement handler, get back the window position
 77 |   windowinfo = movewindow.install (win, 7)  -- default to 7 (on right, center top/bottom)
 78 |     
 79 |   window_height = (font_height * GAUGE_COUNT) + (GAUGE_COUNT * 2) * GAP_BETWEEN_BARS 
 80 |   
 81 |   -- make miniwindow so I can grab the font info
 82 |   WindowCreate (win, 
 83 |                 windowinfo.window_left,
 84 |                 windowinfo.window_top,
 85 |                 WINDOW_WIDTH, 
 86 |                 window_height,  
 87 |                 windowinfo.window_mode,   
 88 |                 windowinfo.window_flags,    
 89 |                 BACKGROUND_COLOUR)
 90 | 
 91 |   -- add the drag handler so they can move the window around
 92 |   movewindow.add_drag_handler (win, 0, 0, 0, 0)
 93 |   
 94 |   -- work out how far in to start the gauge
 95 |   
 96 |   gauge_left =  max_text_width (win, FONT_ID, {"Health", "Mana", "Endurance", "Willpower" }) + 5
 97 |   
 98 |   if GetVariable ("enabled") == "false" then
 99 |     ColourNote ("yellow", "", "Warning: Plugin " .. GetPluginName ().. " is currently disabled.")
100 |     check (EnablePlugin(GetPluginID (), false))
101 |   end -- they didn't enable us last time
102 |  
103 | end -- OnPluginInstall
104 | 
105 | function OnPluginDisable ()
106 |   WindowShow (win, false)
107 | end -- OnPluginDisable
108 | 
109 | function OnPluginEnable ()
110 |   WindowShow (win, true)
111 | end -- OnPluginEnable
112 | 
113 | function OnPluginSaveState ()
114 |    -- save window current location for next time  
115 |   movewindow.save_state (win)
116 |   SetVariable ("enabled", tostring (GetPluginInfo (GetPluginID (), 17)))
117 | end -- OnPluginSaveState
118 | 
119 | stats = {}
120 | 
121 | function got_vitals (s)
122 |   stats.health, stats.maxhealth, 
123 |   stats.mana, stats.maxmana, 
124 |   stats.endurance, stats.maxendurance, 
125 |   stats.willpower, stats.maxwillpower, 
126 |   stats.exp, stats.maxexp = string.match (s, "^H:(%d+)/(%d+) M:(%d+)/(%d+) E:(%d+)/(%d+) W:(%d+)/(%d+) NL:(%d+)/(%d+)")
127 |   
128 |   if stats.health then
129 |    
130 |     hp, max_hp = tonumber (stats.health), tonumber (stats.maxhealth)
131 |     mana, max_mana = tonumber (stats.mana), tonumber (stats.maxmana)
132 |     endurance, max_endurance = tonumber (stats.endurance), tonumber (stats.maxendurance)
133 |     willpower, max_willpower = tonumber (stats.willpower), tonumber (stats.maxwillpower)
134 |   
135 |     -- fill entire box to clear it
136 |     check (WindowRectOp (win, 2, 0, 0, 0, 0, BACKGROUND_COLOUR))  -- fill entire box
137 |     
138 |     -- Edge around box rectangle
139 |     check (WindowCircleOp (win, 3, 0, 0, 0, 0, BORDER_COLOUR, 0, 2, 0, 1))
140 |   
141 |     vertical = 6  -- pixel to start at
142 |   
143 |     DoGauge ("Heath: ",     win, hp ,       max_hp,         "darkgreen")
144 |     DoGauge ("Mana: ",      win, mana,      max_mana,       "mediumblue")
145 |     DoGauge ("Endurance: ", win, endurance, max_endurance,  "gold")
146 |     DoGauge ("Willpower: ", win, willpower, max_willpower,  "brown")
147 |   
148 |     WindowShow (win, true)
149 |   end -- if
150 | end -- function got_vitals
151 | 
152 | function OnPluginBroadcast (msg, id, name, text)
153 |   if id == "85f72d0e263d75df7bde6f00" then
154 |   
155 |     if msg == 1 then
156 |       got_vitals (text)      -- eg. "H:496/496 M:412/412 E:1380/1380 W:960/960 NL:89/100 "
157 |     end -- if   
158 |  
159 |   end -- if ATCP message
160 | end
161 | 
162 | function OnPluginListChanged ()
163 |   do_plugin_check_now ("85f72d0e263d75df7bde6f00", "ATCP_NJG")    -- check we have ATCP plugin
164 | end -- OnPluginListChanged
165 | 
166 | 
167 | ]]>
168 | </script>
169 | 
170 | </muclient>
171 | 


--------------------------------------------------------------------------------
/Add_NewLine_To_Prompt.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Sunday, October 22, 2006, 7:40 AM -->
 4 | <!-- MuClient version 3.82 -->
 5 | 
 6 | <!-- Plugin "Add_NewLine_To_Prompt" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Add_NewLine_To_Prompt"
11 |    author="Nick Gammon"
12 |    id="1f68b8da856ceccb6f2ea308"
13 |    language="Lua"
14 |    purpose="Forces a newline after a prompt line"
15 |    date_written="2006-10-22 07:38:36"
16 |    requires="3.82"
17 |    version="1.0"
18 |    >
19 | 
20 | </plugin>
21 | 
22 | 
23 | <!--  Script  -->
24 | 
25 | 
26 | <script>
27 | <![CDATA[
28 | function OnPluginPacketReceived (s)
29 |   return (string.gsub (s, "\n\027.-m<.*.+hp.*> ", "%1\n"))
30 | end -- function OnPluginPacketReceived
31 | ]]>
32 | </script>
33 | 
34 | </muclient>
35 | 


--------------------------------------------------------------------------------
/Auto_Say_Visualizer.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Thursday, July 10, 2008, 1:28 PM -->
 4 | <!-- MuClient version 4.33 -->
 5 | 
 6 | <!-- Plugin "Auto_Say_Visualizer" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Auto_Say_Visualizer"
11 |    author="Nick Gammon"
12 |    id="379f2b5475fb85cd8de2a2d5"
13 |    language="Lua"
14 |    purpose="Colours command window if auto-say active"
15 |    date_written="2008-07-10 13:27:28"
16 |    requires="4.00"
17 |    version="1.01"
18 |    >
19 | 
20 | </plugin>
21 | 
22 | 
23 | <!--  Timers  -->
24 | 
25 | <timers>
26 |   <timer 
27 |     enabled="y" 
28 |     second="1.00" 
29 |     send_to="10"
30 |     active_closed="y"
31 |     script="AutoSayVisualize"
32 |   >
33 |   </timer>
34 | </timers>
35 | 
36 | <!--  Script  -->
37 | 
38 | 
39 | <script>
40 | <![CDATA[
41 | bWasAutoSayActive = 0
42 | 
43 | function AutoSayVisualize()
44 |   if GetOption("enable_auto_say") ~= bWasAutoSayActive then
45 |     bWasAutoSayActive = GetOption("enable_auto_say")
46 |     if bWasAutoSayActive == 1 then
47 |       SetOption ("input_background_colour", ColourNameToRGB ("palegreen"))
48 |     else
49 |       SetOption ("input_background_colour", ColourNameToRGB ("white"))
50 |     end -- if
51 |   end -- if
52 | end
53 | 
54 | function OnPluginClose()
55 |   SetOption ("input_background_colour", ColourNameToRGB ("white"))
56 | end
57 | 
58 | function OnPluginDisable()
59 |   bWasAutoSayActive = 0
60 |   SetOption ("input_background_colour", ColourNameToRGB ("white"))
61 | end
62 | 
63 | ]]>
64 | </script>
65 | 
66 | </muclient>


--------------------------------------------------------------------------------
/BatMUD_Analyzer.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="BatMUD_Analyzer"
  7 |    author="Nick Gammon"
  8 |    id="cff91f04c0d78149c0dd6258"
  9 |    language="Lua"
 10 |    purpose="Detects BatMUD sequences"
 11 |    date_written="2016-11-21 08:20"
 12 |    date_modified="2016-11-22 09:30"
 13 |    requires="4.80"
 14 |    version="1.1"
 15 |    >
 16 | <description trim="y">
 17 | Detects incoming packets in the BatMUD format.
 18 | </description>
 19 | 
 20 | </plugin>
 21 | 
 22 | <!--  Script  -->
 23 | 
 24 | <script>
 25 | <![CDATA[
 26 | 
 27 | local ESC = "\027"
 28 | local REGEXP = ESC .. "<(%d%d)(.-)" .. ESC .. ">%1"  -- ESC < nn (args) ESC > nn
 29 | local ARG_DELIMITER = ESC .. "|"
 30 | 
 31 | -- breaks up a line into AAAAA ESC| BBBBB
 32 | function splitArgs (args)
 33 |   local a, b = string.match (args, "^(.*)" .. ARG_DELIMITER .. "(.*)$")
 34 |   return a, b
 35 | end -- splitArgs
 36 | 
 37 | knownWindows = { }
 38 | 
 39 | function showInfoWindow (name, contents, left, top, fgColour, bgColour)
 40 |   local win = GetPluginID () .. "_" .. name
 41 |   local font = "f"
 42 |   WindowCreate (win, left, top, 1, 1, miniwin.pos_top_left, 0, 0)
 43 |   WindowFont (win, font, "Courier", 10, true)
 44 |   height = WindowFontInfo (win, font, 1)  + 10
 45 |   width = WindowTextWidth (win, font, contents) + 10
 46 |   WindowCreate (win, left, top, width, height, miniwin.pos_top_left, miniwin.create_absolute_location, ColourNameToRGB (bgColour))
 47 |   WindowText (win, font, contents, 5, 5, 0, 0, ColourNameToRGB (fgColour))
 48 |   WindowShow (win, true)
 49 |   knownWindows [win] = true  -- remember it exists
 50 | end -- showInfoWindow
 51 | 
 52 | function ResetOutput (args)
 53 | end -- ResetOutput
 54 | 
 55 | function ConnectedOK (args)
 56 |   ColourNote ("green", "", "Connected to BatMUD OK")
 57 | end -- ConnectedOK
 58 | 
 59 | function ConnectionFailed (args)
 60 |   ColourNote ("red", "", "Failed to connect: " .. args)
 61 | end -- ConnectionFailed
 62 | 
 63 | function OutputMessage (args)
 64 |   local msgType, message = splitArgs (args)
 65 |   if msgType == 'spec_prompt' then
 66 |     showInfoWindow ("prompt", 
 67 |                   message,
 68 |                   0, 50, "saddlebrown", "papayawhip")
 69 |   else
 70 |     msgs = utils.split (message, "\n")
 71 |     ColourTell ("dodgerblue", "", msgType .. ": ")
 72 |     for k, v in ipairs (msgs) do
 73 |       AnsiNote (v)
 74 |     end -- for each line
 75 |       
 76 |   end -- if
 77 |   
 78 | end -- OutputMessage
 79 | 
 80 | function ClearScreen (args)
 81 | end -- ClearScreen
 82 | 
 83 | function ForegroundColour (args)
 84 |   local colour, message = splitArgs (args)
 85 |   ColourTell ("#" .. colour, "", message)
 86 | end -- ForegroundColour
 87 | 
 88 | function InGameLink (args)
 89 |   local command, where = splitArgs (args)
 90 |   ColourNote ("tomato", "", "Typing " .. command .. " gives " .. where)
 91 | end -- InGameLink
 92 | 
 93 | function ClearSpellStatus (args)
 94 |   ColourNote ("yellow", "", "Spell/skill status cleared")
 95 | end -- ClearSpellStatus
 96 | 
 97 | function SpellStatus (args)
 98 |   local spell, rounds = string.match (args, "^(%S+)%s+(%d+)$")
 99 |   if not spell then
100 |     ColourNote ("white", "red", "Cannot interpret SpellStatus line: " .. args)
101 |     return
102 |   end -- if not recognized 
103 |   rounds = tonumber (rounds)
104 |   if rounds == 0 then
105 |     rounds = "unknown"
106 |   end -- if
107 |   ColourNote ("yellow", "", "Spell: " .. spell .. " for " .. rounds .. " round(s)")
108 | end -- ClearSpellStatus
109 | 
110 | function SkillStatus (args)
111 |   local skill, rounds = string.match (args, "^(%S+)%s+(%d+)$")
112 |   if not skill then
113 |     ColourNote ("white", "red", "Cannot interpret SkillStatus line: " .. args)
114 |     return
115 |   end -- if not recognized 
116 |   rounds = tonumber (rounds)
117 |   if rounds == 0 then
118 |     rounds = "unknown"
119 |   end -- if
120 |   ColourNote ("yellow", "", "Skill: " .. skill .. " for " .. rounds .. " round(s)")
121 | end -- SkillStatus
122 | 
123 | function PlayerHealth (args)
124 |   local hp, hpmax, sp, spmax, ep, epmax = string.match (args, "^(%d+)%s+(%d+)%s+(%d+)%s+(%d+)%s+(%d+)%s+(%d+)$")
125 |   if not hp then
126 |     ColourNote ("white", "red", "Cannot interpret PlayerHealth line: " .. args)
127 |     return
128 |   end -- if not recognized 
129 |   showInfoWindow ("health", 
130 |                   string.format ("HP: %d, MaxHP: %d, SP: %d, MaxSP: %d, EP: %d, MaxEP: %d",
131 |                                   hp, hpmax, sp, spmax, ep, epmax),
132 |                   0, 0, "blue", "bisque")
133 |                                  
134 | end -- PlayerHealth
135 | 
136 | function PlayerName (args)
137 |   local name, surname, race, level, gender, experience = string.match (args, "^([%a%d]+)%s+([%a%d]+)%s+([%a%d]+)%s+(%d+)%s+(%d+)%s+(%d+)$")
138 |   if not name then
139 |     ColourNote ("white", "red", "Cannot interpret PlayerName line: " .. args)
140 |     return
141 |   end -- if not recognized 
142 |   
143 |   if surname == '0' then
144 |     surname = "<none>"
145 |   end -- if
146 |   
147 |   if gender == '0' then
148 |     gender = "Neutral"
149 |   elseif gender == '1' then
150 |     gender = "Male"
151 |   elseif gender == '2' then
152 |     gender = "Female"
153 |   end -- if gender 
154 | 
155 |   showInfoWindow ("name", 
156 |                 string.format ("Name: %s, Surname: %s, Race: %s, Level: %d, Gender: %s, Experience: %d",
157 |                     name, surname, race, level, gender, experience),
158 |                 0, 25, "darkorange", "papayawhip")
159 | 
160 | end -- PlayerName
161 | 
162 | function PlayerStatus (args)
163 |   unconscious, stunned, dead = string.match (args, "^(%d+)%s+(%d+)%s+(%d+)$")
164 |   if not unconscious then
165 |     ColourNote ("white", "red", "Cannot interpret PlayerStatus line: " .. args)
166 |     return
167 |   end -- if not recognized 
168 |   if unconscious ~= '0' then
169 |     ColourNote ("yellow", "", "Unconscious")
170 |   end -- if
171 |   if stunned ~= '0' then
172 |     ColourNote ("yellow", "", "Stunned")
173 |   end -- if
174 |   if dead ~= '0' then
175 |     ColourNote ("yellow", "", "Dead")
176 |   end -- if
177 | end -- PlayerStatus
178 | 
179 | function TargetInfo (args)
180 |   local target, health = string.match (args, "^(%S+)%s+(%d+)$")
181 |   if not target then
182 |     ColourNote ("white", "red", "Cannot interpret TargetInfo line: " .. args)
183 |     return
184 |   end -- if not recognized 
185 |   health = tonumber (health)
186 |   if health == 0 and target == '0' then
187 |     ColourNote ("orange", "", "No targets")
188 |   else
189 |     ColourNote ("orange", "", "Target " .. target .. " has " .. health .. "% health")
190 |   end -- if
191 | end -- TargetInfo
192 | 
193 | handlers = {
194 |   [0] = ResetOutput,
195 |   [5] = ConnectedOK,
196 |   [6] = ConnectionFailed,
197 |   [10] = OutputMessage,
198 |   [11] = ClearScreen,
199 |   [20] = ForegroundColour,
200 |   [31] = InGameLink,
201 |   [40] = ClearSpellStatus,
202 |   [41] = SpellStatus,
203 |   [42] = SkillStatus,
204 |   [50] = PlayerHealth,
205 |   [52] = PlayerName,
206 |   [54] = PlayerStatus,
207 |   [70] = TargetInfo,
208 | 
209 | } -- end of handlers
210 | 
211 | -- do something with the message from the MUD
212 | function handleMessage (code, args)
213 |   --ColourNote ("yellow", "", "Got code " .. code .. ", args " .. args)
214 |   handler = handlers [code]
215 |   if handler then
216 |     handler (args)
217 |   else
218 |     ColourTell ("yellow", "", "Got code " .. code .. ", args " .. args)
219 |   end -- if
220 | end -- handleMessage
221 | 
222 | function processSequence (code, args)
223 |   -- handle embedded sequence
224 |   args = string.gsub (args, REGEXP, processSequence)  -- recursive call
225 | 
226 |   -- put into a table for later processing
227 |   -- insert at position 1 because the embedded ones will be detected first
228 |   table.insert (incoming, 1, { code = tonumber (code), args = args } )
229 |   
230 |   return ""  -- omit from packet
231 | end -- processSequence
232 | 
233 | -- strip BatMUD stuff out of packet, handle it separately
234 | function OnPluginPacketReceived (s)
235 |   incoming = { }
236 |   s, count = string.gsub (s, REGEXP, processSequence)
237 |   if count > 0 then
238 |     for k, v in ipairs (incoming) do
239 |       handleMessage (v.code, v.args)
240 |     end -- for each one
241 |   end -- some codes found
242 |     
243 |   return s  -- return fixed packet
244 | end -- function OnPluginPacketReceived
245 | 
246 | -- when connected, activate the client protocol
247 | function OnPluginConnect ()
248 |   SendPkt("\027bc 3\n")   -- enable BatClient stuff
249 | end -- function
250 | 
251 | -- hide all miniwindows on disconnect
252 | function OnPluginDisconnect ()
253 |   for k, v in pairs (knownWindows) do
254 |     WindowShow (k, false)
255 |   end -- for
256 | end -- OnPluginDisconnect
257 | 
258 | ]]>
259 | </script>
260 | 
261 | </muclient>
262 | 


--------------------------------------------------------------------------------
/Braille_Reader.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Braille_Reader"
  7 |    author="Nick Gammon"
  8 |    id="9142cc3c8b300ae5faf113c4"
  9 |    language="Lua"
 10 |    purpose="Outputs chunks of text for use with a Braille reader"
 11 |    date_written="2018-10-03 05:50:10"
 12 |    requires="5.00"
 13 |    version="1.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Outputs in chunks for Braille-readers. See "CONFIGURATION" in plugin for how to change various parameters.
 18 | 
 19 | Each line from the MUD is output in up to (default) 40 characters at a time, up to the end of the last word (the most-recent space). Press the "resume" function key to view the next 40 characters.
 20 | To skip the rest of the current line press the "skip" function key.
 21 | To discard all output press the "clear" function key.
 22 | 
 23 | Default keys:
 24 | 
 25 | F6 - resume
 26 | F7 - skip rest of line
 27 | F8 - clear all output
 28 | 
 29 | If the display is blank then there is no pending output. Blank lines from the MUD are automatically ignored.
 30 | 
 31 | ]]>
 32 | </description>
 33 | 
 34 | </plugin>
 35 | 
 36 | <script>
 37 | <![CDATA[
 38 | 
 39 | -- CONFIGURATION
 40 | 
 41 | chars = 40  -- how many to display at a time
 42 | unicode = false
 43 | text_colour = ColourNameToRGB("white")
 44 | background_colour = ColourNameToRGB("black")
 45 | resume_fkey = "F6"
 46 | skip_fkey   = "F7"
 47 | clear_fkey  = "F8"
 48 | 
 49 | -- INTERNAL STUFF
 50 | 
 51 | win = "test_" .. GetPluginID ()  -- get a unique name, ensure not empty if outside plugin
 52 | font = "f"
 53 | 
 54 | lines = { }  -- table of lines from MUD
 55 | last_output = ""
 56 | 
 57 | function Resume ()
 58 |   
 59 |   -- clear previous text initially
 60 |   WindowRectOp(win, miniwin.rect_fill, 0, 0, 0, 0, background_colour, 0)
 61 |   last_output = ""
 62 | 
 63 |   -- if nothing to show, a blank output will indicate that
 64 |   if #lines == 0 then
 65 |     Redraw ()  
 66 |     return
 67 |   end -- if
 68 |   
 69 |   local text = lines [1]  -- what needs to be shown
 70 |   
 71 |   if #text > chars then
 72 |     local last_space = 0
 73 |     -- stop at last word
 74 |     for i = 1, #text do
 75 |       if i > chars then
 76 |         break
 77 |       end -- if past wanted width
 78 |       if string.sub (text, i, i) == " " then
 79 |         last_space = i
 80 |       end -- if found a space
 81 |     end -- for
 82 |     
 83 |     if last_space == 0 then
 84 |       last_space = chars + 1  -- assume space just afterwards
 85 |     end -- if
 86 |     lines [1] = Trim (string.sub (text, last_space))  -- rest of line
 87 |     text = string.sub (text, 1, last_space - 1)  -- take all 'chars' characters
 88 |     partial_line = true
 89 |   else
 90 |     table.remove (lines, 1)   -- not too long, just remove it
 91 |     partial_line = false
 92 |   end -- if too long
 93 | 
 94 |   WindowText (win, font, text, 
 95 |                   5, 5, 0, 0,   -- rectangle
 96 |                   text_colour,  -- colour
 97 |                   unicode)      -- Unicode?
 98 |   Redraw ()  
 99 |   last_output = text              
100 | end -- Resume
101 | 
102 | function Skip_Line ()
103 |   if partial_line then
104 |     table.remove (lines, 1)
105 |     partial_line = false
106 |   end -- if
107 |   Resume () -- now show next line
108 | end -- Skip_Line
109 | 
110 | function Clear_Output ()
111 |   lines = {}
112 |   partial_line = false
113 |   Resume ()
114 | end -- Clear_Output
115 | 
116 | function OnPluginInstall ()
117 | 
118 |   -- set up key bindings
119 |   AcceleratorTo(resume_fkey,  'Resume()', sendto.script)
120 |   AcceleratorTo(skip_fkey,    'Skip_Line()', sendto.script)
121 |   AcceleratorTo(clear_fkey,   'Clear_Output()', sendto.script)
122 |   
123 |   -- leave room at the bottom for the miniwindow
124 |   TextRectangle(0,   -- left
125 |                 0,  -- top
126 |                 0,  -- width
127 |               -50,  -- 50 pixels from the bottom
128 |               10,  -- BorderOffset, 
129 |               ColourNameToRGB ("gray"),    -- BorderColour, 
130 |               2,  -- BorderWidth, 
131 |               ColourNameToRGB ("silver"),  -- OutsideFillColour, 
132 |               miniwin.brush_solid) -- OutsideFillStyle
133 |   
134 |   -- make miniwindow to find text size                           
135 |   WindowCreate (win, 0, 0, 0, 0, miniwin.pos_bottom_left, 0, background_colour)  -- create window
136 |   
137 |   -- set up font
138 |   WindowFont (win, font, "Courier", 14) -- define font
139 |   
140 |   -- get font information
141 |   width   = WindowTextWidth (win, font, string.rep ("M", chars))
142 |   height  = WindowFontInfo (win, font, 1)   -- height of the font 
143 | 
144 |   -- recreate window to have correct width
145 |   WindowCreate (win, 0, 0, width + 10, height + 10, miniwin.pos_bottom_left, 0, background_colour)  -- create window
146 |   
147 |   WindowShow (win,  true)  -- show it 
148 | 
149 |   lines [1] = "Braille Reader installed"
150 |   Resume ()
151 |         
152 | end -- OnPluginInstall
153 | 
154 | -- Type: 0 = output line, 1 = note, 2 = command
155 | 
156 | function OnPluginScreendraw (type, log, line)
157 | 
158 |   -- if output line, add to buffer of lines to be shown
159 |   if type ~= 2 and Trim (line) ~= "" then
160 |     table.insert (lines, Trim (line))
161 |     
162 |     -- if nothing currently shown, start showing stuff
163 |     if last_output == "" then
164 |       Resume ()
165 |     end -- if
166 |   end -- if
167 | end -- function OnPluginScreendraw
168 | 
169 | ]]>
170 | </script> 
171 | 
172 | </muclient>
173 | 


--------------------------------------------------------------------------------
/Combat_Text.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <!-- MuClient version 4.37 -->
  5 | 
  6 | <muclient>
  7 | <plugin
  8 |    name="Combat_Text"
  9 |    author="Nick Gammon"
 10 |    id="4de91eaa2624f202c4bb6837"
 11 |    language="Lua"
 12 |    purpose="Shows messages in the middle of the output window"
 13 |    date_written="2009-02-08 14:00"
 14 |    requires="4.37"
 15 |    version="1.0"
 16 |    >
 17 | 
 18 | </plugin>
 19 | 
 20 | <!--  Aliases  -->
 21 | 
 22 | 
 23 | <aliases>
 24 |   <alias
 25 |    script="combat_message"
 26 |    match="combat_message *"
 27 |    enabled="y"
 28 |    sequence="100"
 29 |   >
 30 |   </alias>
 31 | </aliases>
 32 | 
 33 | <!--  Timers  -->
 34 | 
 35 | <timers>
 36 |   <timer script="remove_message" 
 37 |          second="5.00" 
 38 |          active_closed="y" 
 39 |          name="remove_message"
 40 |          >
 41 |   </timer>
 42 | </timers>
 43 | 
 44 | 
 45 | <!--  Script  -->
 46 | 
 47 | 
 48 | <script>
 49 | <![CDATA[
 50 | 
 51 | -- configuration
 52 | 
 53 | -- font
 54 | FONT_NAME = "Arial Black"
 55 | FONT_SIZE = 30
 56 | TEXT_COLOUR = ColourNameToRGB ("yellow")
 57 | BACKGROUND_COLOUR = ColourNameToRGB ("darkred")
 58 | 
 59 | 
 60 | -- where to put the window
 61 | WINDOW_POSITION = 12  -- centered
 62 | OFFSET = 5  -- gap inside box
 63 | 
 64 | -- what sound to play
 65 | SOUND_FILE = "/Windows/Media/Windows XP Balloon.wav"
 66 | 
 67 | -- alias goes here
 68 | function combat_message (name, line, wildcards)
 69 | 
 70 |   message = wildcards [1]
 71 | 
 72 |   width   = WindowTextWidth (win, "f", message) 
 73 | 
 74 |   -- make the window
 75 |   WindowCreate (win, 0, 0, 
 76 |                 width + (OFFSET * 2), 
 77 |                 font_height + (OFFSET * 2), 
 78 |                 WINDOW_POSITION, 0, 
 79 |                 BACKGROUND_COLOUR) -- create window
 80 | 
 81 |   WindowText (win, "f", message, OFFSET, OFFSET, 0, 0, TEXT_COLOUR)
 82 |                     
 83 |   WindowRectOp (win, 1, 0, 0, 0, 0, TEXT_COLOUR)
 84 |   
 85 |   -- show window
 86 |   WindowShow (win,  true)  -- show it 
 87 |   
 88 |   -- play a warning sound
 89 |   Sound (SOUND_FILE)
 90 |   
 91 |   -- enable and reset the timer which removes the message
 92 |   EnableTimer ("remove_message")
 93 |   ResetTimer ("remove_message")
 94 |   
 95 | end -- end combat_message
 96 | 
 97 | -- here to remove the message
 98 | function remove_message ()
 99 |   WindowShow (win,  false)
100 | end -- remove_message
101 | 
102 | -- startup stuff
103 | 
104 | win = GetPluginID ()  -- get a unique name
105 | 
106 | -- make the window
107 | WindowCreate (win, 0, 0, 0, 0, WINDOW_POSITION, 0, 0x000000)  -- create window
108 |                
109 | -- grab a font
110 | WindowFont (win, "f", FONT_NAME, FONT_SIZE) -- define font
111 | 
112 | -- work out how high it is
113 | font_height = WindowFontInfo (win, "f", 1)   -- height of the font  
114 | 
115 | ]]>
116 | </script>
117 | 
118 | 
119 | </muclient>
120 | 


--------------------------------------------------------------------------------
/Command_Throttler.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Thursday, May 01, 2008, 9:38 AM -->
  4 | <!-- MuClient version 4.23 -->
  5 | 
  6 | <!-- Plugin "Command_Throttler" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Command_Throttler"
 11 |    author="Nick Gammon"
 12 |    id="40b23d22e34074ddefa98f09"
 13 |    language="Lua"
 14 |    purpose="Sends commands to the MUD gradually"
 15 |    date_written="2008-05-01 09:34:22"
 16 |    requires="4.18"
 17 |    version="1.0"
 18 |    >
 19 | <description trim="y">
 20 | <![CDATA[
 21 | "Throttles" your output to an acceptable rate.
 22 | 
 23 | Aliases:
 24 | 
 25 | show_queue  --> display outstanding queue
 26 | 
 27 | empty_queue --> discard entire queue
 28 | 
 29 | Command_Throttler:help --> this help
 30 | ]]>
 31 | </description>
 32 | 
 33 | </plugin>
 34 | 
 35 | 
 36 | <!--  Aliases  -->
 37 | 
 38 | <aliases>
 39 |   <alias
 40 |    match="empty_queue"
 41 |    enabled="y"
 42 |    send_to="12"
 43 |    sequence="100"
 44 |   >
 45 |   <send>
 46 | 
 47 | ColourNote ("gray", "", "Deleted " .. #queue .. " outstanding item(s) from the queue.")
 48 | 
 49 | queue = {}  -- queue is now empty
 50 | 
 51 | </send>
 52 |   </alias>
 53 | 
 54 |   <alias
 55 |    match="show_queue"
 56 |    enabled="y"
 57 |    send_to="12"
 58 |    sequence="100"
 59 |   >
 60 |   <send>
 61 | 
 62 | if #queue == 0 then
 63 |   ColourNote ("gray", "", "Pending command queue is empty")
 64 |   return
 65 | end -- if
 66 | 
 67 | ColourNote ("gray", "", "Command queue:")
 68 | for k, v in ipairs (queue) do
 69 |   ColourNote ("gray", "", k .. ": " .. v) 
 70 | end -- for
 71 | 
 72 | ColourNote ("gray", "", #queue .. " outstanding item(s) in the command queue.")
 73 | </send>
 74 |   </alias>
 75 | </aliases>
 76 | 
 77 | <!--  Timers  -->
 78 | 
 79 | <timers>
 80 |   <timer 
 81 |     enabled="y" 
 82 |     second="0.20" 
 83 |     offset_second="0.00"    
 84 |     send_to="12"
 85 | >
 86 |   <send>
 87 | 
 88 | -- no queued commands? just exit
 89 | 
 90 | if next (queue) == nil then
 91 |   return
 92 | end -- if empty
 93 | 
 94 | -- send the earliest item
 95 | 
 96 | send_now = true  -- don't requeue it
 97 | 
 98 | Send (table.remove (queue, 1))
 99 | 
100 | send_now = false -- queue if not from this plugin
101 | 
102 | </send>
103 | 
104 |   </timer>
105 | </timers>
106 | 
107 | <!--  Script  -->
108 | 
109 | 
110 | <script>
111 | <![CDATA[
112 | 
113 | require "getlines"
114 | 
115 | queue = {}
116 | send_now = false
117 | 
118 | function OnPluginInstall ()
119 |   if GetOption ("enable_timers") ~= 1 then
120 |     ColourNote ("white", "red", "Timers not enabled - commands will not be sent")
121 |   end -- if timers not enabled
122 | 
123 |   if GetGlobalOption ("TimerInterval") ~= 0 then
124 |     ColourNote ("white", "red", 
125 | [[
126 | Please go to the File menu -> Global Preferences Timers (Ctrl+Alt+G),
127 | navigate to the Timers tab, and set the value for "Timer Interval" to be zero, 
128 | in order for this plugin to work correctly. 
129 | ]])
130 |   end -- if timer interval not zero
131 | 
132 | end -- function OnPluginInstall
133 | 
134 | function OnPluginSend (s)
135 | 
136 |   if send_now then
137 |     return true -- yes we can send it
138 |   end -- if sending from within the plugin
139 | 
140 |   -- queue the command - broken into individual lines
141 |   for line in getlines (s) do
142 |     table.insert (queue, line)
143 |   end -- for loop
144 | 
145 |   return false
146 | 
147 | end -- function OnPluginSend
148 | ]]>
149 | </script>
150 | 
151 | 
152 | <!--  Plugin help  -->
153 | 
154 | <aliases>
155 |   <alias
156 |    script="OnHelp"
157 |    match="Command_Throttler:help"
158 |    enabled="y"
159 |   >
160 |   </alias>
161 | </aliases>
162 | 
163 | <script>
164 | <![CDATA[
165 | function OnHelp ()
166 |   world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
167 | end
168 | ]]>
169 | </script> 
170 | 
171 | </muclient>
172 | 


--------------------------------------------------------------------------------
/Convert_Packet_Debug.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Monday, July 20, 2009, 10:47 AM -->
 4 | <!-- MuClient version 4.43 -->
 5 | 
 6 | <!-- Plugin "Convert_Packet_Debug" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Convert_Packet_Debug"
11 |    author="Nick Gammon"
12 |    id="cae868ff0b7d205596cf6db7"
13 |    language="Lua"
14 |    purpose="Converts packet debug lines for Test Trigger"
15 |    date_written="2009-07-20 10:45:55"
16 |    requires="4.40"
17 |    version="1.1"
18 |    >
19 | <description trim="y">
20 | <![CDATA[
21 | 1. Copy some packet debug to the Clipboard (possibly omitting sent packets)
22 | 
23 | 2. Type: convert_packet
24 | 
25 | 3. Converted packet will be echoed to output.
26 | 
27 | Extra lines which don't look like packet debug will be ignored.
28 | 
29 | ]]>
30 | </description>
31 | 
32 | </plugin>
33 | 
34 | 
35 | <!--  Aliases  -->
36 | 
37 | <aliases>
38 |   <alias
39 |    script="convert_packet"
40 |    match="convert_packet"
41 |    enabled="y"
42 |    sequence="100"
43 |   >
44 |   </alias>
45 | </aliases>
46 | 
47 | <!--  Script  -->
48 | 
49 | 
50 | <script>
51 | <![CDATA[
52 | require "getlines"
53 | 
54 | function convert_packet (name, line, wildcards)
55 | 
56 |   -- get clipboard
57 |   local clip = GetClipboard ()
58 |   
59 |   -- starting line of hyphens
60 |   print (string.rep ("-", 60))
61 |   
62 |   -- for each line see if it looks like a debug line
63 |   -- debug lines have 16 ASCII characters, 3 spaces, and then some hex stuff
64 |   for line in getlines (clip) do
65 |     local hex = string.match (line, "^................   ([%x ]+)%s*$")
66 |     if hex then  -- looks OK
67 |       for s in string.gmatch (hex, "%x%x") do
68 |         c = string.char (tonumber (s, 16))
69 |         if c >= ' ' and c <= string.char (0x7F) then
70 |            Tell (c)
71 |         else
72 |           Tell ("\\" .. s)  -- output without a linebreak
73 |         end -- if
74 |       end -- for
75 |     end -- seems to be a packet debug line
76 |   end -- for loop
77 |    
78 |   print ("")  -- new line
79 |   print (string.rep ("-", 60))
80 | 
81 | end -- function convert_packet
82 | ]]>
83 | </script>
84 | 
85 | 
86 | </muclient>
87 | 


--------------------------------------------------------------------------------
/Count_Instruction_Cycles.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Count_Instruction_Cycles"
  7 |    author="Nick Gammon"
  8 |    id="03ac189809b6acc00ee4a1f4"
  9 |    language="Lua"
 10 |    purpose="Works out instruction cycles for AVR object"
 11 |    date_written="2012-10-31"
 12 |    requires="4.40"
 13 |    version="1.0"
 14 |    sequence="90"
 15 |    >
 16 | <description trim="y">
 17 | <![CDATA[
 18 | 1. Copy some AVR object dump to the Clipboard 
 19 | 
 20 | 2. Type: count_cycles
 21 | 
 22 | 3. Converted data will be echoed to output.
 23 | 
 24 | 
 25 | ]]>
 26 | </description>
 27 | 
 28 | </plugin>
 29 | 
 30 | 
 31 | <!--  Aliases  -->
 32 | 
 33 | <aliases>
 34 |   <alias
 35 |    script="count_cycles"
 36 |    match="count_cycles"
 37 |    enabled="y"
 38 |    sequence="100"
 39 |   >
 40 |   </alias>
 41 | </aliases>
 42 | 
 43 | <!--  Script  -->
 44 | 
 45 | 
 46 | <script>
 47 | <![CDATA[
 48 | require "getlines"
 49 | 
 50 | function count_cycles (name, line, wildcards)
 51 | 
 52 |   -- get clipboard
 53 |   local clip = GetClipboard ()
 54 |   
 55 |   -- starting line of hyphens
 56 |   print (string.rep ("-", 60))
 57 |     
 58 |   re = rex.new ("^\\s*[0-9a-f]+:\\s+([0-9a-f]{2}\\s)+\\s*(?P<inst>[a-z]+)")
 59 |   
 60 |   for line in getlines (clip) do
 61 |     Tell (line) 
 62 |   
 63 |     local s, e, t = re:match (line)
 64 |     
 65 |     if s then
 66 |        lookupCycles (t.inst:upper ())
 67 |     end -- if
 68 |   
 69 |     print ""
 70 |   end -- for loop
 71 |    
 72 |   print ("")  -- new line
 73 |   print (string.rep ("-", 60))
 74 | 
 75 | end -- function count_cycles
 76 | 
 77 | cycles = {
 78 | 
 79 |     -- ARITHMETIC AND LOGIC INSTRUCTIONS
 80 |     
 81 |     ADC = "1",
 82 |     ADD = "1",
 83 |     ADIW = "2",
 84 |     AND = "1",
 85 |     ANDI = "1",
 86 |     CBR = "1",
 87 |     CLR = "1",
 88 |     COM = "1",
 89 |     DEC = "1",
 90 |     EOR = "1",
 91 |     FMUL = "2",
 92 |     FMULS = "2",
 93 |     FMULSU = "2",
 94 |     INC = "1",
 95 |     MUL = "2",
 96 |     MULS = "2",
 97 |     MULSU = "2",
 98 |     NEG = "1",
 99 |     OR = "1",
100 |     ORI = "1",
101 |     SBC = "1",
102 |     SBCI = "1",
103 |     SBIW = "2",
104 |     SBR = "1",
105 |     SER = "1",
106 |     SUB = "1",
107 |     SUBI = "1",
108 |     TST = "1",
109 | 
110 |     
111 |     -- BRANCH INSTRUCTIONS
112 |     
113 |     BRBC = "1/2",
114 |     BRBS = "1/2",
115 |     BRCC = "1/2",
116 |     BRCS = "1/2",
117 |     BREQ = "1/2",
118 |     BRGE = "1/2",
119 |     BRHC = "1/2",
120 |     BRHS = "1/2",
121 |     BRID = "1/2",
122 |     BRIE = "1/2",
123 |     BRLO = "1/2",
124 |     BRLT = "1/2",
125 |     BRMI = "1/2",
126 |     BRNE = "1/2",
127 |     BRPL = "1/2",
128 |     BRSH = "1/2",
129 |     BRTC = "1/2",
130 |     BRTS = "1/2",
131 |     BRVC = "1/2",
132 |     BRVS = "1/2",
133 |     CALL = "4",
134 |     CP = "1",
135 |     CPC = "1",
136 |     CPI = "1",
137 |     CPSE = "1/2/3",
138 |     ICALL = "3",
139 |     IJMP = "2",
140 |     JMP = "3",
141 |     RCALL = "3",
142 |     RET = "4",
143 |     RETI = "4",
144 |     RJMP = "2",
145 |     SBIC = "1/2/3",
146 |     SBIS = "1/2/3",
147 |     SBRC = "1/2/3",
148 |     SBRS = "1/2/3",
149 | 
150 |     
151 |     -- BIT AND BIT-TEST INSTRUCTIONS
152 |     
153 |     ASR = "1",
154 |     BCLR = "1",
155 |     BLD = "1",
156 |     BSET = "1",
157 |     BST = "1",
158 |     CBI = "2",
159 |     CLC = "1",
160 |     CLH = "1",
161 |     CLI = "1",
162 |     CLN = "1",
163 |     CLS = "1",
164 |     CLT = "1",
165 |     CLV = "1",
166 |     CLZ = "1",
167 |     LSL = "1",
168 |     LSR = "1",
169 |     ROL = "1",
170 |     ROR = "1",
171 |     SBI = "2",
172 |     SEC = "1",
173 |     SEH = "1",
174 |     SEI = "1",
175 |     SEN = "1",
176 |     SES = "1",
177 |     SET = "1",
178 |     SEV = "1",
179 |     SEZ = "1",
180 |     SWAP = "1",
181 | 
182 |     
183 |     -- DATA TRANSFER INSTRUCTIONS
184 |     
185 |     IN = "1",
186 |     LD = "2",
187 |     LDD = "2",
188 |     LDI = "1",
189 |     LDS = "2",
190 |     LPM = "3",
191 |     MOV = "1",
192 |     MOVW = "1",
193 |     OUT = "1",
194 |     POP = "2",
195 |     PUSH = "2",
196 |     ST = "2",
197 |     STD = "2",
198 |     STS = "2",
199 | 
200 |     -- MCU CONTROL INSTRUCTIONS
201 |     
202 |     NOP = "1",
203 |     SLEEP = "1",
204 |     WDR = "1",
205 | 
206 | }  -- end of cycles table
207 | 
208 | 
209 | function lookupCycles (instruction)
210 | 
211 |   local count = cycles [instruction]
212 |   if count then
213 |     Tell ("   (", count, ")")
214 |   else
215 |     Tell ("    <unknown>")
216 |   end -- if
217 | 
218 | end -- lookupCycles
219 | 
220 | ]]>
221 | </script>
222 | 
223 | 
224 | </muclient>
225 | 


--------------------------------------------------------------------------------
/Current_Output_Window.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Current_Output_Window"
  7 |    author="Nick Gammon"
  8 |    id="391192793248409895090099"
  9 |    language="Lua"
 10 |    purpose="Redirects recent output to a miniwindow"
 11 |    date_written="2009-02-05 17:00"
 12 |    date_modified="2009-07-20"
 13 |    save_state="y"
 14 |    requires="4.42"
 15 |    version="2.0"
 16 |    >
 17 | 
 18 | </plugin>
 19 | 
 20 | <timers>
 21 |   <timer second="0.50" 
 22 |          enabled="y" 
 23 |          script="heartbeat"
 24 |          >
 25 |   </timer>
 26 | </timers>
 27 | 
 28 | 
 29 | <!--  Script  -->
 30 | 
 31 | 
 32 | <script>
 33 | <![CDATA[
 34 | 
 35 | -- configuration
 36 | 
 37 | -- number of lines to show
 38 | MAX_LINES = 20
 39 | 
 40 | -- font
 41 | FONT_NAME = "Dina"
 42 | FONT_SIZE = 8
 43 | 
 44 | -- where to put the window
 45 | WINDOW_POSITION = 6  -- see below (6 is top right)
 46 | 
 47 | --[[
 48 | Useful positions:
 49 | 
 50 | 4 = top left
 51 | 5 = center left-right at top
 52 | 6 = top right
 53 | 7 = on right, center top-bottom
 54 | 8 = on right, at bottom
 55 | 9 = center left-right at bottom
 56 | --]]
 57 | 
 58 | 
 59 | -- colours
 60 | WINDOW_BACKGROUND_COLOUR = ColourNameToRGB ("khaki")
 61 | WINDOW_TEXT_COLOUR = ColourNameToRGB ("black")
 62 | 
 63 | -- offset of text from edge
 64 | TEXT_INSET = 5
 65 | 
 66 | -- where to store the trace line
 67 | lines = {}  -- table of recent trace lines
 68 | 
 69 | -- display one line
 70 | function Display_Line (line, text)
 71 | 
 72 |   local left = TEXT_INSET
 73 |   local top = (line - 1) * font_height + TEXT_INSET
 74 |   
 75 |   WindowText (win, "f", text, left, top, window_width - TEXT_INSET, 0, WINDOW_TEXT_COLOUR)
 76 |   
 77 | end -- Display_Line
 78 | 
 79 | function add_line (line)
 80 |   -- remove first line if filled up
 81 |   if #lines >= MAX_LINES then
 82 |     table.remove (lines, 1)
 83 |   end -- if 
 84 | 
 85 |   -- add new line
 86 |   table.insert (lines, line)
 87 | 
 88 | end -- add_line
 89 | 
 90 | -- here on output to display
 91 | function OnPluginScreendraw (type, log, line)
 92 | 
 93 |   -- blank existing window contents
 94 |   WindowRectOp (win, 2, 0, 0, 0, 0, WINDOW_BACKGROUND_COLOUR)
 95 |   
 96 |   -- draw drag bar rectangle
 97 |   WindowRectOp (win, 2, 0, 0, 0, font_height, ColourNameToRGB ("darkgoldenrod"))
 98 |     
 99 |   -- wrap long lines, at a space if possible
100 |   while #line > wrap_column do
101 |   
102 |     -- find a space not followed by a space, closest to the end of the line
103 |     local col = string.find (line:sub (1, wrap_column), "%s%S*$")
104 |     
105 |     if col and col > 2 then
106 |       col = col - 1  -- use the space to indent
107 |     else
108 |       col = wrap_column  -- just cut off at wrap_column
109 |     end -- if
110 | 
111 |     add_line (line:sub (1, col))
112 |     line = line:sub (col + 1) 
113 |     
114 |   end -- while line > max
115 |   
116 |   -- add remainder of line
117 |   add_line (line)
118 |   
119 |   local sz = WindowTextWidth (win, "fb", "Recent Output")
120 |   WindowText (win, "fb", "Recent Output", (window_width - sz) / 2, 0, window_width - TEXT_INSET, 0, WINDOW_TEXT_COLOUR)
121 |   
122 |   -- display all lines
123 |   for k, v in ipairs (lines) do
124 |     Display_Line (k + 1, v)
125 |   end -- for
126 | 
127 | end -- end OnPluginScreendraw
128 | 
129 | 
130 | -- hide window on removal
131 | function OnPluginClose ()
132 |   WindowShow (win,  false)  -- hide it
133 | end -- OnPluginClose
134 | 
135 | -- hide window on disable
136 | function OnPluginDisable ()
137 |   WindowShow (win,  false)  -- hide it
138 | end -- OnPluginDisable
139 | 
140 | -- show window on enable
141 | function OnPluginEnable ()
142 |   if #lines > 0 then
143 |     WindowShow (win,  true)  -- show it
144 |   end -- if
145 | end -- OnPluginEnable
146 | 
147 | function heartbeat (timername)
148 |   
149 |   if GetInfo (113) then
150 |     -- display window if output window paused and we have something to show
151 |     WindowShow (win,  GetInfo (114) and #lines > 0)
152 |   end -- if world active
153 |   
154 | end -- heartbeat
155 | 
156 | function OnPluginSaveState ()
157 |   -- save window current location for next time  
158 |   movewindow.save_state (win)
159 | end -- function OnPluginSaveState
160 | 
161 | -- startup stuff
162 | 
163 | win = GetPluginID ()  -- get a unique name
164 | 
165 | -- make the window
166 | WindowCreate (win, 0, 0, 1, 1, WINDOW_POSITION, 0, 
167 |                          WINDOW_BACKGROUND_COLOUR)  -- create window
168 |                
169 | -- grab a font
170 | WindowFont (win, "f", FONT_NAME, FONT_SIZE) -- define font
171 | WindowFont (win, "fb", FONT_NAME, FONT_SIZE, true) -- define font
172 | 
173 | -- work out how high and wide it is
174 | font_height = WindowFontInfo (win, "f", 1)   -- height of the font  
175 | wrap_column = GetOption ("wrap_column")
176 | 
177 | window_width = (wrap_column * WindowFontInfo (win, "f", 6)) + (TEXT_INSET * 2)
178 | window_height = (MAX_LINES + 1) * font_height + TEXT_INSET * 2  -- one more line for title
179 | 
180 | require "movewindow"  -- load the movewindow.lua module
181 | 
182 | -- install the window movement handler, get back the window position
183 | windowinfo = movewindow.install (win, WINDOW_POSITION)
184 |  
185 | -- remake the window with the correct width
186 | WindowCreate (win, 
187 |                windowinfo.window_left, 
188 |                windowinfo.window_top, 
189 |                window_width, window_height,              
190 |                windowinfo.window_mode,   
191 |                windowinfo.window_flags,
192 |                WINDOW_BACKGROUND_COLOUR) 
193 | 
194 | -- add the drag handler so they can move the window around
195 | movewindow.add_drag_handler (win, 0, 0, 0, font_height)
196 | 
197 | fonts = utils.getfontfamilies ()
198 | 
199 | if not fonts.Dina then
200 |   AddFont (GetInfo (66) .. "\\Dina.fon")
201 | end -- if Dina not installed
202 |       
203 | ]]>
204 | </script>
205 | 
206 | </muclient>
207 | 
208 | 


--------------------------------------------------------------------------------
/Encrypted_Chat.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Encrypted_Chat"
  7 |    author="Nick Gammon"
  8 |    id="af3df750c88cf6defc48799a"
  9 |    language="Lua"
 10 |    purpose="Encrypt chat sessions"
 11 |    date_written="2004-12-10 09:25"
 12 |    date_modified="2004-12-10 11:50"
 13 |    requires="3.58"
 14 |    version="1.0"
 15 |    >
 16 | 
 17 | <description trim="y">
 18 | Converts chat sessions to encrypted for the users and keys nominated in the plugin.
 19 | </description>
 20 | 
 21 | </plugin>
 22 | 
 23 | <!--  Script  -->
 24 | 
 25 | <script>
 26 | <![CDATA[
 27 | 
 28 | -- amend list of accepted users here (case sensitive)
 29 | -- for each user you specify the key you use to exchange messages
 30 | 
 31 | keys = 
 32 |   {
 33 |   Nick = "swordfish",
 34 |   Peter = "tunafish",
 35 |   }
 36 | 
 37 | 
 38 | -- routine to compress, encrypt and encode a string
 39 | 
 40 | function compress_encrypt_encode (s, k)
 41 |   return utils.base64encode (aes.encrypt (utils.compress (s), k))
 42 | end -- compress_encrypt_encode 
 43 | 
 44 | -- routine to decode, decrypt, and decompress a string
 45 | 
 46 | function decode_decrypt_uncompress (s, k)
 47 |   return utils.decompress (aes.decrypt (utils.base64decode (s), k))
 48 | end  -- decode_decrypt_uncompress 
 49 | 
 50 | function OnPluginInstall ()
 51 | 
 52 |   if not loadlib then
 53 |     error ("loadlib not available - " ..
 54 |            "please enable in global preferences")
 55 |   end -- no loadlib
 56 | 
 57 |   -- install AES encryption library
 58 | 
 59 |   if not aes then -- if not installed
 60 |     f, e = loadlib ("aeslib.dll", "luaopen_aes")
 61 |     if e then
 62 |       error ("Could not install Encrypted Chat plugin " ..
 63 |              "(loading aeslib.dll): " .. e)
 64 |     end -- if
 65 |     f ()  -- install it
 66 |   end -- if not installed already
 67 | 
 68 |   Note "Encrypted Chat installed"
 69 | 
 70 | end -- function OnPluginInstall 
 71 | 
 72 | -- decrypt incoming messages
 73 | 
 74 | function OnPluginChatMessage (id, message, text)
 75 | 
 76 |   user = GetChatInfo (id, 2) -- find who they are
 77 | 
 78 |   if message >= 204 and message <= 206 then
 79 |     key = keys [user]
 80 |     if key then
 81 |       status, result = pcall (decode_decrypt_uncompress, text, key)
 82 |       if status then
 83 |         ChatNote (message - 200, result) 
 84 |       else
 85 |         ColourNote ("white", "red", "Cannot decrypt message from " .. user)
 86 |       end -- bad result
 87 |       return false  -- we have handled it
 88 |     end -- one of our known users
 89 |   end -- if special message
 90 |  
 91 |   return true  -- normal processing
 92 | 
 93 | end -- function OnPluginChatMessage
 94 | 
 95 | -- encrypt outgoing messages
 96 | 
 97 | function OnPluginChatMessageOut (id, message, text)
 98 | 
 99 |   user = GetChatInfo (id, 2) -- find who they are
100 |   if message >= 4 and message <= 6 then
101 |     key = keys [user]
102 |     if key then
103 |       ChatMessage (id, message + 200, 
104 |         compress_encrypt_encode (text, key)) 
105 |       return false  -- we have handled it
106 |     end -- one of our known users
107 |   end -- if message for everybody/personal/group
108 |  
109 |   return true  -- normal processing
110 | 
111 | end -- function
112 | 
113 | ]]>
114 | </script>
115 | 
116 | </muclient>
117 | 


--------------------------------------------------------------------------------
/Exits_Window.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <!-- MuClient version 4.37 -->
  5 | 
  6 | <muclient>
  7 | <plugin
  8 |    name="Exits_Window"
  9 |    author="Nick Gammon"
 10 |    id="fd1a20e303e48b78eceb103c"
 11 |    language="Lua"
 12 |    purpose="Redirects exits to a miniwindow"
 13 |    date_written="2009-02-03 17:00"
 14 |    requires="4.37"
 15 |    version="1.0"
 16 |    >
 17 | 
 18 | </plugin>
 19 | 
 20 | <!--  Triggers  -->
 21 | 
 22 | <triggers>
 23 |   <trigger
 24 |    enabled="y"
 25 |    match="Exits: *."
 26 |    script="exits_line"
 27 |    sequence="100"
 28 |   >
 29 |   </trigger>
 30 | </triggers>
 31 | 
 32 | <!--  Script  -->
 33 | 
 34 | 
 35 | <script>
 36 | <![CDATA[
 37 | 
 38 | -- configuration
 39 | 
 40 | -- font
 41 | FONT_NAME = "Lucida Console"
 42 | FONT_SIZE = 9
 43 | 
 44 | -- where to put the window
 45 | WINDOW_POSITION = 4  -- see below (4 is top left)
 46 | 
 47 | --[[
 48 | Useful positions:
 49 | 
 50 | 4 = top left
 51 | 5 = center left-right at top
 52 | 6 = top right
 53 | 7 = on right, center top-bottom
 54 | 8 = on right, at bottom
 55 | 9 = center left-right at bottom
 56 | --]]
 57 | 
 58 | 
 59 | -- colours
 60 | WINDOW_BACKGROUND_COLOUR = ColourNameToRGB ("olivedrab")
 61 | WINDOW_TEXT_COLOUR = ColourNameToRGB ("#002800")
 62 | 
 63 | -- offset of text from edge
 64 | HORIZONTAL_OFFSET = 5
 65 | VERTICAL_OFFSET = 2
 66 | 
 67 | -- here on getting an exits line
 68 | function exits_line (name, line, wildcards, styles)
 69 | 
 70 |   exits = line
 71 | 
 72 |   width   = WindowTextWidth (win, "f", exits) 
 73 | 
 74 |   -- make the window again the correct size
 75 |   WindowCreate (win, 0, 0, 
 76 |                 width + (HORIZONTAL_OFFSET * 2), 
 77 |                 font_height + (VERTICAL_OFFSET * 2), 
 78 |                 WINDOW_POSITION, 0, 
 79 |                 WINDOW_BACKGROUND_COLOUR)  -- create window
 80 | 
 81 |   WindowText (win, "f", exits, HORIZONTAL_OFFSET, VERTICAL_OFFSET, 0, 0, WINDOW_TEXT_COLOUR)
 82 |                     
 83 |   -- show window
 84 |   WindowShow (win,  true)  -- show it 
 85 |   
 86 | end -- end exits_line
 87 | 
 88 | -- hide window on removal
 89 | function OnPluginClose ()
 90 |   WindowShow (win,  false)  -- hide it
 91 | end -- OnPluginClose
 92 | 
 93 | -- hide window on disable
 94 | function OnPluginDisable ()
 95 |   WindowShow (win,  false)  -- hide it
 96 | end -- OnPluginDisable
 97 | 
 98 | -- show window on enable
 99 | function OnPluginEnable ()
100 |   if exits then
101 |     WindowShow (win,  true)  -- show it
102 |   end -- if
103 | end -- OnPluginEnable
104 | 
105 | -- startup stuff
106 | 
107 | win = GetPluginID ()  -- get a unique name
108 | 
109 | -- make the window with zero size to load the font into
110 | WindowCreate (win, 0, 0, 0, 0, WINDOW_POSITION, 0, 
111 |               WINDOW_BACKGROUND_COLOUR)  -- create window
112 |                
113 | -- grab a font
114 | WindowFont (win, "f", FONT_NAME, FONT_SIZE) -- define font
115 | 
116 | -- work out how high it is
117 | font_height = WindowFontInfo (win, "f", 1)   -- height of the font  
118 | 
119 | ]]>
120 | </script>
121 | 
122 | 
123 | </muclient>
124 | 


--------------------------------------------------------------------------------
/Experience_Bar.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <!-- Plugin "Health_Bar" generated by Plugin Wizard -->
  5 | 
  6 | <muclient>
  7 | <plugin
  8 |    name="Experience_Bar"
  9 |    author="Nick Gammon"
 10 |    id="7e2bf8628a8f51bf2115d2f0"
 11 |    language="Lua"
 12 |    purpose="Shows XP to level"
 13 |    date_written="2009-02-08"
 14 |    requires="4.35"
 15 |    version="1.1"
 16 |    >
 17 | <description trim="y">
 18 | <![CDATA[
 19 | Install this plugin to show an how close you are to levelling.
 20 | ]]>
 21 | </description>
 22 | 
 23 | </plugin>
 24 | 
 25 | <!--  Triggers  -->
 26 | 
 27 | <triggers>
 28 |   <trigger
 29 |    enabled="y"
 30 |    match="&lt;*hp *m *mv */*xp&gt; "
 31 |    script="do_prompt"
 32 |    sequence="100"
 33 |   >
 34 |   </trigger>
 35 | </triggers>
 36 | 
 37 | 
 38 | <!--  Script  -->
 39 | 
 40 | 
 41 | <script>
 42 | <![CDATA[
 43 | 
 44 | win = GetPluginID ()  -- get a unique name
 45 | 
 46 | -- configuration
 47 | 
 48 | GAUGE_HEIGHT = 11
 49 | NUMBER_OF_TICKS = 20
 50 | 
 51 | BACKGROUND_COLOUR = ColourNameToRGB "gray"
 52 | BOX_COLOUR = ColourNameToRGB "dodgerblue"
 53 | 
 54 | -- draw the bar here, on getting the prompt, or window resize
 55 | function draw_bar ()
 56 | 
 57 |   -- check numbers for validity
 58 |   if not current_xp or  
 59 |      not max_xp or
 60 |      current_xp < 0 or
 61 |      max_xp <= 0 then
 62 |      return
 63 |   end -- if
 64 | 
 65 |   -- cannot have more than max xp
 66 |   if current_xp > max_xp then
 67 |      current_xp = max_xp
 68 |   end -- if
 69 |   
 70 |  -- width is window width minus 2
 71 |  local gauge_width = GetInfo (281) - 2
 72 |  
 73 |  -- make room for the bar
 74 |  local bottom_margin = GetInfo (275)
 75 |  
 76 |  -- adjust text rectangle, keeping existing settings where possible
 77 |  if bottom_margin == 0 or 
 78 |     (bottom_margin < 0 and math.abs (bottom_margin) < (GAUGE_HEIGHT + 2)) then
 79 |    TextRectangle(GetInfo (272), GetInfo (273),   -- left, top
 80 |                   GetInfo (274), -- right
 81 |                   - (GAUGE_HEIGHT + 2),  -- bottom (gauge height plus 2 more)
 82 |                   GetInfo (276), GetInfo (282) or 0, GetInfo (277),  --  BorderOffset, BorderColour, BorderWidth
 83 |                   GetInfo (278), GetInfo (279)) -- OutsideFillColour, OutsideFillStyle
 84 |  end -- if
 85 |   
 86 |  -- make the miniwindow
 87 |  WindowCreate (win, 
 88 |              0, 0,   -- left, top (auto-positions)
 89 |              gauge_width,     -- width
 90 |              GAUGE_HEIGHT,  -- height
 91 |              10,       -- auto-position: bottom left
 92 |              0,  -- flags
 93 |              BACKGROUND_COLOUR) 
 94 |   
 95 |   WindowRectOp (win, 2, 0, 0, 0, 0, BACKGROUND_COLOUR)  -- fill entire box
 96 |  
 97 |   -- how far through the level we are 
 98 |   local done = current_xp / max_xp
 99 |   local bar_width = gauge_width * done
100 |  
101 |   -- box size must be > 0 or WindowGradient fills the whole thing 
102 |   if math.floor (bar_width) > 0 then
103 |     
104 |     -- top half
105 |     WindowGradient (win, 0, 0, 
106 |                     bar_width, GAUGE_HEIGHT / 2, 
107 |                     0x000000,  -- black
108 |                     BOX_COLOUR, 
109 |                     2)   -- vertical gradient
110 |     
111 |     -- bottom half
112 |     WindowGradient (win, 0, GAUGE_HEIGHT / 2, 
113 |                     bar_width, 0, 
114 |                     BOX_COLOUR,
115 |                     0x000000,  -- black
116 |                     2)   -- vertical gradient
117 | 
118 |   end -- any experience to speak of
119 |   
120 |   -- show ticks
121 |   local ticks_at = gauge_width / NUMBER_OF_TICKS
122 |   
123 |   -- ticks
124 |   for i = 1, NUMBER_OF_TICKS do
125 |     WindowLine (win, i * ticks_at, 0, i * ticks_at, GAUGE_HEIGHT, ColourNameToRGB ("silver"), 0, 1)
126 |   end -- for
127 | 
128 |   -- draw a box around it
129 |   check (WindowRectOp (win, 1, 0, 0, 0, 0, ColourNameToRGB ("lightgrey")))  -- frame entire box
130 |     
131 |   -- ensure window visible
132 |   WindowShow (win, true)
133 |   
134 | end -- draw_bar
135 | 
136 | function do_prompt (name, line, wildcards, styles)
137 |  
138 |   -- CHANGE HERE if your prompt is different (eg. different wildcard numbers)
139 |   -- (string.gsub removes commas from the experience figures, if necessary)
140 | 
141 |   current_xp = tonumber ((string.gsub (wildcards [4], ",", "")))
142 |   max_xp = tonumber ((string.gsub (wildcards [5], ",", ""))) + (current_xp or 0)
143 |   
144 |   draw_bar ()
145 |   
146 | end -- do_prompt
147 | 
148 | function OnPluginWorldOutputResized ()
149 |   draw_bar ()
150 | end -- function
151 |  
152 | -- hide window on removal
153 | function OnPluginClose ()
154 |   WindowShow (win,  false)  -- hide it
155 | end -- OnPluginClose
156 | 
157 | -- hide window on disable
158 | function OnPluginDisable ()
159 |   WindowShow (win,  false)  -- hide it
160 | end -- OnPluginDisable
161 | 
162 | 
163 | ]]>
164 | </script>
165 | 
166 | </muclient>
167 | 


--------------------------------------------------------------------------------
/Experience_Bar_Telnet.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Experience_Bar_Telnet"
  7 |    author="Nick Gammon"
  8 |    id="81ea2275b48f841799d27e87"
  9 |    language="Lua"
 10 |    purpose="Shows XP to level"
 11 |    date_written="2010-02-17"
 12 |    requires="4.40"
 13 |    version="2.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Install this plugin to show an how close you are to levelling.
 18 | ]]>
 19 | </description>
 20 | 
 21 | </plugin>
 22 | 
 23 | <!--  Script  -->
 24 | 
 25 | 
 26 | <script>
 27 | <![CDATA[
 28 | 
 29 | win = GetPluginID ()  -- get a unique name
 30 | 
 31 | -- configuration
 32 | 
 33 | GAUGE_HEIGHT = 11
 34 | NUMBER_OF_TICKS = 19  -- (ie. 20 bars)
 35 | 
 36 | BACKGROUND_COLOUR = 0x808080
 37 | BOX_COLOUR = ColourNameToRGB "dodgerblue"
 38 | 
 39 | require "gauge"
 40 | 
 41 | -- draw the bar here, on getting the status info, or window resize
 42 | function draw_bar ()
 43 | 
 44 |   if not pct_xp then
 45 |   
 46 |     -- check numbers for validity
 47 |     if not cur_xp or  
 48 |        not max_xp or
 49 |        cur_xp < 0 or
 50 |        max_xp <= 0 then
 51 |        return
 52 |     end -- if
 53 |   
 54 |     -- cannot have more than max xp
 55 |     if cur_xp > max_xp then
 56 |        cur_xp = max_xp
 57 |     end -- if
 58 |   end -- not percentage
 59 |     
 60 |   -- width is window width minus 2
 61 |   local gauge_width = GetInfo (281) - 2  -- GetInfo (281) = Output window client width
 62 |   
 63 |   -- make room for the bar
 64 |   local bottom_margin = GetInfo (275)  -- = Text rectangle - bottom
 65 |   
 66 |   -- adjust text rectangle, keeping existing settings where possible
 67 |   if bottom_margin == 0 or 
 68 |     (bottom_margin < 0 and math.abs (bottom_margin) < (GAUGE_HEIGHT + 2)) then
 69 |    TextRectangle(GetInfo (272), GetInfo (273),   -- left, top
 70 |                   GetInfo (274), -- right
 71 |                   - (GAUGE_HEIGHT + 2),  -- bottom (gauge height plus 2 more)
 72 |                   GetInfo (276), GetInfo (282) or 0, GetInfo (277),  --  BorderOffset, BorderColour, BorderWidth
 73 |                   GetInfo (278), GetInfo (279)) -- OutsideFillColour, OutsideFillStyle
 74 |   end -- if
 75 |   
 76 |   -- make the miniwindow
 77 |   WindowCreate (win, 
 78 |              0, 0,   -- left, top (auto-positions)
 79 |              gauge_width,     -- width
 80 |              GAUGE_HEIGHT,  -- height
 81 |              10,       -- auto-position: bottom left
 82 |              0,  -- flags
 83 |              BACKGROUND_COLOUR) 
 84 |              
 85 |   local cur, max = cur_xp, max_xp
 86 |   
 87 |   if pct_xp then
 88 |     cur = pct_xp
 89 |     max = nil
 90 |   end -- if percentage given
 91 |   
 92 |   gauge (win, "XP", cur, max, 
 93 |           0, 0, gauge_width, GAUGE_HEIGHT,
 94 |           BOX_COLOUR, BACKGROUND_COLOUR,
 95 |           NUMBER_OF_TICKS)
 96 | 
 97 |   -- ensure window visible
 98 |   WindowShow (win, true)
 99 |   
100 | end -- draw_bar
101 | 
102 | 
103 | function OnPluginTelnetOption (option)
104 | 
105 |   local t = {}  -- incoming server variables will go into table t
106 |   setfenv (assert (loadstring (option)), t) () -- compile and load into t
107 |   
108 |   if not t.group then
109 |     return
110 |   end -- nothing about groups here
111 |   
112 |   local me
113 |   for k, v in ipairs (t.group) do
114 |     if v.me then
115 |       me = v
116 |       table.remove (t.group, k)
117 |       break
118 |     end -- if found myself
119 |   end -- for
120 |   
121 |   -- hopefully found myself
122 |   if not me then
123 |     return
124 |   end -- if
125 |   
126 |   -- update the bar if we received updated xp
127 |   if me.xp then
128 |     -- if current or max changes, save it  
129 |     cur_xp = me.xp.cur or cur_xp
130 |     max_xp = me.xp.max or max_xp
131 |     pct_xp = me.xp.pct or pct_xp
132 |     draw_bar ()
133 |   end -- if
134 |   
135 | end -- function OnPluginTelnetOption
136 | 
137 | function OnPluginTelnetRequest (type, data)
138 |   if type == 102 and data == "WILL" then
139 |     return true
140 |   end -- if
141 | end -- function OnPluginTelnetRequest
142 | 
143 | function OnPluginWorldOutputResized ()
144 |   draw_bar ()
145 | end -- function
146 |  
147 | -- hide window on removal
148 | function OnPluginClose ()
149 |   WindowShow (win,  false)  -- hide it
150 | end -- OnPluginClose
151 | 
152 | -- hide window on disable
153 | function OnPluginDisable ()
154 |   WindowShow (win,  false)  -- hide it
155 | end -- OnPluginDisable
156 | 
157 | -- show window on enable
158 | function OnPluginEnable ()
159 |   if (cur_xp and max_xp) or pct_xp then
160 |     WindowShow (win,  true)  -- show it
161 |   end -- if
162 | end -- OnPluginEnable
163 | 
164 | ]]>
165 | </script>
166 | 
167 | </muclient>
168 | 


--------------------------------------------------------------------------------
/GMCP_handler_NJG.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | 
  6 | <plugin
  7 |    name="GMCP_handler_NJG"
  8 |    author="Nick Gammon"
  9 |    id="74f8c420df7d59ad5aa66246"
 10 |    language="Lua"
 11 |    purpose="Handle GMCP messages and broadcast data"
 12 |    save_state="y"
 13 |    date_written="2015-05-06"
 14 |    requires="4.59"
 15 |    version="1.0"
 16 | >
 17 | <description trim="y">
 18 | 
 19 |   GMCP handler for Aardwolf and IRE MUDs.
 20 |   
 21 |   Type: 'gmcpdebug 1' for debugging info.
 22 |   Type: 'gmcpdebug 0' to turn debugging off.
 23 | 
 24 | </description>
 25 | 
 26 | </plugin>
 27 | 
 28 | <aliases>
 29 | <alias
 30 |    script="gmcpdebug"
 31 |    match="^gmcpdebug (.*)?$"
 32 |    enabled="y"
 33 |    regexp="y"
 34 |    sequence="100"
 35 |    ignore_case="y"
 36 | ></alias>
 37 | 
 38 | </aliases>
 39 | 
 40 | 
 41 | <script>
 42 | <![CDATA[
 43 | 
 44 | local IAC, SB, SE, DO = 0xFF, 0xFA, 0xF0, 0xFD
 45 | local GMCP      = 201
 46 | local GMCPDebug = tonumber(GetVariable("GMCPDebug")) or 0
 47 | 
 48 | function gmcpdebug(name, line, wildcards)
 49 |    newval = tonumber(wildcards[1])
 50 |    if not newval or newval > 2 or newval < 0 then
 51 |       ColourNote("darkorange", "", "GMCPDebug valid values are: 0 - off, 1 - simple, 2 - verbose")
 52 |       return
 53 |    end
 54 |    GMCPDebug = newval
 55 |    local msg = "off"
 56 |    if GMCPDebug == 1 then
 57 |       msg = "simple"
 58 |    elseif GMCPDebug == 2 then
 59 |       msg = "verbose"
 60 |    end
 61 |    ColourNote ("darkorange", "", "GMCPDebug: " .. msg)
 62 | end
 63 |  
 64 | ---------------------------------------------------------------------------------------------------
 65 | -- Mushclient callback function when telnet SB data received.
 66 | ---------------------------------------------------------------------------------------------------
 67 | function OnPluginTelnetSubnegotiation (msg_type, data)
 68 | 
 69 |    if msg_type ~= GMCP then
 70 |       return
 71 |    end -- if not GMCP
 72 |   
 73 |    -- debugging
 74 |    if GMCPDebug > 0 then 
 75 |      ColourNote ("darkorange", "", data) 
 76 |    end
 77 | 
 78 |    message, params = string.match (data, "([%a.]+)%s+(.*)")
 79 |   
 80 |    -- if valid format, broadcast to all interested plugins
 81 |    if message then
 82 |      BroadcastPlugin(1, data)
 83 |    end -- if
 84 |    
 85 | end -- function OnPluginTelnetSubnegotiation
 86 | 
 87 | 
 88 | function OnPluginSaveState()
 89 |    SetVariable("GMCPDebug", GMCPDebug)
 90 | end
 91 | 
 92 | function OnPluginTelnetRequest (msg_type, data)
 93 |    if msg_type == GMCP and data == "WILL" then
 94 |       return true
 95 |    end -- if
 96 |   
 97 |    if msg_type == GMCP and data == "SENT_DO" then
 98 |       Note ("Enabling GMCP.") 
 99 |       -- This hard-coded block may need to be made into a config table as we add more message types.
100 |       Send_GMCP_Packet (string.format ('Core.Hello { "client": "MUSHclient", "version": "%s" }', Version()))
101 |       Send_GMCP_Packet ('Core.Supports.Set [ "Char 1", "Comm 1", "Room 1" ]')
102 |       return true
103 |    end -- if GMCP login needed (just sent DO)
104 | 
105 |    return false
106 | end -- function OnPluginTelnetRequest
107 | 
108 | function OnPluginDisable()
109 |    EnablePlugin(GetPluginID(), true)
110 |    ColourNote("white", "blue", "You are not allowed to disable the "..
111 |    GetPluginInfo(GetPluginID(), 1).." plugin. It is necessary for other plugins.")
112 | end
113 | 
114 | ---------------------------------------------------------------------------------------------------
115 | -- Helper function to send GMCP data.
116 | ---------------------------------------------------------------------------------------------------
117 | function Send_GMCP_Packet (what)
118 |    assert (what, "Send_GMCP_Packet passed a nil message.")
119 | 
120 |    SendPkt (string.char (IAC, SB, GMCP) .. 
121 |            (string.gsub (what, "\255", "\255\255")) ..  -- IAC becomes IAC IAC
122 |             string.char (IAC, SE))
123 | end -- Send_GMCP_Packet
124 | 
125 | ]]>
126 | </script>
127 | </muclient>
128 | 


--------------------------------------------------------------------------------
/GMCP_message_receiver_test.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="GMCP_message_receiver_test"
  7 |    author="Nick Gammon"
  8 |    id="b35ff32bccfac9d02023ad3b"
  9 |    language="Lua"
 10 |    purpose="Test OnPluginBroadcast for GMCP"
 11 |    date_written="2015-05-06 08:00:31"
 12 |    requires="4.90"
 13 |    version="1.0"
 14 |    >
 15 | 
 16 | </plugin>
 17 | 
 18 | <!--  Script  -->
 19 | 
 20 | <script>
 21 | <![CDATA[
 22 | 
 23 | require "tprint"
 24 | require "json"
 25 |   
 26 | function getStats (what)
 27 |   result, value = CallPlugin("3e7dedbe37e44942dd46d264", "gmcpval", what)
 28 |   if result ~= 0 then
 29 |     ColourNote ("orange", "", "Warning: Could not get stats for " .. what)
 30 |     return nil
 31 |   end -- if
 32 |   return value
 33 | end -- getStats
 34 | 
 35 | function gotCharacterVitals (vitals)
 36 |   -- tprint (vitals)
 37 | 
 38 |  -- example:
 39 |  
 40 |   print ("HP is now:", tonumber (vitals.hp))
 41 |   
 42 | end  -- gotCharacterVitals
 43 | 
 44 | function gotCharacterStatus (status)
 45 | --  tprint (status)
 46 | end  -- gotCharacterStatus
 47 | 
 48 | function gotRoomInfo (info)
 49 | --  tprint (info)
 50 | end  -- gotRoomInfo
 51 | 
 52 | function gotRoomPlayers (players)
 53 | --  tprint (players)
 54 | end  -- gotRoomPlayers
 55 | 
 56 | function gotWrongDirection (dir)
 57 | --  print ("Could not head: ", dir [1])
 58 |   Sound ("ding.wav")
 59 | end -- gotWrongDirection
 60 | 
 61 | function gotAddPlayer (which)
 62 |   tprint (which)
 63 | end -- gotAddPlayer
 64 | 
 65 | function gotRemovePlayer (which)
 66 |   tprint (which)
 67 | end -- gotRemovePlayer
 68 | 
 69 | function gotCharacterName (name)
 70 |   tprint (name)
 71 | end -- gotCharacterName
 72 | 
 73 | function gotCharacterStatusVars (status)
 74 |   -- tprint (status)
 75 | end -- gotCharacterStatusVars
 76 | 
 77 | function gotCharacterAfflictionsList (affs)
 78 |   tprint (affs)
 79 | end -- gotCharacterAfflictionsList
 80 | 
 81 | function gotCharacterAfflictionsAdd (what)
 82 |   tprint (what)
 83 | end -- gotCharacterAfflictionsAdd
 84 | 
 85 | function gotCharacterDefencesList (defs)
 86 |   tprint (defs)
 87 | end -- gotCharacterDefencesList
 88 | 
 89 | function gotCharacterDefencesAdd (add)
 90 |   tprint (add)
 91 | end -- gotCharacterDefencesAdd
 92 | 
 93 | function gotCharacterAfflictionsRemove (what)
 94 |   tprint (what)
 95 | end -- gotCharacterAfflictionsRemove
 96 | 
 97 | -- WARNING: Put handlers table AFTER the handler functions
 98 | --          Make names lower case, as we do a lower-case conversion for the lookup
 99 | 
100 | handlers = {
101 |   ["char.vitals"]           = gotCharacterVitals,
102 |   ["char.status"]           = gotCharacterStatus,
103 |   ["char.name"]             = gotCharacterName,
104 |   ["char.statusvars"]       = gotCharacterStatusVars,
105 |   ["char.afflictions.list"] = gotCharacterAfflictionsList,
106 |   ["char.afflictions.add"]  = gotCharacterAfflictionsAdd,
107 |   ["char.afflictions.remove"] = gotCharacterAfflictionsRemove,
108 |   ["char.defences.list"]    = gotCharacterDefencesList,
109 |   ["char.defences.add"]     = gotCharacterDefencesAdd,
110 |   
111 |   ["room.info"]             = gotRoomInfo,
112 |   ["room.players"]          = gotRoomPlayers,
113 |   ["room.wrongdir"]         = gotWrongDirection,
114 |   ["room.removeplayer"]     = gotRemovePlayer,
115 |   ["room.addplayer"]        = gotAddPlayer,
116 |   
117 |   } -- end of handlers
118 |   
119 | function OnPluginBroadcast (msg, id, name, text)
120 |  if id == "74f8c420df7d59ad5aa66246" then  -- GMCP_handler_NJG
121 |   
122 |    -- pull out GMCP message, plus the data belonging to it
123 |    message, params = string.match (text, "([%a.]+)%s+(.*)")
124 |   
125 |    -- no match? oops!
126 |    if not message then
127 |       return
128 |    end -- if
129 |            
130 |    -- ensure we have an array or object
131 |    if not string.match (params, "^[%[{]") then
132 |       params =  "[" .. params .. "]"  -- JSON hack, make msg first element of an array.
133 |    end -- if 
134 |    
135 |    -- decode it
136 |    result = assert (json.decode (params))
137 |    
138 |    -- debugging
139 |    ColourNote ("yellow", "", "GMCP: " .. message)
140 |    
141 |    -- find a handler for this message type
142 |    local handler = handlers [message:lower ()]
143 |    
144 |    -- warn if not found
145 |    if not handler then
146 |      ColourNote ("red", "", "Warning: No handler for: " .. message)
147 |      return
148 |    end -- no handler
149 |    
150 |    -- call the handler, pass in whatever we got
151 |    handler (result)
152 |   end -- if GMCP message
153 | end -- OnPluginBroadcast
154 | 
155 | ]]>
156 | </script>
157 | 
158 | </muclient>
159 | 


--------------------------------------------------------------------------------
/Grab.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Friday, November 15, 2002, 8:52 AM -->
  4 | <!-- MuClient version 3.30 -->
  5 | 
  6 | <!-- Plugin "Grab" generated by Plugin Wizard -->
  7 | 
  8 | <!--
  9 | The plugin generates a new password every time it is installed.
 10 | -->
 11 | 
 12 | <muclient>
 13 | <plugin
 14 |    name="Grab"
 15 |    author="Nick Gammon"
 16 |    id="bc84b8aa0ece2536bbe631f9"
 17 |    language="VBscript"
 18 |    purpose="Grabs a MUSH attribute for editing"
 19 |    date_written="2002-11-15 08:49:09"
 20 |    requires="3.25"
 21 |    version="1.0"
 22 |    >
 23 | <description trim="y">
 24 | <![CDATA[
 25 | This lets you edit a MUSH attribute in the command window, and then send it back to the MUSH.
 26 | 
 27 | Usage
 28 | -----
 29 | 
 30 | 
 31 | grab item/attribute
 32 | 
 33 |   eg.  grab me/describe
 34 | 
 35 | 
 36 | The plugin will send:  @pemit/silent me=password &%2 %1=[get(%1/%2)]
 37 | 
 38 | It awaits a response, and then upon receipt places it into the command window 
 39 | for editing. Make your changes and press <enter>
 40 | 
 41 | Grab:help  <-- This help screen
 42 | 
 43 | ]]>
 44 | </description>
 45 | 
 46 | </plugin>
 47 | 
 48 | 
 49 | <!--  Triggers  -->
 50 | 
 51 | <triggers>
 52 |   <trigger
 53 |    enabled="y"
 54 |    expand_variables="y"
 55 |    match="@password *"
 56 |    omit_from_output="y"
 57 |    send_to="1"
 58 |    sequence="100"
 59 |   >
 60 |   <send>%1</send>
 61 |   </trigger>
 62 | </triggers>
 63 | 
 64 | <!--  Aliases  -->
 65 | 
 66 | <aliases>
 67 |   <alias
 68 |    match="grab */*"
 69 |    enabled="y"
 70 |    expand_variables="y"
 71 |   >
 72 |   <send>@@pemit/silent me=@password &amp;%2 %1=[get(%1/%2)]
 73 | </send>
 74 |   </alias>
 75 | </aliases>
 76 | 
 77 | <!--  Script  -->
 78 | 
 79 | 
 80 | <script>
 81 | <![CDATA[
 82 | Sub OnPluginInstall
 83 |   world.setvariable "password", world.getuniqueid
 84 | End Sub
 85 | 
 86 | ]]>
 87 | </script>
 88 | 
 89 | 
 90 | <!--  Plugin help  -->
 91 | 
 92 | <aliases>
 93 |   <alias
 94 |    script="OnHelp"
 95 |    match="Grab:help"
 96 |    enabled="y"
 97 |   >
 98 |   </alias>
 99 | </aliases>
100 | 
101 | <script>
102 | <![CDATA[
103 | Sub OnHelp (sName, sLine, wildcards)
104 |   World.Note World.GetPluginInfo (World.GetPluginID, 3)
105 | End Sub
106 | ]]>
107 | </script> 
108 | 
109 | </muclient>
110 | 


--------------------------------------------------------------------------------
/Health_Bar_Miniwindow.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Health_Bar_Miniwindow"
  7 |    author="Nick Gammon"
  8 |    id="48062dcd6b968c590df50f32"
  9 |    language="Lua"
 10 |    purpose="Shows stats in a mini window"
 11 |    date_written="2010-02-14 09:00"
 12 |    requires="4.40"
 13 |    version="2.0"
 14 |    save_state="y"
 15 |    >
 16 | <description trim="y">
 17 | <![CDATA[
 18 | Install this plugin to show an info bar with HP, Mana, 
 19 | and Movement points shown as a bar.
 20 | 
 21 | The window can be dragged to a new location with the mouse.
 22 | 
 23 | For Smaug your prompt needs to be set like this:
 24 | 
 25 | prompt <%h/%H hp %m/%M m %v/%V mv %x/%X xp> 
 26 | fprompt <%h/%H hp %m/%M m %v/%V mv %x/%X xp> 
 27 | 
 28 | ]]>
 29 | </description>
 30 | 
 31 | </plugin>
 32 | 
 33 | <!--  Triggers  -->
 34 | 
 35 | <triggers>
 36 |   <trigger
 37 |    enabled="y"
 38 |    match="^\&lt;(\d+)\s*\/(\d+)\s*hp (\d+)\s*\/(\d+)\s*m (\d+)\s*\/(\d+)\s*mv "
 39 |    regexp="y"
 40 |    script="do_prompt"
 41 |    sequence="100"
 42 |   >
 43 |   </trigger>
 44 | </triggers>
 45 | 
 46 | 
 47 | 
 48 | <!--  Script  -->
 49 | 
 50 | 
 51 | <script>
 52 | <![CDATA[
 53 | 
 54 | GAUGE_HEIGHT = 15
 55 | 
 56 | WINDOW_WIDTH = 300
 57 | WINDOW_HEIGHT = 65
 58 | NUMBER_OF_TICKS = 5
 59 | 
 60 | BACKGROUND_COLOUR = ColourNameToRGB "rosybrown"
 61 | FONT_COLOUR = ColourNameToRGB "darkred"
 62 | BORDER_COLOUR = ColourNameToRGB "#553333"
 63 | 
 64 | function DoGauge (sPrompt, current, max, Colour)
 65 | 
 66 |   if max <= 0 then 
 67 |     return 
 68 |   end -- no divide by zero
 69 |   
 70 |   -- fraction in range 0 to 1
 71 |   local Fraction = math.min (math.max (current / max, 0), 1) 
 72 |    
 73 |   local width = WindowTextWidth (win, font_id, sPrompt)
 74 |   
 75 |   WindowText (win, font_id, sPrompt, gauge_left - width, vertical, 0, 0, FONT_COLOUR)
 76 | 
 77 |   WindowRectOp (win, 2, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + GAUGE_HEIGHT, 
 78 |                           BACKGROUND_COLOUR)  -- fill entire box
 79 |   
 80 |   local gauge_width = (WINDOW_WIDTH - gauge_left - 5) * Fraction
 81 |   
 82 |    -- box size must be > 0 or WindowGradient fills the whole thing 
 83 |   if math.floor (gauge_width) > 0 then
 84 |     
 85 |     -- top half
 86 |     WindowGradient (win, gauge_left, vertical, gauge_left + gauge_width, vertical + GAUGE_HEIGHT / 2, 
 87 |                     0x000000,
 88 |                     Colour, 2) 
 89 |     
 90 |     -- bottom half
 91 |     WindowGradient (win, gauge_left, vertical + GAUGE_HEIGHT / 2, 
 92 |                     gauge_left + gauge_width, vertical +  GAUGE_HEIGHT,   
 93 |                     Colour,
 94 |                     0x000000,
 95 |                     2) 
 96 | 
 97 |   end -- non-zero
 98 |   
 99 |   -- show ticks
100 |   local ticks_at = (WINDOW_WIDTH - gauge_left - 5) / (NUMBER_OF_TICKS + 1)
101 |   
102 |   -- ticks
103 |   for i = 1, NUMBER_OF_TICKS do
104 |     WindowLine (win, gauge_left + (i * ticks_at), vertical, 
105 |                 gauge_left + (i * ticks_at), vertical + GAUGE_HEIGHT, ColourNameToRGB ("silver"), 0, 1)
106 |   end -- for
107 | 
108 |   -- draw a box around it
109 |   WindowRectOp (win, 1, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + GAUGE_HEIGHT, 
110 |           ColourNameToRGB ("lightgrey"))  -- frame entire box
111 |   
112 |   -- mouse-over information: add hotspot if not there
113 |   if not WindowHotspotInfo(win, sPrompt, 1) then
114 |     WindowAddHotspot (win, sPrompt, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + font_height, 
115 |                   "", "", "", "", "", "", 0, 0)
116 |   end -- if
117 |   
118 |   -- store numeric values in case they mouse over it
119 |   WindowHotspotTooltip(win, sPrompt, string.format ("%s\t%i / %i (%i%%)", 
120 |                         sPrompt, current, max, Fraction * 100) )
121 |                                   
122 |   vertical = vertical + font_height + 3
123 | end -- function DoGauge
124 | 
125 | function do_prompt (name, line, wildcards)
126 | 
127 |   hp, max_hp = tonumber (wildcards [1]), tonumber (wildcards [2])
128 |   mana, max_mana = tonumber (wildcards [3]), tonumber (wildcards [4])
129 |   move, max_move = tonumber (wildcards [5]), tonumber (wildcards [6])
130 | 
131 |   -- fill entire box to clear it
132 |   check (WindowRectOp (win, 2, 0, 0, 0, 0, BACKGROUND_COLOUR))  -- fill entire box
133 |   
134 |   -- Edge around box rectangle
135 |   check (WindowCircleOp (win, 3, 0, 0, 0, 0, BORDER_COLOUR, 0, 2, 0, 1))
136 | 
137 |   vertical = 6  -- pixel to start at
138 | 
139 |   DoGauge ("HP: ",    hp ,   max_hp,    ColourNameToRGB "darkgreen")
140 |   DoGauge ("Mana: ",  mana,  max_mana,  ColourNameToRGB "mediumblue")
141 |   DoGauge ("Move: ",  move,  max_move,  ColourNameToRGB "gold")
142 | 
143 |   WindowShow (win, true)
144 |   
145 | end -- function do_prompt
146 | 
147 | 
148 | function OnPluginInstall ()
149 |   
150 |   win = GetPluginID ()
151 |   font_id = "fn"
152 |   
153 |   require "movewindow"  -- load the movewindow.lua module
154 | 
155 |   -- install the window movement handler, get back the window position
156 |   windowinfo = movewindow.install (win, 7)  -- default to 7 (on right, center top/bottom)
157 |                    
158 |   font_name = "Fixedsys"    -- the font
159 |     
160 |   -- make miniwindow so I can grab the font info
161 |   WindowCreate (win, 
162 |                 windowinfo.window_left,
163 |                 windowinfo.window_top,
164 |                 WINDOW_WIDTH, 
165 |                 WINDOW_HEIGHT,  
166 |                 windowinfo.window_mode,   
167 |                 windowinfo.window_flags,    
168 |                 BACKGROUND_COLOUR)
169 | 
170 |   -- add the drag handler so they can move the window around
171 |   movewindow.add_drag_handler (win, 0, 0, 0, 0)
172 |                  
173 |   WindowFont (win, font_id, font_name, 9)
174 |   font_height = WindowFontInfo (win, font_id, 1)  -- height
175 |   
176 |   -- work out how far in to start the gauge
177 |   gauge_left =                        WindowTextWidth (win, font_id, "HP: ")
178 |   gauge_left = math.max (gauge_left,  WindowTextWidth (win, font_id, "Mana: "))
179 |   gauge_left = math.max (gauge_left,  WindowTextWidth (win, font_id, "Move: "))
180 |   
181 |   gauge_left = gauge_left + 5  -- allow gap from edge
182 |   
183 |   if GetVariable ("enabled") == "false" then
184 |     ColourNote ("yellow", "", "Warning: Plugin " .. GetPluginName ().. " is currently disabled.")
185 |     check (EnablePlugin(GetPluginID (), false))
186 |   end -- they didn't enable us last time
187 |  
188 | end -- OnPluginInstall
189 | 
190 | function OnPluginDisable ()
191 |   WindowShow (win, false)
192 | end -- OnPluginDisable
193 | 
194 | function OnPluginEnable ()
195 |   WindowShow (win, true)
196 |   
197 |   -- draw gauge again if possible
198 |   if hp and max_hp and mana and max_mana and move and max_move then
199 |     do_prompt ("", "", { hp, max_hp, mana, max_mana, move, max_move } )
200 |   end -- if know hp, endurance and guile
201 | end -- OnPluginEnable
202 | 
203 | function OnPluginSaveState ()
204 |    -- save window current location for next time  
205 |   movewindow.save_state (win)
206 |   SetVariable ("enabled", tostring (GetPluginInfo (GetPluginID (), 17)))
207 | end -- OnPluginSaveState
208 | 
209 | 
210 | ]]>
211 | </script>
212 | 
213 | </muclient>
214 | 


--------------------------------------------------------------------------------
/Health_Bar_Miniwindow_MM.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Health_Bar_Miniwindow_MM"
  7 |    author="Nick Gammon"
  8 |    id="78dcd04fc1096e8988f03892"
  9 |    language="Lua"
 10 |    purpose="Shows stats in a mini window"
 11 |    date_written="2010-02-12"
 12 |    requires="4.40"
 13 |    version="1.0"
 14 |    save_state="y"
 15 |    >
 16 | <description trim="y">
 17 | <![CDATA[
 18 | Install this plugin to show an info bar with HP, Endurance, 
 19 | and Guile points shown as a bar.
 20 | 
 21 | The window can be dragged to a new location with the mouse.
 22 | ]]>
 23 | </description>
 24 | 
 25 | </plugin>
 26 | 
 27 | <!--  Triggers  -->
 28 | 
 29 | <triggers>
 30 |   <trigger
 31 |    enabled="y"
 32 |    match="^(\d+)h, (\d+)e, (\d+)g "
 33 |    regexp="y"
 34 |    script="do_prompt"
 35 |    sequence="100"
 36 |   >
 37 |   </trigger>
 38 |   
 39 |   <trigger
 40 |    enabled="y"
 41 |    lines_to_match="2"
 42 |    match="^Health\:\s+(\d+)\/(\d+)\s+Endurance\:\s+(\d+)\/(\d+)\nGuile:\s+(\d+)/(\d+)\Z"
 43 |    multi_line="y"
 44 |    regexp="y"
 45 |    send_to="12"
 46 |    sequence="100"
 47 |   >
 48 |   <send>
 49 |   
 50 | hp = %1
 51 | max_hp = %2
 52 | endurance = %3
 53 | max_endurance = %4
 54 | guile = %5
 55 | max_guile = %6
 56 | 
 57 | -- draw gauge
 58 | do_prompt ("", "", { hp, endurance, guile } )
 59 | 
 60 | </send>
 61 |   </trigger>
 62 |  
 63 | </triggers>
 64 | 
 65 | <!--  Script  -->
 66 | 
 67 | <script>
 68 | <![CDATA[
 69 | 
 70 | GAUGE_HEIGHT = 15
 71 | 
 72 | WINDOW_WIDTH = 300
 73 | WINDOW_HEIGHT = 65
 74 | NUMBER_OF_TICKS = 5
 75 | 
 76 | BACKGROUND_COLOUR = ColourNameToRGB "rosybrown"
 77 | FONT_COLOUR       = ColourNameToRGB "darkred"
 78 | BORDER_COLOUR     = ColourNameToRGB "#553333"
 79 | 
 80 | function DoGauge (sPrompt, current, max, Colour)
 81 | 
 82 |   if max <= 0 then 
 83 |     return 
 84 |   end -- no divide by zero
 85 |   
 86 |   -- fraction in range 0 to 1
 87 |   local Fraction = math.min (math.max (current / max, 0), 1) 
 88 |    
 89 |   local width = WindowTextWidth (win, font_id, sPrompt)
 90 |   
 91 |   WindowText (win, font_id, sPrompt, gauge_left - width, vertical, 0, 0, FONT_COLOUR)
 92 | 
 93 |   WindowRectOp (win, 2, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + GAUGE_HEIGHT, 
 94 |                           BACKGROUND_COLOUR)  -- fill entire box
 95 |   
 96 |   local gauge_width = (WINDOW_WIDTH - gauge_left - 5) * Fraction
 97 |   
 98 |    -- box size must be > 0 or WindowGradient fills the whole thing 
 99 |   if math.floor (gauge_width) > 0 then
100 |     
101 |     -- top half
102 |     WindowGradient (win, gauge_left, vertical, gauge_left + gauge_width, vertical + GAUGE_HEIGHT / 2, 
103 |                     0x000000,
104 |                     Colour, 2) 
105 |     
106 |     -- bottom half
107 |     WindowGradient (win, gauge_left, vertical + GAUGE_HEIGHT / 2, 
108 |                     gauge_left + gauge_width, vertical +  GAUGE_HEIGHT,   
109 |                     Colour,
110 |                     0x000000,
111 |                     2) 
112 | 
113 |   end -- non-zero
114 |   
115 |   -- show ticks
116 |   local ticks_at = (WINDOW_WIDTH - gauge_left - 5) / (NUMBER_OF_TICKS + 1)
117 |   
118 |   -- ticks
119 |   for i = 1, NUMBER_OF_TICKS do
120 |     WindowLine (win, gauge_left + (i * ticks_at), vertical, 
121 |                 gauge_left + (i * ticks_at), vertical + GAUGE_HEIGHT, ColourNameToRGB ("silver"), 0, 1)
122 |   end -- for
123 | 
124 |   -- draw a box around it
125 |   WindowRectOp (win, 1, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + GAUGE_HEIGHT, 
126 |           ColourNameToRGB ("lightgrey"))  -- frame entire box
127 |   
128 |   -- mouse-over information: add hotspot if not there
129 |   if not WindowHotspotInfo(win, sPrompt, 1) then
130 |     WindowAddHotspot (win, sPrompt, gauge_left, vertical, WINDOW_WIDTH - 5, vertical + font_height, 
131 |                   "", "", "", "", "", "", 0, 0)
132 |   end -- if
133 |   
134 |   -- store numeric values in case they mouse over it
135 |   WindowHotspotTooltip(win, sPrompt, string.format ("%s\t%i / %i (%i%%)", 
136 |                         sPrompt, current, max, Fraction * 100) )
137 |                                   
138 |   vertical = vertical + font_height + 3
139 | end -- function
140 | 
141 | function do_prompt (name, line, wildcards)
142 | 
143 |   hp        = tonumber (wildcards [1])
144 |   endurance = tonumber (wildcards [2])
145 |   guile     = tonumber (wildcards [3])
146 |     
147 |   -- don't know maxima yet? can't proceed
148 |   if max_hp <= 0 or 
149 |      max_endurance <= 0 or 
150 |      max_guile <= 0 then
151 |     return
152 |   end
153 | 
154 |   -- fill entire box to clear it
155 |   WindowRectOp (win, 2, 0, 0, 0, 0, BACKGROUND_COLOUR)
156 |   
157 |   -- Edge around box rectangle
158 |   WindowCircleOp (win, 3, 0, 0, 0, 0, BORDER_COLOUR, 0, 2, 0, 1)
159 | 
160 |   vertical = 6  -- pixel to start at
161 | 
162 |   DoGauge ("HP: ",        hp ,        max_hp,         ColourNameToRGB "darkgreen")
163 |   DoGauge ("Endurance: ", endurance,  max_endurance,  ColourNameToRGB "mediumblue")
164 |   DoGauge ("Guile: ",     guile,      max_guile,      ColourNameToRGB "gold")
165 | 
166 |   WindowShow (win, true)
167 |   
168 | end -- draw_bar
169 | 
170 | 
171 | function OnPluginInstall ()
172 |   
173 |   win = GetPluginID ()
174 |   font_id = "fn"
175 |   
176 |   require "movewindow"  -- load the movewindow.lua module
177 | 
178 |   -- install the window movement handler, get back the window position
179 |   windowinfo = movewindow.install (win, 7)  -- default to 7 (on right, center top/bottom)
180 |                    
181 |   font_name = "Fixedsys"    -- the font
182 | 
183 |   -- get maxima from last time
184 |   max_hp        = tonumber (GetVariable ("max_hp")) or 0
185 |   max_endurance = tonumber (GetVariable ("max_endurance")) or 0 
186 |   max_guile     = tonumber (GetVariable ("max_guile")) or 0
187 |     
188 |   -- make miniwindow so I can grab the font info
189 |   WindowCreate (win, 
190 |                 windowinfo.window_left,
191 |                 windowinfo.window_top,
192 |                 WINDOW_WIDTH, 
193 |                 WINDOW_HEIGHT,  
194 |                 windowinfo.window_mode,   
195 |                 windowinfo.window_flags,    
196 |                 BACKGROUND_COLOUR)
197 | 
198 |   -- add the drag handler so they can move the window around
199 |   movewindow.add_drag_handler (win, 0, 0, 0, 0)
200 |                  
201 |   WindowFont (win, font_id, font_name, 9)
202 |   font_height = WindowFontInfo (win, font_id, 1)  -- height
203 |   
204 |   -- work out how far in to start the gauge
205 |   gauge_left =                        WindowTextWidth (win, font_id, "HP: ")
206 |   gauge_left = math.max (gauge_left,  WindowTextWidth (win, font_id, "Endurance: "))
207 |   gauge_left = math.max (gauge_left,  WindowTextWidth (win, font_id, "Guile: "))
208 |   
209 |   gauge_left = gauge_left + 5  -- allow gap from edge
210 |   
211 |   if GetVariable ("enabled") == "false" then
212 |     ColourNote ("yellow", "", "Warning: Plugin " .. GetPluginName ().. " is currently disabled.")
213 |     EnablePlugin (GetPluginID (), false)
214 |   end -- they didn't enable us last time
215 |  
216 | end -- OnPluginInstall
217 | 
218 | function OnPluginDisable ()
219 |   WindowShow (win, false)
220 | end -- OnPluginDisable
221 | 
222 | function OnPluginEnable ()
223 |   WindowShow (win, true)
224 |   
225 |   -- draw gauge again if possible
226 |   if hp and endurance and guile then
227 |     do_prompt ("", "", { hp, endurance, guile } )
228 |   end -- if know hp, endurance and guile
229 | end -- OnPluginEnable
230 | 
231 | function OnPluginSaveState ()
232 |    -- save window current location for next time  
233 |   movewindow.save_state (win)
234 |   SetVariable ("enabled", tostring (GetPluginInfo (GetPluginID (), 17)))
235 |   SetVariable ("max_hp", max_hp or 0)
236 |   SetVariable ("max_endurance", max_endurance or 0)
237 |   SetVariable ("max_guile", max_guile or 0)
238 | end -- OnPluginSaveState
239 | 
240 | 
241 | ]]>
242 | </script>
243 | 
244 | </muclient>
245 | 


--------------------------------------------------------------------------------
/Item_Cache_Helper.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Item_Cache_Helper"
  7 |    author="Nick Gammon"
  8 |    id="928dc37b201539cd14239ff0"
  9 |    language="Lua"
 10 |    purpose="Manages cached item information for various plugins"
 11 |    date_written="2010-03-02"
 12 |    requires="4.50"
 13 |    version="1.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Install required for new telnet negotiation plugins.
 18 | ]]>
 19 | </description>
 20 | 
 21 | </plugin>
 22 | 
 23 | 
 24 | <!--  Script  -->
 25 | 
 26 | 
 27 | <script>
 28 | <![CDATA[
 29 | 
 30 | local PPI = require("ppi")
 31 | 
 32 | item_not_in_database = {}
 33 | requested_items = {}
 34 | 
 35 | count_items_found_in_db = 0
 36 | count_items_not_found_in_db = 0
 37 | count_items_requested_from_server = 0
 38 | count_items_received_from_server = 0
 39 | time_to_receive_items = 0
 40 | time_to_read_from_db = 0
 41 | time_to_write_to_db = 0
 42 | 
 43 | function dbcheck (code)
 44 | 
 45 |  if code ~= sqlite3.OK and    -- no error
 46 |     code ~= sqlite3.ROW and   -- completed OK with another row of data
 47 |     code ~= sqlite3.DONE then -- completed OK, no more rows
 48 |     local err = db:errmsg ()  -- the rollback will change the error message
 49 |     db:exec ("ROLLBACK")      -- rollback any transaction to unlock the database
 50 |     error (err, 2)            -- show error in caller's context
 51 |   end -- if
 52 | 
 53 | end -- dbcheck 
 54 | 
 55 | function fixsql (s)
 56 |   if s then
 57 |     return "'" .. (string.gsub (s, "'", "''")) .. "'" -- replace single quotes with two lots of single quotes
 58 |   else
 59 |     return "NULL"
 60 |   end -- if
 61 | end -- fixsql
 62 | 
 63 | function load_item_from_database (hash)
 64 | 
 65 |   local item
 66 |  
 67 |   assert (hash, "hash is nil in load_item_from_database")
 68 |   
 69 |   -- if not in database, don't look again
 70 |   if item_not_in_database [hash] then
 71 |     return nil
 72 |   end -- no point looking
 73 |   
 74 |   local start_time = GetInfo (232)
 75 |   
 76 |   for row in db:nrows(string.format ("SELECT item FROM items WHERE hash = %s", fixsql (hash))) do
 77 |      item = row.item
 78 |   end   -- finding item
 79 | 
 80 |   time_to_read_from_db = time_to_read_from_db + (GetInfo (232) - start_time)
 81 |   
 82 |   if item then
 83 |     count_items_found_in_db = count_items_found_in_db + 1
 84 |     return item
 85 |   end -- if found
 86 |   
 87 |   count_items_not_found_in_db = count_items_not_found_in_db + 1
 88 |   item_not_in_database [hash] = true
 89 |   return nil
 90 |     
 91 | end -- load_item_from_database
 92 | 
 93 | 
 94 | local IAC, SB, SE = 0xFF, 0xFA, 0xF0
 95 | 
 96 | -- check if single item cached
 97 | function get_item (hash)
 98 | 
 99 |   -- see if in database
100 |   local item = load_item_from_database (hash)
101 |   
102 |   -- yes? just return it then
103 |   if item then
104 |     -- print ("found item for", hash, "hash of it is", utils.tohex (utils.md5 (item)))
105 |     local t = {}  
106 |     setfenv (assert (loadstring (item)), t) () -- compile and load into t
107 |     return t  
108 |   end -- if found
109 |   
110 |   if requested_items [hash] then
111 |     return nil
112 |   end -- if already asked for it
113 | 
114 |   SendPkt (string.char (IAC, SB, 102) .. "hash_info = \"" .. hash .. "\"" .. string.char (IAC, SE)) 
115 |   -- Note ("Requested cache ID: ", hash)
116 |   
117 |   -- DEBUG
118 |   CallPlugin ("b9cfe98d6a35dd98cd8ceacc", "LogIt", "Requested cache ID: " .. hash)
119 |   
120 |   requested_items [hash] = GetInfo (232)  -- don't request twice
121 |   count_items_requested_from_server = count_items_requested_from_server + 1
122 |   return nil
123 | end -- get_item
124 | 
125 | function save_item_to_database (hash, item)
126 | 
127 |   dbcheck (db:execute (string.format ("INSERT INTO items (hash, item, date_added) VALUES (%s, %s, DATETIME('NOW'));", 
128 |             fixsql (hash), fixsql (item)
129 |          )))
130 |   
131 |   item_not_in_database [hash] = false
132 |     
133 | end -- function 
134 | 
135 | function OnPluginInstall ()
136 | 
137 |  -- open database on disk (uses world address, that is which MUD we are playing)
138 |   db = assert (sqlite3.open( GetInfo (66) .. Trim (WorldAddress ()) .. "_" .. WorldPort () .. ".db"))
139 |   
140 |   -- create items table
141 |   dbcheck (db:execute[[
142 |   
143 |     CREATE TABLE IF NOT EXISTS 
144 |       items(
145 |       itemid        INTEGER PRIMARY KEY AUTOINCREMENT,
146 |       hash          STRING NOT NULL,  -- hash of contents
147 |       item          TEXT,             -- item contents
148 |       date_added    DATE,             -- date added to database
149 |       UNIQUE (hash)
150 |     );
151 |     
152 |   
153 |   ]])
154 | 
155 |  
156 |   PPI.Expose "get_item"
157 | 
158 | end -- function OnPluginInstall
159 | 
160 | function OnPluginClose ()
161 |   -- close database
162 |   db:close()
163 | end -- OnPluginClose
164 | 
165 | function OnPluginTelnetOption (option)
166 | 
167 |   local t = {}  -- incoming server variables will go into table t
168 |   setfenv (assert (loadstring (option)), t) () -- compile and load into t
169 |   
170 |   
171 |   -- cache incoming item information
172 |   if t.hash_info then
173 |     
174 |     local received_hashes = {}
175 |   
176 |     local start_time = GetInfo (232)
177 |     
178 |     if next (t.hash_info) then
179 |       dbcheck (db:execute "BEGIN TRANSACTION;")
180 |     end -- if at least one item
181 |     
182 |     for k, v in pairs (t.hash_info) do
183 |       local time_now = GetInfo (232)
184 |       local time_elapsed = 0
185 |       if requested_items [k] then
186 |         time_elapsed = GetInfo (232) - requested_items [k]
187 |         time_to_receive_items = time_to_receive_items + time_elapsed
188 |         count_items_received_from_server = count_items_received_from_server + 1
189 |       end -- if
190 |       
191 |       -- Note (string.format ("RECEIVED item ID: %s in %.2f seconds.", k, time_elapsed))
192 |       requested_items [k] = nil
193 |       if v then
194 |         save_item_to_database (k, v)
195 |         table.insert (received_hashes, k)
196 |       end -- if item data found
197 |     end -- for
198 |     
199 |     if next (t.hash_info) then
200 |        dbcheck (db:execute "COMMIT;")
201 |     end -- if at least one item
202 | 
203 |     time_to_write_to_db = time_to_write_to_db + (GetInfo (232) - start_time)
204 |     
205 |     for _, v in ipairs (received_hashes) do
206 |       BroadcastPlugin (1, v)
207 |     end -- for
208 |     
209 |   end -- if t.hash_info
210 |  
211 |   if (count_items_found_in_db + count_items_not_found_in_db) > 0 and
212 |       count_items_received_from_server > 0 then
213 |         
214 |     SetStatus (string.format ("%i db reads, %i db fails: %0.5f sec avg, %i sent, %i received in %0.3f sec avg, writes: %0.5f sec avg",
215 |                 count_items_found_in_db,
216 |                 count_items_not_found_in_db,
217 |                 time_to_read_from_db / (count_items_found_in_db + count_items_not_found_in_db),
218 |                 count_items_requested_from_server,
219 |                 count_items_received_from_server,
220 |                 time_to_receive_items / count_items_received_from_server,
221 |                 time_to_write_to_db / count_items_received_from_server))
222 |   end -- if
223 |     
224 | end -- function OnPluginTelnetOption
225 | 
226 | function OnPluginTelnetRequest (type, data)
227 | 
228 |   if type == 102 and data == "WILL" then
229 |     return true
230 |   end -- if
231 | 
232 | end -- function OnPluginTelnetRequest
233 | 
234 | ]]>
235 | </script>
236 | 
237 | 
238 | </muclient>
239 | 


--------------------------------------------------------------------------------
/Level_Timer.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient[
  3 |   <!ENTITY trigger_match 
  4 |    "*You raised a level!" > 
  5 | ]>
  6 | <!-- Saved on Monday, August 11, 2003, 7:34 AM -->
  7 | <!-- MuClient version 3.42 -->
  8 | 
  9 | <!-- Plugin "Level_Timer" generated by Plugin Wizard -->
 10 | 
 11 | <!--
 12 | Change the entity above to reflect the message you get when you level.
 13 | -->
 14 | 
 15 | <muclient>
 16 | <plugin
 17 |    name="Level_Timer"
 18 |    author="Nick Gammon"
 19 |    id="5f4928cc5f9e2306d3b0a361"
 20 |    language="VBscript"
 21 |    purpose="Displays how long it take you to level"
 22 |    save_state="y"
 23 |    date_written="2003-08-11 07:32:28"
 24 |    requires="3.24"
 25 |    version="1.0"
 26 |    >
 27 | <description trim="y">
 28 | <![CDATA[
 29 | When installed, this plugin will display how long it takes you to level.
 30 | ]]>
 31 | </description>
 32 | 
 33 | </plugin>
 34 | 
 35 | 
 36 | <!--  Triggers  -->
 37 | 
 38 | <triggers>
 39 |   <trigger
 40 |    custom_colour="7"
 41 |    enabled="y"
 42 |    match="&trigger_match;"
 43 |    script="OnLevel"
 44 |    sequence="100"
 45 |    other_text_colour="black"
 46 |    other_back_colour="black"
 47 |   >
 48 |   </trigger>
 49 | </triggers>
 50 | 
 51 | <!--  Script  -->
 52 | 
 53 | 
 54 | <script>
 55 | <![CDATA[
 56 | sub OnLevel (name, line, wildcards)
 57 | dim oldtime
 58 | dim newtime
 59 | dim days, hours, minutes
 60 | dim s1, s2, s3
 61 | dim msg
 62 | 
 63 |   oldtime = GetVariable ("last_level_time")
 64 | 
 65 | '
 66 | '  First time - just remember when we levelled
 67 | 
 68 | '
 69 |   if IsEmpty (oldtime) or not IsDate (oldtime) then
 70 |     SetVariable "last_level_time", now
 71 |     Note "Level time noted."
 72 |     exit sub
 73 |   end if
 74 | 
 75 | '
 76 | '  Find total minutes it took to level
 77 | '
 78 |   minutes = DateDiff ("n", CDate (oldtime), Now)
 79 | 
 80 | '
 81 | '  Convert to days, hours, minutes
 82 | '
 83 | 
 84 |   days = Fix (minutes / 1440)
 85 |   minutes = minutes - (days * 1440) ' remainder
 86 |   hours = Fix (minutes / 60)
 87 |   minutes = minutes - (hours * 60) ' remainder
 88 | 
 89 | '
 90 | '  Add "s" if plural
 91 | '
 92 |   s1 = "s"
 93 |   s2 = "s"
 94 |   s3 = "s"
 95 |   if days = 1 then s1 = ""
 96 |   if hours = 1 then s2 = ""
 97 |   if minutes = 1 then s3 = ""
 98 | 
 99 | '
100 | '  Make message
101 | '
102 | 
103 |   msg = "Time to level = " _
104 |         & days & " day" & s1 & ", " _
105 |         & hours & " hour" & s2 & ", " _
106 |         & minutes & " minute" & s3 & "."
107 | 
108 |   ColourNote "white", "blue", msg
109 |   SetVariable "last_level_time", now
110 | 
111 | end sub
112 | 
113 | ]]>
114 | </script>
115 | 
116 | 
117 | </muclient>
118 | 


--------------------------------------------------------------------------------
/NewActivity.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient
  3 |   [
  4 |   <!ENTITY activity_alias "na" > 
  5 |   <!ENTITY warn_if_none "vbTrue" >   
  6 |   ]>
  7 | 
  8 | <!-- Saved on Sunday, October 27, 2002, 10:00 AM -->
  9 | <!-- MuClient version 3.29 -->
 10 | 
 11 | <!-- Plugin "NewActivity" generated by Plugin Wizard -->
 12 | 
 13 | <!--
 14 | Customise the entities above if you want:
 15 | 
 16 |  activity_alias <-  what alias to match on, default "na"
 17 |  warn_if_none   <-  warn if no new activity, change to vbFalse to omit
 18 | 
 19 | -->
 20 | 
 21 | <muclient>
 22 | <plugin
 23 |    name="NewActivity"
 24 |    author="Nick Gammon"
 25 |    id="1c365f77c8f7915e97b2658c"
 26 |    language="VBscript"
 27 |    purpose="Switches to a world with new activity"
 28 |    date_written="2002-10-27 09:58:04"
 29 |    requires="3.21"
 30 |    version="1.0"
 31 |    >
 32 | <description trim="y">
 33 | Type "&activity_alias;" to switch to the next world with new activity. 
 34 | 
 35 | New activity is defined as output that has been received while the world is not the active window.
 36 | 
 37 | 
 38 | Usage
 39 | -----
 40 | 
 41 | &activity_alias;               &lt;-- Switch to world with activity
 42 | 
 43 | NewActivity:help &lt;-- This help
 44 | 
 45 | </description>
 46 | 
 47 | </plugin>
 48 | 
 49 | 
 50 | <!--  Aliases  -->
 51 | 
 52 | <aliases>
 53 |   <alias
 54 |    script="OnNewActivity"
 55 |    match="&activity_alias;"
 56 |    enabled="y"
 57 |   >
 58 |   </alias>
 59 | </aliases>
 60 | 
 61 | <!--  Script  -->
 62 | 
 63 | 
 64 | <script>
 65 | <![CDATA[
 66 | 
 67 | Sub OnNewActivity (sName, sLine, wildcards)
 68 | Dim name, otherworld
 69 | 
 70 | '
 71 | ' Get list of all worlds, check each one
 72 | '
 73 | 
 74 |   For Each name In world.GetWorldList
 75 |     Set otherworld = world.GetWorld (name)
 76 |     If Not ((otherworld Is Nothing)) Then
 77 | 
 78 | '
 79 | '  GetInfo (202) is the count of new lines for a world
 80 | '
 81 |       If otherworld.GetInfo (202) > 0 Then
 82 |          otherworld.Activate
 83 |          Exit Sub
 84 |       End If  '  end of a world with new activity
 85 | 
 86 |     End If  ' end of good world object, and not ourselves
 87 |   Next  ' end of looping through all open worlds
 88 | 
 89 | ]]>
 90 | 
 91 | '
 92 | ' Optional message to warn you there were none ...
 93 | '
 94 |   If &warn_if_none; Then
 95 |     world.Note "-- No new activity --"
 96 |   End If
 97 | 
 98 | End Sub
 99 | 
100 | </script>
101 | 
102 | 
103 | <!--  Plugin help  -->
104 | 
105 | <aliases>
106 |   <alias
107 |    script="OnHelp"
108 |    match="NewActivity:help"
109 |    enabled="y"
110 |   >
111 |   </alias>
112 | </aliases>
113 | 
114 | <script>
115 | <![CDATA[
116 | Sub OnHelp (sName, sLine, wildcards)
117 |   World.Note World.GetPluginInfo (World.GetPluginID, 3)
118 | End Sub
119 | ]]>
120 | </script> 
121 | 
122 | </muclient>
123 | 


--------------------------------------------------------------------------------
/Omit_Blank_Lines.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Monday, July 07, 2008, 1:07 PM -->
 4 | <!-- MuClient version 4.31 -->
 5 | 
 6 | <!-- Plugin "Omit_Blank_Lines" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Omit_Blank_Lines"
11 |    author="Nick Gammon"
12 |    id="87a0ec3649ab9a04d5ea618d"
13 |    language="Lua"
14 |    purpose="Omits blank lines from output"
15 |    date_written="2008-07-07 13:06:47"
16 |    requires="4.00"
17 |    version="1.0"
18 |    >
19 | <description trim="y">
20 | <![CDATA[
21 | Omits completely empty lines from output.
22 | ]]>
23 | </description>
24 | 
25 | </plugin>
26 | 
27 | 
28 | <!--  Triggers  -->
29 | 
30 | <triggers>
31 |   <trigger
32 |    enabled="y"
33 |    match="^$"
34 |    omit_from_output="y"
35 |    regexp="y"
36 |    sequence="100"
37 |   >
38 |   </trigger>
39 | </triggers>
40 | 
41 | </muclient>
42 | 


--------------------------------------------------------------------------------
/Play_Random_Sound.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Tuesday, June 24, 2008, 3:20 PM -->
 4 | <!-- MuClient version 4.29 -->
 5 | 
 6 | <!-- Plugin "Play_Random_Sound" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Play_Random_Sound"
11 |    author="Nick Gammon"
12 |    id="461479af5d149307e69e305f"
13 |    language="Lua"
14 |    purpose="Plays a sound from a group of sounds"
15 |    date_written="2008-06-24 15:08:41"
16 |    requires="4.29"
17 |    version="1.0"
18 |    >
19 | <description trim="y">
20 | <![CDATA[
21 | Implements an interface for other plugins, or triggers etc. to play a sound chosen at random.
22 | 
23 | Examples of use:
24 | 
25 |  -- loop a battle sound in buffer 9 at -6 db
26 |  check (CallPlugin ("461479af5d149307e69e305f", "PlayRandomSound", "9,battle,y,-6"))
27 |  
28 |  -- play a single dagger sound in first free buffer at full volume
29 |  check (CallPlugin ("461479af5d149307e69e305f", "PlayRandomSound", "0,dagger,n,0"))
30 | 
31 | ]]>
32 | </description>
33 | 
34 | </plugin>
35 | 
36 | <!--  Script  -->
37 | 
38 | <script>
39 | <![CDATA[
40 | sounds = {}
41 | 
42 | -- args are: buffer,folder,loop,level
43 | 
44 | function PlayRandomSound (args)
45 |   
46 |   local buffer, folder, loop, level = string.match (args,
47 |         "^(%d+),%s*(%w+),%s*([y|n]),%s*(%-?%d+)$")
48 |   
49 |   if not buffer then
50 |     error ("Arguments to PlayRandomSound are: buffer,folder,loop(y/n),level, you supplied: " .. args)
51 |   end -- if
52 | 
53 |   -- if folder not read in yet, go grab it  
54 |   if not sounds [folder] then
55 |     sounds [folder]  = {}  -- table of sound file names
56 |     local t = assert (utils.readdir (GetInfo (74) .. folder .. "/*wav"))
57 |     
58 |     -- copy from keys of the table of names, into a new table, dropping files starting with "."
59 |     for k in pairs (t) do
60 |       if k:sub (1, 1) ~= "." then
61 |         table.insert (sounds [folder], k)
62 |       end -- not temporary files
63 |     end -- for adding each one
64 |     
65 |     -- check we got something
66 |     assert (#sounds [folder] > 0, "No sounds in folder " .. folder)
67 |     
68 |     ColourNote ("white", "green", "Found " .. #sounds [folder] .. " sounds in " .. folder .. " folder.")
69 |   end -- if not dagger sounds table yet
70 |   
71 |   -- choose one
72 |   sound = folder .. "/" .. sounds [folder] [math.random (#sounds [folder])]
73 | 
74 |   -- play it  
75 |   check (PlaySound (buffer, sound, loop == "y", level ))
76 | 
77 | end -- function PlayRandomSound 
78 | 
79 | math.randomseed (os.time ())
80 | 
81 | ]]>
82 | </script>
83 | 
84 | 
85 | </muclient>
86 | 


--------------------------------------------------------------------------------
/Plugin_Installer.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Saturday, June 28, 2008, 1:40 PM -->
  4 | <!-- MuClient version 4.29 -->
  5 | 
  6 | <!-- Plugin "Plugin_Installer" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Plugin_Installer"
 11 |    author="Nick Gammon"
 12 |    id="50c7d6499597808803009442"
 13 |    language="Lua"
 14 |    purpose="Installs plugins"
 15 |    date_written="2008-06-28 13:34:20"
 16 |    requires="4.29"
 17 |    version="1.0"
 18 |    save_state="y"
 19 |    >
 20 | <description trim="y">
 21 | <![CDATA[
 22 | This plugins scans a subdirectory and loads all plugins found in it, if not already loaded.
 23 | 
 24 | Aliases:
 25 | 
 26 | check_plugins    -- Rescans the subdirectory, installing any new plugins found.
 27 | disable_plugins  -- Disable all plugins (except this one) for testing or building, etc.
 28 | enable_plugins   -- Enable all plugins to return to normal operation
 29 | reload_plugins   -- Reload all plugins, in case you downloaded a new one
 30 | 
 31 | ]]>
 32 | </description>
 33 | 
 34 | </plugin>
 35 | 
 36 | 
 37 | <aliases>
 38 |   <alias
 39 |    name="disable_plugins"
 40 |    script="disable_plugins"
 41 |    match="disable_plugins"
 42 |    enabled="y"
 43 |    sequence="100"
 44 |   >
 45 |   </alias>
 46 | 
 47 |   <alias
 48 |    name="enable_plugins"
 49 |    script="enable_plugins"
 50 |    match="enable_plugins"
 51 |    enabled="y"
 52 |    sequence="100"
 53 |   >
 54 |   </alias>
 55 | 
 56 |   <alias
 57 |    name="reload_plugins"
 58 |    script="reload_plugins"
 59 |    match="reload_plugins"
 60 |    enabled="y"
 61 |    sequence="100"
 62 |   >
 63 |   </alias>
 64 |   
 65 |   <alias
 66 |    name="check_plugins"
 67 |    script="check_installed_plugins_now"
 68 |    match="check_plugins"
 69 |    enabled="y"
 70 |    sequence="100"
 71 |   >
 72 |   </alias>
 73 |     
 74 | </aliases>
 75 | 
 76 | 
 77 | <!--  Script  -->
 78 | 
 79 | 
 80 | <script>
 81 | <![CDATA[
 82 | 
 83 | SUBDIRECTORY = "Aardwolf"
 84 | 
 85 | function disable_plugins (name, line, wildcards)
 86 | 
 87 |   -- find installed plugins
 88 |   local plugins = GetPluginList() or {}
 89 |   
 90 |   -- for each plugin, disable it, unless it is us
 91 | 
 92 |   local count = 0
 93 |   local already = 0
 94 |     
 95 |   for _, p in ipairs (plugins) do
 96 |     if p ~=  GetPluginID () then
 97 |       if GetPluginInfo (p, 17) then
 98 |         check (EnablePlugin (p, false))
 99 |         count = count + 1
100 |       else
101 |         already = already + 1
102 |       end
103 |     end -- if not us
104 |   end -- each plugin file
105 |   
106 |   ColourNote ("white", "blue", string.format ("%i plugin(s) disabled.", count))
107 |   ColourNote ("white", "blue", string.format ("%i plugin(s) already disabled.", already))
108 |   
109 | end -- disable_plugins
110 | 
111 | function enable_plugins (name, line, wildcards)
112 | 
113 |   -- find installed plugins
114 |   local plugins = GetPluginList() or {}
115 |   
116 |   -- for each plugin, enable it
117 | 
118 |   local count = 0
119 |   local already = 0
120 |     
121 |   for _, p in ipairs (plugins) do
122 |     if p ~=  GetPluginID () then
123 |       if not GetPluginInfo (p, 17) then
124 |         check (EnablePlugin (p, true))
125 |         count = count + 1
126 |       else
127 |         already = already + 1
128 |       end
129 |     end -- not us (we must be enabled)
130 |   end -- each plugin file
131 |   
132 |   ColourNote ("white", "blue", string.format ("%i plugin(s) enabled.", count))
133 |   ColourNote ("white", "blue", string.format ("%i plugin(s) already enabled.", already))
134 |   
135 | end -- enable_plugins
136 | 
137 | function reload_plugins (name, line, wildcards)
138 | 
139 |   -- find installed plugins
140 |   local plugins = GetPluginList() or {}
141 |   
142 |   -- for each plugin, reload it
143 | 
144 |   local count = 0
145 |     
146 |   for _, p in ipairs (plugins) do
147 |     if p ~= GetPluginID () then
148 |       local status = ReloadPlugin (p)
149 |       if status ~= error_code.eOK then
150 |         ColourNote ("red", "", "Could not reload plugin ID: " .. 
151 |                     (p or "unknown") .. ", name: " .. (GetPluginInfo (p, 1) or "unknown"))
152 |         check (status)       
153 |       end -- no good
154 |       count = count + 1
155 |     end -- not us (we can't be reloadeed)
156 |   end -- each plugin file
157 |   
158 |   ColourNote ("white", "blue", string.format ("%i plugin(s) reloaded.", count))
159 |   
160 | end -- reload_plugins
161 | 
162 | function check_installed_plugins_now ()
163 | 
164 |   -- look for plugins under program install folder
165 |   local dir = GetInfo (57) .. "plugins\\" .. SUBDIRECTORY .. "\\"
166 |   
167 |   -- find all xml files in that directory
168 |   local t = utils.readdir (dir .. "*.xml")
169 |   
170 |   -- none? just warn them
171 |   if not t then
172 |     ColourNote ("white", "blue", "No plugins found in " .. dir)
173 |     return
174 |   end -- if
175 |   
176 |   -- build list of file names
177 |   local plugins = {}
178 |   
179 |   -- copy from keys of the table of names, into a new table, dropping files starting with "."
180 |   for k in pairs (t) do
181 |     if k:sub (1, 1) ~= "." then
182 |       table.insert (plugins, k)
183 |     end -- not temporary files
184 |   end -- for adding each one
185 |   
186 |   -- may as well do in alphabetic order
187 |   table.sort (plugins)
188 |   
189 |   -- find installed plugins
190 |   local installed_plugins = GetPluginList() or {}
191 |   
192 |   -- for each file, see if it is already installed
193 |   for i, p in ipairs (plugins) do
194 |     local installed = false
195 |     
196 |     -- check installed list
197 |     for _, v in pairs (installed_plugins) do 
198 |       if GetPluginInfo (v, 6) == (dir .. p) then
199 |         installed = true
200 |       end -- if already installed  
201 |     end
202 |   
203 |     -- not there? load it
204 |     if not installed then
205 |       ColourNote ("white", "green", "Installing plugin " .. p)
206 |       check (LoadPlugin (dir .. p))  -- load it
207 |     end -- if
208 |      
209 |   end -- each plugin file
210 | 
211 | end -- check_installed_plugins_now
212 | 
213 | function OnPluginInstall ()
214 |   -- give them time to load
215 |   DoAfterSpecial (2, 
216 |                   "check_installed_plugins_now ()", 
217 |                   sendto.script)
218 | 
219 | end -- function OnPluginInstall 
220 | 
221 | ]]>
222 | </script>
223 | 
224 | 
225 | </muclient>
226 | 


--------------------------------------------------------------------------------
/Random_Socials.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient [
  3 |   <!ENTITY socials_command "socials" > 
  4 |   <!ENTITY end_socials_regexp "\&gt;" > 
  5 |   <!ENTITY timer_interval "30" > 
  6 | ]>
  7 | 
  8 | 
  9 | <!--
 10 | 
 11 | Customising (change above entities) ...
 12 | 
 13 | Change "socials_command" to whatever sends a list of socials.
 14 |   Default: socials
 15 |   
 16 | Change "end_socials_regexp" to whatever will *not* be in a socials line.
 17 |   Default: >
 18 |  
 19 | Change "timer_interval" to be the number of seconds between checking for socials.
 20 | 	Default: 10 seconds
 21 | 	
 22 | (Note - every "timer_interval" seconds there is a 20% chance that the social will be sent.)
 23 |   
 24 | -->
 25 | 
 26 | <muclient>
 27 | <plugin name="Random_Socials"
 28 |   author="Nick Gammon"
 29 |   language="vbscript"
 30 |   id = "982581e59ab42844527eec80"
 31 |   purpose = "Displays a random social from time to time"
 32 |   save_state = "y"
 33 |   version = "1.1"
 34 |   >
 35 | <description trim="y">
 36 | <![CDATA[
 37 | 
 38 | This plugin checks to see if it has a list of socials (in the "socials" variable).
 39 | 
 40 | If not, it sends "socials" to the MUD to build a list.
 41 | 
 42 | Then, every 10 seconds it has a 20% chance of displaying one picked at random.
 43 | 
 44 | Commands
 45 | --------
 46 | 
 47 | socials:help       - shows this description in the output window
 48 | socials:remove:all - removes all socials (ie. reloads the list)
 49 | socials:remove X   - removes social X from the list (eg. social:remove burp)
 50 | ]]>            
 51 | </description>
 52 | </plugin>
 53 | 
 54 | <!--  Get our standard VB constants -->
 55 | <include name="constants.vbs"/>
 56 | 
 57 | <!--  =============================================
 58 | 
 59 | Sub "SocialsList" - collects a list of socials.
 60 | 
 61 |  =============================================  -->
 62 | 
 63 | <script>
 64 | <![CDATA[
 65 | dim SocialsList  ' store list of socials
 66 | 
 67 | Randomize  ' Initialize random-number generator.
 68 | 
 69 | sub GetSocials
 70 |   world.setvariable "socials", ""
 71 |   world.enabletrigger "Collect_Socials", 1
 72 |   '
 73 |   '  cancel CDATA so we can use the entity (from DOCTYPE header)
 74 |   '
 75 | ]]>            
 76 |   world.send "&socials_command;"
 77 | <![CDATA[
 78 |   world.note "Collecting list of socials ..."
 79 | end sub
 80 | 
 81 | ]]>            
 82 |  </script>
 83 |  
 84 | <!--  =============================================
 85 | 
 86 | Timer:   RandomSocial
 87 | Script:  DoRandomSocial
 88 | Purpose: Chooses a social at random, builds the list if necessary
 89 | 
 90 |  =============================================  -->
 91 |  
 92 | <timers>
 93 |   <timer 
 94 | 	  name="RandomSocial" 
 95 | 	  script="DoRandomSocial" 
 96 | 	  enabled="y" 
 97 | 	  second="&timer_interval;" 
 98 | 	>
 99 |   </timer>
100 | </timers>
101 | <script>
102 | <![CDATA[
103 | Sub DoRandomSocial (strTimerName)
104 | 
105 | '
106 | '  Wait a minute after connecting to let them put in the character name and password
107 | ' 
108 | 
109 |   If DateDiff ("n", World.GetInfo (301), Now) < 1 Then
110 |     Exit Sub
111 |   End If
112 |   
113 | '
114 | ' If collecting socials, list, just wait for it to finish
115 | '
116 | 
117 |    If World.GetTriggerInfo ("Collect_Socials", 8) then
118 |       Exit Sub
119 |    End If
120 | 
121 | '
122 | ' If no socials list, get one
123 | '
124 | 
125 |   If IsEmpty (SocialsList) Then
126 |      If world.getvariable ("socials") = "" Then
127 |        Call GetSocials
128 |      Else  
129 |        SocialsList = split (world.getvariable ("socials"))
130 |      End If
131 |      Exit Sub
132 |   End If
133 | 
134 | '
135 | '  Do a random social
136 | '
137 | 
138 |    If Rnd < 0.2 Then
139 |       World.Send SocialsList ( Rnd * Ubound (SocialsList))
140 |    End If
141 | 
142 | End Sub
143 | ]]>            
144 |  </script>
145 | 
146 | <!--  =============================================
147 | 
148 | Trigger:  Collect_Socials
149 | Script:   Do_Collect_Socials
150 | Purpose:  Matches a line of socials
151 | 
152 |  =============================================  -->
153 |  
154 | <triggers>
155 |   <trigger
156 |    custom_colour="2"
157 |    match="^[A-Za-z ]+$"
158 |    name="Collect_Socials"
159 |    regexp="y"
160 |    script="Do_Collect_Socials"
161 |    sequence="100"
162 |   >
163 |   </trigger>
164 | </triggers>
165 | 
166 | <script>
167 | <![CDATA[
168 | sub Do_Collect_Socials (sName, sLine, wildcards)
169 |   world.enabletrigger "End_Socials", 1
170 |   sLine = Trim (sLine)
171 |   while Instr (sLine, "  ") > 0
172 |     sLine = world.Replace (sLine, "  ", " ", 1)
173 |   wend
174 |   world.setvariable "socials", _
175 |     world.getvariable ("socials") & " " & sLine
176 | end sub
177 | 
178 | ]]>            
179 |  </script>
180 | 
181 | <!--  =============================================
182 | 
183 | Trigger:  End_Socials
184 | Script:   Do_End_Socials
185 | Purpose:  Detects end of socials list - in this case we look for the < at the
186 |           start of a MUD prompt, but you could look for anything that wouldn't be
187 |           a social line.
188 | 
189 |  =============================================  -->
190 | 
191 | <triggers>
192 |   <trigger
193 |    custom_colour="1"
194 |    match="&end_socials_regexp;"
195 |    name="End_Socials"
196 |    regexp="y"
197 |    script="Do_End_Socials"
198 |    sequence="100"
199 |   >
200 |   </trigger>
201 | </triggers>
202 | <script>
203 | <![CDATA[
204 | 
205 | sub Do_End_Socials (sName, sLine, wildcards)
206 |   world.note "End of socials list detected. Random socials now active."
207 |   world.enabletrigger "Collect_Socials", 0
208 |   world.enabletrigger "End_Socials", 0
209 | 
210 |   SocialsList = split (world.getvariable ("socials"))
211 | 
212 | end sub
213 | 
214 | ]]>            
215 |  </script>
216 | 
217 | <!--  =============================================
218 | 
219 | Alias:    Remove_Social
220 | Script:   Do_Remove_Social
221 | Purpose:  Removes a social from the list (eg. it might be inappropriate)
222 | 
223 |  =============================================  -->
224 | 
225 | <aliases>
226 |   <alias
227 |    name="Remove_Social"
228 |    script="Do_Remove_Social"
229 |    match="^socials\:remove ([A-Za-z]+)$"
230 |    enabled="y"
231 |    regexp="y"
232 |   >
233 |   </alias>
234 | </aliases>
235 | 
236 | <script>
237 | <![CDATA[
238 | 
239 | sub Do_Remove_Social (sName, sLine, wildcards)
240 | 
241 | If not Instr (world.GetVariable ("socials") & " ",  wildcards (1) & " ") > 0 then
242 |   world.note "Social " & wildcards (1) & " was not in the list."
243 |   Exit Sub
244 | End If
245 | 
246 | '
247 | '  Remove the specified social from the list
248 | '
249 |  world.SetVariable "socials", _
250 |    Trim (world.Replace (world.GetVariable ("socials") & " ", _
251 |                   wildcards (1) & " ", "", 1))
252 |  
253 | world.note "Removed social " & wildcards (1) & " from the list."
254 |                   
255 | '
256 | '  Regenerate the list
257 | '                  
258 | 
259 |   SocialsList = split (world.getvariable ("socials"))
260 | 
261 | end sub
262 | 
263 | ]]>            
264 |  </script>
265 |  
266 | <!--  =============================================
267 | 
268 | Alias:    Remove_All_Socials
269 | Script:   Do_Remove_All_Socials
270 | Purpose:  Removes all socials (ie. forces list to be regenerated)
271 | 
272 |  =============================================  -->
273 | 
274 | <aliases>
275 |   <alias
276 |    name="Remove_All_Socials"
277 |    script="Do_Remove_All_Socials"
278 |    match="socials:remove:all"
279 |    enabled="y"
280 |   >
281 |   </alias>
282 | </aliases>
283 | 
284 | <script>
285 | <![CDATA[
286 | 
287 | sub Do_Remove_All_Socials (sName, sLine, wildcards)
288 | 
289 |   World.SetVariable "socials", ""
290 |   SocialsList = Empty
291 |   World.Note "All socials removed from list."
292 |   
293 | end sub
294 | 
295 | ]]>            
296 |  </script> 
297 | 
298 | 
299 | <!--  =============================================
300 | 
301 | Alias:   socials:help
302 | Script:  OnHelp
303 | Purpose: Shows plugin help
304 | 
305 |  =============================================  -->
306 |  
307 | <aliases>
308 |    <alias
309 |     script="OnHelp"
310 |     match="socials:help"
311 |     enabled="y"
312 |    >
313 |    </alias>
314 |  </aliases>
315 | 
316 | <script>
317 | <![CDATA[
318 |  sub OnHelp (sName, sLine, wildcards)
319 |    world.note world.getplugininfo (world.getpluginid, 3)
320 |  end sub
321 | ]]>            
322 |  </script> 
323 |  
324 |  </muclient>
325 | 


--------------------------------------------------------------------------------
/Reconnecter.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient [
  3 |   <!ENTITY interval "10" >
  4 |   <!ENTITY quit_command "QUIT" >
  5 |   <!ENTITY connect_command "CONNECT" >
  6 |   <!ENTITY noconnect_command "NOCONNECT" >
  7 | ]>
  8 | <!-- Saved on Monday, September 30, 2002, 6:21 PM -->
  9 | <!-- MuClient version 3.26 -->
 10 | 
 11 | <!-- Plugin "Reconnecter" generated by Plugin Wizard -->
 12 | 
 13 | <!--
 14 | 1. Change the entity above "interval" to be the number of seconds
 15 | between retries.
 16 | 
 17 | 2. Change the entity above "quit_command" to be the command you
 18 | type to quit (eg. quit, QUIT, @quit or whatever)
 19 | 
 20 | 3. Change the entity above "connect_command" to be the command you
 21 | type to enable connection checking.
 22 | 
 23 | 4. Change the entity above "noconnect_command" to be the command you
 24 | type to disable connection checking.
 25 | 
 26 |  
 27 |   <alias
 28 |    script="OnQuit"
 29 |    match="&quit_command;"
 30 |    enabled="y"
 31 |   >
 32 |   </alias>
 33 |    
 34 | -->
 35 | 
 36 | <muclient>
 37 | <plugin
 38 |    name="Reconnecter"
 39 |    author="Nick Gammon"
 40 |    id="83beba4e37b3d0e7f63cedbc"
 41 |    language="VBscript"
 42 |    purpose="Reconnects when disconnected"
 43 |    date_written="2002-09-30 18:20:24"
 44 |    requires="3.22"
 45 |    version="1.0"
 46 |    >
 47 | <description trim="y">
 48 | <![CDATA[
 49 | This plugin will automatically reconnect you when you are disconnected, 
 50 | at a user-configurable interval (say, every 5 seconds)
 51 | ]]>
 52 | 
 53 | Reconnecter:help - this help screen
 54 | 
 55 | &connect_command;  - enable recconnection (eg. after using &noconnect_command;)
 56 | 
 57 | &noconnect_command; - disable reconnection (eg. if you are leaving the PC)
 58 | 
 59 | </description>
 60 | 
 61 | </plugin>
 62 | 
 63 | 
 64 | <!--  Timers  -->
 65 | 
 66 | <timers>
 67 |   <timer name="ConnectCheckTimer" script="OnConnectCheckTimer" 
 68 |   second="&interval;" active_closed="y" enabled="y">
 69 | 
 70 |   </timer>
 71 | </timers>
 72 | 
 73 | <!--  Aliases  -->
 74 | 
 75 | <aliases>
 76 | 
 77 | 
 78 |   <alias
 79 |    script="OnConnect"
 80 |    match="&connect_command;"
 81 |    enabled="y"
 82 |   >
 83 |   </alias>
 84 |   <alias
 85 |    script="OnNoConnect"
 86 |    match="&noconnect_command;"
 87 |    enabled="y"
 88 |   >
 89 |   </alias>
 90 | </aliases>
 91 | 
 92 | <!--  Script  -->
 93 | 
 94 | 
 95 | <script>
 96 | <![CDATA[
 97 | dim retry
 98 | 
 99 | retry = 0
100 | did_quit = vbFalse
101 | 
102 | sub OnConnectCheckTimer (sName)
103 | '
104 | '  If currently connecting, leave it to do that ...
105 | '
106 | 
107 | if world.GetInfo (107) then exit sub
108 | 
109 | '
110 | '  If currently connected, we don't need to check any more
111 | '
112 | if world.IsConnected then
113 |   world.note "World is connected, disabling disconnection check"
114 |   world.enabletimer sName, 0
115 |   exit sub
116 | end if
117 | 
118 | '
119 | '  If deliberate quit, we don't need to check any more
120 | '
121 | if did_quit then
122 |   world.note "Deliberate quit, disabling disconnection check"
123 |   world.enabletimer sName, 0
124 |   exit sub
125 | end if
126 | 
127 | '
128 | '  OK, we need to connect now ...
129 | '
130 | 
131 | retry = retry + 1
132 | 
133 | world.note "Connecting to world, attempt # " & retry
134 | world.connect
135 | 
136 | end sub
137 | 
138 | sub OnPluginDisconnect
139 | '
140 | '  If deliberate quit, we don't need to enable the connection check
141 | '
142 | if did_quit then  exit sub
143 | 
144 | '
145 | '  We have been disconnected, we need to try connecting again
146 | '
147 |   world.note "Connection checker enabled"
148 |   world.enabletimer "ConnectCheckTimer", 1
149 | end sub
150 | 
151 | sub OnPluginConnect
152 | '
153 | '  Now we are connected, no need to keep trying to connect
154 | '
155 |   retry = 0
156 |   world.enabletimer "ConnectCheckTimer", 0
157 | '
158 | '  No deliberate quit yet
159 | '
160 |   did_quit = vbFalse
161 | end sub
162 | 
163 | sub OnPluginInstall
164 |   world.doafternote 1, "Connection checker installed."
165 | end sub
166 | 
167 | ]]>
168 | 
169 | sub OnQuit (sName, sLine, wildcards)
170 |   did_quit = vbTrue
171 |   world.send "&quit_command;"  ' send to world so it does it
172 |   world.note "Deliberate quit (&quit_command;), reconnect disabled"
173 | end sub
174 | 
175 | sub OnConnect (sName, sLine, wildcards)
176 |   world.note "Connection checker enabled"
177 |   world.enabletimer "ConnectCheckTimer", 1
178 |   did_quit = vbFalse
179 | end sub
180 | 
181 | sub OnNoConnect (sName, sLine, wildcards)
182 |   world.note "Connection checker disabled"
183 |   world.enabletimer "ConnectCheckTimer", 0
184 |   did_quit = vbTrue
185 | end sub
186 | 
187 | 
188 | </script>
189 | 
190 | 
191 | <!--  Plugin help  -->
192 | 
193 | <aliases>
194 |   <alias
195 |    script="OnHelp"
196 |    match="Reconnecter:help"
197 |    enabled="y"
198 |   >
199 |   </alias>
200 | </aliases>
201 | 
202 | <script>
203 | <![CDATA[
204 | Sub OnHelp (sName, sLine, wildcards)
205 |   World.Note World.GetPluginInfo (World.GetPluginID, 3)
206 | End Sub
207 | ]]>
208 | </script> 
209 | 
210 | </muclient>
211 | 


--------------------------------------------------------------------------------
/Room_Location_Telnet.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Room_Location_Telnet"
  7 |    author="Nick Gammon"
  8 |    id="00ceb6f44bc36ed815a93950"
  9 |    language="Lua"
 10 |    purpose="Shows where we are in a miniwindow"
 11 |    date_written="2010-02-02"
 12 |    requires="4.40"
 13 |    version="1.0"
 14 |    save_state="y"
 15 |    >
 16 | <description trim="y">
 17 | <![CDATA[
 18 | Install this plugin to show an your current room name and exits.
 19 | 
 20 | The window can be dragged to a new location with the mouse.
 21 | ]]>
 22 | </description>
 23 | 
 24 | </plugin>
 25 | 
 26 | 
 27 | <!--  Script  -->
 28 | 
 29 | 
 30 | <script>
 31 | <![CDATA[
 32 | 
 33 | FONT_NAME = "Fixedsys"    -- the font we want to use
 34 | FONT_SIZE = 9
 35 | FONT_ID = "fn"  -- internal font identifier
 36 |   
 37 | require "movewindow"
 38 | 
 39 | function OnPluginInstall ()
 40 |   
 41 |   win = GetPluginID ()
 42 | 
 43 |   WindowCreate (win, 0, 0, 0, 0, 0, 0, 0)
 44 |                  
 45 |   -- add the font
 46 |   WindowFont (win, FONT_ID, FONT_NAME, FONT_SIZE)
 47 |   
 48 |   -- see how high it is
 49 |   font_height = WindowFontInfo (win, FONT_ID, 1)  -- height
 50 | 
 51 |   -- find where window was last time
 52 |   windowinfo = movewindow.install (win, 7)
 53 |    
 54 | end -- OnPluginInstall
 55 | 
 56 | function OnPluginEnable ()
 57 |   WindowShow (win, true)
 58 | end -- OnPluginDisable
 59 | 
 60 | function OnPluginDisable ()
 61 |   WindowShow (win, false)
 62 | end -- OnPluginDisable
 63 | 
 64 | -- hide window on removal
 65 | function OnPluginClose ()
 66 |   WindowShow (win,  false)  -- hide it
 67 | end -- OnPluginClose
 68 | 
 69 | function OnPluginSaveState ()
 70 |   movewindow.save_state (win)
 71 | end -- OnPluginSaveState
 72 | 
 73 | -- here when location changes
 74 | --[[
 75 |  example line (extra lines added for clarity): 
 76 |  
 77 |  tt="move";room=21056;name="Quills and Parchments";
 78 |  blind=false;dark=false;
 79 |  exits={north=21047;west=21053;};
 80 |  
 81 | --]]
 82 | 
 83 | function OnPluginTelnetOption (option)
 84 | 
 85 |   local t = {}  -- incoming server variables will go into table t
 86 |   setfenv (assert (loadstring (option)), t) () -- compile and load into t
 87 |   
 88 |   if not t.move then
 89 |     return
 90 |   end
 91 |   
 92 |   local width = 0
 93 |   local lines = 1  -- have at least one line
 94 |   local dark_message = "It is too dark to see."
 95 |   local blind_message = "You are blind!"
 96 |   local exits_message = "Exits:"
 97 | 
 98 |   local background_colour = ColourNameToRGB "darkkhaki"
 99 |   
100 |   if t.move.dark then
101 |     width = WindowTextWidth (win, FONT_ID, dark_message, true)
102 |   elseif t.move.blind then
103 |     width = WindowTextWidth (win, FONT_ID, blind_message, true)
104 |   else  
105 |     width = WindowTextWidth (win, FONT_ID, t.move.name, true)
106 |     if t.move.exits and next (t.move.exits) then
107 |       width = math.max (width, WindowTextWidth (win, FONT_ID, exits_message, true))
108 |       lines = lines + 2
109 |       for k, v in pairs (t.move.exits) do
110 |         width = math.max (width, 10 + WindowTextWidth (win, FONT_ID, k, true))
111 |          lines = lines + 1
112 |       end -- for each exit
113 |     end -- if      
114 |   end -- if
115 |   
116 |   window_width = width + 10
117 |   window_height = font_height * lines + 10
118 |   
119 |   WindowCreate (win, 
120 |                  windowinfo.window_left, 
121 |                  windowinfo.window_top, 
122 |                  window_width, window_height,  
123 |                  windowinfo.window_mode,   -- top right
124 |                  windowinfo.window_flags,
125 |                  0) 
126 | 
127 |   -- let them t.move it around                 
128 |   movewindow.add_drag_handler (win, 0, 0, 0, 0)
129 |     
130 |   
131 |   -- fill entire box to clear it
132 |   WindowRectOp (win, 2, 0, 0, 0, 0, background_colour)  -- fill entire box
133 |    
134 |   -- Edge around box rectangle
135 |   WindowCircleOp (win, 3, 0, 0, 0, 0, ColourNameToRGB "darkgray", 0, 2, 0, 1)
136 | 
137 |   if t.move.blind then
138 |     WindowText (win, FONT_ID, blind_message, 5, 5, 0, 0, ColourNameToRGB "darkred", true)
139 |   elseif t.move.dark then
140 |     WindowText (win, FONT_ID, dark_message, 5, 5, 0, 0, ColourNameToRGB "darkgreen", true)
141 |   else  
142 |     vertical = 5  -- pixel to start at
143 |     WindowText (win, FONT_ID, t.move.name, 5, 5, 0, 0, ColourNameToRGB "saddlebrown", true)
144 |     vertical = vertical + font_height * 2 -- leave blank line
145 |     if t.move.exits and next (t.move.exits) then
146 |       WindowText (win, FONT_ID, exits_message, 5, vertical, 0, 0, ColourNameToRGB "black", true)
147 |       for k, v in pairs (t.move.exits) do
148 |         vertical = vertical + font_height
149 |         WindowText (win, FONT_ID, k, 15, vertical, 0, 0, ColourNameToRGB "darkolivegreen", true)
150 |       end -- for each exit
151 |     end -- if
152 |   end -- if 
153 |   
154 |   -- 3D box
155 |   WindowCircleOp (win, 3, 0, 0, 0, 0, 0x505050, 0, 3, 0, 1)   -- dark grey border (3 pixels)
156 |   WindowCircleOp (win, 3, 1, 1, -1, -1, 0x7C7C7C, 0, 1, 0, 1)  -- lighter inner border
157 |   WindowCircleOp (win, 3, 2, 2, -2, -2, 0, 0, 1, 0, 1)  -- black inside that
158 |   WindowLine (win, 1, 1, window_width - 1, 1, 0xC2C2C2, 0, 1)  -- light top edge
159 |   WindowLine (win, 1, 1, 1, window_height - 1, 0xC2C2C2, 0, 1)  -- light left edge (for 3D look)
160 |     
161 |   -- make sure window visible
162 |   WindowShow (win, true)
163 | 
164 | end -- function OnPluginTelnetOption
165 | 
166 | ]]>
167 | </script>
168 | 
169 | </muclient>
170 | 


--------------------------------------------------------------------------------
/Send_Input_To_Main_World.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient [
 3 |   <!ENTITY world_name "Aardwolf" > 
 4 | ]>
 5 | <!-- Saved on Sunday, June 22, 2008, 11:53 AM -->
 6 | <!-- MuClient version 4.29 -->
 7 | 
 8 | <!-- Plugin "Send_Input_To_Main_World" generated by Plugin Wizard -->
 9 | 
10 | <muclient>
11 | <plugin
12 |    name="Send_Input_To_Main_World"
13 |    author="Nick Gammon"
14 |    id="703dbfca1548310658c386a2"
15 |    language="Lua"
16 |    purpose="Redirects typing to the main world"
17 |    date_written="2008-06-22 11:02:24"
18 |    requires="4.29"
19 |    version="1.0"
20 |    >
21 | 
22 | </plugin>
23 | 
24 | 
25 | <!--  Aliases  -->
26 | 
27 | <aliases>
28 |   <alias
29 |    match="*"
30 |    enabled="y"
31 |    send_to="12"
32 |    sequence="100"
33 |   >
34 |   <send>
35 |   require "getworld"
36 | 
37 | w = get_a_world ("&world_name;")
38 | 
39 | if w:GetWorldID () == GetWorldID () then
40 |   ColourNote ("white", "red", 
41 |    "Cannot use Send_Input_To_Main_World plugin on main world")
42 |   EnablePlugin (GetPluginID (), false)
43 |   return
44 | end -- if
45 | 
46 | if w then
47 |   w:Execute [====[%1]====]
48 |   w:Activate ()
49 | end -- if world exists
50 | </send>
51 |   </alias>
52 | </aliases>
53 | 
54 | </muclient>
55 | 


--------------------------------------------------------------------------------
/Slow_speedwalk.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient
  3 | [
  4 |   <!ENTITY speedwalk_alias "!*" > 
  5 |   <!ENTITY pause_speedwalk_alias "pause speedwalk" > 
  6 |   <!ENTITY resume_speedwalk_alias "resume speedwalk" > 
  7 |   <!ENTITY abort_speedwalk_alias "abort speedwalk" > 
  8 |   <!ENTITY help_speedwalk_alias "help speedwalk" > 
  9 |   <!ENTITY timeout_secs "10" > 
 10 |   <!ENTITY delay_secs "0.5" >
 11 |   <!ENTITY exits_trigger 
 12 |       "^((?P<exits>\\[Exits\\: .+\\])|(.*)Alas, you cannot go that way\\.)$" > 
 13 | ]>
 14 | 
 15 | <!-- Saved on Monday, October 24, 2005, 7:21 AM -->
 16 | <!-- MuClient version 3.67 -->
 17 | 
 18 | <!-- Plugin "Slow_speedwalk" generated by Plugin Wizard -->
 19 | 
 20 | <!--
 21 | Customise the entities above to modify for the exact MUD output you get.
 22 | 
 23 | speedwalk_alias - the alias you want to invoke a speedwalk (eg. !*)
 24 | 
 25 | pause_speedwalk_alias - the alias you type to pause a speedwalk (eg. 'pause speedwalk')
 26 | 
 27 | resume_speedwalk_alias - the alias you type to resume a speedwalk (eg. 'resume speedwalk')
 28 | 
 29 | abort_speedwalk_alias - the alias you type to abort a speedwalk (eg. 'abort speedwalk')
 30 | 
 31 | timeout_secs - the time to wait for a new room "exits" line to arrive (eg. 10)
 32 | 
 33 | delay_secs - the time to wait after each speedwalk succeeds, before doing another one (eg. 0.5)
 34 | 
 35 | exits_trigger - this detects either that we have gone to a new room, or we can't move
 36 | 
 37 | In the exits_trigger any backslashes have to be doubled, as the first one is processed by Lua,
 38 | so we need two to reach the regular expression parser.
 39 | 
 40 | The named wildcard portion (?P<exits> ... ) is designed to be tested in the script
 41 | so that if it is not empty we know we hit an exits line, rather than "you cannot go that
 42 | way". eg. [Exits: North South]
 43 | 
 44 | -->
 45 | 
 46 | <!-- Version 2 uses wait.lua for extra compactness -->
 47 | 
 48 | <muclient>
 49 | <plugin
 50 |    name="Slow_speedwalk"
 51 |    author="Nick Gammon"
 52 |    id="56c9c5763d0c9c6ccf1e5b60"
 53 |    language="Lua"
 54 |    purpose="Speedwalks, waiting for each room to arrive"
 55 |    date_written="2005-10-24 07:16:09"
 56 |    date_modified="2008-06-4 06:56:09"
 57 |    requires="3.67"
 58 |    version="2.0"
 59 |    >
 60 | <description trim="y">
 61 | 
 62 | Usage
 63 | -----
 64 | 
 65 | ! &lt;speedwalk&gt; - walks in that direction, eg. ! 5n 3w
 66 | 
 67 | &pause_speedwalk_alias; - pauses the speedwalk so you can do something else
 68 | 
 69 | &resume_speedwalk_alias; - resumes a paused speedwalk
 70 | 
 71 | &abort_speedwalk_alias; - aborts the current speedwalk
 72 | 
 73 | &help_speedwalk_alias; - this message
 74 | 
 75 | 
 76 | The speedwalk waits for the appropriate "Exits" message to appear so it knows it has reached a new room.
 77 | 
 78 | If it receives a "cannot go that way" message, the speedwalk is aborted.
 79 | 
 80 | If an "exits" message does not appear within 10 seconds the speedwalk is aborted.
 81 | </description>
 82 | 
 83 | </plugin>
 84 | 
 85 | <!--  Aliases  -->
 86 | 
 87 | <aliases>
 88 |   <alias
 89 |    match="&speedwalk_alias;"
 90 |    enabled="y"
 91 |    script="func_handle_speedwalk"
 92 |   >
 93 |   </alias>
 94 |   
 95 |   <alias
 96 |    match="&pause_speedwalk_alias;"
 97 |    enabled="y"
 98 |    script="func_pause_speedwalk"
 99 |   >
100 |   </alias>
101 |   
102 |   <alias
103 |    match="&resume_speedwalk_alias;"
104 |    enabled="y"
105 |    script="func_resume_speedwalk"
106 |   >
107 |   </alias>
108 |   
109 |   <alias
110 |    match="&abort_speedwalk_alias;"
111 |    enabled="y"
112 |    script="func_abort_speedwalk"
113 |   >
114 |   </alias>
115 | 
116 |   <alias
117 |    match="&help_speedwalk_alias;"
118 |    enabled="y"
119 |    script="func_help_speedwalk"
120 |   >
121 |   </alias>
122 |     
123 | </aliases>
124 | 
125 | <!--  Script  -->
126 | 
127 | <script>
128 | 
129 | require "tprint"
130 | require "wait"
131 | require "getlines"
132 | 
133 | 
134 | -- main function called when you type a speedwalk
135 | 
136 | function func_handle_speedwalk (name, line, wildcards)
137 |     
138 |   wait.make (function ()  --- coroutine below here
139 |   
140 |   sw = EvaluateSpeedwalk (wildcards [1])
141 |   
142 |   if string.sub (sw, 1, 1) == "*" then
143 |     ColourNote ("white", "red", string.sub (sw, 2))
144 |     return
145 |   end -- if
146 |   
147 |   
148 |   pause_speedwalk = false  -- no pause yet
149 |   abort_speedwalk = false  -- no abort yet
150 |   speedwalk_thread = coroutine.running ()  -- remember this thread
151 |   
152 |   -- iterate the speedwalk string, line by line, sending each line to the MUD
153 |   
154 |   for walk_line in getlines (sw) do
155 |     
156 |     if string.match (walk_line, "^%s*$") then
157 |       break
158 |     end -- empty line - probably end of speedwalk
159 |     
160 |     -- see if pausing wanted (global variable set)
161 |     
162 |     if pause_speedwalk then
163 |       ColourNote ("white", "green", "Speedwalk paused.")
164 |       ret = coroutine.yield ()
165 |       if ret == "abort" then
166 |         ColourNote ("black", "yellow", "Speedwalk abandoned.")
167 |         speedwalk_thread = nil
168 |         return
169 |       end -- abort speedwalk wanted
170 |       ColourNote ("white", "green", "Speedwalk resumed.")
171 |       pause_speedwalk = false
172 |     end -- if
173 |     
174 |     -- see if aborting wanted
175 |     
176 |     if abort_speedwalk then
177 |       ColourNote ("black", "yellow", "Speedwalk abandoned.")
178 |       speedwalk_thread = nil
179 |       return
180 |     end -- if
181 |     
182 |     -- send the speedwalk
183 |    
184 |      Send (walk_line) 
185 |     
186 |     -- now wait for an appropriate response
187 |     
188 |     line, wildcards = wait.regexp ("&exits_trigger;", &timeout_secs;)
189 |     
190 |     -- check for timeout
191 |     
192 |     if not line then
193 |       ColourNote ("white", "red", "Speedwalk timed-out")
194 |       speedwalk_thread = nil
195 |       return  -- give up
196 |     end -- if
197 |     
198 |     -- check we didn't get told it was impossible
199 |     
200 |     if wildcards.exits == "" then
201 |       ColourNote ("white", "red", "Speedwalk cancelled")
202 |       speedwalk_thread = nil
203 |       return  -- give up
204 |     end -- if
205 |     
206 |     -- pause before doing another if wanted
207 |     
208 |     if &delay_secs; &gt; 0 then
209 |       wait.time (&delay_secs;)
210 |     end -- if pause wanted
211 |       
212 |   end  -- of iterating through each speedwalk line
213 |   
214 |   -- all done!
215 |   
216 |   ColourNote ("white", "blue", "Speedwalk done.")
217 |   
218 |   speedwalk_thread = nil
219 |   
220 |   end) -- end of coroutine
221 | end -- function func_handle_speedwalk
222 | 
223 | -- called to pause the current speedwalk
224 | function func_pause_speedwalk ()
225 |   if speedwalk_thread then
226 |     if pause_speedwalk then
227 |       ColourNote ("black", "yellow", "The speedwalk is already paused.")
228 |     else
229 |       pause_speedwalk = true
230 |     end  
231 |   else
232 |     ColourNote ("black", "yellow", "No speedwalk is active.")
233 |   end
234 | end -- func_pause_speedwalk
235 | 
236 | -- called to resume after a pause
237 | function func_resume_speedwalk ()
238 |   if speedwalk_thread then
239 |     if pause_speedwalk then
240 |       assert (coroutine.resume (speedwalk_thread, "resume"))
241 |     else
242 |       ColourNote ("black", "yellow", "The speedwalk is not paused.")
243 |     end  
244 |   else
245 |     ColourNote ("black", "yellow", "No speedwalk is active.")
246 |   end
247 | end -- func_resume_speedwalk
248 | 
249 | -- called to abort the speedwalk  
250 | function func_abort_speedwalk ()
251 |   if speedwalk_thread then
252 |     if pause_speedwalk then
253 |       assert (coroutine.resume (speedwalk_thread, "abort"))
254 |     else
255 |       abort_speedwalk = true
256 |     end  
257 |   else
258 |     ColourNote ("black", "yellow", "No speedwalk is active.")
259 |   end
260 | end -- func_abort_speedwalk
261 | 
262 | function func_help_speedwalk ()
263 |   world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
264 | end
265 | 
266 | DoAfterSpecial (1, 'ColourNote ("white", "green", "Slow speedwalk plugin installed.")', 12);
267 | 
268 | </script>
269 | 
270 | </muclient>
271 | 


--------------------------------------------------------------------------------
/TTS_SystemAccess.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Tuesday, December 09, 2008, 2:04 PM -->
  4 | <!-- MuClient version 4.37 -->
  5 | 
  6 | <!-- Plugin "system_access" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="TTS_SystemAccess"
 11 |    author="Tyler Spivey"
 12 |    id="c97ea1385bf01fd29c866716"
 13 |    language="Lua"
 14 |    purpose="enables SystemAccess speech"
 15 |    save_state="y"
 16 |    date_written="2009-11-06 17:00:34"
 17 |    requires="4.37"
 18 |    version="1.0"
 19 |    >
 20 | 
 21 | </plugin>
 22 | 
 23 | <aliases>
 24 |   <alias
 25 |    match="tts_stop"
 26 |    enabled="y"
 27 |    send_to="12"
 28 |    sequence="100"
 29 |   >
 30 | <send>
 31 | sa.stop()
 32 | </send>
 33 |   </alias>
 34 |   
 35 |   <alias
 36 |    match="tts_interrupt *"
 37 |    enabled="y"
 38 |    send_to="12"
 39 |    sequence="100"
 40 |   >
 41 |   <send>
 42 | sa.stop()
 43 | sa.say("%1")
 44 | </send>
 45 |   </alias>
 46 |   
 47 | <alias
 48 |    match="tts_note *"
 49 |    enabled="y"
 50 |    send_to="12"
 51 |    sequence="100"
 52 |   >
 53 |   <send>
 54 | sa.say("%1")
 55 | </send>
 56 |   </alias>
 57 | 
 58 |   <alias
 59 |    script="TTSToggle"
 60 |    match="tts"
 61 |    enabled="y"
 62 |    group="TTS"
 63 |    omit_from_command_history="y"
 64 |    omit_from_log="y"
 65 |    omit_from_output="y"
 66 |    sequence="100"
 67 |   >
 68 |   </alias>
 69 |   
 70 | </aliases>
 71 | 
 72 | <script>
 73 | <![CDATA[
 74 | 
 75 | tts_enabled = true
 76 | 
 77 | function OnPluginInstall ()
 78 |   assert(package.loadlib("sa.dll", "luaopen_audio"))()
 79 |   sa.say("SA plugin initialized")
 80 | end
 81 | 
 82 | function OnPluginScreendraw(t, log, line)
 83 | 
 84 |   AppendToNotepad("output", line .. "\r\n")
 85 |   
 86 |   if not tts_enabled then
 87 |     return
 88 |   end --tts off
 89 |   
 90 |   if t == 0 or   -- output line
 91 |      t == 1 then  -- note line
 92 |     sa.say(line)
 93 |   end -- if
 94 |   
 95 | end -- function OnPluginScreendraw
 96 | 
 97 | function TTSToggle (name, line, wc)
 98 | 
 99 |   if tts_enabled then
100 |     tts_enabled = false
101 |     sa.say ("speech off")
102 |   else
103 |     tts_enabled = true
104 |     sa.say ("speech on")
105 |   end -- if
106 |   
107 | end -- function TTSToggle
108 | 
109 | ]]>            
110 |  </script> 
111 | </muclient>
112 | 


--------------------------------------------------------------------------------
/Telnet_Logger.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | 
 4 | <muclient>
 5 | <plugin
 6 |    name="Telnet_Logger"
 7 |    author="Nick Gammon"
 8 |    id="00725e542eac735f5e095985"
 9 |    language="Lua"
10 |    purpose="Tests OnPluginTelnetOption"
11 |    date_written="2010-03-03"
12 |    requires="4.50"
13 |    version="1.0"
14 |    >
15 | 
16 | </plugin>
17 | 
18 | <!--  Script  -->
19 | 
20 | <script>
21 | <![CDATA[
22 | 
23 | 
24 | function OnPluginTelnetOption (option)
25 |   AppendToNotepad ("telnet", os.date ("%H:%M:%S ") .. option .. "\r\n")  
26 |   --TraceOut (option)
27 | end -- function OnPluginTelnetOption
28 | 
29 | 
30 | ]]>
31 | </script>
32 | 
33 | 
34 | </muclient>
35 | 


--------------------------------------------------------------------------------
/Thesaurus.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Friday, October 13, 2006, 8:55 AM -->
  4 | <!-- MuClient version 3.80 -->
  5 | 
  6 | <!-- Plugin "Thesaurus" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Thesaurus"
 11 |    author="Nick Gammon"
 12 |    id="fed86e24fd1ed8a47d97ecb6"
 13 |    language="Lua"
 14 |    purpose="Lookup a word in a thesaurus"
 15 |    date_written="2006-10-13 08:54:06"
 16 |    requires="3.80"
 17 |    version="1.0"
 18 |    >
 19 | <description trim="y">
 20 | <![CDATA[
 21 | Type:
 22 | 
 23 | lookup
 24 | 
 25 | or
 26 | 
 27 | lookup <word>
 28 | 
 29 | eg. 
 30 | 
 31 | lookup eat
 32 | ]]>
 33 | </description>
 34 | 
 35 | </plugin>
 36 | 
 37 | 
 38 | <!--  Aliases  -->
 39 | 
 40 | <aliases>
 41 |   <alias
 42 |    match="^lookup( (?P&lt;word&gt;.*)){0,1}$"
 43 |    enabled="y"
 44 |    regexp="y"
 45 |    send_to="12"
 46 |    sequence="100"
 47 |   >
 48 |   <send>-- find the word they want
 49 | local word = "%&lt;word&gt;"
 50 | 
 51 | if #word == 0 then
 52 |   word = utils.inputbox ("Word to lookup in Thesaurus?", "Thesaurus")
 53 | end -- word not supplied
 54 | 
 55 | -- nil if dialog cancelled
 56 | if not word then
 57 |   return
 58 | end -- cancelled dialog
 59 | 
 60 | -- see if in index
 61 | local pos = thes [word:lower ()]
 62 | 
 63 | -- don't know that word?
 64 | if not pos then
 65 |   utils.msgbox ("The word '" .. word .. "' is not in the Thesaurus", "Not Found")
 66 |   return
 67 | end -- not found
 68 | 
 69 | -- seek to it in the main file
 70 | thes_file:seek ("set", pos)
 71 | 
 72 | -- read that line
 73 | local line = thes_file:read ()
 74 | 
 75 | -- convert into table
 76 | local t = utils.split (line, ",")
 77 | 
 78 | -- display in list box
 79 | local choice = utils.listbox (
 80 |   "Matching words for '" .. word .. 
 81 |   "'\\n\\nClick OK to copy to the clipboard", -- message
 82 |   "Thesaurus: " .. word,  -- title
 83 |   t)  -- table of words
 84 | 
 85 | if choice then
 86 |   SetClipboard (t [choice])
 87 | end -- if one chosen
 88 | </send>
 89 |   </alias>
 90 | </aliases>
 91 | 
 92 | <!--  Plugin help  -->
 93 | 
 94 | <aliases>
 95 |   <alias
 96 |    script="OnHelp"
 97 |    match="Thesaurus:help"
 98 |    enabled="y"
 99 |   >
100 |   </alias>
101 | </aliases>
102 | 
103 | <script>
104 | <![CDATA[
105 | 
106 | function OnPluginInstall ()
107 | thes = {}
108 | local name = GetInfo (66) .. "mobythes.aur"
109 | thes_file = io.input (name)
110 | repeat
111 |   local pos = thes_file:seek ()  --> where we are
112 |   local line = thes_file:read ()  --> read a line
113 |   if line then
114 |     local w = string.match (line, "[^,]+")
115 |     thes [w:lower ()] = pos
116 |   end -- of having a line
117 | until not line 
118 | 
119 | ColourNote ("white", "blue", "Thesaurus loaded")
120 | 
121 | end -- OnPluginInstall 
122 | 
123 | function OnHelp ()
124 |   world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
125 | end
126 | ]]>
127 | </script> 
128 | 
129 | </muclient>
130 | 


--------------------------------------------------------------------------------
/Timer.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Thursday, March 04, 2004, 7:32 AM -->
  4 | <!-- MuClient version 3.42 -->
  5 | 
  6 | <!-- Plugin "Timer" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Timer"
 11 |    author="Nick Gammon"
 12 |    id="cc98cbe576474a19d1715a02"
 13 |    language="VBscript"
 14 |    purpose="Shows elapsed time in status bar"
 15 |    date_written="2004-03-04 07:29:18"
 16 |    requires="3.30"
 17 |    version="1.0"
 18 |    >
 19 | <description trim="y">
 20 | <![CDATA[
 21 | This plugin displays time connected in the status bar. It can be reset to zero when you like.
 22 | 
 23 | The time is shown as hours and minutes (eg. 4h 22m) - if you are connected for more than a day then it will show more than 24 hours. You could amend it slightly to change that if you wanted.
 24 | 
 25 | Commands
 26 | --------
 27 | 
 28 | timerreset  - reset timer to zero
 29 | Timer:help  - show this help
 30 | ]]>
 31 | </description>
 32 | 
 33 | </plugin>
 34 | 
 35 | 
 36 | <!--  Aliases  -->
 37 | 
 38 | <aliases>
 39 |   <alias
 40 |    script="TimerToZero"
 41 |    match="resettimer"
 42 |    enabled="y"
 43 |    send_to="2"
 44 |    sequence="100"
 45 |   >
 46 |   <send>Timer reset.</send>
 47 |   </alias>
 48 | </aliases>
 49 | 
 50 | <!--  Timers  -->
 51 | 
 52 | <timers>
 53 |   <timer name="StatusBarTimer" script="ElapsedTimer" enabled="y" second="30" >
 54 | 
 55 |   </timer>
 56 | </timers>
 57 | 
 58 | <!--  Script  -->
 59 | 
 60 | 
 61 | <script>
 62 | <![CDATA[
 63 | '
 64 | '  Timer showing when we last connected
 65 | '
 66 | 
 67 | dim tConnected
 68 | 
 69 | tConnected = Now
 70 | 
 71 | '
 72 | ' This world has been connected (to the MUD)
 73 | '
 74 | sub OnPluginConnect
 75 |   tConnected = Now
 76 |   Call ElapsedTimer ("StatusBarTimer")
 77 | end sub
 78 | 
 79 | '
 80 | ' Plugin has been installed
 81 | '
 82 | sub OnPluginInstall
 83 |   Call OnPluginConnect
 84 | end sub
 85 | 
 86 | '
 87 | '  Called by alias to zero timer
 88 | '
 89 | Sub TimerToZero (sName, sLine, wildcards)
 90 |   Call OnPluginConnect
 91 | End Sub
 92 | 
 93 | '
 94 | '  Called when timer fires
 95 | '
 96 | Sub ElapsedTimer (sName)
 97 | 
 98 | dim Minutes, Hours
 99 | 
100 | '
101 | '  Calculate how long in minutes
102 | '
103 |   Minutes = DateDiff ("n", tConnected, Now)
104 | 
105 | '
106 | '  Convert to hours and minutes
107 | '
108 |   Hours = Int (Minutes / 60)	
109 |   Minutes = Minutes - (Hours * 60)
110 | 
111 | '
112 | '  Update status bar
113 | '
114 |   SetStatus "Timer: " & Hours & "h " & Minutes & "m"
115 | End Sub
116 | 
117 | '
118 | ' Plugin is being removed (closed)
119 | '
120 | sub OnPluginClose
121 |   SetStatus "Ready"
122 | end sub
123 | 
124 | ]]>
125 | </script>
126 | 
127 | 
128 | <!--  Plugin help  -->
129 | 
130 | <aliases>
131 |   <alias
132 |    script="OnHelp"
133 |    match="Timer:help"
134 |    enabled="y"
135 |   >
136 |   </alias>
137 | </aliases>
138 | 
139 | <script>
140 | <![CDATA[
141 | Sub OnHelp (sName, sLine, wildcards)
142 |   world.Note world.GetPluginInfo (world.GetPluginID, 3)
143 | End Sub
144 | ]]>
145 | </script> 
146 | 
147 | </muclient>
148 | 


--------------------------------------------------------------------------------
/Trace_To_Notepad.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Thursday, February 05, 2009, 3:33 PM -->
 4 | <!-- MuClient version 4.37 -->
 5 | 
 6 | <!-- Plugin "Trace_To_Notepad" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="Trace_To_Notepad"
11 |    author="Nick Gammon"
12 |    id="adf79802005a0d6186530bee"
13 |    language="Lua"
14 |    purpose="Redirects trace to a notepad window"
15 |    date_written="2009-02-05 15:32:15"
16 |    requires="3.67"
17 |    version="1.0"
18 |    >
19 | 
20 | </plugin>
21 | 
22 | 
23 | <!--  Script  -->
24 | 
25 | 
26 | <script>
27 | <![CDATA[
28 | 
29 | function OnPluginTrace (line)
30 |   AppendToNotepad ("Trace", line .. "\r\n")
31 | end
32 | 
33 | ]]>
34 | </script>
35 | 
36 | 
37 | </muclient>
38 | 


--------------------------------------------------------------------------------
/Trace_Window.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Thursday, February 05, 2009, 3:33 PM -->
  4 | <!-- MuClient version 4.37 -->
  5 | 
  6 | <!-- Plugin "Trace_Window" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Trace_Window"
 11 |    author="Nick Gammon"
 12 |    id="9c16895687a6b24f6202ac0c"
 13 |    language="Lua"
 14 |    purpose="Redirects trace to a miniwindow"
 15 |    date_written="2009-02-05 17:00"
 16 |    requires="4.37"
 17 |    version="1.0"
 18 |    >
 19 | 
 20 | </plugin>
 21 | 
 22 | 
 23 | <!--  Script  -->
 24 | 
 25 | 
 26 | <script>
 27 | <![CDATA[
 28 | 
 29 | -- configuration
 30 | 
 31 | -- window size in pixels
 32 | WINDOW_WIDTH = 600
 33 | WINDOW_HEIGHT = 300   -- 200 is 16 lines of 9-point Lucida Console
 34 | 
 35 | -- font
 36 | FONT_NAME = "Lucida Console"
 37 | FONT_SIZE = 9
 38 | 
 39 | -- where to put the window
 40 | WINDOW_POSITION = 6  -- see below (6 is top right)
 41 | 
 42 | --[[
 43 | Useful positions:
 44 | 
 45 | 4 = top left
 46 | 5 = center left-right at top
 47 | 6 = top right
 48 | 7 = on right, center top-bottom
 49 | 8 = on right, at bottom
 50 | 9 = center left-right at bottom
 51 | --]]
 52 | 
 53 | 
 54 | -- colours
 55 | WINDOW_BACKGROUND_COLOUR = ColourNameToRGB ("khaki")
 56 | WINDOW_TEXT_COLOUR = ColourNameToRGB ("black")
 57 | 
 58 | -- offset of text from edge
 59 | TEXT_INSET = 5
 60 | 
 61 | -- where to store the trace line
 62 | lines = {}  -- table of recent trace lines
 63 | 
 64 | -- display one line
 65 | function Display_Line (line, text)
 66 | 
 67 |   local left = TEXT_INSET
 68 |   local top = (line - 1) * font_height
 69 |   
 70 |   WindowText (win, "f", text, left, top, WINDOW_WIDTH - TEXT_INSET, 0, WINDOW_TEXT_COLOUR)
 71 |   
 72 | end -- Display_Line
 73 | 
 74 | -- here on trace
 75 | function OnPluginTrace (line)
 76 | 
 77 |   -- blank existing window contents
 78 |   WindowRectOp (win, 2, 0, 0, 0, 0, WINDOW_BACKGROUND_COLOUR)
 79 |   
 80 |   -- remove first line if filled up
 81 |   if #lines >= max_lines then
 82 |     table.remove (lines, 1)
 83 |   end -- if 
 84 | 
 85 |   -- add new line, time-stamped
 86 |   table.insert (lines, os.date ("%H:%M:%S ") .. line)
 87 |   
 88 |   -- display all lines
 89 |   for k, v in ipairs (lines) do
 90 |     Display_Line (k, v)
 91 |   end -- for
 92 |   
 93 |   -- force window redisplay
 94 |   WindowShow (win,  true)  -- show it 
 95 |   
 96 | end -- end OnPluginTrace
 97 | 
 98 | -- hide window on removal
 99 | function OnPluginClose ()
100 |   WindowShow (win,  false)  -- hide it
101 | end -- OnPluginClose
102 | 
103 | -- hide window on disable
104 | function OnPluginDisable ()
105 |   WindowShow (win,  false)  -- hide it
106 | end -- OnPluginDisable
107 | 
108 | -- show window on enable
109 | function OnPluginEnable ()
110 |   if #lines > 0 then
111 |     WindowShow (win,  true)  -- show it
112 |   end -- if
113 | end -- OnPluginEnable
114 | 
115 | -- startup stuff
116 | 
117 | win = GetPluginID ()  -- get a unique name
118 | 
119 | -- make the window
120 | WindowCreate (win, 0, 0, WINDOW_WIDTH, WINDOW_HEIGHT, WINDOW_POSITION, 0, 
121 |                          WINDOW_BACKGROUND_COLOUR)  -- create window
122 |                
123 | -- grab a font
124 | WindowFont (win, "f", FONT_NAME, FONT_SIZE) -- define font
125 | 
126 | -- work out how high it is
127 | font_height = WindowFontInfo (win, "f", 1)   -- height of the font  
128 | 
129 | -- work out how many lines will fit
130 | max_lines = math.floor (WINDOW_HEIGHT / font_height)
131 | 
132 | ]]>
133 | </script>
134 | 
135 | </muclient>
136 | 


--------------------------------------------------------------------------------
/aardwolf/AFK_Detector.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient [
  3 |   <!ENTITY timer_mins "5" > 
  4 |   <!ENTITY timer_secs "0" > 
  5 | ]>
  6 | <!-- Saved on Saturday, June 30, 2007, 10:48  -->
  7 | <!-- MuClient version 4.13 -->
  8 | 
  9 | <muclient>
 10 | <plugin
 11 |    name="xAFK_Detector"
 12 |    author="Nick Gammon"
 13 |    id="0e191dc7829ff2ac2433c2d8"
 14 |    language="Lua"
 15 |    purpose="Detects if you are AFK"
 16 |    date_written="2008-06-24"
 17 |    requires="4.28"
 18 |    version="1.0"
 19 |    >
 20 | <description trim="y">
 21 | 
 22 | [FOR PLUGIN AUTHORS ONLY]
 23 | 
 24 | Detects if you are AFK, for the benefit of other plugins.
 25 | 
 26 | Example:
 27 | 
 28 | function OnPluginBroadcast (msg, id, name, text)
 29 |   if msg == 1 and id == "0e191dc7829ff2ac2433c2d8" then
 30 |     AFK = text == "y"
 31 |    end -- AFK status changed
 32 | end
 33 | 
 34 | </description>
 35 | 
 36 | </plugin>
 37 | 
 38 | 
 39 | <triggers>
 40 | 
 41 |   <trigger
 42 |    enabled="y"
 43 |    match="You are now in AFK mode."
 44 |    script="gone_afk"
 45 |    sequence="100"
 46 |   >
 47 |   </trigger>
 48 |   
 49 |  <trigger
 50 |    enabled="y"
 51 |    match="You cannot use that command while AFK."
 52 |    script="gone_afk"
 53 |    sequence="100"
 54 |   >
 55 |   </trigger>
 56 |   
 57 |   <trigger
 58 |    enabled="y"
 59 |    match="^AFK mode removed\."
 60 |    script="not_afk"
 61 |    regexp="y"
 62 |    sequence="100"
 63 |   >
 64 |   </trigger>
 65 |   
 66 | </triggers>
 67 | 
 68 | <timers>
 69 |   <timer name="afk_timer" 
 70 |          second="&timer_secs;"  
 71 |          minute="&timer_mins;"  
 72 |          send_to="12"    
 73 |          enabled="y"
 74 | >
 75 |   <send>
 76 |     ColourNote ("salmon", "", "You are now AFK (client-side).")
 77 |     SetStatus ("AFK")
 78 |     check (EnableTimer ("afk_timer", 0))
 79 |     BroadcastPlugin (1, "y")
 80 |   </send>
 81 |   </timer>
 82 | </timers>
 83 | 
 84 | <!--  Script  -->
 85 | 
 86 | 
 87 | <script>
 88 | <![CDATA[
 89 | 
 90 | function gone_afk (name, line, wildcards)
 91 |   SetStatus ("AFK")
 92 |   check (EnableTimer ("afk_timer", 0))
 93 |   BroadcastPlugin (1, "y")
 94 | end -- gone_afk
 95 | 
 96 | function not_afk (name, line, wildcards)
 97 |   FixTimer ()
 98 | end -- not_afk
 99 | 
100 | -- when they type something, reset AFK status
101 | 
102 | function OnPluginCommand (sText)
103 |   FixTimer ()
104 |   return true  -- process the command
105 | end
106 | 
107 | -- when you connect to the MUD, presumably you are not AFK
108 | 
109 | function OnPluginConnect ()
110 |   FixTimer ()
111 | end
112 | 
113 | -- shared routine to handle turning AFK off
114 | 
115 | function FixTimer ()
116 |   if GetTimerOption ("afk_timer", "enabled") == 0 then
117 |     ColourNote ("salmon", "", "You are no longer AFK  (client-side).")
118 |     SetStatus ("Ready")
119 |     BroadcastPlugin (1, "n")
120 |   end
121 | 
122 | -- turn timer back on
123 |   check (EnableTimer ("afk_timer", 1))
124 | 
125 | -- make sure the full time interval elapses
126 |   check (ResetTimer ("afk_timer"))
127 | 
128 | end
129 | 
130 | assert (GetOption ("enable_timers") == 1, "Timers not enabled")
131 | 
132 | ]]>
133 | </script>
134 | </muclient>
135 | 


--------------------------------------------------------------------------------
/aardwolf/Aardwolf_Campaign_Noter.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Tuesday, July 15, 2008, 11:06 AM -->
  4 | <!-- MuClient version 4.33 -->
  5 | 
  6 | <!-- Plugin "Aardwolf_Campaign_Noter" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Aardwolf_Campaign_Noter"
 11 |    author="Nick Gammon"
 12 |    id="2bfb7e23fb504ae4e55f0ed6"
 13 |    language="Lua"
 14 |    purpose="Shows remaining campaign objectives"
 15 |    date_written="2008-07-15 11:04:43"
 16 |    requires="4.33"
 17 |    version="1.0"
 18 |    save_state="y"
 19 |    >
 20 | <description trim="y">
 21 | <![CDATA[
 22 | Shows outstanding campaign objectives.
 23 | 
 24 | To activate, type: cp check
 25 | ]]>
 26 | </description>
 27 | 
 28 | </plugin>
 29 | 
 30 | 
 31 | <!--  Triggers  -->
 32 | 
 33 | <triggers>
 34 |   <trigger
 35 |    match="You have * left to finish this campaign."
 36 |    name="cp_time"
 37 |    script="cp_time"
 38 |    sequence="100"
 39 |   >
 40 |   </trigger>
 41 |   <trigger
 42 |    match="You still have to kill *"
 43 |    name="campaign_item"
 44 |    script="campaign_item"
 45 |    sequence="100"
 46 |   >
 47 |   </trigger>
 48 |   
 49 |  <trigger
 50 |    enabled="y"
 51 |    match="Congratulations, that was one of your CAMPAIGN mobs!"
 52 |    send_to="10"
 53 |    sequence="100"
 54 |   >
 55 |   <send>cp check</send>
 56 |   </trigger>
 57 | 
 58 |  <trigger
 59 |    enabled="y"
 60 |    match="CONGRATULATIONS! You have completed your campaign."
 61 |    sequence="100"
 62 |    script="campaign_done"
 63 |   >
 64 |   </trigger>
 65 | 
 66 | 
 67 | </triggers>
 68 | 
 69 | <!--  Aliases  -->
 70 | 
 71 | <aliases>
 72 |   <alias
 73 |    name="cp_check"
 74 |    script="cp_check"
 75 |    match="^(cp|campaign) check$"
 76 |    enabled="y"
 77 |    regexp="y"
 78 |    sequence="100"
 79 |   >
 80 |   <send>cp check</send>
 81 |   </alias>
 82 | </aliases>
 83 | 
 84 | <!--  Timers  -->
 85 | 
 86 | <timers>
 87 |   <timer script="get_notepad_position" 
 88 |          enabled="y" 
 89 |          second="10.00" 
 90 |          active_closed="y" >
 91 | 
 92 |   </timer>
 93 | </timers>
 94 | 
 95 | <!--  Script  -->
 96 | 
 97 | 
 98 | <script>
 99 | <![CDATA[
100 | 
101 | require "serialize"
102 | 
103 | pos = {}
104 | 
105 | function get_notepad_position (name)
106 |   local newpos = GetNotepadWindowPosition ("Campaign")
107 |   pos = newpos or pos
108 |   
109 |   if next (pos) then
110 |     Left, Top, Width, Height = pos.left, pos.top, pos.width, pos.height
111 |   end -- if 
112 | end -- get_notepad_position
113 | 
114 | -- notepad position
115 | Left, Top, Width, Height = 500, 200, 600, 600
116 | MenuSize = 50
117 | 
118 | campaign_info = {}
119 |  
120 | function campaign_item (name, line, wildcards)
121 |   table.insert (campaign_info, line)
122 | end -- campaign_item
123 | 
124 | function campaign_done (name, line, wildcards)
125 |   Send "score"
126 |   CloseNotepad ("Campaign", false)
127 | end -- campaign_done
128 | 
129 | function cp_time (name, line, wildcards)
130 | 
131 |   table.insert (campaign_info, line)
132 |   
133 |   check (EnableTrigger ("campaign_item", false))
134 |   check (EnableTrigger ("cp_time", false))
135 | 
136 |   CloseNotepad ("Campaign", false)
137 |   ReplaceNotepad ("Campaign", table.concat (campaign_info, "\r\n"))
138 |   NotepadColour ("Campaign", "black", "#FFFFE7")
139 |   NotepadSaveMethod ("Campaign", 2)  -- don't try to save
140 |   
141 |   local lines = #campaign_info + 1
142 |   
143 |   if lines < 40 then
144 |     MoveNotepadWindow ("Campaign", Left, Top, Width, GetInfo (214) * lines + MenuSize)  
145 |   else
146 |     MoveNotepadWindow("Campaign", Left, Top, Width, Height)
147 |   end -- if
148 |   
149 |   ActivateNotepad "Campaign"
150 |   
151 |   Activate ()
152 |   
153 |   NotepadReadOnly ("Campaign")
154 |   
155 | end -- cp_time
156 | 
157 | function cp_check( name, line, wildcards)
158 |   check (EnableTrigger ("campaign_item", true))
159 |   check (EnableTrigger ("cp_time", true))
160 |   campaign_info = {}
161 |   
162 | end -- cp_check
163 | 
164 | function OnPluginSaveState ()
165 |   get_notepad_position ()
166 |   SetVariable ("pos", "pos = " .. serialize.save_simple (pos))
167 | end -- function OnPluginSaveState
168 | 
169 | function OnPluginInstall ()
170 |   assert (loadstring (GetVariable ("pos") or "")) ()
171 |   
172 |   if next (pos) then
173 |     Left, Top, Width, Height = pos.left, pos.top, pos.width, pos.height
174 |   end -- table not empty
175 |   
176 | end -- OnPluginInstall
177 | 
178 | ]]>
179 | </script>
180 | 
181 | 
182 | <!--  Plugin help  -->
183 | 
184 | <aliases>
185 |   <alias
186 |    script="OnHelp"
187 |    match="Aardwolf_Campaign_Noter:help"
188 |    enabled="y"
189 |   >
190 |   </alias>
191 | </aliases>
192 | 
193 | <script>
194 | <![CDATA[
195 | function OnHelp ()
196 |   world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
197 | end
198 | ]]>
199 | </script> 
200 | 
201 | </muclient>
202 | 


--------------------------------------------------------------------------------
/aardwolf/Aardwolf_Campaign_Noter_mw.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Tuesday, July 15, 2008, 11:06 AM -->
  4 | <!-- MuClient version 4.33 -->
  5 | 
  6 | <!-- Plugin "Aardwolf_Campaign_Noter" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Aardwolf_Campaign_Noter_mw"
 11 |    author="Nick Gammon"
 12 |    id="23c3c91af0a26790c625f5d1"
 13 |    language="Lua"
 14 |    purpose="Shows remaining campaign objectives"
 15 |    date_written="2008-07-22"
 16 |    requires="4.34"
 17 |    version="1.0"
 18 |    save_state="y"
 19 |    >
 20 | <description trim="y">
 21 | <![CDATA[
 22 | Shows outstanding campaign objectives.
 23 | 
 24 | To activate, type: cp check
 25 | ]]>
 26 | </description>
 27 | 
 28 | </plugin>
 29 | 
 30 | 
 31 | <!--  Triggers  -->
 32 | 
 33 | <triggers>
 34 |   <trigger
 35 |    match="You have * to finish this campaign."
 36 |    name="cp_time"
 37 |    script="cp_time"
 38 |    sequence="100"
 39 |   >
 40 |   </trigger>
 41 |   <trigger
 42 |    match="^You still have to kill \* (.*?)$"
 43 |    name="campaign_item"
 44 |    script="campaign_item"
 45 |    sequence="100"
 46 |    regexp="y"
 47 |   >
 48 |   </trigger>
 49 |   
 50 |  <trigger
 51 |    enabled="y"
 52 |    match="Congratulations, that was one of your CAMPAIGN mobs!"
 53 |    send_to="10"
 54 |    sequence="100"
 55 |   >
 56 |   <send>cp check</send>
 57 |   </trigger>
 58 | 
 59 |  <trigger
 60 |    enabled="y"
 61 |    match="CONGRATULATIONS! You have completed your campaign."
 62 |    sequence="100"
 63 |    script="campaign_done"
 64 |   >
 65 |   </trigger>
 66 | 
 67 | 
 68 | </triggers>
 69 | 
 70 | <!--  Aliases  -->
 71 | 
 72 | <aliases>
 73 |   <alias
 74 |    name="cp_check"
 75 |    script="cp_check"
 76 |    match="^(cp|campaign) check$"
 77 |    enabled="y"
 78 |    regexp="y"
 79 |    sequence="100"
 80 |   >
 81 |   <send>cp check</send>
 82 |   </alias>
 83 | </aliases>
 84 | 
 85 | 
 86 | <!--  Timers  -->
 87 | 
 88 | 
 89 | <timers>
 90 |   <timer 
 91 |       script="show_campaign_text" 
 92 |       enabled="y" 
 93 |       second="30.00" 
 94 |       >
 95 |   </timer>
 96 | </timers>
 97 | 
 98 | 
 99 | <!--  Script  -->
100 | 
101 | 
102 | <script>
103 | <![CDATA[
104 | 
105 | require "commas"
106 | 
107 | background_colour = 0xE7FFFF
108 | text_colour = 0x000000
109 | heading_colour = 0x800080
110 | time_colour = 0x82004B
111 | 
112 | campaign_info = {}
113 |  
114 | function capitalize (s)
115 |   return string.sub (s, 1, 1):upper () .. string.sub (s, 2):lower ()
116 | end -- capitalize 
117 | 
118 | function campaign_item (name, line, wildcards)
119 |   local text =  wildcards [1]
120 |   text = string.sub (text, 1, 1):upper () .. string.sub (text, 2)
121 |   table.insert (campaign_info, text)
122 |   max_width = math.max (max_width, WindowTextWidth (win, font_id, text))
123 | end -- campaign_item
124 | 
125 | function campaign_done (name, line, wildcards)
126 |   Send "score"
127 |   WindowShow (win, false)
128 |   campaign_info = {}
129 | end -- campaign_done
130 | 
131 | function Display_Line (i, text, id, colour)
132 | 
133 | local left = 5
134 | local top =  (i * font_height) - font_height
135 | 
136 |   WindowText (win, id, text, left, top, 0, 0, colour)
137 | 
138 | end -- Display_Line
139 | 
140 | function show_campaign_text ()
141 | 
142 |   -- do nothing if no campaign
143 |   if #campaign_info == 0 or when_required == nil then
144 |     return
145 |   end -- if
146 | 
147 |   -- recreate the window the correct size
148 |   check (WindowCreate (win, 
149 |                  0, 0,   -- left, top (auto-positions)
150 |                  max_width + 10,     -- width
151 |                  (#campaign_info + 2)   * font_height + 5,  -- height
152 |                  7,       -- auto-position: top middle
153 |                  0,  -- flags
154 |                  0xE7FFFF) )
155 |  
156 |   -- heading
157 |   local text = "Current campaign. You need to kill:"
158 |   max_width = math.max (max_width, WindowTextWidth (win, font_id, text))
159 |   Display_Line (1, text, font_id, heading_colour)
160 | 
161 |   -- list of mobs
162 |   for i, v in ipairs (campaign_info) do
163 |     Display_Line (i + 1, v, font_id, text_colour)
164 |   end -- for
165 |   
166 |   -- how long to go
167 |   local time_to_go = when_required - os.time ()
168 |   
169 |   if time_to_go < 0 then
170 |     return
171 |   end -- if
172 |   
173 |   text = string.format ("Time to go: %s", convert_time (time_to_go))
174 |   max_width = math.max (max_width, WindowTextWidth (win, font_id, text))
175 |   Display_Line (#campaign_info + 2, text, font_id, time_colour)
176 |     
177 |   WindowShow (win, true)  
178 | end -- show_campaign_text
179 | 
180 | function cp_time (name, line, wildcards)
181 |   local text = wildcards [1]
182 |     
183 |   -- work out when campaign ends
184 |   
185 |   when_required = os.time ()
186 |   
187 |   local days = string.match (text, "(%d+) days?")
188 |   if days then
189 |     when_required = when_required + tonumber (days) * 60 * 60 * 24
190 |   end -- some days left
191 |   
192 |   local hours = string.match (text, "(%d+) hours?")  
193 |   if hours then
194 |     when_required = when_required + tonumber (hours) * 60 * 60
195 |   end -- some days left
196 | 
197 |   local minutes = string.match (text, "(%d+) minutes?")  
198 |   if minutes then
199 |     when_required = when_required + tonumber (minutes) * 60
200 |   end -- some days left
201 | 
202 |   
203 |   check (EnableTrigger ("campaign_item", false))
204 |   check (EnableTrigger ("cp_time", false))
205 | 
206 |   show_campaign_text ()
207 | 
208 | end -- cp_time
209 | 
210 | function cp_check( name, line, wildcards)
211 |   check (EnableTrigger ("campaign_item", true))
212 |   check (EnableTrigger ("cp_time", true))
213 |   campaign_info = {}
214 |   max_width = 0
215 |   
216 | end -- cp_check
217 | 
218 | 
219 | function OnPluginInstall ()
220 |   
221 |   win = GetPluginID ()
222 |   font_id = "fn"
223 |   
224 |   font_name = "Comic Sans MS"    -- the actual font
225 |   
226 |   -- make window so I can grab the font info
227 |   check (WindowCreate (win, 
228 |                  0, 0, 1, 1,  
229 |                  1,   -- irrelevant
230 |                  0, 
231 |                  background_colour) )
232 | 
233 |   check (WindowFont (win, font_id, font_name, 8, false, false, false, false, 0, 0))  -- normal  
234 |   font_height = WindowFontInfo (win, font_id, 1)  -- height
235 | end -- OnPluginInstall
236 | 
237 | function OnPluginDisable ()
238 |   WindowShow (win, false)
239 | end -- OnPluginDisable
240 | 
241 | ]]>
242 | </script>
243 | 
244 | </muclient>
245 | 


--------------------------------------------------------------------------------
/aardwolf/Aardwolf_Experience_Bar.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <muclient>
  5 | <plugin
  6 |    name="Aardwolf_Experience_Bar"
  7 |    author="Nick Gammon"
  8 |    id="a9253e5af06182f2c90efc75"
  9 |    language="Lua"
 10 |    purpose="Shows XP to level"
 11 |    date_written="2009-07-08"
 12 |    requires="4.40"
 13 |    version="1.0"
 14 |    >
 15 | <description trim="y">
 16 | <![CDATA[
 17 | Install this plugin to show an how close you are to levelling.
 18 | ]]>
 19 | </description>
 20 | 
 21 | </plugin>
 22 | 
 23 | 
 24 | <!--  Script  -->
 25 | 
 26 | 
 27 | <script>
 28 | <![CDATA[
 29 | 
 30 | function OnPluginBroadcast (msg, id, name, text)
 31 |   if msg == 1 and id == "8a710e0783b431c06d61a54c" then
 32 |   
 33 |    -- get all variables
 34 |    stats = GetPluginVariableList("8a710e0783b431c06d61a54c")
 35 |    draw_bar ()
 36 |    
 37 |   end -- stats changed
 38 | end
 39 | 
 40 | 
 41 | win = GetPluginID ()  -- get a unique name
 42 | 
 43 | -- configuration
 44 | 
 45 | GAUGE_HEIGHT = 11
 46 | NUMBER_OF_TICKS = 20
 47 | max_xp = 1000
 48 | 
 49 | BACKGROUND_COLOUR = 0x808080
 50 | BOX_COLOUR = ColourNameToRGB "dodgerblue"
 51 | 
 52 | -- draw the bar here, on getting the prompt, or window resize
 53 | function draw_bar ()
 54 | 
 55 |  if not stats then return end  -- no stats information  yet
 56 |  
 57 |  local done = (max_xp - stats.to_level) / max_xp
 58 |  
 59 |  -- width is window width minus 2
 60 |  local gauge_width = GetInfo (281) - 2
 61 |  
 62 |  -- make room for the bar
 63 |  local bottom_margin = GetInfo (275)
 64 |  
 65 |  -- adjust text rectangle, keeping existing settings where possible
 66 |  if bottom_margin == 0 or 
 67 |     (bottom_margin < 0 and math.abs (bottom_margin) < (GAUGE_HEIGHT + 2)) then
 68 |    TextRectangle(GetInfo (272), GetInfo (273),   -- left, top
 69 |                   GetInfo (274), -- right
 70 |                   - (GAUGE_HEIGHT + 2),  -- bottom (gauge height plus 2 more)
 71 |                   GetInfo (276), GetInfo (282) or 0, GetInfo (277),  --  BorderOffset, BorderColour, BorderWidth
 72 |                   GetInfo (278), GetInfo (279)) -- OutsideFillColour, OutsideFillStyle
 73 |  end -- if
 74 |   
 75 |  -- make the miniwindow
 76 |  WindowCreate (win, 
 77 |              0, 0,   -- left, top (auto-positions)
 78 |              gauge_width,     -- width
 79 |              GAUGE_HEIGHT,  -- height
 80 |              10,       -- auto-position: bottom left
 81 |              0,  -- flags
 82 |              BACKGROUND_COLOUR) 
 83 |   
 84 |   WindowRectOp (win, 2, 0, 0, 0, 0, BACKGROUND_COLOUR)  -- fill entire box
 85 |  
 86 |  
 87 |   -- box size must be > 0 or WindowGradient fills the whole thing 
 88 |   if math.floor (gauge_width * done) > 0 then
 89 |     
 90 |     -- top half
 91 |     WindowGradient (win, 0, 0, gauge_width * done, GAUGE_HEIGHT / 2, 
 92 |                     0x000000,
 93 |                     BOX_COLOUR, 2) 
 94 |     
 95 |     -- bottom half
 96 |     WindowGradient (win, 0, GAUGE_HEIGHT / 2, gauge_width * done, 0, 
 97 |                     BOX_COLOUR,
 98 |                     0x000000,
 99 |                     2) 
100 | 
101 |   end -- any experience to speak of
102 |   
103 |   -- show ticks
104 |   local ticks_at = gauge_width / NUMBER_OF_TICKS
105 |   
106 |   -- ticks
107 |   for i = 1, NUMBER_OF_TICKS do
108 |     WindowLine (win, i * ticks_at, 0, i * ticks_at, GAUGE_HEIGHT, ColourNameToRGB ("silver"), 0, 1)
109 |   end -- for
110 | 
111 |   -- draw a box around it
112 |   check (WindowRectOp (win, 1, 0, 0, 0, 0, ColourNameToRGB ("lightgrey")))  -- frame entire box
113 |     
114 |   -- ensure window visible
115 |   WindowShow (win, true)
116 |   
117 | end -- draw_bar
118 | 
119 | function OnPluginWorldOutputResized ()
120 |   draw_bar ()
121 | end -- function
122 |  
123 | -- hide window on removal
124 | function OnPluginClose ()
125 |   WindowShow (win,  false)  -- hide it
126 | end -- OnPluginClose
127 | 
128 | -- hide window on disable
129 | function OnPluginDisable ()
130 |   WindowShow (win,  false)  -- hide it
131 | end -- OnPluginDisable
132 | 
133 | 
134 | ]]>
135 | </script>
136 | 
137 | </muclient>
138 | 


--------------------------------------------------------------------------------
/aardwolf/Consider_info.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <!-- Saved on Wednesday, August 06, 2008, 1:13 PM -->
  4 | <!-- MuClient version 4.35 -->
  5 | 
  6 | <!-- Plugin "Consider_info" generated by Plugin Wizard -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Consider_info"
 11 |    author="Nick Gammon"
 12 |    id="2a5caa1cd7dbcff665e2a23d"
 13 |    language="Lua"
 14 |    purpose="Colours &quot;consider&quot; lines"
 15 |    date_written="2008-10-15 07:35"
 16 |    requires="4.30"
 17 |    version="2.0"
 18 |    >
 19 | <description trim="y">
 20 | <![CDATA[
 21 | When you type "consider" (or "consider all") the lines are coloured to make it easier to tell high level from low level mobs.
 22 | ]]>
 23 | </description>
 24 | 
 25 | </plugin>
 26 | 
 27 | 
 28 | <!--  Triggers  -->
 29 | 
 30 | <triggers>
 31 | 
 32 |   <trigger
 33 |    enabled="y"
 34 |    group="consider"
 35 |    match="You would stomp * into the ground."
 36 |    omit_from_output="y"
 37 |    script="adapt_consider"
 38 |    sequence="100"
 39 |    name="a"
 40 |   >
 41 |   </trigger>
 42 | 
 43 |   <trigger
 44 |    enabled="y"
 45 |    group="consider"
 46 |    match="* would be easy, but is it even worth the work out?"
 47 |    omit_from_output="y"
 48 |    script="adapt_consider"
 49 |    sequence="100"
 50 |    name="b"
 51 |   >
 52 |   </trigger>
 53 |   
 54 |   <trigger
 55 |    enabled="y"
 56 |    group="consider"
 57 |    match="No Problem! * is weak compared to you."
 58 |    omit_from_output="y"
 59 |    script="adapt_consider"
 60 |    sequence="100"
 61 |    name="c"
 62 |   >
 63 |   </trigger>
 64 |   
 65 |   <trigger
 66 |    enabled="y"
 67 |    group="consider"
 68 |    match="* looks a little worried about the idea."
 69 |    omit_from_output="y"
 70 |    script="adapt_consider"
 71 |    sequence="100"
 72 |    name="d"
 73 |   >
 74 |   </trigger>
 75 | 
 76 |   <trigger
 77 |    enabled="y"
 78 |    group="consider"
 79 |    match="* should be a fair fight!"
 80 |    omit_from_output="y"
 81 |    script="adapt_consider"
 82 |    sequence="100"
 83 |    name="e"
 84 |   >
 85 |   </trigger>
 86 | 
 87 |   <trigger
 88 |    enabled="y"
 89 |    group="consider"
 90 |    match="* snickers nervously."
 91 |    omit_from_output="y"
 92 |    script="adapt_consider"
 93 |    sequence="100"
 94 |    name="f"
 95 |   >
 96 |   </trigger>
 97 |   
 98 |   <trigger
 99 |    enabled="y"
100 |    group="consider"
101 |    match="^(.*?) chuckles at the thought of you fighting (him|her|it)\.$"
102 |    omit_from_output="y"
103 |    regexp="y"
104 |    script="adapt_consider"
105 |    sequence="100"
106 |    name="g"
107 |   >
108 |   </trigger>
109 |     
110 |   <trigger
111 |    enabled="y"
112 |    group="consider"
113 |    match="Best run away from * while you can!"
114 |    omit_from_output="y"
115 |    script="adapt_consider"
116 |    sequence="100"
117 |    name="h"
118 |   >
119 |   </trigger>
120 |   
121 |   <trigger
122 |    enabled="y"
123 |    group="consider"
124 |    match="Challenging * would be either very brave or very stupid."
125 |    omit_from_output="y"
126 |    script="adapt_consider"
127 |    sequence="100"
128 |    name="i"
129 |   >
130 |   </trigger>
131 |   
132 |   <trigger
133 |    enabled="y"
134 |    group="consider"
135 |    match="* would crush you like a bug!"
136 |    omit_from_output="y"
137 |    script="adapt_consider"
138 |    sequence="100"
139 |    name="j"
140 |   >
141 |   </trigger>
142 |   
143 |   <trigger
144 |    enabled="y"
145 |    group="consider"
146 |    match="* would dance on your grave!"
147 |    omit_from_output="y"
148 |    script="adapt_consider"
149 |    sequence="100"
150 |    name="k"
151 |   >
152 |   </trigger>
153 |   
154 |   <trigger
155 |    enabled="y"
156 |    group="consider"
157 |    match="* says 'BEGONE FROM MY SIGHT unworthy!'"
158 |    omit_from_output="y"
159 |    script="adapt_consider"
160 |    sequence="100"
161 |    name="l"
162 |   >
163 |   </trigger>
164 |  
165 |   <trigger
166 |    enabled="y"
167 |    group="consider"
168 |    match="You would be completely annihilated by *!"
169 |    omit_from_output="y"
170 |    script="adapt_consider"
171 |    sequence="100"
172 |    name="m"
173 |   >
174 |   </trigger>
175 |   
176 | </triggers>
177 | 
178 | <!--  Script  -->
179 | 
180 | 
181 | <script>
182 | <![CDATA[
183 | 
184 | consider_messages = {
185 |     a = { range = "-19 and below",  colour = "gray", },
186 |     b = { range = "-10 to -19",     colour = "darkgreen", },
187 |     c = { range = "-6 to -9",       colour = "forestgreen", },
188 |     d = { range = "-2 to -6",       colour = "chartreuse", },
189 |     e = { range = "-2 to +2",       colour = "springgreen", },
190 |     f = { range = "+2 to +3",       colour = "darkgoldenrod", },
191 |     g = { range = "+3 to +8",       colour = "gold", },
192 |     h = { range = "+8 to +16",      colour = "tomato", },
193 |     i = { range = "+16 to +21",     colour = "crimson", },
194 |     j = { range = "+21 to +32",     colour = "lightpink", },
195 |     k = { range = "+32 to +41",     colour = "darkmagenta", },
196 |     l = { range = "+41 to +50",     colour = "darkviolet", },
197 |     m = { range = "+50 and above",  colour = "magenta", },
198 |       } -- end of consider_messages
199 |       
200 | function adapt_consider (name, line, wildcards)
201 |   mob = consider_messages [name]
202 |   if mob then
203 |     ColourNote (mob.colour, "", line .. " (" .. mob.range .. ")" )
204 |   else
205 |     ColourNote ("white", "blue", "Could not find message for trigger: " .. line)
206 |   end -- if
207 | end -- adapt_consider
208 | 
209 | ]]>
210 | </script>
211 | 
212 | </muclient>
213 | 


--------------------------------------------------------------------------------
/aardwolf/Copy_Colour_Output.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | 
  4 | <!-- Plugin "CopyScript" generated by Plugin Wizard -->
  5 | 
  6 | <!-- Amended slightly by Nick Gammon, from Worstje's version, on 17 Feb 2008 -->
  7 | 
  8 | <muclient>
  9 | <plugin
 10 |    name="Copy_Colour_Output"
 11 |    author="Nick Gammon"
 12 |    id="04d9e64f835452b045b427a7"
 13 |    language="Lua"
 14 |    purpose="Copies output with colour codes"
 15 |    save_state="n"
 16 |    date_written="2008-07-28"
 17 |    requires="4.00"
 18 |    version="1.1"
 19 |    >
 20 | 
 21 | <description trim="y">
 22 | Copies text from the output window to the clipboard, with 
 23 | Aardwolf colour codes. 
 24 | 
 25 | To use: highlight text and then:
 26 | 
 27 | Ctrl+D copy (like Ctrl+C but different)
 28 | 
 29 | or: Ctrl + Left-click and select "Copy with Colour"
 30 | 
 31 | </description>
 32 | 
 33 | </plugin>
 34 | 
 35 | <aliases>
 36 |   <alias
 37 |     match="Copy_With_Colour:04d9e64f835452b045b427a7"
 38 |     enabled="y"
 39 |     omit_from_output="y"
 40 |     sequence="100"
 41 |     script="CopyScript"
 42 |     name="Copy_With_Colour"
 43 |     menu="y"
 44 |   >
 45 |   </alias>
 46 | </aliases>
 47 | 
 48 | 
 49 | <!--  Script  -->
 50 | 
 51 | <script>
 52 | <![CDATA[
 53 | 
 54 | -- Thank you, Shaun Biggs, for taking your time to write the CopyScript
 55 | -- (formerly Copy2) function below. It was slightly altered by me to suit
 56 | -- my usage (wordwrapped lines and no \r\n at start of selection).
 57 | 
 58 | 
 59 | local BLACK = 1
 60 | local RED = 2
 61 | local GREEN = 3  
 62 | local YELLOW = 4 
 63 | local BLUE = 5 
 64 | local MAGENTA = 6 
 65 | local CYAN = 7 
 66 | local WHITE = 8
 67 | 
 68 | -- how each colour is to appear (black is not supported on Aardwolf)
 69 | 
 70 | local conversion = {
 71 |   [GetNormalColour (RED)]     = "@r",
 72 |   [GetNormalColour (GREEN)]   = "@g",
 73 |   [GetNormalColour (YELLOW)]  = "@y",
 74 |   [GetNormalColour (BLUE)]    = "@b",
 75 |   [GetNormalColour (MAGENTA)] = "@m",
 76 |   [GetNormalColour (CYAN)]    = "@c",
 77 |   [GetNormalColour (WHITE)]   = "@w",
 78 |   [GetBoldColour   (RED)]     = "@R",
 79 |   [GetBoldColour   (GREEN)]   = "@G",
 80 |   [GetBoldColour   (YELLOW)]  = "@Y",
 81 |   [GetBoldColour   (BLUE)]    = "@B",
 82 |   [GetBoldColour   (MAGENTA)] = "@M",
 83 |   [GetBoldColour   (CYAN)]    = "@C",
 84 |   [GetBoldColour   (WHITE)]   = "@W",
 85 |   }  -- end conversion table
 86 |   
 87 | function DoOneLine (styles, startcol, endcol)
 88 | 
 89 |   -- remove unneeded style runs at the start
 90 |   while next (styles) and startcol > styles [1].length do
 91 |     startcol = startcol - styles [1].length
 92 |     endcol = endcol - styles [1].length
 93 |     table.remove (styles, 1)
 94 |   end -- do
 95 |   
 96 |   -- nothing left? uh oh
 97 |   if not next (styles) then return end
 98 |   
 99 |   -- discard unwanted part of first good style
100 |   if startcol > 1 then
101 |     styles [1].length = styles [1].length - startcol
102 |     endcol = endcol - startcol + 1
103 |     styles [1].text =  styles [1].text:sub (startcol)   
104 |     startcol = 1
105 |   end -- if
106 |   
107 |   -- copy appropriate styles and codes into the output
108 |   while next (styles) do
109 |     local len = endcol - startcol + 1
110 |     
111 |     if len < 0 or endcol < 1 then
112 |       return
113 |     end -- done
114 |     
115 |     -- last style?
116 |     if len < styles [1].length then
117 |       styles [1].length = len
118 |       styles [1].text = styles [1].text:sub (1, len)
119 |     end -- if last style
120 |   
121 |     -- fixup string first - change @ to @@ and ~ to @-
122 |     local text = string.gsub (styles [1].text, "@", "@@")
123 |     text = string.gsub (styles [1].text, "~", "@-")
124 |     
125 |     -- put code in front, if we can find one
126 |     local code = conversion [styles [1].textcolour]
127 |     if code then
128 |       copystring = copystring .. code
129 |     end -- if code found
130 |     
131 |     -- now the text
132 |     copystring = copystring .. text
133 |     
134 |     -- less to go now
135 |     endcol = endcol - styles [1].length
136 |     
137 |     -- done this style
138 |     table.remove (styles, 1)
139 |     
140 |   end -- while
141 |   
142 | end -- DoOneLine
143 | 
144 | function CopyScript(name, line, wildcs)
145 | 
146 |   -- find selection in output window, if any
147 |   local first_line, last_line = GetSelectionStartLine(), 
148 |                                 math.min (GetSelectionEndLine(), GetLinesInBufferCount ())
149 | 
150 |   local first_column, last_column = GetSelectionStartColumn(), GetSelectionEndColumn()
151 |   
152 |   -- nothing selected, do normal copy
153 |   if first_line <= 0 then
154 |     DoCommand("copy")
155 |     return
156 |   end -- if nothing to copy from output window
157 |   
158 |   copystring = ""
159 |   
160 |   -- iterate to build up copy text
161 |   for line = first_line, last_line do
162 |   
163 |     if line < last_line then
164 |       DoOneLine (GetStyleInfo(line), first_column, GetLineInfo(line).length) 
165 |       first_column = 1
166 |       
167 |       -- Is this a new line or merely the continuation of a paragraph?
168 |       if GetLineInfo (line, 3) then
169 |         copystring = copystring .. "\r\n"
170 |       end  -- new line
171 |       
172 |     else
173 |       DoOneLine (GetStyleInfo(line), first_column, last_column)
174 |     end -- if
175 |         
176 |   end  -- for loop
177 |   
178 |   -- Get rid of a spurious extra new line at the start.
179 |   if copystring:sub (1, 2) == "\r\n" then
180 |     copystring = copystring:sub (3)
181 |   end   -- if newline at start
182 | 
183 |   if copystring:sub (-2) ~= "@w" then
184 |     copystring = copystring .. "@w"
185 |   end   -- if newline at start
186 | 
187 |   
188 |   -- finally can set clipboard contents
189 |   SetClipboard(copystring)
190 |   
191 | end -- function CopyScript
192 | 
193 | AcceleratorTo ("Ctrl+D", "CallPlugin ('04d9e64f835452b045b427a7', 'CopyScript', '')", sendto.script)
194 | 
195 | ]]>
196 | </script>
197 | 
198 | </muclient>
199 | 


--------------------------------------------------------------------------------
/aardwolf/Create_World_File.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | 
 4 | <muclient>
 5 | <plugin
 6 |    name="xCreate_World_File"
 7 |    author="Nick Gammon"
 8 |    id="35dfdbf3afc8cbf60c91277c"
 9 |    language="Lua"
10 |    purpose="Creates a world file."
11 |    date_written="2008-07-01"
12 |    requires="4.30"
13 |    version="1.0"
14 |    >
15 | <description trim="y">
16 | <![CDATA[
17 | Implements an interface for other plugins, or triggers etc. to create a world file.
18 | 
19 | Example of use:
20 | 
21 |  -- Create world file Spells in folder Aardwolf
22 |  check (CallPlugin ("35dfdbf3afc8cbf60c91277c", "CreateWorldFile", "Aardwolf,Spells"))
23 |  
24 | ]]>
25 | </description>
26 | 
27 | </plugin>
28 | 
29 | <!--  Script  -->
30 | 
31 | <script>
32 | <![CDATA[
33 | 
34 | require "getworld"
35 | require "commas"
36 | 
37 | -- args are: folder,file
38 | 
39 | function CreateWorldFile (args)
40 |   
41 | 
42 |   local folder, filename = string.match (args,
43 |         "^([%w ]+),%s*([%w ]+)$")
44 |   
45 |   if not folder then
46 |     error ("Arguments to CreateWorldFile are: folder,file. You supplied: " .. args)
47 |   end -- if
48 | 
49 |   folder = trim (folder)
50 |   if folder == "" then
51 |     folder = nil
52 |   end -- no folder
53 |   
54 |   filename = trim (filename)
55 |   
56 |   local pathname = GetInfo (57)
57 |   if folder then
58 |     pathname = pathname .. folder .. "\\"
59 |   end -- if folder wanted
60 |   
61 |   t, err = utils.readdir (pathname .. "*")
62 |   
63 |   if not t then
64 |     ColourNote ("red", "", "Directory " .. pathname .. " does not exist.")
65 |     ColourNote ("silver", "", "Please create it and reinstall plugins.")
66 |   end -- if
67 | 
68 |   local t = debug.getinfo (io.open)
69 |   
70 |   -- can't if sandboxed
71 |   if t.source == "Sandbox" then
72 |     return
73 |   end -- if
74 |     
75 |   -- ensure world file exists
76 |   make_world (filename, [[
77 |     <!-- plugins -->
78 |   <include name="Send_Input_To_Main_World.xml" plugin="y" />
79 |   <include name="Copy_Output.xml" plugin="y" />
80 |   <include name="Restore_On_Activate.xml" plugin="y" />
81 |   
82 |   ]], folder)
83 |   
84 | 
85 | end -- function CreateWorldFile 
86 | 
87 | 
88 | ]]>
89 | </script>
90 | 
91 | 
92 | </muclient>
93 | 


--------------------------------------------------------------------------------
/aardwolf/Playing_Detector.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient>
  3 | <muclient>
  4 | <plugin
  5 |    name="xPlaying_Detector"
  6 |    author="Nick Gammon"
  7 |    id="f5b05e8826711cdb0d141939"
  8 |    language="Lua"
  9 |    purpose="Detects if you are actually playing."
 10 |    date_written="2008-07-02"
 11 |    requires="4.33"
 12 |    version="1.0"
 13 |    >
 14 | 
 15 | <description trim="y">
 16 | 
 17 | [FOR PLUGIN AUTHORS ONLY]
 18 | 
 19 | Detects if you are playing (as opposed to logging in, creating
 20 | a new character, etc.)
 21 | 
 22 | Example:
 23 | 
 24 |   function OnPluginBroadcast (msg, id, name, text)
 25 |     if id == "f5b05e8826711cdb0d141939" then
 26 |       playing = text == "y"
 27 |     end -- playing status changed
 28 |   end
 29 | 
 30 | To test if you are currently playing (after a reinstall):
 31 | 
 32 |   playing = GetPluginVariable ("f5b05e8826711cdb0d141939", "playing")
 33 | 
 34 | </description>
 35 | 
 36 | </plugin>
 37 | 
 38 | <!--  Script  -->
 39 | 
 40 | <script>
 41 | <![CDATA[
 42 | 
 43 | require "var"
 44 | 
 45 | playing = false
 46 | var.playing = "n"
 47 | 
 48 | function OnPluginTelnetOption (option)
 49 |   --- ignore not type 100.
 50 |   if string.byte(option,1) ~= 100 then return end
 51 | 
 52 |   if option == string.char (100, 3) then
 53 |     now_playing ()
 54 |   else
 55 |     stopped_playing ()
 56 |   end -- if
 57 | end -- function
 58 | 
 59 | function now_playing (name, line, wildcards)
 60 |   if playing then
 61 |     return
 62 |   end -- if already playing
 63 | 
 64 |    
 65 |   playing = true
 66 |   var.playing = "y"
 67 |   BroadcastPlugin (1, "y")
 68 | end -- now_playing
 69 | 
 70 | function stopped_playing (name, line, wildcards)
 71 |   if not playing then
 72 |     return
 73 |   end -- if already not playing
 74 | 
 75 |   playing = false
 76 |   var.playing = "n"
 77 |   BroadcastPlugin (1, "n")
 78 | end -- stopped_playing
 79 | 
 80 | -- pull in telnet option handling
 81 | dofile (GetPluginInfo (GetPluginID (), 20) .. "telnet_options.lua")
 82 | 
 83 | function OnPluginInstall ()
 84 | 
 85 |   -- if we are connected when the plugin loads, it must have been reloaded whilst playing
 86 |   if IsConnected () then
 87 |     TelnetOptionOn (TELOPT_REQUEST_STATUS)  -- get actual status (eg. afk, playing)
 88 |   end -- if already connected
 89 |  
 90 | end -- function OnPluginInstall
 91 | 
 92 | function OnPluginDisconnect ()
 93 |   stopped_playing ()
 94 | end -- function OnPluginInstall
 95 | 
 96 | function OnPluginConnect ()
 97 |   stopped_playing ()  -- wait for playing message
 98 | end -- function OnPluginConnect
 99 | 
100 | 
101 | ]]>
102 | </script>
103 | </muclient>
104 | 


--------------------------------------------------------------------------------
/aardwolf/Stats_Detector.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="iso-8859-1"?>
  2 | <!DOCTYPE muclient [
  3 |   <!ENTITY timer_mins "5" > 
  4 |   <!ENTITY timer_secs "0" > 
  5 | ]>
  6 | <!-- Saved on Saturday, June 30, 2007, 10:48  -->
  7 | <!-- MuClient version 4.13 -->
  8 | 
  9 | <muclient>
 10 | <plugin
 11 |    name="xStats_Detector"
 12 |    author="Nick Gammon"
 13 |    id="8a710e0783b431c06d61a54c"
 14 |    language="Lua"
 15 |    purpose="Process {stats} line into variables"
 16 |    date_written="2008-07-02"
 17 |    requires="4.33"
 18 |    version="1.1"
 19 |    >
 20 | <description trim="y">
 21 | 
 22 | [FOR PLUGIN AUTHORS ONLY]
 23 | 
 24 | Detects and processes the {stats} tag, for the benefit of other plugins.
 25 | 
 26 | First, await the OnPluginBroadcast which notifies you stats have changed
 27 | (or just check them when you need to).
 28 | 
 29 | Then pull out one of more variables. You can use GetPluginVariableList to
 30 | get the lot, or GetPluginVariable to get one.
 31 | 
 32 | Example:
 33 | 
 34 | function OnPluginBroadcast (msg, id, name, text)
 35 |   if msg == 1 and id == "8a710e0783b431c06d61a54c" then
 36 |   
 37 |     -- get all variables
 38 |     local stats = GetPluginVariableList("8a710e0783b431c06d61a54c")
 39 |     
 40 |     -- pull one out of table
 41 |     print (stats.str, stats.fighting)
 42 |     
 43 |     -- get one variable
 44 |     fighting = GetPluginVariable ("8a710e0783b431c06d61a54c", "fighting")
 45 |      
 46 |   end -- stats changed
 47 | end
 48 | 
 49 | </description>
 50 | 
 51 | </plugin>
 52 | 
 53 | 
 54 | <triggers>
 55 |   <trigger
 56 |    enabled="y"
 57 |    match="{stats}*"
 58 |    send_to="12"
 59 |    sequence="100"
 60 |    script="process_prompt"
 61 |    omit_from_output="y"
 62 |   >
 63 |   <send>
 64 | 
 65 | </send>
 66 |   </trigger>
 67 | </triggers>
 68 | 
 69 | 
 70 | <!--  Script  -->
 71 | 
 72 | <script>
 73 | <![CDATA[
 74 | 
 75 | --[[ 
 76 | 
 77 | Example of stats line:
 78 | 
 79 | {stats}39/30,16/13,13/13,28/25,29/25,13/10,93,100,100,44,34,
 80 |       You are Standing.,9999,532/567,510/510,880/880,3199,0,0,2500,241,25,5
 81 | 
 82 | 1="39/30"     -->  current str / base str,
 83 | 2="16/13"     -->  current int / base int,  
 84 | 3="13/13"     -->  current wis / base wis,  
 85 | 4="28/25"     -->  current dex / base dex,  
 86 | 5="29/25"     -->   current con / base con,  
 87 | 6="13/10"     -->   current luck / base luck,
 88 | 7="93"        --> hp percent,
 89 | 8="100"       --> mana percent,
 90 | 9="100"       --> moves percent,
 91 | 10="44"       -->  hitroll,
 92 | 11="34"       --> damroll, 
 93 | 12="You are Standing."  --> position, 
 94 | 13="9999"     --> enemy pct (9999 if not fighting),
 95 | 14="532/567"  --> hp / maxhp,
 96 | 15="510/510"  --> mana / max mana,
 97 | 16="880/880"  --> moves / max moves, 
 98 | 17="3199"     --> gold,
 99 | 18="0"        --> qp,
100 | 19="0"        --> tp,
101 | 20="2500"     --> align,
102 | 21="241"      --> exp to level,
103 | 22="25        --> current level
104 | 23="5"        --> position
105 | 
106 | Example of converted output:
107 | 
108 | (after doing: stats = GetPluginVariableList("8a710e0783b431c06d61a54c")
109 | 
110 | "align"="34"
111 | "base_con"="15"
112 | "base_dex"="15"
113 | "base_int"="11"
114 | "base_luck"="11"
115 | "base_str"="16"
116 | "base_wis"="12"
117 | "con"="15"
118 | "damroll"="23"
119 | "dex"="15"
120 | "doing"="You are Standing."
121 | "enemy"=""
122 | "enemy_percent"="9999"
123 | "fighting"="n"
124 | "gold"="256"
125 | "hitroll"="27"
126 | "hp"="304"
127 | "int"="11"
128 | "last_enemy"="A black manta ray"
129 | "level"="204"
130 | "luck"="11"
131 | "mana"="300"
132 | "max_hp"="304"
133 | "max_mana"="300"
134 | "max_moves"="650"
135 | "moves"="647"
136 | "position"="5"
137 | "position_str"="standing"
138 | "qp"="96999"
139 | "str"="16"
140 | "to_level"="1000"
141 | "tp"="0"
142 | "wis"="12"
143 | 
144 | 
145 | --]]
146 |  
147 | positions = {
148 |    [0] = "dead",
149 |    [1] = "sleeping",
150 |    [2] = "resting",
151 |    [3] = "sitting  ",
152 |    [4] = "fighting",
153 |    [5] = "standing",
154 |   }
155 |     
156 | require "var"
157 | 
158 | function do_pair (item)
159 |   return string.match (item, "(%d+)%/(%d+)")
160 | end -- do_pair
161 |    
162 | function capitalize (s)
163 |   return string.sub (s, 1, 1):upper () .. string.sub (s, 2):lower ()
164 | end -- capitalize 
165 | 
166 | function process_prompt (name, line, wildcards)
167 | 
168 |   local data = {}
169 |     
170 |   for item in string.gmatch(wildcards [1], "[^,]+") do 
171 |      table.insert (data, item)
172 |   end
173 |   
174 |   -- put into our table, other plugins can pull them out
175 |   var.str, var.base_str   = do_pair (data [1])
176 |   var.int, var.base_int   = do_pair (data [2])
177 |   var.wis, var.base_wis   = do_pair (data [3])
178 |   var.dex, var.base_dex   = do_pair (data [4])
179 |   var.con, var.base_con   = do_pair (data [5])
180 |   var.luck, var.base_luck = do_pair (data [6])
181 |   var.hp_percent = data [7]
182 |   var.mana_percent = data [8]
183 |   var.moves_percent = data [9]
184 |   var.hitroll = data [10]
185 |   var.damroll = data [11]
186 |   var.doing = data [12]  -- 'fighting x' for example
187 |   var.enemy_percent = data [13]
188 |   var.hp, var.max_hp = do_pair (data [14])
189 |   var.mana, var.max_mana = do_pair (data [15])
190 |   var.moves, var.max_moves = do_pair (data [16])
191 |   var.gold = data [17]
192 |   var.qp = data [18]
193 |   var.tp = data [19]
194 |   var.align = data [20]
195 |   var.to_level = data [21]
196 |   var.level = data [22]
197 |   var.position = data [23]
198 |   
199 |   -- interpret a couple of them
200 |   
201 |   -- position as a string
202 |   var.position_str = positions [tonumber (data [23])] or "unknown"
203 |   
204 |   -- who we are fighting
205 |   if var.position == "4" then
206 |     var.fighting = "y"
207 |     var.enemy = capitalize (string.match (data [12], "^You are fighting (.+)%.$") or "Enemy")
208 |     last_enemy = var.enemy
209 |   else
210 |     var.fighting = "n"
211 |     var.enemy = ""
212 |     var.last_enemy = last_enemy
213 |   end -- who enemy is
214 |  
215 |   BroadcastPlugin (1, "")
216 |   
217 | end -- process_prompt
218 | 
219 | function OnPluginInstall ()
220 |   -- if we are connected when the plugin loads, it must have been reloaded whilst playing
221 |   if IsConnected () then
222 |     OnPluginConnect ()
223 |   end -- if already connected
224 | end -- OnPluginInstall
225 | 
226 | -- pull in telnet option handling
227 | dofile (GetPluginInfo (GetPluginID (), 20) .. "telnet_options.lua")
228 |   
229 | function OnPluginConnect ()
230 |   TelnetOptionOn (TELOPT_STATMON)
231 | end -- function OnPluginConnect
232 | 
233 | function OnPluginClose ()
234 |   TelnetOptionOff (TELOPT_STATMON)
235 | end -- OnPluginClose
236 | 
237 | function OnPluginEnable ()
238 |   OnPluginConnect ()
239 | end -- OnPluginEnable
240 | 
241 | function OnPluginDisable ()
242 |   OnPluginClose ()
243 | end -- OnPluginDisable
244 | 
245 | ]]>
246 | </script>
247 | </muclient>
248 | 


--------------------------------------------------------------------------------
/aardwolf/telnet_options.lua:
--------------------------------------------------------------------------------
 1 | -- well-known options
 2 | 
 3 | 
 4 | TELOPT_STATMON = 1
 5 | TELOPT_BIGMAP = 2
 6 | TELOPT_HELPS = 3
 7 | TELOPT_MAP = 4
 8 | TELOPT_CHANNELS = 5
 9 | TELOPT_TELLS = 6
10 | TELOPT_SPELLUP = 7
11 | TELOPT_SKILLGAINS = 8
12 | TELOPT_SAYS = 9
13 | TELOPT_SCORE = 11
14 | TELOPT_ROOM_NAMES = 12
15 | TELOPT_EXIT_NAMES = 14
16 | TELOPT_EDITOR_TAGS = 15
17 | TELOPT_EQUIPMENT = 16
18 | TELOPT_INVENTORY = 17
19 |             
20 | TELOPT_QUIET = 50
21 | TELOPT_AUTOTICK = 51
22 | TELOPT_PROMPT = 52
23 | TELOPT_PAGING = 53
24 | TELOPT_AUTOMAP = 54
25 | TELOPT_SHORTMAP = 55
26 | 
27 | 
28 | TELOPT_REQUEST_STATUS = 100
29 | 
30 | 
31 | 
32 | local function TelnetOption (which, on)
33 |   -- Telnet Negotiation Options
34 |   local IAC, SB, SE = 0xFF, 0xFA, 0xF0
35 |   local TELOPT_WILL, TELOPT_WONT, TELOPT_DO, TELOPT_DONT = 0xFB,0xFC, 0xFD, 0xFE       
36 |   
37 |   -- Telnet subnegotiation for Aardwolf
38 |   local AARDWOLF_TELOPT = 102
39 |   
40 |   local TELOPT_ON, TELOPT_OFF = 1, 2  -- turn on or off
41 |   
42 | 
43 | 
44 |   if on then
45 |     SendPkt (string.char (IAC, SB, AARDWOLF_TELOPT, which, TELOPT_ON, IAC, SE)) 
46 |   else
47 |     SendPkt (string.char (IAC, SB, AARDWOLF_TELOPT, which, TELOPT_OFF, IAC, SE)) 
48 |   end -- if
49 |   
50 | end -- TelnetOption
51 | 
52 | 
53 | function TelnetOptionOn (which)
54 |   TelnetOption (which, true)
55 | end -- TelnetOptionOn
56 | 
57 | 
58 | function TelnetOptionOff (which)
59 |   TelnetOption (which, false)
60 | end -- TelnetOptionOff
61 | 
62 | 
63 | if GetOption ("enable_triggers") ~= 1 then
64 |   ColourNote ("white", "red", "Warning: Triggers not enabled")
65 | end -- if no triggers
66 | 
67 | 
68 | if GetOption ("enable_aliases") ~= 1 then
69 |   ColourNote ("white", "red", "Warning: Aliases not enabled")
70 | end -- if no triggers
71 | 
72 | 
73 | if GetOption ("enable_timers") ~= 1 then
74 |   ColourNote ("white", "red", "Warning: Timers not enabled")
75 | end -- if no triggers
76 | 
77 | 
78 | 


--------------------------------------------------------------------------------
/constants.lua:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | 
  3 | <!-- Constants For use in Lua scripting -->
  4 | 
  5 | <!DOCTYPE script>
  6 | <script>
  7 | <![CDATA[
  8 | 
  9 | -- ----------------------------------------------------------
 10 | -- Error codes returned by various functions
 11 | -- ----------------------------------------------------------
 12 | 
 13 | -- These are preloaded into the "error_code" table.
 14 | -- Also, the descriptions are available in the "error_desc" table.
 15 | 
 16 |   eOK = 0; -- No error
 17 |   eWorldOpen = 30001; -- The world is already open
 18 |   eWorldClosed = 30002; -- The world is closed, this action cannot be performed
 19 |   eNoNameSpecified = 30003; -- No name has been specified where one is required
 20 |   eCannotPlaySound = 30004; -- The sound file could not be played
 21 |   eTriggerNotFound = 30005; -- The specified trigger name does not exist
 22 |   eTriggerAlreadyExists = 30006; -- Attempt to add a trigger that already exists
 23 |   eTriggerCannotBeEmpty = 30007; -- The trigger "match" string cannot be empty
 24 |   eInvalidObjectLabel = 30008; -- The name of this object is invalid
 25 |   eScriptNameNotLocated = 30009; -- Script name is not in the script file
 26 |   eAliasNotFound = 30010; -- The specified alias name does not exist
 27 |   eAliasAlreadyExists = 30011; -- Attempt to add a alias that already exists
 28 |   eAliasCannotBeEmpty = 30012; -- The alias "match" string cannot be empty
 29 |   eCouldNotOpenFile = 30013; -- Unable to open requested file
 30 |   eLogFileNotOpen = 30014; -- Log file was not open
 31 |   eLogFileAlreadyOpen = 30015; -- Log file was already open
 32 |   eLogFileBadWrite = 30016; -- Bad write to log file
 33 |   eTimerNotFound = 30017; -- The specified timer name does not exist
 34 |   eTimerAlreadyExists = 30018; -- Attempt to add a timer that already exists
 35 |   eVariableNotFound = 30019; -- Attempt to delete a variable that does not exist
 36 |   eCommandNotEmpty = 30020; -- Attempt to use SetCommand with a non-empty command window
 37 |   eBadRegularExpression = 30021; -- Bad regular expression syntax
 38 |   eTimeInvalid = 30022; -- Time given to AddTimer is invalid
 39 |   eBadMapItem = 30023; -- Direction given to AddToMapper is invalid
 40 |   eNoMapItems = 30024; -- No items in mapper
 41 |   eUnknownOption = 30025; -- Option name not found
 42 |   eOptionOutOfRange = 30026; -- New value for option is out of range
 43 |   eTriggerSequenceOutOfRange = 30027; -- Trigger sequence value invalid
 44 |   eTriggerSendToInvalid = 30028; -- Where to send trigger text to is invalid
 45 |   eTriggerLabelNotSpecified = 30029; -- Trigger label not specified/invalid for 'send to variable'
 46 |   ePluginFileNotFound = 30030; -- File name specified for plugin not found
 47 |   eProblemsLoadingPlugin = 30031; -- There was a parsing or other problem loading the plugin
 48 |   ePluginCannotSetOption = 30032; -- Plugin is not allowed to set this option
 49 |   ePluginCannotGetOption = 30033; -- Plugin is not allowed to get this option
 50 |   eNoSuchPlugin = 30034; -- Requested plugin is not installed
 51 |   eNotAPlugin = 30035; -- Only a plugin can do this
 52 |   eNoSuchRoutine = 30036; -- Plugin does not support that subroutine (subroutine not in script)
 53 |   ePluginDoesNotSaveState = 30037; -- Plugin does not support saving state
 54 |   ePluginCouldNotSaveState = 30037; -- Plugin could not save state (eg. no state directory)
 55 |   ePluginDisabled = 30039; -- Plugin is currently disabled
 56 |   eErrorCallingPluginRoutine = 30040; -- Could not call plugin routine
 57 |   eCommandsNestedTooDeeply = 30041; -- Calls to "Execute" nested too deeply
 58 |   eCannotCreateChatSocket = 30042; -- Unable to create socket for chat connection
 59 |   eCannotLookupDomainName = 30043; -- Unable to do DNS (domain name) lookup for chat connection
 60 |   eNoChatConnections = 30044; -- No chat connections open
 61 |   eChatPersonNotFound = 30045; -- Requested chat person not connected
 62 |   eBadParameter = 30046; -- General problem with a parameter to a script call
 63 |   eChatAlreadyListening = 30047; -- Already listening for incoming chats
 64 |   eChatIDNotFound = 30048; -- Chat session with that ID not found
 65 |   eChatAlreadyConnected = 30049; -- Already connected to that server/port
 66 |   eClipboardEmpty = 30050; -- Cannot get (text from the) clipboard
 67 |   eFileNotFound = 30051; -- Cannot open the specified file
 68 |   eAlreadyTransferringFile = 30052; -- Already transferring a file
 69 |   eNotTransferringFile = 30053; -- Not transferring a file
 70 |   eNoSuchCommand = 30054; -- There is not a command of that name
 71 |   eArrayAlreadyExists = 30055;  -- Chat session with that ID not found
 72 |   eArrayDoesNotExist = 30056;  -- Already connected to that server/port
 73 |   eArrayNotEvenNumberOfValues = 30057;  -- Cannot get (text from the) clipboard
 74 |   eImportedWithDuplicates = 30058;  -- Cannot open the specified file
 75 |   eBadDelimiter = 30059;  -- Already transferring a file
 76 |   eSetReplacingExistingValue = 30060;  -- Not transferring a file
 77 |   eKeyDoesNotExist = 30061;  -- There is not a command of that name
 78 |   eCannotImport = 30062;  -- There is not a command of that name
 79 |   eItemInUse = 30063;   -- Cannot delete trigger/alias/timer because it is executing a script
 80 |   eSpellCheckNotActive = 30064;     -- Spell checker is not active
 81 |   eSpellCheckNotActive = 30064;    -- Spell checker is not active
 82 |   eCannotAddFont = 30065;          -- Cannot create requested font
 83 |   ePenStyleNotValid = 30066;       -- Invalid settings for pen parameter
 84 |   eUnableToLoadImage = 30067;      -- Bitmap image could not be loaded
 85 |   eImageNotInstalled = 30068;      -- Image has not been loaded into window 
 86 |   eInvalidNumberOfPoints = 30069;  -- Number of points supplied is incorrect 
 87 |   eInvalidPoint = 30070;           -- Point is not numeric
 88 |   eHotspotPluginChanged = 30071;   -- Hotspot processing must all be in same plugin
 89 |   eHotspotNotInstalled = 30072;    -- Hotspot has not been defined for this window 
 90 |   eNoSuchWindow = 30073;           -- Requested miniwindow does not exist
 91 |   eBrushStyleNotValid = 30074;     -- Invalid settings for brush parameter
 92 | 
 93 | 
 94 | -- ----------------------------------------------------------
 95 | -- Flags for AddTrigger
 96 | -- ----------------------------------------------------------
 97 | 
 98 | -- These are preloaded into the "trigger_flag" table.
 99 | 
100 |   eEnabled = 1; -- enable trigger 
101 |   eOmitFromLog = 2; -- omit from log file 
102 |   eOmitFromOutput = 4; -- omit trigger from output 
103 |   eKeepEvaluating = 8; -- keep evaluating 
104 |   eIgnoreCase = 16; -- ignore case when matching 
105 |   eTriggerRegularExpression = 32; -- trigger uses regular expression 
106 |   eExpandVariables = 512; -- expand variables like @direction 
107 |   eReplace = 1024; -- replace existing trigger of same name 
108 |   eLowercaseWildcard = 2048;  -- wildcards forced to lower-case
109 |   eTemporary = 16384; -- temporary - do not save to world file 
110 |   eTriggerOneShot = 32768; -- one shot - delete after firing
111 | 
112 | -- ----------------------------------------------------------
113 | -- Colours for AddTrigger
114 | -- ----------------------------------------------------------
115 | 
116 | -- These are preloaded into the "custom_colour" table.
117 | 
118 |   NOCHANGE = -1;
119 |   custom1 = 0;
120 |   custom2 = 1;
121 |   custom3 = 2; 
122 |   custom4 = 3;
123 |   custom5 = 4;
124 |   custom6 = 5;
125 |   custom7 = 6;
126 |   custom8 = 7;
127 |   custom9 = 8;
128 |   custom10 = 9;
129 |   custom11 = 10;
130 |   custom12 = 11;
131 |   custom13 = 12;
132 |   custom14 = 13;
133 |   custom15 = 14;
134 |   custom16 = 15;
135 |   custom_other = 16;  -- triggers only
136 | 
137 | -- ----------------------------------------------------------
138 | -- Flags for AddAlias
139 | -- ----------------------------------------------------------
140 | 
141 | -- These are preloaded into the "alias_flag" table.
142 | 
143 |   -- eEnabled = 1; -- same as for AddTrigger 
144 |   eIgnoreAliasCase = 32; -- ignore case when matching 
145 |   eOmitFromLogFile = 64; -- omit this alias from the log file 
146 |   eAliasRegularExpression = 128; -- alias is regular expressions 
147 |   eExpandVariables = 512;  -- same as for AddTrigger 
148 |   -- eReplace = 1024;  -- same as for AddTrigger 
149 |   eAliasSpeedWalk = 2048; -- interpret send string as a speed walk string 
150 |   eAliasQueue = 4096; -- queue this alias for sending at the speedwalking delay interval 
151 |   eAliasMenu = 8192; -- this alias appears on the alias menu 
152 |   -- eTemporary = 16384;  -- same as for AddTrigger 
153 |   eAliasOneShot = 32768; -- one shot - delete after firing
154 | 
155 | 
156 | ]]>            
157 |  </script>
158 | 


--------------------------------------------------------------------------------
/constants.pys:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | 
  3 | <!-- Constants For use in Python scripting -->
  4 | 
  5 | <!DOCTYPE script>
  6 | <script>
  7 | <![CDATA[
  8 | # ----------------------------------------------------------
  9 | # Error codes returned by various functions
 10 | # ----------------------------------------------------------
 11 | 
 12 | eOK = 0 # No error
 13 | eWorldOpen = 30001 # The world is already open
 14 | eWorldClosed = 30002 # The world is closed, this action cannot be performed
 15 | eNoNameSpecified = 30003 # No name has been specified where one is required
 16 | eCannotPlaySound = 30004 # The sound file could not be played
 17 | eTriggerNotFound = 30005 # The specified trigger name does not exist
 18 | eTriggerAlreadyExists = 30006 # Attempt to add a trigger that already exists
 19 | eTriggerCannotBeEmpty = 30007 # The trigger "match" string cannot be empty
 20 | eInvalidObjectLabel = 30008 # The name of this object is invalid
 21 | eScriptNameNotLocated = 30009 # Script name is not in the script file
 22 | eAliasNotFound = 30010 # The specified alias name does not exist
 23 | eAliasAlreadyExists = 30011 # Attempt to add a alias that already exists
 24 | eAliasCannotBeEmpty = 30012 # The alias "match" string cannot be empty
 25 | eCouldNotOpenFile = 30013 # Unable to open requested file
 26 | eLogFileNotOpen = 30014 # Log file was not open
 27 | eLogFileAlreadyOpen = 30015 # Log file was already open
 28 | eLogFileBadWrite = 30016 # Bad write to log file
 29 | eTimerNotFound = 30017 # The specified timer name does not exist
 30 | eTimerAlreadyExists = 30018 # Attempt to add a timer that already exists
 31 | eVariableNotFound = 30019 # Attempt to delete a variable that does not exist
 32 | eCommandNotEmpty = 30020 # Attempt to use SetCommand with a non-empty command window
 33 | eBadRegularExpression = 30021 # Bad regular expression syntax
 34 | eTimeInvalid = 30022 # Time given to AddTimer is invalid
 35 | eBadMapItem = 30023 # Direction given to AddToMapper is invalid
 36 | eNoMapItems = 30024 # No items in mapper
 37 | eUnknownOption = 30025 # Option name not found
 38 | eOptionOutOfRange = 30026 # New value for option is out of range
 39 | eTriggerSequenceOutOfRange = 30027 # Trigger sequence value invalid
 40 | eTriggerSendToInvalid = 30028 # Where to send trigger text to is invalid
 41 | eTriggerLabelNotSpecified = 30029 # Trigger label not specified/invalid for 'send to variable'
 42 | ePluginFileNotFound = 30030 # File name specified for plugin not found
 43 | eProblemsLoadingPlugin = 30031 # There was a parsing or other problem loading the plugin
 44 | ePluginCannotSetOption = 30032 # Plugin is not allowed to set this option
 45 | ePluginCannotGetOption = 30033 # Plugin is not allowed to get this option
 46 | eNoSuchPlugin = 30034 # Requested plugin is not installed
 47 | eNotAPlugin = 30035 # Only a plugin can do this
 48 | eNoSuchRoutine = 30036 # Plugin does not support that subroutine (subroutine not in script)
 49 | ePluginDoesNotSaveState = 30037 # Plugin does not support saving state
 50 | ePluginCouldNotSaveState = 30037 # Plugin could not save state (eg. no state directory)
 51 | ePluginDisabled = 30039 # Plugin is currently disabled
 52 | eErrorCallingPluginRoutine = 30040 # Could not call plugin routine
 53 | eCommandsNestedTooDeeply = 30041 # Calls to "Execute" nested too deeply
 54 | eCannotCreateChatSocket = 30042 # Unable to create socket for chat connection
 55 | eCannotLookupDomainName = 30043 # Unable to do DNS (domain name) lookup for chat connection
 56 | eNoChatConnections = 30044 # No chat connections open
 57 | eChatPersonNotFound = 30045 # Requested chat person not connected
 58 | eBadParameter = 30046 # General problem with a parameter to a script call
 59 | eChatAlreadyListening = 30047 # Already listening for incoming chats
 60 | eChatIDNotFound = 30048 # Chat session with that ID not found
 61 | eChatAlreadyConnected = 30049 # Already connected to that server/port
 62 | eClipboardEmpty = 30050 # Cannot get (text from the) clipboard
 63 | eFileNotFound = 30051 # Cannot open the specified file
 64 | eAlreadyTransferringFile = 30052 # Already transferring a file
 65 | eNotTransferringFile = 30053 # Not transferring a file
 66 | eNoSuchCommand = 30054 # There is not a command of that name
 67 | eArrayAlreadyExists = 30055  # Chat session with that ID not found
 68 | eArrayDoesNotExist = 30056  # Already connected to that server/port
 69 | eArrayNotEvenNumberOfValues = 30057  # Cannot get (text from the) clipboard
 70 | eImportedWithDuplicates = 30058  # Cannot open the specified file
 71 | eBadDelimiter = 30059  # Already transferring a file
 72 | eSetReplacingExistingValue = 30060  # Not transferring a file
 73 | eKeyDoesNotExist = 30061  # There is not a command of that name
 74 | eCannotImport = 30062  # There is not a command of that name
 75 | eItemInUse = 30063  # Cannot delete trigger/alias/timer because it is executing a script
 76 | eSpellCheckNotActive = 30064     # Spell checker is not active
 77 | eCannotAddFont = 30065           # Cannot create requested font
 78 | ePenStyleNotValid = 30066        # Invalid settings for pen parameter
 79 | eUnableToLoadImage = 30067       # Bitmap image could not be loaded
 80 | eImageNotInstalled = 30068       # Image has not been loaded into window 
 81 | eInvalidNumberOfPoints = 30069   # Number of points supplied is incorrect 
 82 | eInvalidPoint = 30070            # Point is not numeric
 83 | eHotspotPluginChanged = 30071    # Hotspot processing must all be in same plugin
 84 | eHotspotNotInstalled = 30072     # Hotspot has not been defined for this window 
 85 | eNoSuchWindow = 30073            # Requested miniwindow does not exist
 86 | eBrushStyleNotValid = 30074      # Invalid settings for brush parameter
 87 | 
 88 | 
 89 | # ----------------------------------------------------------
 90 | # Flags for AddTrigger
 91 | # ----------------------------------------------------------
 92 | 
 93 | eEnabled = 1 # enable trigger 
 94 | eOmitFromLog = 2 # omit from log file 
 95 | eOmitFromOutput = 4 # omit trigger from output 
 96 | eKeepEvaluating = 8 # keep evaluating 
 97 | eIgnoreCase = 16 # ignore case when matching 
 98 | eTriggerRegularExpression = 32 # trigger uses regular expression 
 99 | eExpandVariables = 512 # expand variables like @direction 
100 | eReplace = 1024 # replace existing trigger of same name 
101 | eLowercaseWildcard = 2048 # wildcards forced to lower-case
102 | eTemporary = 16384 # temporary - do not save to world file 
103 | eTriggerOneShot = 32768 # one shot - delete after firing
104 | 
105 | # ----------------------------------------------------------
106 | # Colours for AddTrigger
107 | # ----------------------------------------------------------
108 | 
109 | NOCHANGE = -1
110 | custom1 = 0
111 | custom2 = 1
112 | custom3 = 2 
113 | custom4 = 3
114 | custom5 = 4
115 | custom6 = 5
116 | custom7 = 6
117 | custom8 = 7
118 | custom9 = 8
119 | custom10 = 9
120 | custom11 = 10
121 | custom12 = 11
122 | custom13 = 12
123 | custom14 = 13
124 | custom15 = 14
125 | custom16 = 15
126 | custom_other = 16  # triggers only
127 | 
128 | # ----------------------------------------------------------
129 | # Flags for AddAlias
130 | # ----------------------------------------------------------
131 | 
132 | # eEnabled = 1 # same as for AddTrigger 
133 | eIgnoreAliasCase = 32 # ignore case when matching 
134 | eOmitFromLogFile = 64 # omit this alias from the log file 
135 | eAliasRegularExpression = 128 # alias is regular expressions 
136 | # eExpandVariables = 512 # same as for AddTrigger 
137 | # eReplace = 1024 # same as for AddTrigger 
138 | eAliasSpeedWalk = 2048 # interpret send string as a speed walk string 
139 | eAliasQueue = 4096 # queue this alias for sending at the speedwalking delay interval 
140 | eAliasMenu = 8192 # this alias appears on the alias menu 
141 | # eTemporary = 16384 # same as for AddTrigger
142 | eAliasOneShot = 32768 # one shot - delete after firing
143 | 
144 | # ----------------------------------------------------------
145 | # Flags for AddTimer
146 | # ----------------------------------------------------------
147 | 
148 | # eEnabled = 1 # same as for AddTrigger
149 | eAtTime = 2 # if not set, time is "every" 
150 | eOneShot = 4 # if set, timer only fires once 
151 | eTimerSpeedWalk = 8 # timer does a speed walk when it fires 
152 | eTimerNote = 16 # timer does a world.note when it fires 
153 | eActiveWhenClosed = 32  # timer fires even when world is disconnected
154 | # eReplace = 1024 # same as for AddTrigger
155 | # eTemporary = 16384 # same as for AddTrigger
156 | 
157 | ]]>            
158 |  </script>
159 | 


--------------------------------------------------------------------------------
/sapi.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="iso-8859-1"?>
 2 | <!DOCTYPE muclient>
 3 | <!-- Saved on Saturday, November 05, 2005, 8:53 PM -->
 4 | <!-- MuClient version 3.68 -->
 5 | 
 6 | <!-- Plugin "jfw" generated by Plugin Wizard -->
 7 | 
 8 | <muclient>
 9 | <plugin
10 |    name="sapi_speaker"
11 |    author="Tyler Spivey"
12 |    id="539af5868ca499f001d47b55"
13 |    language="VBscript"
14 |    purpose="speaks incoming text using jfw."
15 |    date_written="2007-04-14"
16 |    requires="3.68"
17 |    version="1.0"
18 |    >
19 | 
20 | </plugin>
21 | 
22 | <!--  Triggers  -->
23 | <aliases>
24 |   <alias
25 |    script="togglespeaking"
26 |    match="jfw"
27 |    enabled="y"
28 |    group="speech"
29 |    omit_from_command_history="y"
30 |    omit_from_log="y"
31 |    omit_from_output="y"
32 |    sequence="100"
33 |   >
34 |   </alias>
35 | </aliases>
36 | 
37 | <triggers>
38 | </triggers>
39 | 
40 | <!--  Script  -->
41 | 
42 | 
43 | <script>
44 | <![CDATA[
45 | 
46 | dim jfwobject
47 | dim speak 'do we want to speak?
48 | 
49 | sub toggleSpeaking (name, line, wc)
50 |   if speak = 1 then
51 |     speak = 0
52 |     jfwobject.Speak "sapi auto speak off.", 1
53 |   else
54 |     speak = 1
55 |     jfwobject.Speak "sapi auto speak on.",1
56 |   end if
57 | end sub
58 | 
59 | sub OnPluginInstall
60 |   set jfwobject = CreateObject("SAPI.SpVoice")
61 |   jfwobject.Speak "sapi speaker is ready to rock!",1
62 |   speak = 1
63 | end sub
64 | 
65 | sub OnPluginScreendraw (t, log, line)
66 |   if (t = 0 or t = 1)  and speak = 1 then
67 |     jfwobject.Speak line, 1
68 |   end if
69 | end sub
70 |   
71 | sub OnPluginBroadcast (msg, id, name, text)
72 |   if msg = 222 then
73 |     jfwobject.Speak text,1
74 |   end if
75 | end sub
76 | ]]>
77 | </script>
78 | 
79 | 
80 | </muclient>
81 | 


--------------------------------------------------------------------------------