Cer
Upgraded Agent
Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
  
votes: 4
|
 Posted: Sun Feb 22, 2004 1:08 am Post subject: |
 |
|
Here's a translator command I made for the Azulian Language 2.0. This is the first version of the command, so it's Translator v. 1.0.
Anyway:
Name: translate
Description: Azulian/English Translator
Usage: !translate [language]->[message]
Examples:
!translate azulian->hello
!translate english->yobbu
Best Compatibility: CKS NexusBot
The language names can be abbreviated:
Azulian -> Azu -> a
English -> Eng -> e
Command Source:
| Code: | | # COMMAND NAME:<br /># TRANSLATE<br /># DESCRIPTION:<br /># Azulian/English Translator<br /># COMPATIBILITY:<br /># FULLY COMPATIBLE<br /><br />sub translate {<br /> my ($self,$client,$msg,$listener) = @_;<br /><br /> # Our translation hashes.<br /> my %to_azu = (<br /> A => "E",<br /> B => "P",<br /> C => "W",<br /> D => "Q",<br /> E => "O",<br /> F => "T",<br /> G => "V",<br /> H => "*lazy*",<br /> I => "A",<br /> J => "X",<br /> K => "Z",<br /> L => "B",<br /> M => "D",<br /> N => "F",<br /> O => "*lazy*",<br /> P => "G",<br /> Q => "J",<br /> *lazy* => "C",<br /> S => "H",<br /> T => "K",<br /> *lazy* => "I",<br /> V => "L",<br /> W => "*lazy*",<br /> X => "M",<br /> *lazy* => "S",<br /> Z => "N",<br /> );<br /> my %to_eng = (<br /> A => "I",<br /> B => "L",<br /> C => "*lazy*",<br /> D => "M",<br /> E => "A",<br /> F => "N",<br /> G => "P",<br /> H => "S",<br /> I => "*lazy*",<br /> J => "Q",<br /> K => "T",<br /> L => "V",<br /> M => "X",<br /> N => "Z",<br /> O => "E",<br /> P => "B",<br /> Q => "D",<br /> *lazy* => "W",<br /> S => "*lazy*",<br /> T => "F",<br /> *lazy* => "O",<br /> V => "G",<br /> W => "C",<br /> X => "J",<br /> *lazy* => "H",<br /> Z => "K",<br /> );<br /><br /> # See if they have a message.<br /> if (length $msg > 1) {<br /> # Format the message...<br /> $msg =~ s/\>\;/>/ig;<br /> $msg =~ s/\<\;/</ig;<br /><br /> # Split the language from the message.<br /> my ($lang,$str) = split(/\-\>/, $msg, 2);<br /> $lang = lc($lang);<br /><br /> # Split the string into an array.<br /> my @string = split(//, $str);<br /><br /> # See if they have a valid language.<br /> $lang = "a" if $lang eq "azulian";<br /> $lang = "a" if $lang eq "azu";<br /> $lang = "e" if $lang eq "english";<br /> $lang = "e" if $lang eq "eng";<br /><br /> my $char;<br /> my $final;<br /> my $type;<br /><br /> if ($lang eq "a") {<br /> $type = "Azulian";<br /> # Translating into Azulian.<br /> foreach $char (@string) {<br /> if ($char eq " ") {<br /> $final .= " ";<br /> }<br /> else {<br /> $char = uc($char);<br /> $char =~ s/$char/$to_azu{$char}/ig;<br /> $char = lc($char);<br /> $final .= $char;<br /> }<br /> }<br /> }<br /> elsif ($lang eq "e") {<br /> $type = "English";<br /> # Translating into English.<br /> foreach $char (@string) {<br /> if ($char eq " ") {<br /> $final .= " ";<br /> }<br /> else {<br /> $char = uc($char);<br /> $char =~ s/$char/$to_eng{$char}/ig;<br /> $char = lc($char);<br /> $final .= $char;<br /> }<br /> }<br /> }<br /> else {<br /> return "Invalid use of the command:\n\n"<br /> . "!translate azulian->hello world!";<br /> }<br /><br /> # Return their reply.<br /> return "Translation ($type): $final";<br /> }<br /> else {<br /> return "To use the translator:\n\n"<br /> . "!translate azulian->hello world!";<br /> }<br />}<br />1; |
_________________
Current Site (2008) http://www.cuvou.com/ |
|
User Control Panel
