; Script: Hugger Script
; Name: Paul Blair
; Date: September 9, 1996
; Description: Fast hugging script (click on the person you want to hug and
;              type hg# where # is the number of pairs of curly brackets 
;              you want to use)

        {
                "$1" GREPSUB numtxt =
                numtxt ATOI number =
                WHOTARGET WHONAME name =
                0 x =
                0 y =
                "" string =
                { x ++ "\}" string & string = } { x number < } WHILE
                name string & string =
                { y ++ "\{" string & string = } { y number < } WHILE
                string SAY
                "" CHATSTR =
        } CHATSTR "^hg(.*)" GREPSTR IF

    Source: geocities.com/siliconvalley/network/8524/scripts

               ( geocities.com/siliconvalley/network/8524)                   ( geocities.com/siliconvalley/network)                   ( geocities.com/siliconvalley)