Forums Scripts & Popups SlapAll Script

 alias slapall {
  set %tslap 1
  set %nslap $nick($chan,0)
  while (%tslap <= %nslap) {
    set %slapall  %slapall $nick($chan,%tslap) $+ ,
    inc %tslap
  }
  describe $chan slaps %slapall around with a slapall stick.
  unset %slapall
  unset %tslap
  unset %nslap
}
 

.Mass slap:{
  var %nr_of_nicks = $nick($chan,0)
  var %total_nicks_that_will_be_slapped = $calc(%nr_of_nicks - 1)
  if (%total_nicks_that_will_be_slapped == 0) { echo 4 -a = $+ $time $+ = Dude, there is nobody to slap except yourself :/ }
  else {
    var %i = 1
    while (%i <= %nr_of_nicks) {
      var %nick_temp = $nick($chan,%i)
      if (%nick_temp == $me) { inc %i }
      else {
        var %nicks_slapped = $calc(%nicks_slapped + 1)
    var %nicks_to_slap %nicks_to_slap $+ %nick_temp $+ $iif(%nicks_slapped != %total_nicks_that_will_be_slapped, $Chr(44), $Chr(46)) | inc %i } }
    describe $chan spanks the shit out of %nicks_to_slap 8Time to wake up!!!!!!!!
  }
}

on *:TEXT:!slap-all:#channel-name:{
  var %nr_of_nicks = $nick($chan,0)
  var %total_nicks_that_will_be_slapped = $calc(%nr_of_nicks - 1)
  if (%total_nicks_that_will_be_slapped == 0) { echo 4 -a = $+ $time $+ = Dude, there is nobody to slap except yourself :/ }
  else {
    var %i = 1
    while (%i <= %nr_of_nicks) {
      var %nick_temp = $nick($chan,%i)
      if (%nick_temp == $me) { inc %i }
      else {
        var %nicks_slapped = $calc(%nicks_slapped + 1)
    var %nicks_to_slap %nicks_to_slap $+ %nick_temp $+ $iif(%nicks_slapped != %total_nicks_that_will_be_slapped, $Chr(44), $Chr(46)) | inc %i } }
    describe $chan spanks the shit out of %nicks_to_slap 8Time to wake up!!!!!!!!
  }
}

on *:text:!slapall:#yourchannel: {
  var %cnt = 1
  var %total = $nick($chan,0)
  while (%cnt <= %total) {
    if ($nick($chan,%cnt) != $me) {
      ; The $iif in here prevents having an extra comma at the end.
      var %slapnicks = $iif(%slapnicks,%slapnicks $+ $chr(44) $+ $nick($chan,%cnt),$nick($chan,%cnt))
      ; If the length is too long, do the first ~400 characters to begin with.
      if ($len(%slapnicks) > 400) {
        ; The first $iif checks to see if this is the first line of the split... you don't need "slaps" at the beginning of every single line.
        ; The second $iif will display the ending (with a large trout) if this happens to be the last nick that puts it over 400 characters.
        describe $chan $iif(!%split,slaps) %slapnicks $iif($calc(%cnt + 1) == %total,with a large trout.)
        var %split = $true
        unset %slapnicks
      }
    }
    inc %cnt
  }
  ; Display remaining nicks (or all if all of them are less than 400 characters).
  if (%slapnicks) { describe $chan %slapnicks with a large trout. }
}

      var %slapnicks = $iif(%slapnicks,%slapnicks $+ $chr(44) $nick($chan,%cnt),$nick($chan,%cnt))

  if (%slapnicks) { describe $chan $iif(!%split,slaps) %slapnicks with a large trout. }