hi diana :D

alias F12 {
  dialog -md form form
}
dialog form {
  title "Pokemon Online to C&C Formatter by Charmander"
  size -1 -1 175 135
  option dbu
  edit "", 1, 24 43 125 62, 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 113 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 + 4)),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,4),1,32)
  %a EVs: $replacecs($gettok($did(form,1,3),2-,32),SAtk,SpA,SDef,SpD,Spd,Spe)
}