Cutscript - Revision history

Rance: Redirected page to Cut Scripts

2014-07-15T13:57:07Z

Redirected page to Cut Scripts

Carnath-Emory at 18:10, 9 June 2008

2008-06-09T18:10:53Z

12.189.32.36 at 03:22, 24 April 2008

2008-04-24T03:22:22Z

12.189.32.36 at 03:19, 24 April 2008

2008-04-24T03:19:33Z

12.189.32.37 at 03:08, 24 April 2008

2008-04-24T03:08:33Z

New page

A cutscript is a way to make IRC post more text than it will usually hold in its buffer. This script will (possibly) only work in mIRC, and handles up to three posts worth of text. Just put it into your Remote Scripts and load it.

on *:input:*: {
if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
var %next = -
var %continue = -
var %done = -|
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
}
}

← Older revision		Revision as of 13:57, 15 July 2014
Line 1:		Line 1:
−	A cutscript is a way to make IRC post more text than it will usually hold in its buffer. This script will (possibly) only work in mIRC, and handles up to three posts worth of text. Just put it into your Remote Scripts and load it.	+	#REDIRECT [[Cut Scripts]]
−		+
−	~~on :input:: {~~	+
−	~~if ( ( $left($1,1) != / ) \|\| ( $1 == /me ) ) {~~	+
−	~~var %next = -~~	+
−	~~var %continue = -~~	+
−	~~var %done = -\|~~	+
−	~~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~~	+
−	}	+
−	}	+
−	}	+
−		+
−	[[~~Category: Glossary (OOC)~~]]	+

← Older revision		Revision as of 18:10, 9 June 2008
Line 51:		Line 51:
	}		}
	}		}
		+
		+	[[Category: Glossary (OOC)]]

@@ Line 1: / Line 1: @@
 A cutscript is a way to make IRC post more text than it will usually hold in its buffer.  This script will (possibly) only work in mIRC, and handles up to three posts worth of text.  Just put it into your Remote Scripts and load it.
-----
+on *:input:*: {
+  if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
-on *:input:*:
+    var %next = -
-if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
+    var %continue = -
-var %next = -
+    var %done =  -|
-var %continue = -
+    var %more = -
-var %done =  -|
+    var %textlen = $len($1-)
-var %more = -
+    if (%textlen > 400) {
-var %textlen = $len($1-)
+      var %pos = 1
-if (%textlen > 400) {
+      var %text = $mid($1-, %pos, 400)
-var %pos = 1
+      var %firsttime = 1
-var %text = $mid($1-, %pos, 400)
+      while ( %text != $null ) {
-var %firsttime = 1
+        if ( $len($deltok(%text, -1, 32)) < 370 ) {
-while ( %text != $null ) {
+          %text = $left(%text, 370)
-if ( $len($deltok(%text, -1, 32)) < 370 ) {
+          inc %pos 370
 %text = $left(%text, 370)
-inc %pos 370
+        else {
+          %text = $deltok(%text,-1,32)
-else {
+          inc %pos $len(%text)
-%text = $deltok(%text,-1,32)
+          inc %pos
 inc %pos $len(%text)
-inc %pos
+        var %outtext = %text
+        %text = $mid($1-, %pos, 400)
-var %outtext = %text
+        if (%firsttime == 1) {
-%text = $mid($1-, %pos, 400)
+          if ($gettok(%outtext, 1, 32) == /me) {
-if (%firsttime == 1) {
+            %outtext %next
 if ($gettok(%outtext, 1, 32) == /me) {
-%outtext %next
+          else {
+            say %outtext %next
 else {
-say %outtext %next
+          %firsttime = 0;
-−
+        }
-%firsttime = 0;
+        else {
+          if (%text != $null) {
-else {
+            say %continue %outtext %next
 if (%text != $null) {
-say %continue %outtext %next
+          else {
+            if (%textlen <= 945) {
-if (%textlen <= 945) {
+              say %continue %outtext %done
 say %continue %outtext %done
+            else {
-else {
+              say %continue %outtext %more
 say %continue %outtext %more
-−
+          }
-−
+        }
-−
+      }
+      halt
 halt
-−
+  }
+}