赞 | 40 |
VIP | 559 |
好人卡 | 234 |
积分 | 47 |
经验 | 251834 |
最后登录 | 2024-10-11 |
在线时间 | 5240 小时 |
Lv3.寻梦者 (版主) 八宝粥的基叔
- 梦石
- 0
- 星屑
- 4684
- 在线时间
- 5240 小时
- 注册时间
- 2009-4-29
- 帖子
- 14318
|
嗷呜~~
既然大家都不来帮忙,那还是P叔来吃剩饭剩菜吧
范例在这里:
Project1.rar
(238.8 KB, 下载次数: 103)
脚本在这里:- #--------------------------------------------------------------------------
- # ● 信息收集
- #--------------------------------------------------------------------------
- # 把1至3号角色的数据放入数组$data_w
- #--------------------------------------------------------------------------
- def informations
- $data_w = ["Name Lv Atk Def Spi Agi"] # 第一行表头文字设置
- for i in 1..3 # 把1至3号角色的数据放入数组$informations
- inf_1 = $game_actors[i].name + ", "
- inf_2 = $game_actors[i].level.to_s + ", "
- inf_3 = $game_actors[i].atk.to_s + ", "
- inf_4 = $game_actors[i].def.to_s + ", "
- inf_5 = $game_actors[i].spi.to_s + ", "
- inf_6 = $game_actors[i].agi.to_s + ", "
- $data_w[i] = [inf_1,inf_2,inf_3,inf_4,inf_5,inf_6]
- end
- end
- #--------------------------------------------------------------------------
- # ● 信息写入File.txt
- #--------------------------------------------------------------------------
- # 把1至3号角色的数据放入数组$informations
- #--------------------------------------------------------------------------
- def write_file
- informations
- f = open("File.txt", "w") # 打开文件
- # 把数组$data_w的每一个元素写进f,并且在每行的最后输入回车
- $data_w.collect{|i| f.print(i);f.print("\n")}
- f.close # 关闭文件,养成好习惯,有开就有关,最好不要省略
- end
- #--------------------------------------------------------------------------
- # ● 从File.txt读出信息
- #--------------------------------------------------------------------------
- # 把1至3号角色的数据放入数组$informations
- #--------------------------------------------------------------------------
- def read_file
- $data_r = [] # 定义$data_r为一个数组
- a = []
- j = 0
- f = open("File.txt", "r")
- f.collect{|i| $data_r[j] = i;j += 1}
- f.close
- a[0] = $data_r[0].split
- a[1] = $data_r[1].split(/,/)
- a[2] = $data_r[2].split(/,/)
- a[3] = $data_r[3].split(/,/)
- p a
- end
复制代码 |
评分
-
查看全部评分
|