Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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]
- ]
- ]
- ]
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement