Maker Palace

¡El Reino del RpgMaker y del Ocio!
 
ÍndiceBuscarGrupos de UsuariosScriptsRecursosTutorialesPalaceJuegosPalaceWikiFAQRegistrarseConectarse
Conectarse
Nombre de Usuario:
Contraseña:
Entrar automáticamente en cada visita: 
:: Recuperar mi contraseña
Temas similares
Buscar
 
 

Resultados por:
 
Rechercher Búsqueda avanzada
Últimos temas
» Reparación de Conjuros
por kyonides-arkanthos Jue Oct 12, 2017 12:22 am

» Screenshot del nuevo KUnits XP oon menú
por LinkLuis55 Sáb Sep 23, 2017 10:03 pm

» Dando una vuelta por acá
por LinkLuis55 Dom Ago 20, 2017 2:56 pm

» Heroes del Crimen 2 DEMO
por jasuso Mar Ago 01, 2017 12:04 am

» The Legend of Celestia II: A World of Twilight Shadows Demo
por Jlopez_96 Vie Jul 28, 2017 6:20 pm

» The Legend of Celestia: Four Cristals
por Jlopez_96 Mar Abr 25, 2017 4:59 pm

» [VXAce] Burando Doragon
por gantzer49 Dom Abr 23, 2017 7:43 pm

Recomendados
RPG en RPG Maker
La importancia de un Backup
Que requiere un sistema de Batalla para ser exitoso
9 Minutos de Juegos por fans
Guía de Subforos para Tontos de Maker Palace
Indice de Scripts Locales XP
Falcao Pearl ABS Liquid
¿Quién está en línea?
En total hay 10 usuarios en línea: 0 Registrados, 0 Ocultos y 10 Invitados :: 2 Motores de búsqueda

Ninguno

La mayor cantidad de usuarios en línea fue 179 el Mar Ago 30, 2011 10:06 pm.
MiniChat
Mejores posteadores
Raiden (3346)
 
DaviX (2740)
 
Frikilangelo (2461)
 
SagahonArturo (1806)
 
Falcao (1775)
 
kyonides-arkanthos (1768)
 
Mur-mai-der (1755)
 
Ares (1613)
 
LinkLuis55 (1558)
 
Webmaster24 (1354)
 
Afiliados
Crear foro Mundo Maker Foro de anime y RM2k3/XP/VX Computer mix
Flag Counter
free counters
Visitas


Comparte | 
 

 KSnapShooter - Tomar fotos (Beta 1)

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
kyonides-arkanthos
Lord Guru Maker
Lord Guru Maker
avatar

Cantidad de envíos : 1768
Miembro desde : 03/02/2010
Sexo : Masculino

Maker : RMXP


MensajeTema: KSnapShooter - Tomar fotos (Beta 1)   Miér Sep 22, 2010 10:26 pm

KSnapShooter
por Kyonides-Arkanthos

basado en aportes de otros scripters cuyos nombres siguen sin confirmarse

He aquí una nueva versión para tomar fotos al mapa cuya finalidad es simplemente esa y nada más. Aún no tiene un álbum de fotos ni la opción de borrar fotos que parezcan innecesarias o repetidas, pero ya estoy pensando en eso también y tal vez incorpore dichas opciones en nuevas versiones del script.

Las imágenes se guardan en Graphics/Snapshots.

Aquí está el...

DLL necesario

...para tomar los screenshots (subido a un servidor por cortesía de cj). Desconozco quién compiló el dll.

KSnapShooter
Código:
#  KSnapShooter
#    script modification by Kyonides-Arkanthos
#    original scripters: several scripters (need to verify their names)
#    version 1.0.0 - beta 1 - 2010.09.22

#    This version doesn't save shots in BMP format on purpose.

#    Take snapshots by pressing F5 or BUTTONS array first option
#    Delete them by pressing F6 or BUTTONS array second option

#    SHOTSMAX Constant is the maximum number of snapshots you can take

#    TO DO: Make a new Delete Snapshots Scene
module Snap
  BUTTONS = [Input::F5, Input::F6]
  DIR = 'Graphics/Snapshots/'
  SHOTSMAX = 6 # Don't take more than x snapshots, warn the user
  NOTFOUND = 'No has tomado ninguna foto aún...'
  WARNING = "No tienes espacio en tu album para colocar\nmás fotos!"
  DELETE = 'Deseas remover alguna foto de tu album?'
  OPTIONS = "\nRemover la(s) foto(s)\nDejarlo tal y como está"
  @size, @choice = 0, -1
  @getprofile = 'GetPrivateProfileStringA'
  @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
  @readini = Win32API.new 'kernel32', @getprofile, %w(p p p p l p), 'l'
  @active_window = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'
  def self.shot(name, type=1)
    case type
    when 1, :jpg, :jpeg; ext = '.jpg'
    when 2, :png; ext = '.png'
    end
    @screen.call 0, 0, 640, 480, DIR + name + ext, handle, type
  end

  def self.handle
    game = "\0" * 256
    @readini.call 'Game', 'Title', '', game, 255, '.\\Game.ini'
    game.delete! "\0"
    @active_window.call('RGSS Player', game)
  end

  def self.shots=(size) @size = size end

  def self.shots; @size end

  def self.choice=(value) @choice = value end

  def self.choice; @choice end
end

class Scene_Map
  alias kyon_snap_scn_map_update update
  def update
    if Input.trigger?(Snap::BUTTONS[0])
      $game_player.straighten
      Snap.shots = Dir.glob(Snap::DIR+'Picture*').size
      Snap.shot("Picture #{Snap.shots+1}", 2) if Snap.shots < Snap::SHOTSMAX
      show_message(Snap::WARNING)
    elsif Input.trigger?(Snap::BUTTONS[1])
      Snap.shots = Dir.glob(Snap::DIR+'Picture*').size
      show_message(Snap.shots > 0 ? Snap::DELETE : Snap::NOTFOUND)
    elsif Snap.choice == 0
      $scene, Snap.choice = Scene_Skill.new, -1
    end
    kyon_snap_scn_map_update
  end

  def show_message(text)
    snapshots_found = (Snap.shots >= Snap::SHOTSMAX or Snap.shots == 0)
    $game_temp.message_window_showing = snapshots_found
    return if !$game_temp.message_window_showing
    message_waiting = true
    $game_temp.message_proc = Proc.new {message_waiting = false}
    $game_temp.message_text = text.dup # Bug Fix
    return if $game_temp.message_text != Snap::DELETE
    $game_temp.choice_start, $game_temp.choice_max = 1, 2
    $game_temp.message_text += Snap::OPTIONS.dup
    $game_temp.choice_cancel_type = 2
    $game_temp.choice_proc = Proc.new {|n| Snap.choice = n}
  end
end

class Scene_Title
  Dir.mkdir 'Graphics/Snapshots' if !File.exist? 'Graphics/Snapshots'
end
Volver arriba Ir abajo
Ver perfil de usuario http://deloquesea.mforos.com/forums/
carlosjavierr
Paladín Pro
Paladín Pro
avatar

Cantidad de envíos : 804
Miembro desde : 08/01/2010
Edad : 26
Localización : Venezuela
Sexo : Masculino

Maker : RMXP


MensajeTema: Re: KSnapShooter - Tomar fotos (Beta 1)   Jue Sep 23, 2010 3:35 am

El dll lo conseguí buscándolo por google... Bueno probé el script y si preciono f5 de inmediato me dice que no tengo espacio se crea la carpeta de snapshot pero ya... bueno es beta jeje
Volver arriba Ir abajo
Ver perfil de usuario http://makercomunity.fororama.com
kyonides-arkanthos
Lord Guru Maker
Lord Guru Maker
avatar

Cantidad de envíos : 1768
Miembro desde : 03/02/2010
Sexo : Masculino

Maker : RMXP


MensajeTema: Re: KSnapShooter - Tomar fotos (Beta 1)   Jue Sep 23, 2010 6:51 pm

En realidad ya he publicado el beta 2 pero no aquí... Me dio pereza publicarlo tantas veces en tantos lados...
Volver arriba Ir abajo
Ver perfil de usuario http://deloquesea.mforos.com/forums/
Contenido patrocinado




MensajeTema: Re: KSnapShooter - Tomar fotos (Beta 1)   

Volver arriba Ir abajo
 
KSnapShooter - Tomar fotos (Beta 1)
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» HAGEN DE MERAK BETA
» Fotos de Collecciones
» Fotos Editor
» Fotos PCM
» Fotos de Autos Clásicos 2

Permisos de este foro:No puedes responder a temas en este foro.
Maker Palace :: RGSS Scripts :: Scripts Maker XP-
Cambiar a: