AutoThanker (fix) for Koragg v1.1

;taken from http://www.ladysclub.net/index.php/downloads/download/2-mirc-scripte/1-g-script.html

ON *:START: { init }
ON *:LOAD: { init }

ON *:EXIT: {
  if ($hget(thx)) { hsave thx $qt(settings.hsh) }
}

dialog -l autothx {
  title "Mode Thanker - (/mt)"
  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,akt)) { did -c $dname 8 }
    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 ($devent == edit) {
    if ($did == 2) { hadd thx voice $did($did).text }
    if ($did == 11) { hadd thx devoice $did($did).text }
    if ($did == 4) { hadd thx halfop $did($did).text }
    if ($did == 13) { hadd thx dehalfop $did($did).text }
    if ($did == 6) { hadd thx op $did($did).text }
    if ($did == 14) { hadd thx deop $did($did).text }
    if ($did == 18) { hadd thx prot $did($did).text }
    if ($did == 19) { hadd thx deprot $did($did).text }
    if ($did == 22) { hadd thx own $did($did).text }
    if ($did == 23) { hadd thx deown $did($did).text }
  }

  if ($devent == sclick) && ($did = 8) { hadd thx akt $did($did).state }
  if ($devent == close) { hsave thx $qt(settings.hsh) }
}

ON *:RAWMODE:#: {
  if ($nick != $me) && ($hget(thx,akt)) {
    if ($me isin $strip($1-)) {
      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 isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,voice)) { awaynoticesystem $nick $hget(thx,voice) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (-v isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,devoice)) { awaynoticesystem $nick $hget(thx,devoice) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (+h isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,halfop)) { awaynoticesystem $nick $hget(thx,halfop) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (-h isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,dehalfop)) { awaynoticesystem $nick $hget(thx,dehalfop) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (+o isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,op)) { awaynoticesystem $nick $hget(thx,op) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (-o isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,deop)) { awaynoticesystem $nick $hget(thx,deop) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (+a isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,prot)) { awaynoticesystem $nick $hget(thx,prot) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (-a isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,deprot)) { awaynoticesystem $nick $hget(thx,deprot) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (+q isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,own)) { awaynoticesystem $nick $hget(thx,own) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
      if (-q isincs $1-) && ($chr(46) !isin $nick) && ($hget(thx,deown)) { awaynoticesystem $nick $hget(thx,deown) | set -eu10 $+(%,modethankercheck,.,$nick) 1 }
    }
  }
}

alias mt { $iif(!$dialog(autothx),dialog -md,dialog -v) autothx autothx }

alias -l awaynoticesystem { .quote notice $1 $+ $chr(32) $+ $chr(58) $+ $2- }
alias -l init {
  var %h = thx
  var %f = settings.hsh

  if ($hget(%h)) { hfree %h }
  if (!$hget(%h)) { hmake %h 100 }
  if ($file(%f)) { hload %h $qt(%f) }
}