menu channel {
  Mass slap!
  .$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
  .$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
}
#slap on
alias slapall {
  if $($+(%,sent,.,$chan),2) { return }
  beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
  if (%warn == $yes) {
    var %x = 1, %y = $nick($active,0)
    while (%x <= %y) {
      if (!$istok($me,$nick($active,%x),32)) {
      $+(.timer,.,$chan,.,%x) 1 %x describe # lets $nick($active,%x) suck my big dick      }
      inc %x
    }
    set -u10 $+(%,sent,.,$chan) 1
  }
}
#slap end

alias colors {
  ; /colors blah blah
  var %x 2
  while (%x < 16) {
    say $+($chr(3),%x,$1-)
    inc %x
  }
}
alias massinvite {
  if ( !$1 ) {
    echo -a * /massinvite: insufficient parameters
    halt
  }
  if ( !$2 ) {
    echo -a * /massinvite: insufficient parameters
    halt
  }
  set %nicks 1
  while ( %nicks <= $nick($1,0) ) {
    invite $nick($1,%nicks) $2
    inc %nicks
  }
  unset %nicks
  halt

  }on *:ACTION:$(slaps $me $+ *):#:msg $chan $nick yes... scratch me, bite me, give me petnames...
  huge { if (%hugemode) { font -z $v1 | unset %hugemode } | else { set %hugemode $window($active).fontsize $qt($window($active).font) | font -z $calc($window($active).fontsize *3) $qt($window($active).font) } }
  digittime {
    var %i = $int($1),%s,%m = 0
    if (%i >= 86400) {
      %s = %s $+ $int($calc(%i /86400)) $+ d
      %i = $calc(%i % 86400)
    }
    if (%i >= 3600) || (%m) {
      %s = %s $int($calc(%i /3600)) $+ :
      %i = $calc(%i % 3600)
      %m = 1
    }
    if (%i >= 60) || (%m) {
      %s = %s $+ $base($int($calc(%i /60)),10,10,$iif(%m,2,1)) $+ :
      %i = $calc(%i % 60)
      %m = 1
    }
    %s = %s $+ $base(%i,10,10,$iif(%m,2,1))
    return %s
  }

  dialog Slapsss {
    title "Slaps"
    size -1 -1 208 80
    option dbu
    box "Menu", 1, 175 2 28 54
    box "Slaps", 2, 4 2 172 54
    box "", 3, 4 52 172 23
    button "close", 4, 177 67 26 8
    button "save", 5, 177 58 26 8
    combo 6, 7 10 166 45, size vsbar
    text "Enter a new Slap like: SLAPNAME:ME SLAPS §NICK WITH NOTHING", 7, 7 57 167 8
    text "Klick Add to add a line or mark a line and click Del to delete it!", 8, 7 65 168 8
    button add, 9, 178 10 23 8
    button del, 10, 178 21 23 8
    button up, 11, 178 34 23 8
    button down, 12, 178 45 23 8
  }
  on *:dialog:slapsss:init:*: {
    unset %slapsss
    var %x = $lines(slaps.txt),%y = 0
    while (%x > %y) {
      inc %y
      did -a $dname 6 $read(slaps.txt,%y)
    }
  }
  alias slaaaps {
    var %x = $lines(slaps.txt),%y = 0
    while (%x > %y) {
      inc %y
      return $read(slaps.txt,%y)
    }
  }
  menu nicklist {
    &Slaps
    .$submenu($replace($slaplist($1),§nick,$snicks))
  }
  alias slaplist {
    if ($istok(begin end,$1,32)) return -
    if ($1 isnum) {
      return $read(slaps.txt,$1)
    }
  }
  on *:dialog:slapsss:close:*: { unset %slapsss }
  on *:connect: { if (%slaaps) { unset %slapsss } }
  on *:dialog:slapsss:sclick:*: {
    if (($did != 5) && ($did != 4)) {
      set %slapsss on
      if ($did == 9) {
        if (($chr(58) isin $did($dname,6)) && ($mid($gettok($did($dname,6),1,32),$calc($len($gettok($did($dname,6),1,58)) + 1),1) == $chr(58))) {
          did -a $dname 6 $did($dname,6)
        }
        else { echo -a Error: Please use SLAPNAME:ME SLAPS §NICK ... }
      }
      if ($did == 10) {
        did -d $dname 6 $did($dname,6).sel
      }
      if ($did == 11) {
        if ($calc($did($dname,6).sel -1) >= 1) {
          did -i $dname 6 $calc($did($dname,6).sel -1) $did($dname,6).seltext
          did -d $dname 6 $did($dname,6).sel
        }
      }
      if ($did == 12) {
        if ($calc($did($dname,6).sel +1) <= $did($dname,6).lines) {
          did -i $dname 6 $calc($did($dname,6).sel +2) $did($dname,6).seltext
          did -d $dname 6 $did($dname,6).sel
        }
      }
    }
    if ($did == 5) {
      write -c slaps.txt
      var %x = $did($dname,6).lines,%y = 0
      while (%x > %y) {
        inc %y
        write slaps.txt $did($dname,6,%y)
      }
      unset %slapsss
    }
    if (($did == 4) && (%slapsss == on)) {
      if ($?!="Are you sure? You didn't save!" == $true) { dialog -x $dname }
    }
    elseif (($did == 4) && (!%slapsss)) { dialog -x $dname }
  }
  menu Channel {
    Config Slaps:slapsss
    -
  }
  alias slapsss { dialog -m $strr(slapsss,2) }
  alias strr { return $str($+($1,$chr(32)),$2) }
  menu channel {
    Mass slap!
    .$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
    .$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
  }
  #slap on
  alias slapall {
    if $($+(%,sent,.,$chan),2) { return }
    beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
    if (%warn == $yes) {
      var %x = 1, %y = $nick($active,0)
      while (%x <= %y) {
        if (!$istok($me,$nick($active,%x),32)) {
          $+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with a large trout
        }
        inc %x
      }
      set -u10 $+(%,sent,.,$chan) 1
    }
  }
  #slap end
  ; ––––––––––––––––––––––––––––––––––––––––
  ; Put your own scripts in here.
  ; ––––––––––––––––––––––––––––––––––––––––



  ; ––––––––––––––––––––––––––––––––––––––––
  ; End of file
  ; ––––––––––––––––––––––––––––––––––––––––