云中游戏 - 全RM平台仿网游CDKEY兑换系统 - 多图 - 开源 - 轻喷 - Project1

=begin
  云中游戏CDKEY系统
    By oott123 via best33.com
    首发：66rpg    [url]http://rpg.blue/thread-309255-1-1.html[/url]
    使用方法：
      1.事件页1输入两个变量，分别为8位和6位，输入完成后打开独立开关
      2.事件页2当独立开关打开时自动执行，条件分歧-脚本-Gamecloud.valcdkey(1,2)
        其中1,2为第一步中的两个变量ID
      3.条件分歧为真时，CDKEY兑换成功；为假时失败。
    WEB端搭建方法：
      见[url]http://rpg.blue/thread-309255-1-1.html[/url]
=end
 
module Gamecloud
  def Gamecloud.valcdkey(key,pwd)
 
    ## 配置说明：请在这里输入云中游戏web端的网址，不带/index.php和后面的任何参数
    base_url = 'http://3.gamecloudemo.duapp.com'
    ## 配置结束
 
    base_url = base_url + '/index.php/valcdkey/api/'
    key = $game_variables[key]
    pwd = $game_variables[pwd]
    http_url = base_url + key.to_s + '/' + pwd.to_s
    str = Gamecloud.get_http_case2(http_url)
    res = str.split('|')
    if(res[0] == 'error')
      return false
    end#of if
    if(res[1] == 'gold')
      #增加金币
      # p "获得了金币"+res[3].to_s
      $game_party.gain_gold(res[3].to_i)
    elsif(res[1] == 'item')
      #获得物品
      # p "获得了"+$data_items[res[2]].name+"x"+res[3].to_s
      $game_party.gain_item($data_items[res[2].to_i], res[3].to_i)
    else
      p "未知错误，请检查！"
      return false
    end#if
    return true
  end#of valcdkey
  def Gamecloud.dumpitems
    file=File.new('itemlist.txt', "w")
    $data_items.each{|i|
        if (i && (i.name != ''))
          file.puts(i.id.to_s + '=' + i.name)
        end
      }
    file.close
  end#of dumpitems
  def Gamecloud.get_http_case2(url)
    #采用凌童鞋推荐的Wininnet.dll调用，抛弃外挂dll=-=不过代码复杂多了……
 
    #要用到的三个api
    api_InternetOpen = Win32API.new(
      'Wininet.dll','InternetOpen',%w(l i l l i),'l')
    api_InternetOpenUrl = Win32API.new(
      'Wininet.dll','InternetOpenUrl',%w(l p p i i i),'l')
    api_InternetReadFile = Win32API.new(
      'Wininet.dll','InternetReadFile',%w(l p i p),'l')
 
    hInternet = api_InternetOpen.call(0,0,0,0,0)  #Internet句柄
 
    hFile = api_InternetOpenUrl.call(hInternet,url,'',0,512,0) #文件句柄
 
    dwNumberOfBytesToRead = 512 #一次要阅读的字符数量，一般512就搞定调用了
    res = " " * dwNumberOfBytesToRead #缓冲区初始化
    lpdwNumberOfBytesRead = [0].pack('L') #2进制的已读取字节数引用传递变量
 
    api_InternetReadFile.call(
      hFile,res,dwNumberOfBytesToRead,lpdwNumberOfBytesRead)  #读取
 
    lpdwNumberOfBytesRead = lpdwNumberOfBytesRead.unpack('L')[0]  #得到字节数
 
    return res.slice(0,lpdwNumberOfBytesRead)  #将res分片返回
  end#of get_http_case2
end #of module gamecloud

=begin


  云中游戏CDKEY系统


    By oott123 via best33.com


    首发：66rpg    [url]http://rpg.blue/thread-309255-1-1.html[/url]


    使用方法：


      1.事件页1输入两个变量，分别为8位和6位，输入完成后打开独立开关


      2.事件页2当独立开关打开时自动执行，条件分歧-脚本-Gamecloud.valcdkey(1,2)


        其中1,2为第一步中的两个变量ID


      3.条件分歧为真时，CDKEY兑换成功；为假时失败。


    WEB端搭建方法：


      见[url]http://rpg.blue/thread-309255-1-1.html[/url]


=end


 


module Gamecloud


  def Gamecloud.valcdkey(key,pwd)


 


    ## 配置说明：请在这里输入云中游戏web端的网址，不带/index.php和后面的任何参数


    base_url = 'http://3.gamecloudemo.duapp.com'


    ## 配置结束


 


    base_url = base_url + '/index.php/valcdkey/api/'


    key = $game_variables[key]


    pwd = $game_variables[pwd]


    http_url = base_url + key.to_s + '/' + pwd.to_s


    str = Gamecloud.get_http_case2(http_url)


    res = str.split('|')


    if(res[0] == 'error')


      return false


    end#of if


    if(res[1] == 'gold')


      #增加金币


      # p "获得了金币"+res[3].to_s


      $game_party.gain_gold(res[3].to_i)


    elsif(res[1] == 'item')


      #获得物品


      # p "获得了"+$data_items[res[2]].name+"x"+res[3].to_s


      $game_party.gain_item($data_items[res[2].to_i], res[3].to_i)


    else


      p "未知错误，请检查！"


      return false


    end#if


    return true


  end#of valcdkey


  def Gamecloud.dumpitems


    file=File.new('itemlist.txt', "w")


    $data_items.each{|i|


        if (i && (i.name != ''))


          file.puts(i.id.to_s + '=' + i.name)


        end


      }


    file.close


  end#of dumpitems


  def Gamecloud.get_http_case2(url)


    #采用凌童鞋推荐的Wininnet.dll调用，抛弃外挂dll=-=不过代码复杂多了……


 


    #要用到的三个api


    api_InternetOpen = Win32API.new(


      'Wininet.dll','InternetOpen',%w(l i l l i),'l')


    api_InternetOpenUrl = Win32API.new(


      'Wininet.dll','InternetOpenUrl',%w(l p p i i i),'l')


    api_InternetReadFile = Win32API.new(


      'Wininet.dll','InternetReadFile',%w(l p i p),'l')


 


    hInternet = api_InternetOpen.call(0,0,0,0,0)  #Internet句柄


 


    hFile = api_InternetOpenUrl.call(hInternet,url,'',0,512,0) #文件句柄


 


    dwNumberOfBytesToRead = 512 #一次要阅读的字符数量，一般512就搞定调用了


    res = " " * dwNumberOfBytesToRead #缓冲区初始化


    lpdwNumberOfBytesRead = [0].pack('L') #2进制的已读取字节数引用传递变量


 


    api_InternetReadFile.call(


      hFile,res,dwNumberOfBytesToRead,lpdwNumberOfBytesRead)  #读取


 


    lpdwNumberOfBytesRead = lpdwNumberOfBytesRead.unpack('L')[0]  #得到字节数


 


    return res.slice(0,lpdwNumberOfBytesRead)  #将res分片返回


  end#of get_http_case2


end #of module gamecloud