[NP] Ultimate Scene Conect 1.0

Hola de nuevo, Hoy les traigo mi Scene Conect, Tambien Conocida como Ultimate Scene Conect 1.0

# Compactible Con Netplay master 3.0 y 3.1

Miren esta imagen...!!!

1º - Tienen que Borrar [SC] Scene_Connect 2.

2º - Remplasar este.

Código:


#==============================================================================
# ** Scene_Connect_Ultimate **
#------------------------------------------------------------------------------
# Author    Jonny D' Guetta
# Version  1.5
# Date      10/04/2011
#==============================================================================

#------------------------------------------------------------------------------
# * SDK Log Script
#------------------------------------------------------------------------------
SDK.log('Scene_Connect', 'Me and Shark_Tooth', 2, '2006-03-04')

#------------------------------------------------------------------------------
# * Begin SDK Enable Test
#------------------------------------------------------------------------------
if SDK.state('Scene_Connect') == true
 
if User_Edit::SC_CONNECT == 1 
 
class Scene_Connect
  #--------------------------------------------------------------------------
  #  Initialiation
  #--------------------------------------------------------------------------
  def initialize
    $Mouse.reset
    # Loads data (If not loaded)
    $data_actors        ||= load_data("Data/Actors.rxdata")
    $data_classes      ||= load_data("Data/Classes.rxdata")
    $data_skills        ||= load_data("Data/Skills.rxdata")
    $data_items        ||= load_data("Data/Items.rxdata")
    $data_weapons      ||= load_data("Data/Weapons.rxdata")
    $data_armors        ||= load_data("Data/Armors.rxdata")
    $data_enemies      ||= load_data("Data/Enemies.rxdata")
    $data_troops        ||= load_data("Data/Troops.rxdata")
    $data_states        ||= load_data("Data/States.rxdata")
    $data_animations    ||= load_data("Data/Animations.rxdata")
    $data_tilesets      ||= load_data("Data/Tilesets.rxdata")
    $data_common_events ||= load_data("Data/CommonEvents.rxdata")
   
    # Load system Data
    $data_system          = load_data("Data/System.rxdata")

    @sprite = Sprite.new
    @sprite.bitmap = RPG::Cache.title($data_system.title_name)
   
    # Make System Object
    $game_system          = Game_System.new
    # Make Temporary Object
    $game_temp            = Game_Temp.new
   
    # Stop playing ME and BGS
    $game_system.bgm_play($data_system.title_bgm)
    Audio.me_stop
    Audio.bgs_stop
   
    Network::Main.initialize
  end
   
#--------------------------------------------------------------------------
#  Opciones de comando del Scene_Connect_Master
#--------------------------------------------------------------------------
  def main
    Font.default_color = Color.new(-250, -255, -255)
    @_connect_window = Window_Normal.new(10,360,130,105)
    @_connect_window_first = Button.new(@_connect_window,20,17,"      Entrar    ") {login}
    @_connect_window_first = Button.new(@_connect_window,20,42," 
Opciones  ") {$options_connect.visible = true; $options_connect.active =
 true}
    @_connect_window_first = Button.new(@_connect_window,20,67,"        Salir      ") {sair}
    @_connect_window.opacity = 230
   
    $options_connect = Window_Connect.new(150,115,350,350)
    $options_connect.visible = false
    $options_connect.active = false
    $options_connect.closable = true
    $options_connect.dragable = true
   
#--------------------------------------------------------------------------
#  Fin de las pciones de comando del Scene_Connect_Master
#--------------------------------------------------------------------------
   
    if User_Edit::CONNTYPE == 0
      # Make Server Window
      @commands = []
      for server in User_Edit::SERVERS
        @commands.push(server[2])
      end
      @commands.push("Exit")
      @window = Window_Command.new(200,@commands)
      @window.x = 500
      @window.y = 500
      # Set variables
      @log = false
      @count = 0
      # Show Window
      Graphics.transition
      # Test Servers
      test if User_Edit::TESTSERVER == true
    end
   
    Graphics.transition
    # Main Loop
    loop do
      Network::Base.update
      update
      break if $scene != self
    end
    # Freeze
    Graphics.freeze
   
    # Dispose
    $options_connect.dispose
    @sprite.dispose
    @_connect_window.dispose
    @status.dispose
    if User_Edit::CONNTYPE == 0
      @window.dispose
      if User_Edit::TESTSERVER == true
        @window2.dispose if @window2 != nil
      end
    end
  end
  #--------------------------------------------------------------------------
  #  Test Connections
  #--------------------------------------------------------------------------
  def test
    # Make the window
    @window2 = Window_Base.new(@window.x + @window.width + 50, @window.y,  @window.width,  @window.height)
    @window2.contents = Bitmap.new( @window2.width - 32,  @window2.height - 32)
    num = 0
    # For every server, test the connectin
    for server in User_Edit::SERVERS
      #Graphics.freeze
      test_do(server,num)
      num += 1
      #Graphics.transition
    end
  end
  #--------------------------------------------------------------------------
  # * Login
  #--------------------------------------------------------------------------
  def login
    $game_system.se_play($data_system.decision_se)
    if User_Edit::CONNTYPE == 0
      @count += 1
      @window.update
      # In case of C Input
        case @window.index
        when 0..@commands.size - 2
          Network::Main.start_connection(User_Edit::SERVERS[@window.index][0],User_Edit::SERVERS[@window.index][1])
          #Network::Main.retrieve_mod
          Network::Main.amnet_auth
          return
        when @commands.size - 1
          $scene = nil
          return
        end
      # Refresh Server Connection Test Window
      if User_Edit::TESTSERVER == true
        if @count >= User_Edit::SERVERREFRESH and @window2 != nil
          Graphics.freeze
          @window2.dispose
          Graphics.transition
          test
          @count = 0
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  #  Options
  #--------------------------------------------------------------------------
 
  def on
    $game_system.se_play($data_system.decision_se)
    Audio.bgm_play('Audio/BGM/' + 'Musica-0020')
    $music = true
  end
 
  def off
    $game_system.se_play($data_system.decision_se)
    Audio.bgm_fade(800)
    Audio.bgs_fade(800)
    Audio.me_fade(800)
    $music = false
    end
  #--------------------------------------------------------------------------
  # * Sair
  #--------------------------------------------------------------------------
  def sair
    $game_system.se_play($data_system.decision_se)
    Network::Main.close_socket
    Audio.bgm_fade(800)
    Audio.bgs_fade(800)
    Audio.me_fade(800)
    #Graphics.transition(25)
    #File.delete("Game_Open.txt")
    $scene = nil
  end
  #--------------------------------------------------------------------------
  #  Do Test
  #--------------------------------------------------------------------------
  def test_do(server,num)
    begin
    @status = Window_Normal.new(510,0,130,50)
    @status.contents.font.size = 16
    @status.opacity = 230
   
      Network::Test.test_connection(server[0].to_s,server[1].to_i)
      result = Network::Test.result
      Network::Test.testreset
      text = User_Edit::SERVERERR
    rescue
      result = true
    end
    if result == false
      text = User_Edit::SERVERON
      @status.contents.font.color = @status.text_color(3)
    else
      text = User_Edit::SERVEROFF if result == true
      @status.contents.font.color = @status.text_color(2)
    end
    @status.contents.draw_text(0,num*32,@status.width,22,text)
  end
  #--------------------------------------------------------------------------
  #  Update
  #--------------------------------------------------------------------------
  def update
    @_connect_window.update
    @status.update
    $options_connect.update
    if User_Edit::CONNTYPE == 0
      @count += 1
      @window.update
      # In case of C Input
      if Input.trigger?(Input::A)
        case @window.index
        when 0..@commands.size - 2
          Network::Main.start_connection(User_Edit::SERVERS[@window.index][0],User_Edit::SERVERS[@window.index][1])
          #Network::Main.retrieve_mod
          Network::Main.amnet_auth
          return
        when @commands.size - 1
          $scene = nil
          return
        end
      end
      # Refresh Server Connection Test Window
      if User_Edit::TESTSERVER == true
        if @count >= User_Edit::SERVERREFRESH and @window2 != nil
          Graphics.freeze
          @window2.dispose
          Graphics.transition
          test
          @count = 0
        end
      end
    end
  end
end
end
end


3º - Ponerle el Nombre a estr Script como : [SC] Ultimate.

4º - Crar un nuevo Script abajo de [SC] Ultimate, llamado [SC] Option

Código:


#==============================================================================
# ** Window Opcion **
#==============================================================================
#
# By Jonny D' Guetta
#
#==============================================================================
class Window_Connect < Window_Base
  def initialize(x,y,a,b)
    super(x,y,a,b)
    self.contents = Bitmap.new(width-32,height-32)
    @dragable = true
    self.z = 9999
    self.opacity = 230
    refresh
  end
 
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    self.contents.draw_text(100,-10,300,32,"Informacion del Server")# No Cambiear
    # Vercion del Juego
    self.contents.draw_text(0,20,100,32,"Vercion:")# Cambiear
    self.contents.draw_text(150,20,200,32,"1.0")# Cambiear
    # Nombre del Server
    self.contents.draw_text(0,40,100,32,"Nombre Server:")# Cambiear
    self.contents.draw_text(150,40,100,32,"Mortal Online")# Cambiear
    # Datos de la Dificultad
    self.contents.draw_text(0,60,100,32,"Dificultad:")# Cambiear
    self.contents.draw_text(150,60,100,32,"Extreme")# Cambiear
    # Datos de la Experiencia del Juego
    self.contents.draw_text(0,80,100,32,"Exp Juego:")# Cambiear
    self.contents.draw_text(150,80,100,32,"50%")# Cambiear
    # Datos de los Drop del Juego
    self.contents.draw_text(0,100,100,32,"Drop Juego:")# Cambiear
    self.contents.draw_text(150,100,100,32,"50%")# Cambiear
    # Datos de la web
    self.contents.draw_text(0,120,100,32,"Pajina Web:")# Cambiear
    self.contents.draw_text(150,120,200,32,"www.mortalonline.com") # Cambiear

    # Creditos
    self.contents.draw_text(100,160,100,32,"Nueva Vecion:")# No Cambiear
    self.contents.draw_text(0,180,190,32,"Jonny D' Guetta")# No Cambiear
    self.contents.draw_text(150,180,190,32,"Script/Modificador")# No Cambiear
    self.contents.draw_text(0,200,190,32,"Marlos Gama")# No Cambiear
    self.contents.draw_text(150,200,190,32,"Netplay Bace/Script")# No Cambiear
    self.contents.draw_text(0,220,190,32,"Anderson Porto")# No Cambiear
    self.contents.draw_text(150,220,190,32,"Script/Sistem/")# No Cambiear
   
  end
 
  def on_close
    $options_connect.visible = false
    $options_connect.active = false
    super
  end

  end


5º - ir a [CONF] User Edits Buscar :
ACTIVE_SCENE_CONNECT = false < ----- Esta Desactivado
ACTIVE_SCENE_CONNECT = true < ----- Esta Activado
NOTA : Hay que Activarlo para poder ver la Scene Conect

6º - Abajo de ACTIVE_SCENE_CONNECT = False / True
Poner este Nuevo Comando :
SC_CONNECT = 1
NOTA : Esto codigo es para Activar El Modelo de Scene

7º - I listo para poder Jugar y pode Modificar las Opciones
NOTA : Porfabor de no quitar los nombre puestos en los Creditos...!!!
Gracias

Porfavor de no publicar este tema en otro foro.!!! Gracias

Bem simples cara, pensei q ia ser algo diferente e novo. Mas ficou bem legal +1 cred

Este script tem mucho tiempo que lo cree, es como el scene conet de NP Absolute
Xd

Tambien obrigado a marlos por el NP e idea para el NP 3.0

Cara muito bom (:
só uma pergunta,
queria deixar em baixo do "Opciones"
um item chamado "Site", e quando clica vai para o endereço..
voce pode me passar isso? (:

Espanhol

Gosti Desse Script Mui Ben Feito +1 Cred

Portuguese(pt)

Bem Legal achei o script otimo e muito bem feito +1 Cred

Portuguese(br)

Mano Do Ceu Cara Muito Loko meu mor bacana veio +1 Cred Cara Como é bom Ser Vida Loka


Qual Ligua é mais Comfortada e boa??