Anonymous

dialog pegasus {
  title "projeto pegasus"
  size -1 -1 210 100
  option dbu
  tab "user", 20, 5 7 190 80
  box "projeto pegasus:", 2, 2 2 201 95, tab 20 
  text "Projeto pegasus", 3, 158 90 80 10, tab 20
  edit "", 4, 55 35 30 10, autohs tab 20
  text "digite o nick:", 5, 55 25 45 10, tab 20
  text "digite o motivo:", 12, 90 25 45 10, tab 20
  radio "kickar", 6, 12 45 30 10, tab 20
  radio "kikar/banir", 7, 12 55 30 10, tab 20
  edit "", 8, 8 35 30 10, autohs tab 20
  text "digite a sala:", 9, 8 25 45 10, tab 20
  button "kikar", 10, 8 70 30 10, tab 20
  button "kikar/banir", 11, 8 70 30 10, tab 20
  edit "", 13, 90 35 45 10, tab 20
  radio "op", 14, 55 45 21 10, tab 20
  button "op", 15, 8 70 30 10, tab 20
  radio "deop", 16, 55 55 25 10,tab 20
  button "deop", 17, 8 70 30 10, tab 20
  radio "kick/ban/temporário", 18, 80 45 70 10, tab 20
  text "tempo em minutos:", 19, 135 25 50 10, tab 20
  edit "", 30, 140 35 30 10, tab 20
  button "kick/ban/temporario", 31, 8 70 70 10, tab 20
  radio "quiet", 32, 80 55 30 10, tab 20
  button "quiet", 33, 8 70 30 10, tab 20
  button "?", 100, 147 75 30 10, tab 20
  radio "voice", 201, 110 55 30 10, tab 20
  button "voice", 202, 8 70 30 10, tab 20 
  radio "devoice", 203, 140 55 30 10, tab 20
  button "devoice", 204, 8 70 30 10, tab 20
  radio "default", 205, 110 73 30 10, tab 20
  tab "shitlist", 21
  box "projeto pegasus:", 40, 2 2 201 95, tab 21 
  text "Projeto pegasus", 41, 158 90 80 10, tab 21
  text "digite um nick:", 42, 8 25 45 10, tab 21
  edit "", 43, 8 35 30 10, autohs tab 21
  button "add", 44, 40 35 30 10, tab 21
  button "del", 45, 70 35 30 10, tab 21
  edit "", 46, 8 48 100 37, hsbar vsbar read multi tab 21
  button "lista", 47, 110 50 30 10, tab 21
  button "limpar", 48, 110 61 30 10, tab 21
  button "?", 101, 147 75 30 10, tab 21
  tab "friendlist", 22
  box "projeto pegasus:", 49, 2 2 201 95, tab 22 
  text "Projeto pegasus", 50, 158 90 80 10, tab 22
  text "digite um nick:", 51, 8 25 45 10, tab 22
  edit "", 52, 8 35 30 10, autohs tab 22
  button "add", 53, 40 35 30 10, tab 22
  button "del", 54, 70 35 30 10, tab 22
  edit "", 55, 8 48 100 37, hsbar vsbar read multi tab 22
  button "lista", 56, 110 50 30 10, tab 22
  button "limpar", 57, 110 61 30 10, tab 22
  button "?", 102, 147 75 30 10, tab 22
  tab "modes", 23
  box "projeto pegasus:", 60, 2 2 201 95, tab 23 
  text "Projeto pegasus", 61, 158 90 80 10, tab 23
  edit "", 62, 8 35 30 10, autohs tab 23
  text "digite a sala:", 63, 8 25 45 10, tab 23
  edit "", 64, 50 35 30 10, tab 23
  text "digite os modos:", 65, 50 25 50 10, tab 23
  button "aplicar", 66, 8 65 30 10, tab 23
  button "modos", 67, 50 65 30 10, tab 23
  button "clear", 68, 80 65 30 10, tab 23
  edit "", 69, 100 35  30 10, tab 23
  text "digite a senha:" 70, 100 25 50 10, tab 23
  text "digite o limite:" 71, 100 25 50 10, tab 23
  radio "+l" 72, 100 50 15 10, tab 23
  button "aplicar" 73, 8 65 30 10, tab 23
  radio "+k", 74, 120 50 15 10, tab 23
  button "aplicar" 75, 8 65 30 10, tab 23
  radio "default", 76, 145 50 50 10, tab 23
  tab "seen", 24
  text "digite um nick:", 77, 8 25 45 10, tab 24
  edit "", 78, 8 35 30 10, autohs tab 24
  button "seen", 79, 40 35 30 10, tab 24
  edit "", 80, 8 48 147 37, vsbar hsbar read multi tab 24
  button "limpar", 81, 156 75 30 10, tab 24
  tab "informaçoes", 25
  text "Projeto pegasus", 300, 158 90 80 10, tab 25
  box "projeto pegasus:", 301, 2 2 201 95, tab 25
  edit "", 302, 10 25 170 60, multi read tab 25
}
alias pegasus { dialog -m pegasus pegasus }
on *:dialog:pegasus:sclick:*:{ 
  if ( $did == 6 ) { /did -h pegasus 11,15,17,19,30,31,33,202,204 | /did -v pegasus 4,10,5,13,12,8 } 
  if ( $did == 7 ) { /did -h pegasus 10,15,17,19,30,31,33,202,204 | /did -v pegasus 11,4,5,10,13,12,8 } 
  if ( $did == 10 ) { /kick $eval( $did( pegasus, 8)text) $eval( $did( pegasus, 4)text) $eval( $did( pegasus, 13)text) }
  set %chan.pegasus $eval( $did( pegasus,8)text)
  set %nick.pegasus $eval( $did( pegasus,4)text)
  if ( $did == 11 ) { /kb $eval( $did( pegasus, 8)text) $eval( $did( pegasus, 4)text) }
  if ( $did == 14 ) { /did -h pegasus 11,10,12,13,17,19,30,31,33,202,204 | /did -v pegasus 4,15,5 }
  if ( $did == 15 ) { /chanserv op $eval( $did( pegasus, 8)text) $eval( $did( pegasus, 4)text) }
  if ( $did == 16 ) { /did -h pegasus 10,11,12,13,15,19,30,31,33,202,204 | /did -v pegasus 4,5,8,17 }
  if ( $did == 17 ) { /chanserv deop $eval( $did( pegasus, 8)text) $eval( $did( pegasus, 4)text) }
  if ( $did == 18 ) { /did -h pegasus 10,11,12,13,15,17,33,202,204 | /did -v pegasus 4,5,8,19,30,31 }
  if ( $did == 31 ) { /ban -u $+ $eval( $calc( $did( pegasus, 30)*60)text) %chan.pegasus %nick.pegasus 3 | /kick %chan.pegasus %nick.pegasus você esta banido por $eval( $calc( $did( pegasus, 30)text)) minuto(s) }
  set %time.pegasus $eval( $calc( $did( pegasus, 30)*60)text)
  if ( $did == 32 ) { /did -h pegasus 10,11,12,13,15,17,31,202,204 | /did -v pegasus 4,5,19,30,33 } 
  if ( $did == 33 ) { /mode %chan.pegasus + $+ b ~ $+ q $+ : $+ %nick.pegasus | /mode %chan.pegasus + $+ b ~ $+ n $+ : $+ %nick.pegasus | /timer 1 %time.pegasus /mode %chan.pegasus - $+ b ~ $+ q $+ : $+ %nick.pegasus | /timer 1 %time.pegasus /mode %chan.pegasus - $+ b ~ $+ n $+ : $+ %nick.pegasus }
  if ( $did == 44 ) { /auser shited $did(43)text) | /did -ar pegasus 46 Foi adicionado " $+ $did(43)text $+ " a lista negra | write slist.txt $did(43)text) adicionado a lista negra em $date(dd/mm/yy) ás $time(hh:nn:ss tt) }
  set %nicks $did(43)text
  if (( $did == 44 ) && ( %nicks == chuck_norris )) { /did -ar pegasus 46 você nao pode add chuck_norris pq chuck norris tem voce na shitlist dele se tentar de novo vai levar um roundhouse kick }
  if ( $did == 45 ) { /ruser $eval( $did( pegasus, 43)text) | /did -ar pegasus 46 Foi removido " $+ $eval( $did( pegasus, 43)text) $+ " da lista negra | write -ds $eval( $did( pegasus, 43)text) slist.txt }
  if ( $did == 47 ) { /did -ar pegasus 46 | /loadbuf -o pegasus 46 slist.txt }
  if ( $did == 48 ) { write -c slist.txt | /did -ar pegasus 43 | /did -ar pegasus 46 lista negra apagada com sucesso }
  if ( $did == 53 ) { write flist.txt $did(52)text | /did -ar pegasus 55 Foi adicionado " $+ $did(52)text $+ " a lista de amigos }
  if ( $did == 54 ) { write -ds $eval( $did( pegasus, 52)text) flist.txt | /did -ar pegasus 55 Foi removido " $+ $eval( $did( pegasus, 52)text) $+ " da lista de amigos }
  if ( $did == 56 ) { /did -ar pegasus 55 | /loadbuf -o pegasus 55 flist.txt }
  if ( $did == 57 ) { write -c flist.txt | /did -ar pegasus 52 | /did -ar pegasus 55 lista de amigos apagada com sucesso }
  if ( $did == 100 ) { //run userinfo.txt }
  if ( $did == 101 ) { //run slistinfo.txt }
  if ( $did == 102 ) { //run flistinfo.txt }
  if ( $did == 67 ) { /cmodes }
  if ( $did == 68 ) { /clear $active | /did -h pegasus 69,70,71,73,75 | /did -u pegasus 72,74 | /did -v pegasus 64,65,66 | /mode $active -sntTCMmnNRlLpAOuViSckK - $+ $did(69)text }
  if ( $did == 66 ) { /mode $did(62)text $did(64)text }
  if ( $did == 72 ) { /did -h pegasus 64,65,66,70,75 | /did -v pegasus 69,71,73 | /did -ar pegasus 69 }
  if ( $did == 73 ) { /mode $did(62)text $did(64)text + $+ l $did(69)text }
  if ( $did == 74 ) { /did -h pegasus 64,65,66,71,73 | /did -v pegasus 69,70,75 | /did -ar pegasus 69 }
  if ( $did == 75 ) { /mode $did(62)text + $+ k $did(69)text }
  if ( $did == 76 ) { /did -u pegasus 72,74 | /did -h pegasus 69,70,71,73,75 | /did -v pegasus 64,65,66 } 
  if ( $did = 201 ) { /did -h pegasus 10,11,12,13,15,17,19,30,31,33,204 | /did -v pegasus 4,5,202 }
  if ( $did = 202 ) { /chanserv voice $did(8)text $did(4)text ) }
  if ( $did == 203 ) { /did -h pegasus 10,11,12,13,15,17,19,30,31,202 | /did -v pegasus 4,5,204 }
  if ( $did == 204 ) { /chanserv devoice $did(8)text $did(4)text }
  if ( $did == 205 ) { /did -u pegasus 6,7,14,15,16,18,32,201,203 | /did -h pegasus 4,5,10,11,12,13,15,17,19,30,31,33,202,204 }
  if ( $did == 81 ) { /did -ar pegasus 80,78 }
  if ( $did == 79 ) { >>> esse botao e responsavel por apresentar o resultado na edit 80 a edit 78 sao dos nicks }
  on *:dialog:pegasus:init:*:{
    /did -h pegasus 4,10,11,5,13,12,15,17,19,30,31,33,69,70,71,202,204 
    /did -ar pegasus 302 { algumas das funçoes da dialog precisam e foram testadas em servidores que usam o chanserv $crlf $crlf $crlf _Teen_ }
    /did -c pegasus 76,205
    /did -ar pegasus 80 Procurar por
    /did -ar pegasus 46 digite um nick 
    /did -ar pegasus 55 digite um nick
  } 
  on *:dialog:pegasus:edit:*:{
    if ( $did == 78 ) { /did -ar pegasus 80 Procurar por " $+ $did(78)text $+ " ? }
    if ( $did(78) == $null ) { /did -ar pegasus 80 }
    if ( $did(43) == $null ) { /did -ar pegasus 46 digite um nick } 
    if ( $did(43) != $null ) { /did -ar pegasus 46 }
    if ( $did(52) == $null ) { /did -ar pegasus 55 digite um nick }
    if ( $did(52) != $null ) { /did -ar pegasus 55 }
  }
  on shited:join:#:{  
    if ($me isop #) {
      /mode # +b $address($nick,3) | /kick # $nick adicionado a lista negra 
    }
  }
  on *:kick:#:{
    if (($knick isin %flist) && ($me isop #)) { 
      /kick # $nick este nick e protegido
    }
  }
  menu channel {  
    .Pegasus:{ 
      /pegasus 
    }
  }
  alias cmodes {
    /echo -a 12+s: secreto
    /echo -a 12+n: sem mensagens externas
    /echo -a 12+m: canal moderado
    /echo -a 12+p: canal privado
    /echo -a 12+C: nao e permitido o envio de ctcp's
    /echo -a 12+T: nao e permitido envio de notices externas
    /echo -a 12+S: nao e permitido cores
    /echo -a 12+u: auditorio (so mostra os nicks de ops no comando /names)
    /echo -a 12+O: apenas IRCops
    /echo -a 12+A: apenas IRCadmins
    /echo -a 12+k: canal com senha
    /echo -a 12+l: canal com limite de usuarios
    /echo -a 12+L: escolhe um canal para qual serao enviadas as pessoas em casa de limite maximo +l
    /echo -a 12+R: apenas nicks registrados 
    /echo -a 12+t: apenas op's mudam topico
    /echo -a 12+N: nao e permitido a mudança de nick
    /echo -a 12+M: apenas nicks registrados podem conversar
    /echo -a 12+q: nao e permitido mensagens de quit
    /echo -a 12+K: nao e permitido knocks 
    /echo -a 12+V: nao e permitido convite
    /echo -a 12+i: apenas para convidados
  }
  on *:join:#:{ writeini seenlist.ini $Nick Seen $Nick entrou no canal # ás $Time(HH:nn:ss) de $Date(dd/mm/yy) $+ . }

  on *:nick:{ writeini seenlist.ini $Nick Seen $Nick trocou o nick para $NewNick $+ , às $Time(HH:nn:ss) de $Date(dd/mm/yy) $+ . }

  on *:kick:#:{ writeini seenlist.ini $kNick Seen $kNick foi kickado do # por $Nick $+ , às $Time(HH:nn:ss) de $Date(dd/mm/yy) $+ . }

  on *:part:#:{ writeini seenlist.ini $Nick Seen $Nick partiu do # $+ , às $Time(HH:nn:ss) de $Date(dd/mm/yy) $+ . }

  on *:quit:{ writeini Seenlist.ini $Nick Seen $Nick desconectou, às $Time(HH:nn:ss) de $Date(dd/mm/yy) $+ . }