Mod Thanker FIX for Koragg v1.0

;taken from http://www.ladysclub.net/index.php/downloads/download/2-mirc-scripte/1-g-script.html
alias mt { dialog $iif(!$dialog(autothx),-md,-v) autothx autothx }
dialog autothx {
  title "Mode Thanker"
  size -1 -1 172 266
  option dbu
  box "Voice", 1, 3 3 166 21
  edit "", 2, 5 11 162 10, autohs
  box "Halfop", 3, 3 51 166 21
  edit "", 4, 5 59 162 10, autohs
  box "Op", 5, 3 99 166 21
  edit "", 6, 5 107 162 10, autohs
  box "", 7, 3 242 166 21
  check "Activate Mode Thanker", 8, 43 250 85 10
  box "", 9, 1 -2 170 267
  box "Devoice", 10, 3 25 166 21
  edit "", 11, 5 33 162 10, autohs
  box "Dehalfop", 12, 3 73 166 21
  edit "", 13, 5 81 162 10, autohs
  edit "", 14, 5 128 162 10, autohs
  box "Deop", 15, 3 120 166 21
  box "Deprotect", 16, 3 167 166 21
  box "Protect", 17, 3 146 166 21
  edit "", 18, 5 154 162 10, autohs
  edit "", 19, 5 175 162 10, autohs
  box "Owner", 20, 3 193 166 21
  box "Deowner", 21, 3 214 166 21
  edit "", 22, 5 201 162 10, autohs
  edit "", 23, 5 222 162 10, autohs
}
on *:dialog:autothx:*:*:{
  if ($devent == init) {
    if ($hget(thx,voice)) { did -a $dname 2 $v1 }
    if ($hget(thx,devoice)) { did -a $dname 11 $v1 }
    if ($hget(thx,halfop)) { did -a $dname 4 $v1 }
    if ($hget(thx,dehalfop)) { did -a $dname 13 $v1 }
    if ($hget(thx,op)) { did -a $dname 6 $v1 }
    if ($hget(thx,deop)) { did -a $dname 14 $v1 }
    if ($hget(thx,prot)) { did -a $dname 18 $v1 }
    if ($hget(thx,deprot)) { did -a $dname 19 $v1 }
    if ($hget(thx,own)) { did -a $dname 22 $v1 }
    if ($hget(thx,deown)) { did -a $dname 23 $v1 }

    if ($hget(thx,akt) == 1) { did -c $dname 8 }
  }
  if ($devent == sclick) && ($did = 8) { hadd thx akt $did($did).state }
  if ($devent == edit) {
    if ($did = 2) && ($did(2).text) { hadd thx voice $did($did).text }
    if ($did = 11) && ($did(11).text) { hadd thx devoice $did($did).text }
    if ($did = 4) && ($did(4).text) { hadd thx halfop $did($did).text }
    if ($did = 13) && ($did(13).text) { hadd thx dehalfop $did($did).text }
    if ($did = 6) && ($did(6).text) { hadd thx op $did($did).text }
    if ($did = 14) && ($did(14).text) { hadd thx deop $did($did).text }
    if ($did = 18) && ($did(18).text) { hadd thx prot $did($did).text }
    if ($did = 19) && ($did(19).text) { hadd thx deprot $did($did).text }
    if ($did = 22) && ($did(22).text) { hadd thx own $did($did).text }
    if ($did = 23) && ($did(23).text) { hadd thx deown $did($did).text }
  }
  if ($devent == close) {
    if ($hget(thx)) { hsave -o thx $qt(settings.hsh) }
  }
}
on *:rawmode:#:{
  if ($nick == $me) { return }
  if ($hget(thx,akt) !== 1) { return }
  if ($me !isin $1-) { return }

  if ($nick == ChanServ) || ($nick == OperServ) || ($nick == BotServ) || ($nick == NickServ) || ($nick == Global) || ($nick == HostServ) || ($nick == MemoServ) || (help isin $chan) { return }
  if ($network == ICQ-Chat) && ($nick == Autobot) { return }
  if ($network == UnderNET) && ($nick == X) { return }
  if ($network == Quakenet) && ($nick == Q) { return }
  if ($evalnext($+(%,modethankercheck,.,$nick))) { return }

  if (+v isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,voice),.awaynoticesystem $nick $hget(thx,voice)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (-v isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,devoice),.awaynoticesystem $nick $hget(thx,devoice)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (+h isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,halfop),.awaynoticesystem $nick $hget(thx,halfop)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (-h isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,halfop),.awaynoticesystem $nick $hget(thx,dehalfop)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (+o isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,op),.awaynoticesystem $nick $hget(thx,op)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (-o isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,deop),.awaynoticesystem $nick $hget(thx,deop)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (+a isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,prot),.awaynoticesystem $nick $hget(thx,prot)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (-a isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,deprot),.awaynoticesystem $nick $hget(thx,deprot)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (+q isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,own),.awaynoticesystem $nick $hget(thx,own)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
  if (-q isin $1-) && ($chr(46) !isin $nick) { $iif($hget(thx,deown),.awaynoticesystem $nick $hget(thx,deown)) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }

}
on *:start:{
  if (!$hget(thx)) { hmake thx }
  if ($exists(settings.hsh)) { hload thx settings.hsh }
}
on *:load:{
  if (!$hget(thx)) { hmake thx }
  if ($exists(settings.hsh)) { hload thx settings.hsh }
}
On *:Exit: { if ($hget(thx)) { hsave thx settings.hsh } }