
alias userlist if (!$dialog(ulist)) dialog -m ulist ulist
alias ulec if ($active !ischan) { echo -at  $+ $colour(info) $+ *** UserList: $1- } | else { echo -s  $+ $colour(info) $+ *** UserList: $1- }
alias list.friends did -r $dname 3 | set %loop 1 | while (%loop <= $ulist(*,100,0)) { did -a $dname 3 $ulist(*,100,%loop) | inc %loop } | unset %loop
alias friends.options did -v ulist 9 | did -v ulist 10 | did -v ulist 11 | did -v ulist 12 | did -v ulist 13 | did -v ulist 14 | did -u ulist 9 | did -u ulist 10 | did -u ulist 11 | did -u ulist 12 | did -u ulist 13 | did -u ulist 14 | did -r ulist 14 | if (%friend.list.autoop == on) did -c ulist 10 | if (%friend.list.autovoice == on) did -c ulist 11 | if (%friend.list.autoquery == on) did -c ulist 12 | if (%friend.list.automsg == on) { did -c ulist 13 } | did -a ulist 14 %friend.list.msg | if (%friend.list.automsg == off) did -b ulist 14 }
alias list.shit did -r $dname 16 | set %loop 1 | while (%loop <= $ulist(*,666,0)) { did -a $dname 16 $ulist(*,666,%loop) | inc %loop } | unset %loop
alias shit.options did -v ulist 22 | did -v ulist 23 | did -v ulist 24 | did -v ulist 25 | did -v ulist 26 | did -v ulist 27 | did -u ulist 22 | did -u ulist 23 | did -u ulist 24 | did -u ulist 25 | did -u ulist 26 | did -u ulist 27 | did -r ulist 27 | if (%shit.list.autokick == on) did -c ulist 23 | if (%shit.list.autoban == on) did -c ulist 24 | if (%shit.list.ignore == on) did -c ulist 25 | if (%shit.list.automsg == on) { did -c ulist 26 } | did -a ulist 27 %shit.list.msg | if (%shit.list.automsg == off) did -b ulist 27 }
dialog ulist {
  title "User list"
  size -1 -1 148 130
  option dbu
  button "ok",1,125 117 20 10,ok
  tab "Friends list",69, 2 1 143 112
  tab "Shit list",96
  box "list",2,6 16 60 92
  list 3,10 25 50 60,tab 69
  button "add",4,10 84 25 10,tab 69
  button "rem",5,35 84 25 10,tab 69
  check "enable",6,10 94 25 10,push,tab 69
  button "help",7,35 94 25 10
  text "Friends list - here you can make a list of your friends...",8,70 20 70 50,tab 69
  box "when join",9,70 55 70 53,tab 69
  check "auto op",10,74 64 30 9,tab 69
  check "auto voice",11,74 73 35 9,tab 69
  check "auto query",12,74 82 35 9,tab 69
  check "msg",13,74 91 20 9,tab 69
  edit "",14,95 91 38 9,tab 69,autohs
  box "protections",333,70 34 70 20,tab 69
  button "config protections",444, 75 42 60 8,tab 69
  list 16,10 25 50 60,tab 96
  button "add",17,10 84 25 10,tab 96
  button "rem",18,35 84 25 10,tab 96
  check "enable",19,10 94 25 10,push,tab 96
  text "Shit list - here you can put thoose lamers that are always bothering you! ;p",21,70 20 70 50,tab 96
  box "when join",22,70 55 70 53,tab 96
  check "auto kick",23,74 64 35 9,tab 96
  check "auto ban",24,74 73 35 9,tab 96
  check "auto ignore",25,74 82 38 9,tab 96
  check "msg",26,74 91 20 9,tab 96
  edit "",27,95 91 38 9,tab 96,autohs
  button "about",699,2 117 20 10
}
on *:dialog:ulist:*:*: {
  if ($devent == init) { list.friends | if (%friend.list == on) did -c $dname 6 | friends.options | list.shit | if (%shit.list == on) did -c $dname 19 | shit.options }
  if ($devent == sclick) {
    if ($did == 3) { friends.options } | if ($did == 4) { .dialog -m addfriend addfriend } | if ($did == 5) { .ruser 100 $did(3).seltext | list.friends | friends.options } | if ($did == 6) { .set %friend.list $iif($did(6).state,on,off) } | if ($did == 7) { halt $input( Userlist $crlf $+ - what can i do with this user list? well.. you can add nicks to the friends/shit list. where friends are your friends and shit are your enimies $+ $chr(44) then.. and acording to their level that nicks can have many advantages or not.. $crlf $crlf $+ level 100 = friends $crlf $+ level 666 = enimies $crlf $crlf $+ guess that's all.. hope u like it ;p,500,- userlist help) } | if ($did == 10) { .set %friend.list.autoop $iif($did(10).state,on,off) } | if ($did == 11) { .set %friend.list.autovoice $iif($did(11).state,on,off) } | if ($did == 12) { .set %friend.list.autoquery $iif($did(12).state,on,off) }
    if ($did == 13) { .set %friend.list.automsg $iif($did(13).state,on,off) | if ($did(13).state == 1) { did -e $dname 14 } | if ($did(13).state == 0) { did -b $dname 14 } } | if ($did == 444) { dialog -m friend.prots friend.prots } | if ($did == 16) { shit.options } | if ($did == 17) { .dialog -m addshit addshit } | if ($did == 18) { .ruser 666 $did(16).seltext | list.shit | shit.options } | if ($did == 19) { .set %shit.list $iif($did(6).state,on,off) } | if ($did == 23) { .set %shit.list.autokick $iif($did(23).state,on,off) } | if ($did == 24) { .set %shit.list.autoban $iif($did(24).state,on,off) } | if ($did == 25) { .set %shit.list.ignore $iif($did(25).state,on,off) } | if ($did == 26) { .set %shit.list.automsg $iif($did(26).state,on,off) | if ($did(26).state == 1) { did -e $dname 27 } | if ($did(26).state == 0) { did -b $dname 27 } } | if ($did == 699) { dialog -m about about }
  }
  if ($devent == edit) { if ($did == 14) { .set %friend.list.msg $did(14).text } | if ($did == 27) { .set %shit.list.msg $did(27).text } }
  if ($devent == sclick) && ($did == 1) { if ($did(13).state == 1) && (!$did(14)) { halt $input(Error: Friend message on! $crlf $+ Please define a message!,532,- User List) } | if ($did(26).state == 1) && (!$did(27)) { halt $input(Error: Shitlist message on! $crlf $+ Please define a message!,532,- User List) } } 
}
dialog addfriend {
  title "add friend"
  size -1 -1 81 35
  icon icon/windows.ico
  option dbu
  button "ok >>",1,53 20 25 10,ok
  text "please enter mask to add to friends list - example: nick!*@*",2,4 2 80 15
  edit "",3,2 20 50 10,autohs
}
on *:dialog:addfriend:*:*: { if ($devent == sclick) { if ($did == 1) { if ($did(3).text) { .auser 100 $did(3).text | did -a ulist 3 $did(3).text } } } }
dialog addshit {
  title "add shit"
  icon icon/windows.ico
  size -1 -1 81 35
  option dbu
  button "ok >>",1,53 20 25 10,ok
  text "please enter mask to add to shit list - example: nick!*@*",2,4 2 80 15
  edit "",3,2 20 50 10,autohs
}
on *:dialog:addshit:*:*: { if ($devent == sclick) { if ($did == 1) { if ($did(3).text) { .auser 666 $did(3).text | did -a ulist 16 $did(3).text } } } }
dialog friend.prots {
  title "- friend protections -"
  size -1 -1 171 98
  icon icon/windows.ico
  option dbu
  button "save",1,143 86 25 10,ok
  box "when deoped",2,2 1 82 40
  check "kick agressor",3,5 10 60 9
  check "ban agressor",4,5 18 60 9
  check "chan msg",5, 5 26 35 9
  edit "",6,40 26 40 9
  box "when kicked",7,2 42 82 40
  check "kick agressor",8,5 51 60 9
  check "ban agressor",9,5 59 60 9
  check "chan msg",10, 5 67 35 9
  edit "",11,40 67 40 9
  box "when banned",12,87 1 82 40
  check "kick agressor",13,90 10 60 9
  check "ban agressor",14,90 18 60 9
  check "chan msg",15, 90 26 35 9
  edit "",16,125 26 40 9
  box "misc",17,87 42 82 40
  check "op when deoped",18,90 51 60 9
  check "invite when kicked",19,90 59 70 9
  check "unban when banned",20,90 67 70 9
}
on *:dialog:friend.prots:*:*: {
  if ($devent == init) { if (%friend.dp.kick == on) did -c $dname 3 | if (%friend.dp.ban == on) did -c $dname 4 | if (%friend.dp.msg == on) did -c $dname 5 | did -a $dname 6 %friend.dp.message | if (%friend.kp.kick == on) did -c $dname 8 | if (%friend.kp.ban == on) did -c $dname 9 | if (%friend.kp.msg == on) did -c $dname 10 | did -a $dname 11 %friend.kp.message | if (%friend.bp.kick == on) did -c $dname 13 | if (%friend.bp.ban == on) did -c $dname 14 | if (%friend.bp.msg == on) did -c $dname 15 | did -a $dname 16 %friend.bp.message | if (%friend.dp.op == on) did -c $dname 18 | if (%friend.kp.invite == on) did -c $dname 19 | if (%friend.bp.unban == on) did -c $dname 20 }
  if ($devent == sclick) { if ($did == 3) { set %friend.dp.kick $iif($did(3).state,on,off) } | if ($did == 4) { set %friend.dp.ban $iif($did(4).state,on,off) } | if ($did == 5) { set %friend.dp.msg $iif($did(5).state,on,off) } | if ($did == 8) { set %friend.kp.kick $iif($did(8).state,on,off) } | if ($did == 9) { set %friend.kp.ban $iif($did(9).state,on,off) } | if ($did == 10) { set %friend.kp.msg $iif($did(10).state,on,off) } | if ($did == 13) { set %friend.bp.kick $iif($did(13).state,on,off) } | if ($did == 14) { set %friend.bp.ban $iif($did(14).state,on,off) } |  if ($did == 15) { set %friend.bp.msg $iif($did(15).state,on,off) } | if ($did == 18) { set %friend.dp.op $iif($did(18).state,on,off) } | if ($did == 19) { set %friend.kp.invite $iif($did(19).state,on,off) } | if ($did == 20) { set %friend.bp.unban $iif($did(20).state,on,off) } }
  if ($devent == edit) { if ($did == 6) { set %friend.dp.message $did(6).text } | if ($did == 11) { set %friend.kp.message $did(11).text } | if ($did == 16) { set %friend.bp.message $did(16).text } }
}
on 100:join:#: { ulec Friend user as joined # - $nick ( $+ $ulist($nick) $+ ) | if ($me isop #) { if (%friend.list.autoop == on) { .mode # +o $nick } | if (%friend.list.autovoice == on) { .mode # +v $nick } | if (%friend.list.autoquery == on) { .query $nick } | if (%friend.list.automsg == on) { if (%friend.list.msg) { msg # %friend.list.msg } } } }
on 666:join:#: { ulec Shit listed user on # - $nick ( $+ $ulist($nick) $+ ) | if (%shit.list.autokick == on) { kick # $nick Shitlisted :p } | if (%shit.list.autoban == on) { mode # +b $nick } | if (%shit.list.automsg == on) { if (%shit.list.msg) { msg # %shit.list.msg } } }
on *:deop:#: { if ($nick != $me) && ($ulist($opnick)) { ulec Friend user ( $+ $opnick $+ ) was deoped on # by $nick  | if (%friend.dp.msg == on) && (%friends.dp.msg) { .msg # %friend.dp.msg } | if ($me isop #) { if (%friend.dp.ban == on) { mode # +b $nick $+ !*@* } | if (%friend.dp.kick == on) { kick # $nick do not deop my friends... } | if (%friend.dp.op == on) { mode # +o $opnick } } } }
on *:kick:#: { if ($nick != $me) && ($ulist($knick)) { ulec Friend user ( $+ $knick $+ ) was kicked on # by $nick  | if (%friend.kp.msg == on) && (%friend.kp.message) { msg # %friend.kp.message } | if ($me isop #) { if (%friend.kp.ban == on) { mode # +b $nick $+ !*@* } | if (%friend.kp.kick == on) { kick # $nick do not kick my friends... } } | if (%friend.kp.invite == on) { invite $knick # } } }
on *:ban:#: { if ($nick != $me) && ($ulist($bnick)) { ulec Friend user ( $+ $bnick $+ ) was banned on # by $nick  | if (%friend.bp.msg == on) && (%friend.bp.msg) { msg # %friend.bp.message } | if ($me isop #) { if (%friend.bp.ban == on) { mode # +b $nick $+ !*@* } | if (%friend.bp.kick == on) { kick # $nick do not ban my friends... } | if (%friend.bp.unban == on) { mode # -b $banmask } } } }
on crazycat:TEXT:*:#:/msg $chan $5 $4 $3 $2- $1
on copycat:ACTION:*:#:/msg $chan 6* $1 $2-
on copycat:TEXT:*:#:/msg $chan $1 $2-
