; The contents of this script file are copyrighted by Insides Technologies, 2001.
; Definitions hereby supplied are owned by Insides Technologies and INSIDES - insides@qscripts.cjb.net, the script author.
; Please read the End User License Agreement supplied in order to understand the copy restrictions.
; Please contact the author of the script for any questions you might have.
; Thanks for understanding.

alias f1 { $fkeys.cmd(f1) }
alias cf1 { $fkeys.cmd(cf1) }
alias sf1 { $fkeys.cmd(sf1) }
alias f2 { $fkeys.cmd(f2) }
alias cf2 { $fkeys.cmd(cf2) }
alias sf2 { $fkeys.cmd(sf2) }
alias f3 { $fkeys.cmd(f3) }
alias cf3 { $fkeys.cmd(cf3) }
alias sf3 { $fkeys.cmd(sf3) }
alias f4 { $fkeys.cmd(f4) }
alias cf4 { $fkeys.cmd(cf4) }
alias sf4 { $fkeys.cmd(sf4) }
alias f5 { $fkeys.cmd(f5) }
alias cf5 { $fkeys.cmd(cf5) }
alias sf5 { $fkeys.cmd(sf5) }
alias f6 { $fkeys.cmd(f6) }
alias cf6 { $fkeys.cmd(cf6) }
alias sf6 { $fkeys.cmd(sf6) }
alias f7 { $fkeys.cmd(f7) }
alias cf7 { $fkeys.cmd(cf7) }
alias sf7 { $fkeys.cmd(sf7) }
alias f8 { $fkeys.cmd(f8) }
alias cf8 { $fkeys.cmd(cf8) }
alias sf8 { $fkeys.cmd(sf8) }
alias f9 { $fkeys.cmd(f9) }
alias cf9 { $fkeys.cmd(cf9) }
alias sf9 { $fkeys.cmd(sf9) }
alias f10 { $fkeys.cmd(f10) }
alias cf10 { $fkeys.cmd(cf10) }
alias sf10 { $fkeys.cmd(sf10) }
alias f11 { $fkeys.cmd(f11) }
alias cf11 { $fkeys.cmd(cf11) }
alias sf11 { $fkeys.cmd(sf11) }
alias f12 { $fkeys.cmd(f11) }
alias cf12 { $fkeys.cmd(cf11) }
alias sf12 { $fkeys.cmd(sf11) }

alias -l fkf { return $profcdir $+ fkeys.qc }

alias fkeys.cmd {
  if ($left($1,1) == f) { var %section normal }
  if ($left($1,1) == c) { var %section control }
  if ($left($1,1) == s) { var %section shift }
  var %key $remove($1,s,c)
  if ($exists($fkf) == $false) { return }
  return $readini $fkf %section %key
}

dialog fkeys {
  title ""
  size -1 -1 176 134
  option dbu

  box "",1,-2 -3 250 121
  list 2,3 17 170 105
  list 3,3 17 170 110,hide
  list 4,3 17 170 110,hide
  radio "Normal",5,5 4 25 11,push
  radio "Control",6,33 4 25 11,push
  radio "Shift",7,61 4 25 11,push

  button "Edit",12,56 121 20 11
  button "Help",14,102 121 20 11
  button "Close",15,79 121 20 11,cancel
}

On *:DIALOG:fkeys:init:0:{
  mdx.init fkeys
  mdx.finit fkeys 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  mdx SetDialog $dname icon 9 $icons
  mdx SetControlMDX $dname 2 listview rowselect showsel single labeltip headerdrag  report  > [ $vdll ]
  did -i $dname 2 1 header @90,244 Normal $+ $t $+ Function Key Command
  mdx SetControlMDX $dname 3 listview rowselect showsel single labeltip headerdrag  report  > [ $vdll ]
  did -i $dname 3 1 header @90,244 Control $+ $t $+ Function Key Command
  mdx SetControlMDX $dname 4 listview rowselect showsel single labeltip headerdrag  report  > [ $vdll ]
  did -i $dname 4 1 header @90,244 Shift $+ $t $+ Function Key Command
  mdx MoveControl fkeys 2 6 35 340 195
  mdx MoveControl fkeys 3 6 35 340 195
  mdx MoveControl fkeys 4 6 35 340 195
  fkeys.fill normal
  fkeys.fill control
  fkeys.fill shift
  dialog -t $dname Function Keys Settings
  did -c fkeys 5
  did -f fkeys 15
}

On *:DIALOG:fkeys:sclick:*:{
  if ($did == 5) { did -h fkeys 3,4 | did -v fkeys 2 }
  if ($did == 6) { did -h fkeys 2,4 | did -v fkeys 3 }
  if ($did == 7) { did -h fkeys 2,3 | did -v fkeys 4 }
  if ($did == 12) {
    if ($did(5).state == 1) { fkeys.edit $did(2).sel }
    if ($did(6).state == 1) { fkeys.edit $did(3).sel }
    if ($did(7).state == 1) { fkeys.edit $did(4).sel }
  }
  if ($did == 102) { qhelp Function Keys }
}

alias fkeys.save { 
  if ($left($1,1) == f) { var %section normal }
  if ($left($1,1) == c) { var %section control }
  if ($left($1,1) == s) { var %section shift }
  var %key $remove($1,s,c)
  if ($2 == $null) { writeini $fkf %section %key Unassigned | return }
  writeini $fkf %section %key $2
}

alias fkeys.edit { 
  if ($did(fkeys,5).state == 1) { var %section normal }
  if ($did(fkeys,6).state == 1) { var %section control }
  if ($did(fkeys,7).state == 1) { var %section shift }
  var %key f $+ $calc($1 - 1)
  var %com $inputbox(Please Enter Function Key Command.§Function Keys [/fkeys])
  writeini $fkf %section %key %com
  fkeys.fill %section
}

alias fkeys.fill {
  var %id $replace($1,normal,2,control,3,shift,4)
  var %key
  var %cnt 1
  did -r fkeys %id
  while (%cnt < 13) {
    set %key f $+ %cnt
    var %com $readini $fkf $1 %key
    did -a fkeys %id $ucase(%key) $+ $t $+ %com
    inc %cnt
  }
}

alias fkeys { qdlg fkeys }

dialog scan {
  title ""
  size -1 -1 181 129
  option dbu

  box "",1,-3 -3 400 4
  text "Scanner Ready.",2,4 3 200 7
  box "",3,-3 -3 400 15
  list 4,3 15 175 100
  box "",5,-3 -3 400 116

  button "WhoIs",6,36 116 22 11
  button "Ping",7,61 116 18 11
  button "Query",8,82 116 20 11
  button "Kick",9,105 116 18 11
  button "Close",10,126 116 20 11,cancel
}

On *:DIALOG:scan:init:0:{
  mdx.init scan
  mdx.finit scan 1 2 3 4 5 6 7 8 9 10 100 101
  mdx SetDialog $dname icon 27 $icons
  did -f scan 10
}

On *:DIALOG:scan:sclick:*:{
  var %item $did(4,$did(4).sel)
  set %item $gettok(%item,1,32)
  if (%item == $null) && ($did != 10) { return }
  if ($did == 6) { .whois %item }
  if ($did == 7) { .ctcp %item ping }
  if ($did == 8) { .query %item }
  if ($did == 9) { .kick $inputbox(chan§Kick User [/kick]) %item $inputbox(Please Enter Kick Reason.§Kick User [/kick]) }
}

alias scan.stb { did -ra scan 2 $1- }

alias scan.aitem { did -a scan 4 $1- }

alias scanner {
  if ($dialog(scan) != $null) { emsgbox Scanner Already Activated. Please Try Again Later Or Close Current Scanner.§Scanner [/scanner] | return }
  if ($1 == oper) {
    qdlg scan
    dialog -t scan IRC Operator Scanner
    scan.stb Initiating IRC Operator Scan.
    .who * o
  }
  if ($1 == clones) {
    qdlg scan
    dialog -t scan Channer Clone Scanner - $2
    scan.stb Initiating Channel Clone Scan.
    clones.show $2 window
  }
  if ($1 == musers) {
    qdlg scan
    dialog -t scan Modem Users Scanner - $2
    scan.stb Initiating Modem Users Scan.
    musers.show $2
  }
}

dialog report {
  title ""
  size -1 -1 221 129
  option dbu

  box "",1,-3 -3 400 4
  text "Scanner Ready.",2,4 3 200 7
  box "",3,-3 -3 400 15
  list 4,3 15 215 100
  box "",5,-3 -3 400 116

  button "WhoIs",6,56 116 22 11
  button "Ping",7,81 116 18 11
  button "Query",8,102 116 20 11
  button "Kick",9,125 116 18 11
  button "Close",10,146 116 20 11,cancel
}

On *:DIALOG:report:init:0:{
  mdx.init report
  mdx.finit report 1 2 3 4 5 6 7 8 9 10 100
  mdx SetDialog $dname icon 27 $icons
  did -f report 10
}

On *:DIALOG:report:sclick:*:{
  var %item $did(4,$did(4).sel)
  set %item $gettok(%item,1,32)
  if (%item == $null) && ($did != 10) { return }
  if ($did == 6) { .whois %item }
  if ($did == 7) { .ctcp %item ping }
  if ($did == 8) { .query %item }
  if ($did == 9) { .kick $inputbox(chan§Kick User [/kick]) %item $inputbox(Please Enter Kick Reason.§Kick User [/kick]) }
}

alias report.stb { did -ra report 2 $1- }

alias report.load { loadbuf 1-1000000 -o report 4 $1- }

alias report {
  if ($dialog(report) != $null) { emsgbox Scanner Already Activated. Please Try Again Later Or Close Current Scanner.§Report Scanner [/report] | return }
  if ($1 == frlist) {
    qdlg report
    dialog -t report CTCP Foreign Request Scanner
    report.stb Initiating CTCP Foreign Request Scan.
    var %apf $mircdirlogs\FRList\ $+ $asctime(dd.mm.yyyy) $+ .log
    if ($exists(%apf) == $false) { report.stb There Have Been No Foreign CTCP Requests Today. | return }
    report.load %apf
  }
  if ($1 == aplist) {
    qdlg report
    dialog -t report Auto Ping Request Scanner
    report.stb Initiating Auto Ping Request Scan.
    var %apf $mircdirlogs\APList\ $+ $asctime(dd.mm.yyyy) $+ .log
    if ($exists(%apf) == $false) { report.stb There Have Been No Auto Ping Requests Today. | return }
    report.load %apf
  }
  if ($1 == pglist) {
    qdlg report
    dialog -t report Away Page Messages Scanner
    report.stb Initiating Away Page Messages Scan.
    var %page $mircdirlogs\PGLogs\ $+ $asctime(dd.mm.yyyy) $+ .log
    if ($exists(%page) == $false) { report.stb There Have Been No Page Messages Today. | return }
    report.load %apf
  }
  if ($1 == splits) {
    qdlg report
    dialog -t report Split And Away Messages Scanner
    report.stb Initiating Split And Away Messages Scan.
    if ($exists($mircdirsystem\splits.qm) == $false) { report.stb No Splits Recorded Today. | return }
    report.load $mircdirsystem\splits.qm
    if ($exists($mircdirsystem\aways.qm) == $false) { report.stb No Aways Recorded Today. | return }
    report.load $mircdirsystem\aways.qm
  }
}