Code snippets

Revision as of 20:03, 24 June 2011 by HE-NICK (Talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search


This page contains "snippets" of code which may be helpful in various systems.

(Check if these need to be modernized for the current state of the development environment)


Send a Command Server to Server: the Remote Call

Summary: The following snippets sets up and sends a remote call to a known AreaInstance, receives the remote call, and handles it.

NOTE: A new, easier to use syntax is now available. See: RemoteCall2

function myRemote(data as string)
  // This function will call to a known AreaInstance, for this example we will assume you want to call the Mission System DataBase Area 444 EditInstance 0 as a result of the User typing /Mission
  //Setup a RemoteCallOut "object"
  rmc as Class RemoteCallOut
  rmc.toInstance.AreaID = 444
  rmc.toInstance.AreaInstanceNumber = 0
  rmc.toFunction = "ReceiveMyRemote"
  rmc.failFunction = "MyRemoteFailHandler"
  // Often you will want to pass the ID of the _PlayerAccount node for the user that initiated the remote call
  accountid as ID = me
  rmc.args["AccountID"] = accountid
  // Likewise, it is often useful to have the character
  characterid as ID = playerutils:GetMyChar(AccountID)
  rmc.args["CharacterID"] = characterid
  rmc.args["MyData"] = data
  // Initiate the Remote Call

The following function is run in the AreaInstance specified by rmc.toInstance.area(rmc.toInstance.AreaInstanceNumber) at the function specified by rmc.toFunction in the script specified by rmc.toScript.

public function ReceiveMyRemote(rmcin as Class RemoteCallIn)
  data as string = rmcin.args["MyData"]
  // TODO: Do whatever it is you want with the data

public function MyRemoteFailHandler(rmcin as Class RemoteCallIn)
  // TODO: Handle the failure, either by dropping it on the floor or doing something
  ScriptError("MyRemote Failed because the Remote Call was unable to complete its trip, AreaInstance is down?")

Debug messaging that finds you anywhere

Summary: MsgPlayer, unless used at the World, will only message you if you are in the same AreaInstance in which the code is running. For cross instance Debugging, this is less than ideal. That and I hate typing MsgPlayer(me, "", "Debugging information")...too many letters!"

function Debug(Message as String)
  rmc as Class RemoteCallOut
  rmc.toInstance.AreaInstanceNumber = 0
  rmc.toFunction = "RemoteDebug"
  rmc.failFunction = "RMCFailHandler"
  // Hard code the accountIDs of the accounts you wish to receive the messages
  rmc.args["MyAccountID"] = 4487000022
  rmc.args["MySecondAccountID"] = 9095000011
  rmc.args["Message"] = Message

public function RemoteDebug(rmcin as Class RemoteCallIn)
  MsgPlayer(rmcin.args["MyAccountID"], "", rmcin.args["Message"])
  MsgPlayer(rmcin.args["MySecondAccountID"], "", rmcin.args["Message"])

Now you can just type Debug("My debugging message") in your script and it will find you no matter where you are.

  Lots of code that isn't working
  Debug("Why does this code not work, values are: variable=" + variable + " variabletwo=" + variabletwo)


Simple - via delimited text

Summary: Turn one or more parameters into a single string that is tilda(~) delimited for transmission in a remotecall. This is also how verbs pass their data from client to server.

function myDelimiter()
  myDelimitedString as string = ("Insert marvelous string here." + "~" + "Failed to think." + "~" + "Are we there yet?")
  rmc as class RemoteCallOut
  rmc.toInstance.AreaID = TargetArea
  rmc.toInstance.AreaInstanceNumber = TargetInstance
  rmc.toFunction = "ReceiveMyDelimiter"
  rmc.failFunction = "MyRemoteFailHandler"
  rmc.args["DelimitedString"] = myDelimitedString

public function ReceiveMyDelimiter (rmcin as Class RemoteCallIn)
  myParameterList as list of string 
  SplitBy(rmcin.args["DelimitedString"], "~", myParameterList)
  // myParameterList now contains
  //   myParameterList[1] = "Insert marvelous string here."
  //   myParameterList[2] = "Failed to think of a marvelous string."
  //   myParameterList[3] = "Are we there yet?"
  // TODO: Do whatever you needed with the data

Copy Data

From a Noderef of Class Foo to a Variable of Class Foo

Summary: Copy all of the data in class Foo on a noderef to a variable.

Assume class Foo has a field named FooField as type string and a field FooList as type list of string.

myFooNode as noderef of class Foo
myFooNode.FooField = "stuff"
add back "joe" to myFooNode.FooList
myFooVar as Class Foo = CopyFoo(myFooNode)

function CopyFoo(myFooNode as noderef) as Class Foo
  Where myFoodNode
    is kindof Foo
      myFooVar as Class Foo
      // Copy data from the foo class
      myFooVar.Foo = myFooNode.Foo
      ScriptError("myFooNode is not of class foo?")
  return myFooVar

Parsing a String

Verb options - Simple - Tokenize or SplitBy

Summary: Given a user's input via a /verb, which is transmitted as a single string, parse the string to farm processing out to other functions.

Assume the existence of a verb /myverb registered in the /REGISTER system for verbs. The server side script would look like the following.

Note: A very minor change to use the built-in function SplitBy instead of Tokenize allows you to include parameters that consist of multiple words delimited by some character(s) other than a space. Tokenize essentially performs a SplitBy with " " as the delimiter.

Usage for /myverb
/myVerb (option) (target) (parameters)
  Valid options:
    VIEW (target)
    DOSTUFF (target) (1..n additional parameters)

shared function ProcessInput(input as string)
  tokens as List of String 
  tokenize(input, tokens)
  if tokens.length < 3
    // Inproper input since /myverb requires a target at the minimum, so call usage
  else if tolower(tokens[2]) = "view"
    // use the tolower function to normalize input for the purposes of the string comparisons
    charid as id = GetCharByNameOrID(tokens[3])
    if (charid = 0)
      MsgPlayer(me, "", "The character (" + tokens[3] + ") is not currently in this instance.")
  else if tolower(tokens[2]) = "dostuff"
    charid as id = GetCharByNameOrID(tokens[3])
    if (charid = 0)
      MsgPlayer(me, "", "The character (" + tokens[3] + ") is not currently in this instance.")
    dostuff(input, tokens, charid)
    // Often it is helpful to pass both the input and the tokenized form of the input to the functions that do the actual work.

Utility below assumes the character is in the same AreaInstance as the code that is running. If that is not the case, it reports as if the character is not online/in the area.

function GetCharFromNameOrID(input as String) as ID
  verifystr as String = input
  verifynum as Integer = input
  charid as ID
  // Autoconversion of a string to an integer/id results in 0 if a non-number is the value of the string.
  //   By comparing the autoconverted version with the original you can determine if it held a number 0, or was autoconverted to 0
  if ((verifynum = 0) and (verifystr != targetnum))
    charname as String = input
    accountid as ID = FindPlayerByName(charname)
    charnode as NodeRef = playerutils:GetMyChar(accountid)
    if (charnode = None)
      return 0
      charid = charnode
    charid = input
    charnode as NodeRef = charid
    if (charnode = None)
      return 0
  return charid
Personal tools