put this in alais:
}
/s1 /say 6,11:*:':*:':*:':*:*:* | /say 6,11:*: * Welcome *:*: | /say 6,11:*:':*:':*:':*:*:*
}
/s2 /say 8,6:*:':*:':*:':*: | /say 8,6:*: *Smiles*:*: | /say 8,6:*:':*:':*:':*:
}
/s3 /say 12,13:*:':*:':*:':*: | /say 12,13:*: *Hello!*:*: | /say 12,13:*:':*:':*:':*:
}
/s4 /say 2,9:*:':*:':*:':*: | /say 2,9:*: *Hello!*:*: | /say 2,9:*:':*:':*:':*:
}
/s5 /say 9,2:*:':*:':*:':*: | /say 9,2:*: *Hello!*:*: | /say 9,2:*:':*:':*:':*:
}
/s6 /say 11,13:*:':*:':*:':*: | /say 11,13:*: *Hello!*:*: | /say 11,13:*:':*:':*:':*:
}
/s7 /say 8,4:*:':*:':*:':*: | /say 8,4:*: *!!Bye!*:*: | /say 8,4:*:':*:':*:':*:
}
/s8 /say  { .set %colorone $$?="first color" }|{ .set %colortwo $$?= "second color" } | { /say $+ %colorone $+ , $+ %colortwo $+:*:':*:':*:':*: | /say $+ %colorone $+ , $+ %colortwo $+:*: *Hello!*:*: | /say $+ %colorone $+. $+ %colortwo $+:*:':*:':*:':*:
}
/bx1 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,»)
say 12,12 %line 
say 12,12»1,1  %o 12,12»4,4»
say 12,12 %line 4,4»
say 0,0»4,4 %line 
}


/bx2 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 8,8 %line 
say 8,8*1,1  %o 8,8*15,15*
say 8,8 %line 15,15*
say 0,0*15,15 %line 
}
/bx3 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 0,12 %line 
say 0,12*1,1  %o 0,12*15,15*
say 0,12 %line 15,15*
say 0,0*15,15 %line 
}
}
/bx4 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 11,12 %line 
say 11,12*1,1  %o 11,12*15,15*
say 11,12 %line 15,15*
say 0,0*15,15 %line 
}
/bx5 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 12,13 %line 
say 12,13*1,1  %o 12,13*15,15@
say 12,13 %line 15,15*
say 0,0@15,15 %line 
}
/bx6 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 9,4 %line 
say 9,4*1,1  %o 9,4*15,15@
say 9,4 %line 15,15*
say 0,0@15,15 %line 
}
/bx7 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 4,9 %line 
say 4,9*1,1  %o 4,9*15,15@
say 4,9 %line 15,15*
say 0,0@15,15 %line 
}

}
/bx8 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,«)
say 4,9 %line 
say 4,9«1,1  %o 4,9«15,15«
say 4,9 %line 15,15*
say 0,0*15,15 %line 

    Source: geocities.com/southbeach/breakers/8178/mirc

               ( geocities.com/southbeach/breakers/8178)                   ( geocities.com/southbeach/breakers)                   ( geocities.com/southbeach)