Cutscript

[Deleted]

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

[Deleted]

on *:input:*: {
if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
var %next = 6|/_
var %continue = 6***6
var %done = 6_\|
var %more = 15¿HOLD ON THERE'S MORE¿ 6
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
}
}












Feel free to use. The only difference is the added words+Color

[reddragon]

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

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

[Deleted]

dialog essay {
size -1 -1 440 405
title "AmaScript Cut-Script"
edit "The AmaScript Cut-Script. Only for use on AmaScript.", 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 essay.custom {
if ($dialog(essay.custom) != $null) { dialog -v essay.custom | halt }
else { dialog -md essay.custom essay.custom }
}
on *:dialog:essay:init:*:{
}
on *:DIALOG:essay:sclick:*:{
if ($did == 5) {
essay.custom
}
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))
/ $+ %m.send $active  $+ %essay.act $QuoteEncode($remove(%cut. [ $+ [ %c ] ],/me)) 5(cut)
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))
/ $+ %m.send $active  $+ %essay.act $QuoteEncode(† %cut. [ $+ [ %c ] ] 5(cont))
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))
/ $+ %m.send $active  $+ %essay.act $QuoteEncode(† %cut. [ $+ [ %c ] ] 5(cont))
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))
/ $+ %m.send $active  $+ %essay.act $QuoteEncode(† %cut. [ $+ [ %c ] ]) 5(done)
}
:end
halt
}
alias QuoteEncode {
%CSQtext = $1-

%whisperTone = 13[

;normal speech color set
%normalTone =  $+ %essay.speech $+ "

;OOC color setting
%loudTone =  $+ %essay.ooc $+ ((

;sets colors off at end *DO NOT CHANGE*
%endTone = " $+ %essay.act
%endTone3 = ] $+ %essay.act
%endTone4 = )) $+ %essay.act

%whisperQuote = [
%normalQuote = "
%loudQuote = ((

%endquote = "
%endquote3 = ]
%endquote4 = ))

%CSQtext = $replace(%CSQtext,$chr(32) $+ %whisperQuote,$chr(32) $+ %whisperTone)
%CSQtext = $replace(%CSQtext,$chr(32) $+ %normalQuote,$chr(32) $+ %normalTone)
%CSQtext = $replace(%CSQtext,$chr(32) $+ %loudQuote,$chr(32) $+ %loudTone)
%CSQtext = $replace(%CSQtext,%endQuote $+ $chr(32),%endTone $+ $chr(32))
%CSQtext = $replace(%CSQtext,%endQuote3 $+ $chr(32),%endTone3 $+ $chr(32))
%CSQtext = $replace(%CSQtext,%endQuote4 $+ $chr(32),%endTone4 $+ $chr(32))
/return %CSQtext
}
alias printnocut {
/describe $active  $+ %essay.act $QuoteEncode(%nocut)
}
dialog essay.custom {
title "Customization"
size -1 -1 134 83
option dbu
text "Action Color:", 1, 7 7 33 9
combo 2, 44 6 78 50, size vsbar drop
text "Speech Color:", 3, 6 23 38 8
combo 4, 44 22 78 50, size vsbar drop
text "OOC Color:", 5, 6 39 34 8
combo 6, 44 38 79 50, size vsbar drop
button "OK", 7, 19 66 37 12
button "Cancel", 8, 64 66 37 12
text "Send As:", 9, 6 53 25 8
radio "Message", 10, 43 52 33 10, group
radio "Action", 11, 79 53 31 10, group
}
on *:dialog:essay.custom:init:*: {
if (%m.send == describe) { did -c essay.custom 11 }
if (%m.send == msg) { did -c essay.custom 10 }
did -a essay.custom 2 White
did -a essay.custom 2 Black
did -a essay.custom 2 Dark Blue
did -a essay.custom 2 Dark Green
did -a essay.custom 2 Red
did -a essay.custom 2 Maroon
did -a essay.custom 2 Purple
did -a essay.custom 2 Orange
did -a essay.custom 2 Yellow
did -a essay.custom 2 Light Green
did -a essay.custom 2 Teal
did -a essay.custom 2 Light Blue
did -a essay.custom 2 Blue
did -a essay.custom 2 Pink
did -a essay.custom 2 Dark Gray
did -a essay.custom 2 Light Gray
did -a essay.custom 4 White
did -a essay.custom 4 Black
did -a essay.custom 4 Dark Blue
did -a essay.custom 4 Dark Green
did -a essay.custom 4 Red
did -a essay.custom 4 Maroon
did -a essay.custom 4 Purple
did -a essay.custom 4 Orange
did -a essay.custom 4 Yellow
did -a essay.custom 4 Light Green
did -a essay.custom 4 Teal
did -a essay.custom 4 Light Blue
did -a essay.custom 4 Blue
did -a essay.custom 4 Pink
did -a essay.custom 4 Dark Gray
did -a essay.custom 4 Light Gray
did -a essay.custom 6 White
did -a essay.custom 6 Black
did -a essay.custom 6 Dark Blue
did -a essay.custom 6 Dark Green
did -a essay.custom 6 Red
did -a essay.custom 6 Maroon
did -a essay.custom 6 Purple
did -a essay.custom 6 Orange
did -a essay.custom 6 Yellow
did -a essay.custom 6 Light Green
did -a essay.custom 6 Teal
did -a essay.custom 6 Light Blue
did -a essay.custom 6 Blue
did -a essay.custom 6 Pink
did -a essay.custom 6 Dark Gray
did -a essay.custom 6 Light Gray
did -c essay.custom 2 $calc(%essay.act + 1)
did -c essay.custom 4 $calc(%essay.speech + 1)
did -c essay.custom 6 $calc(%essay.ooc + 1)
}
on *:DIALOG:essay.custom:sclick:*:{
if ($did == 2) {
set %act.temp $did(essay.custom,2)
}
if ($did == 4) {
set %speech.temp $did(essay.custom,4)
}
if ($did == 6) {
set %ooc.temp $did(essay.custom,6)
}
if ($did == 7) {
actset
speechset
oocset
dialog -x essay.custom
}
if ($did == 8) {
dialog -x essay.custom
}
if ($did == 10) {
set %m.send msg
did -u essay.custom 11
}
if ($did == 11) {
set %m.send describe
did -u essay.custom 10
}
}
alias actset {
if (%act.temp == White) { set %essay.act 00 }
elseif (%act.temp == Black) { set %essay.act 01 }
elseif (%act.temp == Dark Blue) { set %essay.act 02 }
elseif (%act.temp == Dark Green) { set %essay.act 03 }
elseif (%act.temp == Red) { set %essay.act 04 }
elseif (%act.temp == Maroon) { set %essay.act 05 }
elseif (%act.temp == Purple) { set %essay.act 06 }
elseif (%act.temp == Orange) { set %essay.act 07 }
elseif (%act.temp == Yellow) { set %essay.act 08 }
elseif (%act.temp == Light Green) { set %essay.act 09 }
elseif (%act.temp == Teal) { set %essay.act 10 }
elseif (%act.temp == Light Blue) { set %essay.act 11 }
elseif (%act.temp == Blue) { set %essay.act 12 }
elseif (%act.temp == Pink) { set %essay.act 13 }
elseif (%act.temp == Dark Gray) { set %essay.act 14 }
elseif (%act.temp == Light Gray) { set %essay.act 15 }
}
alias speechset {
if (%speech.temp == White) { set %essay.speech 00 }
elseif (%speech.temp == Black) { set %essay.speech 01 }
elseif (%speech.temp == Dark Blue) { set %essay.speech 02 }
elseif (%speech.temp == Dark Green) { set %essay.speech 03 }
elseif (%speech.temp == Red) { set %essay.speech 04 }
elseif (%speech.temp == Maroon) { set %essay.speech 05 }
elseif (%speech.temp == Purple) { set %essay.speech 06 }
elseif (%speech.temp == Orange) { set %essay.speech 07 }
elseif (%speech.temp == Yellow) { set %essay.speech 08 }
elseif (%speech.temp == Light Green) { set %essay.speech 09 }
elseif (%speech.temp == Teal) { set %essay.speech 10 }
elseif (%speech.temp == Light Blue) { set %essay.speech 11 }
elseif (%speech.temp == Blue) { set %essay.speech 12 }
elseif (%speech.temp == Pink) { set %essay.speech 13 }
elseif (%speech.temp == Dark Gray) { set %essay.speech 14 }
elseif (%speech.temp == Light Gray) { set %essay.speech 15 }
}
alias oocset {
if (%ooc.temp == White) { set %essay.ooc 00 }
elseif (%ooc.temp == Black) { set %essay.ooc 01 }
elseif (%ooc.temp == Dark Blue) { set %essay.ooc 02 }
elseif (%ooc.temp == Dark Green) { set %essay.ooc 03 }
elseif (%ooc.temp == Red) { set %essay.ooc 04 }
elseif (%ooc.temp == Maroon) { set %essay.ooc 05 }
elseif (%ooc.temp == Purple) { set %essay.ooc 06 }
elseif (%ooc.temp == Orange) { set %essay.ooc 07 }
elseif (%ooc.temp == Yellow) { set %essay.ooc 08 }
elseif (%ooc.temp == Light Green) { set %essay.ooc 09 }
elseif (%ooc.temp == Teal) { set %essay.ooc 10 }
elseif (%ooc.temp == Light Blue) { set %essay.ooc 11 }
elseif (%ooc.temp == Blue) { set %essay.ooc 12 }
elseif (%ooc.temp == Pink) { set %essay.ooc 13 }
elseif (%ooc.temp == Dark Gray) { set %essay.ooc 14 }
elseif (%ooc.temp == Light Gray) { set %essay.ooc 15 }
}


to activate type /essay in your box to bring up the pop up box

[Deleted]

paste into remotes:

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

[Deleted]

There seems to be an error somewhere in the first cut script posted, at least, it's not working for me on my mIRC v6.35. The cut script I use is as follows, and does work with the action /me

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

[Deleted]

Everyone should be aware that many of the cutscripts do not work properly on the newer versions of mIRC when using the /me action. They do still work with just a normal text talk(without /me).