dialog wii {
  title "Wii Password Reset"
  size -1 -1 107 46
  option dbu
  text "Confirmation Number:", 1, 4 10 53 8
  edit "", 2, 59 10 44 9, autohs
  box "Functions", 5, 2 2 103 42
  text "Master Key:", 3, 4 20 31 8
  edit "", 4, 59 20 44 9, center read
  button "Clipboard", 6, 4 32 33 10, flat
  button "Get Key", 7, 37 32 33 10, flat
  button "Close", 8, 70 32 33 10, flat cancel
}
menu menubar,channel {
  .Wii Password Reset:{ dialog $iif($dialog(wii),-v,-md) wii wii }
}
on *:dialog:wii:init:0:{ did -b $dname 6,7 }
on *:dialog:wii:edit:2:{ if ($did(2).text isnum || !$did(2).text) { did $iif($did(2).text == $null,-b $dname 7,-e $dname 7) } | else { noop $input(Enter Numbers Only,udho,Error!) | did -r $dname 2,4 | did -b $dname 6,7 } }
on *:dialog:wii:sclick:*:{
  if ($did == 7) { if ($regex($did(2).text,/^([0-9]{8})$/)) { if ($sock(wii)) .sockclose wii | .sockopen wii wii.marcansoft.com 80 | sockmark wii $+($regml(1),&date=,$date(mmdd)) }
  else { noop $input(Please enter the 8 digit Confirmation Number,udho,Error!) | did -r $dname 2,4 | did -b $dname 7,6 } }
  if ($did == 6) { clipboard $did(4).text }
}
on *:sockopen:wii: { sockwrite -nt $sockname GET $+(/parental.psp?number=,$sock(wii).mark,&submit=Get+Reset+Code) HTTP/1.1 | sockwrite -nt $sockname Host: wii.marcansoft.com | sockwrite -nt $sockname $crlf }
on *:sockread:wii: {
  var %wii | sockread %wii
  if ($regex(%wii,/^\x09{2}(\d+)$/)) { did -ra wii 4 $regml(1) | .sockclose wii | did -e wii 6 }
}

Commenting Options