Gammon Forum

3540h, 4515m cexkdb-
Chidori, Isis, Aurielle, Zoya, Solarus, Mynte, Mourdred, Mazacheli, Sigao, 
Wynedere, Delphinus, Jibrille, Niar, Danya, Namino, Crythril, Skarash, Raymath.
3540h, 4515m cexkdb-

<aliases>
  <alias
   script="enable_theft_qw"
   match="^cqw$"
   enabled="y"
   regexp="y"
   ignore_case="y"
   keep_evaluating="y"
   sequence="100"
  >
  </alias>
</aliases>

<triggers>
  <trigger
   keep_evaluating="y"
   match="(| )(\w+)(\,|\.)"
   name="theft_qw"
   regexp="y"
   repeat="y"
   script="theft_qw_hyperlink"
   sequence="100"
  >
  </trigger>
</triggers>

sub Enable_Theft_PK (a,b,wildcard)
  world.enabletrigger "theft_qw", 0
  world.send "qw"
  world.doafterspecial .5, "world.enabletrigger ""theft_qw"", 0", 12
end sub

sub Theft_QW_Hyperlink (a,b,wildcard)
  world.Hyperlink "hnsb" & wildcard(2), wildcard(2), "click here to honours " & wildcard(1), "blue", "white", 0
end sub

3540h, 4515m cexkdb-
Chidori, Isis, Aurielle, Zoya, Solarus, Mynte, Mourdred, Mazacheli, Sigao, 
Chidori
Wynedere, Delphinus, Jibrille, Niar, Danya, Namino, Crythril, Skarash, Raymath.
Wynedere
3540h, 4515m cexkdb-
3540h

^([A-Z][a-z]+)[,.]?((?:\s[A-Z][a-z]+[,.])*)([A-Z][a-z]+)?[,.]?\s?$

3540h, 4515m cexkdb-
Chidori.
3540h, 4515m cexkdb-

function ShowNames(n,o,wildcs)
   local names = {}  -- an array of names
   table.insert(names,wildcs[1])  -- append the first name

   -- if 2nd wildcard is not empty
   if wildcs[2] then
      
      -- split it into a table around commas, removing the last element from the resulting array
     local scnd = utils.split(wildcs[2], ",")
     table.remove(scnd)
     -- now append the values from "scnd" to the names array
     for _,v in ipairs(scnd) do
        table.insert(names, scnd)
     end
   end

   -- if 3rd wildcard is not empty
   if wildcs[3] then
      -- add it to the names
      table.insert(names, wildcs[3])
   end

   -- Display the names
   for _,v in ipairs(names) do
      world.Hyperlink ("hnsb" .. v, v, "click here to honours " .. v, "blue", "white", 0)
   end
end

scnd = split(wildcs[1], ",")

names = split(wildcs[10], ",")

Dim, a, playernames
'wildcards(1) will be the first name in the list.
'Either add a few more ifs to work around it, or just add it to the end.  (I added it to the end in this script.)
PlayerNames = split(wildcards(2),", ")

'Do some clean up
playernames(0) = trim(playernames(0))
'This removes the period or comma on the end of the last name.
playernames(ubound(playernames)) = left(playernames(ubound(playernames)),len(playernames(ubound(playernames)) - 1)

redim preserve playernames(ubound(playernames)) 'add one more onto array and toss the wildcards(1) name onto the end.
playernames(ubound(playernames)) = wildcards(1)

Dim PrintedLength 
'The point in this little routine is if 
'you don't wrap it yourself MUSH tries to wrap it and you 
'end up with half of a hyperlink that doesn't work, so 
'this should wrap it before MUSH tries to.

for a = 0 to ubound(playername)
PrintedLength = PrintedLength & playernames(a) & ", "

If len(PrintedLength) > 79 Then 'Since you can't find what the client wraps at, just wrap at 80.
 world.note " "
 world.Hyperlink "Write your sweet hyperlink here." PrintedLength = playernames(a) & ", "
else
 world.Hyperlink "Write your sweet hyperlink here."
end if

If a = ubound(playernames) then
else
  world.Colourtell "yellow", "black", ", " 'Here's your comma, insert it after each name, but not if we're on the last name.
'Colourtell must be used, since it doesn't terminate with a newline.
end if
next

H:1500 M:1374 [eb]
Acino, Adamant, Aelia, Althalus, Amelas, Amiya, Ansnom, Ansury, Arbre, Aren, 
Arinwen, Arivan, Armin, Arorn, Aspoehro, Aviv, Bain, Beren, Borscin, Butoken, 
Charlius, Choderic, Chthon, Daelin, Dagan, Desian, Draqon, Ecikoria, Elinja, 
Elorin, Emikalia, Entildron, Eretria, Erzsebet, Estelyx, Evilo, Ezrax, Feichin, 
Garoul, Gawdin, Gex, Graythe, Halisstra, Ianus, Imiroari, Indalecio, Istoria, 
Jeisha, Jherrek, Jorachim, Karim, Kidasu, Kuroken, Lynette, Macian, Makano, 
Maximas, Merelii, Mikal, Minois, Morana, Nahual, Nelien, Neoma, Nero, Nicholas, 
Numax, Nymeria, Osifer, Plato, Posh, Qix, Ranac, Rasta, Rastaban, Reach, 
Requilem, Reuel, Rhelora, Roselynn, Ryath, Ryban, Rynthia, Sagla, Saigusa, 
Savanna, Scottswarbrick, Serafena, Sesoh, Sethiel, Sylfaen, Tetchta, Theris, 
Tremaday, Truft, Tsatra, Turc, Vaneas, Victoria, Virillya, Visk, Xandradi, Xanrl
, Ynael, Yura, Yurameki, Zanzarious, Zaurtha, Zerath, Zizor, Zoharim, and 
Zossima.
H:1500 M:1374 [eb]

becomes:

H:1500 M:1374 [eb]
Acino, Adamant, Aelia, Althalus, Amelas, Amiya, Ansnom, Ansury, Arbre, Aren,
Arinwen, Arivan, Armin, Arorn, Aspoehro, Aviv, Bain, Beren, Borscin, Butoken,
Charlius, Choderic, Chthon, Daelin, Dagan, Desian, Draqon, Ecikoria, Elinja,
Elorin, Emikalia, Entildron, Eretria, Erzsebet, Estelyx, Evilo, Ezrax, Feichin,
Garoul, Gawdin, Gex, Graythe, Halisstra, Ianus, Imiroari, Indalecio, Istoria,
Jeisha, Jherrek, Jorachim, Karim, Kidasu, Kuroken, Laedien, Lynette, Macian,
Makano, Maximas, Merelii, Mikal, Minois, Morana, Nahual, Nelien, Neoma, Nero,
Nicholas, Numax, Nymeria, Osifer, Plato, Posh, Qix, Ranac, Rasta, Rastaban,
Reach, Requilem, Reuel, Rhelora, Roselynn, Ryath, Ryban, Rynthia, Sagla, Saigusa,
Savanna, Scottswarbrick, Serafena, Sesoh, Sethiel, Sylfaen, Tetchta, Theris,
Tremaday, Truft, Tsatra, Turc, Vaneas, Victoria, Virillya, Visk, Xandradi, Xanrl,
Ynael, Yura, Yurameki, Zanzarious, Zaurtha, Zerath, Zizor, Zoharim,
Zossima.
H:1500 M:1374 [eb]

<aliases>
  <alias
   script="enable_shownames"
   match="^cqw$"
   enabled="y"
   group="auto-theft"
   regexp="y"
   ignore_case="y"
   keep_evaluating="y"
   sequence="100"
  >
  </alias>
</aliases>

<triggers>
  <trigger
   group="auto-theft"
   match="^H\:(\d+) M\:(\d+) [(.*?)]$"
   name="theft_prompt"
   regexp="y"
   script="disable_shownames"
   sequence="1"
  >
  </trigger>
  <trigger
   group="auto-theft"
   keep_evaluating="y"
   match="^(.*?)$"
   name="theft_qw"
   omit_from_log="y"
   omit_from_output="y"
   regexp="y"
   repeat="y"
   script="test_shownames"
   sequence="100"
  >
  </trigger>
</triggers>

function enable_shownames (n,o,wc)
  EnableTrigger ("theft_qw", true)
  EnableTrigger ("theft_prompt", true)
  Send ("qw")
end

function disable_shownames (n,o,wc)
  EnableTrigger ("theft_qw", false)
  EnableTrigger ("theft_prompt", false)
end

function test_shownames (n,o,wc)
  local qw_line = wc[1]
  if string.sub (qw_line, string.len(qw_line)) ~= "," and string.sub (qw_line, string.len(qw_line)) ~= " " then
    qw_line = qw_line .. ","
  end
  if string.sub (qw_line, 1, 2) == ", " then
    qw_line = string.gsub (qw_line, ", ", "", 1)
  end
  qw_line = string.gsub (qw_line, "and ", "")
  local names = utils.split(qw_line, ",")
  table.remove (names)
  for key, value in ipairs(names) do
    value = string.gsub(value, " ", "")
    if key == table.maxn (names) then
      if string.sub (value, string.len(value)) == "." then
        value = string.sub (value, 1, string.len(value)-1)
        Hyperlink ("honours " .. value , value, "click here to honours " .. value, "blue", "white", 0) 
        ColourNote ("dimgray", "white", ".")
        return
      end
    end
    Hyperlink ("honours " .. value , value, "click here to honours " .. value, "blue", "white", 0)
    if key == table.maxn (names) then
      ColourNote ("dimgray", "white", ",")
      return
    end
    ColourTell ("dimgray", "white", ", ")
  end
end

wholist = [[
Acino, Adamant, Aelia, Althalus, Amelas, Amiya, Ansnom, Ansury, Arbre, Aren, 
Arinwen, Arivan, Armin, Arorn, Aspoehro, Aviv, Bain, Beren, Borscin, Butoken, 
Charlius, Choderic, Chthon, Daelin, Dagan, Desian, Draqon, Ecikoria, Elinja, 
Elorin, Emikalia, Entildron, Eretria, Erzsebet, Estelyx, Evilo, Ezrax, Feichin, 
Garoul, Gawdin, Gex, Graythe, Halisstra, Ianus, Imiroari, Indalecio, Istoria, 
Jeisha, Jherrek, Jorachim, Karim, Kidasu, Kuroken, Lynette, Macian, Makano, 
Maximas, Merelii, Mikal, Minois, Morana, Nahual, Nelien, Neoma, Nero, Nicholas, 
Numax, Nymeria, Osifer, Plato, Posh, Qix, Ranac, Rasta, Rastaban, Reach, 
Requilem, Reuel, Rhelora, Roselynn, Ryath, Ryban, Rynthia, Sagla, Saigusa, 
Savanna, Scottswarbrick, Serafena, Sesoh, Sethiel, Sylfaen, Tetchta, Theris, 
Tremaday, Truft, Tsatra, Turc, Vaneas, Victoria, Virillya, Visk, Xandradi, Xanrl
, Ynael, Yura, Yurameki, Zanzarious, Zaurtha, Zerath, Zizor, Zoharim, and 
Zossima.
]]

wholist = string.gsub (wholist, "\n", " ")  -- wrap lines
wholist = string.gsub (wholist, "  ", " ")  -- 2 spaces become 1
wholist = string.gsub (wholist, " ,", ",")  -- space-comma becomes comma
wholist = string.gsub (wholist, "and (.-)%.", "%1,") -- final "and blah." becomes "blah,"

for w in string.gmatch (wholist , " *(.-),") do
  print (w)
end -- for

Acino
Adamant
Aelia
Althalus
Amelas
Amiya
Ansnom
Ansury
Arbre
Aren
Arinwen
Arivan
... and so on ...
Zoharim
Zossima