PO thing updated to PS! (was hard -_-)

alias F12 {
  dialog -md form form
}
dialog form {
  title "Pokemon Online to C&C Formatter by Charmander"
  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)
}