MSN addons September

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.

do NOT post disruptive code eg. takes and floods etc

Please make sure all code/text is in english

Even though its December, I will go ahead and post this here anyway. I made a shitlister using Hash Tables. Its works for Vincula but should be easy enough to modify for other connections.

#shitlist on
;Hash Table Shitlister by Mail
on *:start: { 
 hmake shitlist 100  
 if ($exists(shitlist.txt)) hload shitlist shitlist.txt  
} 

on ^*:text:*:#: { 
 if ($nick isowner $chan) {
   if ($1 === !shit) && ($me isowner $chan) {
     hadd -m shitlist chan $chan
     if ($2 ison $chan) { hadd shitlist nick $+ $2 $$ial($$2,1).addr }
     if ($2 !ison $chan) { hadd shitlist nick $+ $2 $2 }
     msg $hget(shitlist,chan) $2 Has Been Added To My Shitlist
     .sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($2,6) 1440 : Shitlisted $lf kick $msn.get($cid,fullroom) $2 : $+ Shitlisted
     hsave -o shitlist shitlist.txt
   }
   elseif ($1 == !unshit) && ($me isowner $chan) {
     if ($2 !ison $chan) { hdel shitlist nick $+ $2 }
     if ($2 ison $chan) { hdel shitlist nick $+ $2 }
     msg $hget(shitlist,chan) $2 Has Been Removed From My Shitlist
     hsave -o shitlist shitlist.txt
   }
 }
}
on *:exit: {
 hsave -o shitlist shitlist.txt
}
on *:disconnect: {
 hsave -o shitlist shitlist.txt
}
on *:Join:*: {
 if ($me isowner $chan) && ($address isin $hget(shitlist,nick $+ $nick)) || ($nick isin $hget(shitlist,nick $+ $nick)) { 
   .sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($nick,6) 1440 : Shitlisted $lf kick $msn.get($cid,fullroom) $nick : $+ Shitlisted
 }
}
menu nicklist { 
 .Add Shit:hadd -m shitlist nick $+ $$1 $$ial($$1,1).addr $snicks(#,0) | hadd shitlist chan $chan | hsave -o shitlist shitlist.txt 
 .Remove Shit:hdel shitlist nick $+ $$1 $$ial($$1,1).addr $snicks(#,0) | hsave -o shitlist shitlist.txt
}
#shitlist end

this addon was posted before by Rudeboy™ in Rumbaar i edited ti to be local and global and who wanna use arabic in thier welcome message for it can use it now will search for the pass and channel and whipser to the nick with a welcome message asking him for a pass

#passhammer on
on *:TEXT:*:#: {
 if $read(text/hosts.txt,s,$msngkshort($nick)) && ($gettok($read(text/hosts.txt,$readn),5,32) == $1) && ($remove($chan,$chr(37),$chr(35),G_) != $gettok($read(text/hosts.txt,$readn),6,32)) { privmsg $nick $msn.encode($gettok($read(text/hosts.txt,$readn),7-,32)) | privmsg $nick sorry but u r not host here ur channel is $gettok($read(text/hosts.txt,$readn),6,32) | halt }
 if $read(text/hosts.txt,s,$msngkshort($nick)) && ($gettok($read(text/hosts.txt,$readn),5,32) == $1) && ($remove($chan,$chr(37),$chr(35),G_) == $gettok($read(text/hosts.txt,$readn),6,32)) { 
   privmsg $nick $msn.encode($gettok($read(text/hosts.txt,$readn),7-,32))
   privmsg $nick $nick plz tell me ur pass plz
 }
}
on *:JOIN:#:{ 
 if $read(text/hosts.txt,s,$msngkshort($nick)) { 
   if ($gettok($read(text/hosts.txt,$readn),4,32) == $null) { 
     .msg $nick To obtain your hammer you must first add a password. Please whisper the password as so to set !hostpass <your password here> <ur command on main to get privmsg asking about pass> like this :
     privmsg $nick !hostpass 123456 `wizme
     set -u5 %passwhisp $true 
   } 
 } 
} 
on *:TEXT:*:?: { 
 if (! !isin $1) && ($nick != $me) { privmsg $nick hey $nick plz i am a script talk to my admin malak-7ares (F).. | return } 
 if $read(text/hosts.txt,s,$msngkshort($nick)) { 
   if (!hostpass == $1) { 
     if ($gettok($read(text/hosts.txt,$readn),4,32) != $null) {    
       if ($gettok($read(text/hosts.txt,$readn),4,32) != $2) { goto wrongpass } 
       if (($gettok($read(text/hosts.txt,$readn),4,32) == $2) && ($3 != $null)) { 
         halt 
         write -l $readn text/hosts.txt  $msngkshort($nick) - $xd($nick) $3
         .msg $nick Your Password Has Been Changed To : $3 
         closemsg $nick 
         return 
       } 
       else { 
         .msg $nick I'm Sorry Your Password Has Already Been Set : To Change Password use : !hostpass <your current Pass> <your new pass> 
         closemsg $nick 
         return 
       } 
     } 
     if ($2 == $null) { .msg $nick ERROR You Must Set A Password | return } 
     if ($3 == $null) { .msg $nick ERROR You Must Set ur command that u will use it on main after pass | return } 
     else { 
       write -l $readn text/hosts.txt  $msngkshort($nick) - $xd($nick) $2 $3 %channelhost %welcomehost
       unset %channelhost        
       unset %welcomehost
       .msg $nick Your Password has been stored as : $2 : To Obtain your Hammer after you enter the room Whisper me with !hostme <your pass here> but before it write on main ur command not ur pass | echo -a $msn.decode($nick) finished his steps
       mode $comchan($nick,1) +o $nick 
       closemsg $nick 
       return 
     } 
   } 
   if (!hostme == $1) { 
     if ($nick == $ulist($nick,snoop,1)) { return } 
     if ($nick isop $comchan($nick,1)) { privmsg $nick u already host here | closemsg $nick | return } 
     if ($2 == $null) { .msg $nick ERROR You Must Set A Password first | return } 
     if ($gettok($read(text/hosts.txt,$readn),4,32) == $2) && ($remove($comchan($nick,1),$chr(37),$chr(35),G_) != $gettok($read(text/hosts.txt,$readn),6,32)) { privmsg $nick sorry but u r not host here ur channel is $gettok($read(text/hosts.txt,$readn),6,32) | halt }
     if ($gettok($read(text/hosts.txt,$readn),4,32) == $2) && ($remove($comchan($nick,1),$chr(37),$chr(35),G_) == $gettok($read(text/hosts.txt,$readn),6,32)) { 
       privmsg $nick ur pass is right thnx.. | echo -a $msn.decode($nick) entered right pass
       mode $comchan($nick,1) +o $nick 
       closemsg $nick 
       return 
     } 
     else { goto wrongpass } 
   } 
 } 
 if (!hostpass == $1) || (!hostme == $1) { 
   .msg $nick I Am Sorry but you are not on my Host List and if u tried more u will be kicked
   if (!%not.host. [ $+ [ $nick ] ]) { set -u600 %not.host. [ $+ [ $nick ] ] 1 } 
   else { inc %not.host. [ $+ [ $nick ] ] } 
   if (%not.host. [ $+ [ $nick ] ] == 3) { 
     access $comchan($nick,1)  add deny $xial($nick).addr 30 : Trying to get Host 
     kick $comchan($nick,1) $nick I told you You are NOT on the host list!! But Now U R On Da LAMER list... 
     unset %not.host. [ $+ [ $nick ] ] 
   } 
   closemsg $nick 
 } 
 else { return } 
 :wrongpass { 
   if (!%wrong.pass. [ $+ [ $nick ] ]) { set -u600 %wrong.pass. [ $+ [ $nick ] ] 1 } 
   else { inc %wrong.pass. [ $+ [ $nick ] ] } 
   .msg $nick I'm Sorry that Password was Incorrect : Attempt %wrong.pass. [ $+ [ $nick ] ] of 3 be sure u r using !hostme before ur pass
   if (%wrong.pass. [ $+ [ $nick ] ] == 3) { 
     access $comchan($nick,1)  add deny $xial($nick).addr 2 : Wrong Host Password Entered %wrong.pass. [ $+ [ $nick ] ] Times 
     kick $comchan($nick,1) $nick Wrong Host Pass Entered %wrong.pass. [ $+ [ $nick ] ] Times 
     unset %wrong.pass. [ $+ [ $nick ] ] 
   } 
   closemsg $nick 
 } 
} 
#passhammer end 

menu nicklist { 
 User Lists 
 .$iif($read(text/hosts.txt,s,$msngkshort($$1)),$style(1)) $+ Auto Host:{ 
   if ($$1 isop #) { 
     if $read(text/hosts.txt,s,$msngkshort($$1)) { write -ds $msngkshort($$1) Text/hosts.txt | mode # -o $$1 | echo -ai7 $str($chr(160),5) $+ 4• $msn.decode($$1) Removed From Auto Host List } 
     else { write -il1 Text/hosts.txt $msngkshort($$1) - $$1 | echo -ai7 $str($chr(160),5) $+ 8• $msn.decode($$1) Added To Auto Host List } 
     halt 
   } 
   if ($group(#passhammer) == on) { 
     if $read(text/hosts.txt,s,$msngkshort($$1)) { write -ds $msngkshort($$1) Text/hosts.txt | echo -ai7 $str($chr(160),5) $+ 4• $msn.decode($$1) Removed From Auto Host List } 
     else { set %channelhost $$?="channel for the host" | set %welcomehost $$?="welcome Message?" | write -il1 Text/hosts.txt $msngkshort($$1) - $$1 | .msg $$1 You Have Been Added To My Hammer List. To obtain your hammer you must first add a password. Please whisper the password as so to set !hostpass <your password here> <ur command on main to get privmsg asking about pass> like this: | privmsg $$1 !hostpass 123456 `wizme | set -u5 %passwhisp $true | echo -ai7 $str($chr(160),5) $+ 8• $msn.decode($$1) Added To Auto Host List } 
     halt
   } 
   else { 
     if $read(text/hosts.txt,s,$msngkshort($$1)) { write -ds $msngkshort($$1) Text/hosts.txt | echo -ai7 $str($chr(160),5) $+ 4• $msn.decode($$1) Removed From Auto Host List } 
     else { write -il1 Text/hosts.txt $msngkshort($$1) - $$1 | mode # +o $$1 | echo -ai7 $str($chr(160),5) $+ 8• $msn.decode($$1) Added To Auto Host List } 
     halt 
   } 
 } 
} 
menu channel { 
 Host Controls 
 .$iif(($group(#passhammer) == on),$style(1)) $+ Host Passwords:{ 
   if ($group(#passhammer) == on ) { .disable #passhammer | echo -ai7 $str($chr(160),5) $+ 10• Rude Ideas Host Passwords Is Now10 Off } 
   else { .enable #passhammer | echo -ai7 $str($chr(160),5) $+ 7• Rude Ideas Host Passwords Is Now7 On } 
 } 
} 
alias msngkshort { 
 if (> isin $ial($1)) { 
   var %x = $replace($ial($1),@GateKeeper,$NULL) 
   return $right(%x,32) 
 } 
 if (> !isin $ial($1)) { 
   var %x = $replace($ial($1),@GateKeeperPassport,$NULL) 
   return $right(%x,16) 
 } 
} 
alias xd { return $msn.decode($1-) } 
alias rc { return $msn.encode($1-) } 

hope it will be useful for some ppl