/ScriptServ

;----------------------------------------;
;ThanX 1.0.1 by Josh (suonline@gmail.com);
;----------------------------------------;

;Thanks to everybody that helped me to create this snippet.

;Install
;Unpack thanx101.zip into your mIRC main directory.
;Start your mIRC
;Type /load -rs thanx101.mrc

;Disclaimer
;Author (Josh) is not responsable for the damage you might create with this snippet.

;Author
;ThanX by Josh
;Server: irc.krstarica.com
;Port: 6667
;Channels: #onlinecm #chari_

on *:LOAD:{
  /echo -a » ThanX 1.0.1 by Josh is successfully loaded. Enjoy, $me
}

on *:UNLOAD:{
  /echo -a » ThanX 1.0.1 by Josh is successfully unloaded. Thanks for using it, $me
}

menu menubar,channel,status {
  ThanX 1.0.1
  .Enable:enable #thanx | /echo -a » ThanX 1.0.1 is enabled!
  .Disable:disable #thanx | /echo -a » ThanX 1.0.1 is disabled!
  .-
  .Advertise:me 14using ThanX 1.0.1 by Josh (suonline@gmail.com)
  .Author:autort
  .Contact:run mailto:suonline@gmail.com
  .-
  .Uninstall:unload -rs $script
}

dialog autort {
  title "Josh"
  size -1 -1 100 35
  option dbu
  text "irc.krstarica.com:6667 Channels: #onlinecm #chari_ Email:suonline@gmail.com", 2, 2 12 95 34, read multi , center
  button "OK", 3, 80 76 30 10, cancel
}

alias /autort { .dialog -m autort autort }

#thanx on
alias parsemodes {
  /set -u0 %thanx 2
  /set -u0 %thanx.m 1
  while (%thanx.m <= $len($gettok($1, 1, 32))) {
    /set -u0 %chr $mid($gettok($1, 1, 32), %thanx.m, 1)
    if (%chr isin +-) { /set -u0 %mod %chr }
    else {
      if ((%chr isincs $remove($gettok($chanmodes,1-3,44),$chr(44))) || (%chr isincs qaohv)) {
        /set -u0 %modes $addtok(%modes, $+(%mod,%chr,:,$gettok($1, %thanx, 32)), 32)
        /inc -u0 %thanx
      }
      else { /set -u0 %modes $addtok(%modes, $+(%mod,%chr), 32) }
    }
    /inc -u0 %thanx.m
  }
  return %modes
}

on 1:RAWMODE:#: {
  if ($nick != #me) && ($nick != ChanServ) {
    if ($istok($parsemodes($1-), $+(+v:,$me), 32)) { /msg $chan 14Thanks for the Voice (+v), $nick $+ ! }
    else if ($istok($parsemodes($1-), $+(+h:,$me), 32)) { /msg $chan 14Thanks for the Halfop (+h), $nick $+ ! }
    else if ($istok($parsemodes($1-), $+(+o:,$me), 32)) { /msg $chan 14Thanks for the Op (+o), $nick $+ ! }
  }
}
#thanx end

;End

;----------------------------------------;
;ThanX 1.0.1 by Josh (suonline@gmail.com);
;----------------------------------------;