CosmicRage/Mush-Soundpack
5
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial release

Browse Source
This commit is contained in:
Draqoken
2025-07-01 23:28:00 +03:00
commit e888d9dfb9
250 changed files with 132057 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
cosmic rage/scripts/MUSHclient.tlb Normal file
View File

Binary file not shown.

557
cosmic rage/scripts/exampscript.js Normal file
View File

@@ -0,0 +1,557 @@
// Example of coding script routines for MUSHclient in Jscript
// ----------------------------------------------------------
// Error codes returned by various functions
// ----------------------------------------------------------
var eOK = 0; // No error
var eWorldOpen = 30001; // The world is already open
var eWorldClosed = 30002; // The world is closed, this action cannot be performed
var eNoNameSpecified = 30003; // No name has been specified where one is required
var eCannotPlaySound = 30004; // The sound file could not be played
var eTriggerNotFound = 30005; // The specified trigger name does not exist
var eTriggerAlreadyExists = 30006; // Attempt to add a trigger that already exists
var eTriggerCannotBeEmpty = 30007; // The trigger "match" string cannot be empty
var eInvalidObjectLabel = 30008; // The name of this object is invalid
var eScriptNameNotLocated = 30009; // Script name is not in the script file
var eAliasNotFound = 30010; // The specified alias name does not exist
var eAliasAlreadyExists = 30011; // Attempt to add a alias that already exists
var eAliasCannotBeEmpty = 30012; // The alias "match" string cannot be empty
var eCouldNotOpenFile = 30013; // Unable to open requested file
var eLogFileNotOpen = 30014; // Log file was not open
var eLogFileAlreadyOpen = 30015; // Log file was already open
var eLogFileBadWrite = 30016; // Bad write to log file
var eTimerNotFound = 30017; // The specified timer name does not exist
var eTimerAlreadyExists = 30018; // Attempt to add a timer that already exists
var eVariableNotFound = 30019; // Attempt to delete a variable that does not exist
var eCommandNotEmpty = 30020; // Attempt to use SetCommand with a non-empty command window
var eBadRegularExpression = 30021; // Bad regular expression syntax
var eTimeInvalid = 30022; // Time given to AddTimer is invalid
var eBadMapItem = 30023; // Direction given to AddToMapper is invalid
var eNoMapItems = 30024; // No items in mapper
var eUnknownOption = 30025; // Option name not found
var eOptionOutOfRange = 30026; // New value for option is out of range
var eTriggerSequenceOutOfRange = 30027; // Trigger sequence value invalid
var eTriggerSendToInvalid = 30028; // Where to send trigger text to is invalid
var eTriggerLabelNotSpecified = 30029; // Trigger label not specified/invalid for 'send to variable'
var ePluginFileNotFound = 30030; // File name specified for plugin not found
var eProblemsLoadingPlugin = 30031; // There was a parsing or other problem loading the plugin
var ePluginCannotSetOption = 30032; // Plugin is not allowed to set this option
var ePluginCannotGetOption = 30033; // Plugin is not allowed to get this option
var eNoSuchPlugin = 30034; // Requested plugin is not installed
var eNotAPlugin = 30035; // Only a plugin can do this
var eNoSuchRoutine = 30036; // Plugin does not support that subroutine (subroutine not in script)
var ePluginDoesNotSaveState = 30037; // Plugin does not support saving state
var ePluginCouldNotSaveState = 30037; // Plugin could not save state (eg. no state directory)
var ePluginDisabled = 30039; // Plugin is currently disabled
var eErrorCallingPluginRoutine = 30040; // Could not call plugin routine
var eCommandsNestedTooDeeply = 30041; // Calls to "Execute" nested too deeply
var eCannotCreateChatSocket = 30042; // Unable to create socket for chat connection
var eCannotLookupDomainName = 30043; // Unable to do DNS (domain name) lookup for chat connection
var eNoChatConnections = 30044; // No chat connections open
var eChatPersonNotFound = 30045; // Requested chat person not connected
var eBadParameter = 30046; // General problem with a parameter to a script call
var eChatAlreadyListening = 30047; // Already listening for incoming chats
var eChatIDNotFound = 30048; // Chat session with that ID not found
var eChatAlreadyConnected = 30049; // Already connected to that server/port
var eClipboardEmpty = 30050; // Cannot get (text from the) clipboard
var eFileNotFound = 30051; // Cannot open the specified file
var eAlreadyTransferringFile = 30052; // Already transferring a file
var eNotTransferringFile = 30053; // Not transferring a file
var eNoSuchCommand = 30054; // There is not a command of that name
var eArrayAlreadyExists = 30055; // That array already exists
var eBadKeyName = 30056; // That name is not permitted for a key
var eArrayDoesNotExist = 30056; // That array does not exist
var eArrayNotEvenNumberOfValues = 30057; // Values to be imported into array are not in pairs
var eImportedWithDuplicates = 30058; // Import succeeded, however some values were overwritten
var eBadDelimiter = 30059; // Import/export delimiter must be a single character, other than backslash
var eSetReplacingExistingValue = 30060; // Array element set, existing value overwritten
var eKeyDoesNotExist = 30061; // Array key does not exist
var eCannotImport = 30062; // Cannot import because cannot find unused temporary character
// ----------------------------------------------------------
// Flags for AddTrigger
// ----------------------------------------------------------
var eEnabled = 1; // enable trigger
var eOmitFromLog = 2; // omit from log file
var eOmitFromOutput = 4; // omit trigger from output
var eKeepEvaluating = 8; // keep evaluating
var eIgnoreCase = 16; // ignore case when matching
var eTriggerRegularExpression = 32; // trigger uses regular expression
var eExpandVariables = 512; // expand variables like @direction
var eReplace = 1024; // replace existing trigger of same name
var eTemporary = 16384; // temporary - do not save to world file
// ----------------------------------------------------------
// Colours for AddTrigger
// ----------------------------------------------------------
var NOCHANGE = -1;
var custom1 = 0;
var custom2 = 1;
var custom3 = 2;
var custom4 = 3;
var custom5 = 4;
var custom6 = 5;
var custom7 = 6;
var custom8 = 7;
var custom9 = 8;
var custom10 = 9;
var custom11 = 10;
var custom12 = 11;
var custom13 = 12;
var custom14 = 13;
var custom15 = 14;
var custom16 = 15;
// ----------------------------------------------------------
// Flags for AddAlias
// ----------------------------------------------------------
// var eEnabled = 1; // same as for AddTrigger
var eIgnoreAliasCase = 32; // ignore case when matching
var eOmitFromLogFile = 64; // omit this alias from the log file
var eAliasRegularExpression = 128; // alias is regular expressions
var eExpandVariables = 512; // same as for AddTrigger
// var eReplace = 1024; // same as for AddTrigger
var eAliasSpeedWalk = 2048; // interpret send string as a speed walk string
var eAliasQueue = 4096; // queue this alias for sending at the speedwalking delay interval
var eAliasMenu = 8192; // this alias appears on the alias menu
// var eTemporary = 16384; // same as for AddTrigger
// ----------------------------------------------------------
// Flags for AddTimer
// ----------------------------------------------------------
// var eEnabled = 1; // same as for AddTrigger
var eAtTime = 2; // if not set, time is "every"
var eOneShot = 4; // if set, timer only fires once
var eTimerSpeedWalk = 8; // timer does a speed walk when it fires
var eTimerNote = 16; // timer does a world.note when it fires
var eActiveWhenClosed = 32; // timer fires even when world is disconnected
// var eReplace = 1024; // same as for AddTrigger
// var eTemporary = 16384; // same as for AddTrigger
// ----------------------------------------------------------
// Example showing iterating through all triggers with labels
// ----------------------------------------------------------
function showtriggers ()
{
triggerlist = new VBArray(world.GetTriggerList()).toArray();
if (triggerlist) // if not empty
for (i = 0; i < triggerlist.length; i++)
world.note(triggerlist [i]);
} // end of showtriggers
// -----------------------------------------------
// Example showing iterating through all variables
// ------------------------------------------------
function showvariables ()
{
variablelist = new VBArray(world.GetVariableList()).toArray();
if (variablelist) // if not empty
for (i = 0; i < variablelist.length; i++)
world.note(variablelist [i] + " = " + world.GetVariable(variablelist [i]));
} // end of showvariables
// ----------------------------------------------------------
// Example showing iterating through all aliases with labels
// ----------------------------------------------------------
function showaliases ()
{
aliaslist = new VBArray(world.GetAliasList()).toArray();
if (aliaslist) // if not empty
for (i = 0; i < aliaslist.length; i++)
world.note(aliaslist [i]);
} // end of showaliases
// ---------------------------------------------------------
// Example showing running a script on world open
// ---------------------------------------------------------
function OnWorldOpen ()
{
world.note ("---------- World Open ------------");
} // end of OnWorldOpen
// ---------------------------------------------------------
// Example showing running a script on world close
// ---------------------------------------------------------
function OnWorldClose ()
{
world.note ("---------- World Close ------------");
} // end of OnWorldClose
// ---------------------------------------------------------
// Example showing running a script on world connect
// ---------------------------------------------------------
function OnWorldConnect ()
{
world.note ("---------- World Connect ------------");
} // end of OnWorldConnect
// ---------------------------------------------------------
// Example showing running a script on world disconnect
// ---------------------------------------------------------
function OnWorldDisconnect ()
{
world.note ("---------- World Disconnect ------------");
} // end of OnWorldDisconnect
// ---------------------------------------------------------
// Example showing running a script on an alias
//
// This script is designed to be called by an alias: ^teleport(.*)$
//
// This alias SHOULD have "regular expression" checked.
//
// It is for teleporting (going to) a room by number
//
// The room is entered by name and looked up in the variables
// list.
// ---------------------------------------------------------
function OnTeleport (thename, theoutput, wildcardsVB)
{
var sDestination;
var sHelp = "";
var iSubscript;
var iRoom;
var mylistsa; // safe array
var mylistvba; // vb array
var sRoomList; // jscript array
wildcards = VBArray(wildcardsVB).toArray();
sDestination = wildcards [0];
// remove leading spaces from destination
while (sDestination.substr (0, 1) == " ")
sDestination = sDestination.substr (1);
// if nothing entered echo possible destinations
if (sDestination == "")
{
world.note ("-------- TELEPORT destinations ----------");
mylistsa = world.GetVariableList ();
// find list of all variables
if (mylistsa != null)
{
mylistvba = new VBArray(mylistsa);
sRoomList = mylistvba.toArray ();
// loop through each variable, and add to help if it starts with "teleport_"
for (iSubscript = mylistvba.lbound (); iSubscript <= mylistvba.ubound (); iSubscript++)
{
if (sRoomList [iSubscript].substr (0, 9) == "teleport_")
{
if (sHelp != "")
sHelp += ", ";
sHelp = sHelp + sRoomList [iSubscript].substr (9);
} // variable starts with "teleport_"
} // loop through sRoomList
} // having at least one room
// if no destinations found, tell them
if (sHelp == "")
sHelp = "<no rooms in teleport list>"
world.note (sHelp);
return;
} // no destination supplied
// get contents of the destination variable
iRoom = world.GetVariable ("teleport_" + sDestination.toLowerCase ());
// if not found, or invalid name, that isn't in the list
if (iRoom == null)
{
world.note ("******** Destination " + sDestination + " unknown *********");
return;
}
world.note ("------> Teleporting to " + sDestination);
world.send ("@teleport #" + iRoom);
} // end of OnTeleport
// ---------------------------------------------------------
// Example showing running a script on an alias
//
// This script is designed to be called by an alias: ^add_teleport(|\s*(\w*)\s*(\d*))$
//
// This alias SHOULD have "regular expression" checked.
//
// It is for adding a room to the list of rooms to teleport to (by
// the earlier script).
//
// eg. ADD_TELEPORT dungeon 1234
//
// ---------------------------------------------------------
function OnAddTeleport (thename, theoutput, wildcardsVB)
{
var sDestination
var iRoom
var iStatus
var sCurrentLocation
wildcards = VBArray(wildcardsVB).toArray();
// wildcard one is the destination
sDestination = wildcards [1]
// remove leading spaces from destination
while (sDestination.substr (0, 1) == " ")
sDestination = sDestination.substr (1);
// if nothing entered tell them command syntax
if (sDestination == "")
{
world.note ("Syntax: add_teleport name dbref");
world.note (" eg. add_teleport LandingBay 4421");
return;
}
// wildcard 2 is the room to go to
iRoom= wildcards [2]
// remove leading spaces from destination
while (iRoom.substr (0, 1) == " ")
iRoom = iRoom.substr (1);
// add room and destination location to variable list
iStatus = world.SetVariable ("teleport_" + sDestination, iRoom);
if (iStatus != 0)
{
world.note ("Room name must be alphabetic, you entered: " + sDestination);
return;
}
world.note ("Teleport location " + sDestination + "(#"
+ iRoom + ") added to teleport list");
} // end of OnAddTeleport
// ------------------------------------------
// Example showing a script called by a timer
// -------------------------------------------
function OnTimer (strTimerName)
{
world.note ("Timer has fired!");
} // end of OnTimer
// --------------------------------------------
// Example showing a script called by a trigger
// Should be connected to a trigger matching on: <*hp *m *mv>*
// (the above example will work for SMAUG default prompts (eg. <100hp 10m 40mv>)
// it may need to be changed depending on the MUD prompt format).
// --------------------------------------------
function OnStats (strTriggerName, trig_line, wildcardsVB)
{
wildcards = VBArray(wildcardsVB).toArray();
iHP = wildcards [0]
iMana = wildcards [1]
iMV = wildcards [2]
world.Note ("Your HP are " + iHP);
world.Note ("Your Mana is " + iMana);
world.Note ("Your movement points are " + iMV);
} // end of OnStats
// --------------------------------------------
// Subroutine to be called to repeat a command.
//
// Call from the alias: ^#(\d+)\s+(.+)$
// Regular Expression: checked
//
// Example of use: #10 give sword to Trispis
// This would send "give sword to Trispis" 10 times
// --------------------------------------------
function OnRepeat (strAliasName, strOutput, wildcardsVB)
{
wildcards = VBArray(wildcardsVB).toArray();
for (i = 1; i <= wildcards [0]; i++)
world.Send (wildcards [1]);
} // end of OnRepeat
// --------------------------------------------
// Example showing iterating through all worlds
// --------------------------------------------
function showworlds ()
{
worldlist = new VBArray(world.GetworldList()).toArray();
if (worldlist) // if not empty
for (i = 0; i < worldlist.length; i++)
world.note(worldlist [i]);
} // end of showworlds
// --------------------------------------------------
// Example showing sending a message to another world
// --------------------------------------------------
function SendToWorld (name, message)
{
var otherworld
otherworld = world.getworld (name);
if (otherworld == null)
{
world.note ("World " + name + " is not open");
return;
}
otherworld.send (message);
}
// --------------------------------------------
// Example trigger routine that just shows what was passed to it
// --------------------------------------------
function ExampleTrigger (thename, theoutput, wildcardsVB)
{
wildcards = VBArray(wildcardsVB).toArray();
world.note ("Trigger " + thename + " fired.");
world.note ("Matching line was: " + theoutput);
for (i = 0; i < 10; i++)
if (wildcards [i] != "")
world.note ("Wildcard " + i + " = " + wildcards [i]);
}
/****************
WEAPON COMPARISON
Compares two weapons and returns the result.
Alias (MUST be regular expression):
^compare (.+)\s(\d+d\d+)\s(\d+)/(\d+)\s(.+)\s(\d+d\d+)\s(\d+)/(\d+)(|.+)$
Syntax:
compare <name> <x>d<y> <hr>/<dr> <name> <x>d<y> <hr>/<dr> [action]
Example:
--> "compare dagger 2d2 4/2 sword 4d6 5/5"
would compare the dagger to the sword and report which one's the best
you can also include an action...
--> "compare mace 6d7 2/3 pickaxe 2d12 1/4 say"
would say the best weapon
NOTE: action can be multiple words (e.g "tell vryce")
****************/
function CompareWeapons(alias_name, alias_output, wildcardsVB) {
//Collect wildcards into a Javascript array
wildcards = VBArray(wildcardsVB).toArray();
//General variables
var sendmud = AllToUpper(wildcards[8].replace(/^\W+/,'')).replace(/\W+$/,'');
//Weapon one variables
var name1 = AllToUpper(wildcards[0]);
var num1 = parseInt(wildcards[1].substr(0,1));
var dice1 = parseInt(wildcards[1].substr(2));
var hit1 = parseInt(wildcards[2]);
var dam1 = parseInt(wildcards[3]);
var max1 = (num1*dice1)+dam1;
var min1 = num1+dam1;
var avg1 = (max1+min1)/2;
var score1 = avg1+(hit1/2);
var weap1stat = name1 + ": " + num1 + "d" + dice1 + " hr(" + hit1 + ") dr(" + dam1 + ") min(" + min1 + ") max(" + max1 + ") avg(" + avg1 + ")";
//Weapon two variables
var name2 = AllToUpper(wildcards[4]);
var num2 = parseInt(wildcards[5].substr(0,1));
var dice2 = parseInt(wildcards[5].substr(2));
var hit2 = parseInt(wildcards[6]);
var dam2 = parseInt(wildcards[7]);
var max2 = (num2*dice2)+dam2;
var min2 = num2+dam2;
var avg2 = (max2+min2)/2;
var score2 = avg2+(hit2/2);
var weap2stat = name2 + ": " + num2 + "d" + dice2 + " hr(" + hit2 + ") dr(" + dam2 + ") min(" + min2 + ") max(" + max2 + ") avg(" + avg2 + ")";
//Calculate the better weapon
if (score1 > score2) {
var resstring = name1 + " is " + Math.round(100-score2*100/score1) + "% better than " + name2;
} else if (score1 < score2) {
var resstring = name2 + " is " + Math.round(100-score1*100/score2) + "% better than " + name1;
}
//Send output either locally or with specified prefix to mud
if (sendmud != "") {
world.send(sendmud + " " + weap1stat);
world.send(sendmud + " " + weap2stat);
world.send(sendmud + " " + resstring);
} else {
world.note(weap1stat);
world.note(weap2stat);
world.note(resstring);
}
}
/**********
ALLTOUPPER
Returns string with the first letter in each word uppercase
***********/
function AllToUpper(str)
{
aString = (str.replace(/^\W+/,'')).replace(/\W+$/,'').split(" ");
str = "";
for (i = 0; i < aString.length; i++) {
str += aString[i].substr(0,1).toUpperCase() + aString[i].substr(1).toLowerCase() + " ";
}
return str.substr(0,str.length-1);
}
// --------------------------------------------
// Subroutine to be called remember which way you walked.
//
// Call from the alias: keypad-*
// Send: %1
//
// --------------------------------------------
function OnKeypadDirection (strAliasName, strOutput, wildcardsVB)
{
wildcards = VBArray(wildcardsVB).toArray();
world.setvariable("direction", wildcards [0]);
}
world.note ("Scripting enabled - script file processed");

275
cosmic rage/scripts/exampscript.lua Normal file
View File

@@ -0,0 +1,275 @@
-- Example of coding script routines for MUSHclient in Lua
-- --------------------------------------------
-- Example trigger routine that just shows what was passed to it
-- --------------------------------------------
function ExampleTrigger (thename, theoutput, wildcards, line)
require "tprint"
Note ("Trigger " .. thename .. " fired.")
Note ("Matching line was: " .. theoutput)
Note ("Wildcards ...")
tprint (wildcards)
Note ("Line with style runs ...")
tprint (line)
end -- of ExampleTrigger
-- ----------------------------------------------------------
-- Example showing iterating through all triggers
-- ----------------------------------------------------------
function showtriggers ()
local _, v
for _, v in ipairs (GetTriggerList ()) do
Note (v)
end
end -- of showtriggers
-- -----------------------------------------------
-- Example showing iterating through all variables
-- ------------------------------------------------
function showvariables ()
table.foreach (GetVariableList(), print)
end -- of showvariables
-- ----------------------------------------------------------
-- Example showing iterating through all aliases with labels
-- ----------------------------------------------------------
function showaliases ()
local _, v
for _, v in ipairs (GetAliasList ()) do
Note (v)
end
end -- of showaliases
-- ---------------------------------------------------------
-- Example showing running a script on world open
-- ---------------------------------------------------------
function OnWorldOpen ()
Note ("---------- World Open ------------")
end -- of OnWorldOpen
-- ---------------------------------------------------------
-- Example showing running a script on world close
-- ---------------------------------------------------------
function OnWorldClose ()
Note ("---------- World Close ------------")
end -- of OnWorldClose
-- ---------------------------------------------------------
-- Example showing running a script on world connect
-- ---------------------------------------------------------
function OnWorldConnect ()
Note ("---------- World Connect ------------")
end -- of OnWorldConnect
-- ---------------------------------------------------------
-- Example showing running a script on world disconnect
-- ---------------------------------------------------------
function OnWorldDisconnect ()
Note ("---------- World Disconnect ------------")
end -- of OnWorldDisconnect
-- ---------------------------------------------------------
-- Example showing running a script on an alias
--
-- This script is designed to be called by an alias: ^teleport(.*)$
--
-- This alias SHOULD have "regular expression" checked.
--
-- It is for teleporting (going to) a room by number
--
-- The room is entered by name and looked up in the variables
-- list.
-- ---------------------------------------------------------
function OnTeleport (name, output, wildcards)
local sDestination
local sHelp = ""
local iRoom
sDestination = Trim (wildcards [1])
-- if nothing entered echo possible destinations
if sDestination == "" then
Note ("-------- TELEPORT destinations ----------")
local k, v
for k, v in pairs (GetVariableList ()) do
if string.sub (k, 1, 9) == "teleport_" then
if sHelp ~= "" then
sHelp = sHelp .. ", "
end
sHelp = sHelp .. string.sub (k, 10)
end
end
-- if no destinations found, tell them
if sHelp == "" then
sHelp = "<no rooms in teleport list>"
end
Note (sHelp)
return
end -- no destination supplied
-- get contents of the destination variable
iRoom = world.GetVariable ("teleport_" .. string.lower (sDestination))
-- if not found, or invalid name, that isn't in the list
if iRoom == nil then
Note ("******** Destination " .. sDestination .. " unknown *********")
return
end
Note ("------> Teleporting to " .. sDestination)
Send ("@teleport #" .. iRoom)
end -- end of OnTeleport
-- ---------------------------------------------------------
-- Example showing running a script on an alias
--
-- This script is designed to be called by an alias: ^add_teleport(|\s*(\w*)\s*(\d*))$
--
-- This alias SHOULD have "regular expression" checked.
--
-- It is for adding a room to the list of rooms to teleport to (by
-- the earlier script).
--
-- eg. ADD_TELEPORT dungeon 1234
--
-- ---------------------------------------------------------
function OnAddTeleport (name, output, wildcards)
local sDestination
local iRoom
local iStatus
sDestination = Trim (wildcards [2])
-- if nothing entered tell them command syntax
if sDestination == "" then
Note ("Syntax: add_teleport name dbref")
Note (" eg. add_teleport LandingBay 4421")
return
end
-- room to go to
iRoom = wildcards [3]
if not tonumber (iRoom) then
Note ("Room number must be numeric, you entered " .. iRoom)
return
end
-- add room and destination location to variable list
iStatus = world.SetVariable ("teleport_" .. string.lower (sDestination), iRoom)
if iStatus ~= 0 then
Note ("Room name must be alphabetic, you entered: " + sDestination)
return
end
Note ("Teleport location " .. sDestination .. "(#"
.. iRoom .. ") added to teleport list")
end -- of OnAddTeleport
-- ------------------------------------------
-- Example showing a script called by a timer
-- -------------------------------------------
function OnTimer (strTimerName)
Note ("Timer has fired!")
end -- of OnTimer
-- --------------------------------------------
-- Example showing a script called by a trigger
-- Should be connected to a trigger matching on: <*hp *m *mv>*
-- (the above example will work for SMAUG default prompts (eg. <100hp 10m 40mv>)
-- it may need to be changed depending on the MUD prompt format).
-- --------------------------------------------
function OnStats (name, trig_line, wildcards)
local iHP = wildcards [1]
local iMana = wildcards [2]
local iMV = wildcards [3]
Note ("Your HP are " .. iHP)
Note ("Your Mana is " .. iMana)
Note ("Your movement points are " .. iMV)
end -- of OnStats
-- --------------------------------------------
-- Subroutine to be called to repeat a command.
--
-- Call from the alias: ^#(\d+)\s+(.+)$
-- Regular Expression: checked
--
-- Example of use: #10 give sword to Trispis
-- This would send "give sword to Trispis" 10 times
-- --------------------------------------------
function OnRepeat (name, line, wildcards)
local count = wildcards [1]
if not tonumber (count) then
Note ("Repeat count must be numeric, you entered ", count)
return
end
local i
for i = 1, count do
Send (wildcards [2])
end
end -- of OnRepeat
-- --------------------------------------------
-- Example showing iterating through all worlds
-- --------------------------------------------
function showworlds ()
local _, v
for _, v in ipairs (GetWorldList ()) do
Note (v)
end
end -- of showworlds
-- --------------------------------------------------
-- Example showing sending a message to another world
-- --------------------------------------------------
function SendToWorld (name, message)
local otherworld
otherworld = GetWorld (name)
if otherworld == nil then
Note ("World " .. name .. " is not open")
return
end
Send (otherworld, message)
-- alternative syntax: otherworld:Send (message)
end -- of SendToWorld
Note ("Lua scripting enabled - script file processed")

441
cosmic rage/scripts/exampscript.pl Normal file
View File

@@ -0,0 +1,441 @@
# Example of coding script routines for MUSHclient in PerlScript
# ----------------------------------------------------------
# Error codes returned by various functions
# ----------------------------------------------------------
my $eOK = 0; # No error
my $eWorldOpen = 30001; # The world is already open
my $eWorldClosed = 30002; # The world is closed, this action cannot be performed
my $eNoNameSpecified = 30003; # No name has been specified where one is required
my $eCannotPlaySound = 30004; # The sound file could not be played
my $eTriggerNotFound = 30005; # The specified trigger name does not exist
my $eTriggerAlreadyExists = 30006; # Attempt to add a trigger that already exists
my $eTriggerCannotBeEmpty = 30007; # The trigger "match" string cannot be empty
my $eInvalidObjectLabel = 30008; # The name of this object is invalid
my $eScriptNameNotLocated = 30009; # Script name is not in the script file
my $eAliasNotFound = 30010; # The specified alias name does not exist
my $eAliasAlreadyExists = 30011; # Attempt to add a alias that already exists
my $eAliasCannotBeEmpty = 30012; # The alias "match" string cannot be empty
my $eCouldNotOpenFile = 30013; # Unable to open requested file
my $eLogFileNotOpen = 30014; # Log file was not open
my $eLogFileAlreadyOpen = 30015; # Log file was already open
my $eLogFileBadWrite = 30016; # Bad write to log file
my $eTimerNotFound = 30017; # The specified timer name does not exist
my $eTimerAlreadyExists = 30018; # Attempt to add a timer that already exists
my $eVariableNotFound = 30019; # Attempt to delete a variable that does not exist
my $eCommandNotEmpty = 30020; # Attempt to use SetCommand with a non-empty command window
my $eBadRegularExpression = 30021; # Bad regular expression syntax
my $eTimeInvalid = 30022; # Time given to AddTimer is invalid
my $eBadMapItem = 30023; # Direction given to AddToMapper is invalid
my $eNoMapItems = 30024; # No items in mapper
my $eUnknownOption = 30025; # Option name not found
my $eOptionOutOfRange = 30026; # New value for option is out of range
my $eTriggerSequenceOutOfRange = 30027; # Trigger sequence value invalid
my $eTriggerSendToInvalid = 30028; # Where to send trigger text to is invalid
my $eTriggerLabelNotSpecified = 30029; # Trigger label not specified/invalid for 'send to variable'
my $ePluginFileNotFound = 30030; # File name specified for plugin not found
my $eProblemsLoadingPlugin = 30031; # There was a parsing or other problem loading the plugin
my $ePluginCannotSetOption = 30032; # Plugin is not allowed to set this option
my $ePluginCannotGetOption = 30033; # Plugin is not allowed to get this option
my $eNoSuchPlugin = 30034; # Requested plugin is not installed
my $eNotAPlugin = 30035; # Only a plugin can do this
my $eNoSuchRoutine = 30036; # Plugin does not support that subroutine (subroutine not in script)
my $ePluginDoesNotSaveState = 30037; # Plugin does not support saving state
my $ePluginCouldNotSaveState = 30037; # Plugin could not save state (eg. no state directory)
my $ePluginDisabled = 30039; # Plugin is currently disabled
my $eErrorCallingPluginRoutine = 30040; # Could not call plugin routine
my $eCommandsNestedTooDeeply = 30041; # Calls to "Execute" nested too deeply
my $eCannotCreateChatSocket = 30042; # Unable to create socket for chat connection
my $eCannotLookupDomainName = 30043; # Unable to do DNS (domain name) lookup for chat connection
my $eNoChatConnections = 30044; # No chat connections open
my $eChatPersonNotFound = 30045; # Requested chat person not connected
my $eBadParameter = 30046; # General problem with a parameter to a script call
my $eChatAlreadyListening = 30047; # Already listening for incoming chats
my $eChatIDNotFound = 30048; # Chat session with that ID not found
my $eChatAlreadyConnected = 30049; # Already connected to that server/port
my $eClipboardEmpty = 30050; # Cannot get (text from the) clipboard
my $eFileNotFound = 30051; # Cannot open the specified file
my $eAlreadyTransferringFile = 30052; # Already transferring a file
my $eNotTransferringFile = 30053; # Not transferring a file
my $eNoSuchCommand = 30054; # There is not a command of that name
my $eArrayAlreadyExists = 30055; # That array already exists
my $eBadKeyName = 30056; # That name is not permitted for a key
my $eArrayDoesNotExist = 30056; # That array does not exist
my $eArrayNotEvenNumberOfValues = 30057; # Values to be imported into array are not in pairs
my $eImportedWithDuplicates = 30058; # Import succeeded, however some values were overwritten
my $eBadDelimiter = 30059; # Import/export delimiter must be a single character, other than backslash
my $eSetReplacingExistingValue = 30060; # Array element set, existing value overwritten
my $eKeyDoesNotExist = 30061; # Array key does not exist
my $eCannotImport = 30062; # Cannot import because cannot find unused temporary character
# ----------------------------------------------------------
# Flags for AddTrigger
# ----------------------------------------------------------
my $eEnabled = 1; # enable trigger
my $eOmitFromLog = 2; # omit from log file
my $eOmitFromOutput = 4; # omit trigger from output
my $eKeepEvaluating = 8; # keep evaluating
my $eIgnoreCase = 16; # ignore case when matching
my $eTriggerRegularExpression = 32; # trigger uses regular expression
my $eExpandVariables = 512; # expand variables like @direction
my $eReplace = 1024; # replace existing trigger of same name
my $eTemporary = 16384; # temporary - do not save to world file
# ----------------------------------------------------------
# Colours for AddTrigger
# ----------------------------------------------------------
my $NOCHANGE = -1;
my $custom1 = 0;
my $custom2 = 1;
my $custom3 = 2;
my $custom4 = 3;
my $custom5 = 4;
my $custom6 = 5;
my $custom7 = 6;
my $custom8 = 7;
my $custom9 = 8;
my $custom10 = 9;
my $custom11 = 10;
my $custom12 = 11;
my $custom13 = 12;
my $custom14 = 13;
my $custom15 = 14;
my $custom16 = 15;
# ----------------------------------------------------------
# Flags for AddAlias
# ----------------------------------------------------------
# my $eEnabled = 1; # same as for AddTrigger
my $eIgnoreAliasCase = 32; # ignore case when matching
my $eOmitFromLogFile = 64; # omit this alias from the log file
my $eAliasRegularExpression = 128; # alias is regular expressions
# my $eExpandVariables = 512; # same as for AddTrigger
# my $eReplace = 1024; # same as for AddTrigger
my $eAliasSpeedWalk = 2048; # interpret send string as a speed walk string
my $eAliasQueue = 4096; # queue this alias for sending at the speedwalking delay interval
my $eAliasMenu = 8192; # this alias appears on the alias menu
my $eTemporary = 16384; # temporary - do not save to world file
# ----------------------------------------------------------
# Flags for AddTimer
# ----------------------------------------------------------
# my $eEnabled = 1; # same as for AddTrigger
my $eAtTime = 2; # if not set, time is "every"
my $eOneShot = 4; # if set, timer only fires once
my $eTimerSpeedWalk = 8; # timer does a speed walk when it fires
my $eTimerNote = 16; # timer does a world.note when it fires
my $eActiveWhenClosed = 32; # timer fires even when world is disconnected
# my $eReplace = 1024; # same as for AddTrigger
# my $eTemporary = 16384; # same as for AddTrigger
# ----------------------------------------------------------
# Example showing iterating through all triggers with labels
# ----------------------------------------------------------
sub showtriggers
{
foreach $item (Win32::OLE::in ($world->GetTriggerList))
{
$world->note($item);
}
} # end of showtriggers
# -----------------------------------------------
# Example showing iterating through all variables
# ------------------------------------------------
sub showvariables
{
foreach $item (Win32::OLE::in ($world->GetVariableList))
{
($key, $value) = ($item, $world->GetVariable ($item));
$world->note($key . " = " . $value) if (defined ($key));
}
} # end of showvariables
# ----------------------------------------------------------
# Example showing iterating through all aliases with labels
# ----------------------------------------------------------
sub showaliases
{
foreach $item (Win32::OLE::in ($world->GetAliasList))
{
$world->note($item);
}
} # end of showaliases
# ---------------------------------------------------------
# Example showing running a script on world open
# ---------------------------------------------------------
sub OnWorldOpen
{
$world->note ("---------- World Open ------------");
} # end of OnWorldOpen
# ---------------------------------------------------------
# Example showing running a script on world close
# ---------------------------------------------------------
sub OnWorldClose
{
$world->note ("---------- World Close ------------");
} # end of OnWorldClose
# ---------------------------------------------------------
# Example showing running a script on world connect
# ---------------------------------------------------------
sub OnWorldConnect
{
$world->note ("---------- World Connect ------------");
} # end of OnWorldConnect
# ---------------------------------------------------------
# Example showing running a script on world disconnect
# ---------------------------------------------------------
sub OnWorldDisconnect
{
$world->note ("---------- World Disconnect ------------");
} # end of OnWorldDisconnect
# ---------------------------------------------------------
# Example showing running a script on an alias
#
# This script is designed to be called by an alias: ^teleport(.*)$
#
# This alias SHOULD have "regular expression" checked.
#
# It is for teleporting (going to) a room by number
#
# The room is entered by name and looked up in the variables
# list.
# ---------------------------------------------------------
sub OnTeleport
{
my ($thename, $theoutput, $wildcards) = @_;
$sDestination = $world->trim ($world->GetAliasInfo ($thename, 101));
# if nothing entered echo possible destinations
if ($sDestination eq "")
{
$world->note ("-------- TELEPORT destinations ----------");
foreach $item (Win32::OLE::in ($world->GetVariableList()))
{
($key, $value) = ($item, $world->GetVariable ($item));
if (substr ($key, 0, 9) eq "teleport_")
{
$sHelp .= ", " if ($sHelp ne "");
$sHelp .= substr ($key, 9);
}
}
# if no destinations found, tell them
$sHelp = "<no rooms in teleport list>" if ($sHelp eq "");
$world->note ($sHelp);
return;
} # no destination supplied
# get contents of the destination variable
$iRoom = $world->GetVariable ("teleport_" . lc ($sDestination));
# if not found, or invalid name, that isn't in the list
if (!defined ($iRoom))
{
$world->note ("******** Destination $sDestination unknown *********");
return;
}
$world->note ("------> Teleporting to $sDestination");
$world->send ("\@teleport #$iRoom");
} # end of OnTeleport
# ---------------------------------------------------------
# Example showing running a script on an alias
#
# This script is designed to be called by an alias: ^add_teleport(|\s*(\w*)\s*(\d*))$
#
# This alias SHOULD have "regular expression" checked.
#
# It is for adding a room to the list of rooms to teleport to (by
# the earlier script).
#
# eg. ADD_TELEPORT dungeon 1234
#
# ---------------------------------------------------------
sub OnAddTeleport
{
my ($thename, $theoutput, $wildcards) = @_;
# wildcard 2 is the room name
$sDestination = $world->trim ($world->GetAliasInfo ($thename, 102));
# if nothing entered tell them command syntax
if ($sDestination eq "")
{
$world->note ("Syntax: add_teleport name dbref");
$world->note (" eg. add_teleport LandingBay 4421");
return;
}
# wildcard 3 is where to go to
$iRoom = $world->trim ($world->GetAliasInfo ($thename, 103));
# add room and destination location to variable list
$iStatus = $world->SetVariable ("teleport_$sDestination", $iRoom);
if ($iStatus != 0)
{
$world->note ("Room name must be alphabetic, you entered: $sDestination");
return;
}
$world->note ("Teleport location $sDestination (#$iRoom) added to teleport list");
} # end of OnAddTeleport
# ------------------------------------------
# Example showing a script called by a timer
# -------------------------------------------
sub OnTimer
{
my ($strTimerName) = @_;
$world->note ("Timer $strTimerName has fired!");
} # end of OnTimer
# --------------------------------------------
# Example showing a script called by a trigger
# Should be connected to a trigger matching on: <*hp *m *mv>*
# (the above example will work for SMAUG default prompts (eg. <100hp 10m 40mv>)
# it may need to be changed depending on the MUD prompt format).
# --------------------------------------------
sub OnStats
{
my ($strTriggerName, $trig_line, $wildcards) = @_;
$iHP = $world->GetTriggerInfo ($strTriggerName, 101);
$iMana = $world->GetTriggerInfo ($strTriggerName, 102);
$iMV = $world->GetTriggerInfo ($strTriggerName, 103);
$world->Note ("Your HP are $iHP");
$world->Note ("Your Mana is $iMana");
$world->Note ("Your movement points are $iMV");
} # end of OnStats
# --------------------------------------------
# Subroutine to be called to repeat a command.
#
# Call from the alias: ^#(\d+)\s+(.+)$
# Regular Expression: checked
#
# Example of use: #10 give sword to Trispis
# This would send "give sword to Trispis" 10 times
# --------------------------------------------
sub OnRepeat
{
my ($thename, $theoutput, $wildcards) = @_;
$iCount = $world->GetAliasInfo ($thename, 101); # count of times
$iCommand = $world->GetAliasInfo ($thename, 102); # what to send
for ($i = 1; $i <= $iCount; $i++)
{
$world->Send ($iCommand);
}
} # end of OnRepeat
# --------------------------------------------
# Example showing iterating through all worlds
# --------------------------------------------
sub showworlds
{
foreach $item (Win32::OLE::in ($world->GetWorldList))
{
$world->note($item);
}
} # end of showworlds
# --------------------------------------------------
# Example showing sending a message to another world
# --------------------------------------------------
sub SendToWorld
{
my ($name, $message) = @_;
my $otherworld;
$otherworld = $world->getworld ($name);
if (!defined ($otherworld))
{
$world->note("World " . $name . " is not open");
return;
}
$otherworld->send($message);
}
# --------------------------------------------
# Example trigger routine that just shows what was passed to it
# --------------------------------------------
sub ExampleTrigger
{
my ($thename, $theoutput, @$wildcards) = @_;
$world->note ("Trigger " . $thename . " fired.");
$world->note ("Matching line was: " . $theoutput);
for ($i = 1; $i <= 10; $i++)
{
$wildcard = $world->GetTriggerInfo ($thename, 100 + $i);
$world->note ("Wildcard $i = $wildcard");
}
}
# --------------------------------------------
# Subroutine to be called remember which way you walked.
#
# Call from the alias: keypad-*
# Send: %1
#
# --------------------------------------------
sub OnKeypadDirection
{
my ($thename, $theoutput, $wildcards) = @_;
$Direction = $world->GetAliasInfo ($thename, 101);
$world->setvariable("direction", $Direction);
}
$world->note ("Scripting enabled - script file processed");

402
cosmic rage/scripts/exampscript.pys Normal file
View File

@@ -0,0 +1,402 @@
# Example of coding script routines for MUSHclient in Python
# ----------------------------------------------------------
# Error codes returned by various functions
# ----------------------------------------------------------
eOK = 0 # No error
eWorldOpen = 30001 # The world is already open
eWorldClosed = 30002 # The world is closed, this action cannot be performed
eNoNameSpecified = 30003 # No name has been specified where one is required
eCannotPlaySound = 30004 # The sound file could not be played
eTriggerNotFound = 30005 # The specified trigger name does not exist
eTriggerAlreadyExists = 30006 # Attempt to add a trigger that already exists
eTriggerCannotBeEmpty = 30007 # The trigger "match" string cannot be empty
eInvalidObjectLabel = 30008 # The name of this object is invalid
eScriptNameNotLocated = 30009 # Script name is not in the script file
eAliasNotFound = 30010 # The specified alias name does not exist
eAliasAlreadyExists = 30011 # Attempt to add a alias that already exists
eAliasCannotBeEmpty = 30012 # The alias "match" string cannot be empty
eCouldNotOpenFile = 30013 # Unable to open requested file
eLogFileNotOpen = 30014 # Log file was not open
eLogFileAlreadyOpen = 30015 # Log file was already open
eLogFileBadWrite = 30016 # Bad write to log file
eTimerNotFound = 30017 # The specified timer name does not exist
eTimerAlreadyExists = 30018 # Attempt to add a timer that already exists
eVariableNotFound = 30019 # Attempt to delete a variable that does not exist
eCommandNotEmpty = 30020 # Attempt to use SetCommand with a non-empty command window
eBadRegularExpression = 30021 # Bad regular expression syntax
eTimeInvalid = 30022 # Time given to AddTimer is invalid
eBadMapItem = 30023 # Direction given to AddToMapper is invalid
eNoMapItems = 30024 # No items in mapper
eUnknownOption = 30025 # Option name not found
eOptionOutOfRange = 30026 # New value for option is out of range
eTriggerSequenceOutOfRange = 30027 # Trigger sequence value invalid
eTriggerSendToInvalid = 30028 # Where to send trigger text to is invalid
eTriggerLabelNotSpecified = 30029 # Trigger label not specified/invalid for 'send to variable'
ePluginFileNotFound = 30030 # File name specified for plugin not found
eProblemsLoadingPlugin = 30031 # There was a parsing or other problem loading the plugin
ePluginCannotSetOption = 30032 # Plugin is not allowed to set this option
ePluginCannotGetOption = 30033 # Plugin is not allowed to get this option
eNoSuchPlugin = 30034 # Requested plugin is not installed
eNotAPlugin = 30035 # Only a plugin can do this
eNoSuchRoutine = 30036 # Plugin does not support that subroutine (subroutine not in script)
ePluginDoesNotSaveState = 30037 # Plugin does not support saving state
ePluginCouldNotSaveState = 30037 # Plugin could not save state (eg. no state directory)
ePluginDisabled = 30039 # Plugin is currently disabled
eErrorCallingPluginRoutine = 30040 # Could not call plugin routine
eCommandsNestedTooDeeply = 30041 # Calls to "Execute" nested too deeply
eCannotCreateChatSocket = 30042 # Unable to create socket for chat connection
eCannotLookupDomainName = 30043 # Unable to do DNS (domain name) lookup for chat connection
eNoChatConnections = 30044 # No chat connections open
eChatPersonNotFound = 30045 # Requested chat person not connected
eBadParameter = 30046 # General problem with a parameter to a script call
eChatAlreadyListening = 30047 # Already listening for incoming chats
eChatIDNotFound = 30048 # Chat session with that ID not found
eChatAlreadyConnected = 30049 # Already connected to that server/port
eClipboardEmpty = 30050 # Cannot get (text from the) clipboard
eFileNotFound = 30051 # Cannot open the specified file
eAlreadyTransferringFile = 30052 # Already transferring a file
eNotTransferringFile = 30053 # Not transferring a file
eNoSuchCommand = 30054 # There is not a command of that name
eArrayAlreadyExists = 30055 # That array already exists
eBadKeyName = 30056 # That name is not permitted for a key
eArrayDoesNotExist = 30056 # That array does not exist
eArrayNotEvenNumberOfValues = 30057 # Values to be imported into array are not in pairs
eImportedWithDuplicates = 30058 # Import succeeded, however some values were overwritten
eBadDelimiter = 30059 # Import/export delimiter must be a single character, other than backslash
eSetReplacingExistingValue = 30060 # Array element set, existing value overwritten
eKeyDoesNotExist = 30061 # Array key does not exist
eCannotImport = 30062 # Cannot import because cannot find unused temporary character
# ----------------------------------------------------------
# Flags for AddTrigger
# ----------------------------------------------------------
eEnabled = 1 # enable trigger
eOmitFromLog = 2 # omit from log file
eOmitFromOutput = 4 # omit trigger from output
eKeepEvaluating = 8 # keep evaluating
eIgnoreCase = 16 # ignore case when matching
eTriggerRegularExpression = 32 # trigger uses regular expression
eExpandVariables = 512 # expand variables like @direction
eReplace = 1024 # replace existing trigger of same name
eLowercaseWildcard = 2048 # wildcards forced to lower-case
eTemporary = 16384 # temporary - do not save to world file
# ----------------------------------------------------------
# Colours for AddTrigger
# ----------------------------------------------------------
NOCHANGE = -1
custom1 = 0
custom2 = 1
custom3 = 2
custom4 = 3
custom5 = 4
custom6 = 5
custom7 = 6
custom8 = 7
custom9 = 8
custom10 = 9
custom11 = 10
custom12 = 11
custom13 = 12
custom14 = 13
custom15 = 14
custom16 = 15
# ----------------------------------------------------------
# Flags for AddAlias
# ----------------------------------------------------------
# eEnabled = 1 # same as for AddTrigger
eIgnoreAliasCase = 32 # ignore case when matching
eOmitFromLogFile = 64 # omit this alias from the log file
eAliasRegularExpression = 128 # alias is regular expressions
# eExpandVariables = 512 # same as for AddTrigger
# eReplace = 1024 # same as for AddTrigger
eAliasSpeedWalk = 2048 # interpret send string as a speed walk string
eAliasQueue = 4096 # queue this alias for sending at the speedwalking delay interval
eAliasMenu = 8192 # this alias appears on the alias menu
# eTemporary = 16384 # same as for AddTrigger
# ----------------------------------------------------------
# Flags for AddTimer
# ----------------------------------------------------------
# eEnabled = 1 # same as for AddTrigger
eAtTime = 2 # if not set, time is "every"
eOneShot = 4 # if set, timer only fires once
eTimerSpeedWalk = 8 # timer does a speed walk when it fires
eTimerNote = 16 # timer does a world.note when it fires
eActiveWhenClosed = 32 # timer fires even when world is disconnected
# eReplace = 1024 # same as for AddTrigger
# eTemporary = 16384 # same as for AddTrigger
# ----------------------------------------------------------
# Example showing iterating through all triggers
# ----------------------------------------------------------
def showtriggers ():
triggerlist = world.GetTriggerList
if (triggerlist):
for t in triggerlist : world.Note (t)
# -----------------------------------------------
# Example showing iterating through all variables
# ------------------------------------------------
def showvariables ():
variablelist = world.GetVariableList
if (variablelist ):
for v in variablelist : world.Note (v + " = " +
world.GetVariable(v))
# ----------------------------------------------------------
# Example showing iterating through all aliases
# ----------------------------------------------------------
def showaliases ():
aliaslist = world.GetAliasList
if (aliaslist ):
for a in aliaslist : world.Note (a)
# ---------------------------------------------------------
# Example showing running a script on world open
# ---------------------------------------------------------
def OnWorldOpen ():
world.Note ("---------- World Open ------------")
# ---------------------------------------------------------
# Example showing running a script on world close
# ---------------------------------------------------------
def OnWorldClose ():
world.Note ("---------- World Close ------------")
# ---------------------------------------------------------
# Example showing running a script on world connect
# ---------------------------------------------------------
def OnWorldConnect ():
world.Note ("---------- World Connect ------------")
# ---------------------------------------------------------
# Example showing running a script on world disconnect
# ---------------------------------------------------------
def OnWorldDisconnect ():
world.Note ("---------- World Disconnect ------------")
# ---------------------------------------------------------
# Example showing running a script on an alias
#
# This script is designed to be called by the alias below:
#
#
# <aliases>
# <alias
# script="OnTeleport"
# match="^teleport(.*)$"
# enabled="y"
# regexp="y"
# sequence="100"
# >
# </alias>
# </aliases>
#
# (remove the leading #'s and paste into the alias configuration screen)
#
# It is for teleporting (going to) a room by number
#
# The room is entered by name and looked up in the variables
# list.
# ---------------------------------------------------------
def OnTeleport (thename, theoutput, wildcards):
sHelp = "";
sDestination = wildcards [0]
# remove leading spaces from destination
if len(sDestination) > 0:
while sDestination [0] == " ":
sDestination = sDestination [1:]
# if nothing entered echo possible destinations
if len(sDestination) == 0:
world.note ("-------- TELEPORT destinations ----------")
roomlist = world.GetVariableList
# find list of all variables
if roomlist :
# loop through each variable, and add to help if it starts with "teleport_"
for room in roomlist:
if room [:9] == "teleport_":
if len (sHelp) > 0:
sHelp += ", "
sHelp = sHelp + room [9:]
# if no destinations found, tell them
if sHelp == "":
sHelp = "<no rooms in teleport list>"
world.note (sHelp)
return
# get contents of the destination variable
iRoom = world.GetVariable ("teleport_" + sDestination)
# if not found, or invalid name, that isn't in the list
if not iRoom:
world.note ("******** Destination " + sDestination + " unknown *********")
return
world.note ("------> Teleporting to " + sDestination)
world.send ("@teleport #" + iRoom)
# ---------------------------------------------------------
# Example showing running a script on an alias
#
# This script is designed to be called by an alias:
#
# <aliases>
# <alias
# script="OnAddTeleport"
# match="^add_teleport(|\s*(\w*)\s*(\d*))$"
# enabled="y"
# regexp="y"
# sequence="100"
# >
# </alias>
# </aliases>
#
# (remove the leading #'s and paste into the alias configuration screen)
#
# It is for adding a room to the list of rooms to teleport to (by
# the earlier script).
#
# eg. ADD_TELEPORT dungeon 1234
#
# ---------------------------------------------------------
def OnAddTeleport (thename, theoutput, wildcards):
# wildcard one is the destination
sDestination = wildcards [1]
# remove leading spaces from destination
if len(sDestination) > 0:
while sDestination [0] == " ":
sDestination = sDestination [1:]
# if nothing entered tell them command syntax
if len (sDestination) == 0:
world.note ("Syntax: add_teleport name dbref")
world.note (" eg. add_teleport LandingBay 4421")
return
# wildcard 2 is the room to go to
iRoom= wildcards [2]
# add room and destination location to variable list
iStatus = world.SetVariable ("teleport_" + sDestination, int(iRoom))
if iStatus != 0:
world.note ("Room name must be alphabetic, you entered: " + sDestination)
return
world.note ("Teleport location " + sDestination + "(#"
+ iRoom + ") added to teleport list")
# ------------------------------------------
# Example showing a script called by a timer
# -------------------------------------------
def OnTimer (strTimerName):
world.note ("Timer " + strTimerName + " has fired!")
# --------------------------------------------
# Example showing a script called by a trigger
# Should be connected to a trigger matching on: <*hp *m *mv>*
# (the above example will work for SMAUG default prompts (eg. <100hp 10m 40mv>)
# it may need to be changed depending on the MUD prompt format).
# --------------------------------------------
def OnStats (strTriggerName, trig_line, wildcards):
iHP = wildcards [0]
iMana = wildcards [1]
iMV = wildcards [2]
world.Note ("Your HP are " + iHP)
world.Note ("Your Mana is " + iMana)
world.Note ("Your movement points are " + iMV)
# --------------------------------------------
# Subroutine to be called to repeat a command.
#
# Call from the alias:
#
# <aliases>
# <alias
# script="OnRepeat"
# match="^#(\d+)\s+(.+)$"
# enabled="y"
# regexp="y"
# sequence="100"
# >
# </alias>
# </aliases>
#
# (remove the leading #'s and paste into the alias configuration screen)
#
# Example of use: #10 give sword to Trispis
# This would send "give sword to Trispis" 10 times
# --------------------------------------------
def OnRepeat (strAliasName, strOutput, wildcards):
for i in range (int (wildcards [0])):
world.Send (wildcards [1])
# --------------------------------------------
# Example showing iterating through all worlds
# --------------------------------------------
def showworlds ():
worldlist = world.GetworldList
if (worldlist ):
for w in worldlist : world.Note (w)
# --------------------------------------------------
# Example showing sending a message to another world
# --------------------------------------------------
def SendToWorld (name, message):
otherworld = world.getworld (name);
if otherworld:
otherworld.Send (message)
else:
world.note ("World " + name + " is not open")
return
# --------------------------------------------
# Example trigger routine that just shows what was passed to it
# --------------------------------------------
def ExampleTrigger (thename, theoutput, wildcards):
world.note ("Trigger " + thename + " fired.");
world.note ("Matching line was: " + theoutput);
for i in range (10):
if wildcards [i]:
world.note ("Wildcard " + str(i) + " = " + wildcards [i])
world.note ("Scripting enabled - script file processed")

1094
cosmic rage/scripts/exampscript.vbs Normal file
View File

File diff suppressed because it is too large Load Diff