IRC Bot Help

[deadly]

Dono if this belongs here but i wanna use my bot as a dj bot. I want it to have @dj (dj onair) @onair (go on) @offair (go offair) @site (wbsite) @server (the server @skip (skip track) @song (song) @shoutout /@request (requests or shoutsouts) I am a total newby and dono anything I am doing so need a step by step here. I have no clue how to even load this.. Please help me.




Nvm I need to find windrop or winegg w/e it is.

[Dedan]

Try searching the tcl archives
for something close to what you want

[Dedan]

This code could do some of the easy stuff for you:

Code: Select all

set dj_mode 1
set dj_site "www.way.cool.tunes.com"
# the flag "-|-" allows ALL users to use the commands
# using the flag "o" will allow ONLY users with th o flag

bind pub -|- @dj dj:mode

proc dj:mode {nick uhost handle channel text} {
  global botnick dj_mode
  set chan [string tolower $channel]
  if {$dj_mode == 0} {puthelp "PRIVMSG $chan :dj is OFF the Air"}
  #   if {$dj_mode == 0} {puthelp "PRIVMSG $nick :dj is OFF the Air"}
  if {$dj_mode == 1} {puthelp "PRIVMSG $chan :dj is ON the Air"}
  return 0
}

bind pub o @onair dj:on

proc dj:on {nick uhost handle channel text} {
  global botnick dj_mode
  # if {![botisop $chan] || [isop $nick $chan]} {return 0}
  set chan [string tolower $channel]
  set dj_mode 1
  puthelp "PRIVMSG $chan :dj is ON the Air"
  return 0
}

bind pub o @offair dj:off

proc dj:off {nick uhost handle channel text} {
  global botnick dj_mode
  set chan [string tolower $channel]
  set dj_mode 0
  puthelp "PRIVMSG $chan :dj is OFF the Air"
  return 0
}

bind pub -|- @site dj:site

proc dj:site {nick uhost handle channel text} {
  global botnick dj_mode dj_site
  if {$dj_mode == 0} {return 0}
  set chan [string tolower $channel]
  puthelp "PRIVMSG $chan :dj's website is $dj_site"
  return 0
}