Page 1 of 1
ikkop.tcl
Posted: Thu Mar 22, 2007 1:40 am
by ikkebra
found this jewel while deleting some ancient archives of files
Code: Select all
###########################################
# ikkop.tcl by bruhv-ahh #
###########################################
# ops ikk in all channels the bot has ops #
###########################################
# a bruhv-ahh.com 'on demand' creation :) #
###########################################
# What channels should this work on?
# "" is for all channels
set ikkchan ""
bind join - * ikkjoin
proc ikkjoin {nick uhost hand chan} {
global ikkchan botnick
if {$nick == $botnick} {return 0}
if {$ikkchan == "" && [botisop $chan]} {
if {[regexp "ikk" $nick] ==1} {
putserv "MODE $chan +o $nick"
}
return 0
}
set chan [string tolower $chan]
foreach i [string tolower $ikkchan] {
if {$i == $chan && [botisop $chan]} {
putserv "MODE $chan +o $nick"
return 0
}
}
}
putlog "\00310* ikkop.tcl by bruhv-ahh loaded\003"
Posted: Thu Mar 22, 2007 1:10 pm
by bruhv
a bruhv-ahh.com 'on demand' creation
actually, that's a terrible bit of tcl, ignoring the fact it ops by part of your nick, if you actually set some channels it doesn't even check the nick, lmao
this should be more like it
Code: Select all
###########################################
# ikkop.tcl by bruhv-ahh #
###########################################
# ops ikk in all channels the bot has ops #
###########################################
# a bruhv-ahh.com 'on demand' creation :) #
###########################################
# What channels should this work on?
# "" is for all channels
set ikkchan ""
bind join - * ikkjoin
proc ikkjoin {nick uhost hand chan} {
global ikkchan botnick
if {$nick == $botnick} {return 0}
if {[regexp "ikk" $nick] ==1} {
if {$ikkchan == "" && [botisop $chan]} {
putserv "MODE $chan +o $nick"
return 0
}
set chan [string tolower $chan]
foreach i [string tolower $ikkchan] {
if {$i == $chan && [botisop $chan]} {
putserv "MODE $chan +o $nick"
return 0
}
}
}
}
putlog "* ikkop.tcl by bruhv-ahh loaded"
time soon to bring orac back from the dead tbh
Posted: Tue Jun 26, 2007 1:37 pm
by Asmodain
bruhv wrote:time soon to bring orac back from the dead tbh
Woot \o/