[Home] [Downloads] [Search] [Help/forum]

Gammon Software Solutions forum

See www.mushclient.com/spam for dealing with forum spam. Please read the MUSHclient FAQ!

[Folder]  Entire forum
-> [Folder]  MUSHclient
. -> [Folder]  VBscript
. . -> [Subject]  Translator
Home  |  Users  |  Search  |  FAQ
Username:
Register forum user name
Password:
Forgotten password?
Translator

[Reply to this subject]  Reply to this subject   [New subject]  Start a new subject   [Refresh] Refresh page

Posted by Jcet   USA  (25 posts)  [Biography] bio
Date Tue 23 Apr 2002 12:13 AM (UTC)  [ quote  ]
Message
Ok, I don't have the first clue on how to do this, so help me out

All it basicly is, is just changing one letter into another, example:
(Actually what I want it to translate it into)
A = Y
B = P
C = L
D = T
E = A
F = V
G = K
H = R
I = E
J = Z
K = G
L = M
M = S
N = H
O = U
P = B
Q = X
R = N
S = C
T = D
U = F
V = I
W = J
X = Q
Y = O
Z = W

Like make it an alias
so like if you type
"al Jcet"
it sends to the world
Say Zlad

Know what I'm saying? If you could tell me how to do I'd put all the letters in, but I don't know yet so I need some Expert Advice... thats where ya'll come in :)
If ya need more info just post and ask
-Jcet
See no good, hear no good, be no good, kill all good!
[Go to top] top
Posted by Nick Gammon   Australia  (18,770 posts)  [Biography] bio   Forum Administrator
Date Reply #1 on Tue 23 Apr 2002 02:57 AM (UTC)  [ quote  ]
Message
Quite an interesting project. :)

You need a script like this, which you would call from the alias "al *" ...


sub Translate (AliasName, AliasLine, arrWildcard) 
dim i
dim pos
dim c
dim oldword
dim newword

  oldword = arrWildcard (1)

  ' process each letter

  for i = 1 to len (oldword)

    ' get original letter    
    c = mid (oldword, i, 1)

    ' translate if possible

    pos = instr ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", c)

    ' if a match take substitution letter, otherwise copy original letter across

    if pos > 0 then
       newword = newword + mid ("YPLTAVKREZGMSHUBXNCDFIJQOWypltavkrezgmshubxncdfijqow", pos, 1)
    else
       newword = newword + c
    end if

  next

' send results to world

  world.send "say " & newword

end sub


I put in your letters twice, once for upper case and once for lower case. To do a different translation just change the string in the middle with the translated letters.
- Nick Gammon

www.gammon.com.au, www.mushclient.com
[Go to top] top
Posted by Jcet   USA  (25 posts)  [Biography] bio
Date Reply #2 on Tue 23 Apr 2002 04:19 AM (UTC)  [ quote  ]
Message
Thanks, yet again!!!!
-Jcet
See no good, hear no good, be no good, kill all good!
[Go to top] top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.

1,648 views.

[Reply to this subject]  Reply to this subject   [New subject]  Start a new subject   [Refresh] Refresh page

Go to topic:           Search the forum

[Go to top] top

[Home]

Written by Nick Gammon - 5K

Comments to: Gammon Software support
[RH click to get RSS URL] Forum RSS feed ( http://www.gammon.com.au/rss/forum.xml )

[Best viewed with any browser - 2K]    [Internet Contents Rating Association (ICRA) - 2K]    [Web site powered by FutureQuest.Net]