Request System

alias sc_topic1 {
  topic $1 1,1..8,8..4,4..0,7 $1 $chr(124) Current DJ: %sc.dj. [ $+ [ $1 ] ]  $chr(124) $1 4,4..0,0..12,12..
}

alias sc_topicoff {
  topic $1 1,1..8,8..4,4..0,7 $1 $chr(124) Current DJ: RequestSystem OFF  $chr(124) $1  4,4..0,0..12,12..
}

on *:text:!setdj*:#: {
  if ($me isop #) {
    if ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) && ($2 ison #) {
      timerdehop 1 1 mode # -hv %sc.dj. [ $+ [ $chan ] ] %sc.dj. [ $+ [ $chan ] ]
      timervop 1 1 mode # +v %sc.dj. [ $+ [ $chan ] ]
      timerup 1 1 msg chanserv up # %sc.dj. [ $+ [ $chan ] ]
      timersetdj1 1 1 msg # $nick $+ , %sc.dj is now ready and wil be taken over by $2 :) | msg #gbc %sc.dj is now ready and wil be taken over by $2 $+ !
      timersetdj2 1 1  set %sc.dj. [ $+ [ $chan ] ] $2
      timertopic 1 2 sc_topic1 $chan
      timermode1 1 2 mode # -qaoh $2 $2 $2 $2
      timermode2 1 2 mode # +h $2
      timermsg1 1 2 msg # $nick $+ , $2 has been set as DJ on # $+ !
      timermsg2 1 2 msg #gbc  $2 has been set as DJ on $chan $+ !
    }
    elseif ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) && ($2 !ison #) { msg # $nick $+ , $2 is not on # }
    else { msg # $nick $+ , 4ErroR You don't have rights on # $+ ! }
  }
  else {
    notice $nick $me has no rights, $me needs atleast @ (ops) to function!
    notice $nick If you give $me ~ (owner) , $+ $me could fully function.
  }
}

on *:text:!unsetdj*:#: {
  if ($me isop #) {
    if ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) && ($2 ishop #) {
      set %sc.dj. [ $+ [ $chan ] ] Non-Stop DJ
      timertopic 1 1 sc_topic1 $chan
      timermode 1 1 mode # -hv $2 $2
      ;timervop 1 1 mode # +v $2
      timerup 1 1 msg chanserv up # $2
      timermsg 1 1 msg # $nick $+ , $2 is no longer DJ on # $+ !
      timermsg 1 1 msg #gbc $nick $+ , $2 is no longer DJ on # $+ !
    }
    elseif ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) && (!$2) {
      msg # %sc.dj. [ $+ [ $chan ] ] is no longer DJ on # $+ !
      msg #gbc %sc.dj. [ $+ [ $chan ] ] is no longer DJ on # $+ !
      timermode 1 1 mode # -hv %sc.dj. [ $+ [ $chan ] ] %sc.dj. [ $+ [ $chan ] ]
      ;timervop 1 1 mode # +v %sc.dj. [ $+ [ $chan ] ]
      timerup 1 1 msg chanserv up # %sc.dj. [ $+ [ $chan ] ]
      timerset 1 2 set %sc.dj. [ $+ [ $chan ] ] Non-Stop DJ
      timertopic 1 2 sc_topic1 $chan
      ;timermsg 1 2 msg %irc.chan,#gbc $2 is nu afgesteld als DJ op %irc.chan $+ !
    }
    elseif ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) && ($2 !ison #) { msg # $nick $+ , $2 is not on # $+ ! }
    else { msg # $nick $+ , You dont have rights on # $+ ! }
  }
  else {
    notice $nick $me has no rights, $me needs atleast @ (ops) to function!
    notice $nick If you give $me ~ (owner) , $+ $me could fully function.
  }
}
on *:text:!request *:#:{ if ($readini(channels.ini,$chan,request) == on) {
    if (%verzoekflood. [ $+ [ $nick ] ] $+ ) {
      notice $nick Please 1 request per 3 minutes :)
      msg #gbc $nick flood with 4!request $2-
      halt
    }
    if (!%verzoekflood. [ $+ [ $nick ] ] $+ ) {
      inc -u180 %verzoekflood. [ $+ [ $nick ] ] {
        if (!$2) {
          msg # $nick $+ , Syntax is: !request  <artist - song>
          halt
        }
        if (%sc.dj. [ $+ [ $chan ] ] == Non-Stop DJ) {
          msg # $nick $+ , Currently playing %sc.dj. [ $+ [ $chan ] ] $+ !
          halt
        }
        if (%sc.dj. [ $+ [ $chan ] ] !ison #) {
          msg # $nick $+ , Sorry %sc.dj. [ $+ [ $chan ] ] is not on # rightnow :(
          halt
        }
        if ($regex($nick($chan,%sc.dj. [ $+ [ $chan ] ] $+ ).pnick,/(!|~|&|@|%)/)) {
          msg # DJ %sc.dj. [ $+ [ $chan ] ] $+ , spin that shit around and turn that request from 4 $nick 1
          msg %sc.dj. [ $+ [ $chan ] ] 4[ReQuest] $2- $+  Requested by 11,1 $+ $nick $+  at 4 $+ $asctime(HH:nn:ss)
          msg #gbc 4[ReQuest] $2- $+  has been requested by 11,1 $+ $nick $+  at 4 $+ $asctime(HH:nn:ss)
          notice $nick Your request 11,1 $2-  is deliverd at %sc.dj. [ $+ [ $chan ] ]
          halt
        }
        else {
          msg # $nick $+ , $2 is not a DJ on #
        }
      }
    }
  }
}

on *:text:!resetverzoek*:#:{
  if ($nick isop #) {
    if (!$2) {
      unset %verzoekflood. [ $+ [ $nick ] ]
      notice $nick Flood resetted
      halt
    }
    if ($2) && (!%verzoekflood. [ $+ [ $2 ] ] $+ ) {
      notice $nick $2 can still do requests
      halt
    }
    if ($2) && (%verzoekflood. [ $+ [ $2 ] ] $+ ) {
      unset %verzoekflood. [ $+ [ $2 ] ]
      notice $nick $2 Flood resetted
      notice $2 $nick has resetted your floodprotection
      halt
    }
  }
  else {
    msg # Sorry $nick $+ , you can't reset floodprotection.
    halt
  }
}

on *:text:!requestsystem*:#: {
  if ($me isop #) {
    if ($regex($nick(#,$nick).pnick,/(!|~|&|@)/)) {
      if ($2 == on || $2 == off) {
        /writeini channels.ini $chan request $2
        /msg # RequestSystem for $chan is: $2
        if ($2 == on) {
          /msg # Now use !setdj nickname to set a DJ. Use !unsetdj to set NONStop .
          /msg # Users now can request by !request artist - titel.
          set %sc.dj. [ $+ [ $chan ] ] Non-Stop DJ
          sc_topic1 $chan
        }
        if ($2 == off) {
          mode # +v %sc.dj. [ $+ [ $chan ] ]
          /msg chanserv up # %sc.dj. [ $+ [ $chan ] ]
          msg # %sc.dj. [ $+ [ $chan ] ] is set off as DJ on # $+ !
          unset %sc.dj. [ $+ [ $chan ] ]
          sc_topicoff $chan
        }
      }
      else { notice $nick Use: !request <on/off>  }
    }
    else { notice $nick Access Denied }
  }
  else {
    notice $nick Request will work if $me has atleast @ (ops)!
  }
}

on *:join:#: {
  if ($me isop #) {
    if ($nick == %sc.dj. [ $+ [ $chan ] ] $+ ) {
      timermode 1 3 mode # -qohv $nick $nick $nick $nick
      timermode2 1 3 mode # +h $nick
    }
    else {
      halt
    }
  }
}