Плохо! Плохо!:  0
Страница 4 из 4 ПерваяПервая ... 234
Показано с 31 по 32 из 32

Тема: Ищу скрипт для внутреннего меню

  1. #31
    Маститый Аватар для HopeBree
    Информация о пользователе
    Регистрация
    27.03.2013
    Сообщений
    1,204
    Записей в дневнике
    6
    Репутация: 38 Добавить или отнять репутацию

    По умолчанию

    PHP код:
    module HB
      module MENU
        ITEM 
    "Предметы"
        
    STAT "Статус"
        
    SAVE "Сохранить"
        
    LOAD "Загрузка"
        
    EXIT = "Выйти"
        
        
    BCKG nil         # nil - убрать фон, :map - карта
      
    end
    end

    class Scene_Menu
      def main
        s1 
    HB::MENU::ITEM
        s2 
    HB::MENU::STAT
        s3 
    HB::MENU::SAVE
        s4 
    HB::MENU::LOAD
        s5 
    HB::MENU::EXIT
        if 
    HB::MENU::BCKG != nil && HB::MENU::BCKG != :map
          
    @bg Plane.new
          @
    bg.bitmap RPG::Cache.picture(HB::MENU::BCKG)
        
    elsif HB::MENU::BCKG == :map
          
    @bg Spriteset_Map.new
        
    end
        
    @command_window Window_Command.new(160, [s1s2s3s4s5])
        @
    command_window.64
        
    @command_window.144
        
    @command_window.index = @menu_index
        
    if $game_party.actors.size == 0
          
    @command_window.disable_item(0)
          @
    command_window.disable_item(1)
          @
    command_window.disable_item(2)
        
    end
        
    if $game_system.save_disabled
          
    @command_window.disable_item(2)
        
    end
        
    @location_window Window_Location.new
        @
    location_window.224
        
    @location_window.272
        
    @steps_window Window_Steps.new
        @
    steps_window.400
        
    @steps_window.272
        
    @status_window Window_M_Status.new
        @
    status_window.224
        
    @status_window.144
        Graphics
    .transition
        loop 
    do
          
    Graphics.update
          Input
    .update
          update
          
    if $scene != self
            
    break
          
    end
        end
        Graphics
    .freeze
        
    @command_window.dispose
        
    @location_window.dispose
        
    @steps_window.dispose
        
    @status_window.dispose
      end
      def update
        
    @command_window.update
        
    @location_window.update
        
    @steps_window.update
        
    @status_window.update
        
    if @command_window.active
          update_command
          
    return
        
    end
      end
      def update_command
        
    if Input.trigger?(Input::B)
          
    $game_system.se_play($data_system.cancel_se)
          
    $scene Scene_Map.new
          return
        
    end
        
    if Input.trigger?(Input::C)
          if 
    $game_party.actors.size == and @command_window.index 4
            $game_system
    .se_play($data_system.buzzer_se)
            return
          
    end
          
    case @command_window.index
          when 0
            $game_system
    .se_play($data_system.decision_se)
            
    $scene Scene_Item.new
          
    when 1
            $game_system
    .se_play($data_system.decision_se)
            
    $scene Scene_Status.new
          
    when 2
            
    if $game_system.save_disabled
              $game_system
    .se_play($data_system.buzzer_se)
              return
            
    end
            $game_system
    .se_play($data_system.decision_se)
            
    $scene Scene_Save.new
          
    when 3
            $game_system
    .se_play($data_system.decision_se)
            
    $scene Scene_LoadMenu.new
          
    when 4
            $game_system
    .se_play($data_system.decision_se)
            
    Audio.bgm_fade(800)
            
    Audio.bgs_fade(800)
            
    Audio.me_fade(800)
            
    $scene nil
          end
          
    return
        
    end
      end
    end

    class Scene_Status
      def main
        
    if HB::MENU::BCKG != nil && HB::MENU::BCKG != :map
          
    @bg Plane.new
          @
    bg.bitmap RPG::Cache.picture(HB::MENU::BCKG)
        
    elsif HB::MENU::BCKG == :map
          
    @bg Spriteset_Map.new 
        
    end
        
    @location_window Window_Location.new
        @
    location_window.144
        
    @location_window.272
        
    @steps_window Window_Steps.new
        @
    steps_window.320
        
    @steps_window.272
        
    @status_window Window_M_Status.new
        @
    status_window.144
        
    @status_window.144
        Graphics
    .transition
        loop 
    do
          
    Graphics.update
          Input
    .update
          update
          
    if $scene != self
            
    break
          
    end
        end
        Graphics
    .freeze
        
    @location_window.dispose
        
    @steps_window.dispose
        
    @status_window.dispose
      end
      def update
        
    @location_window.update
        
    @steps_window.update
        
    @status_window.update
      end
      def update
        
    if Input.trigger?(Input::B)
          
    $game_system.se_play($data_system.cancel_se)
          
    $scene Scene_Menu.new(1)
          return
        
    end
      end
    end

    class Scene_Save Scene_File
      def on_decision
    (filename)
        
    $game_system.se_play($data_system.save_se)
        
    file File.open(filename"wb")
        
    write_save_data(file)
        
    file.close
        
    if $game_temp.save_calling
          $game_temp
    .save_calling false
          $scene 
    Scene_Map.new
          return
        
    end
        $scene 
    Scene_Menu.new(2)
      
    end
      def on_cancel
        $game_system
    .se_play($data_system.cancel_se)
        if 
    $game_temp.save_calling
          $game_temp
    .save_calling false
          $scene 
    Scene_Map.new
          return
        
    end
        $scene 
    Scene_Menu.new(2)
      
    end
    end

    class Scene_LoadMenu Scene_File
      def initialize
        $game_temp 
    Game_Temp.new
        
    $game_temp.last_file_index 0
        latest_time 
    Time.at(0)
        for 
    i in 0..3
          filename 
    make_filename(i)
          if 
    FileTest.exist?(filename)
            
    file File.open(filename"r")
            if 
    file.mtime latest_time
              latest_time 
    file.mtime
              $game_temp
    .last_file_index i
            end
            file
    .close
          end
        end
        super
    ("Which file would you like to load?")
      
    end
      def on_decision
    (filename)
        
    unless FileTest.exist?(filename)
          
    $game_system.se_play($data_system.buzzer_se)
          return
        
    end
        $game_system
    .se_play($data_system.load_se)
        
    file File.open(filename"rb")
        
    read_save_data(file)
        
    file.close
        $game_system
    .bgm_play($game_system.playing_bgm)
        
    $game_system.bgs_play($game_system.playing_bgs)
        
    $game_map.update
        $scene 
    Scene_Map.new
      
    end
      def on_cancel
        $game_system
    .se_play($data_system.cancel_se)
        
    $scene Scene_Menu.new(3)
      
    end
      def read_save_data
    (file)
        
    characters Marshal.load(file)
        
    Graphics.frame_count Marshal.load(file)
        
    $game_system        Marshal.load(file)
        
    $game_switches      Marshal.load(file)
        
    $game_variables     Marshal.load(file)
        
    $game_self_switches Marshal.load(file)
        
    $game_screen        Marshal.load(file)
        
    $game_actors        Marshal.load(file)
        
    $game_party         Marshal.load(file)
        
    $game_troop         Marshal.load(file)
        
    $game_map           Marshal.load(file)
        
    $game_player        Marshal.load(file)
        if 
    $game_system.magic_number != $data_system.magic_number
          $game_map
    .setup($game_map.map_id)
          
    $game_player.center($game_player.x$game_player.y)
        
    end
        $game_party
    .refresh
      end
    end


    class Window_Base Window
      def draw_actor_hp
    (actorxywidth 208)
        
    self.contents.font.color system_color
        self
    .contents.draw_text(xy10032"Здоровье: ")
        
    self.contents.font.color actor.hp == knockout_color :
          
    actor.hp <= actor.maxhp crisis_color normal_color
        self
    .contents.draw_text(100y4832actor.hp.to_s2)
        
    self.contents.font.color normal_color
        self
    .contents.draw_text(148y1232"/"1)
        
    self.contents.draw_text(160y4832actor.maxhp.to_s)
      
    end
    end

    class Window_M_Status Window_Base
      def initialize
        super
    (00352128)
        
    self.contents Bitmap.new(width 32height 32)
        
    refresh
      end
      def refresh
        actor 
    $game_party.actors[0]
        
    draw_actor_graphic(actor2058)
        
    draw_actor_class(actor48y)
        
    draw_actor_name(actor4832)
        
    draw_actor_hp(actorx64)
      
    end
    end

    class Window_Location Window_Base
      def initialize
        super
    (0017664)
        
    self.contents Bitmap.new(width 32height 32)
        
    refresh
      end
      def refresh
        map 
    load_data("Data/MapInfos.rxdata")[$game_map.map_id].name
        self
    .contents.clear
        self
    .contents.font.color normal_color
        self
    .contents.draw_text(0014432"#{map}"1)
      
    end
    end

    class Window_Steps Window_Base
      def initialize
        super
    (0017664)
        
    self.contents Bitmap.new(width 32height 32)
        
    refresh
      end
      def refresh
        self
    .contents.clear
        self
    .contents.font.color system_color
        self
    .contents.draw_text(007232"Шагов: "2)
        
    self.contents.font.color normal_color
        self
    .contents.draw_text(7207232$game_party.steps.to_s)
      
    end
    end 
    замени старый, этим

  2. #32
    Бывалый Аватар для Alexandr_7
    Информация о пользователе
    Регистрация
    09.08.2015
    Адрес
    пос Октяборьский
    Сообщений
    967
    Репутация: 13 Добавить или отнять репутацию

    По умолчанию

    Все класно. Спасибо.

Страница 4 из 4 ПерваяПервая ... 234

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Метки этой темы

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Ищу скрипт для внутреннего меню