All pastes #735683 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-10-13 20:56 UTC
rendered paste body

alias checkon if ($server == $null) { beep 1 | echo -- [Serviços] Você não está conectado. | halt }
alias memosend { dialog -m memo memo }

menu menubar,status,channel,query {
  Serviços
  .&Chanserv
  ..&Registo e Identificação
  ...Identificar-se:{ checkon | chanserv identify $$?="Digite o canal:" $$?="Digite a Password:" }
  ...-
  ...Registar:{ checkon | chanserv register $$?="Digite o canal:" $$?="Digite a Password:" $$?="Descrição do canal:" }
  ...Desregistar:{ checkon | chanserv drop $$?="Digite o canal:" $$?="Digite a Password:" }
  ....-
  ...Ajuda:{ checkon | chanserv help register }
  ..-
  ..Informação:{ checkon | chanserv info $$?="Digite o canal:" }
  ..-
  ..&Remover
  ...&Remover bane:{ checkon | chanserv unban $$?="Digite o canal:" }
  ...-
  ...&Remover todos os Bans:{ checkon | chanserv clear $$?="Digite o canal:" bans }
  ...&Remover todos os Modos:{ checkon | chanserv clear $$?="Digite o canal:" modes }
  ...-
  ...Tirar &OP a todos:{ checkon | chanserv clear $$?="Digite o canal:" ops }
  ...Tirar &Voice a todos:{ checkon | chanserv clear $$?="Digite o canal:" voices }
  ...-
  ...Kickar todos do canal:{ checkon | chanserv clear $$?="Digite o canal:" users }
  ..-
  ..&Opções
  ...Bloquear Modos:{ checkon | chanserv set $$?="Digite o canal: mlock $$?="Digite os modos: (ex.: +nt-smklip)" }
  ...Mudar Founder:{ checkon | chanserv set $$?="Digite o canal:" founder $$?="Digite o nick do novo Founder:" }
  ...Mudar Password:{ checkon | chanserv set $$?="Digite o canal:" password $$?="Digite a nova Password:" }
  ...Mudar Descrição:{ checkon | chanserv set $$?="Digite o canal:" desc $$?="Digite a descrição:" }
  ...Mudar Tópico:{ checkon | chanserv set $$?="Digite o canal:" topic $$?="Digite o novo tópico:" }
  ...Definir Url:{ checkon | chanserv set $$?="Digite o canal:" url $$?="Digite o endereço da página do canal:" }
  ...Definir E-mail:{ checkon | chanserv set $$?="Digite o canal:" email $$?="Digite o endereço de email do canal:" }
  ...Definir Msg Entrada:{ checkon | chanserv set $$?="Digite o canal:" onjoinmsg $$?="Digite a mensagem de entrada do canal:" }
  ...-
  ...Canal Seguro
  ....On:{ checkon | chanserv set $$?="Digite o canal:" secure on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" secure off }
  ....-
  ....Ajuda:{ checkon | chanserv help set secure }
  ...Manter Tópico
  ....On:{ checkon | chanserv set $$?="Digite o canal:" keeptopic on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" keeptopic off }
  ....-
  ....Ajuda:{ checkon | chanserv help set keeptopic }
  ...Adultos
  ....On:{ checkon | chanserv set $$?="Digite o canal:" adult on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" adult off }
  ....-
  ....Ajuda:{ checkon | chanserv help set adult }
  ...Bloquear Tópico
  ....On:{ checkon | chanserv set $$?="Digite o canal:" topiclock on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" topiclock off }
  ....-
  ....Ajuda:{ checkon | chanserv help set topiclock }
  ...Nicks Confirmados
  ....On:{ checkon | chanserv set $$?="Digite o canal:" confirmednicks on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" confirmednicks off }
  ....-
  ....Ajuda:{ checkon | chanserv help set confirmednicks }
  ...Restrito
  ....On:{ checkon | chanserv set $$?="Digite o canal:" restricted on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" restricted off }
  ....-
  ....Ajuda:{ checkon | chanserv help set restricted }
  ...Privado
  ....On:{ checkon | chanserv set $$?="Digite o canal:" private on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" private off }
  ....-
  ....Ajuda:{ checkon | chanserv help set private }
  ...Publicidade
  ....On:{ checkon | chanserv set $$?="Digite o canal:" pubchan on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" pubchan off }
  ....-
  ....Ajuda:{ checkon | chanserv help set pubchan }
  ...OP's Seguros
  ....On:{ checkon | chanserv set $$?="Digite o canal:" secureops on }
  ....Off:{ checkon | chanserv set $$?="Digite o canal:" secureops off }
  ....-
  ....Ajuda:{ checkon | chanserv help set secureops }
  ..-
  ..Acesso
  ...Listar:{ checkon | chanserv access $$?="Digite o canal:" list }
  ...-
  ...Adicionar
  ....Auto Voice:{ checkon | chanserv access $$?="Digite o canal:" add $$?="Digite o nick:" 3 }
  ....Auto Op:{ checkon | chanserv access $$?="Digite o canal:" add $$?="Digite o nick:" 5 }
  ....Master:{ checkon | chanserv access $$?="Digite o canal:" add $$?="Digite o nick:" 10 }
  ....-
  ....Outro nível:{ checkon | chanserv access $$?="Digite o canal:" add $$?="Digite o nick:" $$?="Digite o nível:" }
  ...Remover:{ checkon | chanserv access $$?="Digite o canal:" del $$?="Digite o nick:" }
  ...-
  ...Ajuda:{ checkon | chanserv help access }
  ..Akick
  ...Listar:{ checkon | chanserv akick $$?="Digite o canal:" list }
  ...-
  ...Adicionar:{ checkon | chanserv akick $$?="Digite o canal:" add $$?="Digite a máscara ou nick:" $?="Digite o motivo:" }
  ...Remover:{ checkon | chanserv akick $$?="Digite o canal:" del $$?="Digite a máscara ou nick:" }
  ...-
  ...Ajuda:{ checkon | chanserv help akick }
  ..-
  ..Levels
  ...Listar:{ checkon | chanserv levels $$?="Digite o canal:" list }
  ...-
  ...Definir
  ....AUTOOP:{ checkon | chanserv levels $$?="Digite o canal:" set AUTOOP $$?="Digite o nível" }
  ....AUTOVOICE:{ checkon | chanserv levels $$?="Digite o canal:" set AUTOVOICE $$?="Digite o nível" }
  ....AUTODEOP:{ checkon | chanserv levels $$?="Digite o canal:" set AUTODEOP $$?="Digite o nível" }
  ....NOJOIN:{ checkon | chanserv levels $$?="Digite o canal:" set NOJOIN $$?="Digite o nível" }
  ....INVITE:{ checkon | chanserv levels $$?="Digite o canal:" set INVITE $$?="Digite o nível" }
  ....AKICK:{ checkon | chanserv levels $$?="Digite o canal:" set AKICK $$?="Digite o nível" }
  ....SET:{ checkon | chanserv levels $$?="Digite o canal:" set SET $$?="Digite o nível" }
  ....CLEAR:{ checkon | chanserv levels $$?="Digite o canal:" set CLEAR $$?="Digite o nível" }
  ....UNBAN:{ checkon | chanserv levels $$?="Digite o canal:" set UNBAN $$?="Digite o nível" }
  ....OPDEOP:{ checkon | chanserv levels $$?="Digite o canal:" set OPDEOP $$?="Digite o nível" }
  ....ACC-LIST:{ checkon | chanserv levels $$?="Digite o canal:" set ACC-LIST $$?="Digite o nível" }
  ....ACC-CHANGE:{ checkon | chanserv levels $$?="Digite o canal:" set ACC-CHANGE $$?="Digite o nível" }
  ....MEMO_READ:{ checkon | chanserv levels $$?="Digite o canal:" set MEMO_READ $$?="Digite o nível" }
  ....MEMO_SEND:{ checkon | chanserv levels $$?="Digite o canal:" set MEMO_SEND $$?="Digite o nível" }
  ....MEMO_DEL:{ checkon | chanserv levels $$?="Digite o canal:" set MEMO_DEL $$?="Digite o nível" }
  ...Resetar:{ checkon | chanserv levels $$?="Digite o canal:" reset }
  ...-
  ...Ajuda:{ checkon | chanserv help levels }
  .&Nickserv
  ..&Registo e Identificação
  ...Identificar-se:{ checkon | nickserv identify $$?="Digite a Password:" }
  ...-
  ...Registar:{ checkon | nickserv register $$?="Digite a Password:" $$?="Digite o seu Email:" }
  ...Confirmar registo:{ checkon | nickserv confirm $$?="Digite a Password Extra:" }
  ...Desregistar:{ checkon | nickserv drop $$?="Digite a Password Extra:" }
  ...-
  ...Ajuda:{ checkon | nickserv help register }
  ..-
  ..&Opções
  ...Mudar password:{ checkon | nickserv set password $$?="Digite a nova Password:" }
  ...-
  ...Definir E-mail:{ checkon | nickserv set email $$?="Digite o seu e-mail:" }
  ...Definir Url:{ checkon | nickserv set url $$?="Digite o url:" }
  ...Definir Pemail:{ checkon | nickserv set pemail $$?="Digite o seu e-mail:" $$?="Digite a Password Extra:" }
  ..-
  ..Login:{ checkon | nickserv login $$?="Digite o seu nick:" $$?="Digite a sua Password:" }
  ..Ghost:{ checkon | nickserv ghost $$?="Digite o seu nick:" $$?="Digite a sua Password:" }
  ..Informação:{ checkon | nickserv info $$?="Digite o nick:" }
  ..-
  ..&Segurança
  ...Adulto
  ....On:{ checkon | nickserv set adult on }
  ....Off:{ checkon | nickserv set adult off }
  ....-
  ....Ajuda:{ checkon | nickserv help set adult }
  ...&Privado
  ....On:{ checkon | nickserv set private on }
  ....Off:{ checkon | nickserv set private off }
  ....-
  ....Ajuda:{ checkon | nickserv help set private }
  ..-
  ..Recuperar
  ...Recuperar nick:{ checkon | nickserv getnick $$?="Digite o seu nick:" $$?="Digite a sua Password Extra:" }
  ...-
  ...Password:{ checkon | nickserv emailpass $$?="Digite o seu nick:" $$?="Digite a sua Password Extra:" }
  ...Password Extra:{ checkon | nickserv emailepass $$?="Digite o seu nick:" $$?="Digite a sua Password:" }
  ..-
  ..Ajuda:{ checkon | nickserv help }
  .&MemoServ
  ..Listar:{ checkon | memoserv list }
  ..-
  ..Mandar memo:{ checkon | memosend }
  ..&Ler memo
  ...Memo 1:{ checkon | memoserv read 1 }
  ...Memo 2:{ checkon | memoserv read 2 }
  ...Memo 3:{ checkon | memoserv read 3 }
  ...Memo 4:{ checkon | memoserv read 4 }
  ...-
  ...Outro:{ checkon | memoserv read $$?="Número do memo:" }
  ...-
  ...Último memo:{ checkon | memoserv read last }
  ...-
  ..&Apagar memo
  ...Memo 1:{ checkon | memoserv del 1 }
  ...Memo 2:{ checkon | memoserv del 2 }
  ...Memo 3:{ checkon | memoserv del 3 }
  ...Memo 4:{ checkon | memoserv del 4 }
  ...-
  ...Outro:{ checkon | memoserv del $$?="Número do memo:" }
  ...-
  ...Apagar todos:{ checkon | memoserv del all }
  ..-
  ..&Ajuda:{ checkon | memoserv help }
}
dialog memo {
  title "Enviar memo"
  size -1 -1 233 190
  button "Enviar", 1, 59 164 75 20, ok
  text "Nick:", 2, 20 7 26 13
  edit "", 3, 48 5 174 19, autohs
  text "Memo:", 4, 7 31 36 16, right
  edit "", 5, 48 29 174 127, multi, return, vsbar
  button "Cancelar", 9, 141 164 75 20,cancel
}
on 1:dialog:memo:sclick:1:{
  if !$did(3) { var %aviso = $input(Nick não informado.,oi,Aviso) | halt }
  if !$did(5) { var %aviso = $input(Memo não informado.,oi,Aviso) | halt }
  var %tmp = 1
  var %tmp2 = $did(5).lines
  var %memo = ""
  while (%tmp <= %tmp2) {
    %memo = %memo $chr(32) $+ $did(5,%tmp)
    inc %tmp
  }
  memoserv send $did(3) %memo
  unset %memo.*
}