MOG MENU z usuniętym zapisem

Spoiler: Kod: ################################################## # Mog Basic Menu Plus V 1.0                      # ################################################## # By Moghunter # korekta SaE ############## module Szkodnik_Sae        Lokacja = "Lokacja" Czas_gry = "Czas Gry" Doswiadczenie = "EXP"      end class Game_Actor < Game_Battler def now_exp return @exp - @exp_list[@level] end def next_exp return @exp_list[@level+1] > 0 ? @exp_list[@level+1] - @exp_list[@level] : 0 end end class Window_Base < Window     def draw_actor_level_menu(actor, x, y)     self.contents.font.color = system_color     self.contents.draw_text(x, y, 32, WLH, Vocab::level_a)     self.contents.font.color = normal_color     self.contents.draw_text(x + 16, y, 24, WLH, actor.level, 2)   end   def draw_actor_class_menu(actor, x, y)     self.contents.font.color = normal_color     self.contents.draw_text(x, y, 85, WLH, actor.class.name)   end     def exp_gauge_color1     return text_color(30)   end   def exp_gauge_color2     return text_color(31)   end def draw_actor_exp_meter(actor, x, y, width = 100)   if actor.next_exp != 0   exp = actor.now_exp   else   exp = 1   end     gw = width * exp / [actor.next_exp, 1].max     gc1 = exp_gauge_color1     gc2 = exp_gauge_color2     self.contents.fill_rect(x, y + WLH - 8, width, 6, gauge_back_color)     self.contents.gradient_fill_rect(x, y + WLH - 8, gw, 6, gc1, gc2)     self.contents.font.color = system_color     self.contents.draw_text(x, y, 30, WLH, Szkodnik_Sae::Doswiadczenie)        self.contents.font.color = normal_color     xr = x + width     self.contents.draw_text(xr - 60, y, 60, WLH,  actor.next_rest_exp_s, 2)    end end class Window_MenuStatus < Window_Selectable   def initialize(x, y)     super(x, y, 384, 416)     refresh     self.active = false     self.index = -1   end   def refresh     self.contents.clear     @item_max = $game_party.members.size     for actor in $game_party.members       draw_actor_face(actor, 2, actor.index * 96 + 2, 92)       x = 104       y = actor.index * 96 + WLH / 2       draw_actor_name(actor, x, y)       draw_actor_class_menu(actor, x + 120, y)       draw_actor_level_menu(actor, x + 200, y)       draw_actor_state(actor, x, y + WLH * 2)       draw_actor_hp(actor, x + 120, y + WLH * 1)       draw_actor_mp(actor, x + 120, y + WLH * 2)       draw_actor_exp_meter(actor, x , y + WLH * 1)     end   end   def update_cursor     if @index < 0                      self.cursor_rect.empty     elsif @index < @item_max          self.cursor_rect.set(0, @index * 96, contents.width, 96)     elsif @index >= 100                self.cursor_rect.set(0, (@index - 100) * 96, contents.width, 96)     else                            self.cursor_rect.set(0, 0, contents.width, @item_max * 96)     end   end end class Game_Map attr_reader   :map_id def mpname $mpname = load_data("Data/MapInfos.rvdata") $mpname[@map_id].name end end class Window_Mapname < Window_Base   def initialize(x, y)     super(x, y, 160, WLH + 64)     refresh   end def refresh     self.contents.clear     self.contents.font.color = system_color     self.contents.draw_text(4, 0, 120, WLH, Szkodnik_Sae::Lokacja)     self.contents.font.color = normal_color     self.contents.draw_text(4, WLH+2, 120, WLH, $game_map.mpname.to_s, 2) end end class Window_Time < Window_Base   def initialize(x, y)     super(x, y, 160, WLH + 64)     refresh   end   def refresh     self.contents.clear     self.contents.font.color = system_color     self.contents.draw_text(4, 0, 120, WLH, Szkodnik_Sae::Czas_gry)     @total_sec = Graphics.frame_count / Graphics.frame_rate     hour = @total_sec / 60 / 60     min = @total_sec / 60 % 60     sec = @total_sec % 60     text = sprintf("%02d:%02d:%02d", hour, min, sec)     self.contents.font.color = normal_color     self.contents.draw_text(4, WLH+2, 120, WLH, text, 2) end   def update     super     if Graphics.frame_count / Graphics.frame_rate != @total_sec       refresh     end   end end class Scene_Menu      def main     start                              perform_transition                Input.update                      loop do       Graphics.update                  Input.update                    update                            break if $scene != self          end     Graphics.update     pre_terminate                  Graphics.freeze                    terminate                      end   def initialize(menu_index = 0)     @menu_index = menu_index   end   def create_menu_background     @menuback_sprite = Sprite.new     @menuback_sprite.bitmap = $game_temp.background_bitmap     @menuback_sprite.color.set(16, 16, 16, 128)     update_menu_background   end   def create_menu_background     @menuback_sprite = Sprite.new     @menuback_sprite.bitmap = $game_temp.background_bitmap     @menuback_sprite.color.set(16, 16, 16, 128)     update_menu_background   end   def dispose_menu_background     @menuback_sprite.dispose   end   def update_menu_background   end   def perform_transition      Graphics.transition(10)   end   def start     create_menu_background     create_command_window     @gold_window = Window_Gold.new(0, 360)     @status_window = Window_MenuStatus.new(160, 0)     @playtime_window = Window_Time .new(0, 270)     @mapname_window = Window_Mapname.new(0, 178)     @status_window.openness = 0     @playtime_window.openness = 0     @mapname_window.openness = 0     @gold_window.openness = 0     @status_window.open     @playtime_window.open     @mapname_window.open     @gold_window.open   end   def pre_terminate     @status_window.close     @playtime_window.close     @mapname_window.close     @gold_window.close     @command_window.close     begin     @status_window.update     @playtime_window.update     @mapname_window.update     @gold_window.update     @command_window.update     Graphics.update     end until @status_window.openness == 0   end   def terminate     dispose_menu_background     @command_window.dispose     @gold_window.dispose     @status_window.dispose     @playtime_window.dispose     @mapname_window.dispose   end   def update     update_menu_background     @command_window.update     @gold_window.update     @status_window.update     @mapname_window.update     @playtime_window.update     if @command_window.active       update_command_selection     elsif @status_window.active       update_actor_selection     end   end   def create_command_window     s1 = Vocab::item     s2 = Vocab::skill     s3 = Vocab::equip     s4 = Vocab::status     s5 = Vocab::game_end     @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5])     @command_window.index = @menu_index     @command_window.openness = 0     @command_window.open     if $game_party.members.size == 0                  @command_window.draw_item(0, false)            @command_window.draw_item(1, false)            @command_window.draw_item(2, false)            @command_window.draw_item(3, false)        end     if $game_system.save_disabled                    @command_window.draw_item(4, false)          end   end   def update_command_selection     if Input.trigger?(Input::B)       Sound.play_cancel       $scene = Scene_Map.new     elsif Input.trigger?(Input::C)       if $game_party.members.size == 0 and @command_window.index < 4         Sound.play_buzzer         return       elsif $game_system.save_disabled and @command_window.index == 4         Sound.play_buzzer         return       end       Sound.play_decision       case @command_window.index       when 0              $scene = Scene_Item.new       when 1,2,3            start_actor_selection       when 4                $scene = Scene_End.new       end     end   end   def start_actor_selection     @command_window.active = false     @status_window.active = true     if $game_party.last_actor_index < @status_window.item_max       @status_window.index = $game_party.last_actor_index     else       @status_window.index = 0     end   end   def end_actor_selection     @command_window.active = true     @status_window.active = false     @status_window.index = -1   end   def update_actor_selection     if Input.trigger?(Input::B)       Sound.play_cancel       end_actor_selection     elsif Input.trigger?(Input::C)       $game_party.last_actor_index = @status_window.index       Sound.play_decision       case @command_window.index       when 1         $scene = Scene_Skill.new(@status_window.index)       when 2            $scene = Scene_Equip.new(@status_window.index)       when 3         $scene = Scene_Status.new(@status_window.index)       end     end   end end $mogscript = {} if $mogscript == nil $mogscript["basic_menu_plus"] = true

i Map Slide

Spoiler: Kod: #============================================================================== # Map Slide #============================================================================== # Author  : OriginalWij # Version : 1.1 #============================================================================== #============================================================================== # NOTE: Tylko najnowsza wersja jest wersją obslugiwaną. # # v1.1 # - naprawiony bug z wielkością mapy # - dodano jakąś opcję przesówania krawędzi #============================================================================== #============================================================================== # # Aby "przewijać" w nazwie mapy wpisujemy: # Nazwę mapy [MET ID_Mapy_Dolnej ID_Mapy_Lewej ID_Mapy_Prawej ID_Mapy_Górnej] np.: # Wyspa [MET 1 2 3 4] # Jeśli ma nie przewijać wpisujemy ID 0 (zero) #============================================================================== #============================================================================== # Konfiguracja #============================================================================== module OW_MAP_SLIDE   # Przełącznik (ID) WYŁĄCZAJĄCY Skrypt   DISABLE_SWITCH = 12   # Szybkość przesówania się mapy (domyślnie 4)   SLIDE_SPEED = 4   # Włączanie krawędzi (tego dotyczy poptawka wersjii v1.1, ale nie znam zastosowania) (domyślnie True)   MAP_EDGE = true end #============================================================================== # Niżej nie tykaj! #============================================================================== #============================================================================== # Game_Temp #============================================================================== class Game_Temp   #--------------------------------------------------------------------------   # Public Instance Variables                                           (New)   #--------------------------------------------------------------------------   attr_accessor :scroll   attr_accessor :no_trigger   attr_accessor :slide_x   attr_accessor :slide_y   #--------------------------------------------------------------------------   # Initialize                                                          (Mod)   #--------------------------------------------------------------------------   alias ow_mapslide_game_temp_initialize initialize unless $@   def initialize     ow_mapslide_game_temp_initialize     @scroll = @no_trigger = false     @slide_x = @slide_y = 0   end end #============================================================================== # Game_Map #============================================================================== class Game_Map   #--------------------------------------------------------------------------   # Map Name                                                            (New)   #--------------------------------------------------------------------------   def map_name     return load_data("Data/MapInfos.rvdata")[@map_id].name   end end #============================================================================== # Game_Character #============================================================================== class Game_Character   #--------------------------------------------------------------------------   # Public Instance Variables                                           (New)   #--------------------------------------------------------------------------   attr_accessor :real_x   attr_accessor :real_y end #============================================================================== # Game_Player #============================================================================== class Game_Player < Game_Character   #--------------------------------------------------------------------------   # Determine if Same Position Event is Triggered                       (Mod)   #--------------------------------------------------------------------------   alias ow_mapslide_game_player_ceth check_event_trigger_here unless $@   def check_event_trigger_here(triggers)     if $game_temp.no_trigger       $game_temp.no_trigger = false       return false     end     ow_mapslide_game_player_ceth(triggers)   end   #--------------------------------------------------------------------------   # Processing of Movement via input from the Directional Buttons       (Mod)   #--------------------------------------------------------------------------   alias ow_mapslide_game_player_move_by_input move_by_input unless $@   def move_by_input     return unless movable?     return if $game_map.interpreter.running?     if self.x == 0 or self.x == ($game_map.width - 1) or self.y == 0 or         self.y == ($game_map.height - 1) and OW_MAP_SLIDE::MAP_EDGE       dir = $game_player.direction       map_id = [0] * 9       $game_map.map_name.scan(/\[MET (\d+) (\d+) (\d+) (\d+)\]/i)       map_id[2] = $1.to_i if self.y == ($game_map.height - 1)       map_id[4] = $2.to_i if self.x == 0       map_id[6] = $3.to_i if self.x == ($game_map.width - 1)       map_id[8] = $4.to_i if self.y == 0       if map_id[dir] == 0         ow_mapslide_game_player_move_by_input         return       end       x = $game_player.x       y = $game_player.y       new_map = load_data(sprintf("Data/Map%03d.rvdata", map_id[dir]))       case dir       when 2; y = 0       when 4; x = (new_map.width - 1)       when 6; x = 0       when 8; y = (new_map.height - 1)       end       $game_player.reserve_transfer(map_id[dir], x, y, dir)     else       $game_temp.no_trigger = false       ow_mapslide_game_player_move_by_input     end   end end #============================================================================== # Sprite_Character #============================================================================== class Sprite_Character < Sprite_Base   #--------------------------------------------------------------------------   # Update                                                              (Mod)   #--------------------------------------------------------------------------   alias ow_mapslide_sprite_character_update update unless $@   def update     ow_mapslide_sprite_character_update     if $game_temp.scroll       self.x = @character.screen_x + $game_temp.slide_x       self.y = @character.screen_y + $game_temp.slide_y       if @character.is_a?(Game_Player)         self.x -= $game_temp.slide_x / 16         self.y -= $game_temp.slide_y / 16       end     end   end end #============================================================================== # Spriteset_Map #============================================================================== class Spriteset_Map   #--------------------------------------------------------------------------   # Public Instance Variables                                           (New)   #--------------------------------------------------------------------------   attr_accessor :tilemap   attr_accessor :picture_sprites end #============================================================================== # Scene_Map #============================================================================== class Scene_Map < Scene_Base   #--------------------------------------------------------------------------   # Player Transfer Processing                                          (Mod)   #--------------------------------------------------------------------------   alias ow_mapslide_scene_map_upd_tr_player update_transfer_player unless $@   def update_transfer_player     if $game_switches[OW_MAP_SLIDE::DISABLE_SWITCH]       ow_mapslide_scene_map_upd_tr_player     else       return unless $game_player.transfer?       w = Graphics.width       h = Graphics.height       speed = OW_MAP_SLIDE::SLIDE_SPEED       $game_player.real_y += 28 if $game_player.direction == 8       @spriteset.update       $game_temp.scroll = true       @hold = Sprite.new       @hold.bitmap = Graphics.snap_to_bitmap       @hold.z = 1       if $game_player.in_vehicle?         $game_map.vehicles[$game_player.vehicle_type].transparent = true       else         $game_player.transparent = true       end       @spriteset.dispose       $game_player.perform_transfer       $game_map.autoplay       $game_map.update       @spriteset = Spriteset_Map.new       case $game_player.direction       when 2         @spriteset.tilemap.oy += h + ($game_map.height * 32 - h) * 2         $game_temp.slide_x = 0         $game_temp.slide_y = h         for i in 0...h / speed           @hold.oy += speed           @spriteset.tilemap.oy += speed           $game_temp.slide_y -= speed           @spriteset.update_characters           Graphics.update         end       when 4         @spriteset.tilemap.ox -= w + ($game_map.width * 32 - w) * 2         $game_temp.slide_x = -w         $game_temp.slide_y = 0         for i in 0...w / speed           @hold.ox -= speed           @spriteset.tilemap.ox -= speed           $game_temp.slide_x += speed           @spriteset.update_characters           Graphics.update         end       when 6         @spriteset.tilemap.ox += w + ($game_map.width * 32 - w) * 2         $game_temp.slide_x = w         $game_temp.slide_y = 0         for i in 0...w / speed           @hold.ox += speed           @spriteset.tilemap.ox += speed           $game_temp.slide_x -= speed           @spriteset.update_characters           Graphics.update         end       when 8         @spriteset.tilemap.oy -= h + ($game_map.height * 32 - h) * 2         $game_temp.slide_x = 0         $game_temp.slide_y = -h         for i in 0...h / speed           @hold.oy -= speed           @spriteset.tilemap.oy -= speed           $game_temp.slide_y += speed           @spriteset.update_characters           Graphics.update         end       end       @hold.bitmap.dispose       @hold.dispose       Input.update       case $game_player.direction       when 2         $game_player.real_y -= 256       when 4         $game_player.real_x += 256       when 6         $game_player.real_x -= 256       when 8         $game_player.real_y += 256       end       $game_temp.no_trigger = true       if $game_player.in_vehicle?         $game_map.vehicles[$game_player.vehicle_type].transparent = false       else         $game_player.transparent = false       end       $game_temp.scroll = false     end   end end