真·加载游戏

yangff

声明：
    本脚本不适用于99%的用户

作用：
    通过网络按需下载RTP数据

要求：
    你得有个服务器= =，虽然6R的ftp似乎可以起到相同的效果，不过你嘚想好，6r的ftp不支持建立目录<-渣渣

更新：
  1.0.0 120
使用HTTP协议，不支持CRC校验

效果：
  不用再费力的脱离RTP了……你弄不干净的，基础下载量小

使用方法：
    找个空间，把X:\Program Files (x86)\RPG Maker VX\RGSS2
下的Audio和Graphics传上去（也可以把你的一些其他素材也传上去
！注意！
你需要把所有的扩展名改成rxd，或许你可以试试:
rename *.* *.rxd
另外确保您在游戏中没有使用XXX.xxx这样的调用（在RM里面会自动识别扩展名的）
另外对Graphics.transition的渐变图完全不支持，请不要尝试使用。另外您可以把一些教常用也较大的数据放在游戏里而不必上传……:)

图片

代码：
HTTP（请注意这段代码的版权信息，虽然我也不知道原作者是谁= =）

1. class Get_Http_Info
   
2. 
   
3.   AGENT = "66RPG Jail"
   
4.   INTERNET_OPEN_TYPE_PRECONFIG = 0 # IEの設定を仕様
   
5.   INTERNET_OPEN_TYPE_DIRECT = 1 # プロキシを使用しない
   
6.   def Get_Http_Info.InternetOpen()
   
7.     io = Win32API.new('wininet', 'InternetOpen', %(p, l, p, p, l), 'l')
   
8.     hInternet = io.call(AGENT, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0)
   
9.     return hInternet
   
10.   end
    
11. 
    
12.   def Get_Http_Info.InternetOpenUrl(hSession, url)
    
13.     iou = Win32API.new('wininet', 'InternetOpenUrl', %(l, p, p, l, l, l), 'l')
    
14.     hService = iou.call(hSession, url, nil, 0, 0, 0)
    
15.     return hService
    
16.   end
    
17. 
    
18.   def Get_Http_Info.InternetReadFile(hService)
    
19.     content = ""
    
20.     read_size = 1024 # 一次读入文件的尺寸
    
21.     irf = Win32API.new('wininet', 'InternetReadFile', %(l, p, i, p), 'i')
    
22.     while(true)
    
23.       buf = "\0" * read_size
    
24.       red = [0].pack('L')
    
25.       irf.call( hService, buf, read_size, red )
    
26.       if(red.unpack('L') == [0])
    
27.       #读到文件末端
    
28.         break
    
29.       end
    
30.       buf.delete!("\0")
    
31.       content += buf
    
32.     end
    
33. 
    
34.     return content
    
35.   end
    
36.   def Get_Http_Info.NewInternetReadFile(hService,length,cb,f)
    
37.   
    
38.     content = ""
    
39.     read_size = 1024 # 一次读入文件的尺寸
    
40.     irf = Win32API.new('wininet', 'InternetReadFile', %(l, p, i, p), 'i')
    
41.     id=1
    
42.     cb.call(0,length)
    
43.     while(true)
    
44.       buf = "\0" * read_size
    
45.       red = [0].pack('L')
    
46.       irf.call( hService, buf, read_size, red )
    
47.       #buf.delete!("\0")
    
48.       f.write(buf)
    
49.       cb.call(id*read_size,length)
    
50.       
    
51.       if(red.unpack('L') == [0])
    
52.       #读到文件末端
    
53.         break
    
54.       end
    
55.       #buf.delete!("\0")
    
56.       #content += buf
    
57.       id+=1
    
58.     end
    
59.    
    
60.     return content
    
61.    
    
62.    
    
63.   end
    
64. 
    
65. 
    
66.   HTTP_QUERY_STATUS_CODE = 19
    
67.   CONTENT_LENGTH=5
    
68.   def Get_Http_Info.HttpQueryInfo(hService)
    
69.     read_size = 1024
    
70.     buf = "\0" * read_size
    
71.     red = [read_size-1].pack('L')
    
72.     hqi = Win32API.new('wininet', 'HttpQueryInfo', %(l, l, p, p, p), 'i')
    
73.     isOk = hqi.call( hService, HTTP_QUERY_STATUS_CODE, buf, red, nil)
    
74.     buf.delete!("\0")
    
75.     return buf
    
76.   end
    
77.   def Get_Http_Info.HttpQuerySize(hService)
    
78.     read_size = 1024
    
79.     buf = "\0" * read_size
    
80.     red = [read_size-1].pack('L')
    
81.     hqi = Win32API.new('wininet', 'HttpQueryInfo', %(l, l, p, p, p), 'i')
    
82.     isOk = hqi.call( hService, CONTENT_LENGTH, buf, red, nil)
    
83.     buf.delete!("\0")
    
84.     return buf
    
85.   end
    
86.   def Get_Http_Info.InternetCloseHandle(hInternet)
    
87.     ich = Win32API.new('winInet', 'InternetCloseHandle', %(l), 'i')
    
88.     isOk = ich.call(hInternet)
    
89.     return isOk
    
90.   end
    
91. 
    
92.   HTTP_CODE_OK = "200"
    
93. 
    
94.   def Get_Http_Info.get_info(url)
    
95.     info = nil
    
96.     begin
    
97.       hInternet = InternetOpen()
    
98.       if(hInternet != 0)
    
99.         hService = InternetOpenUrl(hInternet, url)
    
100.         if(hService != 0)
     
101.           status_code = HttpQueryInfo(hService)
     
102.           if(status_code == HTTP_CODE_OK)
     
103.             info = InternetReadFile(hService)
     
104.           end
     
105.           InternetCloseHandle(hService)
     
106.         end
     
107.         InternetCloseHandle(hInternet)
     
108.       end
     
109.     rescue
     
110.       # 例外发生
     
111.       return ""
     
112.     end
     
113. 
     
114.     ary = []
     
115. 
     
116.     info.each_line do |line|
     
117.     next if line.empty?
     
118.       ary.push line
     
119.     end
     
120. 
     
121.     return ary[271].scan(/\w+<\/a>/)
     
122. 
     
123.   end
     
124. 
     
125. 
     
126.   def Get_Http_Info.get_html(url)
     
127.     info = nil
     
128.     begin
     
129.       hInternet = InternetOpen()
     
130.       if(hInternet != 0)
     
131.         hService = InternetOpenUrl(hInternet, url)
     
132.         if(hService != 0)
     
133.           status_code = HttpQueryInfo(hService)
     
134.           if(status_code == HTTP_CODE_OK)
     
135.             info = InternetReadFile(hService)
     
136.           end
     
137.           InternetCloseHandle(hService)
     
138.         end
     
139.         InternetCloseHandle(hInternet)
     
140.       end
     
141.     rescue
     
142.       # 例外发生
     
143.       return ""
     
144.     end
     
145.     return info
     
146.   end
     
147.   def Get_Http_Info.down_load(url,save,cb,fn)
     
148.     info = nil
     
149.     begin
     
150.       
     
151.       hInternet = InternetOpen()
     
152.       if(hInternet != 0)
     
153.         hService = InternetOpenUrl(hInternet, url)
     
154.         if(hService != 0)
     
155.           status_code = HttpQueryInfo(hService)
     
156.           length=HttpQuerySize(hService).to_i
     
157.           #p length
     
158.           if(status_code == HTTP_CODE_OK)
     
159.             f=File.open(fn,"wb")
     
160.             info = NewInternetReadFile(hService,length,cb,f)
     
161.             f.close
     
162.           end
     
163.           InternetCloseHandle(hService)
     
164.         end
     
165.         InternetCloseHandle(hInternet)
     
166.       end
     
167.     rescue
     
168.       # 例外发生
     
169.       return ""
     
170.     end
     
171.     return info
     
172.   end
     
173. end
     
174. #$s=Sprite.new
     
175. #$s.bitmap=Bitmap.new(544,24)
     
176. #$s.bitmap.fill_rect(0,0,544,24,Color.new(255,255,255))
     
177. 
     
178. #p Get_Http_Info.down_load("http://rpg.blue/thread-201129-1-1.html","",proc { |a,b|$s.bitmap.fill_rect(0,0,544*(a/b),24,Color.new(0,0,255)) ;Graphics.update})
     

复制代码

主程序

1. unless $@ #和谐F12
   
2.   #namespace Yangff
   
3.   $Yangff={} if $Yangff.nil?
   
4.   if not $Yangff["$WebCache"]
   
5.     $Yangff["$WebCache"]="1.0.0 120"
   
6.     module Yangff
   
7.       module WebCache
   
8.         V="1.0.0 120"
   
9.         NV = "1.0.1 220"
   
10.         FileURL="http://127.0.0.1:1108/RTP/"
    
11.         CRC=false # in 1.0.1
    
12.         begin
    
13.           Width=Graphics.width
    
14.           Height=Graphics.height
    
15.           RPG="VX"
    
16.         rescue
    
17.           Width=640
    
18.           Height=480
    
19.           RPG="XP"
    
20.         end
    
21.         if CRC
    
22.           raise "Sorry.We donot support CRC Check in V#{V} .You may find it in #{NV}"
    
23.         end
    
24.         def self.cache_file(urls)
    
25.           if $Yangff["$WebCache$Background$Viewport"].nil?
    
26.             $Yangff["$WebCache$Background$Viewport"]=Viewport.new(0,0,Width,Height)
    
27.             $Yangff["$WebCache$Background$Viewport"].z=9999999
    
28.             $Yangff["$WebCache$Background$Sprite"] = Sprite.new
    
29.             $Yangff["$WebCache$Background$Sprite"].z=  9999900
    
30.             $Yangff["$WebCache$Background$Sprite"].bitmap=Bitmap.new(Width,Height)
    
31.             $Yangff["$WebCache$Background$Sprite"].bitmap.fill_rect(0,0,Width,Height,Color.new(0,0,0,100))
    
32.             $Yangff["$WebCache$Background$Sprite"].viewport=$Yangff["$WebCache$Background$Viewport"]
    
33.             $Yangff["$WebCache$Background$SpriteLoop"] = Sprite.new
    
34.             $Yangff["$WebCache$Background$SpriteLoop"].viewport=$Yangff["$WebCache$Background$Viewport"]
    
35.             $Yangff["$WebCache$Background$SpriteLoop"].z=  9999900
    
36.             $Yangff["$WebCache$Background$SpriteLoop"].bitmap=Bitmap.new(Width,24)
    
37.           end
    
38.           o=Graphics.brightness
    
39.           Graphics.transition(1)
    
40.           Graphics.fadein(1)
    
41.           $Yangff["$WebCache$Background$Viewport"].visible =true
    
42.           #returns=[]
    
43.           for url in urls
    
44.             $Yangff["$WebCache$Background$SpriteLoop"].bitmap.fill_rect(0,0,Width,24,Color.new(255,255,255))
    
45.             if not $WebCache[url] #returns
    
46.               fn=rand(999999).to_s+rand(999999).to_s+rand(999999).to_s+rand(999999).to_s+rand(999999).to_s+rand(999999).to_s+".rxd"
    
47.               $ts=Time.now
    
48.               #f=File.open("Cache/#{fn}","wb")
    
49.               Get_Http_Info.down_load("#{Yangff::WebCache::FileURL}#{url}.rxd","",proc { |a,b|$Yangff["$WebCache$Background$SpriteLoop"].bitmap.fill_rect(0,0,Width,24,Color.new(255,255,255));$Yangff["$WebCache$Background$SpriteLoop"].bitmap.fill_rect(0,0,Yangff::WebCache::Width*(a.to_f/b.to_f),24,Color.new(0,0,255)) ;str="Downloading #{url}... #{(a.to_f/b.to_f*100).to_i}%  Speed: #{(a.to_f/((Time.now-$ts)*1000)).to_i} k/s" ;rect=$Yangff["$WebCache$Background$SpriteLoop"].bitmap.text_size(str) ;$Yangff["$WebCache$Background$SpriteLoop"].bitmap.draw_text(rect,str,1) ;Graphics.update; Graphics.frame_reset
    
50. },"Cache/#{fn}")
    
51.               #f.close
    
52.               $WebCache[url]="Cache/#{fn}"
    
53.               save_data($WebCache,"Data/WebCache.rvdata")
    
54.             end
    
55.           end
    
56.           $Yangff["$WebCache$Background$Viewport"].visible =false
    
57.           Graphics.brightness=o
    
58.         end
    
59.       end
    
60.     end
    
61.     if not FileTest.directory?("Cache")
    
62.       Dir.mkdir("Cache")
    
63.       $WebCache={}
    
64.     else
    
65.       $WebCache=load_data("Data/WebCache.rvdata")
    
66.     end
    
67.     alias yangff_old_exit exit
    
68.     def exit(*args)
    
69.       save_data($WebCache,"Data/WebCache.rvdata")
    
70.       yangff_old_exit(*args)
    
71.     end
    
72.     class Bitmap
    
73.       alias yangff_old_initialize initialize
    
74.       def initialize(*args)
    
75.         if args.size>1
    
76.           return yangff_old_initialize(*args)
    
77.         else
    
78.           begin
    
79.             return yangff_old_initialize(*args)
    
80.           rescue Errno::ENOENT
    
81.             Yangff::WebCache.cache_file([args[0]])
    
82.             return yangff_old_initialize($WebCache[args[0]])
    
83.           end
    
84.         end
    
85.       end
    
86.     end
    
87.     class <<Audio
    
88.       alias yangff_old_bgm_play bgm_play
    
89.       alias yangff_old_bgs_play bgs_play
    
90.       alias yangff_old_me_play me_play
    
91.       alias yangff_old_se_play se_play
    
92.       def bgm_play(*args)
    
93.         begin
    
94.           yangff_old_bgm_play(*args)
    
95.         rescue Errno::ENOENT
    
96.           Yangff::WebCache.cache_file([args[0]])
    
97.           args[0]=$WebCache[args[0]]
    
98.           yangff_old_bgm_play(*args)
    
99.         end
    
100.       end
     
101.       def bgs_play(*args)
     
102.         begin
     
103.           yangff_old_bgs_play(*args)
     
104.         rescue Errno::ENOENT
     
105.           Yangff::WebCache.cache_file([args[0]])
     
106.           args[0]=$WebCache[args[0]]
     
107.           yangff_old_bgs_play(*args)
     
108.         end
     
109.       end
     
110.       def me_play(*args)
     
111.         begin
     
112.           yangff_old_me_play(*args)
     
113.         rescue Errno::ENOENT
     
114.           Yangff::WebCache.cache_file([args[0]])
     
115.           args[0]=$WebCache[args[0]]
     
116.           yangff_old_me_play(*args)
     
117.         end
     
118.       end
     
119.       def se_play(*args)
     
120.         begin
     
121.           yangff_old_se_play(*args)
     
122.         rescue Errno::ENOENT
     
123.           Yangff::WebCache.cache_file([args[0]])
     
124.           args[0]=$WebCache[args[0]]
     
125.           yangff_old_se_play(*args)
     
126.         end
     
127.       end
     
128.       
     
129.     end
     
130.   end
     
131. end

复制代码

1587937102

服务器用HFS搭建

1142881837

擦，你这还发布，不过我倒要研究研究，先抱回去看看！

OCTSJimmy

咳咳，其实从这个我想到了暗黑3，主程序第53行save其实可以不写盘，直接用$WebCache来达到一系列的目的。那么这样子的话，就可以将一些关键数据，例如 敌人数据、物品数据等核心数据放在服务器上，验证注册后每次开启游戏，远程载入。咳咳，这个比较邪恶了。不过推荐柳大的新游戏《永夜幻想曲》可以考虑采用

z1012572747

急需用这个啊- -，可是不知道使用方法，（ftp有）求教啊，怎么设置什么的

0newing

为用这个我还得去弄个服务器？
看来我是属于那99%的……

有求必应

在脚本直接改loading(http://xxx.xxx.xxx/xxx/xxx.xxx这样行不？

Sonic1997

LS挖坟了
话说那重命名怎么回事？

yangff

一瞬间的幻觉 发表于 2011-9-11 05:12
这真不实用啊

脱离RTP比较方便而已……其他的似乎没什么用，不过我是用来加载用户自制素材的

一瞬间的幻觉

{:2_44:}这真不实用啊