Skip to content

Instantly share code, notes, and snippets.

@xatlas
xatlas / luxafor.go
Created January 9, 2021 11:48
Manage colors on Luxafor devices
package main
import (
"flag"
"fmt"
"github.com/karalabe/hid"
"log"
)
const (
@xatlas
xatlas / preventflood.tcl
Created January 12, 2020 20:29
Script que pone el modo +W cuando se recibe un notice del servidor por entrada masiva de usuarios
set pf_warn "This channel has been closed"
set pf_host "chathispano.com"
set pf_chan "#canal"
bind notc -|- * pf_parseNotice
proc pf_parseNotice {n uh h t d} {
global pf_warn pf_host pf_chan
set w [string first $pf_warn $t]
@xatlas
xatlas / cron.tcl
Created November 12, 2017 19:48
Script para Eggdrop que envía un mensaje aleatorio a un canal determinado
# Cron.tcl v2.1
# Tareas automatizadas
# Atlas, ene 14 - Twitter: @xatlas
set main_chan "#canal"
bind cron - {0 * * * *} cron:publi
proc cron:publi {minute hour day month weekday} {
global main_chan
puthelp "PRIVMSG $main_chan :\002Info:\002 [publi_msg]"
@xatlas
xatlas / badregex.tcl
Created November 4, 2017 23:46
Script para Eggdrop que detecta patrones de expresiones regulares en mensajes y actions enviados al canal
# Regex detector
# by Atlas (@xatlas) on 07/Oct/14
# You can do with this script what you want
# Regex protip: on tcl \b is \y, and \B is \Y
# http://www.regular-expressions.info/wordboundaries.html
# Updated: 04/Nov/15: \s+ -> \s
# Published on Github: 05/Nov/17
@xatlas
xatlas / autodeop.cpp
Created September 18, 2017 20:23
Módulo que deopea automáticamente cuando CHaN te da Op en el canal indicado
/*
* Copyright (C) 2004-2017 ZNC, see the NOTICE file for details.
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
@xatlas
xatlas / antirepeats.tcl
Created September 12, 2017 16:45
Dirty script anti repeats for Eggdrop
# by Tris, 17jul96 (v2)
# action added by fantomas 22Dec1997
# Updated to v4 (17 November 1998) by slennox <slenny@ozemail.com.au>
# Fixed version (1 December 1998)
# Updated to v4.1 (8 December 1998)
# Updated (25 November 2002) @/+ exempt
# Updated to v5 by Atlas (9 March 2012)
# Updated to v6 by Atlas (22 Sept 2014) [Prediction text]
# Updated to v6.2 by Atlas (05 Oct 2014) [Percent similar text]
@xatlas
xatlas / autowhois.tcl
Last active May 5, 2017 17:40
Script para Eggdrop que hace un whois en cada join para obtener la lista de canales del usuario que entra al canal
set whois_debugchan "#canal_ops"
set whois_mainchan "#canal"
bind join -|- * whois_cmd
bind raw -|- "319" whois_channels
proc whois_cmd {n u h c} {
global whois_mainchan
if {[string tolower $c] == [string tolower $whois_mainchan]} {
putserv "WHOIS $n"