#!/home/shader/eggdrop

##### BASIC SETTINGS #####
set network "BRlink"
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 #Linux {
}
channel add #LinuxAjuda {
}
channel add #Slackware {
}


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 "EggDrop Oficial do #LinuxAjuda"
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 "darkstar"
set altnick "darkstar_"
set botnet-nick "darkstar"
set identify {
 "darkstar:canalinuxajuda"
}
set username "#LinuxAjuda"
set realnames {
 "BOT do #LinuxAjuda [ admin: corvolino ]"
}
set realname "[lindex $realnames [rand [llength $realnames]]]"

set servers {
irc.hackersbox.com
}

proc evnt:init_server {type} {
  global botnick
  putquick "MODE $botnick +ip-ws"
  putserv "AWAY :lukito - [ admin:corvolino ]"
}

set admin "corvolino" 
set owner "corvolino"
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"}}