View difference between Paste ID: HWFLuSPt and Ffyc62ij
SHOW: | | - or go back to the newest paste.
1
#==============================================================================
2
# • Mostrar Coordenadas
3
#==============================================================================
4
# Autor: Dax
5
# Versão: 1.0
6
# Site: www.dax-soft.weebly.com
7
# Requerimento: Dax Core
8
#==============================================================================
9
# • Descrição:
10
#------------------------------------------------------------------------------
11
#  Mostra as coordenadas do mapa de um determinado lugar. Útil para os eventers
12
# que querem saber as coordenadas(X, Y) para disporem suas imagens em certos 
13
# lugares. Para ativar e simples, basta apertar com o botão do centro do Mouse
14
# em um deteminado lugar.. Após isso uma mensagem irá aparecer informando as
15
# coordenadas, com as opções: Sim,Não. Caso clique 'Sim' irá salvar
16
# as informações das coordenadas em um arquivo de texto.
17
#==============================================================================
18
Dax.register :show_coord, "Dax", 1.0, "16/04/14"
19
#==============================================================================
20
# • Módulo.
21
#==============================================================================
22
module Show_Coord
23
  extend self
24
  #----------------------------------------------------------------------------
25
  # • Executar.
26
  #----------------------------------------------------------------------------
27
  def run
28
    return unless $TEST
29
    trigger?(0x04) {
30-
      handle = API::FindWindow.call('RGSS Player', load_data("./Data/System.rvdata2").game_title.to_s)
30+
31-
      switche = Win32API.new("user32", "MessageBox", "lppl", "l").call(handle, "Coord: (x #{Mouse.x}, y: #{Mouse.y}).\nSalvar coordenadas?", "Show Coords", 
31+
      format = API::MessageBox::YESNO + API::MessageBox::ICONINFORMATION
32-
       0x00000004 + 0x00000010)
32+
      case(API::MessageBox.call("Show Coords","Coord: (x #{Mouse.x}, y: #{Mouse.y}).\nSalvar coordenadas?", format))
33-
      case(switche)
33+
      when(API::MessageBox::YES)
34-
      when(6) 
34+
35
        coord.close
36
        return
37-
      when(7) then(coord.close; return) # Sair.
37+
      when(API::MessageBox::NO) then(coord.close; return)
38
      end
39
    }
40
  end
41
end
42
#==============================================================================
43
# • Scene_Map.
44
#==============================================================================
45
class Scene_Map
46
  #----------------------------------------------------------------------------
47
  # • Atualização dos objetos.
48
  #----------------------------------------------------------------------------
49
  alias :show_coord_update :update
50
  def update
51
    show_coord_update
52
    Show_Coord.run
53
  end
54
end