All pastes #459971 Raw Edit

Anonymous

public text v1 · immutable
#459971 ·published 2007-04-26 19:54 UTC
rendered paste body
alias massmode {
  if ($1 == Deop) {  var %hi = -o }
  if ($1 == Dehop) { var %hi = -h }
  if ($1 == op) { var %hi = +o }
  if ($1 == hop) { var %hi = +h }
  if ($1 == voice) { var %hi = +v }
  if ($1 == Devoice) { var %hi = -v }
  var %f = 0
  while (%f <= $nick($2,0)) { 
    inc %f
    if (*vision* !iswm $nick($2,%f)) { 
      mode $2 %hi $nick($2,%f)
    }
  }
}
on $*:TEXT:/^[!@]mass((de)?op|(de)?h(alf)?op|(de)?voice)/Si:#:{
  if ($nick isop $chan) {
    /massmode $remove($1-,$left($1-,5)) $chan
  }
}
on *:PART:#: {
  if ($nick($chan,0) < 5) { part $chan You need 5 users in $chan for $me
  }
}
on *:KICK:#: {
  if ($nick($chan,0) < 5) { part $chan You need 5 users in $chan for $me
  }
}
on *:INVITE:#: {
  .timer 1 4 /checkusers $chan
  /timer 1 2 /j $chan
}
on *:join:#:{
  if ($nick != $me) {
    /checkusers2 $chan
  }
}
alias checkusers {
  if ($nick($1,0) < 5) { part $1 You need 5 users in $1 for $me
  }
  else { msg $1 7Gratz u meet the 12minimum user 7req's }
}
alias checkusers2 {
  if ($nick($1,0) < 5) { part $1 You need 5 users in $1 for $me
  }
}
on *:text:*:*: { 
  if ($address($nick,2) == $address($me,2)) || ($nick == Roly) || ($nick == Smooth_Dudes) || ($nick == Kerst) { halt }
  if (%spam. [ $+ [ $nick ] ] >= 5) { 
    notice $nick 4Lol noob flooder15! 4ignored for15 54 mins
    ignore -pcntikdu300 $address($nick,2)
    echo @ignorelist $timestamp $nick ( $+ $address($nick,2) $+ ) $chan
    unset %spam. [ $+ [ $nick ] ]
  }    
  elseif (%spam. [ $+ [ $nick ] ]) {
    inc %spam. [ $+ [ $nick ] ]
  }
  else {
    set -u10 %spam. [ $+ [ $nick ] ] 1
  }
}
on *:text:!setgreet*:#:{ 
  if ($ isin $1-) {
    notice $nick $c1(u cant use the) $c2(character "$")
    halt
  }
  if ($2- == $null) { $c1(!setgreet and then) $c2(ur greet here.)
    halt
  }
  /write greeetzzz.txt -ds $+ $address($nick,2)
  /write greeetzzz.txt $address($nick,2) $2-
  /notice $nick $c1(ur greet has been saved).
}
on *:join:#:{
  if (%greetzz [ $+ [ $chan ] ] == OFF) { halt }
  if ($read(greeetzzz.txt, s, $address($nick,2)) == $null) {
    halt
  }
  else {
    msg $chan $c1([)$c2(- $+ $nick $+ -)$c1(]) $read(greeetzzz.txt, s, $address($nick,2))
  }
} 
on *:text:!greets*:#:{
  if ($2- == ON) { unset %greetzz $+ $chan
    msg $chan $c1(The greets for) $c2( $chan ) $c1(are now ON) 
    halt
  }
  if ($2- == OFF) { set %greetzz $+ $chan OFF
    msg $chan $c1(The greets for $chan ) $c2(are now off,) $c1(u can still safe them)
    halt
  }
  else { notice $nick $c1(greets can only be) $c2(turned on or off)
  }
}