;===ATENO!!===
;PARA PERFEITO FUNCIONAMENTO DO SCRIPT, NO EXCLUA
;OU ALTERE QUALQUER COMANDO ABAIXO


alias script.help hp
alias hp dial -md help
alias hp.c {
  if ($dialog(help) == $null) {
    .timerhp off
    window -c @[H2K]
    halt
  }
  if ($dialog(help).active) {
    if ($window(@[H2K]).state == hidden) { 
      window -a +dl @[H2K]
      dialog -v help help
      halt
    }
  }
  if ($appactive == $false) {
    window -h @[H2K]
  }
  if ($dialog(help).x != 120) || ($dialog(help).y != 80) {
    dialog -s help 120 80 545 392
  }
  if ($active == @[H2K]) {
    return
  }
  if ($dialog(help).active ==  $false) {
    window -h @[H2K]
  }
  else {
    window -a +dl @[H2K]
    dialog -v help help
  }
}

dialog help {
  title "Ajuda [F1]"
  size 120 80 545 392
  tab "&Contedo", 3, 6 42 233 421
  tab "&Pesquisar", 4
  box "", 1, -5 27 254 432
  icon 2, 2 10 229 22, bin\ajuda.bmp,, noborder
  list 6, 13 76 218 310, hsbar, vsbar, size, tab 3
  edit "", 8, 247 32 297 360, multi, return, autohs, vsbar
  text "&Digite o tpico a ser pesquisado:", 9, 15 81 197 13, tab 4
  edit "", 10, 14 102 213 25, tab 4, autohs
  button "&Pesquisar", 11, 139 131 89 21, tab 4
  list 12, 14 168 218 200, hsbar, vsbar, size, tab 4
  text "&Resultado:", 13, 16 152 75 13, tab 4
  text "&Clique 2 vezes nos tpicos acima para abrir", 14, 17 370 213 13, tab 4
  button "&Hide", 7, 0 0 0 0, hide, Ok
}
on *:dialog:help:dclick:12:{
  if $did(12).seltext == Servios de Rede { help.open 1 }
  if $did(12).seltext == Canais { help.open 2 }
  if $did(12).seltext == Comandos Bsicos { help.open 3 }
  if $did(12).seltext == Conectando { help.open 4 }
  if $did(12).seltext == Hacker2k Script { help.open 5 }
  if $did(12).seltext == Conceitos { help.open 6 }
  if $did(12).seltext == Aceitando arquivos no Dcc { help.open 7 }
  if $did(12).seltext == Problemas de Conexo { help.open 8 }
  if $did(12).seltext == Hiararquia { help.open 9 }
  if $did(12).seltext == Introduo { help.open 10 }
  if $did(12).seltext == Janelas { help.open 11 }
  if $did(12).seltext == Utilizando Menus de Navegao { help.open 12 }
  if $did(12).seltext == Novidades do Hacker2k Script { help.open 13 }
  if $did(12).seltext == Conersando com Algum { help.open 14 }
  if $did(12).seltext == Proteo Pessoal { help.open 15 }
  if $did(12).seltext == Proteo de Canal { help.open 16 }
  if $did(12).seltext == Teclas de Atalho { help.open 17 }
  if $did(12).seltext == Comandos internos do Hacker2k Script { help.open 18 }
  if $did(12).seltext == Setup ou Opes Gerais { help.open 21 }
  if $did(12).seltext == MP3 Player { help.open 22 }
  if $did(12).seltext == Autocolor { help.open 23 }
  if $did(12).seltext == Autores { help.open 24 }
  if $did(12).seltext == Ataques (Teoria, procedimentos, como se defender) { help.open 25 }
  if $did(12).seltext == Fserv { help.open 26 }
}
on *:dialog:help:sclick:11:{
  did -r help 12
  if ($did(10) == $null) {
    did -f help 10
    beep
    halt
  }
  set %help.word $did(10)
  var %help.f = $findfile(bin\ajuda\, *.*, 0, 1, conf.topico $1-)
}
alias help.open {
  window -c @[H2K]
  window -hdo +dl @[H2K] 371 135 297 360
  window -ak @[H2K]
  dialog -v help help
  if ($1 == 10) loadbuf -p @[H2K] bin\ajuda\introducao.txt
  if ($1 == 3) {
    loadbuf -p @[H2K] bin\ajuda\cmdbasic.txt
    sline @[H2K] 22
  }
  if ($1 == 13) {
    loadbuf -p @[H2K] bin\ajuda\novidades.txt
    sline @[H2K] 22
  }
  if ($1 == 4) {
    loadbuf -p @[H2K] bin\ajuda\conectando.txt
    sline @[H2K] 25
  }
  if ($1 == 6) {
    loadbuf -p @[H2K] bin\ajuda\conceitos.txt
    sline @[H2K] 26
  }
  if ($1 == 9) {
    loadbuf -p @[H2K] bin\ajuda\hiarerquia.txt
    sline @[H2K] 12
  }
  if ($1 == 11) {
    loadbuf -p @[H2K] bin\ajuda\janelas.txt
    sline @[H2K] 15
  }
  if ($1 == 1) {
    loadbuf -p @[H2K] bin\ajuda\servicos.txt
    sline @[H2K] 10
  }
  if ($1 == 12) {
    loadbuf -p @[H2K] bin\ajuda\menus.txt
    sline @[H2K] 8
  }
  if ($1 == 17) {
    loadbuf -p @[H2K] bin\ajuda\teclas.txt
    sline @[H2K] 22
  }
  if ($1 == 18) {
    loadbuf -p @[H2K] bin\ajuda\cmdh2k.txt
    sline @[H2K] 22
  }
  if ($1 == 15) {
    loadbuf -p @[H2K] bin\ajuda\protecao.txt
    sline @[H2K] 14
  }
  if ($1 == 16) {
    loadbuf -p @[H2K] bin\ajuda\protecao2.txt
    sline @[H2K] 22
  }
  if ($1 == 8) {
    loadbuf -p @[H2K] bin\ajuda\error.txt
    sline @[H2K] 22
  }
  if ($1 == 2) {
    loadbuf -p @[H2K] bin\ajuda\canais.txt
    sline @[H2K] 22
  }
  if ($1 == 14) {
    loadbuf -p @[H2K] bin\ajuda\particular.txt
    sline @[H2K] 17
  }
  if ($1 == 7) {
    loadbuf -p @[H2K] bin\ajuda\dcc.txt
    sline @[H2K] 31
  }
  if ($1 == 5) {
    loadbuf -p @[H2K] bin\ajuda\h2k.txt
    sline @[H2K] 22
  }
  if ($1 == 21) {
    loadbuf -p @[H2K] bin\ajuda\setup.txt
    sline @[H2K] 22
  }
  if ($1 == 22) {
    loadbuf -p @[H2K] bin\ajuda\mp3.txt
    sline @[H2K] 22
  }
  if ($1 == 23) {
    loadbuf -p @[H2K] bin\ajuda\autocolor.txt
    sline @[H2K] 25
  }
  if ($1 == 26) {
    loadbuf -p @[H2K] bin\ajuda\fserv.txt
    sline @[H2K] 22
  }
  if ($1 == 25) {
    loadbuf -p @[H2K] bin\ajuda\ataques.txt
    sline @[H2K] 22
  }
  if ($1 == 24) {
    loadbuf -p @[H2K] bin\ajuda\autores.txt
    sline @[H2K] 20
  }
}
alias help.ok {
  if (bots isin $1-) var %help.tp = Servios de Rede
  if (canais isin $1-) var %help.tp = Canais
  if (cmdbasic isin $1-) var %help.tp = Comandos Bsicos
  if (cmdh2k isin $1-) var %help.tp = Comandos internos do Hacker2k Script
  elseif (\h2k isin $1-) var %help.tp = Hacker2k Script
  if (conceitos isin $1-) var %help.tp = Conceitos
  if (dcc isin $1-) var %help.tp = Aceitando arquivos no Dcc
  if (error isin $1-) var %help.tp = Problemas de Conexo
  if (hiararquia isin $1-) var %help.tp = Hiararquia
  if (conectando isin $1-) var %help.tp = Conectando
  if (introducao isin $1-) var %help.tp = Introduo
  if (fserv isin $1-) var %help.tp = Fserv
  if (introducao isin $1-) var %help.tp = Introduo
  if (setup isin $1-) var %help.tp = Setup ou Opes Gerais
  if (mp3 isin $1-) var %help.tp = MP3 Player
  if (autocolor isin $1-) var %help.tp = Autocolor
  if (autores isin $1-) var %help.tp = Autores
  if (ataques isin $1-) var %help.tp = Ataques (Teoria, procedimentos, como se defender)
  if (menu isin $1-) var %help.tp = Utilizando Menus de Navegao
  if (novidades isin $1-) var %help.tp = Novidades do Hacker2k Script
  if (particular isin $1-) var %help.tp = Conersando com Algum
  if (protecao isin $1-) var %help.tp = Proteo Pessoal
  if (protecao2 isin $1-) var %help.tp = Proteo de Canal
  if (servicos isin $1-) var %help.tp = Servios de Rede
  if (teclas isin $1-) var %help.tp = Teclas de Atalho
  if (janelas isin $1-) var %help.tp = Janelas
  did -a help 12 %help.tp
}
alias conf.topico {
  var %help.i = 1
  var %help.n = $read -nl $+ %help.i $1-
  while (%help.i < $lines($1-)) {
    if (%help.word isin $remove($strip($gettok(%help.n,1,32)),:)) { help.ok $1- | return }
    inc %help.i
    %help.n = $read -nl $+ %help.i $1-
  }
}
on *:dialog:help:init:0:{
  dl SetMircVersion $version
  dl MarkDialog $dname
  dl SetDialog $dname icon werwer.ico
  did -c help 4
  did -a help 6 Introduo
  did -a help 6 Comandos Bsicos
  did -a help 6 Novidades do Hacker2k Script
  did -a help 6 Conectando
  did -a help 6 Conceitos
  did -a help 6 Hiararquia em Canais
  did -a help 6 Janelas
  did -a help 6 Servios de Rede
  did -a help 6 Utilizando menus de Navegao
  did -a help 6 Teclas de Atalho
  did -a help 6 Comandos Internos do Hacker2k Script
  did -a help 6 Proteo Pessoal
  did -a help 6 Proteo de Canal
  did -a help 6 Problemas de conexo
  did -a help 6 Canais
  did -a help 6 Convensando com Algum
  did -a help 6 Aceitando arquivos no Dcc
  did -a help 6 Setup ou Opes Gerais
  did -a help 6 MP3 Player
  did -a help 6 Autocolor
  did -a help 6 Fserv
  did -a help 6 Ataques (Teoria, procedimentos, como se defender)
  did -a help 6 Hacker2k Script
  did -a help 6 Autores
  did -z help 6
  did -c help 6 1
  window -hdo +dl @[H2K] 371 136 297 358
  window -ak @[H2K]
  .timerhp -m 0 100 hp.c
  dialog -v help help
  loadbuf -p @[H2K] bin\ajuda\introducao.txt
}
on *:dialog:help:dclick:6: {
  window -c @[H2K]
  window -hdo +dl @[H2K] 371 135 297 360
  window -ak @[H2K]
  dialog -v help help
  if ($did(6).sel == 1) loadbuf -p @[H2K] bin\ajuda\introducao.txt
  if ($did(6).sel == 2) {
    loadbuf -p @[H2K] bin\ajuda\cmdbasic.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 3) {
    loadbuf -p @[H2K] bin\ajuda\novidades.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 4) {
    loadbuf -p @[H2K] bin\ajuda\conectando.txt
    sline @[H2K] 25
  }
  if ($did(6).sel == 5) {
    loadbuf -p @[H2K] bin\ajuda\conceitos.txt
    sline @[H2K] 26
  }
  if ($did(6).sel == 6) {
    loadbuf -p @[H2K] bin\ajuda\hiarerquia.txt
    sline @[H2K] 12
  }
  if ($did(6).sel == 7) {
    loadbuf -p @[H2K] bin\ajuda\janelas.txt
    sline @[H2K] 15
  }
  if ($did(6).sel == 8) {
    loadbuf -p @[H2K] bin\ajuda\servicos.txt
    sline @[H2K] 10
  }
  if ($did(6).sel == 9) {
    loadbuf -p @[H2K] bin\ajuda\menus.txt
    sline @[H2K] 8
  }
  if ($did(6).sel == 10) {
    loadbuf -p @[H2K] bin\ajuda\teclas.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 11) {
    loadbuf -p @[H2K] bin\ajuda\cmdh2k.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 12) {
    loadbuf -p @[H2K] bin\ajuda\protecao.txt
    sline @[H2K] 14
  }
  if ($did(6).sel == 13) {
    loadbuf -p @[H2K] bin\ajuda\protecao2.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 14) {
    loadbuf -p @[H2K] bin\ajuda\error.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 15) {
    loadbuf -p @[H2K] bin\ajuda\canais.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 16) {
    loadbuf -p @[H2K] bin\ajuda\particular.txt
    sline @[H2K] 17
  }
  if ($did(6).sel == 17) {
    loadbuf -p @[H2K] bin\ajuda\dcc.txt
    sline @[H2K] 31
  }
  if ($did(6).sel == 18) {
    loadbuf -p @[H2K] bin\ajuda\setup.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 19) {
    loadbuf -p @[H2K] bin\ajuda\mp3.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 20) {
    loadbuf -p @[H2K] bin\ajuda\autocolor.txt
    sline @[H2K] 25
  }
  if ($did(6).sel == 21) {
    loadbuf -p @[H2K] bin\ajuda\fserv.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 22) {
    loadbuf -p @[H2K] bin\ajuda\ataques.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 23) {
    loadbuf -p @[H2K] bin\ajuda\h2k.txt
    sline @[H2K] 22
  }
  if ($did(6).sel == 24) {
    loadbuf -p @[H2K] bin\ajuda\autores.txt
    sline @[H2K] 20
  }
}
on *:dialog:setup:sclick:46:{
  script.help
  window -c @[H2K]
  window -hdo +dl @[H2K] 371 136 297 358
  window -ak @[H2K]
  .timerhp -m 0 100 hp.c
  dialog -v help help
  loadbuf -p @[H2K] bin\ajuda\setup.txt
  sline @[H2K] 22
  did -c help 6 18
}
on *:dialog:fserv:sclick:33:{
  script.help
  window -c @[H2K]
  window -hdo +dl @[H2K] 371 136 297 358
  window -ak @[H2K]
  .timerhp -m 0 100 hp.c
  dialog -v help help
  loadbuf -p @[H2K] bin\ajuda\fserv.txt
  sline @[H2K] 22
  did -c help 6 21
}
on *:dialog:autocolor:sclick:66:{
  script.help
  window -c @[H2K]
  window -hdo +dl @[H2K] 371 136 297 358
  window -ak @[H2K]
  .timerhp -m 0 100 hp.c
  dialog -v help help
  loadbuf -p @[H2K] bin\ajuda\autocolor.txt
  sline @[H2K] 25
  did -c help 6 21
}

on *:dialog:*:init:0:{
  if ($dname == crp) return
  if ($len($dname) == 3) && ($left($dname,1) == c) {
    dl SetMircVersion $version
    dl MarkDialog $dname
    dl SetDialog $dname icon bin\services.ico
  }
  if ($len($dname) == 2) {
    dl SetMircVersion $version
    dl MarkDialog $dname
    dl SetDialog $dname icon bin\services.ico
  }
}
