on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
alias -l p.cloning.actua {
  if ($$1 > %p.act.cloning.verr) {
    set %p.act.cloning.verr $$1
    if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
    else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac } 
  }
}
on *:START: { 
  if ($version < 5.91) { echo -s 4El Addon ClonesX v1.501b no funcionará correctamente en versiones del mIRC inferiores a la 5.91 }
  unset %p.cloning.*
  if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
  if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
  if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
  if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url irc://irc.quakenet.eu.org/[Q]crew }
  if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }  
  if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
  set %p.cloning.msg.quit RAWR
  set %p.cloining.wh $script
  p.cloning.see.act     
}
on *:LOAD: {
  unset %p.cloning*
  unset %p.save.cloning*
  unset %p.act.cloning*
}

alias -l p.cloning.fal {
  set %p.cloning.errD $$1-
  if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
  dialog -m p.cloning.errD p.cloning.errD
  dialog -v p.cloning.errD
  halt 
}

alias op.clones {
  var %t = 0
  var %n
  var %i = $nick($active,0)
  :loop
  if ($did(38) isin $nick($active,%i)) {
    %n = $nick($active,%i) %n
    inc %t
  }
  dec %i
  if (%t == 6) {
    mode $active +oooooo %n
    %t = 0
    unset %n
  }
  if (%i != 0) {
    goto loop
  }
  else {
    mode $active +ooooo %n
  }
}
alias go.clonesop {
  var %t = 0
  var %n
  var %i = $nick($active,0)
  :loop
  if ($did($dname,38) isin $nick($active,%i)) {
    %n = $nick($active,%i) %n
    inc %t
  }
  dec %i
  if (%t == 6) {
    p.cloning.runcmd mode $did($dname,16) +oooooo %n
    %t = 0
    unset %n
  }
  if (%i != 0) {
    goto loop
  }
  else {
    p.cloning.runcmd mode $did($dname,16) +ooooo %n
  }
}

alias go.clonesinvite {
  p.cloning.runcmd invite %proxynick $did($dname,16)
}
alias op.allclones {
  var %t = 0
  var %n
  var %i = $nick($active,0)
  :loop
  if (%proxynick isin $nick($active,%i)) {
    %n = $nick($active,%i) %n
    inc %t
  }
  dec %i
  if (%t == 6) {
    mode $did(16) +oooooo %n
    %t = 0
    unset %n
  }
  if (%i != 0) {
    goto loop
  }
  else {
    mode $did(16) +ooooo %n
  }
}
alias copy {
  did -o p.cloning 89 1 Modded ClonesX by SgtSlaughter
}