ikkop.tcl

[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"

[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

[Asmodain]

time soon to bring orac back from the dead tbh

Woot \o/