Gammon Software Solutions forum

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

Entire forum
MUSHclient
VBscript
Translator

Home \| Users \| Search \| FAQ
Username:	Register forum user name
Password:	Forgotten password?

(New message)

Subject:	Translator
Name:	Your forum user name. Register forum user name
Password:	Your forum password. Forgotten password?
Message:	[quote=Nick Gammon] Quite an interesting project. :) You need a script like this, which you would call from the alias "al *" ... [code] 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 [/code] 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. [/quote] Message to be posted (in English, please).
Forum codes:	Check this if your message uses 'forum codes' or templates (auto-detected for new posts). Forum codes Templates

Save this message ...

Subject review (reverse sequence)

Posted by

Jcet USA (25 posts)

bio

Date

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!

top

Posted by Nick Gammon Australia (18,770 posts) bio Forum Administrator

Date 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

top

Posted by

Jcet USA (25 posts)

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!

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,646 views.

Reply to this subject Start a new subject Refresh page

Go to topic: Search the forum

top

Comments to: Gammon Software support
Forum RSS feed ( http://www.gammon.com.au/rss/forum.xml )