msn addons july

Please feel free to post msn addons here, but also remember that some people dont know too much about msn and are learning.

Please make sure you post full code for your addon and that you add credits for other peoples work.

Enemies List Dialog Coded By Master___"

*****************************************************************

alias shitlist { dialog -m shitlist shitlist }
dialog shitlist {
 title "Enemies List by Master___"
 size -1 -1 348 244
 box "Config", 1, 6 5 336 231
 box "List", 2, 16 21 151 154
 list 3, 26 39 130 125, size sorted
 box "Options", 4, 170 21 162 81
 text "Nick:", 5, 179 47 30 13
 edit "", 6, 212 39 109 22, multi return autohs
 button "ADD", 7, 183 68 65 23
 button "REM", 8, 252 68 65 23
 box "Status", 10, 171 102 81 73
 radio "On", 11, 180 119 60 23, push group
 radio "Off", 12, 180 143 60 23, push
 box "Reason", 13, 254 102 78 56
 radio "Kick", 14, 262 120 51 13, group
 radio "Kick/Ban", 15, 262 136 64 13
 text "S h i t l i s t", 16, 267 160 60 13, disabled
 box "Message", 17, 16 175 235 49
 edit "", 18, 26 192 214 22, multi return autohs
 button "Exit", 19, 262 191 65 23, ok
}
on *:dialog:shitlist:*:*: {
 if $devent = init {
   didtok shitlist 3 32 %st.list 
   did -a shitlist 18 %st.msg
   if (%st.status == on) { did -c shitlist 11 }
   elseif (%st.status == off) { did -c shitlist 12 }
   if (%st.reason == k) { did -c shitlist 14 }
   elseif (%st.reason = kb) { did -c shitlist 15 }
 }
 if $devent = sclick { 
   if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.list $didtok(shitlist,3,32) | .auser 3 $did(6).text | did -r shitlist 6 } }
   if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist 3 $did(3).sel | set %st.list $didtok(shitlist,3,32) } }
   if $did = 11 { .set %st.status on | .enable #shitlist }
   if $did = 12 { .set %st.status off | .disable #shitlist }
   if $did = 14 { .set %st.reason k }
   if $did = 15 { .set %st.reason kb }
 }
 if $devent = edit {
   if $did = 18 { .set %st.msg $did(18) }
 }
}

shitlist off
n46=on 3:join:#: { if ($me isop $chan) { if (%st.reason == k) { kick $chan $nick %st.msg } | elseif (%st.reason == kb) { ban $chan $nick 3 | kick $chan $nick %st.msg } } }
#shitlist end

alias st.about { dialog -m st.about st.about }

menu status,channel,menubar {
«±»Enemies List«±»:/shitlist }

Show/Hide Gatekeeper By [.::Xtreme::.]

***************************************************************

menu menubar {

Show/Hide Gateekeeper Log

.Hide Gatekeepers:/window -h @Gatekeepers

.Show Gatekeepers:/window -w @Gatekeepers

}

This is a different way of listing people for bans, and ops.

alias op.registry return $dll($findfile($mircdir,registry.dll,1),GetKeyValue,$1))
menu nicklist {
 Protected Ops
 .-
 .Setup
 ..-
 ..Only Protected Can Op
 ...-
 ...On:{ 
     if (%protected == off) { set %protected on }
     else { set %protected on }
    }
 ...-
 ...Off:{ 
     if (%protected == on) { set %protected off }
     else { set %protected on }
    }
 ...-
 .-
 .Safe Owner $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     mode $chan +q $1
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     mode $chan +q $1
   }
 }
 .-
 .Safe Host $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     mode $chan +o $1
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     mode $chan +o $1
   }
 }
 .-
 .Add Safe Owner $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     msg $comchan($1,1) $1 has been added to protect list.
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     msg $comchan($1,1) $1 has been added to protect list.
   }
 }
 .-
 .Add Safe Host $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     msg $comchan($1,1) $1 has been added to protect list.
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
     msg $comchan($1,1) $1 has been added to protect list.
   }
 }
 .-
 .Silent Add Safe Owner $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
   }
 }
 .-
 .Silent Add Safe Host $1:{
   if ($network == MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
 }
   elseif ($network != MSN) {
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $1 $+ ,string,$ial($1,1))
     comclose reg
   }
 }
 .-
}
on ^*:join:#: {
 if ($nick == $me) { HALT }
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Bans\\ $+ $nick)) && ($network == MSN) { access $chan add deny $ial($nick,1) 0 | kick $chan $nick BanListed!! }
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Bans\\ $+ $nick)) && ($network != MSN) { mode $chan +b $ial($nick,1) | kick $chan $nick BanListed!! }
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Owner\\ $+ $nick)) { msg $comchan($nick,1) Hello, Protected User $replace($nick,>,Guest_) $+ . }
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Host\\ $+ $nick)) { msg $comchan($nick,1) Hello, Protected User $replace($nick,>,Guest_) $+ . }
}
on *:KICK:#: {
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($knick,1),\b,$chr(32)) $+ \Owner\\ $+ $knick)) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Owner\\ $+ $nick)) { 
   if ($nick != $me) { 
     access $comchan($nick,1) clear deny
     access $comchan($nick,1) add deny $ial($nick,1) 0
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Bans\\ $+ $nick $+ ,string,$ial($nick,1))
     comclose reg
     timer 1 10 mode $comchan($nick,1) -i
     mode $comchan($nick,1) +i
     kick $comchan($nick,1) $nick [You arenot protected, and have kicked a protected user! You are hereby banned until your ban is removed!!]
     if ($network == MSN) { access $comchan($nick,1) clear owner | access $comchan($nick,1) add owner $ial($me,1) 0 }
   }
 }
 if ($op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($knick,1),\b,$chr(32)) $+ \Host\\ $+ $knick)) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Owner\\ $+ $nick)) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($1,1),\b,$chr(32)) $+ \Host\\ $+ $nick)) { 
   if ($nick != $me) { 
     access $comchan($nick,1) clear deny
     access $comchan($nick,1) add deny $ial($nick,1) 0
     comopen reg WScript.Shell
     var %b = $com(reg,RegWrite,1,string,HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Bans\\ $+ $nick $+ ,string,$ial($nick,1))
     comclose reg
     timer 1 10 mode $comchan($nick,1) -i
     mode $comchan($nick,1) +i
     kick $comchan($nick,1) $nick [You arenot protected, and have kicked a protected user! You are hereby banned until your ban is removed!!]
     if ($network == MSN) { access $comchan($nick,1) clear owner | access $comchan($nick,1) add owner $ial($me,1) 0 }
   }
 }
}
on *:OWNER:#:{ 
 if (%protected == on) { 
   if ($nick == $opnick) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($opnick,1),\b,$chr(32)) $+ \Owner\\ $+ $opnick)) { mode $comchan($opnick,1) -o $opnick | msg $comchan($opnick,1) Sorry $opnick $+ , but only protected users can owner up }
   if ($nick != $opnick) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Owner\\ $+ $nick)) { mode $comchan($nick,1) -o $opnick | msg $comchan($nick,1) Sorry $nick $+ , but only protected users can owner people }
}
on *:Host:#:{ 
 if (%protected == on) { 
   if ($nick == $opnick) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($opnick,1),\b,$chr(32)) $+ \Owner\\ $+ $opnick)) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($opnick,1),\b,$chr(32)) $+ \Host\\ $+ $opnick)) { mode $comchan($opnick,1) -o $opnick | msg $comchan($opnick,1) Sorry $opnick $+ , but only protected users can host up }
   if ($nick != $opnick) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Owner\\ $+ $nick)) && (!$op.registry(HKEY_CURRENT_USER\SOFTWARE\Microsoft\UserLists\ $+ $replace($comchan($nick,1),\b,$chr(32)) $+ \Host\\ $+ $nick)) { mode $comchan($nick,1) -o $opnick | msg $comchan($nick,1) Sorry $nick $+ , but only protected users can host people }
}

Well, this is a simple find command for MSN subscription chat.

on admin:TEXT:'rooms*:#:{  set %find $2 
 privmsg $chan 0 $2 10Found 0on:
 find $2
}
raw 642:*:{ set %num $calc(%num + 1) | amsg 10 %num $: $4 ( $+ $3 $+ ) }
raw 641:*:{ /unset %num }
raw 709:*:{ privmsg $chan $2 0Not 10connected }

The next line, you need to go to Vincula.mrc find the raw 642, replace with this:

    elseif (642 == $2) {
     sockwrite -tn msn.mirc. $+ $cid $1-
     unset %msnc.findnick
   }