on *:join:#: { if $nick == $me { xpencere $chan } }
alias xpencere {
  if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 100 | window -h @deneme }
  drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
  drawtext @deneme $colour(info text) ComicSansMS 17 70 40 ops script | drawtext @deneme $colour(own text) TimesNewRoman 25 70 10 $1
  drawsave @deneme $+($chan,_tmp.bmp)
  background -p $1 $+($chan,_tmp.bmp)
  .remove $+($chan,_tmp.bmp)
}
alias erpencere {
  if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 140 | window -h @deneme }
  drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
  drawtext @deneme $colour(info text) ComicSansMS 17 60 60 ops script | drawtext @deneme 4 ComicSansMS 17 60 40 ayna@operatör | drawtext @deneme $colour(own text) TimesNewRoman 25 60 10 $1
  drawsave @deneme $+($chan,_tmp.bmp)
  background -p $1 $+($chan,_tmp.bmp)
  .remove $+($chan,_tmp.bmp)
}
alias XColorCheck { if $color(backgorund) != %XColorCheck { var %i = $chan(0) | while %i { xpencere $chan(%i) | dec %i 1 } } }
on *:connect: { set %XColorCheck $color(background) | .timerXColorCheck -m 0 200 XColorCheck }
alias query {
  query $$1
  if $istok(Nick1 Nick2 Nick3,$$1,32) { erpencere $$1 }
}
on ^1:OPEN:?:*:{ 
  if $istok(Nick1 Nick2 Nick3,$nick,32) { erpencere $nick }
}