28febcfea9
git-svn-id: svn://svn.code.sf.net/p/bitchx/code/tags/ircii-pana-1.1-final@1 13b04d17-f746-0410-82c6-800466cd88b0
496 lines
18 KiB
Tcl
496 lines
18 KiB
Tcl
set blink {[5m}
|
||
set cl {[0m}
|
||
set blk {[0;30m}
|
||
set blu {[0;34m}
|
||
set grn {[0;32m}
|
||
set cyn {[0;36m}
|
||
set red {[0;31m}
|
||
set mag {[0;35m}
|
||
set yel {[0;33m}
|
||
set wht {[0;37m}
|
||
set hblk {[1;30m}
|
||
set hblu {[1;34m}
|
||
set hgrn {[1;32m}
|
||
set hcyn {[1;36m}
|
||
set hred {[1;31m}
|
||
set hmag {[1;35m}
|
||
set hyel {[1;33m}
|
||
set hwht {[1;37m}
|
||
set blk_b {[40m}
|
||
set red_b {[41m}
|
||
set grn_b {[42m}
|
||
set yel_b {[43m}
|
||
set blu_b {[44m}
|
||
set mag_b {[45m}
|
||
set cyn_b {[46m}
|
||
set wht_b {[47m}
|
||
set bblk {[0;[5;30m}
|
||
set bblu {[0;[5;34m}
|
||
set bgrn {[0;[5;32m}
|
||
set bcyn {[0;[5;36m}
|
||
set bred {[0;[5;31m}
|
||
set bmag {[0;[5;35m}
|
||
set byel {[0;[5;33m}
|
||
set bwht {[0;[5;37m}
|
||
proc showver {} {
|
||
global cyb version botnick
|
||
putserv "PRIVMSG $cyb(cur) :\001ACTION is throwing snowballs wif robocod's cyb\002O\002rg$cyb(ver)/($version)\001"
|
||
putscr "* $botnick is throwing snowballs wif robocod's cyb\002O\002rg$cyb(ver)/($version)"
|
||
}
|
||
if ![info exists cyb(cur)] {
|
||
set cyb(cur) ""
|
||
set cyb(ver) "0.6a1"
|
||
set cyb(lst) ""
|
||
}
|
||
proc bleh {} {
|
||
global cyb cl hblk blu red
|
||
putscr "robocod's ..............."
|
||
putscr {[1m [30m.r -4eeee[0m
|
||
}
|
||
putscr {[1m [30mz$P[37m [30m"$$[37m [0m
|
||
}
|
||
putscr {[1m [30m.$$%[37m [30m$[37m [0m
|
||
}
|
||
putscr {[1m [30mJ$$F[37m [30m^[37m [0m
|
||
}
|
||
putscr {[1m [30m4$$$[37m [0m
|
||
}
|
||
putscr {[1m [30m$$$F[37m [0;34m=*$[1;37m [0m
|
||
}
|
||
putscr {[1m [30m$$$F[37m [0;34m$[1;37m [0m
|
||
}
|
||
putscr {[1m [30m$$$F[37m [0;34m$[1;37m [0m
|
||
}
|
||
putscr {[1m [30m*$$b[37m [0;34m3$"[1;37m [0;34m^$"[1;37m [0;34m$.@" ".[1;37m [0;34m.=" "$.[1;37m [0;34m.e[1;37m [0;34md$$c[1;37m [0;34m.r""*ee[1;37m [0m
|
||
}
|
||
putscr {[1m [30m$$$[37m [0;34m$R[1;37m [0;34m4"[1;37m [0;34m$[1;37m [0;34m^$[1;37m [0;34mJ[1;37m [0;34m$r[1;37m [0;34m$"[1;37m [0;34m.$[1;37m [0;34m$F[1;37m [0m
|
||
}
|
||
putscr {[1m [30m^$$$[37m [30m$[37m [0;34m^$[1;37m [0;34m%[1;37m [0;34m$[1;37m [0;34m$[1;37m [0;34m$[1;37m [0;34m4$[1;37m [0;34m$[1;37m [0;34m^$[1;37m [0;34m$[1;37m [0m
|
||
}
|
||
putscr {[1m [30m*$b[37m [30m.$$[37m [0;34m3L[1;37m [0;34m/[1;37m [0;34m$r[1;37m [0;34m4$[1;37m [0;34m$F[1;37m [0;34m4F[1;37m [0;34m$[1;37m [0;34m)*""[1;37m [0m
|
||
}
|
||
putscr {[1m [30m"$c[37m [30md$$$[37m [0;34m$E[1;37m [0;34m$[1;37m [0;34m..e$"[1;37m [0;34m^$.[1;37m [0;34mF[1;37m [0;34m4$[1;37m [0;34m$c.....[1;37m [0m
|
||
}
|
||
putscr {[1m [0;34m4"[1;37m [0;34m"[1;37m [0;34m"**"[1;37m [0;34m4"[1;37m [0;34m.F""""*$[1;37m [0m
|
||
}
|
||
putscr {[1m [0;34mF[1;37m [0;34m$"[1;37m [0;31mrev[1;37m [0;34m$[1;37m [0m
|
||
}
|
||
putscr {[1m [0;34m@[1;37m [0;34m3L[1;37m [0;34md"[1;37m [0m
|
||
}
|
||
putscr {[1m [0;34m*"[1;37m [0;34m"**"[1;37m [0m
|
||
}
|
||
putscr {[1m [0m
|
||
}
|
||
putscr {[1m [0m
|
||
}
|
||
putscr "\002C\002y\002B\002o\002R\002g v$cyb(ver) -=- Advanced BitchX TCL"
|
||
}
|
||
utimer 4 bleh
|
||
proc grabhost {arg} {
|
||
global cyb
|
||
foreach channel [channels] {
|
||
if [onchan [lindex $arg 0] $channel] {
|
||
return [getchanhost [lindex $arg 0] $channel]
|
||
}}
|
||
return 0}
|
||
ircii "^set CLIENT_INFORMATION robocod's CyBoRg(TCL)v$cyb(ver) "
|
||
if [string match $version "*68f*"] {
|
||
ircii "^set status_format3 CyBoRg loaded .. "
|
||
putscr "*** Special 68f Stuff being set"
|
||
ircii "^window split on"
|
||
}
|
||
proc cybjoin {arg} {
|
||
global cyb
|
||
set cyb(cur) "[lindex $arg 0]"
|
||
}
|
||
ircii "alias sv {tcl showver}"
|
||
ircii {alias addf {tcl addf "$0-"}}
|
||
proc addf {arg} {
|
||
global cyb
|
||
set nick [lindex $arg 0]
|
||
set flags [lindex $arg 1]
|
||
set channels [lrange $arg 2 end]
|
||
if {$nick=="" || $flags=="" || $channels==""} {
|
||
putscr "*** Usage /addf <nick> <flags> <channel (all for all channels)>"
|
||
putscr "*** Flags = O for ops; V for Voice; I for Invite A for autoop; B for auto ban"
|
||
putscr "*** N for names access i.e. /ctcp yournick NAME #warez will send a names list for #warez"
|
||
putscr "*** i.e. /addf robocod OVI #livid"
|
||
return}
|
||
set host [grabhost $nick]
|
||
if {$host==0} {putscr "FUCCCCCCCK! NICK NOT FOUND! ABORTING!"}
|
||
set nig [fixhost $host]
|
||
set flagz "$flags"
|
||
set flags "[weed $flagz]"
|
||
if {$flags==""} {
|
||
putscr "*** -\002C\002- None of your flags were valid"
|
||
return}
|
||
lappend cyb(lst) "$nig $flags $channels"
|
||
putscr "*** -\002C\002- Added $nig to friends list --------->"
|
||
putscr "*** -\002C\002- $nig $flags $channels"
|
||
putscr "*** -\002C\002- Messaging him about his new access ..."
|
||
putserv "NOTICE $nick :-\002C\002-You've been added to my friend's list."
|
||
putserv "NOTICE $nick :-\002C\002- Access of +$flags on $channels"
|
||
putserv "NOTICE $nick :-\002C\002- Enjoy!"
|
||
return}
|
||
proc fixhost {host} {
|
||
if [string match "*.*.*" $host] {
|
||
set hose [lindex [split $host @] 1]
|
||
set userhost [lrange [split $hose .] 1 end]
|
||
set username [lindex [split $host @] 0]
|
||
regsub -all " " $userhost "." userhost
|
||
return "*!*$username\@*.$userhost"
|
||
} else {
|
||
return "*!*$host"}}
|
||
proc weed {flags} {
|
||
if [string match "*o*" $flags] {append flag "O"}
|
||
if [string match "*O*" $flags] {append flag "O"}
|
||
if [string match "*v*" $flags] {append flag "V"}
|
||
if [string match "*V*" $flags] {append flag "V"}
|
||
if [string match "*i*" $flags] {append flag "I"}
|
||
if [string match "*I*" $flags] {append flag "I"}
|
||
if [string match "*a*" $flags] {append flag "A"}
|
||
if [string match "*A*" $flags] {append flag "A"}
|
||
if [string match "*b*" $flags] {append flag "B"}
|
||
if [string match "*B*" $flags] {append flag "B"}
|
||
if [string match "*N*" $flags] {append flag "N"}
|
||
if [string match "*n*" $flags] {append flag "N"}
|
||
return "$flag"
|
||
}
|
||
ircii "^set flood_protection off"
|
||
ircii "^set flood_kick off"
|
||
ircii "^set flood_rate 0"
|
||
ircii "^set display_ansi on"
|
||
ircii "^set script_help ~/.BitchX/NONE"
|
||
ircii "^set exec_protection off"
|
||
ircii "^set -continued_line"
|
||
ircii "^set novice off"
|
||
ircii "set hide_private_channels off"
|
||
ircii "set tran latin_1"
|
||
ircii "set hard_uh_notify on"
|
||
ircii "set send_away_msg on"
|
||
ircii "set suppress_server_motd on"
|
||
ircii "set clock_24hour off"
|
||
ircii "set dcc_autoget on"
|
||
ircii "set lastlog_level ALL"
|
||
ircii "set msglog off"
|
||
ircii "set mail 1"
|
||
ircii "set show_channel_names on"
|
||
ircii "set msglogfile Ctoolz.away"
|
||
ircii "eval set logfile .BitchX/cyborg.chanLog"
|
||
ircii "set reasonfile BitchX.reason"
|
||
ircii "set ctoolz_dir ~/.BitchX"
|
||
ircii "set savefile BitchX.sav"
|
||
ircii "set eight on"
|
||
ircii "set beep_on_msg msgs"
|
||
ircii "set beep on"
|
||
ircii "set deop_on_deopflood 100"
|
||
ircii "set kick_on_deopflood 8"
|
||
ircii "set dcc_send_limit 10"
|
||
ircii "set dcc_get_limit 0"
|
||
ircii "set llook off"
|
||
ircii "set input_protection off"
|
||
ircii "set llook_delay 60"
|
||
ircii "set lastlog 1000"
|
||
ircii "set dcc_dldir /home/robocod/"
|
||
ircii "set indent on"
|
||
#ircii "bind meta2-3 parse_command b"
|
||
#ircii "bind meta2-2 parse_command a"
|
||
#ircii "bind ^L parse_command bind_control_l"
|
||
ircii "bind ^@ AUTOREPLY"
|
||
ircii "bind meta3-A parse_command fkey 1"
|
||
ircii "bind meta3-B parse_command fkey 2"
|
||
ircii "bind meta3-C parse_command fkey 3"
|
||
ircii "bind meta3-D parse_command fkey 4"
|
||
ircii "bind meta3-E parse_command fkey 5"
|
||
ircii "bind meta3-7 parse_command fkey 6"
|
||
ircii "bind meta3-8 parse_command fkey 7"
|
||
ircii "bind meta3-9 parse_command fkey 8"
|
||
ircii "^set status_format <%R> %*%N%S%H%B %#%Q%A%C%+%I%O %F %^ %> %D %U "
|
||
ircii "^set status_format1 <%R> %*%N%S%H%B %#%Q%A%C%+%I%O %F %^ %> %D %U "
|
||
ircii "^set status_format2 %1 %L online %3 %>%M %T "
|
||
ircii "^set status_user1 \(CyBoRg\(robocod\)\)"
|
||
ircii "^eval ^set status_user2 ?"
|
||
ircii {^eval ^set status_user3 $uptime()}
|
||
ircii "^eval ^set status_mail Mail: %M"
|
||
#ircii "^eval ^set status_user \$\S\"
|
||
ircii "^eval ^set ^status_channel %C"
|
||
#ircii "^on ^001 * {^eval ^set status_user $S}"
|
||
ircii "^set status_away away"
|
||
ircii "^set status_chanop @"
|
||
ircii "^set status_clock %T"
|
||
ircii "^set status_notify (A: %F)"
|
||
#ircii "assign blink [5m"
|
||
#ircii "assign cl [0m"
|
||
#ircii "assign blk [0;30m"
|
||
#ircii "assign blu [0;34m"
|
||
#ircii "assign grn [0;32m"
|
||
#ircii "assign cyn [0;36m"
|
||
#ircii "assign red [0;31m"
|
||
#ircii "assign mag [0;35m"
|
||
#ircii "assign yel [0;33m"
|
||
#ircii "assign wht [0;37m"
|
||
#ircii "assign hblk [1;30m"
|
||
#ircii "assign hblu [1;34m"
|
||
#ircii "assign hgrn [1;32m"
|
||
#ircii "assign hcyn [1;36m"
|
||
#ircii "assign hred [1;31m"
|
||
#ircii "assign hmag [1;35m"
|
||
#ircii "assign hyel [1;33m"
|
||
#ircii "assign hwht [1;37m"
|
||
#ircii "assign blk_b [40m"
|
||
#ircii "assign red_b [41m"
|
||
#ircii "assign grn_b [42m"
|
||
#ircii "assign yel_b [43m"
|
||
#ircii "assign blu_b [44m"
|
||
#ircii "assign mag_b [45m"
|
||
#ircii "assign cyn_b [46m"
|
||
#ircii "assign wht_b [47m"
|
||
#ircii "assign bblk [0;[5;30m"
|
||
#ircii "assign bblu [0;[5;34m"
|
||
#ircii "assign bgrn [0;[5;32m"
|
||
#ircii "assign bcyn [0;[5;36m"
|
||
#ircii "assign bred [0;[5;31m"
|
||
#ircii "assign bmag [0;[5;35m"
|
||
#ircii "assign byel [0;[5;33m"
|
||
#ircii "assign bwht [0;[5;37m"
|
||
ircii "set kick_on_nickflood 6"
|
||
ircii "set kick_on_pubflood 30"
|
||
ircii "set deopflood_time 60"
|
||
ircii "set kick_on_deopflood 6"
|
||
ircii "set kick_on_nickflood 6"
|
||
ircii "set kick_on_pubflood 30"
|
||
ircii "set deopflood_time 60"
|
||
ircii "set kickflood_time 60"
|
||
ircii "set nickflood_time 60"
|
||
ircii "set pubflood_time 60"
|
||
ircii "set hacking 0"
|
||
ircii "set kick_on_kickflood 10"
|
||
ircii "set deop_on_kickfp 100"
|
||
ircii "set llook off"
|
||
ircii "set llook_delay 60"
|
||
ircii "set pubflood off"
|
||
ircii "set nickflood on"
|
||
ircii "set kickflood on"
|
||
ircii "set deopflood on"
|
||
ircii "set dcc_block_size 1024"
|
||
ircii "set dcc_limit 10"
|
||
ircii "set hacking 0"
|
||
ircii "set dcc_autoget 0"
|
||
|
||
set cyb(awaymsg) {
|
||
{Bored!}
|
||
{livid incorp rocks you}
|
||
{ircopz are uberlame}
|
||
{Automatically set away}
|
||
{getting sex}
|
||
{getting blown}
|
||
{brb}
|
||
{bbl}
|
||
{the truth is out there i just dont give a shit anymore.}
|
||
{eh?}
|
||
{bringing death}
|
||
{one can short .....}
|
||
{half empty or half full, i dont give a shit!}
|
||
{elsewhere}
|
||
{elsewhen}
|
||
{elsewhy}
|
||
{or else ..}
|
||
}
|
||
proc cybAway {arg} {
|
||
if {$arg==""} {
|
||
global cyb
|
||
set non 0
|
||
foreach msg $cyb(awaymsg) {
|
||
incr non
|
||
}
|
||
set awayMSG [lindex $cyb(awaymsg) [rand [expr $non - 1]]]
|
||
ircii "/away $awayMSG"
|
||
foreach channel [channels] {
|
||
putserv "PRIVMSG $channel :\001ACTION is outtie. ($awayMSG)\001"
|
||
}
|
||
putscr "-\002C\002- Marking you away with messsage: $awayMSG"
|
||
return}
|
||
ircii "away $arg"
|
||
foreach channel [channels] {
|
||
putserv "PRIVMSG $channel :\001ACTION is outtie. ($arg)\001"
|
||
}
|
||
putscr "-\002C\002- Marking you away with messsage: $arg"
|
||
return}
|
||
|
||
|
||
proc STATUS_SET {} {
|
||
ircii "^set status_format <%R> %*%N%S%H%B %#%Q%A%C%+%I%O %F %^ %> %D %U "
|
||
ircii "^set status_format1 <%R> %*%N%S%H%B %#%Q%A%C%+%I%O %F %^ %> %D %U "
|
||
ircii "^set status_format2 %1 %L online %3 %>%M %T "
|
||
ircii "^set status_user1 \(CyBoRg\(robocod\)\)"
|
||
ircii "^eval ^set status_user2 ?"
|
||
ircii {^eval ^set status_user3 $uptime()}
|
||
ircii "^eval ^set status_mail Mail: %M"
|
||
ircii "^eval ^set ^status_channel %C"
|
||
ircii "^set status_away away"
|
||
ircii "^set status_chanop @"
|
||
ircii "^set status_clock %T"
|
||
ircii "^set status_notify (A: %F)"
|
||
utimer 60 STATUS_SET
|
||
return}
|
||
if ![info exists cyb(timer)] {
|
||
STATUS_SET
|
||
set cyb(timer) ""
|
||
}
|
||
|
||
ircii "^assign G -\002C\002-"
|
||
#finally, friends list support
|
||
proc isattr {nick attri} {
|
||
global cyb
|
||
set h [fixhost [grabhost $nick]]
|
||
if {$h=="0"} {return "0"}
|
||
set find [lsearch "$cyb(lst)" "*$h*"]
|
||
if {$find==-1} {return 0}
|
||
set results [lindex $cyb(lst) $find]
|
||
set host [lindex $results 0]
|
||
set attr [lindex $results 1]
|
||
set channels [lrange $results 2 end]
|
||
if [string match "*$attri*" "*$attr*"] {return 1}
|
||
return}
|
||
#autoop?
|
||
bind join - *!*@* parse_join
|
||
proc parse_join {nick host hand chan} {
|
||
global cyb
|
||
set h [fixhost [grabhost $nick]]
|
||
set find [lsearch "$cyb(lst)" "*$h*"]
|
||
if {$find==-1} {return}
|
||
set chanaxs [lrange [lindex $cyb(lst) $find] 2 end]
|
||
set axs 0
|
||
if {$chanaxs=="all"} {
|
||
set axs 1}
|
||
if {$axs==0} {
|
||
foreach chanl $chanaxs {
|
||
if {$chanl==$chan} {
|
||
set axs 1}
|
||
}
|
||
}
|
||
if [isattr $nick A] {
|
||
if {$axs==1} {
|
||
putserv "MODE $chan +o $nick"
|
||
putscr "-\002C\002- Autoop'ng $nick on $chan (friendzlist)"
|
||
return}}
|
||
return}
|
||
proc zday {} {
|
||
global cyb
|
||
put}
|
||
proc leet {text} {
|
||
global cyb botnick
|
||
regsub -all "you" $text "yew" text
|
||
regsub -all "man" $text "man\002G\002" text
|
||
regsub -all "too" $text "tew" text
|
||
regsub -all "to" $text "tew" text
|
||
regsub -all "two" $text "tew" text
|
||
regsub -all "elite" $text "31337" text
|
||
regsub -all "e" $text "3" text
|
||
regsub -all "o" $text "0" text
|
||
regsub -all "l" $text "1" text
|
||
regsub -all "t" $text "7" text
|
||
regsub -all "s" $text "5" text
|
||
putserv "PRIVMSG $cyb(cur) :$text"
|
||
putscr "<$botnick> $text"
|
||
}
|
||
ircii {^alias leet tcl leet "$0-"}
|
||
bind ctcp - invite frinv
|
||
proc frinv {nick uhost hand dest key arg} {
|
||
putscr "$nick u $uhost h $hand d $dest k $key a $arg"
|
||
}
|
||
#welcome to the lamest script EVER. change LAME mirc colors to ANSI.
|
||
#Khaled sucks a HUGE ASS DICK for using FUCKING ircle color codes
|
||
proc mirc2ansi {txt} {
|
||
regsub -all "01,00" $txt {[30;47m} txt
|
||
regsub -all "01,0" $txt {[30;47m} txt
|
||
regsub -all "1,00" $txt {[30;47m} txt
|
||
regsub -all "1,0" $txt {[30;47m} txt
|
||
regsub -all "1" $txt {[30;47m} txt
|
||
regsub -all "02,00" $txt {[34m} txt
|
||
regsub -all "02,0" $txt {[34m} txt
|
||
regsub -all "2,00" $txt {[34m} txt
|
||
regsub -all "2,0" $txt {[34m} txt
|
||
regsub -all "2" $txt {[34m} txt
|
||
regsub -all "03,00" $txt {[32m} txt
|
||
regsub -all "03,0" $txt {[32m} txt
|
||
regsub -all "3,00" $txt {[32m} txt
|
||
regsub -all "3,0" $txt {[32m} txt
|
||
regsub -all "3" $txt {[32m} txt
|
||
regsub -all "04,00" $txt {[31m} txt
|
||
regsub -all "04,0" $txt {[31m} txt
|
||
regsub -all "4,00" $txt {[31m} txt
|
||
regsub -all "4,0" $txt {[31m} txt
|
||
regsub -all "4" $txt {[31m} txt
|
||
regsub -all "05,00" $txt {[33m} txt
|
||
regsub -all "05,0" $txt {[33m} txt
|
||
regsub -all "5,00" $txt {[33m} txt
|
||
regsub -all "5,0" $txt {[33m} txt
|
||
regsub -all "5" $txt {[33m} txt
|
||
regsub -all "06,00" $txt {[35m} txt
|
||
regsub -all "06,0" $txt {[35m} txt
|
||
regsub -all "6,00" $txt {[35m} txt
|
||
regsub -all "6,0" $txt {[35m} txt
|
||
regsub -all "6" $txt {[35m} txt
|
||
regsub -all "08,00" $txt {[1;33m} txt
|
||
regsub -all "08,0" $txt {[1;33m} txt
|
||
regsub -all "8,00" $txt {[1;33m} txt
|
||
regsub -all "8,0" $txt {[1;33m} txt
|
||
regsub -all "8" $txt {[1;33m} txt
|
||
regsub -all "09,00" $txt {[32m} txt
|
||
regsub -all "09,0" $txt {[32m} txt
|
||
regsub -all "9,00" $txt {[32m} txt
|
||
regsub -all "9,0" $txt {[32m} txt
|
||
regsub -all "9" $txt {[32m} txt
|
||
regsub -all "10,00" $txt {[0;36;47m} txt
|
||
regsub -all "10,0" $txt {[0;36;47m} txt
|
||
regsub -all "10" $txt {[0;36;47m} txt
|
||
regsub -all "11,00" $txt {[1m} txt
|
||
regsub -all "11,0" $txt {[1m} txt
|
||
regsub -all "11" $txt {[1m} txt
|
||
regsub -all "12,00" $txt {[34m} txt
|
||
regsub -all "12,0" $txt {[34m} txt
|
||
regsub -all "12" $txt {[34m} txt
|
||
regsub -all "13,00" $txt {[35m} txt
|
||
regsub -all "13,0" $txt {[35m} txt
|
||
regsub -all "13" $txt {[35m} txt
|
||
regsub -all "01,01" $txt {[1;30m} txt
|
||
regsub -all "1,01" $txt {[1;30m} txt
|
||
regsub -all "01,1" $txt {[1;30m} txt
|
||
regsub -all "1,1" $txt {[1;30m} txt
|
||
regsub -all "02,01" $txt {[0;34m} txt
|
||
regsub -all "2,01" $txt {[0;34m} txt
|
||
regsub -all "02,1" $txt {[0;34m} txt
|
||
regsub -all "2,1" $txt {[0;34m} txt
|
||
regsub -all "03,01" $txt {[32m} txt
|
||
regsub -all "3,01" $txt {[32m} txt
|
||
regsub -all "03,1" $txt {[32m} txt
|
||
regsub -all "3,1" $txt {[32m} txt
|
||
regsub -all "04,01" $txt {[31m} txt
|
||
regsub -all "4,01" $txt {[31m} txt
|
||
regsub -all "04,1" $txt {[31m} txt
|
||
regsub -all "4,1" $txt {[31m} txt
|
||
regsub -all "05,01" $txt {[33m} txt
|
||
regsub -all "5,01" $txt {[33m} txt
|
||
regsub -all "05,1" $txt {[33m} txt
|
||
regsub -all "5,1" $txt {[33m} txt
|
||
regsub -all "06,01" $txt {[35m} txt
|
||
regsub -all "6,01" $txt {[35m} txt
|
||
regsub -all "06,1" $txt {[35m} txt
|
||
regsub -all "6,1" $txt {[35m} txt
|
||
regsub -all "07,01" $txt {[37m07} txt
|
||
regsub -all "7,01" $txt {[37m07} txt
|
||
regsub -all "07,1" $txt {[37m07} txt
|
||
regsub -all "7,1" $txt {[37m07} txt
|
||
regsub -all "08,01" $txt {[1;33m} txt
|
||
regsub -all "8,01" $txt {[1;33m} txt
|
||
regsub -all "08,1" $txt {[1;33m} txt
|
||
regsub -all "8,1" $txt {[1;33m} txt
|
||
regsub -all "09,01" $txt {[32m} txt
|
||
regsub -all "9,01" $txt {[32m} txt
|
||
regsub -all "09,1" $txt {[32m} txt
|
||
regsub -all "9,1" $txt {[32m} txt
|
||
regsub -all "10,1" $txt {[0;36m} txt
|
||
regsub -all "10,01" $txt {[0;36m} txt
|
||
regsub -all "11,01" $txt {[1m} txt
|
||
regsub -all "11,1" $txt {[1m} txt
|
||
regsub -all "12,01" $txt {[34m} txt
|
||
regsub -all "12,1" $txt {[34m} txt
|
||
regsub -all "13,01" $txt {[35m} txt
|
||
regsub -all "13,1" $txt {[35m} txt
|
||
regsub -all "01,01" $txt {[30;44m} txt
|
||
regsub -all "1,01" $txt {[30;44m} txt
|
||
regsub -all "01,1" $txt {[30;44m} txt
|
||
regsub -all "1,1" $txt {[30;44m} txt
|
||
|
||
01,02[34m [32m03,02 [31m04,02 [33m05,02 [35m06,02 [37;40ma[35;44m [1;33m08,02 [32m09,02[33m [0;36;44m10,02 [1m11,02 [34m12,02 [35m13,02[0m
|
||
[30;42m01,03[34m 02,03 [31m04,03 [33m05,03 [35m06,03 [37;40mgold[35;42m [1;33m08,03 [32m09,03 [0;36;42m10,03 [1m11,03 [34m12,03 [35m13,03[0m
|
||
[30;41m01,04[34m 02,04 [32m03,04 [33m 05,04 [35m06,04 [37;40mcolor[35;41m [1;33m08,04 [32m09,04 [0;36;41m10,04 [1m11,04 [34m12,04 [35m13,04[0m
|
||
[30;43m01,05[34m 02,05 [32m03,05 [31m04,05 [35m06,05 [1;33m08,05 [32m09,05 [0;36;43m10,05 [1m11,05 [34m12,05 [35m13,05[0m
|
||
[30;45m01,06[34m 02,06 [32m03,06 [31m04,06 [33m05,06 [1m08,06 [32m09,06 [0;36;45m10,06 [1m11,06 [34m12,06 [35m13,06[0m
|
||
|
||
[30;46m01,10[34m 02,10 [32m03,10 [31m04,10 [33m05,10 [35m06,10 [1;33m08,10 [32m09,10 [36m11,10 [34m12,10 [35m13,10[0m
|
||
[0m
|
||
}
|