alias F12 {
  dialog -md form form
}
dialog form {
  title "Pokemon Showdown! to C&C Formatter"
  size -1 -1 175 145
  option dbu
  edit "", 1, 24 43 125 72, multi
  text "Paste Here", 2, 61 30 50 9, center
  edit "", 3, 24 18 125 10
  text "Set Name", 4, 61 4 50 8, center
  button "Done", 5, 24 123 125 12, ok
}
on *:dialog:form:sclick:5: {
  set -l %a echo -a
  %a [SET]
  %a name: $iif($did(form,3) == $null,$gettok($did(form,1,1),$calc($findtok($did(form,1,1),@,32) + 1) $+ -,32),$did(form,3))
  set -l %b 1
  while (%b <= 4) {
    %a move %b $+ : $gettok($did(form,1,$calc(%b + $iif($findtok($did(form,1,4),Shiny:,32),6,5))),2-,32)
    inc %b
  }
  %a item: $gettok($did(form,1,1),$calc($findtok($did(form,1,1),@,32) + 1) $+ -,32)
  %a ability: $gettok($did(form,1,2),2-,32)
  %a nature: $gettok($did(form,1,$iif($findtok($did(form,1,4),Shiny:,32),6,5)),1,32)
  %a evs: $replacecs($gettok($did(form,1,$iif($findtok($did(form,1,4),Shiny:,32),5,4)),2-,32),SAtk,SpA,SDef,SpD,Spd,Spe)
}