Align

[maarten]

Add this script to your Cyborg and type "align" to use it.

;
; (c) Blue Lady <noname@virtual.dyc.edu>, 10/11/99
; All Rights Reserved.  No part of this document can be copied in
; whole or in part without the expressed permission of the author
; in writing.
;
ON INCHAT {
;
;  ********************* Alignment INCHAT part  ********************* 
;
   {
        "$1" GREPSUB " " & "$2" GREPSUB & " SETPOS" & STRTOATOM EXEC
   } CHATSTR "^;xal ([0-9]+) ([0-9]+)$" GREPSTR IF
}
ON OUTCHAT {
;
;  ********************* Alignment OUTCHAT part  ********************* 
;
   {
        ";xal " POSX ITOA & " " & POSY ITOA & SAY
        "" CHATSTR =
   } CHATSTR "align" == IF
}