Credits:

YeahPotato

How To

Assign this script to an NPC/item and it will allow you to remind moves on your Pokemon without cost

section0:
  msgbox.npc <auto>
{
Choose a Pokemon to remember a
move.
}
  special SelectMoveTutorMon
  waitstate
  if.compare.goto var4 >= 6 <finish>
  special IsSelectedMonEgg
  if.yes.goto <isegg>
  if.compare.goto var5 == 0 <nomoves>
  special DisplayMoveTutorMenu
  waitstate
  if.compare.goto var4 == 0 <section0>
  call <varstuff>

finish:
  release
  end

nomoves:
  msgbox.default <auto>
{
This Pokemon has no moves to
remember!
}
  goto <section0>

isegg:
  msgbox.default <auto>
{
That's an Egg!
}
  goto <section0>

varstuff:
  copyvar 0x8012 0x8013
  return

Happy Hacking!