instead of having

on 1:Text:`Choose*:#: {
  if (%Power == On) {
    if (Naruto == $2 || Neji == $2 || Sasuke == $2 || Gaara == $2 || Kakashi == $2 || Kiba == $2 || Shikamaru == $2 || Choji == $2 || Orochimaru == $2 || Itachi == $2 || Deidara == $2 || Kankuro == $2 || Haku == $2) {

and

    if (Sakura == $2 || Ino == $2 || TenTen == $2 || Hinata == $2 || Temari == $2) {

You should just write all the characters on the same line in a .ini file, and then use for boy characters:

if ($2 isin $readini(ninjachars.ini,chars,Bchars) {

and girl characters:

if ($2 isin $readini(ninjachars.ini,Chars,GChars) {

example of what ninjachars.ini should look like:

[Chars]
BChars=Naruto,Neji,Sasuke,Gaara,Kakashi,Kiba,Shikamaru,Choji,Orochimaru,Itachi,Deidara,Kankuro,Haku
GChars=Sakura,Ino,TenTen,Hinata,Temari

Nice job otherwise.