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
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
top