PAGINASMAXIMAS = 2

PJ1 = 141
PJ2 = 142
PJ3 = 143
PJ4 = 144
PJ5 = 145
PJ6 = 146
PJ7 = 147
PJ8 = 148
PJ9 = 149
PJ10 = 150
PJ11 = 151
PJ12 = 152
PJ13 = 153
PJ14 = 154
PJ15 = 155
PJ16 = 156
PJ17 = 157
PJ18 = 158
#Nuevos a añadir
PJ19 = 159
PJ20 = 160
PJ21 = 161
PJ22 = 162
PJ23 = 163
PJ24 = 164
PJ25 = 165
PJ26 = 166
PJ27 = 167
PJ28 = 168
PJ29 = 169
PJ30 = 170
PJ31 = 171
PJ32 = 172
PJ33 = 173
PJ34 = 174
PJ35 = 175
PJ36 = 176
PJ37 = 177
PJ38 = 178
PJ39 = 179
PJ40 = 180
PJ41 = 160
PJ42 = 160
PJ43 = 160
PJ44 = 160
PJ45 = 160
PJ46 = 160
PJ47 = 160
PJ48 = 160
PJ49 = 160
PJ50 = 160
PJ51 = 160
PJ52 = 160
PJ53 = 160
PJ54 = 160
PJ55 = 160
PJ56 = 160
PJ57 = 160
PJ58 = 160
PJ59 = 160
PJ60 = 160
PJ61 = 160
PJ62 = 160
PJ63 = 160
PJ64 = 160
PJ65 = 160
PJ66 = 160
PJ67 = 160
PJ68 = 160
PJ69 = 160
PJ70 = 160
PJ71 = 160
PJ72 = 160
PJ73 = 160
PJ74 = 160
PJ75 = 160
PJ76 = 160
PJ77 = 160
PJ78 = 160
PJ79 = 160
PJ80 = 160
PJ81 = 160
PJ82 = 160
PJ83 = 160
PJ84 = 160
PJ85 = 160
PJ86 = 160
PJ87 = 160
PJ88 = 160
PJ89 = 160
PJ90 = 160
PJ91 = 160
PJ92 = 160
PJ93 = 160
PJ94 = 160
PJ95 = 160
PJ96 = 160
PJ97 = 160
PJ98 = 160
PJ99 = 160
PJ100 = 160


class Relaciones
  def mainScene
    viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    viewport.z=100000
    pbSetViableDexes
    @select = 0
    @page = 1
    sprites={}
    sprites["bg"]=IconSprite.new(0,0,viewport)
    sprites["bg"].bitmap= BitmapCache.load_bitmap("Graphics/Pictures/Relaciones/Seleccion")

    sprites["cara1"]=IconSprite.new(0,0,viewport)
    sprites["cara1"].setBitmap("Graphics/Pictures/Relaciones/Caras/01")
    sprites["cara1"].x =20
    sprites["cara1"].y =24
    sprites["cara1"].visible = false

    sprites["cara2"]=IconSprite.new(0,0,viewport)
    sprites["cara2"].setBitmap("Graphics/Pictures/Relaciones/Caras/02")
    sprites["cara2"].x =20
    sprites["cara2"].y =150
    sprites["cara2"].visible = false

    sprites["cara3"]=IconSprite.new(0,0,viewport)
    sprites["cara3"].setBitmap("Graphics/Pictures/Relaciones/Caras/03")
    sprites["cara3"].x =20
    sprites["cara3"].y =276
    sprites["cara3"].visible = false

    sprites["cara4"]=IconSprite.new(0,0,viewport)
    sprites["cara4"].setBitmap("Graphics/Pictures/Relaciones/Caras/04")
    sprites["cara4"].x =300
    sprites["cara4"].y =24
    sprites["cara4"].visible = false

    sprites["cara5"]=IconSprite.new(0,0,viewport)
    sprites["cara5"].setBitmap("Graphics/Pictures/Relaciones/Caras/05")
    sprites["cara5"].x =300
    sprites["cara5"].y =150
    sprites["cara5"].visible = false

    sprites["cara6"]=IconSprite.new(0,0,viewport)
    sprites["cara6"].setBitmap("Graphics/Pictures/Relaciones/Caras/06")
    sprites["cara6"].x =300
    sprites["cara6"].y =276
    sprites["cara6"].visible = false

    sprites["selector"]=IconSprite.new(0,0,viewport)
    sprites["selector"].setBitmap("Graphics/Pictures/Relaciones/Manita")
    sprites["selector"].x =70
    sprites["selector"].y =24

    loop do
      Graphics.update
      Input.update

      if @select == 0
        sprites["selector"].x =70
        sprites["selector"].y =24
      elsif @select == 1
        sprites["selector"].x =70
        sprites["selector"].y =150
      elsif @select == 2
        sprites["selector"].x =70
        sprites["selector"].y =276
      elsif @select == 3
        sprites["selector"].x =350
        sprites["selector"].y =24
      elsif @select == 4
        sprites["selector"].x =350
        sprites["selector"].y =150
      elsif @select == 5
        sprites["selector"].x =350
        sprites["selector"].y =276
      end

      #Para añadir otra página, pon otro elsif page == 3 tal y como se muestra en el código
      if @page == 1
        #Donde dice PJ1 en futuras caras cambialo por el interruptor que corresponda a dicho personaje, por ejemplo PJ15 si es el personaje 15.
        #El nombre de cara1, cara2, etc siempre es el mismo
        if $game_switches[PJ1]
          sprites["cara1"].visible = true
        else
          sprites["cara1"].visible = false
        end
        if $game_switches[PJ2]
          sprites["cara2"].visible = true
        else
          sprites["cara2"].visible = false
        end
        if $game_switches[PJ3]
          sprites["cara3"].visible = true
        else
          sprites["cara3"].visible = false
        end
        if $game_switches[PJ4]
          sprites["cara4"].visible = true
        else
          sprites["cara4"].visible = false
        end
        if $game_switches[PJ5]
          sprites["cara5"].visible = true
        else
          sprites["cara5"].visible = false
        end
        if $game_switches[PJ6]
          sprites["cara6"].visible = true
        else
          sprites["cara6"].visible = false
        end
      #Pagina 2 de personajes
      elsif @page == 2
        if $game_switches[PJ7]
          sprites["cara1"].visible = true
        else
          sprites["cara1"].visible = false
        end
        if $game_switches[PJ8]
          sprites["cara2"].visible = true
        else
          sprites["cara2"].visible = false
        end
        if $game_switches[PJ9]
          sprites["cara3"].visible = true
        else
          sprites["cara3"].visible = false
        end
        if $game_switches[PJ10]
          sprites["cara4"].visible = true
        else
          sprites["cara4"].visible = false
        end
        if $game_switches[PJ11]
          sprites["cara5"].visible = true
        else
          sprites["cara5"].visible = false
        end
        if $game_switches[PJ12]
          sprites["cara6"].visible = true
        else
          sprites["cara6"].visible = false
        end
      end

      #Para añadir otra página, pon otro elsif page == 3 tal y como se muestra en el código, igual que en la aprte anterior
      if @page == 1
        #Las 6 caras mostradas en pantalla ca,biarán dependiendo de la página.
        #Para añadir más en una página pon donde dice 01, 02, etc el número que corresponda teniendo en cuenta que alas caras van contando del 1 al 6.
        sprites["cara1"].setBitmap("Graphics/Pictures/Relaciones/Caras/01")
        sprites["cara2"].setBitmap("Graphics/Pictures/Relaciones/Caras/02")
        sprites["cara3"].setBitmap("Graphics/Pictures/Relaciones/Caras/03")
        sprites["cara4"].setBitmap("Graphics/Pictures/Relaciones/Caras/04")
        sprites["cara5"].setBitmap("Graphics/Pictures/Relaciones/Caras/05")
        sprites["cara6"].setBitmap("Graphics/Pictures/Relaciones/Caras/06")
      elsif @page == 2
        sprites["cara1"].setBitmap("Graphics/Pictures/Relaciones/Caras/07")
        sprites["cara2"].setBitmap("Graphics/Pictures/Relaciones/Caras/08")
        sprites["cara3"].setBitmap("Graphics/Pictures/Relaciones/Caras/09")
        sprites["cara4"].setBitmap("Graphics/Pictures/Relaciones/Caras/10")
        sprites["cara5"].setBitmap("Graphics/Pictures/Relaciones/Caras/11")
        sprites["cara6"].setBitmap("Graphics/Pictures/Relaciones/Caras/12")
      end

    if Input.trigger?(Input::RIGHT) && @select<3
      @select+=3; pbSEPlay("GUI sel cursor")
      pbWait(1)
    end
    if Input.trigger?(Input::LEFT) && @select>2
      @select-=3; pbSEPlay("GUI sel cursor")
      pbWait(1)
    end
    if Input.trigger?(Input::DOWN) && @select<5
      @select+=1; pbSEPlay("GUI sel cursor")
      pbWait(1)
    end
    if Input.trigger?(Input::UP) && @select>0
      @select-=1; pbSEPlay("GUI sel cursor")
      pbWait(1)
    end

    #Pasar Pagina
    if Input.trigger?(Input::RIGHT) && @select>2 && @page < PAGINASMAXIMAS
      @select=1; pbSEPlay("GUI sel cursor")
      @page +=1
      pbWait(1)
    end
    if Input.trigger?(Input::LEFT) && @select<2 && @page > 1
      @select=1; pbSEPlay("GUI sel cursor")
      @page -=1
      pbWait(1)
    end
    if Input.trigger?(Input::DOWN) && @select==5 && @page < PAGINASMAXIMAS
      @select=1; pbSEPlay("GUI sel cursor")
      @page +=1
      pbWait(1)
    end
    if Input.trigger?(Input::UP) && @select==0 && @page > 1
      @select=1; pbSEPlay("GUI sel cursor")
      @page -=1
      pbWait(1)
    end

      if Input.trigger?(Input::B)
        pbSEPlay("GUI sel cursor")
        pbFadeOutAndHide(sprites){pbUpdateSpriteHash(sprites)}
        pbDisposeSpriteHash(sprites)
        viewport.dispose if viewport
        break
      end

      #Siguiendo el orden de los ejemplos, comprueba si el personaje seleccionado está desbloqueado para ir a su ficha
    if Input.trigger?(Input::C)
      if @page == 1
        if (@select == 0 && $game_switches[PJ1]) || (@select == 1 && $game_switches[PJ2]) || (@select == 2 && $game_switches[PJ3]) || (@select == 3 && $game_switches[PJ4]) ||
           (@select == 4 && $game_switches[PJ5]) || (@select == 5 && $game_switches[PJ6])
          pbSEPlay("select")
          pbFadeOutAndHide(sprites){pbUpdateSpriteHash(sprites)}
          viewport.dispose if viewport
          infoPJ
          break
        else
          Kernel.pbMessage("No conoces a este personaje")
        end
      elsif @page == 2
        if (@select == 0 && $game_switches[PJ7]) || (@select == 1 && $game_switches[PJ8]) || (@select == 2 && $game_switches[PJ9]) || (@select == 3 && $game_switches[PJ10]) ||
           (@select == 4 && $game_switches[PJ11]) || (@select == 5 && $game_switches[PJ12])
          pbSEPlay("select")
          pbFadeOutAndHide(sprites){pbUpdateSpriteHash(sprites)}
          viewport.dispose if viewport
          infoPJ
          break
        else
          Kernel.pbMessage("No conoces a este personaje")
        end
      end
    end
    end
  end

  def infoPJ
    viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    viewport.z=100002
    pagev=Viewport.new(208,160,288,208)
    pagev.z = 100003
    bitdesc=BitmapSprite.new(288,208,pagev)
    pbSetViableDexes
    bitpage=BitmapSprite.new(Graphics.width,Graphics.height,viewport)
    sprites={}
    sprites["bg"]=IconSprite.new(0,0,viewport)
    sprites["bg"].bitmap= BitmapCache.load_bitmap("Graphics/Pictures/Relaciones/datosbg")

    sprites["cara"]=IconSprite.new(0,0,viewport)
    sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara01")
    sprites["cara"].x =0
    sprites["cara"].y =0

    sprites["kokoro"]=IconSprite.new(0,0,viewport)
    sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
    sprites["kokoro"].x =200
    sprites["kokoro"].y =66

    sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, viewport)

    loop do
      Graphics.update
      Input.update
      overlay = sprites["overlay"].bitmap
      overlay.clear

      pbSetSystemFont(bitdesc.bitmap)
      overlay2 = bitdesc.bitmap
      overlay2.clear
      pbSetSystemFont(bitpage.bitmap)
      #Lo mismo con con el Input C anterior, cada combinación de page y select es un personaje, copia tal cual el ejemplo y rellénalo
      if @page == 1
        if @select == 0
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara01")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Esta es la descripción del personaje a colocar en  en ese cuadro de texto.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ1] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ1] < 50 && $game_variables[PJ1] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ1] < 70 && $game_variables[PJ1] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ1] < 100 && $game_variables[PJ1] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ1] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 1
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara02")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ2] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ2] < 50 && $game_variables[PJ2] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ2] < 70 && $game_variables[PJ2] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ2] < 100 && $game_variables[PJ2] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ2] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 2
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara03")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ3] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ3] < 50 && $game_variables[PJ3] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ3] < 70 && $game_variables[PJ3] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ3] < 100 && $game_variables[PJ3] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ3] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 3
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara04")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ4] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ4] < 50 && $game_variables[PJ4] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ4] < 70 && $game_variables[PJ4] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ4] < 100 && $game_variables[PJ4] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ4] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 4
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara05")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ5] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ5] < 50 && $game_variables[PJ5] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ5] < 70 && $game_variables[PJ5] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ5] < 100 && $game_variables[PJ5] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ5] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 5
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara06")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ6] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ6] < 50 && $game_variables[PJ6] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ6] < 70 && $game_variables[PJ6] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ6] < 100 && $game_variables[PJ6] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ6] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        end

      elsif @page == 2
        if @select == 0
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara07")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Esta es la descripción del personaje a colocar en  en ese cuadro de texto.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ7] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ7] < 50 && $game_variables[PJ7] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ7] < 70 && $game_variables[PJ7] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ7] < 100 && $game_variables[PJ7] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ7] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 1
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara08")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ8] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ8] < 50 && $game_variables[PJ8] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ8] < 70 && $game_variables[PJ8] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ8] < 100 && $game_variables[PJ8] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ8] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 2
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara09")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ9] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ9] < 50 && $game_variables[PJ9] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ9] < 70 && $game_variables[PJ9] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ9] < 100 && $game_variables[PJ9] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ9] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 3
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara10")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ10] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ10] < 50 && $game_variables[PJ10] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ10] < 70 && $game_variables[PJ10] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ10] < 100 && $game_variables[PJ10] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ10] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 4
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara11")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ11] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ11] < 50 && $game_variables[PJ11] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ11] < 70 && $game_variables[PJ11] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ11] < 100 && $game_variables[PJ11] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ11] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        elsif @select == 5
          sprites["cara"].setBitmap("Graphics/Pictures/Relaciones/CarasDatos/Cara12")
          drawTextEx(bitdesc.bitmap,0,0,288,0,"Descripción.",Color.new(125, 125, 125),Color.new(45, 45, 45))
          if $game_variables[PJ12] < 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon0")
          elsif $game_variables[PJ12] < 50 && $game_variables[PJ12] >= 25
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon1")
          elsif $game_variables[PJ12] < 70 && $game_variables[PJ12] >= 50
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon2")
          elsif $game_variables[PJ12] < 100 && $game_variables[P12] >= 70
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon3")
          elsif $game_variables[PJ12] >= 100
            sprites["kokoro"].setBitmap("Graphics/Pictures/Relaciones/corazon4")
          end
        end
      end


      if Input.trigger?(Input::B)
          pbSEPlay("select")
          pbFadeOutAndHide(sprites){pbUpdateSpriteHash(sprites)}
          viewport.dispose if viewport
          pagev.dispose if pagev
          mainScene
          break
        end

    end
  end
end