Author |
Message |
maarten |
|
Post subject: Align
Posted: Jan 09, 2005 - 11:43 AM
|
|

Joined: Oct 20, 2002
Posts: 674
Location: DiGiLaNd
Status: Offline
|
|
Add this script to your Cyborg and type "align" to use it.
Code: | ;
; (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
}
|
|
|
|
|
|
 |
|
| |