设为首页收藏本站

仙剑之十里坡

 找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 6173|回复: 10
打印 上一主题 下一主题

图片标题的脚本

[复制链接]

168

主题

6

听众

1万

积分

超级版主

蜀山剑侠银行行长

超级版主

  • TA的每日心情
    开心
    2024-8-7 22:39
  • 签到天数: 882 天

    [LV.10]以坛为家III

    精华
    3
    积分
    13208
    历练
    7
    声望
    24
    人气
    2432

    金融巨子 润泽万物 坚若磐石

    单身中……
    帮我摆脱单身吧
    跳转到指定楼层
    1
    发表于 2010-4-5 20:42:44 |只看该作者 |倒序浏览
    #==============================================================================
    # 本脚本来自www.66RPG.com,使用和转载请保留此信息
    #==============================================================================
    #==============================================================================
    # ■ 图片标题菜单1.0
    # Scene_Title
    #------------------------------------------------------------------------------
    # 作者:chaochao
    # http://zhuchao.go1.icpcn.com
    #==============================================================================
    class Scene_Title
      def main
        if $BTEST
          battle_test
          return
        end
        $data_actors = load_data("Data/Actors.rxdata")
        $data_classes = load_data("Data/Classes.rxdata")
        $data_skills = load_data("Data/Skills.rxdata")
        $data_items = load_data("Data/Items.rxdata")
        $data_weapons = load_data("Data/Weapons.rxdata")
        $data_armors = load_data("Data/Armors.rxdata")
        $data_enemies = load_data("Data/Enemies.rxdata")
        $data_troops = load_data("Data/Troops.rxdata")
        $data_states = load_data("Data/States.rxdata")
        $data_animations = load_data("Data/Animations.rxdata")
        $data_tilesets = load_data("Data/Tilesets.rxdata")
        $data_common_events = load_data("Data/CommonEvents.rxdata")
        $data_system = load_data("Data/System.rxdata")
        $game_system = Game_System.new
        # 生成标题图形
        @sprite = [Sprite.new]
        for i in 0..6
          @sprite = Sprite.new
          @sprite.opacity = 0
        end
        @sprite[0].bitmap = RPG::Cache.title($data_system.title_name)
        @sprite[0].opacity = 0
        #开始游戏的图片
        @sprite[1].bitmap = Bitmap.new("Graphics/Pictures/start-1.png")
        @sprite[2].bitmap = Bitmap.new("Graphics/Pictures/start-2.png")
        #继续游戏的图片
        @sprite[3].bitmap = Bitmap.new("Graphics/Pictures/continue-1.png")
        @sprite[4].bitmap = Bitmap.new("Graphics/Pictures/continue-2.png")
        #结束游戏的图片
        @sprite[5].bitmap = Bitmap.new("Graphics/Pictures/exit-1.png")
        @sprite[6].bitmap = Bitmap.new("Graphics/Pictures/exit-2.png")
        #图片位置
        for i in 1..6
          x=280
          y=(i+1)/2*35+300
          @sprite.x =x
          @sprite.y =y
        end
        @continue_enabled = false
        for i in 0..3
          if FileTest.exist?("Save#{i+1}.rxdata")
            @continue_enabled = true
          end
        end
        if @continue_enabled
          @command_index = 1
        else
          @command_index = 0
          @sprite[3].tone = Tone.new(0, 0, 0, 255)
          @sprite[4].tone = Tone.new(0, 0, 0, 255)
        end
        $game_system.bgm_play($data_system.title_bgm)
        Audio.me_stop
        Audio.bgs_stop
        Graphics.transition
        loop do
          Graphics.update
          #淡出背景圖形
          if @sprite[0].opacity <= 255
            @sprite[0].opacity += 15
          end
          Input.update
          update
          if $scene != self
            break
          end
        end
        Graphics.freeze
        # 釋放圖形
        for i in 0..6
          @sprite.bitmap.dispose
          @sprite.dispose
        end
      end
      def update
      chaochaocommandchaochao
      if Input.trigger?(Input::C)
        case @command_index
          when 0
            command_new_game
          when 1
            command_continue
          when 2
            command_shutdown
          end
        end
      end
      def chaochaocommandchaochao
        if Input.trigger?(Input::UP)
          @command_index -= 1
          if @command_index < 0
            @command_index = 2
          end
          $game_system.se_play($data_system.cursor_se)
        end
        if Input.trigger?(Input::DOWN)
          @command_index += 1
          if @command_index > 2
            @command_index = 0
          end
          $game_system.se_play($data_system.cursor_se)
        end
        case @command_index
        when 0
          if @sprite[1].opacity >= 0
            @sprite[1].opacity -= 30
          end
          if @sprite[2].opacity <= 240
            @sprite[2].opacity += 30
          end
          if @sprite[3].opacity <= 210
            @sprite[3].opacity += 30
          end
          if @sprite[4].opacity >= 0
            @sprite[4].opacity -= 30
          end
          if @sprite[5].opacity <= 210
            @sprite[5].opacity += 30
          end
          if @sprite[6].opacity >= 0
            @sprite[6].opacity -= 30
          end
        when 1
          if @sprite[1].opacity <= 210
            @sprite[1].opacity += 30
          end
          if @sprite[2].opacity >= 0
            @sprite[2].opacity -= 30
          end
          if @sprite[3].opacity >= 0
            @sprite[3].opacity -= 30
          end
          if @sprite[4].opacity <= 240
            @sprite[4].opacity += 30
          end
          if @sprite[5].opacity <= 210
            @sprite[5].opacity += 30
          end
          if @sprite[6].opacity >= 0
            @sprite[6].opacity -= 30
          end
        when 2
          if @sprite[1].opacity <= 210
            @sprite[1].opacity += 30
          end
          if @sprite[2].opacity >= 0
            @sprite[2].opacity -= 30
          end
          if @sprite[3].opacity <= 210
            @sprite[3].opacity += 30
          end
          if @sprite[4].opacity >= 0
            @sprite[4].opacity -= 30
          end
          if @sprite[5].opacity >= 0
            @sprite[5].opacity -= 30
          end
          if @sprite[6].opacity <= 240
            @sprite[6].opacity += 30
          end
        end
      end
    end
    #==============================================================================
    # 本脚本来自www.66RPG.com,使用和转载请保留此信息
    #==============================================================================

    这个脚本大家应该都不陌生,就是把“新游戏”“继续”“离开游戏”三个按钮换成图片的形式,很简单,不必多说,上面的图片文件名根据你实际的文件名改变。
    分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    转播转播0 分享淘帖0 分享分享0 收藏收藏0
    于是饮酒乐甚,扣舷而歌之。歌曰:“桂棹兮兰桨,击空明兮溯流光。残阳阳兮是羊羊,吾乃最爱南宫煌。”

    1012

    主题

    5

    听众

    2万

    积分

    返璞归真

    不器用な星の瞬き

    会员等级: 10

  • TA的每日心情
    擦汗
    前天 19:18
  • 签到天数: 1400 天

    [LV.10]以坛为家III

    精华
    2
    积分
    23741
    历练
    3
    声望
    133
    人气
    2604

    转帖之王 金融巨子 黑色羽翼

    单身中……
    帮我摆脱单身吧
    2
    发表于 2010-4-9 18:09:49 |只看该作者
    你没有用代码模式啊!
    夜空の星に 捧げた願いの
    欠片積めて 爆誕する奇跡
    回复

    使用道具 举报

    168

    主题

    6

    听众

    1万

    积分

    超级版主

    蜀山剑侠银行行长

    超级版主

  • TA的每日心情
    开心
    2024-8-7 22:39
  • 签到天数: 882 天

    [LV.10]以坛为家III

    精华
    3
    积分
    13208
    历练
    7
    声望
    24
    人气
    2432

    金融巨子 润泽万物 坚若磐石

    单身中……
    帮我摆脱单身吧
    3
    发表于 2010-4-9 19:07:05 |只看该作者
    没有,你是说那个列表的代码?
    于是饮酒乐甚,扣舷而歌之。歌曰:“桂棹兮兰桨,击空明兮溯流光。残阳阳兮是羊羊,吾乃最爱南宫煌。”
    回复

    使用道具 举报

    1012

    主题

    5

    听众

    2万

    积分

    返璞归真

    不器用な星の瞬き

    会员等级: 10

  • TA的每日心情
    擦汗
    前天 19:18
  • 签到天数: 1400 天

    [LV.10]以坛为家III

    精华
    2
    积分
    23741
    历练
    3
    声望
    133
    人气
    2604

    转帖之王 金融巨子 黑色羽翼

    单身中……
    帮我摆脱单身吧
    4
    发表于 2010-4-9 19:08:23 |只看该作者
    1. 就像这样
    复制代码
    夜空の星に 捧げた願いの
    欠片積めて 爆誕する奇跡
    回复

    使用道具 举报

    168

    主题

    6

    听众

    1万

    积分

    超级版主

    蜀山剑侠银行行长

    超级版主

  • TA的每日心情
    开心
    2024-8-7 22:39
  • 签到天数: 882 天

    [LV.10]以坛为家III

    精华
    3
    积分
    13208
    历练
    7
    声望
    24
    人气
    2432

    金融巨子 润泽万物 坚若磐石

    单身中……
    帮我摆脱单身吧
    5
    发表于 2010-4-9 19:14:38 |只看该作者
    我知道这个代码,不过没用。
    于是饮酒乐甚,扣舷而歌之。歌曰:“桂棹兮兰桨,击空明兮溯流光。残阳阳兮是羊羊,吾乃最爱南宫煌。”
    回复

    使用道具 举报

    1012

    主题

    5

    听众

    2万

    积分

    返璞归真

    不器用な星の瞬き

    会员等级: 10

  • TA的每日心情
    擦汗
    前天 19:18
  • 签到天数: 1400 天

    [LV.10]以坛为家III

    精华
    2
    积分
    23741
    历练
    3
    声望
    133
    人气
    2604

    转帖之王 金融巨子 黑色羽翼

    单身中……
    帮我摆脱单身吧
    6
    发表于 2010-4-9 19:25:53 |只看该作者
    没用?很好用啊
    夜空の星に 捧げた願いの
    欠片積めて 爆誕する奇跡
    回复

    使用道具 举报

    168

    主题

    6

    听众

    1万

    积分

    超级版主

    蜀山剑侠银行行长

    超级版主

  • TA的每日心情
    开心
    2024-8-7 22:39
  • 签到天数: 882 天

    [LV.10]以坛为家III

    精华
    3
    积分
    13208
    历练
    7
    声望
    24
    人气
    2432

    金融巨子 润泽万物 坚若磐石

    单身中……
    帮我摆脱单身吧
    7
    发表于 2010-4-9 20:16:13 |只看该作者
    我不是说这个功能没用,我是说我没有用这个代码。
    于是饮酒乐甚,扣舷而歌之。歌曰:“桂棹兮兰桨,击空明兮溯流光。残阳阳兮是羊羊,吾乃最爱南宫煌。”
    回复

    使用道具 举报

    1012

    主题

    5

    听众

    2万

    积分

    返璞归真

    不器用な星の瞬き

    会员等级: 10

  • TA的每日心情
    擦汗
    前天 19:18
  • 签到天数: 1400 天

    [LV.10]以坛为家III

    精华
    2
    积分
    23741
    历练
    3
    声望
    133
    人气
    2604

    转帖之王 金融巨子 黑色羽翼

    单身中……
    帮我摆脱单身吧
    8
    发表于 2010-4-10 19:53:49 |只看该作者
    用了好复制
    夜空の星に 捧げた願いの
    欠片積めて 爆誕する奇跡
    回复

    使用道具 举报

    168

    主题

    6

    听众

    1万

    积分

    超级版主

    蜀山剑侠银行行长

    超级版主

  • TA的每日心情
    开心
    2024-8-7 22:39
  • 签到天数: 882 天

    [LV.10]以坛为家III

    精华
    3
    积分
    13208
    历练
    7
    声望
    24
    人气
    2432

    金融巨子 润泽万物 坚若磐石

    单身中……
    帮我摆脱单身吧
    9
    发表于 2010-4-10 19:58:02 |只看该作者
    这个我下次用吧。
    于是饮酒乐甚,扣舷而歌之。歌曰:“桂棹兮兰桨,击空明兮溯流光。残阳阳兮是羊羊,吾乃最爱南宫煌。”
    回复

    使用道具 举报

    11

    主题

    1

    听众

    143

    积分

    略有小成

    会员等级: 2

  • TA的每日心情
    开心
    2010-9-9 21:52
  • 签到天数: 1 天

    [LV.1]初来乍到

    精华
    0
    积分
    143
    历练
    0
    声望
    2
    人气
    13
    单身中……
    帮我摆脱单身吧
    10
    发表于 2010-6-26 20:12:12 |只看该作者
    这个。。。这个脚本没问题吧?怎么用不了?
    龙龙RPG:→猛击此处←
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 加入我们

    手机版|Archiver|仙剑之十里坡 ( 苏ICP备11022766号 )  

    GMT+8, 2024-11-1 07:28 , Processed in 0.449949 second(s), 50 queries .

    Powered by Discuz! X2.5

    © 2001-2012 Comsenz Inc.

    回顶部