Simple cutscript for mIRC

Here is a cutscript I made to help you out! Just copy and paste into mIRC!

<-----------COPY EVERYTHING BELOW THIS LINE------------>
;Cutscript by Neo`Nemesis
on *:INPUT:*: {
if ($len($1-) < 400) {
if ($1 == /me) {
haltdef
/me $2-
goto end
}
}
elseif ($len($1-) > 400) {
if ($1 == /me) {
%1- = $2- | %c.1 = $left(%1-,385) | %len = $calc($len(%1-) - 385) | %c.2 = $right(%1-,%len)
.haltdef
/me %c.1 [CUT]
if ($len(%c.2) < 400) {
.timerc1 -m 1 500 /me [CUT] %c.2 [END]
goto end
}
elseif ($len(%c.2) > 400) {
%c.3 = $left(%c.2,400) | %len2 = $calc($len(%c.2) - 400) | %c.4 = $right(%c.2,%len2)
if ($len(%c.4) <= 400) {
.timerc1 -m 1 500 /me [CUT] %c.3 [CONT.]
.timerc2 -m 1 650 /me [CUT] %c.4 [END]
goto end
}
elseif ($len(%c.4) > 400) {
%c.5 = $left(%c.4,400) | %len3 = $calc($len(%c.4) - 400) | %c.6 = $right(%c.4,400)
.timerc1 -m 1 500 /me [CUT] %c.3 [CONT.]
.timerc2 -m 1 650 /me [CUT] %c.5 [CONT.]
.timerc3 -m 1 800 /me [CUT] %c.6 [END]
goto end
}
}
}
}
:end
if (%1- != $null) { unset %1- }
if (%c.1 != $null) { unset %c.1 }
if (%c.2 != $null) { unset %c.2 }
if (%c.3 != $null) { unset %c.3 }
if (%c.4 != $null) { unset %c.4 }
if (%c.5 != $null) { unset %c.5 }
if (%c.6 != $null) { unset %c.6 }
if (%len != $null) { unset %len }
if (%len2 != $null) { unset %len2 }
if (%len3 != $null) { unset %len3 }
}