;services QuakeNet
;schan abmnovt 1 +f
;snick 1 +
; based on the faq based on Q version 3.44 compiled Mar 13 1999
; menus made by Pinter aka Stealz
alias _service.QuakeNet.command { return ERR_notimplemented }
#service.QuakeNet off
alias _servicenet { return QuakeNet }
alias -l _ß1 {
  unset %ßs.*
  if ($chan) {
    %ßs.isrc = $_schan(%.network,$chan)
    %ßs.pass = $_schan(%.network,$chan,pass)
    %ßs.level = $_schan(%.network,$chan,level)
  }
}
alias -l _ß2 { unset %ßs.* }
alias -l _ßß {
  if (%ßs.level == $null) || ($1 == $null) || ($1 isincs %ßs.level) { return $2- }
}
#service.QuakeNet end
;
;;
;
; /msgq [command]
;
alias msgq {
  if ($server == $null) {
    error.a You are not connected
    return
  }
  _network 0
  var %title,%bot = Q,%chanpass,%i = 1,%n = $numtok(%.netbots,32)
  if ($istok(%.netbots,%bot,32) == $false) { %bot = $gettok(%.netbots,1,32) }
  if (%bot == $null) {
    error.a No bots!
    return
  }
  %title = %.network %bot [/msgq]
  tokenize 32 $upper($_parameter($1,1,%title,1,help,Command:)) $2-
  if ($istok(hello requestpassword email auth ident help showcommands whaomi newpass whois version op voice,$1,32)) {  }
  else {
    tokenize 32 $1 $_parameter($iif($_ischan($2),#$2,$chan),1,%title,ischan,$chan(1),Channel:) $iif($_ischan($2),$3-,$2-)
    if ($3- == $null) { tokenize 32 $1-2 }
    %title = %title ( $+ $2 $+ )
    %chanpass = $_schan(%.network,$2,pass)
  }
  if ($1 == help) {  }
  elseif ($1 == hello) {  }
  elseif ($1 == requestpassword) { tokenize 32 $1 $_parameterpass($2,1,%title,1,$null,Enter your password:) }
  elseif ($1 == email) { tokenize 32 $1 $_parameterpass($2,1,%title,1,$null,Enter your E-Mail adress<CRLF>[may be used for password retrieving]) }
  elseif ($1 == auth) {
    tokenize 32 $1 $_parameter($2,1,%title,1,$me,Your name:) $3-
    tokenize 32 $1-2 $_parameterpass($iif($3 != $null,$3,$_snick(%.network,$2,pass)),1,%title,1,$null,Password for [ $2 ] :)
  }
  elseif ($1 == ident) {  }
  elseif ($1 == showcommands) {  }
  elseif ($1 == whoami) {  }
  elseif ($1 == newpass) {
    var %newpass = $_parameterpass($3,1,%title,1,$null,New password:)
    tokenize 32 $1 %newpass %newpass
  }
  elseif ($1 == whois) { tokenize 32 $1 $_parameter($2,1,%title,1,$_activequery,Whois:) }
  elseif ($1 == version) { }
  elseif ($1 == op) { }
  elseif ($1 == voice) { }
  else {
    if ($1 == adduser) { tokenize 32 $1-2 $_parameter($3,1,%title,1,$_activequery,Adduser nick|#nick|#idnick:) }
    elseif ($1 == autolimit) { tokenize 32 $1-2 $round($_parameter($3,1,%title,isint,$chan($2).limit,AutoLimit for [ $2 ] :<CRLF>[Channel-limit [+c] must be on]),0) }
    elseif ($1 == ban) { tokenize 32 $1-2 $_parameter($3,1,%title,1,$null,Hostmask to ban:) }
    elseif ($1 == banlist) {  }
    elseif ($1 == bandel) { tokenize 32 $1-2 $_parameter($3,1,%title,1,$null,Hostmask or #idban to unban:) }
    elseif ($1 == banclear) {  }
    elseif ($1 == chanflags) {
      ;;; tokenize 32 $1-2 $_parameter($3,0,%title,1,$null,Enter +-flags (b=bitch;f=forcetopic;k=forcekey;l=forcelimit;p=protectopers;w=welcome message):<CRLF>[Blank or cancel to view modes])
    }
    elseif ($1 == chanlev) || ($1 == chattr) {  }
    elseif ($1 == clearchan) {  }
    elseif ($1 == deopall) {  }
    elseif ($1 == key) { tokenize 32 $1-2 $_parameterpass($3,1,%title,1,$chan($2).key,Key for [ $2 ] :) }
    elseif ($1 == limit) { tokenize 32 $1-2 $round($_parameter($3,1,%title,isint,$chan($2).limit,Limit for [ $2 ] :<CRLF>[Force limit [+l] must be on]),0) }
    elseif ($1 == removeuser) { tokenize 32 $1-2 $_parameter($3,1,%title,1,$_activequery,Removeuser nick|#nick|#idnick:) }
    elseif ($1 == settopic) { tokenize 32 $1-2 $_parameter($3-,1,%title,normal,$chan($2).topic,Topic for [ $2 ] :) }
    elseif ($1 == unbanall) {  }
    elseif ($1 == welcome) {  }
  }
  _msgquakenetq %bot $$1-
}
alias _msgquakenetq {
  .quote privmsg Q : $+ $$2-
  if ($show) { lechol.a $colour(info) $^service($upper($1),$2-) }
}
alias -l _qmenubot {
  var %i = 1,%n = $numtok(%.netbots,32)
  while (%i <= %n) {
    if ($gettok(%.netbots,%i,32) ison $chan) { return $ifmatch }
    inc %i
  }
}
menu channel {
  $iif($_qmenubot,QuakeNet)
  .Personal commands
  ..Register:msgq hello
  ..Request password:msgq requestpassword
  ..-
  ..Who am I:msgq whoami
  ..auth:msgq auth
  ..Set E-Mail:msgq email
  ..Change password:msgq newpass
  ..-
  ..Op me:msgq op
  ..Voice me:msgq voice
  ..Invite me:msgq invite $?="Enter the channel you want to be invited to:"
  .Channel Commands
  ..Chanflags
  ...Show Chanflags:/msgq Chanflags $chan
  ...-
  ...+b (Strictops/bitchmode):msgq chanflags $chan +b
  ...-b (No strictops/bitchmode):msgq chanflags $chan -b
  ...+c (Channel-Limit to prevend join floods):msgq chanflags $chan +c
  ...-c (No channel Limit):msgq chanflags $chan -c
  ...+f (Force Topic):msgq chanflags $chan +f
  ...-f (No forced topic):msgq chanflags $chan -f
  ...+k (Force key):msgq chanflags $chan +k
  ...-k (no forced key):msgq chanflags $chan -k
  ...+l (Force channel Limit):msgq chanflags $chan +l
  ...-l (Don't force limit):msgq chanflags $chan -l
  ...+p (Protect ops):msgq chanflags $chan +p
  ...-p (Don't protect ops):msgq chanflags $chan -p
  ...+w (welcome message):msgq chanflags $chan +w
  ...-w (no welcome message):msgq chanflags $chan -w
  ...+t (Save topic - for Service restarting purposes):msgq chanflags $chan +t
  ...-t (Don't save topic):msgq chanflags $chan -t
  ...-
  ...Misc modes:msgq chanflags $chan $?="Enter the modes: $crlf $+ (Modes are b,c,f,k,l,p,t,w)"
  ..Channel Settings
  ...Key:msgq key $chan
  ...Autolimit:msgq autolimit $chan
  ...Limit:msgq limit $chan
  ...Welcome message:msgq welcome $chan $?="Enter the channel welcome message $crlf $+ (Welcome (+w) must be on)"
  ...Default topic:msgq settopic $chan $?="Enter the topic for the channel"
  ..Other commands
  ...Auth history:msgq authhistory $chan
  ...Banlist:msgq banlist $chan
  ...Delete a ban:msgq bandel $chan $?="Enter hostmask or #number of the ban to remove:"
  ...-
  ...Clear channel modes:msgq clearchan $chan
  ...Deop all users:msgq deopall $chan
  ...Clear all temp. bans:msgq unbanall $chan
  ...Clear ALL bans (use carefully):{
    if ($!="Really clear all bans?" == $true) { .msg $_qmenubot banclear $chan }
  }
  ...
  .Q help
  ..Website:/run http://www.quakenet.eu.org/guide/
  ..Quakenet questions:/join #FEDS
  ..Bot version:msgq version
  ..List commands:msgq SHOWCOMMANDS
  ..Help to a specific command:msgq help $?="Enter the command you want to get help for"
}
menu nicklist {
  $iif($_qmenubot,QuakeNet)
  .User Info
  ..Whois:/msgq whois $1
  ..Chanlev:/msgq chanlev $chan $1
  .User actions
  ..Add user:/msgq adduser $chan $1
  ..Remove user:/msgq removeuser $chan $1
  ..Ban user:/msgq ban $chan $_address($1,%_masknorm)
  ..Unban user:/msgq bandel $chan $_address($1,%_masknorm)
  .Channel Level
  ..View chanlev:/msgq chanlev $chan $1
  ..-
  ..Quickadd autoop (+aot):/msgq chanlev $chan $1 +aot
  ..Quickadd autovoice (+av):/msgq chanlev $chan $1 +av
  ..Quickly remove flags (-all except banned):/msgq chanlev $chan $1 -amnotv
  ..-
  ..+a (Autoop/-voice):/msgq chanlev $chan $1 +a
  ..-a (No autoop/-voice):/msgq chanlev $chan $1 -a
  ..+b (Banned):/msgq chanlev $chan $1 +b
  ..-b (Unbanned):/msgq chanlev $chan $1 -b
  ..+m (Chanmaster):/msgq chanlev $chan $1 +m
  ..-m (Remove Chanmaster):/msgq chanlev $chan $1 -m
  ..+n (Chanowner):/msgq chanlev $chan $1 +n
  ..-n (Remove Chanowner):/msgq chanlev $chan $1 -n
  ..+o (Chanop):/msgq chanlev $chan $1 +o
  ..-o (Remove Chanop):/msgq chanlev $chan $1 -o
  ..+t (Can set default/forced topic):/msgq chanlev $chan $1 +t
  ..-t (Can't set default/forced topic):/msgq chanlev $chan $1 -t
  ..+v (Chanvoice):/msgq chanlev $chan $1 +v
  ..-v (Remove Chanvoice):/msgq chanlev $chan $1 -v
  ..-
  ..Add/Remove misc Chanlevs:/msgq chanlev $chan $1 $?="Enter the levels: $crlf $+ (Levels are a,b,m,n,o,t,v)"
  .Q help
  ..Website:/run http://www.quakenet.eu.org/guide/
  ..Quakenet questions:/join #FEDS
  ..Bot version:msgq version
  ..List commands:msgq SHOWCOMMANDS
  ..Help to a specific command:msgq help $?="Enter the command you want to get help for"
}