Hello!! here is my Invite System
ok here we go:
thats list are the allowed lists: Nicks & Channels
if you have added a nick in that Nick'list and that nick invites you to anychannel you will join. else Not.
if you have added a Channel in the list and anyone invites you to that channel you will join. else Not.
if that added channel is +i mode you dont need /cs inv... just type /join #channel.

if is Not a Nick/Channel Listed. the user will receive a notice (personalize!)

else you can test the code and click [Info]

if you want download the fullAddon with that icons

download here: http://rapidshare.com/files/146164245/invit-System.rar

and put the path of the addon in the mirc dir go to Alt+R file/load and follow to the addon path.

else you can copy the code below (without that icons) and past in Alt+R File/New

To open rightclick mouse in the statuswindow or menubar and click: Invit-Sys

i hope you enjoy!

comments are wellcome. ;)

Jah Bless´´

;#########################################
;## Invite-System by rhasttaff ###########
;## All creditis to myself :)~ ###########
;#########################################
dialog invit {
  title "Invite-Sys"
  size -1 -1 196 110
  option dbu
  box "Nicks", 1, 2 3 86 60
  box "Channs", 2, 91 3 86 60
  combo 3, 24 10 60 50, size
  button "ADD", 4, 5 10 16 12
  button "REM", 5, 5 27 16 12
  button "clear", 6, 5 45 16 12
  combo 7, 113 10 60 50, size
  button "ADD", 8, 94 10 16 12
  button "REM", 9, 94 28 16 12
  button "clear", 10, 94 46 16 12
  box "if isn't a nick or channel above: /notice", 11, 2 65 175 25
  edit "", 13, 4 75 171 12, autohs
  button "Save/ok", 14, 118 92 59 16, ok
  button "InFo", 17, 2 92 59 16
}
dialog invit-infos {
  title "Invites-Information"
  size -1 -1 195 110
  option dbu
  icon $qt($scriptdirfogo.ico), 0
  box "Nicks", 1, 7 4 85 50
  box "Channels", 2, 94 4 96 50
  box "Notice", 3, 7 55 183 31
  text "Here you add the nick of your fryends,bot,chanserv and when one of that invites you, you will auto join in the channel thats you was invited.", 4, 10 12 80 39, center
  text "Here you  add Channel names, and when someone invites you to join in one of that channels you will  auto join in that channnel.", 5, 96 11 92 41, center
  text "Here you type a msg replay that will be send to anyone that invites you.if his name|or|Channel is not already in the list's above.", 6, 10 61 179 21, center
  button "OK", 7, 167 88 23 20, ok
  box "", 8, 7 87 137 21
  text "ADDON    **ToTaly by**     -=@@(", 9, 9 95 92 8, right
  link "rhasttaff", 10, 101 95 22 8
  text ")@@=-", 11, 123 95 19 8
}
on 1:dialog:invit:init:0: {
  if (%invit.msg.nao) { did -a invit 13 %invit.msg.nao }
  if (%invit.canais.ok != $null) {
    var %canais.ok = $numtok(%invit.canais.ok,32)
    while (%canais.ok > 0) {
      did -a invit 7 $gettok(%invit.canais.ok,%canais.ok,32) 
      dec %canais.ok
    }
  }
  if (%invit.nicks.ok != $null) {
    var %nicks.ok = $numtok(%invit.nicks.ok,32)
    while (%nicks.ok > 0) {
      did -a invit 3 $gettok(%invit.nicks.ok,%nicks.ok,32) 
      dec %nicks.ok
    }
  }
}
on 1:dialog:invit-infos:init:0: {
}
on 1:dialog:invit:sclick:*: {
  if ($did = 4) { did -a invit 3 $did(invit,3).text | set %invit.nicks.ok $did(invit,3).text %invit.nicks.ok }
  if ($did = 5) { var %invit.remtemp = $findtok(%invit.nicks.ok,$did(invit,3).seltext,1,32) |  set %invit.nicks.ok $deltok(%invit.nicks.ok,%invit.remtemp,32) |  did -d invit 3 $did(invit,3).sel }
  if ($did = 6) { unset %invit.nicks.ok |   did -r invit 3 }
  if ($did = 8) {  did -a invit 7 $did(invit,7).text |  set %invit.canais.ok $did(invit,7).text %invit.canais.ok }
  if ($did = 9) {  var %invit.remtemp = $findtok(%invit.canais.ok,$did(invit,7).seltext,1,32) |  set %invit.canais.ok $deltok(%invit.canais.ok,%invit.remtemp,32) |  did -d invit 7 $did(invit,7).sel }
  if ($did = 10) { unset %invit.canais.ok | did -r invit 7 }
  if ($did = 14) { if ($did(invit,13)) /set %invit.msg.nao $did(invit,13) }
  if ($did = 17) { /dialog -m invit-infos invit-infos }
}
on 1:dialog:invit-infos:sclick:10: { /run iexplore.exe http://www.hawkee.com/snippet/4998/ }
raw 473:*: {   
if ($istok(%invit.canais.ok,$2,32)) { cs invite $2 | /.timer 1 4 /join $2 | haltdef } 
}
on *:invite:*: {
  if (($istok(%invit.canais.ok,$chan,32)) || ($istok(%invit.nicks.ok,$nick,32))) { join $chan | halt }
  else {  /inv.ask-for $nick $chan $iif(%invit.msg.nao,ok,nok) }
}
alias inv.ask-for {
  whois $1
  /cs info $2
  if (!$dialog(ynvited)) { /dialog -m ynvited ynvited }
  dialog -t ynvited Hey!!! You was Invited To: $2 $time(HH:nn) (10)
  did -ra ynvited 1 $1
  did -ra ynvited 2 $2
  set -u12 %inv.dec 10
  .timer_inv.dec 10 1 /inv.dec $3
}
dialog ynvited {
  title ""
  size -1 -1 191 24
  option dbu
  edit "", 1, 2 2 64 10, read center
  edit "", 2, 113 2 76 10, read center
  text "Has invited you to ", 3, 67 4 45 7, center
  button "/Join", 4, 2 13 37 10
  button "/Notice", 5, 52 13 37 10
  button "/Ignore User", 6, 101 13 37 10
  button "NoThing", 7, 152 13 37 10
}
on *:dialog:ynvited:init:0: {  
  /did -f $dname 7 
  if (!%invit.msg.nao) {  /did -b ynvited 5 }
}
on *:dialog:ynvited:sclick:*: {
  if ($did = 4) { /join $did($dname,2).text | .timer_inv.dec off | /dialog -x $dname $dname }
  if ($did = 5) { /notice $did(ynvited,1).text %invit.msg.nao | .timer_inv.dec off | /dialog -x $dname $dname  }
  if ($did = 6) { /ignore $did(ynvited,1).text $+ !*@* | .timer_inv.dec off | /dialog -x $dname $dname }
  if ($did = 7) { /dialog -x $dname $dname | .timer_inv.dec off }
}
alias inv.dec {
  if ($dialog(ynvited)) { 
    if ($1 = ok) {
      if (%inv.dec > 0) {
        /dialog -t ynvited Hey!!! You was Invited To: $did(ynvited,2).text $time(HH:nn)   ( $+ %inv.dec $+ )
        /did -ra ynvited 5 /Notice( $+ %inv.dec $+ ) 
        dec %inv.dec
      }
      if (%inv.dec < 1) { /dialog -t ynvited You was Invited To: $did(ynvited,2).text $time(HH:nn) 1 | .timer_inv.dec off | /notice $did(ynvited,1).text %invit.msg.nao | /dialog -x ynvited ynvited  }
    }
  }
  if ($1 != ok) {
    /did -b ynvited 5
    if (%inv.dec > 0) {
      /dialog -t ynvited Hey!!! You was Invited To: $did(ynvited,2).text $time(HH:nn)   ( $+ %inv.dec $+ )
      /did -ra ynvited 7 /NoTing( $+ %inv.dec $+ ) 
      dec %inv.dec
    }
    if (%inv.dec < 1) { /dialog -t ynvited You was Invited To: $did(ynvited,2).text $time(HH:nn) 1 | .timer_inv.dec off |  /dialog -x ynvited ynvited  }
  }
}
on *:load: {  set %invit.msg.nao 134.04,0808,048W04,08A08,04R04,08N08,04N I'm a DunGerOuS [MAN] 84.08,04D04,08D08,04A04,08A08,04N04,08G08,04E04,08E08,04R04,08R yOu NoT WhAnT-Me On yOUr ChAnNeL 4.04,0808,048W04,08A08,04R04,08N08,04N }
on *:unload: {  unset %invit. $+ * }
alias rinvite { dialog -m invit invit }
menu status,menubar,channel {
  Invite-Sys /rinvite $+ :/dialog -m invit invit
}
;######### The EnD ;)~ ################