设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 1913|回复: 5
打印 上一主题 下一主题

[已经解决] 关于芯☆淡茹水大大写的转转乐脚本

[复制链接]

Lv1.梦旅人

梦石
0
星屑
90
在线时间
186 小时
注册时间
2010-6-24
帖子
111
跳转到指定楼层
1
发表于 2015-8-5 00:06:52 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
请问如何将@芯☆淡茹水大大写的转转乐脚本,物品的图标变为支持显示48X48呢? 单纯的把24X24改成48X48后图标会向下移动 没有居中中间的转盘呢? 谢谢大大。

#==============================================================================
# ■ 转转乐(转盘式抽奖游戏) ■     -> by 芯☆淡茹水
#==============================================================================
#
# ■ 使用方法:复制该脚本,插入到 main 前,并复制范例工程 Graphics\Pictures
#              文件夹下所有图片到目标游戏工程。
#
#    呼出抽奖场景方法:事件 -> 脚本:$scene = Scene_Prize.new
#
#==============================================================================
#
# ■ 说明: 1,该转盘抽奖为随机,制作者不能控制(作弊)。制作者需要把可以抽奖
#              的物品ID对应的填入下面的设置项即可。
#
#           2,每一盘抽奖的物品不会重复,得到的物品数量为 1 。
#
#           3,该范例仅支持 24 X 24 的物品图标 。
#
#           4,该范例的图片来源于网络。
#==============================================================================
module X☆R
#==============================================================================
# ■ 设置:↓
  #-------------------------------------------------------------------------
  # 消耗方式(0 固定金钱; 1 变量指定金钱; 2 消耗物品<数量为1>)。
  Consumption_mode = 2
  #-------------------------------------------------------------------------
  # 消耗方式为 0 时,抽奖一次需要的金钱。
  Need_gold = 500
  #-------------------------------------------------------------------------
  # 消耗方式为 1 时,抽奖一次需要的指定金钱的变量ID。
  Need_gold_var = 10
  #-------------------------------------------------------------------------
  # 消耗方式为 2 时,抽奖一次需要的物品ID。
  Need_item_id = 33
  #-------------------------------------------------------------------------
  # 场景BGM(不需要就写空白引号 "" )。
  Bgm_name = ""
  #-------------------------------------------------------------------------
  # 转针转动时播放的SE。
  Change_se = "032-Switch01"  
  #-------------------------------------------------------------------------
  # 转针停止时播放的SE。
  Stop_se = "112-Heal08"  
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的普通物品ID。
  Prize_items1 = [1,2,4,5,9,11,12,13,14,15,16,33]  
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的珍贵物品ID。
  Prize_items2 = [3,6,10,17,18,19,20,21,22]
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的普通武器ID。
  Prize_weapons1 = [1,2,3,5,6,7,9,10,11,13,14,15,17,18,19]
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的珍贵武器ID。
  Prize_weapons2 = [4,8,12,16,20]  
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的普通防具ID。
  Prize_armors1 = [1,2,3,5,6,7,9,10,11,13,14,15,17,18,19]  
  #-------------------------------------------------------------------------
  # 可以出现在转盘里的珍贵防具ID。
  Prize_armors2 = [4,8,12,16,20,25,26,27,28,29,30]  
  #-------------------------------------------------------------------------
  # 物品在转盘里出现的几率(百分比)。
  Item_rate = 60
  #-------------------------------------------------------------------------
  # 珍贵物品出现的概率为总物品数的(百分比)。
  Precious_item_rate = 20  
  #-------------------------------------------------------------------------
  # 武器在转盘里出现的几率(百分比)。
  Weapon_rate = 20
  #-------------------------------------------------------------------------
  # 珍贵武器出现的概率为总武器数的(百分比)。
  Precious_weapon_rate = 20  
  #-------------------------------------------------------------------------
  # 防具在转盘里出现的几率(百分比)。
  Armor_rate = 20  
  #-------------------------------------------------------------------------
  # 珍贵防具出现的概率为总防具数的(百分比)。
  Precious_armor_rate = 20
  #==========================================================================
  # ■ 脚本正文 ↓
  #==========================================================================
  def self.can_start?
    case Consumption_mode
    when 0 :return ($game_party.gold >= Need_gold)
    when 1 :return ($game_party.gold >= $game_variables[Need_gold_var])
    when 2 :return ($game_party.item_number(Need_item_id) >= 1)
    end
  end
  #-------------------------------------------------------------------------
  def self.consumption
    case Consumption_mode
    when 0 :$game_party.lose_gold(Need_gold)
    when 1 :$game_party.lose_gold($game_variables[Need_gold_var])
    when 2 :$game_party.lose_item(Need_item_id, 1)
    end
  end
  #-------------------------------------------------------------------------
  def self.cant_start_wodr
    return Consumption_mode == 2 ? "抽奖所需物品不足!" : "抽奖所需费用不足!"
  end
end
#==============================================================================
class Game_System
  attr_accessor :prize_items
end
#==============================================================================
class Change < Sprite
  #-------------------------------------------------------------------------
  def initialize
    super()
    self.bitmap = Bitmap.new("Graphics/Pictures/转盘背景")
    self.x = 70; self.y = 8; self.z = 500
    @tit = Sprite.new
    @tit.bitmap = Bitmap.new("Graphics/Pictures/转盘标题")
    @tit.x = self.x + 50; @tit.y = self.y + 24; @tit.z = 600
    @item_sprite = []
    for i in 0..7
      @item_sprite = Sprite.new
      @item_sprite.bitmap = Bitmap.new(48,48)
      @item_sprite.x, @item_sprite.y = get_item_place(i)
      @item_sprite.x += self.x; @item_sprite.y += self.y
      @item_sprite.z = 600
    end
    @zhen = Sprite.new
    @zhen.bitmap = Bitmap.new("Graphics/Pictures/转盘指针")
    @zhen.ox = @zhen.bitmap.width / 2; @zhen.oy = @zhen.bitmap.height / 2
    @zhen.x = self.x + 176; @zhen.y = self.y + 230; @zhen.z = 700
    @zhen.angle = 337.5
    @item_index = 0
  end
  #-------------------------------------------------------------------------
  def dispose
    @item_sprite.each{|w| w.bitmap.dispose; w.dispose}
    @tit.bitmap.dispose
    @zhen.bitmap.dispose
    self.bitmap.dispose
    @tit.dispose
    @zhen.dispose
    super
  end
  #-------------------------------------------------------------------------
  def get_item_place(index)
    case index
    when 0 :return 195, 146
    when 1 :return 238, 186
    when 2 :return 242, 248
    when 3 :return 192, 290
    when 4 :return 138, 290
    when 5 :return  90, 247
    when 6 :return  94, 190
    when 7 :return 134, 150
    end
  end
  #-------------------------------------------------------------------------
  def item_index
    return  @item_index
  end
  #-------------------------------------------------------------------------
  def set_items(items)
    @item_sprite.each{|w| w.bitmap.clear}
    return if items == []
    for i in 0..7
      item = items
      bitmap = RPG::Cache.icon(item.icon_name)
      @item_sprite.bitmap.blt(0, 0, bitmap, Rect.new(0, 0, 48, 48))
    end
  end
  #-------------------------------------------------------------------------
  def zhuan
    Audio.se_play("Audio/SE/#{X☆R::Change_se}", 100, 100)
    @zhen.angle -= 45
    @item_index = (@item_index+1) % 8
  end
end
#==============================================================================
class Prize < Sprite
  #-------------------------------------------------------------------------
  def initialize
    super()
    self.x = 420; self.y = 8; self.z = 500
    @messages = []
  end
  #-------------------------------------------------------------------------
  def dispose
    self.bitmap.dispose if self.bitmap
    super
  end
  #-------------------------------------------------------------------------
  def add_mess(txt)
    @messages.unshift(txt)
  end
  #-------------------------------------------------------------------------
  def set_messages
    self.bitmap.dispose if self.bitmap
    self.bitmap = Bitmap.new("Graphics/Pictures/奖品背景")
    return if @messages == []
    x = 14; y = 52
    self.bitmap.font.bold = true
    for i in [email protected]
      self.bitmap.font.size = (i == 0 ? 20 : 16)
      txt = @messages
      if i == 0
        self.bitmap.font.color = Color.new(0,0,0)
        self.bitmap.draw_text(x-1, y-1, 120, 22, txt)
        self.bitmap.draw_text(x-1, y+1, 120, 22, txt)
        self.bitmap.draw_text(x-1, y-1, 120, 22, txt)
        self.bitmap.draw_text(x+1, y-1, 120, 22, txt)
      end
      self.bitmap.font.color = (i == 0 ? Color.new(255,120,0) : Color.new(255,255,255))
      self.bitmap.draw_text(x, y, 120, 22, txt)
      y += (i == 0 ? 32 : 24)
    end
  end
  #-------------------------------------------------------------------------
  def update
    super
    @messages.pop until @messages.size <= 9
    if @data_mes != @messages
      @data_mes = @messages.clone
      set_messages
    end
  end
end
#==============================================================================
class Prize_Cam < Window_Selectable
  #--------------------------------------------------------------------------
  def initialize
    super(404, 281, 182, 112)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.opacity = 0
    @column_max = 1
    @item_max = 2
    self.index = 0
  end
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    bitmap = Bitmap.new("Graphics/Pictures/抽奖选择#{index}")
    self.contents.blt(0, 0, bitmap, Rect.new(0, 0, 150, 80))
  end
  #--------------------------------------------------------------------------
  def update
    super
    if @data_index != index
      @data_index = index
      refresh
    end
  end
  #--------------------------------------------------------------------------
  def update_cursor_rect
    self.cursor_rect.set(8, index*32+8, 134, 32)
  end
end
#==============================================================================
class Prize_Gold < Sprite
  #-------------------------------------------------------------------------
  def initialize
    super()
    self.x = 419; self.y = 376; self.z = 500
  end
  #-------------------------------------------------------------------------
  def dispose
    self.bitmap.dispose if self.bitmap
    super
  end
  #-------------------------------------------------------------------------
  def set_show
    self.bitmap.dispose if self.bitmap
    self.bitmap = Bitmap.new("Graphics/Pictures/金钱窗口背景")
    self.bitmap.font.bold = true
    self.bitmap.font.color = Color.new(255,255,255)
    if X☆R::Consumption_mode == 2
      self.bitmap.font.size = 18
      item = $data_items[X☆R::Need_item_id]
      bitmap = RPG::Cache.icon(item.icon_name)
      self.bitmap.blt(8, 5, bitmap, Rect.new(0, 0, 48, 48))
      txt = "#{item.name} X #{$game_party.item_number(item.id)}"
      self.bitmap.draw_text(36, 2, 110, 32, txt)
    else
      self.bitmap.font.size = 20
      self.bitmap.draw_text(0, 2, 100, 32, $game_party.gold.to_s, 2)
      self.bitmap.font.color = Color.new(192, 224, 255)
      self.bitmap.draw_text(102, 2, 48, 32, $data_system.words.gold, 1)
    end
  end
  #-------------------------------------------------------------------------
  def update
    super
    if X☆R::Consumption_mode == 2
      if @data_num != $game_party.item_number(X☆R::Need_item_id)
        @data_num = $game_party.item_number(X☆R::Need_item_id)
        set_show
      end
    else
      if @data_gold != $game_party.gold
        @data_gold = $game_party.gold
        set_show
      end
    end
  end
end
#==============================================================================
class Prize_Message < Sprite
  attr_accessor :mess
  #-------------------------------------------------------------------------
  def initialize
    super()
    self.x = 70; self.y = 408; self.z = 500
    @mess = ""
  end
  #-------------------------------------------------------------------------
  def dispose
    self.bitmap.dispose if self.bitmap
    super
  end
  #-------------------------------------------------------------------------
  def set_mess
    self.bitmap.dispose if self.bitmap
    self.bitmap = Bitmap.new("Graphics/Pictures/提示信息背景")
    return if @mess == ""
    self.bitmap.font.bold = true
    self.bitmap.font.size = 26
    self.bitmap.font.color = Color.new(255,255,255)
    self.bitmap.draw_text(18, 14, 460, 32, @mess, 1)
  end
  #-------------------------------------------------------------------------
  def update
    super
    if @data_mess != @mess
      @data_mess = @mess
      set_mess
    end
  end
end
#==============================================================================
class Scene_Prize
  #--------------------------------------------------------------------------
  def main
    @spriteset = Spriteset_Map.new
    @zhuan = Change.new
    @prize = Prize.new
    @command = Prize_Cam.new
    @gold = Prize_Gold.new
    @message = Prize_Message.new
    @message.mess = X☆R::can_start? ? "请点击开始按钮。" : X☆R::cant_start_wodr
    @wait_count = 0
    @zhuan_count = 0
    @count = 0
    @speed = 1
    set_prize_items
    if X☆R::Bgm_name != ""
      Audio.bgm_play("Audio/BGM/#{X☆R::Bgm_name}", 100, 100)
    end
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      break if $scene != self
    end
    Graphics.freeze
    @zhuan.dispose
    @prize.dispose
    @command.dispose
    @gold.dispose
    @message.dispose
    @spriteset.dispose
  end
  #--------------------------------------------------------------------------
  def update
    @zhuan.update
    @prize.update
    @command.update
    @gold.update
    @message.update
    if @wait_count > 0
      @wait_count -= 1
      if @wait_count == 0
        @message.mess = X☆R::can_start? ? "请点击开始按钮。" : X☆R::cant_start_wodr
      end
      return
    end
    if @zhuan_count > 0
      @mess = ""
      update_zhuan
      return
    end
    if @command.active and Input.trigger?(Input::C)
      case @command.index
      when 0
        unless X☆R::can_start?
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        $game_system.se_play($data_system.decision_se)
        X☆R::consumption
        set_prize_items if @count > 0
        @zhuan_count = rand(150) + 150
        @message.mess = ""
      when 1
        $game_system.se_play($data_system.cancel_se)
        $scene = Scene_Map.new
      end
    end
  end
  #--------------------------------------------------------------------------
  def update_zhuan
    if @zhuan_count % @speed  == 0
      @speed = [@speed + [(100 - @zhuan_count) / 20, 0].max, 6].min
      @zhuan.zhuan
    end
    @zhuan_count -= 1
    if @zhuan_count == 0
      Audio.se_play("Audio/SE/#{X☆R::Stop_se}", 100, 100)
      @speed = 1
      @count += 1
      get_prize
      @wait_count = 60
    end
  end
  #--------------------------------------------------------------------------
  def get_prize
    item = @prize_items[@zhuan.item_index]
    return if item.nil?
    case item
    when RPG::Item
      $game_party.gain_item(item.id, 1)
    when RPG::Weapon
      $game_party.gain_weapon(item.id, 1)
    when RPG::Armor
      $game_party.gain_armor(item.id, 1)
    end
    @prize.add_mess(item.name)
    $game_system.prize_items = []
    @message.mess = "恭喜获得奖品!"
  end
  #--------------------------------------------------------------------------
  def set_prize_items
    @prize_items = []
    if $game_system.prize_items != nil and $game_system.prize_items != []
      @prize_items = $game_system.prize_items.clone
    else
      set_item_mod until @prize_items.size >= 8
      $game_system.prize_items = @prize_items.clone
    end
    @zhuan.set_items(@prize_items)
  end
  #--------------------------------------------------------------------------
  def set_item_mod
    case rand (100)
    when 0...X☆R::Item_rate
      if rand (100) < X☆R::Precious_item_rate
        mod = X☆R::Prize_items1 + X☆R::Prize_items2
      else
        mod = X☆R::Prize_items1.clone
      end
      item = $data_items[mod[rand(mod.size)]]
      @prize_items << item unless @prize_items.include?(item)
    when X☆R::Item_rate...(X☆R::Item_rate + X☆R::Weapon_rate)
      if rand (100) < X☆R::Precious_weapon_rate
        mod = X☆R::Prize_weapons1 + X☆R::Prize_weapons2
      else
        mod = X☆R::Prize_weapons1.clone
      end
      item = $data_weapons[mod[rand(mod.size)]]
      @prize_items << item unless @prize_items.include?(item)
    else
      if rand (100) < X☆R::Precious_armor_rate
        mod = X☆R::Prize_armors1 + X☆R::Prize_armors2
      else
        mod = X☆R::Prize_armors1.clone
      end
      item = $data_armors[mod[rand(mod.size)]]
      @prize_items << item unless @prize_items.include?(item)
    end
  end
end
#==============================================================================

评分

参与人数 1星屑 +35 收起 理由
RyanBern + 35 手动认可奖励

查看全部评分

Lv3.寻梦者

梦石
0
星屑
1556
在线时间
626 小时
注册时间
2010-8-5
帖子
451
2
发表于 2015-8-5 18:44:46 | 只看该作者
我帮你呼叫他@芯☆淡茹水  
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
555
在线时间
111 小时
注册时间
2013-11-22
帖子
301
3
发表于 2015-8-5 20:38:29 | 只看该作者
本酱已经改好了
用法是将48*48的图标以物品图标命名并加上“_prize”
比如原来的图标名叫“Weapon.png”就将它改为“Weapon_prize.png”
为保护原作者权益,本酱将按原售价提供给您
↑斑竹大人见谅啊啊啊啊啊啊
转盘抽奖游戏(XP).rar (428.55 KB, 下载次数: 55)

点评

请问这个应该怎么修改呢  发表于 2015-8-5 23:04
饿饿,弄明白了,还得有一个没改名的图标才行呀,谢谢大。 不好意思还想问一下,就是图标虽然显示了,但是位置好像有点往右边和下面偏呢,请....  发表于 2015-8-5 23:03
饿饿,可是大大这次有出现找不到文件/graphics/Icons/尾巴_prize_prize了,Icons文件夹里已经给尾巴改好名字,改成了尾巴_prize了呀?  发表于 2015-8-5 22:51
这个是因为我在测试的时候物品留空了,把设置物品编号项填上  发表于 2015-8-5 22:30
谢谢亲,不过第 459行报错了呢 item = $data_items[mod[rand(mod.size)]] 请问该怎么解决呀?谢谢  发表于 2015-8-5 21:30

评分

参与人数 1梦石 +1 收起 理由
RyanBern + 1 认可答案

查看全部评分

回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
90
在线时间
186 小时
注册时间
2010-6-24
帖子
111
4
 楼主| 发表于 2015-8-5 23:05:58 | 只看该作者
本帖最后由 fjjghj1 于 2015-8-5 23:09 编辑


好像没有居中呢,大大。请问应该修改哪里呀?
(图标实际只有24X24,但是周围有24X24的空白,所以是48X48的,饿…弄空白是因为需要咕~~(╯﹏╰)b)

点评

PS:虽然实际图标只有24X24,但是周围有24X24的空白,所以看着还是24X24的。但是实际图标是48X48。额  发表于 2015-8-5 23:08
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
555
在线时间
111 小时
注册时间
2013-11-22
帖子
301
5
发表于 2015-8-5 23:12:49 | 只看该作者
fjjghj1 发表于 2015-8-5 23:05
好像没有居中呢,大大。请问应该修改哪里呀?
(图标实际只有24X24,但是周围有24X24的空白,所以是48X48 ...

看来48*48的问题解决了,恭喜哦~
全局查找
  1. get_item_place(index)
复制代码
下面的坐标就是图标位置,您可以试着改改哦~

点评

成功了!感谢大神。,, 啊,,对不起大神突然想起来 就是抽奖时选择消耗道具的话,请问那个消耗道具的图标如何改成48X48呢?谢谢  发表于 2015-8-6 15:21
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
555
在线时间
111 小时
注册时间
2013-11-22
帖子
301
6
发表于 2015-8-6 16:55:55 | 只看该作者
fjjghj1 发表于 2015-8-5 23:05
好像没有居中呢,大大。请问应该修改哪里呀?
(图标实际只有24X24,但是周围有24X24的空白,所以是48X48 ...

把277和278行换成如下内容,设置方法同理
  1.       bitmap = RPG::Cache.icon(item.icon_name + "prize")
  2.       self.bitmap.blt(8, 5, bitmap, Rect.new(0, 0, 48, 48))
复制代码

点评

几天没见到您了呢,大大。在忙呀  发表于 2015-8-10 19:15
ku  发表于 2015-8-7 22:32
啊,抱歉啊大大,还有一个问题,请问就是消耗道具的图标位置在哪里调整呀?谢谢不好意思  发表于 2015-8-6 23:48
OK了呢,谢谢大大,对不起问了您那么多,非常感谢  发表于 2015-8-6 21:29

评分

参与人数 1星屑 +10 收起 理由
fjjghj1 + 10 认可答案

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-26 07:01

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表