; 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