forked from irchelp/irchelp.github.io
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcstrip.irc
More file actions
51 lines (48 loc) · 1.77 KB
/
cstrip.irc
File metadata and controls
51 lines (48 loc) · 1.77 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
# cstrip.irc
# 13 December 1996
# Chad Fawcett (aka Entropi)
# ---------------------------
# Function $cstrip() to strip mIRC 4.7+ Color codes from text.
# Just insert it into your existing scripts..
# ie: on ^public * ECHO <$0> $cstrip($2-)
# ---------------------------
# tested on: ircII 2.2.9, ircII 2.8.2-EPIC3.001
ALIAS CSTRIP {
^assign c.s $0-
while ([$index( $c.s)] != [-1]) {
^assign c.w $index( $c.s)
^assign c.w2 ${[$c.w]+1}
if ([$index(0123456789 $mid($c.w2 1 $c.s))] == [-1])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 1} $c.s) }
{^assign c.w2 ${[$c.w] + 2}
if ([$index(0123456789 $mid($c.w2 1 $c.s))] == [-1])
{if ([,] != [$mid($c.w2 1 $c.s)])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 2} $c.s) }
{^assign c.w2 ${[$c.w] +3}
if ([$index(01234567789 $mid($c.w2 1 $c.s))] == [-1])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 2} $c.s) }
{^assign c.w2 ${[$c.w] +4}
if ([$index(0123456789 $mid($c.w2 1 $c.s))] == [-1])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 4} $c.s) }
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 5} $c.s) }
}
}
}
{^assign c.w2 ${[$c.w] + 3}
if ([,] != [$mid($c.w2 1 $c.s)])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 3} $c.s) }
{^assign c.w2 ${[$c.w] +4}
if ([$index(01234567789 $mid($c.w2 1 $c.s))] == [-1])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 3} $c.s) }
{^assign c.w2 ${[$c.w] +5}
if ([$index(0123456789 $mid($c.w2 1 $c.s))] == [-1])
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 5} $c.s) }
{^assign c.s $left($c.w $c.s)$right(${[[email protected]] - [$c.w] + 6} $c.s) }
}
}
}
}
}
^assign FUNCTION_RETURN $c.s
}