Script Name:Copier of picture windows
Author: kerst
Script Description: Copies a picture in window1 to window2 starting from x y = 0 0, if you use copy -f it copies the complete window.

Script Version: 1.0
Written on mIRC version: 6.3

Release Notes: when using mirc might freeze a while, just leave it the loop will end in a few secs, also i tried saving it first in windows so that you can draw the pic at any moment, but windows can only hold 5000 lines :(, and didnt feel like using hash/ini/txt :P

alias copy {
  if ($1 != -f) {
    %t = $2
    %e = $1
    window -p %t
    var %y = 0
    while ($getdot(%e,0,%y)) {
      copy2 %y
      inc %y
    }
  }
  elseif ($1 == -f) {
    %t = $3
    %e = $2
    window -p %t
    var %b = 0
    while (%b <= $window(%e).w) {
      copy3 %b
      inc %b
    }
  }
}
alias -l copy2 { 
  var %x = 0
  while ($getdot(%e,%x,$1)) { 
    drawdot -r %t $v1 1 %x $1
    inc %x
  } 
}
alias -l copy3 {
  var %g = 0
  while (%g <= $window(%e).w) {
    drawdot -r %t $getdot(%e,%g,$1) 1 %g $1
    inc %g
  }
}