All Activity

Countdown Reach Date to date.

Christmas & New Year Countdown for 2hours autoshow in the channel.

# chanrelay.tcl 3.14 # # A way to link your channels # # Author: CrazyCat <crazycat@c-p-f.org> # http://www.eggdrop.fr # irc.zeolia.net #eggdrop # # Declare issues at https://gitlab.com/tcl-scripts/chanrelay # No issue means no bug 🙂 # ## DESCRIPTION ## # # This TCL is a complete relay script wich works with botnet. # All you have to do is to include this tcl in all the eggdrop who # are concerned by it. # # You can use it as a spy or a full duplex communication tool. # # It don't mind if the eggdrops are on the same server or not, # it just mind about the channels and the handle of each eggdrop. ## CHANGELOG ## # # 3.14 - The Pi edition 🙂 # Now possible to change the (user@network) displayed # just add the usermask correct value in settings # %nick% and %network% are dynamic variables # Think to escape chars as [] or {} # # 3.13 # Modified join/part/quit procs # Add a limit to message length # # 3.12 # Added colors for actions and non-message # # # 3.11 # Made the "oper" setting functionnal # Removed MDS support # # 3.10 # Added debug log. It can be enable and disable in configuration # and with /msg rc.debug <on|off> # # 3.9 # Added exclusion list to ignore some users # Added a way to restrict relay to an internal user list # # 3.81 # Action mades by server are no more using nick "*" # Added a protection on oper actions: # the action must come from the oper bot # Correction of the quit transmission: when the bot leaves, # it now detect and transmit # Added botnet status broadcast # Changed the unload system (thanks to MenzAgitat) # # 3.8 # Correction : the config file can now use username for naming, # allowing to have relaying eggdrops in the same place with # different settings # # 3.7 # Addition of @commandes (public) restricted to operators: # @topic <network|all> a new topic : # Changes topic on specified network (or all) # @mode <network|all> +mode [arg][,-mode [arg]] : # Changes modes on specified network (or all) # All modes must be separated with a comma # @kick <network|all> user [reason] : # Kicks user on specified network (or all) # @ban <network|all> user [reason]: # Ban-kick user on specified network (or all) # Default reason and banmask are in the conf section # # 3.6-3 # Correction of trans mode on/off # # 3.6-2 # Correction of the logging of actions (/me) # Nick was replaced with ACTION # Correction of empty chan list (!who) # # 3.6-1 # Correction of the !who command # It's now possible to have the list from a specific server # # 3.6 # Correction of modes catching / transmitting # # 3.5 (Beta) # Integration of Message Delivery Service (MDS) # by MenzAgitat # # 3.4 # Settings modified by msg commands are now saved # Correction of small bugs # Best verification of settings sent # Acknowledgement and error messages added # # 3.3-1 # Correction for /msg eggdrop trans <action> [on|off] # # 3.3 # Added lines introducing beginning and ending of userlist # # 3.2 # Added gray user highlight # # 3.1 # Added check for linked bot # Corrected parse of some messages # Corrected pub commands # # 3.0 # Complete modification of configuration # Use of namespace # No more broadcast, the relay is done with putbot ## TODO ## # # Enhance configuration # Allow save of configuration # Multi-languages ## CONFIGURATION ## # # For each eggdrop in the relay, you have to # indicate his botnet nick, the chan and the network. # # Syntax: # set regg(USERNAME) { # "chan" "#CHANNEL" # "network" "NETWORK" #} # with: # USERNAME : The username sets in eggdrop.conf (case-sensitive) # optionaly, you can override default values: # * highlight (0/1/2/3): is speaker highlighted ? (no/bold/undelined/gray) # * snet (y/n): is speaker'network shown ? # * transmit (y/n): does eggdrop transmit his channel activity ? # * receive (y/n): does eggdrop diffuse other channels activity ? # * oper (y/n): does the eggdrop accept @ commands (topic, kick, ban) ? # * syn_topic (y/n): if set to Yes, the eggdrop will # synchronize the channel topic when changed on # another chan of the relay # # userlist(beg) is the sentence announcing the start of !who # userlist(end) is the sentence announcing the end of !who

PLEASE customise the settings before rehashing your bot!

PLEASE customise the settings before rehashing your bot! This is the enhanced version of original version Trivia.tcl made by Souperman. Enhanced with a !choose option for multiple question files. Reason for the adjustment was purely to have an *Nerd* version with all kinds of exams like MCSE MCSA CCISP or whatever those whizzkids want. Enhancements: The questionfiles can handle tabs for better editting and manipulation eg with a spreadsheet using tabs as a seperator. When the next question is selected, all tabs will be removed. The questionfiles can be setup to use multiplechoice questions. The script will determine if a question is a multiplechoice or not. If not, it will sendout the question on one line. If it is, it will sendout the question and choices on different lines. This is the layout for them: Answer|Question $A:choice $B:choice $C:choice $D:choice $E:choice It doenst matter how many choices there are, the script will figure it out. lowercase uppercase... it doesnt matter. Cheat protection for blocking people from just trying and guessing. This is especially handy with multiplechoice question with one answer.

Says the uptime of the machine and bot uptime of server connected. set pubtrig "!" # Set global|channel flags to trigger commands set sysflags o|m bind pub - ${pubtrig}uptime uptime:pub proc uptime:pub {nick uhost hand chan arg} { global uptime server sysflags if {([matchattr [nick2hand $nick] $sysflags]) && (![regexp c [getchanmode $chan]])} { puthelp "PRIVMSG $chan :\002S\002\037ystem\037: [eval exec uptime]" puthelp "PRIVMSG $chan :\002B\002\037ot\037 ($server): [duration [expr [unixtime] - $uptime]]" } else { if {([matchattr [nick2hand $nick] $sysflags]) && ([regexp c [getchanmode $chan]])} { puthelp "PRIVMSG $chan :System: [eval exec uptime]" puthelp "PRIVMSG $chan :Bot ($server): [duration [expr [unixtime] - $uptime]]" } } } bind pub - ${pubtrig}os osystem:pub proc osystem:pub {nick uhost hand chan arg} { global botnick sysflags if {([matchattr [nick2hand $nick] $sysflags]) && (![regexp c [getchanmode $chan]])} { puthelp "PRIVMSG $chan :\002O\002\037perating\037 \002S\002\037ystem\037: [eval exec uname] [eval exec uname -r]" } else { if {([matchattr [nick2hand $nick] $sysflags]) && ([regexp c [getchanmode $chan]])} { puthelp "PRIVMSG $chan :Operating System: [eval exec uname] [eval exec uname -r]" } } }

Auto Speak in YOur Channel.

NickServ Networks

this script is for ircop only.

Warning! C-style comments (/* and */) in vhostfile might confuse this script Za da go upravlqva i ima dostap user do komandata trqbva da ima flag +V Usage: .dellvhost spoof/vhost example: .dellvhost test.com Usage: .addvhost ident@host password vhost example: .addvhost *ident@83.43.56.45 pass123 spoof.com Location ot ircd's vhosts.conf - bot must be on the same shell, or have access to it

watch.tcl This script watches users with the !watch command and informs the caller when the user gets online or offline. Usage: !watch add user watch user's status !watch del user stop watching user's status !watch check user check user's status once Enable for a channel with: .chanset #channel +watch Disable for a channel with: .chanset #channel -watch

topic.tcl This script sets the topic in a channel with the !topic command. Additionally, it contains examples of setting a specific topic, e.g., if a stream is online/offline with the !on and !off commands. Usage: !topic topic set topic in channel to topic !on set preconfigured "on" topic in channel !off set preconfigured "off" topic in channel Enable for a channel with: .chanset #channel +topic Disable for a channel with: .chanset #channel -topic

# match.tcl # # This script was originally created to save clan matches in a file, # to show all the saved matches and to be able to remove them from # the file again. But it could be used for storing, showing and # deleting arbitrary lines of text in a file. # # Usage: # !addmatch match add match to the file/list. # !showmatch show the saved matches. # !delmatch number remove match with number (as shown # by !showmatch) from the file/list. # The numbers of remaining matches # might change. # # The command names can be changed in the config section below. # # Enable for a channel with: .chanset #channel +match # Disable for a channel with: .chanset #channel -match # # See https://github.com/hwipl/eggdrop-scripts for the latest version and # additional information including the license (MIT). # tested versions, might run on earlier versions package require Tcl 8.6 package require eggdrop 1.8.4 # Config: namespace eval ::match { # channel flag for enabling/disabling setudef flag match # Name and/or path of the file you want to store the matches in and its # backup file. Channel name will be prepended to file name variable filename "matches.lst" variable filenamebak "matches.lst.bak" # Names of the commands for adding, deleting and showing variable addcommand "!addmatch" variable delcommand "!delmatch" variable showcommand "!showmatch" } # End of Config # this procedure shows the saved matches: proc ::match::show {nick host hand chan arg} { variable filename # check channel flag if enabled in this channel if {![channel get $chan match]} { return 0 } # check if file exists and contains matches set mfile ${chan}.${filename} set nomatches "No matches found." if {![file exists $mfile] || [file size $mfile] == 0} { puthelp "PRIVMSG $chan :$nomatches" return 0 } # read all matches from file if {[catch {open $mfile r} input]} { puthelp "PRIVMSG $nick :Error opening file: $input" return 0 } while {[gets $input line] >= 0} { lappend matches $line } close $input # show each match as a message in the channel puthelp "PRIVMSG $chan :*** Match List ***" for { set i 0 } { $i < [llength $matches] } { incr i } { puthelp "PRIVMSG $chan :([expr $i +1]) [lindex $matches $i]" } puthelp "PRIVMSG $chan :*** End of Match List ***" return 1 } # this procedure deletes saved matches: proc ::match::del {nick host hand chan arg} { variable filename variable filenamebak # check channel flag if enabled in this channel if {![channel get $chan match]} { return 0 } # arg containing the match id must be present if {$arg == ""} { return 0 } # check if file exists and contains matches set mfile ${chan}.${filename} set mfilebak ${chan}.${filenamebak} set noexist "Match does not exist." if {![file exists $mfile] || [file size $mfile] == 0} { puthelp "PRIVMSG $nick :$noexist" return 0 } # read all matches from file if {[catch {open $mfile r} input]} { puthelp "PRIVMSG $nick :Error opening file: $input" return 0 } while {[gets $input line] >= 0} { lappend matches $line } close $input # backup matches file file copy -force $mfile $mfilebak # write matches back to file if {[catch {open $mfile w} output]} { putshelp "PRIVMSG $nick :Error opening file: $output" return 0 } set deleted 0 for { set i 0 } { $i < [llength $matches] } { incr i } { # omit the match that should be deleted if {[expr $i +1] == $arg} { set deleted 1 continue } puts $output "[lindex $matches $i]" } close $output # send result back to caller if {$deleted == 0} { puthelp "PRIVMSG $nick :$noexist" return 0 } puthelp "NOTICE $nick :Match number $arg deleted." return 1 } # this procedure adds matches to the list: proc ::match::add {nick host hand chan arg} { variable filename # check channel flag if enabled in this channel if {![channel get $chan match]} { return 0 } # arg containing the match must be present if {$arg == ""} { return 0 } # write match to file set mfile ${chan}.${filename} if {[catch {open $mfile a} output]} { puthelp "PRIVMSG $nick :Error opening file: $output" return 0 } puts $output "$nick: $arg" close $output puthelp "NOTICE $nick :Match added." return 1 } namespace eval ::match { bind pub - $showcommand ::match::show bind pub - $addcommand ::match::add # bind pub o|o $delcommand ::match::del bind pub - $delcommand ::match::del putlog "Loaded match.tcl" }

maketiny.tcl This script converts URLs into short URLs using https://tinyurl.com's service with the !tinyurl and !tinylast commands. Usage: !tinyurl url create tinyurl for url !tinylast create tinyurl for last url in channel Enable for a channel with: .chanset #channel +maketiny Disable for a channel with: .chanset #channel -maketiny