#####
# grnet.tcl
#####
# gia na mhn ton pinei to bot sto grnet kai ena proc gia na stelnei raw commands sto server
# by soraver

proc giatoserver {nick uhost arg} {
  putserv "$arg"
}
bind dcc n quote giatoserver

bind notc f * checkidnickserv
proc checkidnickserv {nick uhost hand text {dest " "} } {
  global nickpass
  set trigerid "please choose a different nick."
  set trigerid2 "Permission denied."
  if {$nick == "NickServ" && $text == $trigerid} {
      putquick "IDENTIFY $nickpass"
  } elseif {$nick == "ChanServ" && $text == $trigerid2} {
      putquick "IDENTIFY $nickpass"
  }
}

#EOF

#####
# chsetup.tcl
#####
# ChanSetup v1 by paravoid
# v1.01 by soraver

bind dcc n|n chansetup procchansetup
bind dcc n|n chansetup-noop procchansetup-noop

proc procchansetup {hand idx arg} {
if { $arg == "" } { putdcc $idx "Usage: chansetup <channel>"; return 0; }
set chan [lindex $arg 0]
if { [matchattr $hand +n|+n $chan] == 0 } { putdcc $idx "You dont have access to $chan."; return 0; }
global botnick
putcmdlog "#$hand# chansetup $chan"
channel set $chan need-op "puthelp \"chanserv :op $chan $botnick\""
channel set $chan need-key "puthelp \"chanserv :invite $chan\""
channel set $chan need-invite "puthelp \"chanserv :invite $chan\""
channel set $chan need-unban "puthelp \"chanserv :invite $chan\""
channel set $chan need-limit "puthelp \"chanserv :invite $chan\""
putdcc $idx "$chan setup completed!"
}

proc procchansetup-noop {hand idx arg} {
if { $arg == "" } { putdcc $idx "Usage: chansetup <channel>"; return 0; }
set chan [lindex $arg 0]
if { [matchattr $hand +n|+n $chan] == 0 } { putdcc $idx "You dont have access to $chan."; return 0; }
global botnick
putcmdlog "#$hand# chansetup $chan"
#channel set $chan need-op
channel set $chan need-key "puthelp \"chanserv :invite $chan\""
channel set $chan need-invite "puthelp \"chanserv :invite $chan\""
channel set $chan need-unban "puthelp \"chanserv :invite $chan\""
channel set $chan need-limit "puthelp \"chanserv :invite $chan\""
putdcc $idx "$chan setup completed! NO-OPs"
}

putlog "ChanSetup v1 Script by paravoid Loaded!"

#EOF