need help with some code

i was wondering if someone could make me some addons

1: A ADDON TO IGNORE TIME PING IF POSSIBLE

2: A ADDON IF SOME WHISPERS ME MY MIRC WILL CLOSE THE WINDOW THATS MADE BY SOMEONE WHISPERING ME INSTEAD OF KICKING THEM

1. time and ping are 2 seperate ctcps

2. disable pm's

For Msn heres the code that i use. if someones not on a list it will echo thier whispers to a new window and close the msg window. then tells them your not accepting whispers. if they on your allowed list it will just let them go through like normal.

on *:TEXT:*:?: {
 if ($nick == $me)  { return }
 elseif $read(Textfiles/whisper.allowed.temp.txt,s,$msngkshort($nick))  { return }
 elseif (%whiscon == off) && (%awaysys == on) {
   msg $nick Auto (C) Reply: %awaymes : Your Message has been Logged @ $asctime
   write -ds $msngkshort($nick) Textfiles/whisper.allowed.temp.txt
   write -il1 Textfiles/whisper.allowed.temp.txt $msngkshort($nick) - $nick
   timer $+ $msn.decode($nick) 1 600 write -ds $msngkshort($nick) Textfiles/whisper.allowed.temp.txt
 }
 elseif (($read(Textfiles/whisper.allowed.perm.txt,s,$msngkshort($nick))) && (%awaysys == on)) || (($nick isop $comchan($me,1)) && (%awaysys == on)) {
   msg $nick Auto (C) Reply: %awaymes : Your Message has been Logged @ $asctime
   write -ds $msngkshort($nick) Textfiles/whisper.allowed.temp.txt
   write -il1 Textfiles/whisper.allowed.temp.txt $msngkshort($nick) - $nick
   timer $+ $msn.decode($nick) 1 600 write -ds $msngkshort($nick) Textfiles/whisper.allowed.temp.txt
 }
 elseif (%whiscon == off)  && (%awaysys != on) { return }
 elseif $read(Textfiles/whisper.allowed.perm.txt,s,$msngkshort($nick)) { return } 
 else {
   sockwrite -tn msn.server. $+ $cid WHISPER $msn.get($cid,fullroom) $rc($nick) :ERR NOUSERWHISPER
   if ($window(@NewWhispers) == $null) { /window -ae @NewWhispers clear.txt }
   echo @NewWhispers $timestamp $chr(60) $+ $msn.decode($nick) $+ $chr(62) $1-
   closemsg $nick
 }
}
on *:CLOSE:*: {
 if $read(Textfiles/whisper.allowed.temp.txt,s,$msngkshort($nick))  {
   write -ds $msngkshort($nick) Textfiles/whisper.allowed.temp.txt
   timer $+ $msn.decode($nick) off
 }
 else { halt }
}
alias awaydeactivate {
 unset %awaymes
 set %awaysys off
 away
}
alias awayactivate {
 set %awaymes $?="Why Are You Going Away?"
 set %awaysys on
 Away Away
}
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 addallowedperm {
 write -ds $msngkshort($1) Textfiles/whisper.allowed.perm.txt
 write -il1 Textfiles/whisper.allowed.perm.txt $msngkshort($1) - $1
 echo -ai7 $str($chr(160),5) $+ 8• $1 Added To Whisper Allow list
}
alias remallowedperm {
 write -ds $msngkshort($1) Textfiles/whisper.allowed.perm.txt
 echo -ai7 $str($chr(160),5) $+ 4• $1 Removed From Whisper Allow list
}
menu channel {
Whisper Control
.$iif((%whiscon == on),Off):{ set %whiscon off | echo -ai7 $str($chr(160),5) $+ 4• Rude Ideas Whisper Control is Now10 Off }
.$iif((%whiscon == off),On):{ set %whiscon on | echo -ai7 $str($chr(160),5) $+ 4• Rude Ideas Whisper Control is Now10 On }
Away System
.$iif((%awaysys == on),Back):{ .$awaydeactivate }
.$iif((%awaysys == off),Away):{ .away away | set %awaysys on }
.$iif((%awaysys == off),Away W/ Message):{ .$awayactivate }
}
menu nicklist {
Whisper Allowed
.Add:/$addAllowedPerm($$1)
.Remove:/$remAllowedPerm($$1) | /$remallowedtemp($$1)
.-
.View Whisper Allow List:/run Textfiles/whisper.allowed.perm.txt
Away System
.$iif((%awaysys == on),Back):{ .$awaydeactivate }
.$iif((%awaysys == off),Away):{ .away away | set %awaysys on }
.$iif((%awaysys == off),Away W/ Message):{ .$awayactivate }
}

has a small away in there too

all coding was by me except i got the sockwrite line from someone and the msgkshort was outt a scriptkicker dont remember which one.

thanks for that code rudeboy i needed to know how i could block time msgs

and pings if possible as well because when i go into msn chat canadian rooms the free ones im consently getting mass timed and mass pinged of the server

if anyone can help me out all help if very much appretiated since im not good

at scripting

i love the emotions for the board to

what i have...feel free to edit or manipulate as you like

  if ($2 == PRIVMSG) {
   if ($4-5 == :DCC send) {
     echo $sock($sockname).mark 4*** $gtnick($1) just tried to crash your mirc ***
     echo -s 4*** $gtnick($1) From $sock($sockname).mark just tried to crash your pc ***
     sockwrite -n $sockname access $sock($sockname).mark add deny $gtpassport($1) $+ $lf $+ kick $sock($sockname).mark $gtnick($1) :For Every Exploit There Is A Solution
     halt 
   }
   if (VERSION isin $4) { .echo -a 10(6C4T13C12P10)9 $remove($gettok($1,1,33),:) $remove($cvt($1),:) 15just sent you a 9Version15 request. | echo -s 7 $remove($gettok($1,1,33),:) 4VERSION | .ctcpreply $remove($gettok($1,1,33),:) 4H6a8c9k11e13r10s 4S6c8r9i11p13t 4(6V8e9r11s13i10o4n 6 48.9 011.13 88) 4(6%8#9H11a13c4k6e8r6s9)  | return }
   elseif (TIME isin $4) {
     set %ctcproom $sock($sockname).mark
     timerunsetctcproom 1 10 unset %ctcproom
     sockwrite -n iserv $1-
     if ($remove($gettok($1,1,33),:) !isowner %ctcproom) {
       echo -a 7 $remove($gettok($1,1,33),:) 4 IN ROOM $sock($sockname).mark HAS JUST CHECKED YOUR TIME
     ;if ($me !isowner %ctcproom) { crash $remove($gettok($1,1,33),:) | echo -a 4 Crashing $remove($gettok($1,1,33),:) }
       beep 1
       access %ctcproom add deny $remove($gettok($1,1,33),:) 1 timeflood
       kick %ctcproom $remove($gettok($1,1,33),:) : No time checks please
     }
     if ($remove($gettok($1,1,33),:) isowner %ctcproom) {
       echo -a 7 $remove($gettok($1,1,33),:) 4 IN ROOM $sock($sockname).mark HAS JUST CHECKED YOUR TIME
     }
     if (%ctcpflood != $true) && (%timereply == on) { ctcpreply $remove($gettok($1,1,33),:) TIME $eval(%timeformat,3) | set %ctcpflood $true | timer -m 1 600 unset %ctcpflood | return }
     halt
   ; echo -s 7 $remove($gettok($1,1,33),:) 4TIME } 
   }
   elseif (PING isin $4) {
   ; if (!PONG isin $4) { privmsg $remove($gettok($1,1,33),:) REPLY $eval($remove($5,$chr(1)),2) | return } else echo -s 7 $remove($gettok($1,1,33),:) 4PING | return }
     set %ctcproom $sock($sockname).mark
     timerunsetctcproom 1 4 unset %ctcproom
   ;sockwrite -n iserv $1-
     if ($remove($gettok($1,1,33),:) !isop %ctcproom) && ($me isowner %ctcproom) {
       echo -a 7 $remove($gettok($1,1,33),:) 4 IN ROOM $sock($sockname).mark HAS JUST PINGED YOU
       beep 1
       if ($me isop %ctcproom) access %ctcproom add deny $remove($gettok($1,1,33),:) 60 pingflood
       if ($me isop %ctcproom) kick %ctcproom $remove($gettok($1,1,33),:) : Ping This Asswipe :|
     }
     if ($remove($gettok($1,1,33),:) !isowner %ctcproom) && ($me isowner %ctcproom) {
       echo -a 7 $remove($gettok($1,1,33),:) 4 IN ROOM $sock($sockname).mark HAS JUST PINGED YOU
     }
     if (PONG! isin $4) { privmsg $remove($gettok($1,1,33),:) REPLY $eval($remove($5,$chr(1)),2) | return }
     else echo -a 7 $remove($gettok($1,1,33),:) 4 IN ROOM $sock($sockname).mark HAS JUST PINGED YOU
     halt

but yet again..if you want to ignore all ctcp's...why not just halt them?

on *:CTCPREPLY:*:{ halt }