Script de Teletransportacion... (Warp)

por maxi Sáb 09 Oct 2010, 2:09 pm

Craedor: Maxinm
Script de Warp:

Introduccion: Lo que hace este Script es Crear una opcion en el Menu, que lo que hace es llevarlos a un Cierto mapa, (En otras palabras de teletransportacion)

V. del Script: 1.0

Compatibilidad: Funciona con Todos los Scripts.

Ubicacion: Sobre el "Main"

Caracteristicas: Facil de Usar, y de editar.

[Tienes que estar registrado y conectado para ver esa imagen]

(No se si la imagen queda bien en ponerla pero, por si acaso)

Código:: #---------------------------POR MAXINM----------------------------------------- module RDCONFIG # Mapa donde te llevara la Teletransportacion: MAP = (1) # Ubicacion del Mapa... PLACEX = (20) PLACEY = (20) # ¿Que nombre le das? (En el Menu) NAME_MENU = "Ir a..." # ¿Como llamas al lugar donde te regresara? WARP_NAME = "Casa" # Nombre para Cancelar la Teletransportacion WARP_CANCEL = "Cancelar" end class Scene_Menu < Scene_Base def initialize(menu_index = 0) @menu_index = menu_index end def start super create_menu_background create_command_window @gold_window = Window_Gold.new(0, 360) @status_window = Window_MenuStatus.new(160, 0) end def terminate super dispose_menu_background @command_window.dispose @gold_window.dispose @status_window.dispose end def update super update_menu_background @command_window.update @gold_window.update @status_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::save s6 = Vocab::game_end s7 = RDCONFIG::NAME_MENU @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6, s7]) @command_window.index = @menu_index 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 # Item $scene = Scene_Item.new when 1,2,3 # Skill, equipment, status start_actor_selection when 4 # Save $scene = Scene_File.new(true, false, false) when 5 # End Game $scene = Scene_End.new when 6 $scene = Scene_Warp.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 class Scene_Warp < Scene_Base def start super create_menu_background create_command_window end def post_start super open_command_window end def pre_terminate super close_command_window end def terminate super dispose_command_window dispose_menu_background end def return_scene $scene = Scene_Menu.new(5) end def update super update_menu_background @command_window.update if Input.trigger?(Input::B) Sound.play_cancel return_scene elsif Input.trigger?(Input::C) case @command_window.index when 0 command_Warp when 1 command_cancel end end end def update_menu_background super @menuback_sprite.tone.set(0, 0, 0, 128) end def create_command_window s1 = RDCONFIG::WARP_NAME s2 = RDCONFIG::WARP_CANCEL @command_window = Window_Command.new(172, [s1, s2]) @command_window.x = (544 - @command_window.width) / 2 @command_window.y = (416 - @command_window.height) / 2 @command_window.openness = 0 end def dispose_command_window @command_window.dispose end def open_command_window @command_window.open begin @command_window.update Graphics.update end until @command_window.openness == 255 end def close_command_window @command_window.close begin @command_window.update Graphics.update end until @command_window.openness == 0 end def command_Warp Sound.play_decision $game_map.setup (RDCONFIG::MAP) $game_player.moveto (RDCONFIG::PLACEX, RDCONFIG::PLACEY) RPG::BGM.fade(1500) close_command_window Graphics.fadeout(60) Graphics.wait(60) $scene = Scene_Map.new Graphics.fadein(60) RPG::BGM.stop $game_map.autoplay end def command_cancel Sound.play_decision return_scene end end