Updates:
Juega trivias en español en el canal #Trivias
Mensajes recientes
#1
📢 Noticias de Última Hora / Terra: Estas son las prediccio...
Último mensaje por RSSBot - Hoy a las 02:47 AMEstas son las predicciones en el amor, salud y trabajo del 13 al 19 de mayo, según el Tarot
Source: Estas son las predicciones en el amor, salud y trabajo del 13 al 19 de mayo, según el Tarot
Source: Estas son las predicciones en el amor, salud y trabajo del 13 al 19 de mayo, según el Tarot
#2
📢 Noticias de Última Hora / Terra: Sólo la mente de alguie...
Último mensaje por RSSBot - Hoy a las 02:47 AMSólo la mente de alguien muy listo puede encontrar la palabra 'Extraño' en menos de 5 segundos
Source: Sólo la mente de alguien muy listo puede encontrar la palabra 'Extraño' en menos de 5 segundos
Source: Sólo la mente de alguien muy listo puede encontrar la palabra 'Extraño' en menos de 5 segundos
#3
📢 Noticias de Última Hora / Terra: Los 2 signos que recibi...
Último mensaje por RSSBot - Hoy a las 02:47 AMLos 2 signos que recibirán una bendición del Universo antes del 31 de mayo, según la astrología
Source: Los 2 signos que recibirán una bendición del Universo antes del 31 de mayo, según la astrología
Source: Los 2 signos que recibirán una bendición del Universo antes del 31 de mayo, según la astrología
#4
📢 Noticias de Última Hora / Terra: Estos son los 3 signos ...
Último mensaje por RSSBot - Hoy a las 02:47 AMEstos son los 3 signos que alcanzan riqueza y poder del 13 al 19 de mayo, según la astrología oriental
Source: Estos son los 3 signos que alcanzan riqueza y poder del 13 al 19 de mayo, según la astrología oriental
Source: Estos son los 3 signos que alcanzan riqueza y poder del 13 al 19 de mayo, según la astrología oriental
#5
📢 Noticias de Última Hora / Terra: El mensaje de los ángel...
Último mensaje por RSSBot - Hoy a las 02:47 AMEl mensaje de los ángeles para cada signo para atraer la riqueza del 13 al 19 de mayo
Source: El mensaje de los ángeles para cada signo para atraer la riqueza del 13 al 19 de mayo
Source: El mensaje de los ángeles para cada signo para atraer la riqueza del 13 al 19 de mayo
#6
📢 Noticias de Última Hora / Terra: Los 3 signos del zodiac...
Último mensaje por RSSBot - Hoy a las 02:47 AMLos 3 signos del zodiaco que mejoran su salud psíquica del 13 al 19 de mayo, según la astrología
Source: Los 3 signos del zodiaco que mejoran su salud psíquica del 13 al 19 de mayo, según la astrología
Source: Los 3 signos del zodiaco que mejoran su salud psíquica del 13 al 19 de mayo, según la astrología
#7
📢 Noticias de Última Hora / Terra: Toma asiento antes de c...
Último mensaje por RSSBot - Hoy a las 02:34 AMToma asiento antes de conocer cuánto sale un termo Stanley en Chile
Source: Toma asiento antes de conocer cuánto sale un termo Stanley en Chile
Source: Toma asiento antes de conocer cuánto sale un termo Stanley en Chile
#8
📢 Latest news in English / BBC: Women's ice hockey finds ...
Último mensaje por FeedBot - Hoy a las 02:34 AMWomen's ice hockey finds winning formula in pro league
Source: Women's ice hockey finds winning formula in pro league
With sold-out arenas, Billie Jean King as ambassador and major financial backing, the PWHL's inaugural season broke records.
Source: Women's ice hockey finds winning formula in pro league
#9
Códigos en Ingles / Very Simple Theme
Último mensaje por TerraChat - May 12, 2024, 11:26 PMCódigo [Seleccionar]
; Simple theme
; Made by miceiken
; Use font "Courier New" with the size 7px
; ALT + V -> Font
; Helpers
alias thmnick {
var %n = $1, %c = $2
var %mi
if (%n isop %c) { %mi = @ }
if (%n isvoice %c) { %mi = + }
if (%n ishop %c) { %mi = % }
if (%mi) { %n = %mi $+ %n }
var %l = $len(%n)
var %c = $calc(18 - %l - 1)
var %r = $+($str($chr(160), %c), $chr(32), %n)
return %r
}
alias indent {
return $+($str($chr(160), $calc(18 - $len($1))), $1)
}
alias urlc {
var %line = $1-
if ($regex(%line,/(\b(www.?\.|https?:\/\/|ftp:\/\/).)/i)) {
var %x = 1
while (%x <= $numtok(%line,32)) {
if ($regex($gettok(%line,%x,32),/(\b(www.?\.|https?:\/\/|ftp:\/\/).)/i)) {
var %l2 = $+($chr(3), 12, $chr(31), $gettok(%line, %x, 32), $chr(31), $chr(3))
%line = $puttok(%line,%l2,%x,32)
}
inc %x
}
}
return %line
}
alias thmnickpm {
var %n = $1,
var %l = $len(%n)
var %c = $calc(18 - %l - 1)
var %r = $+($str($chr(160), %c), $chr(32), %n)
return %r
}
; Command enhancer
alias me {
haltdef
!.describe $active $1-
echo 6 -ti26 $active $chr(160) $+ $thmnick($me, $active) $1-
}
alias ctcp {
haltdef
!.ctcp $1 $2-
echo 4 -ti26 $active $indent(CTCP) $+ : -> $1 $upper($2-)
}
; Events
on *:START: {
.timestamp on
.timestamp -ef HH:nn
}
on *:INPUT:#: {
if ($left($1,1) === $readini(mirc.ini, text, commandchar)) && (!$ctrlenter) { return }
haltdef
.msg # $1-
echo -ti26 # $thmnick($me, $chan) $+ : $urlc($1-)
window -g1 $chan
}
on *:INPUT:?: {
if ($left($1,1) === $readini(mirc.ini, text, commandchar)) && (!$ctrlenter) { return }
haltdef
.msg $active $1-
echo -ti26 $active $thmnickpm($me) $+ : $urlc($1-)
}
on ^*:TEXT:*:*: {
haltdef
if ($chan) {
echo -ti26 # $thmnick($nick, $chan) $+ : $urlc($1-)
window -g1 $chan
}
else {
echo -ti26 $nick $thmnickpm($nick) $+ : $urlc($1-)
window -g1 $nick
}
}
on ^*:QUIT: {
haltdef
var %i = 1
while (%i <= $comchan($nick, 0)) {
echo 2 -ti26 $comchan($nick, %i) $indent(Quit) $+ : $nick ( $+ $1- $+ )
window -g3 $comchan($nick, %i)
inc %i
}
}
on ^*:NICK: {
haltdef
var %i = 1
while (%i <= $comchan($newnick, 0)) {
echo 3 -ti26 $comchan($newnick, %i) $indent(Nick) $+ : $nick -> $newnick
window -g3 $comchan($newnick, %i)
inc %i
}
}
on ^*:JOIN:#: {
haltdef
if ($nick != $me) {
echo 3 -ti26 # $indent(Join) $+ : $nick
window -g3 $chan
}
}
on ^*:PART:#: {
haltdef
if ($nick != $me) {
echo 3 -ti26 # $indent(Part) $+ : $nick $iif($1, $+($chr(40), $1-, $chr(41)))
window -g3 $chan
}
}
on ^*:RAWMODE:#: {
haltdef
echo 3 -ti26 # $indent(Mode) $+ : $nick sets $1-
}
on ^*:TOPIC:#: {
haltdef
echo 3 -ti26 # $indent(Topic) $+ : $nick -> $urlc($chan($chan).topic)
window -g3 $chan
}
on ^*:ACTION:*:#: {
haltdef
echo 6 -ti26 # $chr(160) $+ $thmnick($nick, $chan) $1-
window -g1 $chan
}
on ^*:CTCPREPLY:*: {
var %o = $1-
if ($1 == PING) {
%o = $asctime($2, mm:ss)
}
haltdef
echo 4 -ti26 $iif($chan, $chan, $active) $indent(CTCP) $+ : <- $iif($nick, $nick, $chan) %o
}
on ^*:KICK:#: {
haltdef
echo 3 -ti26 $chan $indent(Kick) $+ : $nick kicked $knick $iif($1 != $knick, $+($chr(40), $1-, $chr(41)))
}
; Abnormal events
raw 332:*: {
haltdef
echo 3 -ti26 $2 $indent(Topic) $+ : $urlc($3-)
window -g3 $2
}
raw 333:*: {
haltdef
echo 3 -ti26 $2 $indent(Set by) $+ : $3 at $asctime($4, HH:nn:ss) the $asctime($4, dd/mm)
window -g3 $2
}
ctcp *:*:*: {
haltdef
echo 4 -ti26 $iif($chan, $chan, $active) $indent(CTCP) $+ : <- $iif($nick, $nick, $chan) $1-
}
;Whois
/*
<- :zeus.dallas.tx.us.americhat.net 311 miceiken Fl00k woof staff.americhat.net * :woof
<- :zeus.dallas.tx.us.americhat.net 319 miceiken Fl00k :@#idlerpg @#solid #genscripts
<- :zeus.dallas.tx.us.americhat.net 312 miceiken Fl00k zeus.dallas.tx.us.americhat.net :located on earth
<- :zeus.dallas.tx.us.americhat.net 307 miceiken Fl00k :has identified for this nick
<- :zeus.dallas.tx.us.americhat.net 313 miceiken Fl00k :is an IRC Operator - Services Administrator
<- :zeus.dallas.tx.us.americhat.net 275 miceiken Fl00k :is a Secure Connection (SSL)
<- :zeus.dallas.tx.us.americhat.net 317 miceiken Fl00k 38 1234918827 :seconds idle, signon time
<- :zeus.dallas.tx.us.americhat.net 318 miceiken Fl00k :End of /WHOIS list.
$1 $2 $3-
raw 307:*: {
haltdef
echo -ati26 $str($chr(160), 2) $+ $indent(NickServ Identified)
}
raw 311:*: {
haltdef
echo -ati26 $indent(<whois nick=" $+ $2 $+ ">)
echo -ati26 $str($chr(160), 2) $+ $indent(Ident) $+ : $+ $3 Mask: $+ $4
}
raw 312:*: {
haltdef
echo -ati26 $str($chr(160), 2) $+ $indent(Server) $+ : Connected to $3 ($4-)
}
raw 313:*: {
haltdef
echo -ati26 $str($chr(160), 2) $+ $indent(Flags) $+ : $5-
}
raw 317:*: {
haltdef
echo -ati26 $str($chr(160), 2) $+ $indent(Idle) $+ : $duration($3)
echo -ati26 $str($chr(160), 2) $+ $indent(Signon) $+ : $asctime($4, HH:nn)
}
raw 319:*: {
haltdef
var %i = 1, %o, %h, %v, %r, %c, %n
while (%i <= $numtok($3-, 32))
{
%n = $calc(%i + 2)
%c = $gettok($3-, %n, 32)
echo -ati26 $indent(Channels) $+ :
}
raw 318:*: {
haltdef
echo -ati26 $indent(</whois>)
}
*/ #10
Códigos en Ingles / IRCCLOUD / MIBBIT / KIWIIRC
Último mensaje por TerraChat - May 12, 2024, 11:25 PMThis will remove any wide ban matching multiple irccloud/mibbit/kiwiirc clients and replace it with ident ban
This version includes the unresolved IPs
Original post by simo
This version includes the unresolved IPs
Original post by simo
Código [Seleccionar]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WebClient Ban Subsitution ;
; ;
; This script works in two phases: ;
; 1) - Detect when a site ban is placed on irccloud/mibbit/kiwiirc. ;
; - Unban the site ban that could possibly affect multiple clients. ;
; - Set variable and wait for the kick to determine the banned client. ;
; ;
; 2) - After the kick takes place, make sure the variable matches the client. ;
; - Once verified, place an ident ban for the client who got kicked. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Author: psycho ;
; Network: Undernet / irc.undernet.org ;
; Channel: #psycho ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Credits ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; simo for the original idea ;
; Ouims for helping with the regex code. ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:LOAD:{
echo -at You just loaded the irccloud/mibbit/kiwiirc ban replacement script
echo -at This Script does not require additional configuration
echo -at Simply load it and wait for the magic to happen.
}
on *:UNLOAD:{
echo -at What the hell??
echo -at Alrighty then!
}
ON *:BAN:#:{
if ($nick(#,$me,@%&~)) {
if ($regex($banmask,/(mibbit|irccloud|kiwiirc|192.184.9.108|192.184.9.110|192.184.9.112|192.184.8.73|192.184.10.9|192.184.10.118|107.161.19.109|207.192.75.252|64.62.228.82|78.129.202.38|87.98.219.117|107.161.19.53|109.169.31.4|109.169.29.95|195.154.53.5|195.154.52.250|212.83.148.225)/i)) { mode $chan -b $banmask | set %webchatc $addtok(%webchatc,$banmask,32) }
if ($regex($banmask,/([su]id\D|^\*!~?\*@(?:\*$|\?+))/i)) { mode $chan -b $banmask }
}
}
ON ^*:KICK:#:{
if ($istok(%webchatc,$address($knick,2),32)) && ($nick(#,$me,@%&~)) {
mode # +b $+($gettok($address($knick,0),1,64),@*)
set %webchatc $remtok(%webchatc,$address($knick,2),32)
}
}