Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Party Deleting System
#1
Party Deleting System
Ekhart
Jul 5, 2007


This is a locked, single-post thread from Creation Asylum. Archived here to prevent its loss.
No support is given. If you are the owner of the thread, please contact administration.


Hi! I want to show you my first script: The party deleting script!

Code:
#--------------------------------------------------------------------------------
#---------- Party Deleting system
#---------- By Trix
#--------------------------------------------------------------------------------
#---------- Call Script:
#---------- $scene = Scene_Delete.new
#--------------------------------------------------------------------------------
#---------- Credits for Trixa i Ferredingu
#--------------------------------------------------------------------------------


class Scene_Delete
  
  

  def main
    @spriteset = Spriteset_Map.new
    @postacie = []
    for i in 1...$game_party.actors.size
    @postacie << $game_party.actors[i].name
    end
    if @postacie == []
      @postacie << "Nie ma już kogo usunąć"
      end
    @command_window = Window_Command.new(192, @postacie)
    @command_window.x = 0
    @command_window.y = 0
    Audio.me_stop
    Audio.bgs_stop
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @spriteset.dispose
  end
  
  
  def update
    @command_window.update
    @spriteset.update
    if $game_party.actors.size > 1
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0  #Actor 2
        command_a1
      when 1  #Actor 3
        command_a2
      when 2  #Actor 4
        command_a3
      end
    end
  end
  if $game_party.actors.size == 1
    if Input.trigger?(Input::C)
      $scene = Scene_Map.new
    end
    end
    end
    
    def command_a1
      @actor = $game_party.actors[1].id
      $game_party.remove_actor(@actor)
      $scene = Scene_Map.new
    end
    
    def command_a2
      @actor = $game_party.actors[2].id
      $game_party.remove_actor(@actor)
      $scene = Scene_Map.new
    end
    
    def command_a3
      @actor = $game_party.actors[3].id
      $game_party.remove_actor(@actor)
      $scene = Scene_Map.new
    end
end

And screen:
[Image: c520a40b56a5fc8e.png]
}


Possibly Related Threads…
Thread Author Replies Views Last Post
  Looting System Thieffer 0 2,267 06-18-2009, 01:00 PM
Last Post: Thieffer
  Difficulity Level System Ekhart 0 2,231 03-14-2008, 01:00 PM
Last Post: Ekhart
  Dragon Quest VII Class Changing System Sephirothtds 0 2,360 11-15-2007, 01:00 PM
Last Post: Sephirothtds
  Map Stats and Info System Dubealex 0 2,395 10-19-2007, 01:00 PM
Last Post: Dubealex
  Spell Tablet System GubiD 0 2,491 08-25-2007, 01:00 PM
Last Post: GubiD
  Orb Based Skill System El Conductor 0 2,265 07-29-2007, 01:00 PM
Last Post: El Conductor
  Class Stat Bonus System Shinami 0 2,116 05-20-2007, 01:00 PM
Last Post: Shinami
  MATERIA SYSTEM with AP illustrationism 0 2,500 05-06-2007, 01:00 PM
Last Post: illustrationism
  MMORPG Leveling System Lettuce 0 2,331 12-23-2006, 01:00 PM
Last Post: Lettuce
  Skill Level System Leon Westbrooke 0 2,121 09-16-2006, 01:00 PM
Last Post: Leon Westbrooke



Users browsing this thread: