加入各种验证

lib/scene_lobby.rb

@@ -48,14 +48,14 @@ class Scene_Lobby < Scene
         #@joinroom_msgbox = Widget_Msgbox.new("加入房间", "正在加入房间")
         #$game.join 'localhost'
       when Key::F5
-#        if @roomlist.items and room = @roomlist.items.find{|room|room.player1 == $game.user or room.player2 == $game.user}
-#          $game.qroom room
-#        end
+        #        if @roomlist.items and room = @roomlist.items.find{|room|room.player1 == $game.user or room.player2 == $game.user}
+        #          $game.qroom room
+        #        end
         $game.refresh
       when Key::F12
-#        if @roomlist.items and room = @roomlist.items.find{|room|room.player1 == $game.user or room.player2 == $game.user}
-#          $game.qroom room
-#        end
+        #        if @roomlist.items and room = @roomlist.items.find{|room|room.player1 == $game.user or room.player2 == $game.user}
+        #          $game.qroom room
+        #        end
         $game.exit
         $scene = Scene_Login.new
       end
@@ -71,7 +71,7 @@ class Scene_Lobby < Scene
     when Game_Event::AllRooms
       @roomlist.items = $game.rooms
     when Game_Event::Join
-      $scene = Scene_Duel.new(event.room, Deck.load("老I FTK２.txt"))
+      join(event.room)
     when Game_Event::Watch
       require_relative 'scene_watch'
       $scene = Scene_Watch.new(event.room)
@@ -81,7 +81,9 @@ class Scene_Lobby < Scene
       super
     end
   end
-  
+  def join(room)
+    $scene = Scene_Duel.new(room)
+  end
   def update
     if @count >= 600
       $game.refresh

lib/scene_login.rb

@@ -8,6 +8,7 @@ require_relative 'window_gameselect'
 require_relative 'window_announcements'
 require_relative 'window_login'
 require_relative 'scene_replay'
+require_relative 'scene_lobby'
 BGM = "title.ogg"
 class Scene_Login < Scene
 	def start

lib/window_host.rb

@@ -3,10 +3,10 @@ class Window_Host < Window
   attr_reader :index
   def initialize(x,y)
     super(x,y,300,150,300)
-    @items = {:ok => [116,114,100,20]}
+    @button = Surface.load("graphics/system/button.png")
+    @items = {:ok => [116,114,@button.w/3,@button.h]}
     @buttons = {:ok => "确定"}
     @background = Surface.load('graphics/system/msgbox.png').display_format
-    @button = Surface.load("graphics/system/button.png")
     @font = TTF.open("fonts/WenQuanYi Micro Hei.ttf", 16)
     @title_color = [0xFF, 0xFF, 0xFF]
     @color = [0x04, 0x47, 0x7c]
@@ -62,6 +62,7 @@ class Window_Host < Window
     case self.index
     when :ok
       return if @roomname_inputbox.value.empty?
+      @joinroom_msgbox = Widget_Msgbox.new("建立房间", "正在建立房间")
       $game.host(@roomname_inputbox.value, :pvp => @pvp.checked?, :match => @match.checked?)
       @roomname_inputbox.destroy
       @pvp.destroy

lib/window_roomlist.rb

@@ -42,7 +42,6 @@ class Window_RoomList < Window_Scrollable
     self.index = (y - @y) / WLH + @scroll
   end
   def clicked
-    return if @last_clicked and Time.now - @last_clicked < 3 #ygocore 加入房间时可能弹Tk窗询问主程序位置 防止重复点击
     return unless @index and room = @items[@index]
     if room.full?
       @joinroom_msgbox = Widget_Msgbox.new("加入房间", "正在加入观战")
@@ -51,6 +50,5 @@ class Window_RoomList < Window_Scrollable
       @joinroom_msgbox = Widget_Msgbox.new("加入房间", "正在加入房间")
       $game.join room
     end
-    @last_clicked = Time.now
   end
 end
\ No newline at end of file

lib/ygocore/event.rb

@@ -37,4 +37,10 @@ class Game_Event
       self.new @users
     end
   end
+  class Join < Game_Event
+    def initialize(room)
+      @room = room
+      $game.room = @room
+    end
+  end
 end
\ No newline at end of file

lib/ygocore/game.rb

@@ -8,161 +8,68 @@ class Ygocore < Game
   Server = config['server']
   API_Url = config['api']
   Index_Url = config['index']
-  
-  WM_LBUTTONDOWN = 0x201
-  WM_LBUTTONUP = 0x202
-  #WM_KEYDOWN = 0x0100
-  #WM_KEYUP = 0x0100
-  VK_CONTROL = 0x11
-  VK_A = 0x41
-  VK_V = 0x56
-  VK_TAB = 0x09
-  VK_RETURN = 0x0D
-  KEYEVENTF_KEYUP = 0x02
-  CF_TEXT = 1;
-  GMEM_DDESHARE = 0x2000;
+  attr_reader :password
   def initialize
     super
     load File.expand_path('event.rb', File.dirname(__FILE__))
     load File.expand_path('user.rb', File.dirname(__FILE__))
     load File.expand_path('room.rb', File.dirname(__FILE__))
+    load File.expand_path('scene_lobby.rb', File.dirname(__FILE__))
   end
   def login(username, password)
     if username.empty?
       return Widget_Msgbox.new("登陆", "请输入用户名", :ok => "确定")
     end
     if password.empty?
-      return Widget_Msgbox.new("登陆", "请输入密码", :ok => "确定")
-    end
-    require 'cgi'
-    open("#{API_Url}?userregist=CHANGEPASS&username=#{CGI.escape username}&password=#{CGI.escape password}&oldpass=#{CGI.escape password}") do |file|
-      file.set_encoding "GBK"
-      result = file.read.encode("UTF-8")
-      $log.debug('用户登陆传回消息'){result}
-      if result == "修改成功"
-        connect
-        @password = password
-        Game_Event.push Game_Event::Login.new(User.new(username.to_sym, username))
-      else
-        Game_Event.push Game_Event::Error.new("登陆", "用户名或密码错误")
+      Widget_Msgbox.new("登陆", "无密码登陆，不能建房，不能加入竞技场", :ok => "确定"){Game_Event.push Game_Event::Login.new(User.new(username.to_sym, username))}
+    else
+      require 'cgi'
+      open("#{API_Url}?userregist=CHANGEPASS&username=#{CGI.escape username}&password=#{CGI.escape password}&oldpass=#{CGI.escape password}") do |file|
+        file.set_encoding "GBK"
+        result = file.read.encode("UTF-8")
+        $log.debug('用户登陆传回消息'){result}
+        if result == "修改成功"
+          connect
+          @password = password
+          Game_Event.push Game_Event::Login.new(User.new(username.to_sym, username))
+        else
+          Game_Event.push Game_Event::Error.new("登陆", "用户名或密码错误")
+        end
       end
     end
   end
   def host(room_name, room_config)
+    if $game.password.nil? or $game.password.empty?
+      return Widget_Msgbox.new("建立房间", "必须有账号才能建立房间", :ok => "确定")
+    end
     room = Room.new(0, room_name)
     room.pvp = room_config[:pvp]
     room.match = room_config[:match]
-    join room
+    refresh do
+      if $game.rooms.any?{|game_room|game_room.name == room_name}
+        Widget_Msgbox.new("建立房间", "房间名已存在", :ok => "确定")
+      else
+        Game_Event.push Game_Event::Join.new(room)
+      end
+    end
   end
   def watch(room)
-    Widget_Msgbox.new("观战", "ygocore不支持加入已经开始游戏的房间", :ok => "确定")
+    Widget_Msgbox.new("加入房间", "游戏已经开始", :ok => "确定")
   end
   def join(room)
-    return if @last_clicked and Time.now - @last_clicked < 3 #防止重复点击
-    unless $config['ygocore']['path'] and  File.file? $config['ygocore']['path']
-      Widget_Msgbox.new("加入房间", "请指定ygocore主程序位置")
-      $scene.draw
-      require 'tk'
-      $config['ygocore']['path'] = Tk.getOpenFile.encode("UTF-8")
-      save_config
-      @last_clicked = Time.now
+    if $game.password.nil? or $game.password.empty? and room.pvp?
+      return Widget_Msgbox.new("加入房间", "必须有账号才能加入竞技场房间", :ok => "确定")
     end
-    room_name = if room.pvp? and room.match?
-      "PM#" + room.name
-    elsif room.pvp?
-      "P#" + room.name
-    elsif room.match?
-      "M#" + room.name
-    else
-      room.name
-    end
-    if $config['ygocore']['path'] and File.file? $config['ygocore']['path']
-      $scene.draw
-      #写入配置文件并运行ygocore
-      Dir.chdir(File.dirname($config['ygocore']['path'])) do 
-        $log.debug('当前目录'){Dir.pwd.encode("UTF-8")}
-        system_conf = {}
-        begin
-          IO.readlines('system.conf').each do |line|
-            line.force_encoding "UTF-8"
-            next if line[0,1] == '#'
-            field, contents = line.chomp.split(' = ',2)
-            system_conf[field] = contents
-          end
-        rescue
-          system_conf['antialias'] = 2
-          system_conf['textfont'] = 'c:/windows/fonts/simsun.ttc 14'
-          system_conf['numfont'] = 'c:/windows/fonts/arialbd.ttf'
-          $log.error('找不到system.conf')
-          $log.debug(Dir.foreach('.').to_a.inspect)
-        end
-        system_conf['nickname'] = "#{@user.name}#{"$" unless @password.empty?}#{@password}"
-        system_conf['lastip'] = Server
-        system_conf['lastport'] = Port.to_s  
-        open('system.conf', 'w') {|file|file.write system_conf.collect{|key,value|"#{key} = #{value}"}.join("\n")}
-        $log.debug('ygocore路径') {$config['ygocore']['path']}
-        IO.popen("\"#{$config['ygocore']['path']}\"".encode("GBK")) #执行外部程序....有中文的情况下貌似只能这样了orz
-      end
-      #初始化windows API
-      require 'win32api'
-      @@FindWindow = Win32API.new("user32","FindWindow","pp","l")
-      @@SendMessage = Win32API.new('user32', 'SendMessage', ["L", "L", "L", "L"], "L")
-      @@SetForegroundWindow = Win32API.new('user32', 'SetForegroundWindow', 'l', 'v')
-      @@keybd_event = Win32API.new('user32', 'keybd_event', 'llll', 'v')
-      @@lstrcpy = Win32API.new('kernel32', 'lstrcpyA', ['I', 'P'], 'P');
-      @@lstrlen = Win32API.new('kernel32', 'lstrlenA', ['P'], 'I');
-      @@OpenClipboard = Win32API.new('user32', 'OpenClipboard', ['I'], 'I');
-      @@CloseClipboard = Win32API.new('user32', 'CloseClipboard', [], 'I');
-      @@EmptyClipboard = Win32API.new('user32', 'EmptyClipboard', [], 'I');
-      @@SetClipboardData = Win32API.new('user32', 'SetClipboardData', ['I', 'I'], 'I');
-      @@GlobalAlloc = Win32API.new('kernel32', 'GlobalAlloc', ['I','I'], 'I');
-      @@GlobalLock = Win32API.new('kernel32', 'GlobalLock', ['I'], 'I');
-      @@GlobalUnlock = Win32API.new('kernel32', 'GlobalUnlock', ['I'], 'I');
-      #获取句柄
-      hwnd = nil
-      100.times do
-        if (hwnd = @@FindWindow.call('CIrrDeviceWin32', nil)) != 0
-          break
-        else
-          sleep 0.1
-        end
-      end
-      if hwnd and hwnd != 0
-        #操作ygocore进入主机
-        @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(507,242))
-        @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(507,242))
-        sleep 0.5
-        if @@OpenClipboard.Call(0) != 0
-          @@EmptyClipboard.Call();
-          len = @@lstrlen.Call(room_name.encode("GBK"));
-          hmem = @@GlobalAlloc.Call(GMEM_DDESHARE, len+1);
-          pmem = @@GlobalLock.Call(hmem);
-          @@lstrcpy.Call(pmem, room_name.encode("GBK"));
-          @@SetClipboardData.Call(CF_TEXT, hmem);
-          @@GlobalUnlock.Call(hmem);
-          @@CloseClipboard.Call;
-        else
-          return Widget_Msgbox.new("加入房间", '填写房间名失败 请把房间名手动填写到房间密码处', :ok => "确定")
-        end
-        $log.debug('加入房间'){room_name}
-        @@SetForegroundWindow.call(hwnd)
-        @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(380,500))
-        @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(380,500))
-        @@keybd_event.call(VK_CONTROL,0,0,0)
-        @@keybd_event.call(VK_A,0,0,0)#全选以避免密码处已经有字的情况，正常情况下应该无用
-        @@keybd_event.call(VK_A,0,KEYEVENTF_KEYUP,0)
-        @@keybd_event.call(VK_V,0,0,0)
-        @@keybd_event.call(VK_V,0,KEYEVENTF_KEYUP,0)
-        @@keybd_event.call(VK_CONTROL,0,KEYEVENTF_KEYUP,0)
-        @@keybd_event.call(VK_TAB,0,0,0)
-        @@keybd_event.call(VK_TAB,0,KEYEVENTF_KEYUP,0)
-        @@keybd_event.call(VK_RETURN,0,0,0)
-        @@keybd_event.call(VK_RETURN,0,KEYEVENTF_KEYUP,0)
+    return unless ygocore_path
+    refresh do
+      if room.full? #如果游戏已经开了
+        Widget_Msgbox.new("加入房间", "游戏已经开始", :ok => "确定")
+      elsif !$game.rooms.include? room
+        Widget_Msgbox.new("加入房间", "游戏已经取消", :ok => "确定")
       else
-        return Widget_Msgbox.new("加入房间", 'ygocore运行失败', :ok => "确定")
+        Game_Event.push Game_Event::Join.new(room)
       end
     end
-    Widget_Msgbox.new("加入房间","已经加入房间").destroy  #仅仅为了消掉正在加入房间的消息框
   end
   def refresh
     Thread.new do
@@ -172,6 +79,8 @@ class Ygocore < Game
           info = file.read.encode("UTF-8")
           Game_Event.push Game_Event::AllUsers.parse info
           Game_Event.push Game_Event::AllRooms.parse info
+          p block_given?
+          yield if block_given?
         end
       end
     end
@@ -179,10 +88,16 @@ class Ygocore < Game
   private
   def connect
   end
-  def MAKELPARAM(w1,w2)
-    return (w2<<16) | w1
+  def ygocore_path
+    return $config['ygocore']['path'] if $config['ygocore']['path'] and File.file? $config['ygocore']['path']
+    return if @last_clicked and Time.now - @last_clicked < 3 #防止重复点击
+    Widget_Msgbox.new("加入房间", "请指定ygocore主程序位置")
+    $scene.draw
+    require 'tk'
+    $config['ygocore']['path'] = Tk.getOpenFile.encode("UTF-8")
+    save_config
+    @last_clicked = Time.now
   end
-
   def self.get_announcements
     #公告
     $config['ygocore']['announcements'] ||= [Announcement.new("正在读取公告...", nil, nil)]

lib/ygocore/scene_lobby.rb

+#encoding: UTF-8
+class Scene_Lobby
+  WM_LBUTTONDOWN = 0x201
+  WM_LBUTTONUP = 0x202
+  VK_CONTROL = 0x11
+  VK_A = 0x41
+  VK_V = 0x56
+  VK_TAB = 0x09
+  VK_RETURN = 0x0D
+  KEYEVENTF_KEYUP = 0x02
+  CF_UNICODETEXT = 13;
+  GMEM_DDESHARE = 0x2000;
+  def join(room)
+    room_name = if room.pvp? and room.match?
+      "PM#" + room.name
+    elsif room.pvp?
+      "P#" + room.name
+    elsif room.match?
+      "M#" + room.name
+    else
+      room.name
+    end
+      
+    $scene.draw
+    #写入配置文件并运行ygocore
+    Dir.chdir(File.dirname($config['ygocore']['path'])) do 
+      $log.debug('当前目录'){Dir.pwd.encode("UTF-8")}
+      system_conf = {}
+      begin
+        IO.readlines('system.conf').each do |line|
+          line.force_encoding "UTF-8"
+          next if line[0,1] == '#'
+          field, contents = line.chomp.split(' = ',2)
+          system_conf[field] = contents
+        end
+      rescue
+        system_conf['antialias'] = 2
+        system_conf['textfont'] = 'c:/windows/fonts/simsun.ttc 14'
+        system_conf['numfont'] = 'c:/windows/fonts/arialbd.ttf'
+        $log.error('找不到system.conf')
+        $log.debug(Dir.foreach('.').to_a.inspect)
+      end
+      system_conf['nickname'] = "#{$game.user.name}#{"$" unless $game.password.nil? or $game.password.empty?}#{$game.password}"
+      system_conf['lastip'] = Ygocore::Server
+      system_conf['lastport'] = Ygocore::Port.to_s  
+      open('system.conf', 'w') {|file|file.write system_conf.collect{|key,value|"#{key} = #{value}"}.join("\n")}
+      $log.debug('ygocore路径') {$config['ygocore']['path']}
+      IO.popen("\"#{$config['ygocore']['path']}\"".encode("GBK")) #执行外部程序....有中文的情况下貌似只能这样了orz
+    end
+    #初始化windows API
+    require 'win32api'
+    @@FindWindow = Win32API.new("user32","FindWindow","pp","l")
+    @@SendMessage = Win32API.new('user32', 'SendMessage', ["L", "L", "L", "L"], "L")
+    @@SetForegroundWindow = Win32API.new('user32', 'SetForegroundWindow', 'l', 'v')
+    @@keybd_event = Win32API.new('user32', 'keybd_event', 'llll', 'v')
+    @@lstrcpy = Win32API.new('kernel32', 'lstrcpyW', ['I', 'P'], 'P');
+    @@lstrlen = Win32API.new('kernel32', 'lstrlenW', ['P'], 'I');
+    @@OpenClipboard = Win32API.new('user32', 'OpenClipboard', ['I'], 'I');
+    @@CloseClipboard = Win32API.new('user32', 'CloseClipboard', [], 'I');
+    @@EmptyClipboard = Win32API.new('user32', 'EmptyClipboard', [], 'I');
+    @@SetClipboardData = Win32API.new('user32', 'SetClipboardData', ['I', 'I'], 'I');
+    @@GlobalAlloc = Win32API.new('kernel32', 'GlobalAlloc', ['I','I'], 'I');
+    @@GlobalLock = Win32API.new('kernel32', 'GlobalLock', ['I'], 'I');
+    @@GlobalUnlock = Win32API.new('kernel32', 'GlobalUnlock', ['I'], 'I');
+    #获取句柄
+    hwnd = nil
+    50.times do
+      if (hwnd = @@FindWindow.call('CIrrDeviceWin32', nil)) != 0
+        break
+      else
+        sleep 0.1
+      end
+    end
+    if hwnd and hwnd != 0
+      #操作ygocore进入主机
+      @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(507,242))
+      @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(507,242))
+      sleep 0.5
+      if @@OpenClipboard.Call(0) != 0
+        $log.debug('加入房间'){room_name}
+        @@EmptyClipboard.Call();
+        len=room_name.encode("UTF-16LE").bytesize
+        $log.debug('房间名长度'){len.to_s}
+        hmem = @@GlobalAlloc.Call(GMEM_DDESHARE, len+2);
+        pmem = @@GlobalLock.Call(hmem);
+        @@lstrcpy.Call(pmem, room_name.encode("UTF-16LE"));
+        @@SetClipboardData.Call(CF_UNICODETEXT, hmem);
+        @@GlobalUnlock.Call(hmem);
+        @@CloseClipboard.Call;
+        @@SetForegroundWindow.call(hwnd)
+        @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(380,500))
+        @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(380,500))
+        @@keybd_event.call(VK_CONTROL,0,0,0)
+        @@keybd_event.call(VK_A,0,0,0)#全选以避免密码处已经有字的情况，正常情况下应该无用
+        @@keybd_event.call(VK_A,0,KEYEVENTF_KEYUP,0)
+        @@keybd_event.call(VK_V,0,0,0)
+        @@keybd_event.call(VK_V,0,KEYEVENTF_KEYUP,0)
+        @@keybd_event.call(VK_CONTROL,0,KEYEVENTF_KEYUP,0)
+        @@keybd_event.call(VK_TAB,0,0,0)
+        @@keybd_event.call(VK_TAB,0,KEYEVENTF_KEYUP,0)
+        @@keybd_event.call(VK_RETURN,0,0,0)
+        @@keybd_event.call(VK_RETURN,0,KEYEVENTF_KEYUP,0)
+        Widget_Msgbox.new("加入房间","已经加入房间", :ok => "确定").destroy  #仅仅为了消掉正在加入房间的消息框
+      else
+        Widget_Msgbox.new("加入房间", '填写房间名失败 请把房间名手动填写到房间密码处', :ok => "确定")
+      end
+    else
+      Widget_Msgbox.new("加入房间", 'ygocore运行失败', :ok => "确定")
+    end
+  end
+  def MAKELPARAM(w1,w2)
+    return (w2<<16) | w1
+  end
+end

lib/ygocore/server.yml

 ---
-register: http://card.touhou.cc/register
-api: http://140.113.242.66:7922/
-index: http://card.touhou.cc/
-server: 140.113.242.66
+register: http://sh.convnet.net:7955/regist.html
+api: http://sh.convnet.net:7922/
+index: http://sh.convnet.net:7922/
+server: 221.226.68.62
 port: 7911
\ No newline at end of file