well, add names to a certian piNg1.txt and if there on it, when they your channel, if there op it will ping them, after 5 seconds if they dont reply it will kick them
hope you like it

;:::::ping1 script:::::::
;:::::::::BY:paNix3d::::::::

;just a script to ping sombody, and if they dont reply in 
;5 seconds it kicks them from you room. enjoy it please

;::::::DO NOT EDIT BELOW THIS:::::::
on 1:LOAD:#: { set %ping2 [12,8piNg1 control] | set %lping [4piNg1 list] | set %sping  12,4piNg1 script } }
on 1:LOAD:#: { set %ping9 $true }

alias disable.ping9 {
  if (%ping != $false) {
    set %ping $false
    msg # %sping is now 0fF
    echo -a %sping $+ : 0fF
  }
  else {
    echo -a problem: %sping is already 0fF noob!
  }
}
alias enable.ping9 {
  if (%ping != $true) {
    set %ping $true
    /msg # %sping is now 0n
    echo -a %sping $+ : 0n
  }
  else {
    echo -a problem: %sping is already 0n noob!
  }
}
alias addp {
  .auser piNg1 $1
  set %piNg1 %piNg1 $1
  write piNg1.txt $1
  msg # 12,4 piNg1 target added:4 $+ $1 $+ 
}
alias deletep {
  .ruser piNg1 $1
  set %piNg1 $remtok(%piNg1,$1,1,32)
  write -ds $+ $1 piNg1.txt
  msg # 12,4 piNg1 target removed:4 $+ $1 $+ 
}
alias sayp {
  describe # %ping3 %piNg1
  else { echo -a There are currently no ping ppl }
}
on piNg1:JOIN:#: { ping $nick | timer $+ $nick 1 5 kick # $nick   }

on *:ctcpreply:ping:{ 
  if $timer($nick) { .timer $+ $nick off } 
}
menu nicklist {
  -
  piNg1
  .$iif(%ping == $true, [Enabled], Enable) : .enable #PiNg1 | enable.ping9
  .$iif(%ping == $true, Disable, [Disabled]) : .disable #piNg1 | disable.ping9
  .-
  .Control
  ..Add $1: addp $1
  ..Delete $1: deletep $1
  ..-
  ..Add: addp $$?"who you want to add?"
  ..Delete: deletep $$?"who do you have mercy on?"
  .-
  .List piNg1's: sayp

}