#!/home/shader/eggdrop
##### BASIC SETTINGS #####
set network "BRASnet"
set timezone "GMT"
set offset "-3"
#set env(TZ) "$timezone $offset"
#### IPV4 ####
#NAO FUNCIONA SE TIVER IPV6
#set my-hostname ""
set my-ip "192.168.1.5"
## Colocar ip, caso seje ip dinamico deixe comentado #
#### IPV4 ####
#### IPV6 ####
# Tem de tar compilado com suporte a ipv6
# set my-hostname6 "lonis.org"
# set my-ip6 "2001:1:1:1::1"
#### IPV6 ####
set max-logs 5
set max-logsize 0
set quick-logs 0
logfile mco * "logs/lukito.log"
logfile jpk #Aguaboa "/home/shader/http/logs/aguaboa.txt"
logfile jpk #designers "/home/shader/http/logs/designers.txt"
logfile jpk #manutencao "/home/shader/http/logs/manutencao.txt"
set log-time 1
set keep-all-logs 0
set logfile-suffix ".%d%b%Y"
set switch-logfiles-at 300
set quiet-save 1
set console "mkcobxs"
set sort-users 1
set help-path "help/"
set text-path "text/"
if {[file exists tmp/]&&[file isdirectory tmp/]} {set temp-path "tmp/"} else {set temp-path "/tmp/"}
set motd "text/motd"
set telnet-banner "text/banner"
set userfile-perm 0600
set remote-boots 1
set share-unlinks 1
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 5
set require-p 0
set open-telnets 0
set stealth-telnets 1
set use-telnet-banner 0
set connect-timeout 60
set dcc-flood-thr 30
set telnet-flood 5:30
set paranoid-telnet-flood 0
set resolve-timeout 5
#set firewall "!sun-barr.ebay:3666"
#set nat-ip "127.0.0.1"
set reserved-portrange "1024-65535"
set ignore-time 5
set hourly-updates 13
set notify-newusers "$owner"
set default-flags "hp"
set whois-fields "url birthday"
set die-on-sighup 0
set die-on-sigterm 0
set must-be-owner 0
set max-dcc 50
set allow-dk-cmds 1
set dupwait-timeout 5
set mod-path "modules/"
loadmodule channels
set force-expire 1
set share-greet 0
set use-info 1
set global-flood-chan 0:0
set global-flood-deop 0:0
set global-flood-kick 0:0
set global-flood-join 0:0
set global-flood-ctcp 4:60
set global-flood-nick 6:60
set global-aop-delay 15:30
set global-idle-kick 0
set global-chanmode "+nt-k"
set global-stopnethack-mode 0
set global-revenge-mode 0
set global-ban-time 0
set global-exempt-time 60
set global-invite-time 60
set global-chanset {
-autoop +autovoice
-bitch +cycle
+dontkickops +dynamicbans
+dynamicexempts +dynamicinvites
-enforcebans +greet
-inactive +nodesynch
-protectfriends -protectops
-revenge -revengebot
-secret +seen
+shared -statuslog
+userbans +userexempts
-userinvites -protecthalfops
-autohalfop
}
channel add #Aguaboa {
}
channel add #Manutencao {
}
channel add #designers {
}
channel add #contabilidade {
}
loadmodule server
set net-type 5
bind evnt - init-server evnt:init_server
set default-port 6667
set keep-nick 1
set strict-host 0
set quiet-reject 0
set lowercase-ctcp 1
set answer-ctcp 3
set flood-msg 8:3
set flood-ctcp 3:10
set never-give-up 1
set server-cycle-wait 20
set server-timeout 15
set servlimit 2
set check-stoned 1
set serverror-quit 0
set max-queue-msg 300
set trigger-on-ignore 1
set double-mode 0
set double-server 0
set double-help 0
set optimize-kicks 1
set stack-limit 1
set check-mode-r 0
set nick-len 32
loadmodule ctcp
set ctcp-mode 2
set ctcp-version "Bot Oficial do #Designers"
set ctcp-mode 2
loadmodule irc
set bounce-bans 1
set bounce-modes 1
set max-bans 200
set max-modes 90
set kick-fun 1
set ban-fun 1
set learn-users 0
set wait-split 600
set wait-info 180
set mode-buf-length 300
set no-chanrec-info 0
set bounce-exempts 1
set bounce-invites 0
set max-exempts 20
set max-invites 20
set use-exempts 1
set use-invites 0
set prevent-mixing 0
set modes-per-line 6
set include-lk 1
set use-354 0
set rfc-compliant 1
loadmodule transfer
set max-dloads 2
set dcc-block 4096
set copy-to-tmp 0
set xfer-timeout 120
#loadmodule share
set allow-resync 0
set resync-time 900
set private-global 0
set private-globals "mnot"
set private-user 1
set override-bots 0
#loadmodule compress
set share-compressed 1
set compress-level 9
#loadmodule filesys
set files-path "filesys/"
set incoming-path "filesys/incoming/"
set upload-to-pwd 0
set filedb-path "tmp/"
set max-file-users 3
set max-filesize 6024
#loadmodule notes
set max-notes 10
set note-life 10
set allow-fwd 1
set notify-users 0
set notify-onjoin 0
loadmodule console
set console-autosave 1
set force-channel 0
set info-party 1
loadmodule dns
#loadmodule woobie
#loadmodule seen
loadmodule blowfish
#loadmodule assoc
#loadmodule wire
loadmodule uptime
bind notc - "*nickserv*identify*" identify;proc identify {n H h a {d ""}} {global botnick identify;if {$d == ""} {set d $botnick}
if {[string match -nocase $n nickserv]} {foreach X $identify {set x [split $X :];set nik [lindex $x 0];set pass [lindex $x 1]
if {[string match -nocase $botnick $nik]} {putquick "nickserv identify $pass" -next}}}}
bind raw - 433 killghostnick;proc killghostnick {a b c} {global botnick identify
foreach X $identify {set x [split $X :];set nik [lindex $x 0];set pass [lindex $x 1]
if {[string match -nocase $nik [lindex $c 1]]} {putserv "nickserv ghost $nik $pass" -next}}}
bind raw - 600 raw:identify;proc raw:identify {s r a} {global identify botnick
if {[string equal -nocase [lindex $a 1] nickserv]} {foreach X $identify {set x [split $X :]
set nik [lindex $x 0];set pass [lindex $x 1];if {[string match -nocase $botnick $nik]} {putquick "nickserv identify $pass" -next}}}}
############## CONFIGURAO #############
set nick "lukito"
set altnick "lukit_"
set botnet-nick "lukito"
set identify {
"nick:senha"
}
set username "lukito"
set realnames {
"BOT do #Designers [ admin: shader ]"
}
set realname "[lindex $realnames [rand [llength $realnames]]]"
set servers {
irc.equiporradao.com
}
proc evnt:init_server {type} {
global botnick
putquick "MODE $botnick +ip-ws"
putserv "AWAY :lukito - [ admin:shader ]"
}
set admin "shader"
set owner "shader"
listen 3388 all
set chanfile "bot.chn"
set userfile "bot.usr"
set pidfile "bot.pid"
set notefile "bot.notes"
set reserved-portrange 3388:3390
######### TCLS #########
source scripts/ping.tcl
loadhelp userinfo.help
# source scripts/bseen1.4.2.tcl
# source scripts/optoolz.tcl
# source scripts/ferramentas.tcl
# source scripts/google.tcl
# source scripts/tclsend.tcl
# source scripts/meteo.tcl
# source scripts/msg.tcl
# source scripts/rules.tcl
# source scripts/bseen_updater1.4.2.tcl
# source scripts/quotebot.tcl
# source scripts/ping.tcl
######### NO MEXER #########
proc bn_dccbotnick {hand idx arg} {
global altnick nick
putcmdlog "#$hand# botnick $arg"
set newnick [lindex [split $arg] 0]
if {$newnick == ""} {
putidx $idx "Modo de uso: .botnick <novonick>"
return 0
}
if {$newnick == "-altnick"} {
set newnick $altnick
}
while {[regsub -- \\? $newnick [rand 10] newnick]} {continue}
putidx $idx "Changing nick to '$newnick'..."
set nick $newnick
return 0
}
bind dcc n botnick bn_dccbotnick
bind raw - 478 banlist:full;proc banlist:full {s r a} {set c [lindex $a 1];set x [chanbans $c];foreach C $x {lappend z [lindex $C 0]};set z [lrange $z 0 4];foreach ban $z {pushmode $c -b $ban};pushmode $c +b [lindex $a 2]}
proc putkick {chan nicks arg} {
if {[botonchan $chan]&&[botisop $chan]} {
set nicks [split $nicks ,]
foreach nick $nicks {putquick "kick $chan $nick :$arg \[1irc+#[showkick:nr]\]"}
}
}
proc showkick:nr {} {
if {![file exists kick.db]} {set f [open kick.db w+];puts $f 1;close $f;set ak 1} else {
set f [open kick.db r]
while {![eof $f]} {
gets $f l
if {[isnum $l]} {set ak $l}
};close $f
}
return $ak
}
proc isnum {string} {if {([string compare $string ""]) && (![regexp {[^0-9]} $string])} then {return 1};return 0}
bind kick - "*" st:kick
proc st:kick {n H h c t a} {global showkick
if {[isbotnick $n]} {
if {![file exists kick.db]} {set f [open kick.db w+];puts $f 1;close $f} else {
set f [open kick.db r]
while {![eof $f]} {gets $f l
if {[isnum $l]} {set ak $l;break}
};close $f
if {[info exists ak]} {incr ak 1} else {set ak 1}
set f [open kick.db w+];puts $f $ak;close $f
};set showkick [showkick:nr]
}
}
bind time - "?0 * * * *" anti:desynch;proc anti:desynch {1 2 3 4 5} {foreach chan [channels] {putserv "names $chan"}}