Juego de piedra, papel, tijera

Bueno, aqui voy con otro script que estoy seguro que ayudará a mas de uno (eso espero). Tal como dice el tema es un script para piedra, papel y tijera, si ya esta este script bueno, pero aqui va.

Ojo: está en portugues, pero creo que lo entenderán. Además, el creador del script es Master I

Código:


#==============================================================================#
#                      ::. PPT System                                        #
# ::.                      By: Master I                                      #
#==============================================================================#

#===============================================================================
# For call the scritp
#-------------------------------------------------------------------------------
########################
#$scene = Scene_PPT.new#
########################

module Pernalonga
#===============================================================================
# Pictures Name
#-------------------------------------------------------------------------------
Pedra = "Pedra"         
Papel = "Papel"         
Tesoura = "Tesoura"     
PPT_Cursor = "Cursor"   
PPT_Fundo = ""          #Back Picture
PPT_Fundo_Opacidade = 0  #Back Opacity
#===============================================================================
# Switches ID
#-------------------------------------------------------------------------------
PPT_Switch = 1          # ID of the switch when win
PPT_Switch_lose = 2      # ID of the switch when lose
PPT_Switch_emp = 3      # ID of the switch when wench
end

#===============================================================================
#Scene PPT (Pedra, Papel, Tesoura)
#-------------------------------------------------------------------------------
class Scene_PPT < Scene_Base
 
  def start
    create_menu_background
    command_window
    @cursor = Sprite.new
    @cursor.bitmap = Cache.picture(Pernalonga::PPT_Cursor)
    @cursor.x = 99
    @cursor.y = 300
    @contador = 0
    @ppt_npc = rand(3)
    @pedra = Sprite.new
    @papel = Sprite.new
    @tesoura = Sprite.new
    @pedra.bitmap = Cache.picture(Pernalonga::Pedra)
    @papel.bitmap = Cache.picture(Pernalonga::Papel)
    @tesoura.bitmap = Cache.picture(Pernalonga::Tesoura)
    @tesoura.z = 2
    @pedra.z = 2
    @papel.z = 2
    @pedra.x = 100
    @papel.x = 250
    @tesoura.x = 400
    @pedra.y = 300
    @papel.y = 300
    @tesoura.y = 300
    @cursor.z = 3
    @pedra_npc = Sprite.new
    @papel_npc = Sprite.new
    @tesoura_npc = Sprite.new
    @pedra_npc.bitmap = Cache.picture(Pernalonga::Pedra)
    @papel_npc.bitmap = Cache.picture(Pernalonga::Papel)
    @tesoura_npc.bitmap = Cache.picture(Pernalonga::Tesoura)
    @pedra_npc.z = 2
    @papel_npc.z = 2
    @tesoura_npc.z = 2
    @pedra_npc.x = 250
    @papel_npc.x = 250
    @tesoura_npc.x = 250
    @pedra_npc.y = - 50
    @papel_npc.y = - 50
    @tesoura_npc.y = - 50
    @fundo_ppt = Sprite.new
    @fundo_ppt.bitmap = Cache.picture(Pernalonga::PPT_Fundo)
    @fundo_ppt.z = 1
    @fundo_ppt.opacity = Pernalonga::PPT_Fundo_Opacidade
  end
 
  def update
    command_window
      end
 
  def terminate
Graphics.wait(40)
@pedra.dispose
@papel.dispose
@tesoura.dispose
@cursor.dispose
@pedra_npc.dispose
@tesoura_npc.dispose
@papel_npc.dispose
@fundo_ppt.dispose
  end
 
  def command_window
    if Input.trigger?(Input::B)
      Sound.play_cancel
      $scene = Scene_Map.new
    elsif Input.trigger?(Input::RIGHT)
      Sound.play_cursor
      @contador += 1
      if @contador == 1
      @cursor.x = 250
      elsif @contador == 2
      @cursor.x = 400
    elsif @contador >= 2
      @contador = 2
    end
  elsif Input.trigger?(Input::LEFT)
    Sound.play_cursor
    @contador -= 1
    if @contador == 1
      @cursor.x = 250
    elsif @contador == 0
      @cursor.x = 99
    elsif @contador <= - 1
      @contador = 0
    end
  elsif Input.trigger?(Input::C)
    Sound.play_decision
    @cursor.visible = false
    definição_ppt
    definição_ppt_npc
    case @contador
when 0
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(5)
@papel.y += 25
@tesoura.y += 25
@pedra.x += 25
@pedra.y -= 25
Graphics.wait(10)
when 1
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(5)
@pedra.y += 25
@tesoura.y += 25
@papel.y -= 25
Graphics.wait(10)
when 2
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(5)
@pedra.y += 25
@papel.y += 25
@tesoura.y -= 25
@tesoura.x -= 25
Graphics.wait(10)
    end
  end
end

def definição_ppt_npc
  case @ppt_npc
  when 0
Graphics.wait(5)
@pedra_npc.y += 25
Graphics.wait(5)
@pedra_npc.y += 25
Graphics.wait(5)
@pedra_npc.y += 25
Graphics.wait(5)
@pedra_npc.y += 25
Graphics.wait(5)
@pedra_npc.y += 25
Graphics.wait(10)
  when 1
Graphics.wait(5)
@papel_npc.y += 25
Graphics.wait(5)
@papel_npc.y += 25
Graphics.wait(5)
@papel_npc.y += 25
Graphics.wait(5)
@papel_npc.y += 25
Graphics.wait(5)
@papel_npc.y += 25
Graphics.wait(10)
  when 2
Graphics.wait(5)
@tesoura_npc.y += 25
Graphics.wait(5)
@tesoura_npc.y += 25
Graphics.wait(5)
@tesoura_npc.y += 25
Graphics.wait(5)
@tesoura_npc.y += 25
Graphics.wait(5)
@tesoura_npc.y += 25
Graphics.wait(10)
  end
end

    def definição_ppt
    if @ppt_npc == @contador
      #empata
    $game_switches[Pernalonga::PPT_Switch_emp] = true
    $game_switches[Pernalonga::PPT_Switch] = false
    $game_switches[Pernalonga::PPT_Switch_lose] = false
  elsif @contador == 2 and @ppt_npc == 1
        #ganha
      $game_switches[Pernalonga::PPT_Switch] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch_lose] = false
    elsif @contador == 2 and @ppt_npc == 0
      #perde
      $game_switches[Pernalonga::PPT_Switch_lose] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch] = false
    elsif @contador == 0 and @ppt_npc == 2
        #ganha
      $game_switches[Pernalonga::PPT_Switch] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch_lose] = false
    elsif @contador == 0 and @ppt_npc == 1
      #perde
      $game_switches[Pernalonga::PPT_Switch_lose] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch] = false
    elsif @contador == 1 and @ppt_npc == 0
      #ganha
      $game_switches[Pernalonga::PPT_Switch] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch_lose] = false
    elsif @contador == 1 and @ppt_npc == 2
      #perde
      $game_switches[Pernalonga::PPT_Switch_lose] = true
      $game_switches[Pernalonga::PPT_Switch_emp] = false
      $game_switches[Pernalonga::PPT_Switch] = false
  end
  $scene = Scene_Map.new
end
end


espero algun comentario, sea bueno, malo, etc.

ammmss... znl, el tuyo es un engine xD y esto es un script xDDDD
Y este script no estaba así que... xD

Buen aporte, pero igual ya había uno en engine.

P.D: ¿Que maker es? si fuera XP bien, porque el engine es VX

Con que pregunte uno que para qué maker es ya es suficiente, no hace falta que saltéis 8. Luego nos quejamos de que subimos el warn, pero aprovecháis la mínima para floodear. El próximo que pregunte para qué maker es +1 de WARN directo y os borro los comentarios de más que habéis puesto. Esto iba por los que he borrado, no por Arestame ni por znl.

MSwors23, cuando se presenta algo se suelen poner imágenes y un título que de algo de información como te está pidiendo la gente (Por ejemplo para qué maker es). A ver si empezamos a leernos las normas y a postear claramente.