Skip to content
MSN Addons Archive

Msn addons

A TG007 community discussion started by Ozzy10.

Closed discussion 42 posts
Page 1 of 3
Closed
Topic #6 · 42 published posts · 10,418 views

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.

My code does NOT have bugs. It just develops random features.

Away/Return flood protection for vincula connection

 

raw 821:*: { 
if ($nick isowner $active) return
inc -u10 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1
if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] = 4 ) {
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Return flooding(Access ban set for 15 minutes)
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) ADD DENY $address 15 :Return flood Kick 
}
}
raw 822:*: { 
if ($nick isowner $active) return
inc -u10 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1
if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] = 4 ) {
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Away flooding(Access ban set for 15 minutes) 
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) ADD DENY $address 15 :Away flood Kick
}
}

Edited Feb 25, 2004 9:46 PM by ozzy

My code does NOT have bugs. It just develops random features.

This is for vincula connection and if someone joins your room and goes straight in cup , it will kick them and ban for 5 minutes.

 

on *:JOIN:#: { 
set -u30 %ozawaynick. [ $+ [ $nick ] ] $nick
}

raw 822:*: { 
if ($nick isowner $active) return
;made by ozzy10
if (%ozawaynick. [ $+ [ $nick ] ] == $nick) { 
access $msn.get($cid,fullroom) ADD DENY $address 5 :In cup on join 
kick $msn.get($cid,fullroom) $nick : $+ Dont enter room and then go straight in your cup, its rude(Access ban set for 5 minutes)
}
}

Edited Feb 25, 2004 10:55 PM by ozzy

My code does NOT have bugs. It just develops random features.

Nick change kick for vincula connection.

 

on ^*:NICK: {
.sockwrite -tn msn.server. $+ $cid access $active add deny $address 2 :no nick change $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick $active $newnick : $+ No nick changes in here Thank You(access banned 2 minutes)
}

Edited Feb 25, 2004 9:45 PM by ozzy

My code does NOT have bugs. It just develops random features.

Hop flood protection for vicula connection.

 

on *:JOIN:#:{
if ($nick == $me) halt
if ($nick isowner #) halt
if ($nick isop #) halt
if (%revolve. [ $+ [ $nick ] ] == $null) { 
set -u4 %revolve. [ $+ [ $nick ] ] 1
}
else { inc %revolve. [ $+ [ $nick ] ] }
if (%revolve. [ $+ [ $nick ] ] >= 3) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $nick 1 :Kenobi flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 1 :Kenobi flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick # $nick : $+ Come or go,but make up your mind(1minute ban) 
unset %revolve. [ $+ [ $nick ] ] 
}
}

 

My code does NOT have bugs. It just develops random features.

deop flood protection for vincula connection

 

on *:op:#: {
if ($nick isowner $chan) return
inc -u4 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1
if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] == 4 ) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear host 
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear voice
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear grant
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address 1 :host flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $nick 1 :host flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Host flooding detected set.( 1 min ban )
}
}
on *:deop:#: {
if ($nick isowner $chan) return
inc -u4 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1
if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] == 4 ) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear host
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear voice
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) clear grant
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address 1 :deop flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $nick 1 :deop flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Host flooding detected set.( 1 min ban )
}
}

 

My code does NOT have bugs. It just develops random features.

Mass kick protection for vincula connection.

 

on @!*:KICK:#: {
if ($nick isowner $chan) return
if (%kic. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u8 %kic. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
return
}
else { inc %kic. [ $+ [ $nick ] $+ . $+ [ $chan ] ] }
if (%kic. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == 3 && %kic.check == $null) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 2 :mass kick $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick $chan $nick : $+ Mass kick detected 
set -u6 %kic.check 1
}
}

 

My code does NOT have bugs. It just develops random features.

Ctcp check protection for vincula connection.

 

ctcp *:*:*: {
if ($nick isowner $active) halt
if ($nick isop $active) halt
if (*TIME* iswm $1-) { goto timekick }
elseif (*FINGER* iswm $1-) { goto timekick }
elseif (*PING* iswm $1-) { goto timekick }
elseif (*VERSION* iswm $1-) { goto timekick }
elseif (*ISITVINCULA* iswm $1-) { goto timekick }
halt
:timekick {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address 15 :C.T.C.P $1- check $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time 
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Kenobi C.T.C.P $1- check Ban(Access ban set for 15 minutes)
}
}
on *:CTCPREPLY:â€DTäE: {
if ($nick isowner $active) halt
if ($nick isop $chan) halt
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address 15 :Domi check $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time 
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ Domi check Ban(Access ban set for 15 minutes) 
}

 

My code does NOT have bugs. It just develops random features.

Text flood protection for vincula connection.

 

on @*:TEXT:*:#:{
if ($nick == $me) halt
if ($nick isowner #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u30 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 3) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 1 :flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick # $nick : $+ flooding(gone for 60 seconds) 
unset -u10 %rp.*
}
}
on @*:action:*:#:{
if ($nick == $me) halt
if ($nick isowner #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 3) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 1 :flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick # $nick : $+ flooding(gone for 60 seconds) 
}
}
on @*:notice:*:#:{
if ($nick == $me) halt
if ($nick isowner #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 3) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 1 :flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick # $nick : $+ flooding(gone for 60 seconds) 
}
}
on @*:CTCPREPLY:*:#:{
if ($nick == $me) halt
if ($nick isowner #) halt
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text 
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 3) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 1 :flood $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick $chan $nick : $+ flooding(gone for 60 seconds) 
}
}

Edited Feb 25, 2004 10:52 PM by ozzy

My code does NOT have bugs. It just develops random features.

Anti hack word kick for vincula connection.

 

on ^*:TEXT:*:#:{
if ($nick isowner #) halt
var %s = $strip($1-)
if (*hack* iswm %s) {
set -u120 %r2l. [ $+ [ $address($nick,1) ] ] $calc( %r2l. [ $+ [ $address($nick,1) ] ] + 1)
if (%r2l. [ $+ [ $address($nick,1) ] ] == 1) /privmsg # S Tahoma;0 Don't talk about hacking $nick - this is your first and ONLY warning!
if (%r2l. [ $+ [ $address($nick,1) ] ] == 2) {
.sockwrite -tn msn.server. $+ $cid access $chan add deny $address 5 :hack chat $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
.sockwrite -tn msn.server. $+ $cid kick # $nick : $+ You were warned !! Don't talk about hacking here!(Access ban set for 5 minutes)
}
}
}

 

My code does NOT have bugs. It just develops random features.

Msn Group Chat Joiner

 

dialog join {
 title "Joining Group Chatroom"
 size -1 -1 129 56
 option dbu
 box "Join Room", 1, 1 21 127 20
 edit "", 4, 4 28 121 10, autohs
 button "Join Now", 2, 26 43 37 12, ok
 button "Cancel", 6, 64 43 37 12, cancel
 box "Msn User Role", 3, 1 1 127 20
 combo 5, 4 8 121 22, size edit drop
}


on *:DIALOG:join:init:*: {
 did -a $dname 5 %msnpp.userrole
}

on *:dialog:join:sclick:2:{
 joins -c G_ $+ $did($dname,4).text 
 set %msnpp.userrole $did($dname,5).text 
 set %proprole on
}

raw 913:*: {
 if (%proprole == on) {
   prop $ ROLE %msnpp.userrole
   hop
   unset %proprole
 }
}

 

design for vincula user... if u want to use for other connection .. just change the joins -c to ur connection code

 

 

For those who are still on msnchat, and want to use something to keep non-subscribers out of your room here is a code to use.

 

raw 906:*:{ access $comchan($2,1) add deny $address($2,1) 0 | access $comchan($2,1) add deny $2 0 | kick $comchan($2,1) $2 [Non-Subscribers Aren't Allowed. Please Get a Paid Account To Join. Thanks. :)] }
on *:JOIN:#:{ if ($nick != $me) { mode # -o $nick }

 

When a chatter enters your room your script will try to deop anyone entering the room. Since you cannot op, or deop a non-subscriber it will show as a raw 906 meaning that you don't have access to commands for non-subs. If a raw 906 shows up then your script will add an access deny to the nicks address and nickname, and kick the person out of the room.

Another Spec Kicker Yall Will Like:P

on *:JOIN:#: {

if ($me ison $chan) {

%sn.nick = $nick

%sn.chan = $chan

if ($nick ison $chan) { /ctcp $nick PING }

.timer.undo 1 3 unset %sn.*

}

}

raw 908:*:{

if ($me ison %sn.chan) {

raw access %sn.chan add deny *! [ $+ [ $ial(%sn.nick $+ *,1).addr 3 :Spec Nick ] ]

raw kick %sn.chan %sn.nick Go-Pay-MSN-Then-Come-Back:)

}

}

 

By Echo And JeremyStCyr

 

Passport Flood Protection For Vincula Modified By Me smile.gif Not Sure The Author Though

 

 

on @!*:join:#:{

set -u2 $+(%,#) $eval($+(%,#),2) $nick

if ($numtok($eval($+(%,#),3),32) > 6) {

sockwrite -tn msn.server* kick $msn.get($cid,fullroom) $replace($eval($+(%,#),2),$chr(32),$chr(44)) :Another Passport Flood Attept Bites The Dust(H)

sockwrite -tn msn.server* access $msn.get($cid,fullroom) add deny $address 300 : Dragon Passport Flood Protect

unset $+(%,#)

}

}

 

#autobotalk on Created By Ozzy10 Modified For Multi Talk By JeremyStCyr

 

on *:TEXT:sapphire:*:/privmsg # $read talk/sapphire.txt

on *:TEXT:hello:*:/privmsg # $read talk/hello.txt

on *:TEXT:sex:*:/privmsg # $read talk/sex.txt

on *:TEXT:kiss:*:/privmsg # $read talk/kissme.txt

on *:TEXT:brb:*:/privmsg # $read talk/brb.txt

on *:TEXT:*/*:*:/privmsg # $read talk/asl.txt

on *:TEXT:*/*:*:/privmsg # $read talk/asl.txt

on *:TEXT:*-*:*:/privmsg # $read talk/asl.txt

on *:TEXT:*-*:*:/privmsg # $read talk/asl.txt

on *:TEXT:whats up:*:/privmsg # $read talk/sup.txt

on *:TEXT:vinula:*:/privmsg # $read talk/vincula.txt

on *:TEXT:naughty:*:/privmsg # $read talk/community.txt

on *:TEXT:how are you:*:/privmsg # $read talk/how.txt

on *:TEXT:shush:*:/privmsg # $read talk/shush.txt

#autobotalk end

 

 

all you do now is make the txt or you can change the words and you will have a random message for each word:)

Edited Mar 11, 2004 12:17 PM by ozzy

Bleh well I used too be here alot but I just resigned up..Heres an Aop list. This aop list enables you too add or remove a person silent or add or remove them loudly. By loudly i mean too the room. Comes with a scan. The scan does an echo. After searching the .ini file it'll ask yes too owner or no too not owner It writes the aop'ed user in an .ini file. Tested on rigorMortis but it should work for Vincula. I'll make a banlist later

Aop lists
.Add (echo):{ /writeini aop.ini aop $$address($$1,1) $$1 | /echo -a 7 $$1 has been added too the 12Aop list }
.Add (say):{ /writeini aop.ini aop $$address($$1,1) $$1 | /msg # 7 $$1 has been added too the 12Aop list }
.Remove(echo):{ /remini aop.ini aop $$address($$1,1) $$1 | /echo -a  7 $$1 has been removed from the 12Aop list }
.Remove(say):{ /remini aop.ini aop $$address($$1,1) $$1 | /msg # 7 $$1 has been removed from the 12Aop list }

^^^^^^^^^^^^^^^menu, nicklist^^^^^^^^^^^^^^^^^^^^^^

 
Aop
.On:{ /enable #aop | /echo -a 7Aop enabled }
.Off:{ /disable #aop | /echo -a 7Aop disabled }
.View list:{ /run aop.ini }

^^^^^^^^^^^^^^^menu,channel/menubar^^^^^^^^^^^^^^^^^^

#aop off
on *:join:#:{
 if ($nick != $me) && ($me isop $chan) && ($readini(aop.ini,aop,$address($nick,1)) != $null) { /mode # +q $nick }
#aop end

^^^^^^^^^^^^^^^Remotes^^^^^^^^^^^^^^^^^^^

aop {
 set %s 0
 set %n 1
 if ($1 == $null) { halt }
 /echo -a 7Preforming 12Aop scan
 goto chanscan
 :chanscan { 
   if ($readini(aop.ini,aop,$address($nick($1,%n),1)) != $null) {
     /echo -a 7 Found $nick($1,%n) $+ : with gatekeeper: " $+ $readini(aop.ini,aop,$$address($nick($1,%n),1)) $+ " ]]
     inc %s
   }
   if (%n >= $nick($1,0)) { goto end }
 }
 inc %n
 goto chanscan
 :end { 
   if (%s <= 1) { /echo -a 7 Aop scan preformed | /echo -a 12Would you like too owner users on aop? | halt }
   if (yes == $2) && if ($me isowner $chan) && ($readini(aop.ini,aop,$$address($nick,1)) != $null) { mode $chan +q $nick | halt }

^^^^^^^^^^^^^^Alias^^^^^^^^^^^^^^^^^^

Ok I'm not completely sure if that scan works but ah what the hell..had too try something. If you find any errors let me know please thanks

X-fusion/oX

Edited Mar 19, 2004 9:10 PM by X-Fusion

Alright well I said I was gonna make a banlist. Here it is. Make a .ini file and call it "Banlist". It saves their name as %name and a reason as %reason. It echo's when a banlisted user comes in. It will only do it when your op though so thats useful. It will also echo the banlist for you in an active window. No scan so yeah ;\. If used in a public script let me know through messenger: [email protected]. You can use it if keep credit line in tact. (Which most of the rippers wont do).

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;Banlist;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;Made by oX;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;Keep line in tact;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--Ban list
 #banlist off
 on *:join:#:{
   if ($nick != $me) && ($me isop $chan && ($readini(banlist.ini,banlisted,$address($nick,1)) != $null) { /echo -a 7 Banlisted user %name has entered! They were banlisted for %reason Take swift actions now! | /kick # $nick Banlisted / %name / %reason | /access # add deny $address($$1,1)
     #banlist end

^^^^^^^^^^^^^^^Remotes^^^^^^^^^^^^^^^^^^^^^^^^

Banlist
.Add
..Echo:{ /writeini banlist.ini /set %name $$?"Name?" /set %reason $$?"Reason?" banlisted / %name / %reason $address($$1,1) $$1 | /echo -a 7 $$1 has been added too the 12Ban list | /kick # $$1 Banlisted / Name: %name / Reason: %reason }
..Say:{ /writeini banlist.ini /set %name $$?"Name?" /set %reason $$?"Reason?" banlisted / %name / %reason $address ($$1,1) $$1 | /msg # 7 %name has been added too the 12Ban list | /kick # $$1 Banlisted / Name: %name /Reason : %reason } 
.Remove
..Echo:{ /remini banlist.ini banlisted $$address($$1,1) $$1 | /echo -a 7 $$1 has been removed from the 12Ban list }
..Say:{ /remini banlist.ini banlisted $$address($$1,1) $$1 | /message # 7 $$1 has been removed from the 12Ban list }

^^^^^^^^^^^^^^^^Popups,Nicklist^^^^^^^^^^^^^^^^^^^^^

Banlist
.Enable:{ /enable #banlist | /echo -a 7Banlist enabled }
.Disable:{ /disable #banlist | /echo -a 7Banlist disabled }
.View list:{ /run banlist.ini }
.Echo list:{ /echo -a 12 $read(banlist.ini)

^^^^^^^^^^^^^^^^Popups menubar er w/e^^^^^^^^^^^^^^^^^

Alright thats a banlist. Should work I've tested it and everything. Enjoy and keep credit line in tact.

Edited Mar 20, 2004 1:28 PM by X-Fusion

Ummm JeremyStCyr That Spec kicker look's Good. . Here's one i made.. wink.gif

 

on *:JOIN:#: { 
 %sn.nick = $nick 
 %sn.chan = $chan 
 if ($nick ison $chan) { /ctcp $nick PING } 
 .timer.undo 1 3 unset %sn.* 
} 
raw 908:*:{ 
 raw access %sn.chan add deny *! [ $+ [ $ial(%sn.nick $+ *,1).addr ] ] 
 raw kick %sn.chan %sn.nick Subscriber~Kick  
}

 

And here's Your's .

on *:JOIN:#: {
if ($me ison $chan) {
   %sn.nick = $nick
   %sn.chan = $chan
   if ($nick ison $chan) { /ctcp $nick PING }
   .timer.undo 1 3 unset %sn.*
  }
}
raw 908:*:{
 if ($me ison %sn.chan) {
   raw access %sn.chan add deny *! [ $+ [ $ial(%sn.nick $+ *,1).addr 3 :Spec Nick ] ]
   raw kick %sn.chan %sn.nick Go-Pay-MSN-Then-Come-Back:)
 }
}

They alomost look alike dont ya think wink.gif .

Actually LoveDoctorCasa made one that was more effective and powerful then that. But um..heres sum stuff

on *:text:+owner*:#:{ if ($level($address($nick,1)) == Admin) { /write owner.txt $address($2-,1) | /msg # Owner list entry $2- added | /mode +q $2- }
ON *:text:-owner*:#:{ if ($level($address($nick,1)) == Admin) { /write -c owner.txt $address($2-,1) | /msg # Owner list entry $2- removed | if ($2- isop $chan) /mode -q $2- | else halt

If your going too do a pass catcher then just do this

raw prop:*:{
if ($2 == HOSTKEY) | /write hostkeys.txt Room name: $chan / Hostkey changed too: $2- | /echo -a Hostkey written in hostkeys.txt
}
raw prop:*:{
if $2 == OWNERKEY) | /write ownerkeys.txt Room name: $chan / Ownerkey changed too $2- | /echo -a Ownerkey change written in ownerkeys.txt

I was gonna give that too Enotx|cated but his topic thingie got taken down. Here Entox|cated. Alot simpler

This is a non-subscriber kick made from Rumbaar

menu nicklist,channel {
No Time Kick ( $+ $group(#notimekick) $+ )
.$iif($menu == nicklist,Allowed List) 
..$iif($menu == nicklist,Add) : { write allow.txt $$ial($$1 $+ *,1).addr } 
..$iif($menu == nicklist,Remove) : { write -ds $+ $$ial($$1 $+ *,1).addr allow.txt } 
.$iif($group(#notimekick) == on,$style(2),$style(0)) On: .enable #notimekick | echo -a 0,12No TIME kick $+ 0,94 On
.$iif($group(#notimekick) == off,$style(2),$style(0)) Off: .disable #notimekick | echo -a 0,12No TIME kick $+ 0,4 Off
}

#notimekick on
on ^*:JOIN:* {
if ($nick != $me) && (> !isin $nick) && ($$ial($nick $+ *,1).addr != $read(allow.txt, w,* $+ $$ial($nick $+ *,1).addr $+ * )) {
ctcp $nick TIME
.timertime. [ $+ [ $nick ] ] $+ 1 1 10 access $!chr(37) $!+ $right($chan,-1) add DENY $$ial($nick).addr
.timertime. [ $+ [ $nick ] ] $+ 2 1 11 kick $!chr(37) $!+ $right($chan,-1) $nick
set -u12 %timertime. [ $+ [ $nick ] ]
}
}

on *:ctcpreply:*TIME*: { 
if (!%timertime. [ $+ [ $nick ] ]) {
.timertime. [ $+ [ $nick ] ] $+ * off
unset timertime. [ $+ [ $nick ] ]
}
}
on ^*:PART:*:{
if (!%timertime. [ $+ [ $nick ] ]) {
.timertime. [ $+ [ $nick ] ] $+ * off
unset timertime. [ $+ [ $nick ] ]
}
}
on ^*:QUIT:*:{
if (!%timertime. [ $+ [ $nick ] ]) {
.timertime. [ $+ [ $nick ] ] $+ * off
unset timertime. [ $+ [ $nick ] ]
}
}
on ^*:KICK:*:{
if (!%timertime. [ $+ [ $nick ] ]) {
.timertime. [ $+ [ $nick ] ] $+ * off
unset timertime. [ $+ [ $nick ] ]
}
}
#notimekick end

Now what that does is checks the time of any user that joins. If they dont have a time it kicks them.

Well I'm not 100% but I think non-subscription joiners don't respond to any requests so here is a slightly modified version of my No Time kicker to handle them

^From Rumbaar

When I find Casa's I'll post it