Register forum user name Search FAQ

Gammon Forum

Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the password reset link.

Due to spam on this forum, all posts now need moderator approval.

 Entire forum ➜ MUSHclient ➜ VBscript ➜ Translator

Translator

It is now over 60 days since the last post. This thread is closed.     Refresh page


Posted by Jcet   USA  (25 posts)  Bio
Date Tue 23 Apr 2002 12:13 AM (UTC)
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!
Top

Posted by Nick Gammon   Australia  (23,133 posts)  Bio   Forum Administrator
Date Reply #1 on Tue 23 Apr 2002 02:57 AM (UTC)
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
Top

Posted by Jcet   USA  (25 posts)  Bio
Date Reply #2 on Tue 23 Apr 2002 04:19 AM (UTC)
Message
Thanks, yet again!!!!

-Jcet
See no good, hear no good, be no good, kill all good!
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.


12,228 views.

It is now over 60 days since the last post. This thread is closed.     Refresh page

Go to topic:           Search the forum


[Go to top] top

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.