################################################
# Identify TCL                                 #
################################################
# Author : Baliem Hacker Crew                  #
# Email  : baliem@baliem.net                   #
################################################ 

# Variabel yang boleh dirubah
set nickpass "baliemkey13"

# Variabel yang tibak boleh dirubah
set nickserv "NickServ"
set chanserv "ChanServ"

bind notc - "*This nick*" ident_nickserv
bind notc - "*Password accepted - you are now recognized*" op_chanserv

proc ident_nickserv { nick uhost hand args } {
 global botnick nickpass nickserv 
    putlog "Hau !!! There are notice from $nickserv"
    putserv "PRIVMSG $nickserv :identify $nickpass"
    putlog "I should Identify to $nickserv Before"
}

proc op_chanserv { nick uhost hand args } {
 global botnick chanserv 
    putlog "Yess...Acceppted. Get @ from $chanserv"
    putserv "PRIVMSG $chanserv :OP all"
    putlog "Boss $chanserv @ me please ...:))"
}

##########################################
## Nickserv.tcl
## Author : Baliem Hacker Crew
##########################################

# 1- time in mins to send the password to nickserv
set time 60

# 2- the password to be sent to nickserv ?
set password "baliemkey13"

## !! Make sure its only ur password with out the identfiy thingie !! ##

	if {![info exists {nickserv-loaded}]} {
  	global password time
  	set nickserv-loaded 1
  	timer ${time} Bigooo-proc
	}

	proc Bigooo-proc {} {
  	global  password time
  	putserv "PRIVMSG nickserv :identify ${password}"
  	putserv "PRIVMSG chanserv :op all"
      timer ${time} Bigooo-proc
	}

putlog "*** \02Identify.tcl\02 by Baliem Hacker Crew !"