Difference between revisions of "Cutscript"
From The Broken Dagger Wiki
Redirect page
|
|
| (3 intermediate revisions by 2 users not shown) |
| 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
| + | |
| − | }
| + | |
| − | }
| + | |
Latest revision as of 09:57, 15 July 2014
