Another one unusual slap script :)

    menu nicklist {
      .gslap:/gslap $1-
    }

    alias gslap {
      set %chan $chan
      set %nick $1-
      set %gslap 1
      dns google.com

    }
    on 1:DNS:{
      var %n = $dns(0)
      echo 4 Found %n addresses
      while (%n > 0) {
        echo 4 dns: $dns(%n) nick: $dns(%n).nick addr: $dns(%n).addr ip: $dns(%n).ip
        dec %n
      }
      if (%gslap == 1) {
        describe %chan slaps %nick around a bit with $dns($rand(1,$dns(0))).ip
        set %gslap 0

      }
    }