Set Overlimit +l

By DonCorleone on May 09, 2015

With this script you can set a overlimit in your channel.

on *:load:{ 
  set %overlimit $$?="How many more numbers in the channel?"
  echo -a * Overlimit set to  $+ %overlimit $+  $+ .
}

on *:unload:{
  unset %overlimit
  unset %limit.users.*
  unset %var.inc
}
menu status,channel {
  -
  Limiter
  .Overlimit:{
  set %overlimit $$?="Set overlimit"
  echo -a * Overlimit set to  $+ %overlimit $+  $+ .
} 
  .-
  .Unload:unload -rs  " $+ $script $+ "
}
alias call.limit.1 {
  if ($1 == $null) {
  echo -a * Error. Channel not specified.
  halt
}
  if ($1 != $null) {
  if ($me isop %limit.users. [ $+ [ $1 ] ]) {
  mode %limit.users. [ $+ [ $1 ] ] +l $calc($nick(%limit.users. [ $+ [ $1 ] ],0) + %overlimit)
  unset %limit.users. [ $+ [ $1 ] ]
  halt
    }
  }
}

on !*:part:#:{
  set %limit.users. [ $+ [ # ] ] #
  .timer 1 3 call.limit.1 %limit.users. [ $+ [ # ] ]
  halt
}

on *:kick:#:{
  if ($knick == $me) {
  halt
  }
  if ($knick != $me) {
  set %limit.users. [ $+ [ # ] ] #
  .timer 1 3 call.limit.1 %limit.users. [ $+ [ # ] ]
  halt
  }
}

on *:quit:{
  %var.inc = 0
  :loop
  inc %var.inc
  if ($comchan($nick,%var.inc) == $null) {
  unset %var.inc
  halt
}
  if ($comchan($nick,%var.inc) != $null) {
  set %limit.users. [ $+ [ $comchan($nick,%var.inc) ] ] $comchan($nick,%var.inc)
  .timer 1 3 call.limit.1 %limit.users. [ $+ [ $comchan($nick,%var.inc) ] ]
  goto loop
  }
}

on !*:join:#:{
  set %limit.users. [ $+ [ # ] ] #
  .timer 1 3 call.limit.1 %limit.users. [ $+ [ # ] ]
  halt
}

on ^*:join:#:{
  if ($nick == $me) {
  set %limit.users. [ $+ [ # ] ] #
  .timer 1 3 call.limit.1 %limit.users. [ $+ [ # ] ]
  }
}

Comments

Sign in to comment.
dma   -  Oct 26, 2015

goood goin

dma  -  Oct 27, 2015
Sign in to comment

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.