mabort
Novice
Joined: 08 Mar 2001
Posts: 44
|
 Posted: Tue Apr 10, 2001 3:45 pm
Encryptio/Decryption script for Duris
|
Hey all, I made this script to get around the good/evil language barrier on Duris(and yes I talked with admins, they don't mind).
well here it is, broken down into 2 triggers and 3 aliases:
ALIAS rws (short for Race War Say heh)
#var to_encrypt ""
#loop %numParam( ) {
#var to_encrypt %insert( %param( %i)" ", @to_encrypt, %len( @to_encrypt)+1)
}
encrypt @to_encrypt
-----
ALIAS encrypt
#var tempstr "_|_ "
#var strlen %len( %1)
#var dumpstr %1
#var dumpstr %lower( @dumpstr)
#loop 1,@strlen {
#var to_ins ""
#IF {%copy( @dumpstr, %i, 1)= "a"} {#var to_ins ".-"}
#IF {%copy( @dumpstr, %i, 1)= "b"} {#var to_ins "-..."}
#IF {%copy( @dumpstr, %i, 1)= "c"} {#var to_ins "-.-."}
#IF {%copy( @dumpstr, %i, 1)= "d"} {#var to_ins "-.."}
#IF {%copy( @dumpstr, %i, 1)= "e"} {#var to_ins "."}
#IF {%copy( @dumpstr, %i, 1)= "f"} {#var to_ins "..-."}
#IF {%copy( @dumpstr, %i, 1)= "g"} {#var to_ins "--."}
#IF {%copy( @dumpstr, %i, 1)= "h"} {#var to_ins "...."}
#IF {%copy( @dumpstr, %i, 1)= "i"} {#var to_ins ".."}
#IF {%copy( @dumpstr, %i, 1)= "j"} {#var to_ins ".---"}
#IF {%copy( @dumpstr, %i, 1)= "k"} {#var to_ins "-.-"}
#IF {%copy( @dumpstr, %i, 1)= "l"} {#var to_ins ".-.."}
#IF {%copy( @dumpstr, %i, 1)= "m"} {#var to_ins "--"}
#IF {%copy( @dumpstr, %i, 1)= "n"} {#var to_ins "-."}
#IF {%copy( @dumpstr, %i, 1)= "o"} {#var to_ins "---"}
#IF {%copy( @dumpstr, %i, 1)= "p"} {#var to_ins ".--."}
#IF {%copy( @dumpstr, %i, 1)= "q"} {#var to_ins "--.-"}
#IF {%copy( @dumpstr, %i, 1)= "r"} {#var to_ins ".-."}
#IF {%copy( @dumpstr, %i, 1)= "s"} {#var to_ins "..."}
#IF {%copy( @dumpstr, %i, 1)= "t"} {#var to_ins "-"}
#IF {%copy( @dumpstr, %i, 1)= "u"} {#var to_ins "..-"}
#IF {%copy( @dumpstr, %i, 1)= "v"} {#var to_ins "...-"}
#IF {%copy( @dumpstr, %i, 1)= "w"} {#var to_ins ".--"}
#IF {%copy( @dumpstr, %i, 1)= "x"} {#var to_ins "-..-"}
#IF {%copy( @dumpstr, %i, 1)= "y"} {#var to_ins "-.--"}
#IF {%copy( @dumpstr, %i, 1)= "z"} {#var to_ins "--.."}
#IF {%isnumber( %copy( @dumpstr, %i, 1))} {#var to_ins %copy( @dumpstr, %i, 1)}
#IF {%copy( @dumpstr, %i, 1)= " "} {#var to_ins "$"}
#IF {%copy( @dumpstr, %i, 1)= "!"} {#var to_ins "!"}
#IF {%copy( @dumpstr, %i, 1)= "."} {#var to_ins "*"}
#IF {%copy( @dumpstr, %i, 1)= "?"} {#var to_ins "?"}
#IF {%null( @to_ins)} {#var to_ins "@"}
#var tempstr %insert( @to_ins, @tempstr, %len( @tempstr)+1)
#var tempstr %insert( "|", @tempstr, %len( @tempstr)+1)
}
say @tempstr
#var tempstr ""
#var dumpstr ""
-----
ALAIS decrypt
#var tempstr ""
#var dumpstr %replace( @dumpstr, "|", " ")
#var strlen %numwords( @dumpstr)
#if {%null( @saidin)} {#var tempstr @saidby" says "'} {#var tempstr @saidby" says in "@saidin" "'}
#loop 1,@strlen {
#var to_ins ""
#IF {%word( @dumpstr, %i)= ".-"} {#var to_ins "a"}
#IF {%word( @dumpstr, %i)= "-..."} {#var to_ins "b"}
#IF {%word( @dumpstr, %i)= "-.-."} {#var to_ins "c"}
#IF {%word( @dumpstr, %i)= "-.."} {#var to_ins "d"}
#IF {%word( @dumpstr, %i)= "."} {#var to_ins "e"}
#IF {%word( @dumpstr, %i)= "..-."} {#var to_ins "f"}
#IF {%word( @dumpstr, %i)= "--."} {#var to_ins "g"}
#IF {%word( @dumpstr, %i)= "...."} {#var to_ins "h"}
#IF {%word( @dumpstr, %i)= ".."} {#var to_ins "i"}
#IF {%word( @dumpstr, %i)= ".---"} {#var to_ins "j"}
#IF {%word( @dumpstr, %i)= "-.-"} {#var to_ins "k"}
#IF {%word( @dumpstr, %i)= ".-.."} {#var to_ins "l"}
#IF {%word( @dumpstr, %i)= "--"} {#var to_ins "m"}
#IF {%word( @dumpstr, %i)= "-."} {#var to_ins "n"}
#IF {%word( @dumpstr, %i)= "---"} {#var to_ins "o"}
#IF {%word( @dumpstr, %i)= ".--."} {#var to_ins "p"}
#IF {%word( @dumpstr, %i)= "--.-"} {#var to_ins "q"}
#IF {%word( @dumpstr, %i)= ".-."} {#var to_ins "r"}
#IF {%word( @dumpstr, %i)= "..."} {#var to_ins "s"}
#IF {%word( @dumpstr, %i)= "-"} {#var to_ins "t"}
#IF {%word( @dumpstr, %i)= "..-"} {#var to_ins "u"}
#IF {%word( @dumpstr, %i)= "...-"} {#var to_ins "v"}
#IF {%word( @dumpstr, %i)= ".--"} {#var to_ins "w"}
#IF {%word( @dumpstr, %i)= "-..-"} {#var to_ins "x"}
#IF {%word( @dumpstr, %i)= "-.--"} {#var to_ins "y"}
#IF {%word( @dumpstr, %i)= "--.."} {#var to_ins "z"}
#IF {%isnumber( %word( @dumpstr, %i))} {#var to_ins %word( @dumpstr, %i)}
#IF {%word( @dumpstr, %i)= "$"} {#var to_ins " "}
#IF {%word( @dumpstr, %i)= "!"} {#var to_ins "!"}
#IF {%word( @dumpstr, %i)= "*"} {#var to_ins "."}
#var tempstr %insert( @to_ins, @tempstr, %len( @tempstr)+1)
}
#var tempstr %insert( ', @tempstr, %len( @tempstr)+1)
#var tempstr %insert( "-END-", @tempstr, %len( @tempstr))
#echo @tempstr
#CR
#var tempstr ""
#var dumpstr ""
#var saidby ""
#var saidin ""
--------
TRIGGER
on:
&saidby says '_|_ %2'
does:
#gag
#var dumpstr %2
#var saidin ""
decrypt
--------
TRIGGER
on:
&saidby says in &saidin '_|_ %3'
does:
#gag
#var dumpstr %3
decrypt
post any questions ya might have |
|
