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) |