[XP] NetPlayMaster 4 dodatek: ręczne wpisywanie adresu IP

[dawidpieper]

~ NetPlayMaster: ręczne wpisywanie IP serwera ~

Krótki opis:
Ostatnio zainteresowałem się skryptem NetPlayMaster. Przeszkadzał mi fakt, że zdefiniować można tylko jeden serwer. Ten skrypt umożliwia ręczne wpisywanie adresu IP serwera łącznie z obsługą domen do 15 znaków.

Autor:
Pajper

Skrypt:

Spoiler: (Otwórz)

Kod: (Zaznacz wszystko)

#Nadpisanie main
#==============================================================================
# ** Netplay Main
#------------------------------------------------------------------------------
# Após o final de cada definição de classe o processo principal
# do jogo é iniciado. Esta é a classe principal do jogo.
#==============================================================================
if FileTest.exist?("RGSSAD Extractor.rb")
  File.delete("RGSSAD Extractor.rb")
  p LANGUAGE::MAIN_DESENCRYPT
end
  
begin
        $gametitle = "\0" * 512
      Win32API.new("kernel32","GetPrivateProfileString",'ppppip','i').call("Game","Title","",$gametitle,511,".\\Game.ini")
      $gametitle.delete!("\0")
      $hwnd = Win32API.new("user32","FindWindow",'pp','i').call("RGSS Player",$gametitle)
      $instance = Win32API.new("kernel32","GetModuleHandle",'p','i').call(nil)
showwin = Win32API.new("user32","ShowWindow",'ii','i')
showwin.call($hwnd,0)
crewin = Win32API.new("user32","CreateWindowEx",'ippiiiiiiiip','i')
@ipparent = crewin.call(0x200,"RGSS Player",$gametitle,0x10000000|0xC00000|0x400000,10,10,640,480,0,0,$instance,nil)
@ipstatic = crewin.call(0x200,"STATIC","Adres IP serwera: ",0x10000000|0x40000000|1,10,10,100,100,@ipparent,0,$instance,nil)
@iptext = crewin.call(0x200,"EDIT",nil,0x10000000|0x40000000|1,100,100,600,400,@ipparent,0,$instance,nil)
@setfoc = Win32API.new("user32","SetFocus",'i','i')
@setfoc.call(@iptext)
loop do
  Graphics.update
  if Win32API.new("user32","GetAsyncKeyState",'i','i').call(0x0D) != 0
    $server_ip = "\0" * 16
    Win32API.new("user32","GetWindowText",'ipi','i').call(@iptext,$server_ip,15)
    $server_ip.delete!("\0")
    break if $server_ip != "" and $server_ip != nil
end
end
showwin.call(@ipparent,0)
showwin.call($hwnd,1)
  $mouse = $Mouse = Game_Mouse.new
  $Mouse.visible
  if User_Edit::FULL_SCREEN ==  true
    $showm = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
    $showm.call(18,0,0,0)
    $showm.call(13,0,0,0)
    $showm.call(13,0,2,0)
    $showm.call(18,0,2,0)
  end
  #Graphics.frame_rate = 55
  $mouse = $Mouse = Game_Mouse.new
  $Mouse.visible
  $server_ip = "170.0.0.1"
  # Sets default font settings.
  Font.default_name = $fontface = "Segoe UI"
  $defaultfontsize = $fontsize = Font.default_size = 14
  Font.default_color = Color.new(0, 0, 0)
  #Font.default_bold = true
  Font.default_italic = false
  #Font.default_bold = true
  # Prepare for transition
  Graphics.freeze
  # Make scene object (title screen)
  if SDK.state('Scene_Connect') == true
    if User_Edit::ATIVAR_INICIO == true
      $scene = Scene_Inicial.new
    else
      $scene = Scene_Connect.new
    end
  else
    begin
      Network::Main.initialize
      Network::Main.start_connection(User_Edit::SERVERS[0][0],User_Edit::SERVERS[0][1])
      Network::Main.retrieve_mod
      Network::Main.amnet_auth
      $scene = Scene_Title.new
    rescue
      p LANGUAGE::MAIN_ERRO
      exit
    end
  end
  # Call main method as long as $scene is effective
  while $scene != nil
    $scene.main
  end
  # Fade out
  Network::Main.close_socket
  Graphics.transition(25)
  exit!
rescue Errno::ENOENT
  Network::Main.close_socket
  # Supplement Errno::ENOENT exception
  # If unable to open file, display message and end
  filename = $!.message.sub("No such file or directory - ", "")
  print("Unable to find file #{filename}.")
  time = Time.now
  time = time.strftime("%a %d %b %Y, %X")
  File.open("ErrorLog.rxdata","a+"){ |fh| fh.puts("On <<#{time}>> the file <<#{filename}>> was missing." )}
ensure
  Network::Main.close_socket if Network::Main.socket != nil
end

Dodatkowe informacje:
Uwaga!
Teraz w konfiguracji skryptu jako adres serwera wpisz $server_ip , a port pozostaw domyślny.
Nie chcę wchodzić w licencję skryptu, potraktujcie to jako mały dodatek.

Pozdrawiam
Dawid Pieper