View difference between Paste ID: LueaLfDT and mjB7yUW7
SHOW: | | - or go back to the newest paste.
1-
on 1:INPUT:*:{ 
1+
alias qcolor {
2-
  if ($left($1,1) != /) && (%quote.status = on) { 
2+
  return 10 $+ $replace($1-,$chr(32) $+ $chr(34),$chr(32) $+ 05 $+ $chr(34), $chr(34) $+ $chr(32),05 $+ $chr(34) $+ 10 $+ $chr(32))
3-
    msg $target 10 $replace($1-,$chr(32) $+ $chr(34),$chr(32) $+ 5 $+ $chr(34), $chr(34) $+ $chr(32),5 $+ $chr(34) $+ 10 $+ $chr(32)) | haltdef 
3+
4
5
alias quote {
6
  if (%quote.status = $null) { set %quote.status on | echo -a Quoting is 03 $+ enabled! | halt }
7
  elseif (%quote.status = off) { set %quote.status on | echo -a Quoting is 03 $+ enabled! }
8
  elseif (%quote.status = on) { set %quote.status off | echo -a Quoting is 04 $+ disabled!  }
9
  else { halt }
10
}
11
12
on *:INPUT:*:{
13
  var %End 01...
14
  var %New 01...
15
  var %MaxLen $calc(400 - $len($nick))
16
  if ($len($1-) < %MaxLen) {
17
    if ((($left($1,1) != /) || ($1 == /me)) && (%quote.status = on)) {
18
      if ($1 == /me) {
19
        describe $target $qcolor($2-) | haltdef
20-
 var %End <snip>
20+
      }
21-
 var %New <cont>
21+
      else {
22-
 var %MaxLen $calc(400 - $len($nick))
22+
        msg $target $qcolor($1-) | haltdef
23-
 if ($len($1-) < %MaxLen) return
23+
      }
24-
 var %x %MaxLen, %y, %1, %2, %3, %Prefix say
24+
    }
25-
 while ($asc($mid($1-,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound | dec %x }
25+
    return
26-
 :SpcFound
26+
27-
 %1 = $left($1-,%x) | %2 = $mid($1-,%x,$len($1-))
27+
  var %x %MaxLen, %y, %1, %2, %3, %Prefix say
28-
 if ($len(%2) > %MaxLen) {
28+
  while ($asc($mid($1-,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound | dec %x }
29-
   %x = %MaxLen
29+
  :SpcFound
30-
   while ($asc($mid(%2,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound3 | dec %x }
30+
  %1 = $left($1-,%x) | %2 = $mid($1-,%x,$len($1-))
31-
   :SpcFound3
31+
  if ($len(%2) > %MaxLen) {
32-
   %3 = $mid(%2,%x,$len(%2))
32+
    %x = %MaxLen
33-
   %2 = $left(%2,%x)
33+
    while ($asc($mid(%2,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound3 | dec %x }
34-
 }
34+
    :SpcFound3
35-
 if (($1 = /me) || ($1 = /action)) {
35+
    %3 = $mid(%2,%x,$len(%2))
36-
   %Prefix = /me
36+
    %2 = $left(%2,%x)
37-
   if ($1 == /me) %1 = $right(%1,$calc($len(%1) - 3))
37+
38-
   else %1 = $right(%1,$calc($len(%1) - 7))
38+
  if (($1 = /me) || ($1 = /action)) {
39-
 }
39+
    %Prefix = /me
40-
 %Prefix %1 %End
40+
    if ($1 == /me) %1 = $right(%1,$calc($len(%1) - 3))
41-
 if (%3 !== $null) { %2 = %2 %End | .timerCuttxt3 1 2 %Prefix %New %3 }
41+
    else %1 = $right(%1,$calc($len(%1) - 7))
42-
 .timerCuttxt2 1 1 %Prefix %New %2
42+
43-
 halt
43+
  %Prefix $iif(%quote.status = on,$qcolor(%1),%1) %End
44
  if (%3 != $null) {
45-
Cut-Off-Script.txt
45+
    %2 = %2 %End
46
    if (($isodd($count(%2,"))) && ($iseven($count(%1,"))) && (%quote.status = on))  {
47-
1 of 1
47+
      %3 = 05 $+ %3
48
    }
49
    .timerCuttxt3 1 2 %Prefix %New $iif(%quote.status = on,$qcolor(%3),%3)
50
  }
51
  if (($isodd($count(%1,"))) && (%quote.status = on))  {
52
    %2 = 05 $+ %2
53
  }
54
  .timerCuttxt2 1 1 %Prefix %New $iif(%quote.status = on,$qcolor(%2),%2)
55
  halt
56
}
57
alias iseven return $iif(2 // $1,$true,$false)
58
alias isodd return $iif(!$iseven($1),$true,$false)