Colméia do Zé

BLOG OFICIALMENTE FECHADO

noreply@blogger.com (zecomeia) — Sun, 12 Jun 2011 22:43:00 +0000

É isso aí pessoal, o blog está oficialmente fechandoa as portas. Espero que o conteúdo tenha ajudado bastante gente e que continue ajudando, pois o blog continuará no ar, só não terá mais novidades: nada de posts, novo layout, etc, etc, etc. XD

Abraços do "falecido" ZC. XD

Blog Aranha de Programa

noreply@blogger.com (zecomeia) — Sun, 27 Mar 2011 20:37:00 +0000

Hoje o blog Aranha de Programa está abrindo as portas para os estudantes e entusiastas do mundo da eletrônica e da informática. Acessem:

http://aranhadeprograma.blogspot.com/

Trata-se de um blog de dois estudantes formados em eletrônica e que resolveram compartilhar o conhecimento, divulgar suas capacidades profissionais e se aprimorarem nessas áreas enquanto escrevem.

Os escritores são:

Sidnei Pereira, formado como Técnico em Eletroeletrônica na escola ITB Brasílio Flores de azevedo, e estudante de Análise de Sistemas e Tecnologia da Informação na FATEC Carapicuíba.

Marcus Vinicius, também formado como Técnico em Eletroeletrônica na escola ITB Brasílio Flores de azevedo.

Ajude a divulgá-los:

RTP Extractor

noreply@blogger.com (zecomeia) — Fri, 04 Feb 2011 17:28:00 +0000

RTP Extractor

por zecomeia

Introdução

Extrai para o seu projeto os arquivos do RTP que estão em uso no projeto. Isso evita ter que copiar o RTP inteiro para o seu projeto na hora da criação do disco de jogo, ou que o jogador precise ter o RTP instalado para poder jogar.

Características

Não sobre escreve arquivo de mesmo nome que exista na pasta do projeto.
O processo é rápido e pode ser acompanhado por uma barra de progresso.
Um arquivo(extract_log.txt) listando todos os arquivos copiados e seus respectivos tamanhos é gerado na pasta raiz do projeto.

Histórico

04/02/2011 v1.0.0
- Lançado o script

05/02/2011 v1.0.1
- Leitura do nome da DLL do projeto consertado
- Bug quando há mais de dois comandos "mover evento" na mesma página consertado

Como Usar

cole acima de Main
salve e execute o projeto
espere o processo de extração terminar
agora você já pode retirar o script do projeto

*O ideal é usá-lo antes de criar o disco de jogo, ou seja, quando o projeto estiver pronto para jogar, porque daí, teoricamente, nesse ponto o projeto não precisa mais ser alterado.

Script

#======================================================<br /># RTP Extractor<br />#------------------------------------------------------<br />#version: 1.0.1<br />#by:      zecomeia<br />#date:    05/01/2011<br />#for:     RGSS<br />#credits and thanks:<br />#- vgvgf (get path function from Aleworks Library)<br />#- Farenheight (justname and extension File methods<br />#[modified by me])<br />#- Rafidelis (get RGSS dll name funcion)<br />#- PLM (reported a bug)<br />#------------------------------------------------------<br />#more infos: http://colmeia-do-ze.co.cc<br />#tags: RTP, Extractor, RGSS<br />#------------------------------------------------------<br />#how to use:<br />#- paste above of Main script<br />#- save and play the project<br />#- wait exctraction end<br />#- now you can remove the script from your project<br />#<br />#*in project root folder will be generated an extract<br />#log(extract_log.txt) listing all files copied to the<br />#project<br />#==============http://colmeia-do-ze.co.cc==============<br /><br />class File<br /> <br />  def self.ext(fname)<br />    fname = basename(fname)<br />    parts = fname.sub(/[^\.]*\./,'')<br />  end<br /> <br />  def self.justname(fname)<br />    basename(fname, "." + ext(fname))<br />  end<br /><br />  def self.fcopy(src, dest)<br />    src = File.open(src, "rb")<br />    dest = File.new(dest,"wb")<br />    src.each_byte do |x|<br />      dest.putc(x)<br />    end<br />    dest.close<br />    src.close<br />  end<br /><br />end<br /><br />fini = File.open('Game.ini', 'r')<br />for line in fini.readlines<br />  if line =~ /Library=/<br />    GameDLL = File.justname($')<br />  end<br />end<br />fini.close<br /><br />####vgvgf<br />RGSSGetRTPPath = Win32API.new(GameDLL, 'RGSSGetRTPPath', 'L', 'L')<br />RGSSGetPathWithRTP = Win32API.new(GameDLL, 'RGSSGetPathWithRTP', 'L', 'P')<br />def get_rtp_path(rtp = 0)<br />  RGSSGetPathWithRTP.call(RGSSGetRTPPath.call(rtp))<br />end<br />RGSSRTP_PATH = get_rtp_path(1)<br />####<br /><br />module RTP_EXTRACTOR<br />  Data_actors        = load_data("Data/Actors.rxdata")<br />  Data_classes       = load_data("Data/Classes.rxdata")<br />  Data_skills        = load_data("Data/Skills.rxdata")<br />  Data_items         = load_data("Data/Items.rxdata")<br />  Data_weapons       = load_data("Data/Weapons.rxdata")<br />  Data_armors        = load_data("Data/Armors.rxdata")<br />  Data_enemies       = load_data("Data/Enemies.rxdata")<br />  Data_troops        = load_data("Data/Troops.rxdata")<br />  Data_states        = load_data("Data/States.rxdata")<br />  Data_animations    = load_data("Data/Animations.rxdata")<br />  Data_tilesets      = load_data("Data/Tilesets.rxdata")<br />  Data_common_events = load_data("Data/CommonEvents.rxdata")<br />  Data_system        = load_data("Data/System.rxdata")<br />  Data_mapinfos      = load_data("Data/MapInfos.rxdata")<br /><br />  #Coisa de Preguiçoso XD<br />  ls = []<br />  Dir.foreach(RGSSRTP_PATH + "\\Graphics") { |x| ls.push(x) }<br />  ls.delete('.')<br />  ls.delete('..')<br />  ls.each do |x|<br />    str_eval = "#{x} = RGSSRTP_PATH + \"\\\\Graphics\\\\#{x}\""<br />    eval(str_eval)<br />  end<br />  ls = []<br />  Dir.foreach(RGSSRTP_PATH + "\\Audio") { |x| ls.push(x) }<br />  ls.delete('.')<br />  ls.delete('..')<br />  ls.each do |x|<br />    str_eval = "#{x} = RGSSRTP_PATH + \"\\\\Audio\\\\#{x}\""<br />    eval(str_eval)<br />  end<br />  #Coisa de preguiçoso END<br />end<br /><br />class RTP_Extractor<br /> <br />  include RTP_EXTRACTOR<br /> <br />  attr_reader :files_size<br />  attr_reader :list<br /> <br />  def initialize()<br />    @files_size = 0<br />    @list = []<br />  end<br /> <br />  #list files in a folder<br />  #if ext = true the file extension print together<br />  def list_files(dir,ext=true)<br />    ls = []<br />    Dir.foreach(dir) {|x| ls.push(x) }<br />    ls.delete('.')<br />    ls.delete('..')<br />    if ext<br />      return(ls)<br />    else<br />      ls_noext = []<br />      ls.each { |x| ls_noext.push(File.justname(x)) }<br />      return(ls_noext)<br />    end<br />  end<br /> <br />  def map_events(map, file_list, command, move_command=[], parameter_204_0=false)<br />    code = command[0]<br />    parameter = command[1]<br />    misc_name = command[2]<br />    str_eval = "command.parameters\[#{parameter}\]#{misc_name}"<br />    unless move_command.empty?<br />      move_code = move_command[0]<br />      move_parameter = move_command[1]<br />      move_misc_name = move_command[2]<br />      move_str_eval = "mv_command.parameters\[#{move_parameter}\]#{move_misc_name}"<br />    end<br />    for event in map.events<br />      for page in event[1].pages<br />        if page.move_type == 3<br />          for pre_mv_command in page.move_route.list<br />            if pre_mv_command.code == move_code and !move_command.empty?<br />              fname = eval("pre_"+move_str_eval)<br />              unless file_list.include?(fname)<br />                file_list.push(fname)<br />              end<br />            end<br />          end<br />        end<br />        for command in page.list<br />          if command.code == 204<br />            if command.parameters[0] == parameter_204_0<br />              fname = eval(str_eval)<br />              unless file_list.include?(fname)<br />                file_list.push(fname)<br />              end<br />            end<br />          elsif command.code == 209 and !move_command.empty?<br />            for mv_command in command.parameters[1].list<br />              if mv_command.code == move_code<br />                fname = eval(move_str_eval)<br />                unless file_list.include?(fname)<br />                  file_list.push(fname)<br />                end<br />              end<br />            end<br />          elsif command.code == code<br />            fname = eval(str_eval)<br />            unless file_list.include?(fname)<br />              file_list.push(fname)<br />            end<br />          end<br />        end<br />      end<br />    end<br />  end<br /> <br />  def commons_events(file_list, command, move_command=[], parameter_204_0=false)<br />    code = command[0]<br />    parameter = command[1]<br />    misc_name = command[2]<br />    str_eval = "command.parameters\[#{parameter}\]#{misc_name}"<br />    unless move_command.empty?<br />      move_code = move_command[0]<br />      move_parameter = move_command[1]<br />      move_misc_name = move_command[2]<br />      move_str_eval = "mv_command.parameters\[#{move_parameter}\]#{move_misc_name}"<br />    end<br />    for command in Data_common_events[1].list     <br />      if command.code == 204<br />        if command.parameters[0] == parameter_204_0<br />          fname = eval(str_eval)<br />          unless file_list.include?(fname)<br />            file_list.push(fname)<br />          end<br />        end<br />      elsif command.code == 209 and !move_command.empty?<br />        for mv_command in command.parameters[1].list<br />          if mv_command.code == move_code<br />            fname = eval(move_str_eval)<br />            unless file_list.include?(fname)<br />              file_list.push(fname)<br />            end<br />          end<br />        end<br />      elsif command.code == code<br />        fname = eval(str_eval)<br />        unless file_list.include?(fname)<br />          file_list.push(fname)<br />        end<br />      end<br />    end<br />  end<br /> <br />  def troops_events(file_list, command, move_command=[], parameter_204_0=false)<br />    code = command[0]<br />    parameter = command[1]<br />    misc_name = command[2]<br />    str_eval = "command.parameters\[#{parameter}\]#{misc_name}"<br />    unless move_command.empty?<br />      move_code = move_command[0]<br />      move_parameter = move_command[1]<br />      move_misc_name = move_command[2]<br />      move_str_eval = "mv_command.parameters\[#{move_parameter}\]#{move_misc_name}"<br />    end<br />    for troop in Data_troops<br />      next if troop.nil?<br />      for page in troop.pages<br />        for command in page.list<br />          if command.code == 204<br />            if command.parameters[0] == parameter_204_0<br />              fname = eval(str_eval)<br />              unless file_list.include?(fname)<br />                file_list.push(fname)<br />              end<br />            end<br />          elsif command.code == 209 and !move_command.empty?<br />            for mv_command in command.parameters[1].list<br />              if mv_command.code == move_code<br />                fname = eval(move_str_eval)<br />                unless file_list.include?(fname)<br />                  file_list.push(fname)<br />                end<br />              end<br />            end<br />          elsif command.code == code<br />            fname = eval(str_eval)<br />            unless file_list.include?(fname)<br />              file_list.push(fname)<br />            end<br />          end<br />        end<br />      end<br />    end<br />  end<br /> <br />  def push_in(file_list, data, misc_name)<br />    for d in data<br />      next if d.nil?<br />      fname = eval("d#{misc_name}")<br />      unless file_list.include?(fname)<br />        file_list.push(fname)<br />      end<br />    end<br />  end<br /> <br />  #add to general file list<br />  def add2list(file_list, folder_in_path)<br />    ls = list_files(folder_in_path)<br />    ls_noext = list_files(folder_in_path, false)<br />    for name in file_list<br />      if ls_noext.include?(name)<br />        file_name = ls[ls_noext.index(name)]<br />        file = folder_in_path + "\\#{file_name}"<br />        @list.push(file)<br />      end<br />    end<br />  end<br />   <br />  #prepare the list os files to extract<br />  def extract_list()<br />     #######<br />    # AUDIO #<br />     #######<br />     <br />    #############################################<br />    #BGMs<br />   <br />    bgms = []   <br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      bgms.push(map.bgm.name)<br />      map_events(map, bgms, [132, 0, '.name'])<br />      map_events(map, bgms, [241, 0, '.name'])<br />    end<br />    commons_events(bgms, [132, 0, '.name'])<br />    commons_events(bgms, [241, 0, '.name'])<br />    troops_events(bgms, [132, 0, '.name'])<br />    troops_events(bgms, [241, 0, '.name'])<br />    bgms.push(Data_system.title_bgm.name)<br />    bgms.push(Data_system.battle_bgm.name)<br />    add2list(bgms, BGM)<br />   <br />    #############################################<br />    #BGSs<br />   <br />    bgss = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      bgss.push(map.bgs.name)<br />      map_events(map, bgss, [245, 0, '.name'])<br />    end<br />    commons_events(bgss, [245, 0, '.name'])<br />    troops_events(bgss, [245, 0, '.name'])   <br />    add2list(bgss, BGS)<br />   <br />    #############################################<br />    #MEs<br />   <br />    mes = []   <br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      map_events(map, mes, [133, 0, '.name'])<br />      map_events(map, mes, [249, 0, '.name'])<br />    end<br />    commons_events(mes, [133, 0, '.name'])<br />    commons_events(mes, [249, 0, '.name'])<br />    troops_events(mes, [133, 0, '.name'])<br />    troops_events(mes, [249, 0, '.name'])<br />    mes.push(Data_system.battle_end_me.name)<br />    mes.push(Data_system.gameover_me.name)<br />    add2list(mes, ME)<br />   <br />    #############################################<br />    #SEs<br />   <br />    ses = []<br />    push_in(ses, Data_items, ".menu_se.name")<br />    push_in(ses, Data_skills, ".menu_se.name")<br />    animations = Data_animations<br />    for i in 1...animations.size     <br />      for j in 0...animations[i].timings.size<br />        unless ses.include?(animations[i].timings[j].se.name)<br />          ses.push(animations[i].timings[j].se.name)<br />        end<br />      end<br />    end   <br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      map_events(map, ses, [250, 0, '.name'], [44, 0, '.name'])<br />    end<br />    commons_events(ses, [250, 0, '.name'], [44, 0, '.name'])<br />    troops_events(ses, [250, 0, '.name'], [44, 0, '.name'])<br />    ses.push(Data_system.cursor_se.name)<br />    ses.push(Data_system.decision_se.name)<br />    ses.push(Data_system.cancel_se.name)<br />    ses.push(Data_system.buzzer_se.name)<br />    ses.push(Data_system.equip_se.name)<br />    ses.push(Data_system.shop_se.name)<br />    ses.push(Data_system.save_se.name)<br />    ses.push(Data_system.load_se.name)<br />    ses.push(Data_system.battle_start_se.name)<br />    ses.push(Data_system.escape_se.name)<br />    ses.push(Data_system.actor_collapse_se.name)<br />    ses.push(Data_system.enemy_collapse_se.name)<br />    add2list(ses, SE)<br /><br />     ##########<br />    # GRAPHICS #<br />     ##########<br />   <br />    #############################################<br />    #Animations<br />   <br />    animations_names = []<br />    push_in(animations_names, Data_animations, ".animation_name")<br />    add2list(animations_names, Animations)<br />   <br />    #############################################<br />    #Autotiles<br />   <br />    autotiles_names = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      tileset = Data_tilesets[map.tileset_id]<br />      push_in(autotiles_names, tileset.autotile_names , "")<br />    end<br />    add2list(autotiles_names, Autotiles)<br />   <br />    #############################################<br />    #Battlebacks<br />   <br />    battlebacks_names = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      tileset = Data_tilesets[map.tileset_id]<br />      unless battlebacks_names.include?(tileset.battleback_name)<br />        battlebacks_names.push(tileset.battleback_name)<br />      end<br />      map_events(map, battlebacks_names, [204, 1, ''], [], 2)<br />    end<br />    commons_events(battlebacks_names, [204, 1, ''], [], 2)<br />    troops_events(battlebacks_names, [204, 1, ''], [], 2)<br />    add2list(battlebacks_names, Battlebacks)<br />   <br />    #############################################<br />    #Battlers<br />   <br />    battlers = []   <br />    push_in(battlers, Data_actors, ".battler_name")<br />    push_in(battlers, Data_enemies, ".battler_name")<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      map_events(map, battlers, [322, 3, ''])<br />    end<br />    commons_events(battlers, [322, 3, ''])<br />    troops_events(battlers, [322, 3, ''])<br />    add2list(battlers, Battlers)<br />   <br />    #############################################<br />    #Characters<br />   <br />    characters = []<br />    push_in(characters, Data_actors, ".character_name")<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      for event in map.events<br />        for page in event[1].pages<br />          unless characters.include?(page.graphic.character_name)<br />            characters.push(page.graphic.character_name)<br />          end<br />        end<br />      end<br />      map_events(map, characters, [322, 1, ''], [41, 0, ''])<br />    end<br />    commons_events(characters, [322, 1, ''], [41, 0, ''])<br />    troops_events(characters, [322, 1, ''], [41, 0, ''])<br />    add2list(characters, Characters)<br /><br />    #############################################<br />    #Fogs<br />   <br />    fogs_names = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      tileset = Data_tilesets[map.tileset_id]<br />      unless fogs_names.include?(tileset.fog_name)<br />        fogs_names.push(tileset.fog_name)<br />      end<br />      map_events(map, fogs_names, [204, 1, ''], [], 1)<br />    end<br />    commons_events(fogs_names, [204, 1, ''], [], 1)<br />    troops_events(fogs_names, [204, 1, ''], [], 1)<br />    add2list(fogs_names, Fogs)<br />   <br />    #############################################<br />    #Gameovers<br />   <br />    gameover = [Data_system.gameover_name]<br />    add2list(gameover, Gameovers)<br />   <br />    #############################################<br />    #Icons<br />   <br />    icons = []<br />    push_in(icons, Data_skills, ".icon_name")<br />    push_in(icons, Data_items, ".icon_name")<br />    push_in(icons, Data_weapons, ".icon_name")<br />    push_in(icons, Data_armors, ".icon_name")<br />    add2list(icons, Icons)<br />   <br />    #############################################<br />    #Panoramas<br />   <br />    panoramas_names = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      tileset = Data_tilesets[map.tileset_id]<br />      unless panoramas_names.include?(tileset.panorama_name)<br />        panoramas_names.push(tileset.panorama_name)<br />      end<br />      map_events(map, panoramas_names, [204, 1, ''], [], 0)<br />    end<br />    commons_events(panoramas_names, [204, 1, ''], [], 0)<br />    troops_events(panoramas_names, [204, 1, ''], [], 0)<br />    add2list(panoramas_names, Panoramas)<br />   <br />    #############################################<br />    #Tilesets<br />   <br />    tilesets_names = []<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      tileset = Data_tilesets[map.tileset_id]<br />      unless tilesets_names.include?(tileset.tileset_name)<br />        tilesets_names.push(tileset.tileset_name)<br />      end<br />    end<br />    add2list(tilesets_names, Tilesets)<br />   <br />    #############################################<br />    #Titles<br />   <br />    title = [Data_system.title_name]<br />    add2list(title, Titles)<br />   <br />    #############################################<br />    #Transitions<br />   <br />    transitions = []<br />    transitions.push(Data_system.battle_transition)<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      map_events(map, transitions, [222, 0, ''])<br />    end<br />    commons_events(transitions, [222, 0, ''])<br />    troops_events(transitions, [222, 0, ''])<br />    add2list(transitions, Transitions)<br />   <br />    #############################################<br />    #Windowskins<br />   <br />    windowskins = []<br />    windowskins.push(Data_system.windowskin_name)<br />    for i in 1..Data_mapinfos.size<br />      map = load_data(sprintf("Data/Map%03d.rxdata", i))<br />      map_events(map, windowskins, [131, 0, ''])<br />    end<br />    commons_events(windowskins, [131, 0, ''])<br />    troops_events(windowskins, [131, 0, ''])<br />    add2list(windowskins, Windowskins)<br />   <br />    #delete match file between RTP and project<br />    #calculate the list data size<br />    for i in 0...@list.size<br />      dest = @list[i].dup<br />      dest.sub!("#{RGSSRTP_PATH}",'')<br />      if FileTest.exist?( ".#{dest}" )<br />        @list[i] = nil<br />      else       <br />        @files_size += FileTest.size(@list[i])<br />      end<br />    end<br />    #delete nil, empty and repeated from list<br />    @list.delete('')<br />    @list.compact!<br />    @list.uniq!<br />   <br />    return @list<br />  end<br /> <br />end<br /><br />class Window_Progress < Window_Base<br /> <br />  def initialize(total_files_size)<br />    super(320-125, 240-60, 250, 110)<br />    self.contents = Bitmap.new(width - 32, height - 32)<br />        self.contents.font.name = 'Arial'<br />    self.contents.font.size = 20<br />    self.opacity = 0<br />    @total_files_size = total_files_size<br />    refresh()<br />  end<br /> <br />  def refresh(progress_string='', progress_files_size=0)<br />    return if @total_files_size == 0<br />    self.contents.clear<br />    self.contents.draw_text(4, 15, 220, 24, progress_string)<br />    self.contents.fill_rect(5,0,202,10,Color.new(200,200,200,200))<br />    self.contents.fill_rect(6,1,progress_files_size*200/@total_files_size,8,Color.new(0,0,200,200))<br />  end<br /><br />end<br /><br />rtp_extract = RTP_Extractor.new<br />print 'start'<br />flist = rtp_extract.extract_list()<br />total_files_size = rtp_extract.files_size<br />progress_files_size = 0<br />$game_system = load_data("Data/System.rxdata")<br />window_progress = Window_Progress.new(total_files_size)<br />$game_system = nil<br />n_files = 0<br />flog = File.new('extract_log.txt', 'a')<br />flog.puts('start...')<br />for src in flist<br />  dest = src.dup<br />  progress_string = 'copying ' + File.basename(dest)<br />  file_size = FileTest.size(dest)<br />  dest.sub!("#{RGSSRTP_PATH}",'')<br />  next if FileTest.exist?( ".#{dest}" )<br />  progress_files_size += file_size<br />  n_files += 1 <br />  window_progress.refresh(progress_string, progress_files_size)<br />  Graphics.update()<br />  File.fcopy(src, ".#{dest}" )<br />  str_log = ".#{dest} #{progress_files_size/1000} KB"<br />  flog.puts(str_log)<br />end<br />str_log = n_files.to_s+" files\n"+(progress_files_size/1000000).to_s+' MB('+(progress_files_size/1000).to_s+" KB)"<br />flog.puts(str_log)<br />flog.close<br />window_progress.dispose<br />print str_log<br />exit(0)<br />

Créditos e Agradecimentos

Feito por zecomeia
vgvgf pela função para obter o path do RTP(retirado de seu script Aleworks Library)
Farenheight pelos métodos #justname e #extension(editei) da classe File
aos criadores do RMTool(programa que faz algo do tipo no RM2k) pela ideia
Rafidelis pelo código melhorado para obter o nome da dll do jogo
PLM por repotar bugs.

Usando o BMP writer num processor paralelo

noreply@blogger.com (zecomeia) — Tue, 11 Jan 2011 15:27:00 +0000

BMP writer é um script que criei com a função de escrever imagens do tipo BMP true color de 24 bits a partir do objeto Bitmap do RGSS. Mais detalhes visite:

BMP writer

O script não utliza bibliotecas externas. Foi escrito totalmente em Ruby baseando-se no objeto Bitmap usado em RGSS/2. Mesmo sendo feito para ter um bom desempenho com relação ao tempo de escrita de arquivo, para empregá-lo em jogos o tempo de escrita pode acabar sendo longo. Por exemplo, em uma máquina com Core 2 Duo o script levou 2 segundos para gravar um bitmap de 640x480, o que parece rápidos, mas pode ser um incmodo no meio de um jogo.

Então resolvi usar o metodo de escrita em um processo paralelo para não ocorrer aquela pausa no jogo enquanto a gravação do arquivo está em andamento. O problema é que leva mais tempo para o arquivo ser salvo(seguindo mesmo exemplo anterior, levou 1 minuto e meio para a gravação), isso significa que não é possível visualizar/utilizar o arquivo gerao enquanto não terminar essa gravação, e também caso o jogo seja fechado antes do término o arquivo fica corrompido.

Para criar nosso processo paralelo usaremos uma Thread. Basicamente uma thread é um bloco de código que é executado em paralelo com o programa principal. A técnica não é muito complicada nem ocupa muito espaço. Primeiro vamos carregar um Bitmap para usar na gravação:

data_system        = load_data("Data/System.rxdata")
aBitmap_obj = RPG::Cache.title(data_system.title_name)

As linhas acima irão carregar a imagem de título na variável aBitmap_obj.

Agora vamos à Thread:

thread_bmp = Thread.new(aBitmap_obj) do
begin
file = File.new('image.bmp','wb')
file.bmp_write(aBitmap_obj)
file.close
rescue
print 'Erro ao gravar um bitmap'
end
end

a linha:

thread_bmp = Thread.new(aBitmap_obj) do

Cria nossa Thread. Observe que já passamos como argumentoda Thread o Bitmap que criamos antes. O "do" define o nosso bloco de código que termina no último "end".

O "begin" é um outro bloco que criei dentro da threadsó para poder usar o tratamentos de exceções(erros) da clausula "rescue". Isso porque quando ocorre um erro dentro da Thread o Game.exe fecha sem nem um aviso. Então se acontecer algum erro na Thread o que está entre o recue e o end será executado. No exemplo só cooquei uma mensagem, o que não é muito correto, porque se aconteceu algum erro a thread para mas o programa continua sem tratar do problema.

Entre o begin e o rescue deve entrar aquelas três linhas que já usavamos para gravar o arquivo antes.

file = File.new('image.bmp','wb')
file.bmp_write(aBitmap_obj)
file.close

Abre o arquivo para leitura, escreve o BMP no arquivo e fecha o arquivo quando terminar a escrita.

Basicamente é isso. Teste a técnica e qualquer dúvida fique a vontade.

Rubular - Editor de expresões regulares para Ruby

noreply@blogger.com (zecomeia) — Fri, 07 Jan 2011 11:11:00 +0000

O Rubular é um editor de expressões regulares para ruby. Simples e prático, com ele fica muito mais fácil e rápido na hora de estudar e trabalhar as RegExp.
O programa funciona na própria página do site, então não precisa baixar nada. Basta escrever a RegExp no campo reservado, adicionar alguma opção à ela caso necessite e então escrever alguma coisa no campo chamado "test string". Esse campo último campo servirá para testar sua RegExp, o programa irá procurar ocorrências do padrão e se encontrar irá destacar as partes do texto que batem.

http://rubular.com/

Forjada Pelo Dragão - Atualização

noreply@blogger.com (zecomeia) — Thu, 06 Jan 2011 11:51:00 +0000

Depois de um tempo trabalhando no projeto, estamos trazendo um pouco do nosso trabalho para atualizar que nos acompanha. O Forjada deu uma turbinada com a equipe toda trabalhando com mais empolgação. Esperamos que gostem das atualizações e que se preparem porque Fevereiro já vem.

Forjada Pelo Dragão

Selo Kreativ blogger

noreply@blogger.com (zecomeia) — Sun, 02 Jan 2011 22:58:00 +0000

Isso já é notícia antiga mas não divulgada, então antes tarde do que nunca. Fui indicado ao Selo Kreativ blogger pelo querido amigo Crazy Nero do blog Crazy Nero Studio.
Existem algumas regrinhas para os ganhadores do selo, e elas são:

*Copiar o logo do premio em seu blog.

*Por o link da pessoa que indicou o premio.

*Dizer 7 coisas interessantes sobre ti.

*Dar a outros 7 bloggers criativos, por o link de seus blogs.

*Avisar ao indicados sobre o premio no seus blogs.

Então...

Sete coisas interessantes sobre mim:

1- Minha área é eletrônica;

2- Pretendo iniciar em um curso de jogos digiais na faculdade;

3- Eu não gosto do personagem Zé Colméia;

4- Eu não gosto de mel;

5- Adoro judô;

6- Pretendo montar um SNES portátil ainda esse ano;

7- "Nunca julgue um livro pela capa"

Indico:

Blog sensacional de um policial nerd e "photoshopeiro" do BOPE:
Mataleone

Humor criativo e non-sense. Adoro perder meu tempo lendo as crônicas desses excêntricos escritores:
Contos de Bar

Skate, bike, música e tudo mais que curto sempre encontrei com esse cara:
Magrelus

Nerds ou não, esses "pecadores" expoem coisas interessantes e as vezes engraçadas em seu blog:
The Seven

Blog de uma grande professora e mestra em história que sabe cativar seus alunos e não se limita a sala de aula:
Documentos Históricos na Sala de Aula

Blog do amigão akime que vem se empenhando muito com os scripts e fazendo a alegria dos makers:
Atelier Cross

Apesar de não curtir muito o gênero do blog adimito que tem tudo pra dar certo, simples, bonito, bem cuidado e amplo em suas "futícias":
This is #Fail

No começo achei que nã conseguiria completar a lista de 7 blogs, mas agora vejo que falto espaço pra minha lista(vagabundo que só vive em blogs XD).

Forjada Pelo Dragão

noreply@blogger.com (zecomeia) — Sun, 02 Jan 2011 19:53:00 +0000

Ficha Técnica

Nome do Projeto: Forjada Pelo Dragão
Engine: RPG Maker XP
Criador: Equipe MasterBee Games
Versão: 0.1
Data de Ínicio: Início de 2009
Data de Término Demo: Previsão para Fevereiro de 2011
Data de Término Full Version: Sem previsão

Ultimas Atualizações

05/01/2011

Projeto do mês Dungeons Maker.
Reforma no design do tópico.
Reforma nos textos do tópico.
Novas screens.

Outras Matérias
Matéria na RPG Maker Wiki
Tópico na Reino RPG
Tópico na Mundo RPG Maker
Tópico na Caverna do Dragão
Tópico na Dungeons Makers
Livro Maker: Cap. 02 - Forjada pelo Dragão
Introdução

Um jovem bastante incomum, viveu excluído pelos habitantes de sua aldeia. Contudo, ao descobrir uma espada, sua vida mudaria para sempre.
Tales estava destinado a se tornar um Coletor de Almas.
Novos amigos surgirão em sua vida, uma incrível jornada surtirá em grandes rivais.
Desvende os mistérios da espada forjada pelo dragão e escute seu nome ser cantado atrávez dos tempos no mundo de Mirounir.

A equipe sofreu várias mudanças, muitas desfraguimentações, mas alguns de nós ainda
estamos únidos para terminar o projeto:
Jeff MasterBee - Game Level Design;
Vifibi - Roteirista;
Sakami - Ilustrador;
Requiem - Ilustrador;
Zé Coméia - Scripter;
Nader - Pixel Art;
Luko - Pixel Art;
Alangato - Sonoplasta.

Em toda Era, existe um evento que a define para sempre nos anais da história, marcando-a de tal forma que a Era seguinte se molda em sua experiência passada até que atinja seu próprio evento. Tal é o caminho da humanidade, tal é o caminho da vida.

Há muitas eras passadas, uma raça anciã de Dragões reinava suprema sobre todas as outras espécies. Em seus primórdios, os reinados eram marcados por justiça, bondade, ternura. Mas como tudo que é mortal, aquilo havia de acabar.

Os Reis-Dragões tornaram-se cruéis e mesquinhos, escravizando a raça humana, outrora seus valorosos aliados. Durante incontáveis éons, todas as raças não passavam de servos, sem direito à fala, ou à própria vida. Mas como tudo que é mortal, aquilo também havia de acabar.

Uma rebelião, tão cheia com o inflamado ódio e desejo por liberdade humano que seu poder abalou os próprios alicerces do mundo. Um entre todos, um capitão escravo chamado Luthel Kir, liderou os exércitos improvisados contra seus antigos opressores, atingindo vitória com um esplendor jamais visto novamente após seu tempo.

Os Dragões Mestres, deixados sem escolha, renunciaram seu trono esculpido em ouro, um símbolo até hoje abolido pelos humanos. Porém, antes de partir, membros mais luminosos da raça Draconiana forjaram um pacto com o novo rei, Luthel. Forjá-lo-iam uma arma capaz dos poderes dracônicos, em troca de um lugar para viverem em paz no Novo Reino.

A espada, capaz de ganhar força com cada inimigo derrotado, fora denominada “Kirin Loren” por Luthel, que a brandiu em batalha até sua morte. O nome significava na língua recém-criada para o novo reino “Protetor do Povo”.

Éons se passaram, e a espada, outrora abençoada e regida pela família real, fora perdida ao tempo e ao esquecimento. Os dragões luminosos tomaram formas humanas, e passaram a viver entre humanos, sem nunca revelar sua verdadeira identidade — muitos recém-nascidos nem sabiam que eram dragões. A paz, que foi instituída pelo sangue e pela espada, perdurou durante muito tempo.

No entanto, tudo que é mortal, há de acabar. Os reis humanos seguiram os antigos mestres Dragões, tornando-se tiranos em sua hipócrita canção de liberdade. Matavam quando queriam, mudavam as leis como desejavam, e aquele que ousasse levantar a voz era imediatamente punido. O mesmo sangue que trouxe à raça sabedoria e liberdade, trouxe-lhe o fim de tudo pelo que haviam lutado.

Mas longe do punho tirânico de reis tolos e hedonistas, outras comunidades floresciam com suas próprias instituições, suas próprias leis e liberdades. Uma raça em particular, os Tílios, moravam em harmonia com a terra, cultivando e plantando com toda a felicidade que um poderia ter de uma vida bucólica.

Mas um garoto, no entanto, era diferente. Um garoto sofria. Um garoto que não podia levantar a voz, não podia argumentar por liberdade, ou mesmo chorar sem punição. Seu nome é Tales. Esse garoto, não é um Tílio qualquer.

Spoiler:

Montanhas Onagard - Lar dos extintos dragões, raramente alguém sobe as
montanhas, já que em tempos atuais sem os dragões o local virou morada
de monstros terríveis.

Pântano Runnes - Neste local a terra é podre e cheira a morte, habitada
por criaturas nojentas e extremamente venenosas, este é um local que
muitos evitam, e os poucos que o encara geralmente não conseguem sair.

Vila dos Tilios - Seu paradeiro para todos os humanos é desconhecido,
quando os tilios foram expulsos de Kirin Zhun, arrumaram um lar nas
florestas, este local é muito bem camuflado, e sempre passado por
despercebido a qualquer explorador.

Floresta Agnil - Lar dos animais e um local onde muitos se perdem com
facilidade, A Floresta Agnil sempre foi a maior fonte de madeira para
Mirounir, sendo explorada pela vila de Agnil.

Agnil - Em Agnil vivem os melhores construtores de pontes e grandes
construções em madeira, também é o local onde mais se encontra caçadores.
Agnil é uma vila que gosta de manter tradição a seus costumes, e raramente
fazem acordos com Kirin Zhun.

Ponte Agnil - Local protegido pelos grandes protetores de Agnil, eles possuem
permição para não deixar ninguém passar pela ponte, sem autorização dos
superiores de Agnil.

Ollding - Morada dos tritões, seres aquáticos que possuem grandes habilidades
na arte da transformação e magia, sendo o reino mais belo e predominado pela
magia.
O rei deste local é o Tritão Enzo, fundador do palácio, e criador de centenas
de magias.

Templo Taliod - Taliod foi um dos grandes reis de Mirounir, era o grande
senhor das feras, quando morreu construiram um templo a qual seu corpo foi
guardado e permanece até os tempos atuais.

Kirin Zhun - O reino mais poderoso de Mirounir, é comandado pelo rei Kriziun,
lar dos humanos, e local de grande poder ofensivo, onde existe centenas de
tropas prontas para proteger Kriziundor e seu rei, neste lugar a presença de
feras foi proibida, é um local de grandes torneios que são realizados de
ano em ano, única oportunidade de feras e outras criaturas do mundo de conhecer
a grande cidade.

Cavera Onagard - Uma caverna que da acesso direto ao centro das montanhas, não
se sabê muito deste local, mas se sabê que habita várias criaturas perigosas.

Torre Agna - Esta torre esta no meio de um deserto, é a maior defesa de Agna,
sendo que dá visão de todas terras de mirounir, sendo perfeita para ver grandes
batalhões e futuros problemas a Agna.

Agna - Agna é a líder deste local, irmã gemea de Agnil, ela conseguiu
todo o poder da grande cidade quando traiu sua familia e expulsou seu irmão do
titulo de rei.
Agna é um local de grande poder e que sempre apoia os feitos de Kirin Zhun,
em Agna, vivem os sábios, humanos que foram capazes de dominar a magia e
aprenderam a arte da vida eterna.

Ruggvar - Lar dos Anões, existe um grande palácio e grandes contruções neste
local, mas a maior parte da habitação deste local, esta no subterraneo. Todas as
grandes contruções em pedra, ferro ou barro, são feitas pelos Anões de Ruggvar.
O rei deste local é desconhecido por todos, embora seja de conhecimento de todos
que Ruggvar possui um grande lider.

Ilha Perdida - No meio mar de Mirounir, existe uma ilha, a qual poucos chegaram a vê-la,
dizem que nas proximidades deste local, mora um monstro que impede que qualquer chegue
perto o bastante da ilha. Os bardos cantam a existência de grandes tesouros, por isto muitos
naviões partem até este destino, uma pena nunca ninguém conseguir a encontrar.

Spoiler:

No mundo de Mirounir, existem diversas raças de seres que trazem a estas terras 
um grande ciclo de vida, sendo cada espécie importante para um equilíbrio natural, dentre tantos 
seres, alguns são de extrema importância no decorrer desta aventura, dentre as clássicas raças estão 
presentes os:

Humanos – Possuem corpos frágeis, e necessitam de auxilio de armas para combater inimigos; 
Os humanos vivem em grandes colônias, a quais são chamadas de Comunidades, estas comunidades de 
humanos concentram-se em 3 grandes cidades Agna, Agnil e grande fortaleza de Kirin Zhun.
 Os humanos possuem grande habilidade em manuseio de ferramentas, e são responsáveis pelas grandes 
construções no mundo de Mirounir.
 O grande senhor dos humanos esta sempre atrás da grande fortaleza do reino Kirin Zhun, seu nome é 
Krizium herdeiro do trono de Lhutel fundador da grande Fortaleza.

Anões – Os anões são pequenos e não muito ágeis, porém são seres de incrível força em seus 
braços; Os anos são mineradores desde pequenos, quase todos anões crescem e viram mineradores; Embora 
sejam tão habilidosos quanto os humanos em relação as ferramentas, eles também 
construíram grandes monumentos, porém todos estes monumentos são construídos dentro de Ruggvar 
reino dos anões e nunca fora dele.
 Existe uma lei no reino de Ruggvar, nenhum anão pode sair de dentro do reino, e nenhum ser que 
pertence a outra raça pode entrar em Ruggvar sem ser convidado pelo Senhor Anão.

Dragões – Dragões no mundo Mirounir, são vulgarmente chamados pelos humanos de Serpentes do 
Vulcão, estas poderosas criaturas sempre foram respeitadas e tratadas como Deuses, até Lhutel assumir 
o posto de 
rei dos homens e banir os dragões do trono escupido em ouro.
 Com uma guerra que durou décadas, esta poderosa raça foi extinta de Mirounir, e isto trouxe grandes 
conseqüências ao ciclo natural.
 Os dragões sempre foram devotos a um único líder, o mestre dragão Onagard, este dragão representou 
o início da espécie em Mirounir, e sua morte representou o fim dos dragões no mundo.
 Uma  grande lenda conta que um dragão filho de Onagard, nasceu com maldade  em seu coração, plantando 
o mal em sua espécie e aprisionando seu  próprio pai, colocando os humanos a escravidão.
 Antes do fim dessa espécie, as Montanhas eram dominadas por eles, e até hoje as montanhas são 
conhecidas como o lar dos dragões, foram denominadas então de Montanhas Onagard.

Tritões – seres submarinos, são especialistas na arte da alquimia, porém são seres 
extremamente pacíficos e raramente são vistos longe de Ollding o templo do oceano, Existem rumores 
de que nos mares de Mirounir exista uma ilha fantasma, onde os humanos e tritões compartilham os 
segredos da magia, com isto se prova a existência dos humanos habilidosos em magias, também 
conhecidos como Magos.
 Os tritões possuem um rei, mas não são seres de regras, porém os Tritões são capazes de prever as
conseqüências de seus atos, portanto um tritão nunca faz uma escolha não sábia e estão sempre
ajudando uns aos outros, para que o ciclo natural dos mares seja sempre preservado.

Mortos-vivos – Existe um local em Mirounir chamado de Pântano Runnes, seu nome se deve a
maldição lançada nesta parte do mundo por um antigo sábio, conhecido como Runnes, graças a maldição
de Runnes, a terra neste local apodreceu, e toda vida que neste local se perder terá seu espírito
mantido preso nestas terras e se tornará um morto-vivo.
 Os mortos-vivos variam em sua aparência, porém todos possuem o mesmo extinto, todos são seres
violentos e carentes de amigos, porém a única maneira de se tornar amigo de um morto-vivo e ser
um morto-vivo, isto explica o porque dos mortos-vivos atacarem visitantes no pântano, tudo que eles
desejam é dividir seu lar com novos companheiros.

Porém no mundo de Mirounir, existe uma raça bem diferente das que já estamos acostumados, uma raça
que desapareu dos olhos dos outros seres de Mirounir, uma raça chamada Tílios.

Tílios - Uma raça de humanos não muito comum foi julgada e rejeitada pelos homens pela
aparência esquisita e por seus atos insuportáveis, expulsa do reino de Kirin Zhun há muito tempo, esta
raça foi viver escondida em meio às florestas.
 Tilios foram denominados, pois lembravam os Tilitios, pequenos gnomos de cabelos vermelhos.
 Os tílios são criaturas curiosas para os outros seres no mundo de Mironir, vivem a fazer travessuras,
é da natureza de todo Tilio ser travesso, e mesmos velhos e pais de família continuam a fazer suas
travessuras, embora sejam travessos são medrosos e pacíficos. Os Tílios tem uma aparência engraçada,
são pequenos e nascem com os cabelos avermelhados, grossas sobrancelhas escuras, pele branca e olhos
cor de ameixa.

Nome: Tales;
Idade: 14 anos;
Classe: Mestre das Feras;
Habilidades Principais: Coletar a alma do monstro a qual derrotar;
Características: Cabelos Verdes, Olhos Negros, na cabeça um chifre;
Raça: Tílio;
Relatório do Personagem: Tales é um pequeno e diferente tílio será o protagonista do projeto,
portador da espada forjada pelo dragão, sempre foi rejeitado pela sua vila, e com a espada em suas mãos, deseja se tornar um grande guerreiro e poder levar sua raça de volta ao mundo, sem precisarem se esconder, com isto, Tales pretende ser respeitado por todos em sua vila, conseguindo o afeto que nunca teve por ninguém.
O Protagonista sempre precisa de algo mais...
Clique aqui!!!
Clique aqui!!!

Nome: Dragano;
Idade: Aparentemente um menino de 14 anos;
Classe: Discípulo do Dragão;
Habilidades Principais: Baforar fogo;
Características: Aparência de menino, mas com o tempo vai ganhando forma de dragão.
Raça: Dragão.
Relatório do Personagem: De um ovo nasce uma criança que parece humana, mas quanto mais ganha
nível de batalha, mais se torna um dragão. Vai ganhando garras, escamas, asas, baforada até se tornar um
dragão que pode virar humanóide e vice versa.

Nome: Melani;
Idade: 13 anos;
Classe: Alquimista;
Habilidades Principais: Recuperar o HP e SP de Tales e Dragano;
Características: Corpo pequeno, Cabeleos vermelhos, Olhos Roxos;
Raça: Tília;
Relatório do Personagem: Melani é uma jovem Tília que segue Tales em busca de aventuras, esta
sempre causando confusão por não se conter e sempre fazer travessuras com tudo e com todos, sua principal
característica é cuidar dos Itens nas batalhas, e por distrair os inimigos causando explosões e tumultos
sendo assim é a responsável pela vantagem dos guerreiros em batalha.

Nome: Rutes;
Idade: 17 anos;
Classe: Mago Branco;
Habilidades Principais: Baixar os Status dos Inimigos;
Características: Pele azulada, Longos cabelos loiros, em sua pele existem escamas e barbatanas.
Raça: Tritão;
Relatório do Personagem: Rutes é um tritão um pouco convencido de mais, se acha o bonitão e se
aproveita de suas habilidades de transformação, para sempre conquistar garotas, porém sua aparência real,
mostra que ele não passa de um tritão magro e feio. Segue Tales e seus companheiros, com o pensamento de
conhecer garotas no mundo, e encontrar um grande amor.

Na versão Beta 0.1 só haverá três personagens jogáveis, serão eles:

Screenshots

O projeto ainda esta em crescimento, por isto nenhuma das imagens estão em suas formas finais.

Videos

Música 01 - Lendas de Miorunir - by Alangato.
Música 02 - Aventuras e Desafios - by Alangato.

Concept Arts.

Fizemos vários esboços até encontrar o desing ideal dos heróis do projeto, Sakami e eu tivemos muitos problemas para alcançar o ponto desejado, segue abaixo algumas das ilustrações que fizemos, e a transformação dos personagens até o ponto que temos hoje, coisa que só irei revelar mais tarde.

Spoiler:

۞ Finalizado
۞ Sendo Desenvolvido

-Menu FPD - by Zé Coméia;

Spoiler:

-ACBS - by Atoa;
-Sistema de coletar almas dos inimigos para utilizar em batalhas;
-Introdução animada;
-Tela de títulos FPD por eventos;

Spoiler:

-Alquimia para bombas;
-Item Mapa (evento que possibilita ver a localização do herói no mundo);
-Bestiário FPD por eventos;

Spoiler:

-Key Itens - by Zé Coméia;
-Tempo real;
-Dia e noite;
-Monstros por horário;
-3 tipos de moedas (Moedas FPD) - by Akimenerus / Jeff MasterBee / Zé Coméia;
-Limitação de volume de moedas- by Akimenerus / Jeff MasterBee;
-Show Item - Zé Coméia;
-Dentre outros sistemas e recursos exclusivos do projeto, que estamos criando ou que ainda iremos criar.

Scripts Adicionais.

ScriptsACBS - Atoa
Icones na batalha - by Momo
New Particle Engine - by Everulopapo
UMS - by CCoa
Cura ao passar de LV - by Slipknot
Cure for Time - by Dodoop
Clima Avançado - by CCOA
Audio Cript Demo - by Renan Tsuneo Hangai Junior
MOG Scene Story V1.0 - by Moghunter
Anti Event Lag System - by Zeriab
MOG_Location_Name V1.4 - by Moghunter
Menu de Opções Ver. 1.0 - by Serial Killer
HL-Auto Equip - by Lennon / HugoLinux
SHIFT para Correr - by Marlos Gama
Level UP XRXS - by XRXS

O principal sistema do projeto, é a absorção de almas dos monstros derrotados.
Quanto mais almas o jogador conseguir coletar, mais variedade de ataques Tales terá, com isso o jogador sempre teria vantagens contra os fortes inimigos, utilizando almas a qual o monstro possui fraquesas.

Existem 4 tipos de almas cada uma com sua habilidade especial, segue abaixo uma breve explicação:

Almas Vermelhas:
As almas vermelhas são ataques diretamente com uso da espada, ao desferir um ataque com a arma, a energia da alma é colocada para fora lançando um ataque especial de curto alcance.
Geralmente as almas vermelhas dão diferentes atributos elementais a espada, sendo que ela podera desferir ataques de chamas, raio, gelo e etc...E aumentando danos contra inimigos que possuem desvantagem, o gasto de energia destas almas, são baixos e o dano causado só perde para as almas de invocação, porém a resistência e esquiva do jogador é colocada em risco, por estar muito próximo aos inimigos.

Almas Pretas:
Almas poderosas e de grande consumo de energia, com as almas pretas Tales pode invocar o monstro na batalha, onde grandes danos afetam diretamente o inimigo atacado.
Almas de invocação são extremamente dificeis de conseguir, mas são habilidades importantes para quem gosta de ataques de grande dano para esmagar os inimigos.
É necessario no mínimo 2 rodadas para atacar com uma invocação, pois Tales precisa consentrar grande energia.

Almas Verdes:
Estas são almas de habilidades especiais, geramelte são ataques de longa distância, onde ataques são lançados sem a precisão do heróis estar perto do inimigo.
Estes ataques dão ligeira vantagem em defesa, porém não causam danos tão extensos quanto os danos das almas vermelhas e pretas e seu gasto de energia só perde para o das almas pretas.
Quanto mais utilizadas em batalha, mais fraco o dano de seus golpes fica na batalha e menas vantagem de defesa é adquirida.

Almas Azuis:
Almas utilizadas para dar vantagens, geralmente seus ataques afetam diretamente o campo causando baixas nos status dos monstros.
Estas são almas que podem ser utilizadas fora de batalha, e que ajudariam os heróis a passar por caminhos de dificil acesso.
Almas azuis possuem gastos de energia medianos, porém o jogador tem de ser esperto ao usalas, pois com isto pode se perder um turno e tomar um ataque direto sem chances de defesa.

A Trilha Sonora do game se destaca, com músicas produzidas pela equipe, visando sempre a importância da melodia ao ambiente proposto. Esta é uma area esquecida em muitos projetos, mas em Forjada pelo Dragão, este é um fator fundamental para um bom jogo.

A area sonoplasta do projeto esta sendo conduzida por Jeff MasterBee e Alangato.

IMPORTANTE!!!
Nenhuma destas músicas que estão em download podem ser utilizadas, são trabalhos exclusivos da equipe MasterBee Games para Forjada pelo dragão.

MP3 - Power Of The Imp - compositor: Jeff MasterBee, Mix: Erick Paladium;
download aqui: http://www.4shared.com/file/0v8cd8c_/Power_Of_The_Imp.html

MIDI - O filho de Onagard - compositor: Jeff MasterBee.
download aqui: http://www.4shared.com/audio/srlfdsJC/03-O_filho_de_Onagard.html

MIDI - A Marcha - compositor: Alangato.
download aqui: http://www.4shared.com/audio/0_od9YcR/07-_A_Marcha.html

Os softwares utilizados para a composição são:

Guitar Pro 5.2 - Sequênciador sonoro;
Fruit Loops 8 - Mixagem das músicas dando maior qualidade sonora.

Download.

Infelizmente ainda não possuimos uma versão para download, estamos trabalhando nisto para trazer uma ótima beta aos curiosos de plantão.

Barras.

[url=http://www.santuariorpgmaker.com/forum/galeria-de-projetos/forjada-pelo-dragao/][img]http://i64.servimg.com/u/f64/12/54/07/30/basica10.png[/img][/url]<br />

[url=http://www.santuariorpgmaker.com/forum/galeria-de-projetos/forjada-pelo-dragao/][img]http://i64.servimg.com/u/f64/12/54/07/30/tales11.png[/img][/url]<br />

[url=http://www.santuariorpgmaker.com/forum/galeria-de-projetos/forjada-pelo-dragao/][img]http://i64.servimg.com/u/f64/12/54/07/30/dragan11.png[/img][/url]<br />

[url=http://www.santuariorpgmaker.com/forum/galeria-de-projetos/forjada-pelo-dragao/][img]http://i64.servimg.com/u/f64/12/54/07/30/melani11.png[/img][/url]<br />

[url=http://www.santuariorpgmaker.com/forum/galeria-de-projetos/forjada-pelo-dragao/][img]http://i64.servimg.com/u/f64/12/54/07/30/rutes10.png[/img][/url]<br />

Créditos & Agradecimentos.

A todos que participaram da equipe MasterBee Games e que deixaram suas idéias e trabalhos, como TAXD, Dark Luar, Poiugo, Dark Paladium, Feu [Kaname] e Shepher.
Agradeço tbm à Kiin, uma grande amiga que fez o maravilhoso logo da equipe... Também ao Megalukes que nos apoia e nos apresentou o ACBS e toda sua grandiosidade e principalmente ao Atoa que criou o ACBS.
Também agradeço ao Akimenerus pelas ajudas nos sistemas, ao Crazy Nero e ao Tunico por sempre estarem nos apoiando, sempre sendo os maiores companheiros em relação as críticas construtívas.
Ao CristianoForce da comunidade MRM, por ser um grande colaborador em relação aos novos sistemas por eventos.
A Erick Paladium pelo ótimo Mix da faixa Power Of The Imp.
Ao Gitz por ser um amigo que esta sempre apoiando a idéia do projeto e conferindo de perto as novidades.
E a todos que ainda estão me ajudando um agradecimento em especial, se esqueci de alguém por favor mil perdões.
A Santuário RPG Maker pelo espaço que oferece a nós criadores de games amadores, e a você, futuro jogador.
Em especial nós da equipe gostariamos de agradecer aos nossos pais, que em resultado de uma boa noite de sexo, deu origem a estes moribundos.
Obrigado .

PS: Estamos em busca de um eventer experiente e um scripter em RMXP.
Aqueles que se interessarem pelas vagas, por favor me comunicar via MP.

Forjada Pelo Dragão de MasterBee Games é licenciado sob uma Licença Creative Commons Atribuição-Uso não-comercial-Vedada a criação de obras derivadas 3.0 Brasil.
Based on a work at www.santuariorpgmaker.com.
Permissions beyond the scope of this license may be available at www.mundorpgmaker.com

BMP writer

noreply@blogger.com (zecomeia) — Mon, 01 Nov 2010 20:08:00 +0000

BMP writer

por zecomeia

Introdução

Método implementado na classe IO para escrever um arquivo de imagem do tipo bmp truecolor de 24bits a partir de um objeto da classe Bitmap usada no RGSS.

Características

bmp truecolor 24bits
resolução vertical e horizontal de 96dpi
utiliza um objeto da classe Bitmap do RGSS para gerar o arquivo de imagem

Como Usar

*Ao abrir o arquivo para a escrita, use o modo BINÁRIO.
file = File.new('image.bmp','wb')

Para gravar a imagem no arquivo, use o metodo bmp_write após abrir o arquivo.
file.bmp_write(aBitmap_obj)

Feche o arquivo.
file.close

OBS: A escrita é um pouco demorada, dependendo tamanho da imagem pode levar alguns segundos. Veja a técnica de uso do script a seguir para resolver o problema.

Usando o BMP writer num processor paralelo

O script não utliza bibliotecas externas. Foi escrito totalmente em Ruby baseando-se no objeto Bitmap usado em RGSS/2. Mesmo sendo feito para ter um bom desempenho com relação ao tempo de escrita de arquivo, para empregá-lo em jogos o tempo de escrita pode acabar sendo longo. Por exemplo, em uma máquina com Core 2 Duo o script levou 2 segundos para gravar um bitmap de 640x480, o que parece rápidos, mas pode ser um incmodo no meio de um jogo.

Então resolvi usar o metodo de escrita em um processo paralelo para não ocorrer aquela pausa no jogo enquanto a gravação do arquivo está em andamento. O problema é que leva mais tempo para o arquivo ser salvo(seguindo mesmo exemplo anterior, levou 1 minuto e meio para a gravação), isso significa que não é possível visualizar/utilizar o arquivo gerao enquanto não terminar essa gravação, e também caso o jogo seja fechado antes do término o arquivo fica corrompido.

Para criar nosso processo paralelo usaremos uma Thread. Basicamente uma thread é um bloco de código que é executado em paralelo com o programa principal. A técnica não é muito complicada nem ocupa muito espaço. Primeiro vamos carregar um Bitmap para usar na gravação:

data_system        = load_data("Data/System.rxdata")
aBitmap_obj = RPG::Cache.title(data_system.title_name)

As linhas acima irão carregar a imagem de título na variável aBitmap_obj.

Agora vamos à Thread:

thread_bmp = Thread.new(aBitmap_obj) do
begin
file = File.new('image.bmp','wb')
file.bmp_write(aBitmap_obj)
file.close
rescue
print 'Erro ao gravar um bitmap'
end
end

file = File.new('image.bmp','wb')
file.bmp_write(aBitmap_obj)
file.close

Abre o arquivo para leitura, escreve o BMP no arquivo e fecha o arquivo quando terminar a escrita.

Basicamente é isso. Teste a técnica e qualquer dúvida fique a vontade.

Script

#========================================<br /># BMP writer<br />#----------------------------------------<br />#by:      zecomeia<br />#date:    01/11/2010<br />#for:     RGSS/RGSS2<br />#version: 1.0<br />#www.colmeia-do-ze.blogspot.com<br />#----------------------------------------<br />=begin<br />IO's method to write a BMP truecolor(24bits) file <br />from a RGSS's Bitmap object.<br /><br />-bmp truecolor 24bits<br />-resolution vertical and horizontal = 96dpi<br />-use a RGSS's Bitmap object to write the image file<br /><br />*To open file to write, use BINARY mode.<br />file = File.new('image.bmp','wb')<br />To write use the bmp_write method after open file<br />file.bmp_write(aBitmap_obj)<br />Close file<br />file.close<br />=end<br /><br />class IO<br />  <br />  def bmp_write(bitmap)<br />    self.write_FileHeader(bitmap)<br />    self.write_ImageHeader(bitmap)<br />    self.write_Bitmap(bitmap)    <br />    self.putc(0x00)<br />    self.putc(0x00)<br />  end<br />  <br />  def write_FileHeader(bitmap)    <br />    #sign<br />    self.putc(0x42)<br />    self.putc(0x4D)<br />    #file size<br />    w = bitmap.width<br />    h = bitmap.height<br />    img_size = w * h * 3 + 56 # 3bytes/pixel(true color 24bits)<br />    hexa = sprintf("%x",img_size)<br />    length = hexa.size<br />    hexa_byte = []    <br />    if length%2 != 0<br />    hexa = '0' + hexa<br />    length +=1<br />    end<br />    pointer_byte = 0<br />    for i in 0...length/2<br />      pointer_byte += 1<br />      hexa_byte[i] = hexa.unpack('a2')<br />      hexa.sub!(hexa_byte[i].to_s,'')<br />    end <br />    for byte in hexa_byte.reverse<br />      self.putc(sh_i(byte.to_s))<br />    end<br />    (4 - pointer_byte).times { self.putc(0x00) }<br />    #reserved area<br />    4.times { self.putc(0x00) }<br />    #offset bits<br />    self.putc(0x36)<br />    3.times { self.putc(0x00) }<br />  end<br />  <br />  def write_ImageHeader(bitmap)<br />    #image header size<br />    self.putc(0x28)<br />    3.times { self.putc(0x00) }<br />    #width<br />    w = bitmap.width<br />    hexa = sprintf("%x",w)<br />    length = hexa.size<br />    hexa_byte = []<br />    if length%2 != 0<br />    hexa = '0' + hexa<br />    length +=1<br />    end<br />    pointer_byte = 0<br />    for i in 0...length/2<br />      pointer_byte += 1<br />      hexa_byte[i] = hexa.unpack('a2')<br />      hexa.sub!(hexa_byte[i].to_s,'')<br />    end <br />    for byte in hexa_byte.reverse<br />      self.putc(sh_i(byte.to_s))<br />    end<br />    (4 - pointer_byte).times { self.putc(0x00) }<br />    #height<br />    h = bitmap.height<br />    hexa = sprintf("%x",h)<br />    length = hexa.size<br />    hexa_byte = []<br />    if length%2 != 0<br />    hexa = '0' + hexa<br />    length +=1<br />    end<br />    pointer_byte = 0<br />    for i in 0...length/2<br />      pointer_byte += 1<br />      hexa_byte[i] = hexa.unpack('a2')<br />      hexa.sub!(hexa_byte[i].to_s,'')<br />    end <br />    for byte in hexa_byte.reverse<br />      self.putc(sh_i(byte.to_s))<br />    end<br />    (4 - pointer_byte).times { self.putc(0x00) }<br />    #planes<br />    self.putc(0x01)<br />    self.putc(0x00)<br />    #bits per pixel<br />    self.putc(0x18) # 3bytes/pixel(true color 24bits)<br />    self.putc(0x00)<br />    #compression<br />    4.times { self.putc(0x00) }<br />    #image size<br />    w = bitmap.width<br />    h = bitmap.height<br />    img_size = w*h*4<br />    hexa = sprintf("%x",img_size)<br />    length = hexa.size<br />    hexa_byte = []<br />    if length%2 != 0<br />    hexa = '0' + hexa<br />    length +=1<br />    end<br />    pointer_byte = 0<br />    for i in 0...length/2<br />      pointer_byte += 1<br />      hexa_byte[i] = hexa.unpack('a2')<br />      hexa.sub!(hexa_byte[i].to_s,'')<br />    end <br />    for byte in hexa_byte.reverse<br />      self.putc(sh_i(byte.to_s))<br />    end<br />    (4 - pointer_byte).times { self.putc(0x00) }<br />    #XPP meter<br />    #(0ED8)HEX = (3800)DEC  = 96dpi<br />    self.putc(0xD8)<br />    self.putc(0x0E)<br />    self.putc(0x00)<br />    self.putc(0x00)<br />    #YPP meter<br />    #(0ED8)HEX = (3800)DEC  = 96dpi<br />    self.putc(0xD8)<br />    self.putc(0x0E)<br />    self.putc(0x00)<br />    self.putc(0x00)<br />    #number of colors used<br />    4.times { self.putc(0x00) }<br />    #number of important colors<br />    4.times { self.putc(0x00) }<br />  end<br />  <br />  def write_Squad<br />    <br />  end<br />  <br />  def write_Bitmap(bitmap)<br />    for y in 1..bitmap.height<br />      for x in 0...bitmap.width<br />        color = bitmap.get_pixel(x, bitmap.height - y)<br />        self.putc(color.blue)<br />        self.putc(color.green)        <br />        self.putc(color.red)<br />        #complete line with random bytes if necessary<br />        if (r = bitmap.width % 4) != 0 and x == (bitmap.width - 1)<br />          (4 - r).times { 3.times { self.putc(0xFF) } }<br />        end<br />      end<br />    end<br />  end<br />  <br />end<br /><br />module Kernel<br />  <br />  #Convert a string with hex number to a integer<br />  #sh_i("FF") returns 255<br />  def sh_i(sh)<br />    eval("0x#{sh}")<br />  end<br />  <br />end<br />

Créditos e Agradecimentos

Feito por zecomeia

Updates!

noreply@blogger.com (zecomeia) — Thu, 01 Apr 2010 18:30:00 +0000

Mais um novo script para nossa lista de scripts para RGSS, o XP Wave Effect. Com ele agora é possível que os programadores do RGSS consigam usar efeito que exclusivo do RGSS conhecido como "wave".
Na verdade já tinha feito esse script e inclusive usado ele em um dos scripts aqui já postados, mas resolvi postar o script do efeito wave separado e percebi que ele precisava de melhorias e que estava "distante" de ser realmente igual ao efeito original no VX. Agora alem de estar muito masi parecido(eu pelo menos não vi diferença), também retirei algumas coisas que estavam causando lag(quando era usada apenas uma imagem como o efeito tudo bem, mas se usasse mais imagens ficava um inferno!).
Sem mais enrolação, segue o link para o script:

XP Wave Effect

Como citado acima, um de meus scripts(na verdade uma conversão) já tinha usado o wave effect, portanto aí segue o link deste script agora com a atualização do XP Wave Effect:

MOG Title Miria - XP version

*Ando muito ocupado ultimamente, então continuaram raras minhas postagens de conteudo aqui no blog.

XP Wave Effect

noreply@blogger.com (zecomeia) — Thu, 01 Apr 2010 18:05:00 +0000

XP Wave Effect

por zecomeia

Introdução

Modificações na classe Sprite para usar o efeito "wave" existente apenas no RGSS2.

Características

Muito fiel ao efeito do RMVX

Screen Shot

Como Usar

Cole o script acima de main;
Use da mesma forma como é usado no RGSS2, se não souber procure pelo manual de referencia ao RGSS no próprio arquivo de help do RMVX.

Demo

Dowload da demo

Script

#========================================<br /># XP Wave Effect<br />#----------------------------------------<br />#by:      zecomeia<br />#date:    01/03/2010<br />#for:     RGSS<br />#version: 1.0<br />#www.colmeia-do-ze.blogspot.com<br />#----------------------------------------<br />=begin<br />Reproduction of the VX's wave effect<br />(see the help file of the RPGMaker VX <br />in the RGSS manual reference topic)<br />=end<br /><br />#==============#<br /># Sprite class #<br />#==============#<br />class Sprite<br />  <br />  include Math<br />  <br />  attr_accessor   :wave_amp<br />  attr_accessor   :wave_length<br />  attr_accessor   :wave_speed<br />  attr_accessor   :wave_phase<br />  attr_accessor   :temp_bitmap<br />  <br />  alias initialize default_initialize rescue nil<br />  alias default_initialize initialize<br />  def initialize(viewport=nil)<br />    @wave_amp = 0<br />    @wave_length = 180<br />    @wave_speed = 360<br />    @wave_phase = 0.0<br />    default_initialize(viewport)<br />    @temp_bitmap = nil<br />  end<br />  <br />  alias update default_update rescue nil<br />  alias default_update update  <br />  def update()<br />    # the wave effect only works if wave_amp<br />    # propertie is a number more than zero<br />    wave_effect if @wave_amp > 0<br />    default_update()<br />  end<br />  <br />  # Return the width of image, because when use<br />  # obj.bitmap.width the value will be more than<br />  # the original value(because effect)<br />  def width()<br />    return (self.bitmap.width - @wave_amp * 2)<br />  end<br />    <br />  #---------------<br />  # Wave Effect<br />  #---------------<br />  def wave_effect()<br />    return if self.bitmap.nil?<br />    @temp_bitmap = self.bitmap if @temp_bitmap.nil?<br />    cw = @temp_bitmap.width + (@wave_amp * 2)<br />    ch = @temp_bitmap.height<br />    # Follow the VX wave effect, each horizontal line<br />    # has 8 pixel of height. This device provides less<br />    # lag in game.<br />    divisions = @temp_bitmap.height / 8<br />    divisions += 1 if @temp_bitmap.height % 8 != 0<br />    self.bitmap = Bitmap.new(cw, ch)<br />    for i in 0..divisions<br />      x = @wave_amp * Math.sin(i * 2 * PI / (@wave_length / 8).to_i + Math.deg_to_rad(@wave_phase))<br />      src_rect = Rect.new(0, i*8, @temp_bitmap.width, 8)<br />      dest_rect = Rect.new(@wave_amp + x, i * 8, @temp_bitmap.width, 8)<br />      self.bitmap.stretch_blt(dest_rect, @temp_bitmap, src_rect)<br />    end<br />    # frame rate: VX = 60 | XP = 40<br />    # wave speed compatibility VX to XP: wave_speed * 60/40<br />    # then: wave_speed * 1.5<br />    @wave_phase += @wave_speed * 1.5 / @wave_length<br />    @wave_phase -= 360 if @wave_phase > 360<br />    @wave_phase += 360 if @wave_phase < 0<br />  end<br />  <br />end<br /><br />#=============#<br /># module Math #<br />#=============#<br />module Math<br />  <br />  #-------------------------------<br />  # Conversion Degree to Radian<br />  #-------------------------------<br />  def Math.deg_to_rad(deg)<br />    return (deg * PI) / 180.0<br />  end<br />  <br />end<br />

Créditos e Agradecimentos
zecomeia pela versão para XP

Module VirtualKeys

noreply@blogger.com (zecomeia) — Sun, 28 Feb 2010 19:27:00 +0000

Module VirtualKeys
por zecomeia

Introdução

Além de habilitar todas as teclas para o uso no RPGMaker, também é acompanhado de métodos que ajudaram na utilização das teclas, alguns tentam baseados em métodos já existentes no módulo Input, e outros totalmente novo ou incrementados.

Características

método #press?;
método #trigger?;
método #repeat?;
método #dir4 com algumas novidades;
método #dir8 com algumas novidades;
métodos para manipulação das funções GetKeyState e GetAsyncKeyState, usados na construção dos outros;
método #get_char que retorna a tecla pressionada(seguindo o padrão ABNT);
todas as características anteriores foram construídas em um módulo à parte e são totalmente independentes do módulo Input.
Não precisar usar um método de atualização como o módulo Input.

Como usar

Instale o script acima de qualquer script que o use.

*Caso use funções desse script em uma scene, de preferência não use atualize módulo Input no loop principal de sua scene, para evitar conflitos ou má performance deste script. Para isso, basta não colocar o método de módulo #update no loop da scene, veja:

RGSS:

def main<br />  #<br />  #inicialização dos objetos da scene<br />  #<br />  Graphics.transition<br />  loop do<br />    Graphics.update<br />    #Input.update <---- apague essa linha que aqui foi comentada<br />    update<br />    if $scene != self<br />      break<br />    end<br />  end<br />  Graphics.freeze<br />  #<br />  #dispose<br />  #<br />end<br />

Como no RGSS2 o método #main fica na superclasse de todas scenes, Scene_Base, então será preciso alterar o método #main na própria scene ao invés de modificar o método #main em Scene_Base(para não interferir nas outras, a menos que queira isso). Veja como ficaria:

def main<br />  start<br />  perform_transition<br />  post_start<br />  #Input.update <---- apague essa linha que aqui foi comentada<br />  loop do<br />    Graphics.update<br />    #Input.update  <---- apague essa linha que aqui foi comentada<br />    update<br />    break if $scene != self<br />  end<br />  Graphics.update<br />  pre_terminate<br />  Graphics.freeze<br />  terminate<br />end<br />

Para usar os métodos de verificação #press?, #trigger?, #repeat? siga o exemplo:

if VirtualKeys.press?(Virtual::VK_T)<br />print 'você pressionou a letra T'<br />end<br />

*O argumento é um número inteiro, e segue a tabela das Virtual Keys encontrada no próprio módulo com todas as contantes definidas(seguindo valores hexadecimais).

Veja um exemplo do método #get_char :

char = VirtualKeys.get_char()<br />if char[0] == true or char.size == 2 # se for um acento...<br />case $Acento<br />when 1 ; print "você pressionou ~"<br />when 2 ; print "você pressionou ^"<br />when 3 ; print "você pressionou ´"<br />when 4 ; print "você pressionou `"<br />when 5 ; print "você pressionou ¨"<br />end<br />elsif char[0] != nil #se for qualquer outro caractere...<br />print "você pressionou #{char[0]}"<br />end<br />

Os métodos #dir4 e #dir8 têm o mesmo comportamento, porem, enquanto #dir4 analiza apenas as 4 direcionais para retornar um valor, #dir8 analiza também combinações entre as direções desde que não sejam opostas. Até aí sem novidades. Mas no módulo VirtualKeys ele agora recebeu 2 parâmetros de entrada, type e ignore_numpad. O primeiro pode ter 2 possíveis valores: 0=#press? ou 1=#trigger?. Isso vai mudar o método usado para analizar as teclas que movimentam o personagem. o argumento ignore_numpad quando true, não avaliará as teclas direcionais que compartilham espaço com os números no teclado numérico(1,2,3,4,6,7,8 e 9). Exemplo:

case VirtualKeys.dir8(0,true)<br />when 1 ; print('down left')<br />when 2 ; print('down')<br />when 3 ; print('down right')<br />when 4 ; print('left')<br />when 6 ; print('right')<br />when 7 ; print('up left')<br />when 8 ; print('up')<br />when 9 ; print('up right')<br />end<br />

*Os valores padrões dos argumentos são (0,false).

Os métodos que chamam as funções GetKeyState e GetAsyncKeyState são, respectivamente, #gks e #gaks, onde #gks analisa o estado da tecla levando em consideração que pressionar a tecla uma vez ativa a tecla e outra desativa(ex: CAPS LOCK), enquanto #gaks analisan se a tecla está sendo pressionada(segurando a tecla). Para ambos, quando a tecla não está ativa o valor retornado é 0, caso contráro será retornado um número qualquer que não é possível prever.

Demo

RMVX
RMXP

Script

#========================================<br /># Module VirtualKeys<br />#----------------------------------------<br />#by:      zecomeia<br />#date:    28/02/2010<br />#for:     RGSS & RGSS2<br />#version: 1.1<br />#www.colmeia-do-ze.blogspot.com<br />#----------------------------------------<br />=begin<br /><br />*NOTE: recommended don't update the inputs using Input.update<br />on the main loop of the scene to use functions of the script.<br />para evitar conflitos, for to avoid conflicts.<br /><br />Module Methods:<br />------------------------------------------------------------<br />VirtualKeys#press?(key)<br /><br />Determines whether the button num is currently being<br />pressed.<br />If the button is being pressed, returns TRUE. If not,<br />returns FALSE.<br />-------------------------------------------------------------<br />VirtualKeys#trigger?(key)<br /><br />Determines whether the button "key" is being pressed again.<br />"Pressed again" is seen as time having passed between the<br />button being not pressed and being pressed.<br />If the button is being pressed, returns TRUE. If not,<br />returns FALSE.<br />------------------------------------------------------------<br />VirtualKeys#repeat?(key)<br /><br />Determines whether the button "key" is being pressed again.<br />Unlike trigger?, takes into account the repeat input of a<br />button being held down continuously.<br />If the button is being pressed, returns TRUE. If not,<br />returns FALSE.<br />------------------------------------------------------------<br />VirtualKeys#dir4(type=0, ignore_numpad=false)<br /><br />Checks the status of the directional buttons, translates the<br />data into a specialized 4-direction input format, and returns<br />the number pad equivalent (2, 4, 6, 8).<br />If no directional buttons are being pressed (or the equivalent),<br />returns 0.<br /><br />Arguments<br /><br />type: defines the method that will evaluate the inputs<br />(#press?(key) or #trigger?(key)).<br />0=#press?(key)<br />1=#trigger?(key)<br /><br />ignore_numpad: if true ignore inputs of the numpad, else don't.<br />-------------------------------------------------------------<br />VirtualKeys#dir8(type=0, ignore_numpad=false)<br /><br />Checks the status of the directional buttons, translates the<br />data into a specialized 8-direction input format, and returns<br />the number pad equivalent (1, 2, 3, 4, 6, 7, 8, 9).<br />If no directional buttons are being pressed (or the equivalent),<br />returns 0.<br /><br />Arguments<br /><br />type: defines the method that will evaluate the inputs<br />(#press?(key) or #trigger?(key)).<br />0=#press?(key)<br />1=#trigger?(key)<br /><br />ignore_numpad: if true ignore inputs of the numpad, else don't.<br />-------------------------------------------------------------<br />VirtualKeys#get_char()<br /><br />Returns the character in a array corresponding to the<br />pressed key.<br />*Keys corresponding to the accents ( ' `^ ¨ ~ ) return 1 size<br />array with true and change the value of the variable "$Acento"<br />with a corresponding number on the first click.The second<br />click, the method returns an 2 size array with the accents.<br />~: $Acento=1<br />^: $Acento=2<br />´: $Acento=3<br />`: $Acento=4<br />¨: $Acento=5<br />Else<br />$Acento=0<br /><br />*NOTE: to ABNT.<br />*NOTE: all characters and "symbols"(@ # $ %...) returned as<br />string objects within the array.<br />*NOTE: numpad numbers are returned as string objects within<br />the array, while the other numbers are returned in the array<br />as objects of type integer.<br />-------------------------------------------------------------<br /><br />*"key" should be replaced by a constant of module "VirtualKeys"<br />*See the constants in module "VirtualKeys"<br /><br />Sample:<br />if VirtualKeys.trigger?(VirtualKeys::VK_A)<br />  print "\"A\" is being pressed"<br />end<br />=end<br /><br />module VirtualKeys<br />GetAsyncKeyState = Win32API.new("user32","GetAsyncKeyState",'i','i')<br />GetKeyState = Win32API.new("user32","GetKeyState",'i','i')<br />$LastKey=0<br />$CallsCounter=0<br />$Acento=0<br /><br />#Constants copied:<br />#http://msdn.microsoft.com/en-us/library/ms927178.aspx<br />#http://www.kbdedit.com/manual/low_level_vk_list.html<br /><br />VK_LBUTTON=0x01 #Left mouse button<br />VK_RBUTTON=0x02 #Right mouse button<br />VK_CANCEL=0x03 #Control-break processing<br />VK_MBUTTON=0x04 #Middle mouse button on a three-button mouse<br />VK_BACK=0x08 #BACKSPACE key<br />VK_TAB=0x09 #TAB key<br />VK_CLEAR=0x0C #CLEAR key<br />VK_RETURN=0x0D #ENTER key<br />VK_SHIFT=0x10 #SHIFT key<br />VK_CONTROL=0x11 #CTRL key<br />VK_MENU=0x12 #ALT key<br />VK_PAUSE=0x13 #PAUSE key<br />VK_CAPITAL=0x14 #CAPS LOCK key<br />VK_ESCAPE=0x1B #ESC key<br />VK_SPACE=0x20 #SPACEBAR<br />VK_PRIOR=0x21 #PAGE UP key<br />VK_NEXT=0x22 #PAGE DOWN key<br />VK_END=0x23 #END key<br />VK_HOME=0x24 #HOME key<br />VK_LEFT=0x25 #LEFT ARROW key<br />VK_UP=0x26 #UP ARROW key<br />VK_RIGHT=0x27 #RIGHT ARROW key<br />VK_DOWN=0x28 #DOWN ARROW key<br />VK_SELECT=0x29 #SELECT key<br />VK_EXECUTE=0x2B #EXECUTE key<br />VK_SNAPSHOT=0x2C #PRINT SCREEN key<br />VK_INSERT=0x2D #INS key<br />VK_DELETE=0x2E #DEL key<br />VK_HELP=0x2F #HELP key<br /><br />VK_0=0x30 #0 key<br />VK_1=0x31 #1 key<br />VK_2=0x32 #2 key<br />VK_3=0x33 #3 key<br />VK_4=0x34 #4 key<br />VK_5=0x35 #5 key<br />VK_6=0x36 #6 key<br />VK_7=0x37 #7 key<br />VK_8=0x38 #8 key<br />VK_9=0x39 #9 key<br /><br />VK_A=0x41 #A key<br />VK_B=0x42 #B key<br />VK_C=0x43 #C key<br />VK_D=0x44 #D key<br />VK_E=0x45 #E key<br />VK_F=0x46 #F key<br />VK_G=0x47 #G key<br />VK_H=0x48 #H key<br />VK_I=0x49 #I key<br />VK_J=0x4A #J key<br />VK_K=0x4B #K key<br />VK_L=0x4C #L key<br />VK_M=0x4D #M key<br />VK_N=0x4E #N key<br />VK_O=0x4F #O key<br />VK_P=0x50 #P key<br />VK_Q=0x51 #Q key<br />VK_R=0x52 #R key<br />VK_S=0x53 #S key<br />VK_T=0x54 #T key<br />VK_U=0x55 #U key<br />VK_V=0x56 #V key<br />VK_W=0x57 #W key<br />VK_X=0x58 #X key<br />VK_Y=0x59 #Y key<br />VK_Z=0x5A #Z key<br /><br />VK_LWIN=0x5B #Left Windows key on a Microsoft Natural Keyboard<br />VK_RWIN=0x5C #Right Windows key on a Microsoft Natural Keyboard<br />VK_APPS=0x5D #Applications key on a Microsoft Natural Keyboard<br />VK_NUMPAD0=0x60 #Numeric keypad 0 key<br />VK_NUMPAD1=0x61 #Numeric keypad 1 key<br />VK_NUMPAD2=0x62 #Numeric keypad 2 key<br />VK_NUMPAD3=0x63 #Numeric keypad 3 key<br />VK_NUMPAD4=0x64 #Numeric keypad 4 key<br />VK_NUMPAD5=0x65 #Numeric keypad 5 key<br />VK_NUMPAD6=0x66 #Numeric keypad 6 key<br />VK_NUMPAD7=0x67 #Numeric keypad 7 key<br />VK_NUMPAD8=0x68 #Numeric keypad 8 key<br />VK_NUMPAD9=0x69 #Numeric keypad 9 key<br />VK_MULTIPLY=0x6A #Multiply key<br />VK_ADD=0x6B #Add key<br />VK_SEPARATOR=0x6C #Separator key<br />VK_SUBTRACT=0x6D #Subtract key<br />VK_DECIMAL=0x6E #Decimal key<br />VK_DIVIDE=0x6F #Divide key<br />VK_F1=0x70 #F1 key<br />VK_F2=0x71 #F2 key<br />VK_F3=0x72 #F3 key<br />VK_F4=0x73 #F4 key<br />VK_F5=0x74 #F5 key<br />VK_F6=0x75 #F6 key<br />VK_F7=0x76 #F7 key<br />VK_F8=0x77 #F8 key<br />VK_F9=0x78 #F9 key<br />VK_F10=0x79 #F10 key<br />VK_F11=0x7A #F11 key<br />VK_F12=0x7B #F12 key<br />VK_F13=0x7C #F13 key<br />VK_F14=0x7D #F14 key<br />VK_F15=0x7E #F15 key<br />VK_F16=0x7F #F16 key<br />VK_F17=0x80 #F17 key<br />VK_F18=0x81 #F18 key<br />VK_F19=0x82 #F19 key<br />VK_F20=0x83 #F20 key<br />VK_F21=0x84 #F21 key<br />VK_F22=0x85 #F22 key (PPC only) Key used to lock device.<br />VK_F23=0x86 #F23 key<br />VK_F24=0x87 #F24 key<br />VK_NUMLOCK=0x90 #NUM LOCK key<br />VK_SCROLL=0x91 #SCROLL LOCK key<br />VK_LSHIFT=0xA0 #Left SHIFT<br />VK_RSHIFT=0xA1 #Right SHIFT<br />VK_LCONTROL=0xA2 #Left CTRL<br />VK_RCONTROL=0xA3 #Right CTRL<br />VK_LMENU=0xA4 #Left ALT<br />VK_RMENU=0xA5 #Right ALT<br />VK_PACKET=0xE7 #Used to pass Unicode characters as if they were keystrokes.<br />#If VK_PACKET is used with SendInput, ; the Unicode character to be delivered<br />#should be placed into the lower 16 bits of the scan code. If a keyboard message<br />#is removed from the message queue and the virtual key is VK_PACKET, ; the<br />#Unicode character will be the upper 16 bits of the lparam.<br />VK_ATTN=0xF6 #ATTN key<br />VK_CRSEL=0xF7 #CRSEL key<br />VK_EXSEL=0xF8 #EXSEL key<br />VK_EREOF=0xF9 #Erase EOF key<br />VK_PLAY=0xFA #PLAY key<br />VK_ZOOM=0xFB #ZOOM key<br />VK_NONAME=0xFC #Reserved for future use<br />VK_PA1=0xFD #PA1 key<br />VK_OEM_CLEAR=0xFE #CLEAR key<br />VK_KEYLOCK=0xF22 #Key used to lock device<br /><br />VK_OEM_SCROLL=0x91 #None<br />VK_OEM_1=0xBA #";:" for US --- "ç" no padrão ABNT<br />VK_OEM_PLUS=0xBB #"+" any country/region<br />VK_OEM_COMMA=0xBC #"," any country/region<br />VK_OEM_MINUS=0xBD #"-" any country/region<br />VK_OEM_PERIOD=0xBE #"." any country/region<br />VK_OEM_2=0xBF #"/?" for US --- ";:" no padrão ABNT<br />VK_OEM_3=0xC0 #"`~" for US --- " '" " no padrão ABNT<br />VK_OEM_4=0xDB #"[{" for US --- "´`" no padrão ABNT<br />VK_OEM_5=0xDC #"\|" for US --- "]" no padrão ABNT<br />VK_OEM_6=0xDD #"]}" for US --- "[" no padrão ABNT<br />VK_OEM_7=0xDE #"'"" for US --- "~^" no padrão ABNT<br />VK_OEM_8=0xDF #None<br />VK_OEM_AX=0xE1 #AX key on Japanese AX keyboard<br />VK_OEM_102=0xE2 #"<>" or "\|" on RT 102-key keyboard --- "\|" no padrão ABNT<br />VK_ABNT_C1 = 0xC1 #"?/°" no padrão ABNT<br />VK_ABNT_C2 = 0xC2 #"." no padrão ABNT<br /><br />VK_DBE_ALPHANUMERIC=0x0f0 #Changes the mode to alphanumeric.<br />VK_DBE_KATAKANA=0x0f1 #Changes the mode to Katakana.<br />VK_DBE_HIRAGANA=0x0f2 #Changes the mode to Hiragana.<br />VK_DBE_SBCSCHAR=0x0f3 #Changes the mode to single-byte characters.<br />VK_DBE_DBCSCHAR=0x0f4 #Changes the mode to double-byte characters.<br />VK_DBE_ROMAN=0x0f5 #Changes the mode to Roman characters.<br />VK_DBE_NOROMAN=0x0f6 #Changes the mode to non-Roman characters.<br />VK_DBE_ENTERWORDREGISTERMODE=0x0f7 #Activates the word registration dialog box.<br />VK_DBE_ENTERIMECONFIGMODE=0x0f8 #Activates a dialog box for setting up an IME environment.<br />VK_DBE_FLUSHSTRING=0x0f9 #Deletes the undetermined string without determining it.<br />VK_DBE_CODEINPUT=0x0fa #Changes the mode to code input.<br />VK_DBE_NOCODEINPUT=0x0fb #Changes the mode to no-code input.<br /><br />  #===========================<br />  # GetAsyncKeyState function<br />  #===========================<br />  def self.gaks(key)<br />    GetAsyncKeyState.call(key)<br />  end<br /> <br />  #======================<br />  # GetKeyState function<br />  #======================<br />  def self.gks(key)<br />    GetKeyState.call(key)<br />  end<br /> <br />  #============================================================<br />  # VirtualKeys#press?(key)<br />  #============================================================<br />  def self.press?(key)<br />    getState = self.gaks(key)<br />    return(true) if getState != 0<br />    false<br />  end<br /> <br />  #============================================================<br />  # VirtualKeys#trigger?(key)<br />  #============================================================<br />  def self.trigger?(key)<br />    getState = self.gaks(key)<br />    getState2 = 0<br />    getState2 = self.gaks($LastKey) if $LastKey != 0<br />    return($LastKey = 0;false) if getState == 0 and getState2 == 0<br />    return(false) if key == $LastKey and getState != 0<br />    $LastKey = key if getState != 0<br />    return false if getState == 0<br />    true<br />  end<br /> <br />  #============================================================<br />  # VirtualKeys#repeat?(key)<br />  #============================================================<br />  def self.repeat?(key)<br />    return ($CallsCounter -= 1;false) if $CallsCounter > 0<br />    ($CallsCounter = 5;return(true)) if self.gaks(key) != 0<br />    false<br />  end<br /> <br />  #============================================================<br />  # VirtualKeys#dir4(type=0, ignore_numpad=false)<br />  #============================================================<br />  def self.dir4(type=0,ignore_numpad=false)<br />    case type<br />    when 0<br />      if self.press?(VK_DOWN) or (!ignore_numpad && self.press?(VK_NUMPAD2)) ; return(2)<br />      elsif self.press?(VK_LEFT) or (!ignore_numpad && self.press?(VK_NUMPAD4)) ; return(4)<br />      elsif self.press?(VK_RIGHT) or (!ignore_numpad && self.press?(VK_NUMPAD6)) ; return(6)<br />      elsif self.press?(VK_UP) or (!ignore_numpad && self.press?(VK_NUMPAD8)) ; return(8)<br />      end<br />    when 1<br />      if self.trigger?(VK_DOWN) or (!ignore_numpad && self.trigger?(VK_NUMPAD2)) ; return(2)<br />      elsif self.trigger?(VK_LEFT) or (!ignore_numpad && self.trigger?(VK_NUMPAD4)) ; return(4)<br />      elsif self.trigger?(VK_RIGHT) or (!ignore_numpad && self.trigger?(VK_NUMPAD6)) ; return(6)<br />      elsif self.trigger?(VK_UP) or (!ignore_numpad && self.trigger?(VK_NUMPAD8)) ; return(8)<br />      end<br />    end<br />    0<br />  end<br /> <br />  #============================================================<br />  # VirtualKeys#dir8(type=0, ignore_numpad=false)<br />  #============================================================<br />  def self.dir8(type=0,ignore_numpad=false)<br />    case type<br />    when 0<br />      if (self.press?(VK_DOWN) && self.press?(VK_LEFT)) or \<br />        (!ignore_numpad && (self.press?(VK_NUMPAD2) && self.press?(VK_NUMPAD4))) ; return(1)<br />      elsif (self.press?(VK_DOWN) && self.press?(VK_RIGHT)) or \<br />        (!ignore_numpad && (self.press?(VK_NUMPAD2) && self.press?(VK_NUMPAD6))) ; return(3)<br />      elsif (self.press?(VK_UP) && self.press?(VK_LEFT)) or \<br />        (!ignore_numpad && (self.press?(VK_NUMPAD8) && self.press?(VK_NUMPAD4))) ; return(7)<br />      elsif (self.press?(VK_UP) && self.press?(VK_RIGHT)) or \<br />        (!ignore_numpad && (self.press?(VK_NUMPAD2) && self.press?(VK_NUMPAD6))) ; return(9)<br />      end<br />    when 1<br />      if (self.trigger?(VK_DOWN) && self.trigger?(VK_LEFT)) or \<br />        (!ignore_numpad && (self.trigger?(VK_NUMPAD2) && self.trigger?(VK_NUMPAD4))) ; return(1)<br />      elsif (self.trigger?(VK_DOWN) && self.trigger?(VK_RIGHT)) or \<br />        (!ignore_numpad && (self.trigger?(VK_NUMPAD2) && self.trigger?(VK_NUMPAD6))) ; return(3)<br />      elsif (self.trigger?(VK_UP) && self.trigger?(VK_LEFT)) or \<br />        (!ignore_numpad && (self.trigger?(VK_NUMPAD8) && self.trigger?(VK_NUMPAD4))) ; return(7)<br />      elsif (self.trigger?(VK_UP) && self.trigger?(VK_RIGHT)) or \<br />        (!ignore_numpad && (self.trigger?(VK_NUMPAD2) && self.trigger?(VK_NUMPAD6))) ; return(9)<br />      end<br />    end<br />    self.dir4(type,ignore_numpad)<br />  end<br /> <br />if self.gks(VK_CAPITAL) == 0<br />  $CAPITAL = false<br />else $CAPITAL = true<br />end<br /><br />  #============================================================<br />  # VirtualKeys#get_char()<br />  #============================================================<br />  def self.get_char()<br />    if self.gaks(VK_SPACE) != 0<br />      char = ' '<br />    end<br />    if self.gaks(VK_OEM_7) != 0<br />      case $Acento<br />      when 0<br />        $Acento = 1<br />        $Acento = 2 if self.gaks(VK_SHIFT) != 0<br />        return([true])<br />      when 1<br />        char = "~"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 2<br />        char = "^"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 3<br />        char = "´"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 4<br />        char = "`"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 5<br />        char = "¨"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      end<br />      $Acento = 0 ; return(char)<br />    elsif self.gaks(VK_OEM_4) != 0<br />      case $Acento<br />      when 0<br />        $Acento = 3<br />        $Acento = 4 if self.gaks(VK_SHIFT) != 0<br />        return([true])<br />      when 1<br />        char = "~"<br />        c = "´"<br />        c = "`" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 2<br />        char = "^"<br />        c = "´"<br />        c = "`" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 3<br />        char = "´"<br />        c = "´"<br />        c = "`" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 4<br />        char = "`"<br />        c = "´"<br />        c = "`" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      when 5<br />        char="¨"<br />        c = "~"<br />        c = "^" if self.gaks(VK_SHIFT) != 0<br />        char = [char,c]<br />      end<br />      $Acento = 0 ; return(char)<br />    elsif self.gaks(VK_6) != 0 and self.gaks(VK_SHIFT) != 0<br />      case $Acento<br />      when 0<br />        $Acento = 5<br />        return([true])<br />      when 1<br />        char = "~"<br />        c = "¨"<br />        char = [char,c]<br />      when 2<br />        char = "^"<br />        c = "¨"<br />        char = [char,c]<br />      when 3<br />        char = "´"<br />        c = "¨"<br />        char = [char,c]<br />      when 4<br />        char = "`"<br />        c = "¨"<br />        char = [char,c]<br />      when 5<br />        char = "¨"<br />        c = "¨"<br />        char = [char,c]<br />      end<br />      $Acento = 0 ; return(char)<br />    end<br />    if self.gks(VK_CAPITAL) == 0<br />      $CAPITAL = false<br />    else $CAPITAL = true end<br />    if self.gaks(VK_A) != 0 ; char = 'a'<br />    elsif self.gaks(VK_B) != 0 ; char = 'b'<br />    elsif self.gaks(VK_C) != 0 ; char = 'c'<br />    elsif self.gaks(VK_D) != 0 ; char = 'd'<br />    elsif self.gaks(VK_E) != 0 ; char = 'e'<br />    elsif self.gaks(VK_F) != 0 ; char = 'f'<br />    elsif self.gaks(VK_G) != 0 ; char = 'g'<br />    elsif self.gaks(VK_H) != 0 ; char = 'h'<br />    elsif self.gaks(VK_I) != 0 ; char = 'i'<br />    elsif self.gaks(VK_J) != 0 ; char = 'j'<br />    elsif self.gaks(VK_K) != 0 ; char = 'k'<br />    elsif self.gaks(VK_L) != 0 ; char = 'l'<br />    elsif self.gaks(VK_M) != 0 ; char = 'm'<br />    elsif self.gaks(VK_N) != 0 ; char = 'n'<br />    elsif self.gaks(VK_O) != 0 ; char = 'o'<br />    elsif self.gaks(VK_P) != 0 ; char = 'p'<br />    elsif self.gaks(VK_Q) != 0 ; char = 'q'<br />    elsif self.gaks(VK_R) != 0 ; char = 'r'<br />    elsif self.gaks(VK_S) != 0 ; char = 's'<br />    elsif self.gaks(VK_T) != 0 ; char = 't'<br />    elsif self.gaks(VK_U) != 0 ; char = 'u'<br />    elsif self.gaks(VK_V) != 0 ; char = 'v'<br />    elsif self.gaks(VK_W) != 0 ; char = 'w'<br />    elsif self.gaks(VK_X) != 0 ; char = 'x'   <br />    elsif self.gaks(VK_Y) != 0 ; char = 'y'<br />    elsif self.gaks(VK_Z) != 0 ; char = 'z'<br />    elsif self.gaks(VK_OEM_1) != 0 ; char = 'ç'<br />    elsif (self.gaks(VK_0)!=0) ; char = 0<br />    elsif (self.gaks(VK_1)!=0) ; char = 1<br />    elsif (self.gaks(VK_2)!=0) ; char = 2<br />    elsif (self.gaks(VK_3)!=0) ; char = 3<br />    elsif (self.gaks(VK_4)!=0) ; char = 4<br />    elsif (self.gaks(VK_5)!=0) ; char = 5<br />    elsif (self.gaks(VK_6)!=0) ; char = 6<br />    elsif (self.gaks(VK_7)!=0) ; char = 7<br />    elsif (self.gaks(VK_8)!=0) ; char = 8<br />    elsif (self.gaks(VK_9)!=0) ; char = 9<br />    elsif (self.gaks(VK_NUMPAD0)!=0) ; char = '0'<br />    elsif (self.gaks(VK_NUMPAD1)!=0) ; char = '1'<br />    elsif (self.gaks(VK_NUMPAD2)!=0) ; char = '2'<br />    elsif (self.gaks(VK_NUMPAD3)!=0) ; char = '3'<br />    elsif (self.gaks(VK_NUMPAD4)!=0) ; char = '4'<br />    elsif (self.gaks(VK_NUMPAD5)!=0) ; char = '5'<br />    elsif (self.gaks(VK_NUMPAD6)!=0) ; char = '6'<br />    elsif (self.gaks(VK_NUMPAD7)!=0) ; char = '7'<br />    elsif (self.gaks(VK_NUMPAD8)!=0) ; char = '8'<br />    elsif (self.gaks(VK_NUMPAD9)!=0) ; char = '9'     <br />    elsif (self.gaks(VK_OEM_COMMA)!=0) or (self.gaks(VK_DECIMAL)!=0) ; char = ','<br />    elsif self.gaks(VK_OEM_PERIOD) != 0 ; char = '.'   <br />    elsif self.gaks(VK_OEM_PLUS) != 0 ; char = '='<br />    elsif (self.gaks(VK_OEM_MINUS)!=0) or (self.gaks(VK_SUBTRACT)!=0) ; char = '-'<br />    elsif self.gaks(VK_ABNT_C2) != 0 ; return (['.'])<br />    elsif self.gaks(VK_ADD) != 0 ; return (['+'])<br />    elsif self.gaks(VK_DIVIDE) != 0 ; return (['/'])   <br />    elsif self.gaks(VK_MULTIPLY) != 0 ; return (['*'])<br />    elsif self.gaks(VK_ABNT_C1) != 0 ; char = '/'<br />    elsif self.gaks(VK_OEM_102) != 0 ; char = "\\"<br />    elsif self.gaks(VK_OEM_2) != 0 ; char = ";"<br />    elsif self.gaks(VK_OEM_3) != 0 ; char = "\'"<br />    elsif self.gaks(VK_OEM_5) != 0 ; char = ']'<br />    elsif self.gaks(VK_OEM_6) != 0 ; char = '['<br />    end<br />    if self.gaks(VK_SHIFT) != 0 and char != nil and char.is_a?(Integer) == false<br />      case char<br />      when ',' ;  char = '<'<br />      when '.' ;  char = '>'<br />      when '=' ;  char = '+'<br />      when '-' ;  char = '_'<br />      when "\\" ; char = '|'<br />      when ';' ;  char = ':'<br />      when '/' ;  char = '?'<br />      when "\'" ; char = "\""<br />      when ']' ;  char = '}'<br />      when '[' ;  char = '{'<br />      end<br />    end<br />    if (self.gaks(VK_SHIFT) != 0 or $CAPITAL == true) and char != nil and \<br />      char.is_a?(Integer) == false<br />      char=char.upcase<br />      char='Ç' if char=='ç'<br />    end<br />    if self.gaks(VK_SHIFT) != 0 and char != nil and char.is_a?(Integer) == true<br />      case char<br />      when 0 ; char = ')'<br />      when 1 ; char = '!'<br />      when 2 ; char = '@'<br />      when 3 ; char = '#'<br />      when 4 ; char = '$'<br />      when 5 ; char = '%'<br />      when 7 ; char = '&'<br />      when 8 ; char = '*'<br />      when 9 ; char = '('<br />      end<br />    end<br />    if self.gaks(VK_MENU) != 0 and char != nil and char.is_a?(Integer) == true<br />      case char<br />      when 1 ; char = '¹'<br />      when 2 ; char = '²'<br />      when 3 ; char = '³'<br />      when 4 ; char = '£'<br />      when 5 ; char = '¢'<br />      when 6 ; char = '¬'     <br />      end<br />    end<br />    if self.gaks(VK_MENU) != 0 and char != nil and char.is_a?(Integer) == false<br />      case char<br />      when '/' ; char = '°'<br />      when ']' ; char = 'º'<br />      when '[' ; char = 'ª'<br />      when '=' ; char = '§'<br />      end<br />    end<br />    if $Acento != 0 and char == ' '<br />      case $Acento<br />      when 1 ; char = '~'<br />      when 2 ; char = '^'<br />      when 3 ; char = '´'<br />      when 4 ; char = '`'<br />      when 5 ; char = '¨'<br />      end<br />      $Acento = 0<br />    end<br />    if $Acento != 0 and char =~ /[\w]/i<br />      case $Acento<br />      when 1<br />        if char == 'A' ; char = 'Ã'<br />        elsif char == 'a' ; char = 'ã'<br />        elsif char == 'O' ; char = 'Õ'<br />        elsif char == 'o' ; char = 'õ'<br />        elsif char == 'N' ; char = 'Ñ'<br />        elsif char == 'n' ; char = 'ñ'<br />        end<br />      when 2<br />        if char == 'A' ; char = 'Â'<br />        elsif char == 'a' ; char = 'â'<br />        elsif char == 'E' ; char = 'Ê'<br />        elsif char == 'e' ; char = 'ê'<br />        elsif char == 'I' ; char = 'Î'<br />        elsif char == 'i' ; char = 'î'<br />        elsif char == 'O' ; char = 'Ô'<br />        elsif char == 'o' ; char = 'ô'<br />        elsif char == 'U' ; char = 'Û'<br />        elsif char == 'u' ; char = 'û'<br />        end<br />      when 3<br />        if char == 'A' ; char = 'Á'<br />        elsif char == 'a' ; char = 'á'<br />        elsif char == 'E' ; char = 'É'<br />        elsif char == 'e' ; char = 'é'<br />        elsif char == 'I' ; char = 'Í'<br />        elsif char == 'i' ; char = 'í'<br />        elsif char == 'O' ; char = 'Ó'<br />        elsif char == 'o' ; char = 'ó'<br />        elsif char == 'U' ; char = 'Ú'<br />        elsif char == 'u' ; char = 'ú'<br />        end<br />      when 4<br />        if char == 'A' ; char = 'À'<br />        elsif char == 'a' ; char = 'à'<br />        elsif char == 'E' ; char = 'È'<br />        elsif char == 'e' ; char = 'è'<br />        elsif char == 'I' ; char = 'Ì'<br />        elsif char == 'i' ; char = 'ì'<br />        elsif char == 'O' ; char = 'Ò'<br />        elsif char == 'o' ; char = 'ò'<br />        elsif char == 'U' ; char = 'Ù'<br />        elsif char == 'u' ; char = 'ù'<br />        end<br />      when 5<br />        if char == 'A' ; char = 'Ä'<br />        elsif char == 'a' ; char = 'ä'<br />        elsif char == 'E' ; char = 'Ë'<br />        elsif char == 'e' ; char = 'ë'<br />        elsif char == 'I' ; char = 'Ï'<br />        elsif char == 'i' ; char = 'ï'<br />        elsif char == 'O' ; char = 'Ö'<br />        elsif char == 'o' ; char = 'ö'<br />        elsif char == 'U' ; char = 'Ü'<br />        elsif char == 'u' ; char = 'ü'<br />        end<br />      end<br />      $Acento = 0<br />    elsif $Acento != 0 and char != nil<br />      case $Acento<br />      when 1 ; char = ['~',char]<br />      when 2 ; char = ['^',char]<br />      when 3 ; char = ['´',char]<br />      when 4 ; char = ['`',char]<br />      end<br />      $Acento = 0<br />      return(char)<br />    end<br />    [char]<br />  end<br /><br />end<br /><br /><br />

Créditos e Agradecimentos
Feito por zecomeia
Constantes retiradas/pesquisadas de:
http://msdn.microsoft.com/en-us/library/ms927178.aspx
http://www.kbdedit.com/manual/low_level_vk_list.html

Novidades

noreply@blogger.com (zecomeia) — Mon, 01 Feb 2010 16:47:00 +0000

Interface do blog

O blog sofreu pequenas, mas consideráveis, modificações visuais e na organização.
A organização da sessão "Parceiros" foi mudada, posição das sessões também foram modificadas. E agora na sessão "Menu", para ficar algo mais discreto e compacto, para visualizar os tópicos é preciso expandir o menu clicando no menu desejado.
Também foi adicionados uma sessão para destaques no topo da página, onde serão colocadas imagens com hiperligações para os respectivos itens. Lá serão colocadas, não apenas conteúdo criado aqui no blog, mas também conteúdo alheio que mereça destaque. Sempre que possível essa sessão será atualizada, portanto algumas destaques podem ser tirados para dar lugar a outros.
Fora isto, o restante são apenas consertos na parte visual, mas pouco perceptíveis ainda.
Aos poucos mais atualizações serão feitas com relação a interface do blog.

Parcerias

A mais nova parceria da Colméia do Zé, é o blog Crazy Nero Studio que expõem os trabalhos de Felipe, um gamer mais que amador(humilde, não?) e desenhista.
Com certeza vale a pena conferir os ótimos trabalhos do Nero!

_acesse:
http://crazynerostudio.blogspot.com/

Atualizações e novidade nas sessões de scripts

O script C-3DSR foi atualizado. Alem de consertar alguns Bugs, ele traz algumas novidades sendo a primeira delas pelo nome, que agora se chama C-RS(Colméia - Rotate Sprite).
Confira as novidades nesses scripts no link abaixo.

C-RS(Colméia - Rotate Sprite)

Inaugurando o indíce de scripts para RGSS2, o script C-TT(Colméia - Transition to Teleport) permite adicionar transições de tela ao usar o comando Teletransporte da aba de eventos de forma simples e compacta. Confira!

C-TT(Colméia - Transition to Teleport)

C-TT(Colméia - Transition to Teleport)

noreply@blogger.com (zecomeia) — Sun, 31 Jan 2010 18:27:00 +0000

C-TT(Colméia - Transition to Teleport)
por zecomeia

Introdução

Permite executar uma transição ao teleportar.

Características

configuração de duração e ambiguidade.

Como usar

Instale o script acima de main.

Crie uma pasta com o nome Transitions para os arquivos de transição.

Use o comando chamar script e coloque:

$game_temp.transition = [duração,"nome do arquivo",ambiguidade]

OBS1:O nome do arquivo deve estar entre aspas e não é preciso colocar a extensão do arquivo.
OBS2:Se não quiser usar transição em um teleporte use:

$game_temp.transition = [0,"",0]

Após o chamar script, basta usar o comando de teleporte normalmente.

Demo

Download da demo

Script

#===============================================================<br /># C-TT(Colméia - Transition to Teleport)<br />#---------------------------------------------------------------<br />#by:    zecomeia<br />#date:  28//12/2009<br />#for:   RGSS2<br />#http://colmeia-do-ze.blogspot.com/<br />#---------------------------------------------------------------<br />#Crie uma pasta com o nome Transitions para os arquivos de<br />#transição.<br />#<br />#Use o comando chamar script e coloque:<br />#<br />#$game_temp.transition = [duração,"nome do arquivo",ambiguidade]<br />#<br />#OBS1:O nome do arquivo deve estar entre aspas e não é preciso<br />#colocar a extensão do arquivo.<br />#OBS2:Se não quiser usar transição em um teleporte use:<br />#<br />#$game_temp.transition = [0,"",0]<br />#<br />#Após o chamar script, basta usar o comando de teleporte <br />#normalmente.<br />#===============================================================<br />class Game_Temp<br />  attr_accessor :transition<br />  alias default_initialize initialize<br />  def initialize()<br />    @transition = Array.new<br />    @transition = [0,'',0]<br />    default_initialize()<br />  end<br />end<br />class Scene_Map < Scene_Base<br />  def update_transfer_player<br />    return unless $game_player.transfer?<br />    fade = (Graphics.brightness > 0)    <br />    fadeout(30) if fade and $game_temp.transition[1] == ''<br />    Graphics.freeze<br />    @spriteset.dispose<br />    $game_player.perform_transfer<br />    $game_map.autoplay <br />    $game_map.update<br />    if $game_temp.transition[1] == ''<br />      Graphics.wait(15)<br />    else<br />      #$game_map.interpreter.update<br />      Graphics.transition($game_temp.transition[0], "Graphics/Transitions/"+$game_temp.transition[1],$game_temp.transition[2])<br />    end<br />    @spriteset = Spriteset_Map.new <br />    fadein(30) if fade<br />    Input.update<br />  end<br />end<br />

Créditos e Agradecimentos
Feito por zecomeia

Aviso - Objetos 3D

noreply@blogger.com (zecomeia) — Thu, 31 Dec 2009 11:52:00 +0000

Iniciei um sistema para montagem de "objetos" em 3D apartir de sprites. Ainda está longe de ser terminado, mas estou empolgado com o mesmo. O sistema já teve um bom ponta pé inicial, porém, nada que valha a pena ser mostrado ainda.

Aviso - Atualizações no C-3DSR

noreply@blogger.com (zecomeia) — Thu, 31 Dec 2009 11:47:00 +0000

Talvez alguns sistemas receberam atualizações e/ou consertos. Um deles com certeza será o C-3DSR, que já teve um pequeno bug consertado(erro que acontecia ao resetar o jogo por F12), e também terá uma atualização em suas funções, podendo mudá-lo totalmente ou apenas complementá-lo, mas a idéia continua a mesma, porém melhorada. Nenhuma dessas alterações foram adicionadas ao script no blog, portanto aguardem.

Blog inscrito no top MakersBrasil

noreply@blogger.com (zecomeia) — Tue, 22 Dec 2009 12:29:00 +0000

O blog agora está inscrito no top da MakersBrasil. Então para o pessoal que acompanha o blog e acha que merece um voto, acesse:

C-RS(Colméia - Rotate Sprite)

noreply@blogger.com (zecomeia) — Sun, 20 Dec 2009 19:36:00 +0000

C-RS(Colméia - Rotate Sprite)
por zecomeia

Introdução

Este script é direcionado à scripters, porque adiciona uma função à classe sprite que pode ser usado na criação de scripts.
O efeito que ele oferece é de "rotação 3D" para a imagem. É preciso definir um segundo bitmap alem do padrão(explicações a seguir) que servirá como imagem de verso, ou seja, dará a impressão da imagem ter dois lados.

Características

* Possibilidade de inverter a imagem de verso também;
* Velocidade do "giro" controlável.

atualização 31/01/2010

* O efeito está mais fiel(sem excentricidade, a menos que o usuário queira alterar a propriedade ox2) independente do RPGMaker usado;
* Consertado para pode modificar a posição X, o zoom horizontal e a origem do mapa;
* Consertado o erro que gerava ao reiniciar o jogo(apertar F12);
* Modificação na opção de invertar horizontalmente(agora funciona ao contrário e teve mudança no nome);
* Agora o script não altera a classe Sprite, mas sim cria uma classe chamada Rotate que estende a classe Sprite para evitar de fazer modificações em uma classe importante como essa;

Videos

Como usar

Coloque o script acima de main.

Para que o efeito funcione corretamente é preciso usar o método update.
Também é preciso definir o parâmetro "bitmap2" que recebe um bitmap para a imagem de verso, e definir o parâmetro "ppf", que define a velocidade do "giro". Configure a situação inicial dos parâmetros(se precisar) x2, ox2 e zoom_x2 antes de definir bitmap2 para evitar transtornos com o efeitos no seu primeiro frame.

*OBS: "ppf" = pixels per frame

Demo

Download da demo RMXP
Download da demo RMVX

Script

#======================================<br /># C-RS(Colméia - Rotate Sprite)<br />#--------------------------------------<br />#by:    zecomeia<br />#date:  20/12/2009<br />#for: RGSS and RGSS2<br />#http://colmeia-do-ze.blogspot.com<br />#--------------------------------------<br />=begin<br />updates:<br />------------------------------------------------<br />>>>>>[31/01/2010]<<<<<<br />- Now the script uses the Sprite class as<br />superclass instead of changing it.<br />- The property "not_reverse" now called <br />"mirror2", and its operation is the reverse of <br />what it was.<br />- Added the property "x2", "ox2" and "zoom_x2"<br />to replace the properties "x", "ox" and "zoom_x"<br />because they are used to cause the effect of the<br />script, and thus preventing change them.<br />------------------------------------------------<br /><br />about the script:<br />-------------------------------------------------<br />A class that inherits from the Sprite class that<br />adds the effects of rotation on the images giving<br />the impression the image has depth.<br />-------------------------------------------------<br /><br />manual:<br />---------------------------------------------<br />self.bitmap2: back image for effect.<br />Is a Bitmap object<br /><br />self.mirro2: if true,<br />the back image will be draw flip <br />horizontally, if false(default), not.<br />Is a Boolean type<br /><br />self.ppf: "pixels per frame" define<br />the velocity of the effect.<br />Is a Integer object<br /><br />self.x2 = X coordenate of sprite<br />Is a Integer object<br /><br />self.ox2 = X coordenate of the sprite's origin<br />Is a Integer object<br /><br />self.zoom_x2 = horizontal zoom on the sprite<br />1=100%<br />Is a Integer object<br />----------------------------------------------<br />=end<br />#======================================<br />class Rotate < Sprite<br />  <br />  attr_accessor   :bitmap2<br />  attr_accessor   :mirror2<br />  attr_accessor   :ppf<br />  attr_accessor   :x2<br />  attr_accessor   :ox2<br />  attr_accessor   :zoom_x2<br />  <br />  def initialize(viewport=nil)<br />    @bitmap2 = nil<br />    @mirror2 = false<br />    @ppf = 0<br />    @x2 = 0<br />    @ox2 = 0<br />    @zoom_x2 = 1<br />    @rotate = false<br />    @stage = true<br />    super(viewport)<br />  end<br />  <br />  def bitmap2=(bitmap2)<br />    @bitmap2=bitmap2<br />    self.ox = @ox2 + self.bitmap.width.to_f/2<br />    self.x = @x2 + self.bitmap.width.to_f/2<br />    self.zoom_x = @zoom_x2<br />  end<br /><br />  def update<br />    super<br />    rotate() unless @bitmap2.nil?<br />  end<br /><br />  def rotate()    <br />    @img_front = bitmap if @img_front.nil?    <br />    if self.zoom_x <= 0 && @stage == true<br />      if @rotate == false<br />        @rotate = true<br />        self.mirror = true if @mirror2 == true<br />        self.bitmap = @bitmap2<br />      else<br />        @rotate = false<br />        self.mirror = false if @mirror2 == true<br />        self.bitmap = @img_front<br />      end      <br />      @stage = false<br />    elsif self.zoom_x >= @zoom_x2 && @stage == false<br />      @stage = true<br />    end<br />    self.ox = @ox2 + self.bitmap.width.to_f/2<br />    self.x = @x2 + self.bitmap.width.to_f/2<br />    self.zoom_x-=@ppf/self.bitmap.width.to_f if @stage == true<br />    self.zoom_x+=@ppf/self.bitmap.width.to_f if @stage == false<br />  end<br />  <br />end<br />

Créditos e Agradecimentos

Feito por zecomeia

HUD Totalmente por eventos

noreply@blogger.com (zecomeia) — Sat, 19 Dec 2009 20:05:00 +0000

HUD Totalmente por eventos

Características:

Barra de HP;
Barra de MP;
Barra de EXP;
Barra de EXP para próximo level;
Level do personagem;
Face com nome do personagem;
Estado do herói(evenenado, cego, etc.);
"Level UP!" e "Level Down!".

ScreenShot:

Download:
Clique Aqui(download via 4shared)

Créditos e Agradecimentos:
Aero por fazer as imagens usadas nessa demo
zecomeia por programar o sistema
Thibra pela solução pra facilitar o calculo da barra
Linkei pela dica interessante sobre as barras de experiência e próximo level

Informações sobre como utilizar:
Caso for usar esta HUD do jeito em que está mudando apenas as imagens tenha em mente as seguintes informações sobre cada imagem da mesma(para ajudar use como template as imagens na pasta picture da demo):

10 imagens com os números de 0 a 9(para mostrar o nível do personagem);
1 imagem/icone de "level up" e 1 de "level down";
Icones para mostrar cada estado do herói(envenenado,cego,morto,etc);
Um fundo para a HUD(porque se não nos movimentos de barras,etc, o fundo vai ficar como cenário);
Uma imagem com a face e nome do herói devidamente posicionados(siga o template).Envolto à face não deixe transparente porque as barras poderam aparecer por traz, mas deixe tranparente o resto, se não as barras podem ser cobertas por causa que a face com o nome esta em um layer acima(SIGA O TEMPLATE!).
4 imagens para as barras(pode usar a mesma imagem paras as quatro se preferir).O essencial ao fazer a barra é que ela tenha 100pixeis de comprimento na horizontal(largura,eixo X), já na vertical não importa.
Uma imagem para ser a "capa" HUD, ou seja, estará no layer de maior prioridade, portanto lembre-se de fazer "furos"(deixar transparente) onde estão localizados os outros gráficos se não os mesmo vão ficar cobertos pela capa da HUD e não aparecerão.

Tutorial:
Começando pelas barras
O calculo de todas as barras são muito simples e seguem quase em todos os casos a mesma forma.
Acho que muitos devem conhecer o velho, bom e simples calculo de porcentagem?Então é ele mesmo que foi usado.Lembram que foi dito na descrição das imagens que as barras tem que ter 100pixeis na horizontal?O motivo é deixar a precisão da barra no deslocamento de 1 pixel para cada 1% do estato em questão(HP, MP,etc).Então seria o seguinte:

no caso do HP
variavel_HP = HP do personagem
variavel_HP *= Largura da barra
variavel_HP /= HP maximo do personagem

Após o calculo pegamos o valor da variavel_HP e colocamos como a coordenada X do "mostrar imagem" da barra em questão e, se preciso, somamos um valor a variavel_HP para melhor posiciona-la.

no caso do MP
variavel_MP = MP do personagem
variavel_MP *= Largura da barra
variavel_MP /= MP maximo do personagem

Após o calculo pegamos o valor da variavel_MP e colocamos como a coordenada X do "mostrar imagem" da barra em questão e, se preciso, somamos um valor a variavel_MP para melhor posiciona-la.

Já no caso da experiência, se olhar no controle de variaveis verá que não existe um "EXP max", portanto foi preciso fazer um pré calculo para descobrirmos qual o valor máximo.

[001]EXP_Calc_Bar1 = EXP do personagem
Mudar nível: Todo o grupo +1 nivel

[002]EXP_Calc_Bar4 = EXP do personagem
Mudar nível: Todo o grupo -1 nivel
[003]EXP_Calc_Bar2 = EXP do personagem
[004]EXP_Calc_Bar3 = [003]EXP_Calc_Bar2
[001]EXP_Calc_Bar1 -= [004]EXP_Calc_Bar3
Mudar Experiência: Todo o grupo +[001]EXP_Calc_Bar1
#Comentario: Aqui já começa o simples calculo de porcentagem
[002]EXP_Calc_Bar4 -= [003]EXP_Calc_Bar2
[001]EXP_Calc_Bar1 *= Largura da barra
[001]EXP_Calc_Bar1 /= [002]EXP_Calc_Bar4

*OBS: para a barra de próximo level, faça o mesmo calculo acima porém será acrecentado algo mais. Veja:

[001]EXP_Calc_Bar1 = EXP do personagem
Mudar nível: Todo o grupo +1 nivel

[002]EXP_Calc_Bar4 = EXP do personagem
Mudar nível: Todo o grupo -1 nivel
[003]EXP_Calc_Bar2 = EXP do personagem
[004]EXP_Calc_Bar3 = [003]EXP_Calc_Bar2
[001]EXP_Calc_Bar1 -= [004]EXP_Calc_Bar3
Mudar Experiência: Todo o grupo +[001]EXP_Calc_Bar1
#Comentario: Aqui já começa o simples calculo de porcentagem
[002]EXP_Calc_Bar4 -= [003]EXP_Calc_Bar2
[001]EXP_Calc_Bar1 *= Largura da barra
[001]EXP_Calc_Bar1 /= [002]EXP_Calc_Bar4

Next_exp_bar = [001]EXP_Calc_Bar1
Next_exp_bar += 1
Next_exp_bar *= -1
Next_exp_bar += 1

Após o calculo pegamos o valor da EXP e colocamos como a coordenada X do "mostrar imagem" da barra em questão e, se preciso, somamos um valor a EXP para melhor posiciona-la.

Bem simples agora certo.No meio dos calculos da experiência foi colocado uma instrução dizendo para fazer condições para as habilidades, isso porque se você parar pra pensar perceberá que caso o personagem esteja no level 8 por exemplo, e aprenda uma magia no level 9 então essa magia já será aprendida no level 8 por causa do comando de subir +1 level.Existe outra forma de driblar isso simplesmente aumentando um no level de cada magia que vai ser aprendida no Database do seu jogo, mas aí pode parecer gambiarra alem de possível privação de utilizar o level 99 para aprender uma habilidade, ainda não pensei na possibilidade.Use a imaginação, combine as idéias, talvez poupe seu trabalho fazendo a condição apenas para uma magia no level 99.

DICA:

Usar a barra de experiência e de próximo level na HUD pode ficar meio estranho porque a diferença está apenas na direção que a barra se move, quando uma está no máximo outra está no mínimo e vice versa.Uma idéia proposta por Linkei é fazer a barra de experiência como uma barra total, ou seja, de toda esperiência ganha no jogo sendo que só chegaria ao máximo no ultimo level, enquanto a de próximo level continua no mesmo equema.

O Contador de level
É bem simples fazer este contador também.Como foi dito no começo, são usadas 10 imagens, cada imagem contem um número de 0 a 9.Como o level no database só vai até 99 então faremos um contador de apenas 2 digitos, que são as:

Unidades

Como o no database o level vai até 99(2 digitos) então para pegarmos a casa das unidades pegamos o resto do LV divido por 10.

variavel_LV = Level do personagem
variavel_LV %= 10
variavel_LV(unidades) = variavel_LV

Agora a variável "variavel_LV(unidades)" tem o valor das unidades do level, então basta criar 10 condições onde cada uma verifica se "variavel_LV(unidades)" é igual a um número de 0 a 9, e então no corpo da condição colocamos o comando de mostrar imagem com a imagem do número correspondente(use o mesmo número para todas as imagens).Vamos colocar uma condição na exceção da outra(com exceção da ultima) para amenizar possiveis problemas com lag.

se variavel_LV(unidades) == 0
mostrar imagem(10, "numero0", x, y)
exceção
se variavel_LV(unidades) == 1
mostrar imagem(10, "numero1", x, y)
exceção
se variavel_LV(unidades) == 2
mostrar imagem(10, "numero2", x, y)
exceção
...
...
... até chegar ao 9

Para evitar mais o lag, faça isso dentro da condição de level Up/Down, assim só será analisadas essas condições e executados os eventos quando mudar de level.

Dezenas

É feito da mesma forma das unidades, porem ao invez de pegarmos o resto da divisão por 10, apenas dividimos por, veja:

variavel_LV = Level do personagem
variavel_LV /= 10
variavel_LV(dezenas) = variavel_LV

O resto do procedimento também é o mesmo, basta trocar o número da imagem, a posição(X,Y).

se variavel_LV(dezenas) == 0
mostrar imagem(11, "numero0", x, y)
exceção
se variavel_LV(dezenas) == 1
mostrar imagem(11, "numero1", x, y)
exceção
se variavel_LV(dezenas) == 2
mostrar imagem(11, "numero2", x, y)
exceção
...
...
... até chegar ao 9

Para evitar mais o lag, faça isso dentro da condição de level Up/Down, assim só será analisadas essas condições e executados os eventos quando mudar de level.

Level UP/Level Down
Basicamente existem duas variaveis que ambas contem o valor do level do herói, porém uma é atualizada constantemente ja a outra apenas quando o herói subir/descer o level.Essa pate do sistema é dividido uma parte para o level up e e outra para o level down, a diferença fundamental entre os dois é apenas a primeira condição onde uma comprar se a variavel que é atualizada constantemente é maior que a outra, e no caso do level down a comparação é o inverso, ou seja, é comparado se a variavel constantemente atualizada é menor que a outra.
Fora isso o resto se trata de eventos visuais/audiveis para indicar o level up ou level down.E outra coisa também importante é que são atualizados alguns valores para evitar bugs, etc.

Estados
Essa indiscutivelmente é a parte mais básica desta HUD.Simplesmente é criada uma variavel que vai ser usada para fazermos as condições onde cada condição, em seu corpo, tem um comando para mostrar a imagem do icone do estado na HUD e atribuir aquele estado ao herói.Foram colcadas algumas bobagensinhas a mais como causar "Game Over" quando o personagem chegar a HP=0(estado morto), e antes do game over mudar o gráfico do herói para deixa-lo deitado indicando que está morto.

Aqui acaba a resumida explicação desta HUD, em caso de duvidas/bugs contate sj-pereira@hotmail.com.
***Na demo eu posso ter usado, sem necessidade, variaveis a mais entre outras coisas, isso aconteceu porque teve coisas que passaram despercebidas quando terminei o sistema(coisas de testes)

Blog inaugurado!

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 18:42:00 +0000

Finalmente o blog tem alguma coisa para expor, então está oficialmente inaugurado.
Em breve vou disponibilizar mais conteudo.

T+

BUG do Pulo

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 17:14:00 +0000

BUG do Pulo
por zecomeia

Introdução

Conserta um BUG do comando de pulo. Na verdade é apenas uma trava de segurança, porque no RMVX não existe essa trava que impeça o jogador pular em cima de um tile não passável e ficar preso, ou pular perto dos limites do mapa ultrapassando esses limites também fazendo com que o jogador fique preso. No RMXP a trava impede que o evento de pular aconteça nas situações descritas anteriormente, já com esse script para qualquer um dos doi (RMVX ou RMXP), caso as coordenadas de destino do pulo causem problemas, as mesmas são recauculadas de forma a diminuir a distância do pulo em 1 quadro até ser possível o evento de pulo ser concretizado sem possíveis problemas. Alguns costumam aproveitar deste "BUG" para fazer cut scenes "passando por cima" de tiles não passáveis, pensando nisso o script te dá a opção de ativar ou desativar o script de conserto a qualquer momento.

Características

* Conserta o BUG do pulo do RMVX
* Causa o mesmo efeito para o RMXP, mesmo não havendo BUG

Screenshots

Nenhuma

Como usar

Coloque o script acima de main.

Para deixar o BUG use o código, no comando "chamar script":

$BUGpulo = true

Para retirar o BUG use o código, no comando "chamar script":

$BUGpulo = nil

Sinta-se à vontade para colocar ou tirar o BUG quando quiser.

Demo

Download da demo RMXP
Download da demo RMVX

Script

<br />#========================<br />#BUG do pulo<br />#========================<br />#Autor: zecomeia<br />#Data:  12/11/2009<br />#http://colmeia-do-ze.blogspot.com/<br />#------------------------<br />#Descrição:<br />#Este script impede que o<br />#personagem fique preso<br />#em tiles quando usado<br />#o comando de pulo.<br />#Pensando em quem costuma<br />#usar o comando de pulo<br />#mesmo em lugares não<br />#passáveis existe uma<br />#forma de ligar/desligar<br />#o efeito do script.<br />#Para manter o bug:<br />#$BUGpulo = true<br />#Para retirar o bug:<br />#$BUGpulo = false<br />if $TEST == true or (File.stat("Game.rgss2a").file? rescue false) or<br />  (File.stat("Game.rvproj").file? rescue false)<br />  $PLATFORM = 'VX'<br />elsif $DEBUG == true or (File.stat("Game.rgssad").file? rescue false) or<br />  (File.stat("Game.rxproj").file? rescue false)<br />  $PLATFORM = 'XP'<br />end<br /><br />$BUGpulo = true<br />class Game_Character<br />  def jump(x_plus, y_plus)<br />    unless $BUGpulo == true<br />      if x_plus.abs > y_plus.abs<br />        x_plus < 0 ? turn_left : turn_right<br />      elsif x_plus.abs > y_plus.abs<br />        y_plus < 0 ? turn_up : turn_down<br />      end<br />      until ($PLATFORM.eql?('VX') ? map_passable?(@x + x_plus, @y + y_plus) : passable?(@x + x_plus, @y + y_plus,0))<br />        break if x_plus==0 and y_plus==0<br />        if x_plus > 0<br />          x_plus -= 1<br />        elsif x_plus < 0<br />          x_plus += 1<br />        end<br />        if y_plus > 0<br />          y_plus -= 1<br />        elsif y_plus < 0<br />          y_plus += 1<br />        end<br />      end     <br />      @x += x_plus<br />      @y += y_plus<br />      distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round<br />      @jump_peak = 10 + distance - @move_speed<br />      @jump_count = @jump_peak * 2<br />      @stop_count = 0<br />      straighten<br />    else   <br />      if x_plus.abs > y_plus.abs<br />        x_plus < 0 ? turn_left : turn_right<br />      elsif x_plus.abs > y_plus.abs<br />        y_plus < 0 ? turn_up : turn_down<br />      end<br />      @x += x_plus<br />      @y += y_plus<br />      distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round<br />      @jump_peak = 10 + distance - @move_speed<br />      @jump_count = @jump_peak * 2<br />      @stop_count = 0<br />      straighten<br />    end<br />  end<br />end<br /><br /><br />

Créditos e Agradecimentos

Feito por zecomeia

C-SIZ(Colméia - Show Item Zelda)

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 17:09:00 +0000

C-SIZ(Colméia - Show Item Zelda)

por zecomeia

Introdução

Mostra um item que foi pego igual/parecido ao jogo Zelda de SNES.

Características

Mostra a imagem do icone do item que foi pego
Muda o gráfico do personagem ao pegar o item
Toca uma SE ao pegar o item
Pode ser ligado/desligado, até porque aparecer a animação ao pegar qualquer item pode ficar chato dependendo da jogabilidade do seu jogo.

Screen Shot

Como Usar

Coloque o script acima de main
Veja no script como configurar e configure
Faça o charset do personagem ganhando item(siga o exemplo da demo) e nomeio conforme configurado ao colocar na pasta de charsets.
Coloque o arquivo de audio a ser tocado ao pegar o item, na pasta SE e nomeio como configurado no script
Faça o teste e em caso de dúvida pergunte aqui ou contate sj-pereira@hotmail.com

Para ligar/desligar o efeito use "chamar script" em um evento e use os códigos abaixo:

  #  Para ligar:
  $CSIZ = true
  #  Para desligar:
  $CSIZ = nil

Demo

Download da demo

Script

<br />#=============================================<br /># C-SIZ(Colméia - Show Item Zelda)<br />#---------------------------------------------<br /># por zecomeia<br /># 06/05/2009<br /># update(11/09/2010)<br />#- bug da posição da imagem corrigido<br />#- mudança na forma de ligar/desligar script<br />#---------------------------------------------<br />#Descrição: Mostra o item que foi pego igual<br />#ao jogo Zelda de SNES.<br />#=============================================<br /><br />#====================<br />#   Configuração<br />#====================<br /><br />#Ligar/Desligar(true/nil) o efeito de mostrar o item.<br />$CSIZ = nil #true/nil<br />#OBS:para liga/desligar a função durante o jogo faça um evento com:<br />#  Para ligar:<br />#$CSIZ = true<br />#  Para desligar:<br />#$CSIZ = nil<br />module Config_ItemShowZelda_ZC<br />  #Nome do arquivo do charset do personagem mostrando que ganhou o item.<br />  #O nome colocado abaixo tem que ser adicionado ao nome de arquivo<br />  #do charset original, e não substir sobre o original.<br />  #Ex: zelda.png -> zelda(show_item_zelda).png<br />  #OBS:Uma é p charset normal do personagem e a outra é o charset<br />  #mostrando que ganhou o item.<br />  GRAPHIC_ARQ_NAME = "(show_item)"<br />  #Nome do arquivo de SE que é tocado ao ganhar o item.<br />  SOUND_ARQ_NAME = "LTTP_ItemFanfare"  <br />end<br /> <br />class Window_ItemShow < Window_Base<br /> <br />  #--------------------------------------------------------------------------<br />  # Inicialização dos Objetos<br />  #<br />  #     ator : Objeto<br />  #--------------------------------------------------------------------------<br /> <br />  def initialize(x, y, item)<br />    super(x - 28, y - 88, 64, 72)<br />    self.contents = Bitmap.new(width - 36, height - 36)<br />    self.contents.font.name = $fontface<br />    self.contents.font.size = $fontsize<br />    @item = item<br />    refresh<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Atualizar<br />  #--------------------------------------------------------------------------<br /> <br />  def refresh<br />    self.contents.clear<br />    draw_item_name(@item, 0, 0)<br />  end <br /><br />end<br /><br />class Game_Player < Game_Character<br /> <br />#--Inclusão das configurações--<br />include Config_ItemShowZelda_ZC<br />#------------------------------<br /> <br />  def refresh_gain_object_zelda<br />    # Se o número de membros no Grupo de Heróis for 0<br />    if $game_party.actors.size == 0<br />      # Limpar o nome do arquivo e a tonalidade do Herói<br />      @character_name = ""<br />      @character_hue = 0<br />      # Fim do método<br />      return<br />    end<br />    # Selecionar o Herói líder<br />    actor = $game_party.actors[0]<br />    # Selecionar o nome do arquivo e a tonalidade do Herói<br />    @character_name = actor.character_name + GRAPHIC_ARQ_NAME<br />    @character_hue = actor.character_hue<br />    # Inicializar a opacidade e a sinteticidade<br />    @opacity = 255<br />    @blend_type = 0<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Atualização do Frame<br />  #--------------------------------------------------------------------------<br /> <br />  def update<br />    # Memorizar, se estiver movendo ou não, nas variáveis locais<br />    last_moving = moving?<br />    # Se estiver movendo, um evento ocorrendo, uma rota pré-determinada, ou<br />    # se estiver exibindo uma mensagem<br />    # Mostrar tudo como se não estivessem ocorrendo<br />    unless moving? or $game_system.map_interpreter.running? or<br />           @move_route_forcing or $game_temp.message_window_showing<br />      # Mover o Jogador na direção que o direcional for pressionado<br />    if $wait_itemshow_zelda == 0 <br />       case Input.dir4<br />       when 2<br />         move_down<br />       when 4<br />         move_left<br />       when 6<br />         move_right<br />       when 8<br />         move_up<br />       end<br />     end<br />    end<br />    # Memorizar as coordenadas nas variáveis locais<br />    last_real_x = @real_x<br />    last_real_y = @real_y<br />    super<br />    # Se o Herói for movido para baixo e tenha ficado abaixo do centro da tela<br />    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y<br />      # Rolar o mapa para baixo<br />      $game_map.scroll_down(@real_y - last_real_y)<br />    end<br />    # Se o Herói for movido para a esquerda e tenha ficado a esquerda do centro<br />    # da tela<br />    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X<br />      # Rolar o mapa para a esquerda<br />      $game_map.scroll_left(last_real_x - @real_x)<br />    end<br />    # Se o Herói for movido para a direita e tenha ficado a direita do centro da<br />    # tela<br />    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X<br />      # Rolar o mapa para a direita<br />      $game_map.scroll_right(@real_x - last_real_x)<br />    end<br />    # Se o Herói for movido para cima e tenha ficado acima do centro da tela<br />    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y<br />      # rolar o mapa para cima<br />      $game_map.scroll_up(last_real_y - @real_y)<br />    end<br />    # Se não estiver movendo<br />    unless moving?<br />      # Se o jogador estava se movendo<br />      if last_moving<br />        # Se a determinante de incialização for por toque ou mesma posição<br />        result = check_event_trigger_here([1,2])<br />        # Se o Evento que foi iniciado não existir<br />        if result == false<br />          # Desconsiderar se o Modo de Depuração estiver ON e a tecla Ctrl<br />          # pressionada<br />          unless $DEBUG and Input.press?(Input::CTRL)<br />            # Diminuir 1 do contador de encontros<br />            if @encounter_count > 0<br />              @encounter_count -= 1<br />            end<br />          end<br />        end<br />      end<br />      # Se o botão C for pressionado<br />      if Input.trigger?(Input::C)<br />        # Determinantes de mesma posição e na frente do Evento<br />        check_event_trigger_here([0])<br />        check_event_trigger_there([0,1,2])<br />      end<br />    end<br />  end<br /> <br />end <br /><br />class Game_Party<br /><br />#--Inclusão das configurações--<br />include Config_ItemShowZelda_ZC<br />#------------------------------<br /><br />  #--------------------------------------------------------------------------<br />  # Ganhou ou Perder Itens<br />  #<br />  #     item_id : iD do Item<br />  #     n       : quantidade<br />  #--------------------------------------------------------------------------<br /> <br />  def gain_item(item_id, n)<br />    if $CSIZ == true<br />     $wait_itemshow_zelda = 80<br />     $game_player.turn_down<br />     $game_player.refresh_gain_object_zelda<br />     Audio.se_play("Audio/SE/" + SOUND_ARQ_NAME, 100, 100)<br />     $window_itemshow_zelda = Window_ItemShow.new($game_player.screen_x, $game_player.screen_y, $data_items[item_id]) <br />     $window_itemshow_zelda.opacity = 0<br />    end<br />    # Atualizar a quantidade nesta divisão<br />    if item_id > 0<br />      @items[item_id] = [[item_number(item_id) + n, 0].max, 99].min<br />    end<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Ganhar ou Perder Armas<br />  #<br />  #     weapon_id : ID da Arma<br />  #     n         : quantidade<br />  #--------------------------------------------------------------------------<br /> <br />  def gain_weapon(weapon_id, n)<br />    if $CSIZ == true<br />     $wait_itemshow_zelda = 80<br />     $game_player.turn_down<br />     $game_player.refresh_gain_object_zelda<br />     Audio.se_play("Audio/SE/" + SOUND_ARQ_NAME, 100, 100)<br />     $window_itemshow_zelda = Window_ItemShow.new($game_player.screen_x, $game_player.screen_y, $data_weapons[weapon_id])<br />     $window_itemshow_zelda.opacity = 0<br />    end<br />    # Atualizar a quantidade nesta divisão<br />    if weapon_id > 0<br />      @weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 99].min<br />    end<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Ganhar ou Perder Armaduras<br />  #<br />  #     armor_id : ID da Armadura<br />  #     n        : quantidade<br />  #--------------------------------------------------------------------------<br /> <br />  def gain_armor(armor_id, n)<br />    if $CSIZ == true<br />     $wait_itemshow_zelda = 80<br />     $game_player.turn_down<br />     $game_player.refresh_gain_object_zelda<br />     Audio.se_play("Audio/SE/" + SOUND_ARQ_NAME, 100, 100)<br />     $window_itemshow_zelda = Window_ItemShow.new($game_player.screen_x, $game_player.screen_y, $data_armors[armor_id])<br />     $window_itemshow_zelda.opacity = 0<br />    end<br />    # Atualizar a quantidade nesta divisão<br />    if armor_id > 0<br />      @armors[armor_id] = [[armor_number(armor_id) + n, 0].max, 99].min<br />    end<br />  end<br /> <br />end <br /><br />class Scene_Map<br /> <br />  alias new_main main<br /> <br />  def main<br />    $wait_itemshow_zelda = 0<br />    $window_itemshow_zelda = Window_ItemShow.new($game_player.screen_x, $game_player.screen_y, $data_items[0])<br />    $window_itemshow_zelda.opacity = 0<br />    new_main<br />    $window_itemshow_zelda.dispose<br />  end<br /> <br />  alias new_update update<br /> <br />  def update<br />    if $wait_itemshow_zelda > 0<br />      $game_player.turn_down<br />      $game_player.refresh_gain_object_zelda<br />      $window_itemshow_zelda.visible = true<br />      $wait_itemshow_zelda -= 1<br />    else<br />      $window_itemshow_zelda.visible = false<br />      $game_player.refresh<br />      $wait_itemshow_zelda = 0<br />    end <br />  new_update<br />  end<br /><br />end<br /><br />

Créditos e Agradecimentos
zecomeia

Scene_Logotipo 1.2

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 17:05:00 +0000

Scene_Logotipo 1.2
por zecomeia

Introdução

Mostra uma imagem com efeito de fade in/out na apresentação do jogo(antes da tela de titulo).

Características

configuracão da velocidade do efeito de fade;
configuração de uma tecla para pular a introdução caso desejado.

Screenshots

Não necessita.

Como usar

Instale o script acima de main e procure a linha a seguir no script de main do seu jogo(provavelmente na linha 31):

$scene = Scene_Title.new

e então troque por:

$scene = Scene_Logotipo.new

Mais informações no começo do script.

Demo

Download da demo

Script

<br />#-------------------------------------------------------------<br />#-------------------Scene_Logotipo----------------------------<br />#--------------------versão: 1.2 (RMXP)-----------------------<br />#-------------------------------------------------------------<br />#-por: zecomeia----------------------<br />#-19/12/2008--------------------------------------------------<br />#http://colmeia-do-ze.blogspot.com/<br />#-------------------------------------------------------------<br />#-------------------------------------------------------------<br />#---Mostra uma Logo Marca com efeito Fade, antes do Title-----<br />#-------------------------------------------------------------<br />#-Leia as instruções para instalar o script no final do mesmo-<br />#-------------------------------------------------------------<br /><br /> #--------------------------------------<br /> #---Configurações----------------------<br /> #--------------------------------------<br /><br />module ConfigIntroScene<br />#Defina o nome da imagem que será usada.Lembre-se de coloca-la na pasta picture do projeto<br />  IMAGE_NAME = "logo"<br />#Defina a velocidade do efeito de fade.Nunca coloque zero <br />  SPEED_FADE = 1<br />#Escolha uma tecla que servirá para pular a introdução.A tecla pode ser:<br /># Input::LEFT  Input::UP Input::RIGHT Input::DOWN<br /># Input::SHIFT Input::CTRL Input::ALT<br /># Input::F5 Input::F6 Input::F7 Input::F8 Input::F9<br /># Input::A Input::B Input::C Input::X Input::Y Input::Z Input::L Input::R<br />#OBS:Copie e cole o botão que quiser acima, assim é mais fácil.<br />#Caso não queira que tenha um botão que pule a intro deixe escrito<br /># nil<br />  INPUT_SKIP_INTRO = nil<br />end <br /> <br /> #--------------------------------------<br /> #---Definindo a classe Scene_Logotipo--<br /> #--------------------------------------<br /><br />class Scene_Logotipo<br /> <br />include ConfigIntroScene<br /> <br />  #---------------------------<br />  #--------Main da Classe-----<br />  #---------------------------<br /> <br />  def main<br />        # Se estiver em Teste de Batalha<br />    if $BTEST<br />      battle_test<br />      return<br />    end<br />    # Criação do gráfico da Logo Marca<br />    $data_system = load_data("Data/System.rxdata")<br />    $data_system = Game_System.new<br />    @logo = Sprite.new<br />    @logo.bitmap = RPG::Cache.picture(IMAGE_NAME)<br />    @logo.opacity = 0<br />    @opacity = 0<br />    # Variavel de troca de Fades<br />    fade = 0<br />    # Executa a Transição<br />    Graphics.transition<br />    # Loop principal<br />    loop do<br />      # Atualiza a tela do jogo<br />      Graphics.update<br />      # Atualiza entradas<br />      Input.update<br />      # Reconhece se C foi pressionado<br />      if INPUT_SKIP_INTRO != nil<br />       update<br />      end<br />     <br /> #--------------------------<br /> #---Fade In----------------<br /> #--------------------------<br /> <br />  if fade == 0<br />  @opacity += SPEED_FADE<br />  @logo.opacity = @opacity<br />  if @opacity > 255<br />    fade = 1<br />    end<br /> end<br /> <br /> #--------------------------<br /> #---Fade Out---------------<br /> #--------------------------<br /> <br /> if fade == 1 <br />  @opacity -= SPEED_FADE<br />  @logo.opacity = @opacity<br />  if @opacity < 0<br />     $scene = Scene_Title.new<br />     end<br />   end<br />  # Interrompe os loops de transição de tela<br />      if $scene != self<br />        break<br />      end<br />    end<br />    # Prepara a Transição<br />    Graphics.freeze<br />    # Dispose<br />    @logo.dispose<br />  end<br /> <br />  #---------------------------<br />  #--------Update-------------<br />  #---------------------------<br /> <br />  def update<br />  # Se apertar a tecla C<br />    if Input.trigger?(INPUT_SKIP_INTRO)<br />    # Vai para a Tela de Título<br />      $scene = Scene_Title.new<br />    end<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Teste de Batalha<br />  #--------------------------------------------------------------------------<br /> <br />  def battle_test<br />    # Carregar Banco de Dados para o Teste de Batalha<br />    $data_actors        = load_data("Data/BT_Actors.rxdata")<br />    $data_classes       = load_data("Data/BT_Classes.rxdata")<br />    $data_skills        = load_data("Data/BT_Skills.rxdata")<br />    $data_items         = load_data("Data/BT_Items.rxdata")<br />    $data_weapons       = load_data("Data/BT_Weapons.rxdata")<br />    $data_armors        = load_data("Data/BT_Armors.rxdata")<br />    $data_enemies       = load_data("Data/BT_Enemies.rxdata")<br />    $data_troops        = load_data("Data/BT_Troops.rxdata")<br />    $data_states        = load_data("Data/BT_States.rxdata")<br />    $data_animations    = load_data("Data/BT_Animations.rxdata")<br />    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")<br />    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")<br />    $data_system        = load_data("Data/BT_System.rxdata")<br />    # Aqui o contador de frames é resetado para que se conte o Tempo de Jogo<br />    Graphics.frame_count = 0<br />    # Criar cada tipo de objetos do jogo<br />    $game_temp          = Game_Temp.new<br />    $game_system        = Game_System.new<br />    $game_switches      = Game_Switches.new<br />    $game_variables     = Game_Variables.new<br />    $game_self_switches = Game_SelfSwitches.new<br />    $game_screen        = Game_Screen.new<br />    $game_actors        = Game_Actors.new<br />    $game_party         = Game_Party.new<br />    $game_troop         = Game_Troop.new<br />    $game_map           = Game_Map.new<br />    $game_player        = Game_Player.new<br />    # Configurar Grupo para o Teste de Batalha<br />    $game_party.setup_battle_test_members<br />    # Definir o ID do Grupo de Inimigos, a possibilidade de fuga e o Fundo de<br />    # Batalha<br />    $game_temp.battle_troop_id = $data_system.test_troop_id<br />    $game_temp.battle_can_escape = true<br />    $game_map.battleback_name = $data_system.battleback_name<br />    # Reproduzri SE de início de batalha<br />    $game_system.se_play($data_system.battle_start_se)<br />    # Reproduzir BGM de batalha<br />    $game_system.bgm_play($game_system.battle_bgm)<br />    # Mudar para a tela de batalha<br />    $scene = Scene_Battle.new<br />  end<br />end<br /><br />#------------------------------------------------------------------<br />#---Instalando o Scene_Logotipo------------------------------------<br />#------------------------------------------------------------------<br />#-Apenas cole este script acima de Main.Após feito isso,vá em Main-<br />#e altere a linha n°32 de "$scene = Scene_Scene_Title.new" para----<br />#"$scene = Scene_Scene_Logotipo.new".Agore coloque a imagem de sua-<br />#Logo Marca na pasta system de seu jogo como nome de "logo.png".---<br />#------------------------------------------------------------------<br /><br />

Créditos e Agradecimentos
Feito por zecomeia

C-CPP(Colméia - Change Party Position)

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 17:02:00 +0000

C-CPP(Colméia - Change Party Position)

por zecomeia

Introdução

Com este script o jogador pode trocar a ordem dos personagens do grupo.

Características

trocar ordem dos personagens

Screen Shot

Como Usar

Cole acima de main
Para chamar o script vá em "chamar script" em um evento e coloque:

$scene = Scene_Ordem.new

Demo

Download da demo

Script

<br />#---------------------------------------------------------------<br />#- ChangePartyPosition(Menu de Ordem) --------------------------<br />#- por: zecomeia ------------------------------<br />#- 18/02/2009 --------------------------------------------------<br /># Descrição: Essa opção faz com que o jogador tenha a liberdade<br />#de trocar a posição dos Heróis no grupo. ----------------------<br />#---------------------------------------------------------------<br /><br />class Scene_Ordem<br /> <br />  def main<br />    @status_window = Window_MenuStatus.new<br />    @status_window.x = 72<br />    @status_window.y = 0<br />    @stlock_window = Window_MenuStatus.new<br />    @stlock_window.x = 72<br />    @stlock_window.y = 0<br />    @status_window.active = true<br />    @status_window.index = 0<br />    @stlock_window.active = true<br />    @stlock_window.index = 0<br />    # Criar chaves de controle para escolha dos personagem na troca<br />    @lock_firstchoice = nil<br />    @next_choice = nil<br />    # Executar transição<br />    Graphics.transition<br />    # Loop principal<br />    loop do<br />      # Atualizar a tela de jogo<br />      Graphics.update<br />      # Atualizar a entrada de informações<br />      Input.update<br />      # Atualizar Frame<br />      update<br />      # Abortar loop se a tela for alterada<br />      if $scene != self<br />        break<br />      end<br />    end<br />    # Preparar para transiçõa<br />    Graphics.freeze<br />    # Exibição das janelas<br />    @status_window.dispose<br />    @stlock_window.dispose<br />  end<br /> <br />  def update<br />    @status_window.update<br />    @stlock_window.update<br />    # Se a janela de Status estiver ativa e: call update_status<br />    if @status_window.active and @next_choice != true<br />      update_status<br />      return<br />    end<br />    # Se a segunda escolha da troca de personagens estiver ativa: call comand_ordem<br />    if @next_choice == true <br />      comand_ordem<br />      return<br />    end<br />  end<br /> <br />  #-------------------------------------------------------------<br />  #-- comand_ordem (segunda escolha da troca de posição) -------<br />  #-------------------------------------------------------------<br /> <br />  def comand_ordem<br />    # Se o botão B for pressionado (Cancel)<br />    if Input.trigger?(Input::B)<br />      # Reproduzir SE de cancelamento<br />      $game_system.se_play($data_system.cancel_se)<br />      # Voltar para escolha do primeiro Herói da troca<br />      @stlock_window.active = true<br />      @stlock_window.index = -1<br />      @next_choice = false<br />      @lock_firstchoice = false<br />      return<br />    end<br />    # Se o botão C for pressionado (OK)<br />    if Input.trigger?(Input::C)<br />      # Reproduzir SE de OK<br />      $game_system.se_play($data_system.decision_se)<br />      # Segunda escolha da troca de Heróis<br />      if @status_window.index == 0 #Se for o primeiro do grupo<br />        # Trocar posições dos personagens escolhidos<br />        @second_choice = $game_party.actors[0]<br />        $game_party.actors[0] = $game_party.actors[@first_choice]<br />        $game_party.actors[@first_choice] = @second_choice<br />        # Manter posição do cursor de escolha<br />        @indice_position = 0<br />        # Renovar gráficos<br />        update_ordem<br />      elsif @status_window.index == 1 #Se for o segundo do grupo<br />        # Trocar posições dos personagens escolhidos<br />        @second_choice = $game_party.actors[1]<br />        $game_party.actors[1] = $game_party.actors[@first_choice]<br />        $game_party.actors[@first_choice] = @second_choice<br />        # Manter posição do cursor de escolha<br />        @indice_position = 1<br />        # Renovar gráficos<br />        update_ordem<br />      elsif @status_window.index == 2 #Se for o terceiro do grupo<br />        # Trocar posições dos personagens escolhidos<br />        @second_choice = $game_party.actors[2]<br />        $game_party.actors[2] = $game_party.actors[@first_choice]<br />        $game_party.actors[@first_choice] = @second_choice<br />        # Manter posição do cursor de escolha<br />        @indice_position = 2 <br />        # Renovar gráficos<br />        update_ordem<br />      elsif @status_window.index == 3 #Se for o quarto do grupo<br />        # Trocar posições dos personagens escolhidos<br />        @second_choice = $game_party.actors[3]<br />        $game_party.actors[3] = $game_party.actors[@first_choice]<br />        $game_party.actors[@first_choice] = @second_choice<br />        # Manter posição do cursor de escolha<br />        @indice_position = 3<br />        # Renovar gráficos<br />        update_ordem<br />      end       <br />    end<br />  end<br /> <br />  #-----------------------------------------------------------------------------<br />  #-- update_ordem (renova os gráficos da janela de status e do lider do grupo -<br />  #-----------------------------------------------------------------------------<br /> <br />  def update_ordem<br />        $game_player.refresh<br />        @status_window.dispose<br />        @stlock_window.dispose<br />        @status_window = Window_MenuStatus.new<br />        @stlock_window = Window_MenuStatus.new<br />        @status_window.x = 72<br />        @status_window.y = 0<br />        @stlock_window.x = 72<br />        @stlock_window.y = 0<br />        @stlock_window.active = true<br />        @stlock_window.index = -1<br />        @status_window.active = true<br />        @status_window.index = @indice_position<br />        @next_choice = false<br />        @lock_firstchoice = false<br />        return<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # - Atualização do Frame (Quando o status da Janela estiver Ativo)<br />  #--------------------------------------------------------------------------<br /> <br />  def update_status<br />    # Se o botão B for pressionado<br />    if Input.trigger?(Input::B)<br />      # Reproduzir SE de cancelamento<br />      $game_system.se_play($data_system.cancel_se)<br />      $scene = Scene_Map.new<br />      return<br />    end<br />    # Se o botão C for pressionado<br />    if Input.trigger?(Input::C)<br />        # Reproduzir SE de OK<br />        $game_system.se_play($data_system.decision_se)<br />        # Escolha do primeiro personagem da troca<br />        if @status_window.index == 0 and @lock_firstchoice != true<br />        @first_choice = 0<br />        # Travar um cursor de indicação da primeira escolha<br />        @stlock_window.index = 0<br />        @lock_firstchoice = true <br />        elsif @status_window.index == 1 and @lock_firstchoice != true<br />        @first_choice = 1<br />        # Travar um cursor de indicação da primeira escolha<br />        @stlock_window.index = 1<br />        @lock_firstchoice = true<br />        elsif @status_window.index == 2 and @lock_firstchoice != true<br />        @first_choice = 2<br />        # Travar um cursor de indicação da primeira escolha<br />        @stlock_window.index = 2<br />        @lock_firstchoice = true<br />        elsif @status_window.index == 3 and @lock_firstchoice != true<br />        @first_choice = 3<br />        # Travar um cursor de indicação da primeira escolha<br />        @stlock_window.index = 3<br />        @lock_firstchoice = true <br />        end       <br />        # Trava do cursor da primeira escolha<br />        if @lock_firstchoice == true<br />        @stlock_window.active = false<br />        # Iniciar escolha do segundo personagem na troca<br />        @next_choice = true<br />        end<br />      end<br />      return<br />    end<br />  end<br />

Créditos e Agradecimentos
zecomeia

Horror_Menu 2.0

noreply@blogger.com (zecomeia) — Fri, 18 Dec 2009 16:58:00 +0000

Horror_Menu 2.0
por zecomeia
design aero

Introdução

Scene de Title por imagens com sistema de creditos e extras.O sistema
de creditos e extras simplesmente salva duas variáveis junto ao arquivo
de save e lê todos os arquivos quando o jogo é executado e se essa(as) variaveis
estiverem ligadas liberam sua opção.Existem algumas configurações no script.

Características

Scene de titulo toda por imagens;
Sistema de extras e creditos;

Screenshots

Como usar

Coloque o script acima de main.

Outras instruções no próprio script e na demo.

Demo

Download da demo

Script

<br />#================================================================<br />#             Horror_Menu 2.0<br />#----------------------------------------------------------------<br /># por: zecomeia<br /># data: 13/04/2009<br />#http://colmeia-do-ze.blogspot.com/<br /># Desgin por Aero<br />=begin<br />Explicação:<br />O sistema de extras e creditos que vem com este menu é uito simples de usar.<br />Você pode, por exemplo, abilitar só a opção de extras ou de creditos ou ambas<br />quando chegar em determinada parte do jogo, ou ate mesmo quando<br />acabar o jogo para liberar mini-games, curiosidades, etc.A parte<br />do script fixada no menu lê todos os arquivos de saves para ver se estão<br />ativadas as variavéis que abilitam a opção de extras e/ou creditos.<br />Mas para todo esse sistema funcionar precisa saber utilizar a intrução abaixo:<br /><br />1º No evento em que irá ativar estas opções para o jogador, use o comando<br />"chamar script" do menu de eventos e coloque o script abaixo:<br /><br />$extras_enabled = true #true = abilitar extras - false = desabilitar extras<br />$credits_enabled = true #true = abilitar creditos - false = desabilitar creditos<br />save_infos = Scene_Save.new<br />save_infos.save_extras<br /><br />2º Pronto, não precisa de mais nada.Desta forma são definidos os valores<br />e já são salvos automaticamente.<br /><br />Mas existe a possibilidade de apenas definir o valor e deixe que só sejam salvos<br />quando o jogador salvar o jogo.Para isso basta:<br /><br />1º No evento em que irá ativar estas opções para o jogador, use o comando<br />"chamar script" do menu de eventos e coloque o script abaixo:<br /><br />$extras_enabled = true #true = abilitar extras - false = desabilitar extras<br />$credits_enabled = true #true = abilitar creditos - false = desabilitar creditos<br /><br />2º Pronto.Desta forma os valores foram definidos e só serão salvos quando<br />o jogador o fizer(salvar).<br /><br /><br />Dúvidas visite o Site  www.santuariorpgmaker.com/forum<br />e procure por zecomeia<br /><br />=end<br />#================================================================<br /><br />#================================================================<br />#CONFIGURAÇÕES<br />#================================================================<br />module ConfigExtrasData<br /> # Informações do mapa para opção "Creditos",respectivamente<br /> #"ID do mapa", "Posição inicial X do heroi","Posição inicial Y do heroi"<br /> MapaCredId = 2<br /> MapaCredX = 5<br /> MapaCredY = 5<br /> # Informações do mapa para opção "Extras",respectivamente<br /> #"ID do mapa", "Posição inicial X do heroi","Posição inicial Y do heroi"<br /> MapaExtId = 3<br /> MapaExtX = 6<br /> MapaExtY = 6<br /> #Se por algum motivo não quiser usar o sistema de extras e creditos<br /> # acionaveis no jogo então coloque o valor como true nas variaveis<br /> #abaixo, em qual decidir<br /> CREDITS_ENABLE = false #ou true<br /> EXTRAS_ENABLE = false #ou true<br />end<br />#=====FIM========================================================<br /><br />#==============================================================================<br /># Scene_Title<br />#------------------------------------------------------------------------------<br /># Esta classe trata da Tela de Título<br />#==============================================================================<br /><br />class Scene_Title<br /> <br />  include ConfigExtrasData<br /> <br />  #--------------------------------------------------------------------------<br />  # Processamento Principal<br />  #--------------------------------------------------------------------------<br /> <br />  def main<br />    # Se estiver em Teste de Batalha<br />    if $BTEST<br />      battle_test<br />      return<br />    end<br />    # Carregar o Banco de Dados<br />    $data_actors        = load_data("Data/Actors.rxdata")<br />    $data_classes       = load_data("Data/Classes.rxdata")<br />    $data_skills        = load_data("Data/Skills.rxdata")<br />    $data_items         = load_data("Data/Items.rxdata")<br />    $data_weapons       = load_data("Data/Weapons.rxdata")<br />    $data_armors        = load_data("Data/Armors.rxdata")<br />    $data_enemies       = load_data("Data/Enemies.rxdata")<br />    $data_troops        = load_data("Data/Troops.rxdata")<br />    $data_states        = load_data("Data/States.rxdata")<br />    $data_animations    = load_data("Data/Animations.rxdata")<br />    $data_tilesets      = load_data("Data/Tilesets.rxdata")<br />    $data_common_events = load_data("Data/CommonEvents.rxdata")<br />    $data_system        = load_data("Data/System.rxdata")<br />    # Criar um Sistema<br />    $game_system = Game_System.new<br />    # Verificação de creditos e extras<br />    ext_on = false<br />    cre_on = false<br />    verify = Scene_Load.new<br />    $extras_enabled = false<br />    $credits_enabled = false<br />    for i in 0..3<br />     if FileTest.exist?("Save#{i+1}.rxdata")<br />       filename = "Save#{i+1}.rxdata"<br />       file = File.open(filename, "r")<br />       verify.read_extras_data(file)<br />       if $extras_enabled == true or ext_on == true<br />         ext_on = true<br />         $extras_enabled = true<br />       end<br />       if $credits_enabled == true or cre_on == true<br />         cre_on = true<br />         $credits_enabled = true<br />       end<br />       file.close<br />       ext_on = false<br />       cre_on = false<br />     end<br />    end<br />    if $extras_enabled == nil<br />      $extras_enabled = false<br />    end<br />    if $credits_enabled == nil<br />      $credits_enabled = false<br />    end<br />    # Informações para efeito de confirmação<br />    @oy = 1<br />    @z_x = 1<br />    @z_y = 1<br />    @a = false<br />    @x = 0<br />    @y = 0<br />    #######<br />    # Informações do mapa para opção "Creditos",respectivamente<br />    #"ID do mapa", "Posição inicial X do heroi","Posição inicial Y do heroi"<br />    #***Configure no modulo no inicio do script<br />    @mapa_creditos = MapaCredId<br />    @mapa_creditos_x = MapaCredX<br />    @mapa_creditos_y = MapaCredY<br />    # Informações do mapa para opção "Extras",respectivamente<br />    #"ID do mapa", "Posição inicial X do heroi","Posição inicial Y do heroi"<br />    #***Configure no modulo no inicio do script <br />    @mapa_extras = MapaExtId<br />    @mapa_extras_x = MapaExtX<br />    @mapa_extras_y = MapaExtY<br />    #<br />    #<br />    if CREDITS_ENABLE == true<br />      $credits_enabled = true<br />    end <br />    if EXTRAS_ENABLE == true<br />      $extras_enabled = true<br />    end <br />    #######<br />    # Posição inicial do cursor<br />    @indice = 1<br />    # Abilitação das setas de controle(cima/baixo)<br />    @enable_cursor = true<br />    # Estado dos comandos de efeito da troca de opções<br />    @down_command = false<br />    @up_command = false<br />    # Variaveis que definem a ordem inicial do cursor de opções,<br />    #e que são redefinidas ao lono do script para o funcionamento do script<br />    # Caso não saiba nada de programção não tente alterar estes valores,<br />    #porque precisam ser alterados em outros pontos<br />    @back = "sair"<br />    @main = "novo jogo"<br />    @near = "carregar"<br />    # Criar um Sistema<br />    $game_system = Game_System.new<br />    # Graficos do sistema do menu de titulo<br />    @back_option = Sprite.new<br />    @main_option = Sprite.new<br />    @near_option = Sprite.new<br />    @background = Sprite.new<br />    grafics<br />    @background.x  = 1<br />    @background.oy = 1<br />    # Aqui é checado se existe algum arquivo de save<br />    # Se estiver habilitado, tornar @continue_enabled verdadeiro; se estiver<br />    # desabilitado, tornar falso<br />    $continue_enabled = false<br />    for i in 0..3<br />      if FileTest.exist?("Save#{i+1}.rxdata")<br />        $continue_enabled = true<br />      end<br />    end<br />    # Ativa(true)/Desativa(false) a opção de creditos no menu de titulo<br />    #$credits_enabled = true<br />    # Ativa(true)/Desativa(false) a opção de extras no menu de titulo<br />    #$extras_enabled = true<br />    #OBS:Mesmo desativada a opção continua la, só que com  uma opacidade menor<br />    #para indicar que está desativada, e sua função também não funciona.<br />    ##########################<br />    # Reproduzir BGM de Título<br />    $game_system.bgm_play($data_system.title_bgm)<br />    # Parar de reproduzir BGS e ME<br />    Audio.me_stop<br />    Audio.bgs_stop<br />    # Executar transição<br />    Graphics.transition<br />    # Loop principal<br />    loop do<br />      # Atualizar a tela de jogo<br />      Graphics.update<br />      # Atualizar a entrada de informações<br />      Input.update<br />      # Atualizar o frame<br />      update<br />      # Abortar o loop caso a tela tenha sido alterada<br />      if $scene != self<br />        break<br />      end<br />    end<br />    # Preparar para transição<br />    Graphics.freeze<br />    # Exibir a janela de comandos<br />    @back_option.dispose<br />    @main_option.dispose<br />    @near_option.dispose<br />    # Exibir o gráfico de Título<br />    @background.bitmap.dispose<br />    @background.dispose<br />  end<br /> <br />  #----------------------------------------------------<br />  #-- grafics(define e atualiza os graficos do menu) --<br />  #----------------------------------------------------<br /> <br />  def grafics<br />    back = @back<br />    main = @main<br />    near = @near<br />    @back_option.bitmap = RPG::Cache.picture(back.to_s)<br />    @back_option.x = 50<br />    @back_option.y = 155<br />    @main_option.bitmap = RPG::Cache.picture(main.to_s)<br />    @main_option.x = 50<br />    @main_option.y = 207<br />    @near_option.bitmap = RPG::Cache.picture(near.to_s)<br />    @near_option.x = 50<br />    @near_option.y = 259<br />    @background.bitmap = RPG::Cache.picture("backgrund")<br />  end<br /> <br />  #--------------------------------------------------------------<br />  #-- indice_updt(atualiza os graficos das opções e sua ordem) --<br />  #--------------------------------------------------------------<br /> <br />  def indice_updt<br />    # Atualizar a janela de comandos<br />    case @indice<br />    when 1<br />    @back = "sair"<br />    @main = "novo jogo"<br />    @near = "carregar"<br />    grafics<br />    when 2<br />    @back = "novo jogo"<br />    @main = "carregar"<br />    @near = "extras"<br />    grafics<br />    when 3<br />    @back = "carregar"<br />    @main = "extras"<br />    @near = "creditos"<br />    grafics<br />    when 4<br />    @back = "extras"<br />    @main = "creditos"<br />    @near = "sair"<br />    grafics<br />    when 5<br />    @back = "creditos"<br />    @main = "sair"<br />    @near = "novo jogo"<br />    grafics<br />    end<br />    # Atualiza os gráficos das opções no frame<br />    @back_option.update<br />    @main_option.update<br />    @near_option.update<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Atualização do Frame<br />  #--------------------------------------------------------------------------<br /> <br />  def update<br />    if @zoom_effect == true<br />       @back_option.x = -100<br />       @near_option.x = -100<br />       @x -= 20<br />       @background.x = @x<br />       @y -= 80<br />       @background.y = @y<br />       @z_x += 0.0164 * 20<br />       @background.zoom_x = @z_x<br />       @z_y += 0.0164 * 20<br />       @background.zoom_y = @z_y<br />       @background.opacity -= 15<br />       @main_option.zoom_x += 0.0164 * 20<br />       @main_option.zoom_y += 0.0164 * 20<br />       @main_option.x -= 4<br />       @main_option.y -= 12<br />       if @background.zoom_x >= 0.0164 * 500<br />       @a = true<br />        if @novo_conf == true<br />         command_new_game<br />        elsif @continue_conf == true<br />         command_continue<br />        elsif @credito_conf == true<br />         command_creditos<br />        elsif @extra_conf == true<br />         command_extras<br />        elsif @sair_conf == true<br />         command_shutdown<br />        end<br />       end<br />    end<br />    ########Inicio###################<br />    # Comandos de efeito de deslocamento das imagens de opções<br />    if @down_command == true<br />     @back_option.y += 3<br />     @main_option.y += 3<br />     if @back_option.y > 206 and @main_option.y > 258<br />     @indice -= 1<br />     if @indice < 1<br />        @indice = 5<br />     end<br />     @down_command = false<br />     @enable_cursor = true<br />     indice_updt<br />     end<br />    end<br />    if @up_command == true<br />     @near_option.y -= 3<br />     @main_option.y -= 3<br />     if @near_option.y < 208 and @main_option.y < 156     <br />     @indice += 1<br />     if @indice > 5<br />        @indice = 1<br />     end<br />     @up_command = false<br />     @enable_cursor = true<br />     indice_updt<br />     end<br />    end<br />    #########Fim############<br />    ############Inicio########################<br />    # Reconhecimento de opção ativada/desativada para "Carregar","Extras","Creditos"<br />    # Se estiver desabilitado o texto será mostrado em cinza<br />case @indice<br />when 1<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />    if $continue_enabled == false<br />      @near_option.opacity = 100<br />    end<br />when 2 #########################<br />    if $continue_enabled == false && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 100<br />elsif $continue_enabled == false && $extras_enabled == false && $credits_enabled == true   <br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 100<br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255 <br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == true<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255<br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 100 <br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == true<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 100<br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255 <br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == true <br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />   end<br />when 3 #########################<br />    if $continue_enabled == false && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 100<br />    @main_option.opacity = 100<br />    @near_option.opacity = 100<br />elsif $continue_enabled == false && $extras_enabled == false && $credits_enabled == true   <br />    @back_option.opacity = 100<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255<br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 100<br />    @main_option.opacity = 255<br />    @near_option.opacity = 100 <br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == true<br />    @back_option.opacity = 100<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 100 <br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == true<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255<br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 100 <br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == true <br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />   end<br />when 4 ###########################<br />    if $continue_enabled == false && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 100<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255<br />elsif $continue_enabled == false && $extras_enabled == false && $credits_enabled == true   <br />    @back_option.opacity = 100<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255 <br />elsif $continue_enabled == false && $extras_enabled == true && $credits_enabled == true<br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == false<br />    @back_option.opacity = 100<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255 <br />elsif $continue_enabled == true && $extras_enabled == false && $credits_enabled == true<br />    @back_option.opacity = 100<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == false<br />    @back_option.opacity = 255<br />    @main_option.opacity = 100<br />    @near_option.opacity = 255 <br />elsif $continue_enabled == true && $extras_enabled == true && $credits_enabled == true <br />    @back_option.opacity = 255<br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />   end<br />when 5<br />    @back_option.opacity = 255<br />    if $credits_enabled == false<br />      @back_option.opacity = 100<br />    end <br />    @main_option.opacity = 255<br />    @near_option.opacity = 255<br />end  ######################<br /><br />    ##############Fim####################<br />    # Se o botão C for pressionado<br />    if Input.trigger?(Input::C) and @enable_cursor == true<br />      # ramificação pela posição do cursor<br />      case @indice<br />      when 1  # Novo Jogo<br />        command_new_game<br />      when 2  # Carregar<br />        command_continue<br />      when 3  # Extras<br />        command_extras<br />      when 4  # Creditos<br />        command_creditos<br />      #when 5  # Son<br />       # command_son<br />      when 5  # Sair<br />        command_shutdown<br />      end<br />    end<br />    # Se o botão Down for pressionado<br />    if Input.trigger?(Input::DOWN) and @enable_cursor == true<br />      # Som de deslocamento do cursor (definida na linha abaixo, e não no database)<br />      Audio.se_play("Audio/SE/" + "039-Switch08", 100, 100)<br />      @down_command = true #Iniciar efeito de deslocamento das imagens das opções<br />      @enable_cursor = false #travar movimento de escolha<br />    end <br />    # Se o botão Up for pressionado<br />    if Input.trigger?(Input::UP) and @enable_cursor == true<br />      # Som de deslocamento do cursor (definida na linha abaixo, e não no database)<br />      Audio.se_play("Audio/SE/" + "039-Switch08", 100, 100)<br />      @up_command = true  #Iniciar efeito de deslocamento das imagens das opções<br />      @enable_cursor = false #travar movimento de escolha<br />    end<br />  end<br /> <br /><br /> <br />  #--------------------------------------------------------------------------<br />  # Comando: Novo Jogo<br />  #--------------------------------------------------------------------------<br /> <br />  def command_new_game<br />    if @a == false<br />    # Reproduzir SE de OK (definida na linha abaixo, e não no database)<br />    Audio.se_play("Audio/SE/" + "034-Switch03", 100, 100)<br />    # Parar BGM<br />    Audio.bgm_stop<br />    @zoom_effect = true<br />    @enable_cursor = false<br />    @novo_conf = true<br />    end<br />    if @a == true<br />    # Aqui o contador de frames é resetado para que se conte o Tempo de Jogo<br />    Graphics.frame_count = 0<br />    # Criar cada tipo de objetos do jogo<br />    $game_temp          = Game_Temp.new<br />    $game_system        = Game_System.new<br />    $game_switches      = Game_Switches.new<br />    $game_variables     = Game_Variables.new<br />    $game_self_switches = Game_SelfSwitches.new<br />    $game_screen        = Game_Screen.new<br />    $game_actors        = Game_Actors.new<br />    $game_party         = Game_Party.new<br />    $game_troop         = Game_Troop.new<br />    $game_map           = Game_Map.new<br />    $game_player        = Game_Player.new<br />    # Configurar Grupo Inicial<br />    $game_party.setup_starting_members<br />    # Configurar posição inicial no mapa<br />    $game_map.setup($data_system.start_map_id)<br />    # Aqui o Jogador é movido até a posição inical configurada<br />    $game_player.moveto($data_system.start_x, $data_system.start_y)<br />    # Atualizar Jogador<br />    $game_player.refresh<br />    # Rodar, de acordo com o mapa, a BGM e a BGS<br />    $game_map.autoplay<br />    # Atualizar mapa (executar processos paralelos)<br />    $game_map.update<br />    # Mudar para a tela do mapa<br />    $scene = Scene_Map.new<br />    @zoom_effect = false<br />    end<br />  end<br />  #--------------------------------------------------------------------------<br />  # Comando: Continuar<br />  #--------------------------------------------------------------------------<br /> <br />  def command_continue<br />    # Se Continuar estiver desabilitado<br />    unless $continue_enabled<br />      # Reproduzir SE de erro (definida na linha abaixo, e não no database)<br />       Audio.se_play("Audio/SE/" + "138-Darkness01", 100, 100)<br />      return<br />    end<br />    if @a == false<br />    # Reproduzir SE de OK (definida na linha abaixo, e não no database)<br />    Audio.se_play("Audio/SE/" + "034-Switch03", 100, 100)<br />    @zoom_effect = true<br />    @enable_cursor = false<br />    @continue_conf = true<br />    end<br />    if @a == true<br />    # Mudar para a tela de Carregar arquivos<br />    $scene = Scene_Load.new<br />    @zoom_effect = false<br />    end<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Comando: Extras<br />  #--------------------------------------------------------------------------<br />   <br />  def command_extras# Se Creditos estiver desabilitado<br />    unless $extras_enabled<br />      # Reproduzir SE de erro (definida na linha abaixo, e não no database)<br />      Audio.se_play("Audio/SE/" + "138-Darkness01", 100, 100)<br />      return<br />    end<br />    if @a == false<br />    # Reproduzir SE de OK (definida na linha abaixo, e não no database)<br />    Audio.se_play("Audio/SE/" + "034-Switch03", 100, 100)<br />    # Parar BGM<br />    Audio.bgm_stop<br />    @zoom_effect = true<br />    @enable_cursor = false<br />    @extra_conf = true<br />    end<br />    if @a == true<br />    # Aqui o contador de frames é resetado para que se conte o Tempo de Jogo<br />    Graphics.frame_count = 0<br />    # Criar cada tipo de objetos do jogo<br />    $game_temp          = Game_Temp.new<br />    $game_system        = Game_System.new<br />    $game_switches      = Game_Switches.new<br />    $game_variables     = Game_Variables.new<br />    $game_self_switches = Game_SelfSwitches.new<br />    $game_screen        = Game_Screen.new<br />    $game_actors        = Game_Actors.new<br />    $game_party         = Game_Party.new<br />    $game_troop         = Game_Troop.new<br />    $game_map           = Game_Map.new<br />    $game_player        = Game_Player.new<br />    # Configurar Grupo Inicial<br />    $game_party.setup_starting_members<br />    # Configurar posição inicial no mapa<br />    $game_map.setup(@mapa_extras)<br />    # Aqui o Jogador é movido até a posição inical configurada<br />    $game_player.moveto(@mapa_extras_x , @mapa_extras_y)<br />    # Atualizar Jogador<br />    $game_player.refresh<br />    # Rodar, de acordo com o mapa, a BGM e a BGS<br />    $game_map.autoplay<br />    # Atualizar mapa (executar processos paralelos)<br />    $game_map.update<br />    # Mudar para a tela do mapa<br />    $scene = Scene_Map.new<br />    @zoom_effect = false<br />    end<br />end<br /> <br />  #--------------------------------------------------------------------------<br />  # Comando: Creditos<br />  #--------------------------------------------------------------------------<br /> <br />  def command_creditos<br />    # Se Creditos estiver desabilitado<br />    unless $credits_enabled<br />      # Reproduzir SE de erro (definida na linha abaixo, e não no database)<br />      Audio.se_play("Audio/SE/" + "138-Darkness01", 100, 100)<br />      return<br />    end<br />    if @a == false<br />    # Reproduzir SE de OK (definida na linha abaixo, e não no database)<br />    Audio.se_play("Audio/SE/" + "034-Switch03", 100, 100)<br />    # Parar BGM<br />    Audio.bgm_stop<br />    @zoom_effect = true<br />    @enable_cursor = false<br />    @credito_conf = true<br />    end<br />    if @a == true<br />    # Aqui o contador de frames é resetado para que se conte o Tempo de Jogo<br />    Graphics.frame_count = 0<br />    # Criar cada tipo de objetos do jogo<br />    $game_temp          = Game_Temp.new<br />    $game_system        = Game_System.new<br />    $game_switches      = Game_Switches.new<br />    $game_variables     = Game_Variables.new<br />    $game_self_switches = Game_SelfSwitches.new<br />    $game_screen        = Game_Screen.new<br />    $game_actors        = Game_Actors.new<br />    $game_party         = Game_Party.new<br />    $game_troop         = Game_Troop.new<br />    $game_map           = Game_Map.new<br />    $game_player        = Game_Player.new<br />    # Configurar Grupo Inicial<br />    $game_party.setup_starting_members<br />    # Configurar posição inicial no mapa<br />    $game_map.setup(@mapa_creditos)<br />    # Aqui o Jogador é movido até a posição inical configurada<br />    $game_player.moveto(@mapa_creditos_x , @mapa_creditos_y)<br />    # Atualizar Jogador<br />    $game_player.refresh<br />    # Rodar, de acordo com o mapa, a BGM e a BGS<br />    $game_map.autoplay<br />    # Atualizar mapa (executar processos paralelos)<br />    $game_map.update<br />    # Mudar para a tela do mapa<br />    $scene = Scene_Map.new<br />    @zoom_effect = false<br />    end<br />  end<br /><br />  #--------------------------------------------------------------------------<br />  # Comando: Sair<br />  #--------------------------------------------------------------------------<br /> <br />  def command_shutdown<br />    if @a == false<br />    # Reproduzir SE de OK (definida na linha abaixo, e não no database)<br />    Audio.se_play("Audio/SE/" + "034-Switch03", 100, 100)<br />    @zoom_effect = true<br />    @enable_cursor = false<br />    @sair_conf = true<br />    end<br />    if @a == true<br />    # Diminuir o volume de BGM, BGS e ME<br />    Audio.bgm_fade(800)<br />    Audio.bgs_fade(800)<br />    Audio.me_fade(800)<br />    # Sair<br />    $scene = nil<br />    @zoom_effect = false<br />    end<br />  end<br /> <br />  #--------------------------------------------------------------------------<br />  # Teste de Batalha<br />  #--------------------------------------------------------------------------<br /> <br />  def battle_test<br />    # Carregar Banco de Dados para o Teste de Batalha<br />    $data_actors        = load_data("Data/BT_Actors.rxdata")<br />    $data_classes       = load_data("Data/BT_Classes.rxdata")<br />    $data_skills        = load_data("Data/BT_Skills.rxdata")<br />    $data_items         = load_data("Data/BT_Items.rxdata")<br />    $data_weapons       = load_data("Data/BT_Weapons.rxdata")<br />    $data_armors        = load_data("Data/BT_Armors.rxdata")<br />    $data_enemies       = load_data("Data/BT_Enemies.rxdata")<br />    $data_troops        = load_data("Data/BT_Troops.rxdata")<br />    $data_states        = load_data("Data/BT_States.rxdata")<br />    $data_animations    = load_data("Data/BT_Animations.rxdata")<br />    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")<br />    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")<br />    $data_system        = load_data("Data/BT_System.rxdata")<br />    # Aqui o contador de frames é resetado para que se conte o Tempo de Jogo<br />    Graphics.frame_count = 0<br />    # Criar cada tipo de objetos do jogo<br />    $game_temp          = Game_Temp.new<br />    $game_system        = Game_System.new<br />    $game_switches      = Game_Switches.new<br />    $game_variables     = Game_Variables.new<br />    $game_self_switches = Game_SelfSwitches.new<br />    $game_screen        = Game_Screen.new<br />    $game_actors        = Game_Actors.new<br />    $game_party         = Game_Party.new<br />    $game_troop         = Game_Troop.new<br />    $game_map           = Game_Map.new<br />    $game_player        = Game_Player.new<br />    # Configurar Grupo para o Teste de Batalha<br />    $game_party.setup_battle_test_members<br />    # Definir o ID do Grupo de Inimigos, a possibilidade de fuga e o Fundo de<br />    # Batalha<br />    $game_temp.battle_troop_id = $data_system.test_troop_id<br />    $game_temp.battle_can_escape = true<br />    $game_map.battleback_name = $data_system.battleback_name<br />    # Reproduzri SE de início de batalha<br />    $game_system.se_play($data_system.battle_start_se)<br />    # Reproduzir BGM de batalha<br />    $game_system.bgm_play($game_system.battle_bgm)<br />    # Mudar para a tela de batalha<br />    $scene = Scene_Battle.new<br />  end<br />end<br /><br />#################################################################<br />#################################################################<br />#################################################################<br />#################################################################<br /><br />#===========================================<br /># Scene_Save e Scene_Load (editado)<br />#-------------------------------------------<br /># edição por: zecomeia<br /># 13/04/2009<br /># agradecimentos: br_lemes<br />#-------------------------------------------<br /># Comentario:este é um script bem especifico<br /># portanto tendo mais utilidade para estudo<br /># ou simplesmente para utilizar o menu que<br /># o acompanha.<br />#-------------------------------------------<br /># descrição: Adicionado duas variaveis<br />#globais ao arquivo de Save, com o objetivo<br />#de utiliza-las para habilitar Extras no<br />#jogo.<br />#===========================================<br />=begin<br />Variaveis adicionadas ao save<br />$extras_enabled   <br />$credits_enabled<br /><br />Os metodos acresentados são os seguintes, e com suas respectivas<br />funções:<br /><br />class Scene_Save<br /><br />save_extras <br />#este metodo ao ser chamado pela classe Scene_Save, grava as<br />informações que já são salvadas normalmentes pelo save original<br />e mais a informação das duas variaveis globais citadas, lembrando<br />que usando este metodo será salvado o arquivo por cima do ultimo<br />arquivo escolhido(caso não tenha escolhido nenhum salvará por cima<br />primeiro).<br /><br />write_save_data(file)<br />#na verdade esse metodo ja existe na classe de Scene_Save, mas<br />foi acrescentada a informação das duas variaveis globais citadas<br /><br />class Scene_Load<br /><br />read_extras_data(file)<br />#este metodo foi feito apenas para não necessitar editar o metodo<br />read_save_data(file) original, isso para manter o metodo original<br />da classe Scene_Load com suas caracteristicas intaquitas dando<br />a possibilidade do usuario escolher quando quer que seja lidas as<br />informações das duas variaveis globais adicionais ao inves de ser<br />resgatado o valor de ambas a todo comando de Load.<br /> <br />=end<br /><br />class Scene_Save < Scene_File<br /> <br />  #--------------------------------------------------------------------------<br />  # Gravando<br />  #     file : Gravando um arquivo<br />  #--------------------------------------------------------------------------<br /> <br />  alias copy_write_save_data write_save_data<br />  def write_save_data(file)<br />    copy_write_save_data(file)<br />    Marshal.dump($extras_enabled, file)<br />    Marshal.dump($credits_enabled, file)<br />  end<br /> <br />  def save_extras()<br />    @file_index = $game_temp.last_file_index<br />    filename = make_filename(@file_index)<br />    file = File.open(filename, "wb")<br />    write_save_data(file)<br />    file.close<br />  end<br /> <br />end<br /><br />class Scene_Load < Scene_File<br /> <br />  #--------------------------------------------------------------------------<br />  # Ler Dados do Arquivo<br />  #     file : arquivo que será lido (aberto)<br />  #--------------------------------------------------------------------------<br /> <br />  def read_extras_data(file)<br />    read_save_data(file)<br />    $extras_enabled = Marshal.load(file)<br />    $credits_enabled = Marshal.load(file)<br />  end<br /> <br />end<br />

Créditos e Agradecimentos

Feito por zecomeia
Desenhado por aero
Ajuda indireta de br_lemes