RaZgRiZ

getatpos = [gap =; loop l (listlen $arg1) [if (=s (at $arg1 $l) $arg2) [gap = @l]]; result $gap]
charlist = [a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9 "`" "~" "!" "@" "#" "$" "%" "^^" "&" "*" "^(" "^)" "-" "_" "=" "+" ";" ":" "," "<" "." ">" "/" "?" A B C D F G H I J K L M N O P Q R S T U V W X Y Z]
charret = [result (? (> (getatpos $charlist $arg1) 59) (- (getatpos $charlist $arg1) 59) (getatpos $charlist $arg1))]
getletter = [gridpower 3; cancelsel; entfind base $arg1; gotosel; delent; sleep 10 [editdrag; copy; newent base @arg1; cancelsel]]
printletter = [gridpower 3; entfind sound $arg1; gotosel; delent; sleep 10 [editdrag; paste; newent sound @arg1; cancelsel]]
printword = [
    if (> (strlen $arg1) 32) [echo "Maximum length of 32 characters exceeded"] [
        loop i (strlen @arg1) [
            sleep (* 100 $i) [
                getletter (charret (substr @@arg1 @i 1))
                sleep 20 [printletter @@i]
            ]
        ]
    ]
]