G2A Many GEOs
SHARE
TWEET

RaZgRiZ

a guest Aug 23rd, 2010 125 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. getatpos = [gap =; loop l (listlen $arg1) [if (=s (at $arg1 $l) $arg2) [gap = @l]]; result $gap]
  2. 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]
  3. charret = [result (? (> (getatpos $charlist $arg1) 59) (- (getatpos $charlist $arg1) 59) (getatpos $charlist $arg1))]
  4. getletter = [gridpower 3; cancelsel; entfind base $arg1; gotosel; delent; sleep 10 [editdrag; copy; newent base @arg1; cancelsel]]
  5. printletter = [gridpower 3; entfind sound $arg1; gotosel; delent; sleep 10 [editdrag; paste; newent sound @arg1; cancelsel]]
  6. printword = [
  7.         if (> (strlen $arg1) 32) [echo "Maximum length of 32 characters exceeded"] [
  8.                 loop i (strlen @arg1) [
  9.                         sleep (* 100 $i) [
  10.                                 getletter (charret (substr @@arg1 @i 1))
  11.                                 sleep 20 [printletter @@i]
  12.                         ]
  13.                 ]
  14.         ]
  15. ]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top