on 1:join:#: {
  if $nick != $me halt 
  unset %ial
  window -hnapk0 +fL @Peter
  drawtext2 -o @Peter $r(1,15) Courier 100 135 180 $chan
  drawsave1 @Peter $chan $+ .bmp $chan
  window -c @Peter
}
alias drawtext2 {
  if $len($8) == 4 || $len($8) == 5 { drawtext $1 $2 $3 $4 170 $calc($6 - 35) $7- | goto son }
  if $len($8) < 6 {
    drawtext $1 $2 $3 $4 170 $6-
    goto son
  }
  if $len($8) < 10 {
    if $len($8) == 6 { drawtext $1 $2 $3 $4 150 100 $7- | goto son }
    drawtext $1 $2 $3 $4 $5 $calc( $6 - 45 ) $7-
    goto son
  }
  if $len($8) < 17 {
    drawtext $1 $2 $3 $4 $calc($5 - 30) $calc( $6 - 135 ) $7- 
    goto son
  }
  else { drawtext $1 $2 $3 $4 $calc($5 - 40) $calc( $6 - 145 ) $7- }
  :son
}
alias drawsave1 {
  set %bb $remove($3,@)
  set %bb $remove(%bb,^)
  set %bb $remove(%bb,`)
  set %bb $remove(%bb,$chr(36))
  set %bb $remove(%bb,$chr(38))
  set %bb $remove(%bb,$chr(47))
  set %bb $remove(%bb,$chr(92))
  set %bb $remove(%bb,$chr(63))
  set %bb $remove(%bb,$chr(58))
  set %bb $remove(%bb,$chr(42))
  set %bb $remove(%bb,$chr(34))
  set %bb $remove(%bb,$chr(60))
  set %bb $remove(%bb,$chr(62))
  set %bb $remove(%bb,$chr(124))
  drawsave @Peter %bb $+ .bmp 
  background -p $chan %bb $+ .bmp
  .remove %bb $+ .bmp
}
