(all characters)//the characters that can be used
(cd)//coded/decoded message
(case)//case detector
(i1)//character recognizer 1
(i2)//character recognizer 2
(c/d :: list)//coded/decoded message (more readable format*)

when green flag clicked//most rcommended method to start
broadcast [message 1 v]

when I receive [message 1 v]
hide list [c/d v]
set [all characters v] to [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890`-=\;',./~!@#$%^&*()_+{}|:"<>? ] //all characters below
wait until <<key [c v] pressed?> or  <key [d v] pressed?> 
if <key [c v] pressed?> then //c = code and d= decode
    code :: custom
else
if <key [d v] pressed?> then
de-code :: custom
end
end

"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890`-=][\;',./~!@#$%^&*()_+{}|:"<>? "

set [all characters v] to [ ]

An example of what it should look like

define Detect case of letter [character]
if <(length of (character)) > [1]> then
    set [case v] to [error!] //indicates that more than one character was entered
    stop [this script v]
end
switch costume to [null v] //it should be your very first costume
switch costume to (character) //if the character is lowercase, it will stay on "null"
if <(costume #) = (1)> then //if the sprite never changed costumes due to the letter being lowercase
    switch costume to (join (character) [t]) //all lowercase costumes end in "t" or your lettered choice (refer to pattern above)
end
if <(costume #) = (1)> then //if the sprite still has not changed costume
    set [case v] to [other] //indicates that a non-alphabetic character was used
    stop [this script v]
end 
if <((costume #) mod (2)) = (0)> then //if the costume is at an interval of "2", meaning it is a capital letter costume
    set [case v] to [upper] //defines that the letter is uppercase
    else
    set [case v] to [lowercase]
end

define code
ask [Type what you would like to code] and wait//as I said, I am using an example that uses ask block
set [i1 v] to [0]
set [i2 v] to [0]
set [cd v] to []//absolutely nothing should be written inside box
repeat (length of (answer))//changes all letters of answer
change [i2 v] by (1)//changes the letter of answer being coded
Detect case of the letter(letter (i2) of (answer))::custom //block we made earlier
    
if <(case) = [upper]> then
set [i1 v] to [0]//capital letters
    else
set [i1 v] to [27]//simple letters and other symbols
end

repeat until <(letter (i1) of (all characters)) = (letter (i2) of (answer))> //repeats until find the letter
    
change [i1 v] by (1)
if<(letter (i1) of (all characters)) = (letter (i2) of (answer))> then//checks all characters for the specific letter in answer
if <(i1) < [10]> then
    
set [cd v] to (join (cd) (join [0] (i1))) //makes sure the coded letter is 2 digits
else
set [cd v] to (join (cd) (i1))
end
    
end


end
if <(i) = [27]> then
set [cd v] to (join (cd) (i1))
end
end
delete (all v) of [c/d  v]
add (cd) to [c/d  v]//makes it easier to read and copieable

wait until <key [space v] pressed?>
broadcast [message 1 v]

define de-code
delete (all v) of [c/d  v]
ask [Type in the code to decode] and wait
set [i1 v] to [0]
set [cd v] to []//absolutely nothing in the box, not even space
add [] to [c/d  v] //absolutely nothing in the box, not even space
repeat ((length of (answer)) / (2))//since the characters are coded into 2 digit form
set [cd v] to []//nothing in box
set [i2 v] to [0]
repeat (2)//2 digit de-code formula
change [i1 v] by (1)
set [cd v] to (join (cd) (letter (i1) of (answer))) 
    
end
set [i2 v] to (cd) // remembers the length of cd
    
set [cd v] to (letter (i2) of (all characters))//back to readable text
replace item (1 v) of [ c/d v] with (join (item (1 v) of [c/d  v]) (cd))
end
show list [c/d v]

wait until < key [space v] pressed?>
broadcast [message 1 v]

sonicfan12p wrote:

This is pretty close to what I use, with a couple of minor changes. (plus mine is case sensitive, if you're interested in adding that feature) If there's a more efficient method of doing it than what you said, I've never seen it.

VectorHero wrote:

Hey!! there is no “repeat until” block in scratch editor 2.0 (it is in scratch 1.0), So can we use “repeat” block?

                                         :cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool::cool:::D:D:D:D:D:D:D:D:D
when green flag clicked
move (111111) steps
play sound [UP TOWN FUNK BABE!!! XD v] until done
wait (1) secs
set pen color to [#ff0088]
wait (12334) secs

sonicfan12p wrote:

This is pretty close to what I use, with a couple of minor changes. (plus mine is case sensitive, if you're interested in adding that feature) If there's a more efficient method of doing it than what you said, I've never seen it.

SkullduggeryPleasant wrote:

Ummm, is there a limit to how many cloud variables there can be?

SkullduggeryPleasant wrote:

Ummm, is there a limit to how many cloud variables there can be?

jokebookservice1 wrote:

-snip-
On a seperate note..
Why do you need the lowercase lettered costumes, surely a lowercase letter ill stay at costume null whether the costume letter+t exists? It seems like it is taking up 2x space needed? (correct me if wrong)

cm8263 wrote:

SkullduggeryPleasant wrote:

Ummm, is there a limit to how many cloud variables there can be?

Yes, 10 per project.

And PLEASE check before you post, because you might just be Necro-Posting!

mineawesomeman wrote:

I just coded using your coder, and I tested it by putting in “Hello” though when I tried it, it just stayed there. I'm in turbo mode and it still doesn't work. DO you know why?

mineawesomeman wrote:

Ok, here is the project with all the code forum this post, though I don't want to spoil anything to only look at stuff on top of the comment https://scratch.mit.edu/projects/110311316/