dialog essay {
  size -1 -1 440 405
  title "Advanced Cut-Script. Modified by Keiro and Maya to work semi-properly in mIRC."
  edit "Type your post, then hit Send to Active. Now works with switching channels and PMs.", 1, 10 5 420 40, read, return, multi
  edit "/me", 2, 10 50 420 320, vsbar, multi, return
  button "&Send to Active", 3, 40 372 100 23
  button "Exit", 4, 290 372 100 23, cancel
  button "Customize", 5, 165 372 100 23
}
alias essay {
  if ($dialog(essay) != $null) { dialog -v essay | halt }
  else { dialog -md essay essay }
}
alias printnocut {
  /msg $active $QuoteEncode(%nocut)
}
on *:dialog:essay:init:*:{
}
on *:DIALOG:essay:sclick:*:{
  if ($did == 3) {
    set %linesessay.test $did(essay,2).lines
    var %e = 1
    set %essaylen.test 0
    while (%e <= %linesessay.test) {
      set %essaylen.test $calc(%essaylen.test + $len($did(essay,2,%e).text)))
      inc %e
    }
    %len = 424 - $len($me)
    if (%essaylen.test > %len) {
      set %cuts $calc($int($calc(%essaylen.test / 424)) + 1)
      goto next
    }
    else {
      var %e = 1
      set %nocut $remove($did(essay,2,1).text,/me)
      inc %e
      while (%e <= %linesessay.test) {
        set %nocut [ %nocut ] $did(essay,2,%e)
        inc %e
        };
        printnocut
        goto end
      }
      :next
      var %c = 1
      var %l = 1
      unset %cut.*
      set %cut. [ $+ [ %c ] ] $did(essay,2,%l) $did(essay,2,$calc(%l + 1)) $&
        $did(essay,2,$calc(%l + 2)) $did(essay,2,$calc(%l + 3)) $did(essay,2,$calc(%l + 4))
      /msg $active $remove(%cut. [ $+ [ %c ] ],/me) ...
      inc %c
      inc %l 5
      while (%c <= $calc(%cuts -1)) {
        set %cut. [ $+ [ %c ] ] $did(essay,2,%l) $did(essay,2,$calc(%l + 1)) $+ $&
          $did(essay,2,$calc(%l + 2)) $did(essay,2,$calc(%l + 3)) $did(essay,2,$calc(%l + 4))
        /msg $active -- %cut. [ $+ [ %c ] ] ...
        inc %c 1
        inc %l 5
      }
      set %cut. [ $+ [ %c ] ] $did(essay,2,%l) $did(essay,2,$calc(%l + 1)) $+ $&
        $did(essay,2,$calc(%l + 2)) $did(essay,2,$calc(%l + 3)) $did(essay,2,$calc(%l + 4))
      /msg $active -- %cut. [ $+ [ %c ] ] ...
      inc %l 5
      inc %c 1
      set %cut. [ $+ [ %c ] ] $did(essay,2,%l) $did(essay,2,$calc(%l + 1)) $+ $&
        $did(essay,2,$calc(%l + 2)) $did(essay,2,$calc(%l + 3)) $did(essay,2,$calc(%l + 4))
      /msg $active -- %cut. [ $+ [ %c ] ]
    }
    :end
    halt
  }