mIRC Cut Script

[Volo]

This is the script I use, and it works quite well. If there is another thread for this, and I didn't find it, so sorreh. Just Cut it, open up Scripts, hit the Remote tab, and paste it. Magic!

on *:input:*: {
if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
var %next = <14next2>
var %continue = <14more1>
var %more = <14more1>
var %done = <4end1>
var %textlen = $len($1-)
if (%textlen > 400) {
var %pos = 1
var %text = $mid($1-, %pos, 400)
var %firsttime = 1

while ( %text != $null ) {
if ( $len($deltok(%text, -1, 32)) < 370 ) {
%text = $left(%text, 370)
inc %pos 370
}
else {
%text = $deltok(%text,-1,32)
inc %pos $len(%text)
inc %pos
}
var %outtext = %text
%text = $mid($1-, %pos, 400)
if (%firsttime == 1) {
if ($gettok(%outtext, 1, 32) == /me) {
%outtext %next
}
else {
say %outtext %next
}
%firsttime = 0;
}
else {
if (%text != $null) {
say %continue %outtext %next
}
else {
if (%textlen <= 945) {
say %continue %outtext %done
}
else {
say %continue %outtext %more
}
}
}
}
halt
}
}
}

[Cayenne]

Just in case this doesn't work for some people - because of copying problems here is my slightly edited version (Because I don't like words!)

Code: Select all

on *:input:*: {
  if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
    var %next = ...
    var %continue = ...
    var %more = ...
    var %textlen = $len($1-)
    if (%textlen > 400) {
      var %pos = 1
      var %text = $mid($1-, %pos, 400)
      var %firsttime = 1

      while ( %text != $null ) {
        if ( $len($deltok(%text, -1, 32)) < 370 ) {
          %text = $left(%text, 370)
          inc %pos 370
        }
        else {
          %text = $deltok(%text,-1,32)
          inc %pos $len(%text)
          inc %pos
        }
        var %outtext = %text
        %text = $mid($1-, %pos, 400)
        if (%firsttime == 1) {
          if ($gettok(%outtext, 1, 32) == /me) {
            %outtext %next
          }
          else {
            say %outtext %next
          }
          %firsttime = 0;
        }
        else {
          if (%text != $null) {
            say %continue %outtext %next
          }
          else {
            if (%textlen <= 945) {
              say %continue %outtext %done
            }
            else {
              say %continue %outtext %more
            }
          }
        }
      }
      halt
    }
  }
}