1 Resultado encontrado para ------------------------------------------------------------------------------

#==============================================================================
# Vampyr Janua Sagitta
#==============================================================================

# Put this comment on events: Door Index Direction X+ Y+

#------------------------------------------------------------------------------
Vampyr_Kernel.register("Janua Sagitta", "0.1", "11/16/2010")
#------------------------------------------------------------------------------
class Game_Map

 alias vjs_gmap_refresh refresh

 def refresh
   setup_doors_arrows
   vjs_gmap_refresh
   refresh_doors_arrows
 end

 def setup_doors_arrows
   @doors_arrows = {}
   for a in events.values.compact
     next if a.list == nil
     for b in a.list.compact
       next unless (b.code == 108 or b.code == 408) and b.parameters[0] =~ /door/i
       @doors_arrows[a.id] = a.page
     end
   end
 end

 def refresh_doors_arrows
   refresh_doors = false
   for a in events.values.compact
     next if a.list == nil
     for b in a.list.compact
       next unless (b.code == 108 or b.code == 408) and b.parameters[0] =~ /door/i and
       @doors_arrows[a.id] != a.page
       refresh_doors = true
     end
   end
   if refresh_doors and $scene.is_a?(Scene_Map)
     $scene.refresh_doors_arrows
   end
 end

end

#------------------------------------------------------------------------------
class Sprite_Arrow < Sprite_Base

 attr_reader :character

 def initialize(viewport, character, data)
   super(viewport)
   self.bitmap = Bitmap.new(32, 32)
   @character = character
   @ox = 0
   @oy = 0
   refresh(data)
   self.ox = self.bitmap.width/2
   self.oy = self.bitmap.height/2
 end

 def refresh(data)
   self.bitmap.clear
   @data = data
   index = (@data[3] <= 0 ? 1 : @data[3])
   bitmap = Cache.system("Arrow ##{index}")
   self.bitmap.blt(0, 0, bitmap, bitmap.rect)
   @data[2] = 2 if @data[2] <= 0
   case @data[2]
     when 2; self.angle = 0
     when 4; self.angle = -90
     when 6; self.angle = 90
     when 8; self.angle = 180
   end
   update
 end

 def update
   super
   if &#36;game_player.in_range?(@character, 5)
     self.visible = true
   else
     self.visible = false
   end
   return unless self.visible
   update_opacity
   self.x = screen_x - plus_x
   self.y = screen_y - plus_y
   self.z = @character.screen_z
   self.blend_type = @character.blend_type
   self.bush_depth = @character.bush_depth
 end

 def update_opacity
   if self.opacity <= distance_opacity and @blink
     @blink = false
   elsif self.opacity >= distance_opacity and !@blink
     @blink = true
   end
   if self.opacity > distance_opacity and @blink
     self.opacity -= 5
   elsif self.opacity < distance_opacity and !@blink
     self.opacity += 5
   end
 end

 def screen_x
   return (&#36;game_map.adjust_x(@data[0]*256) + 8007) / 8 - 1000 + 16
 end

 def screen_y
   return (&#36;game_map.adjust_y(@data[1]*256) + 8007) / 8 - 1000 + 16
 end

 def plus_x
   return 0 if @data[2] == 2 or @data[2] == 8
   if @ox >= 10 and !@max_x
     @max_x = true
   elsif @ox <= 0 and @max_x
     @max_x = false
   end
   if @ox < 10 and !@max_x
     @ox += 0.25
   elsif @ox > 0 and @max_x
     @ox -= 0.25
   end
   return @ox
 end

 def plus_y
   return 0 if @data[2] == 4 or @data[2] == 6
   if @oy >= 10 and !@max_y
     @max_y = true
   elsif @oy <= 0 and @max_y
     @max_y = false
   end
   if @oy < 10 and !@max_y
     @oy += 0.25
   elsif @oy > 0 and @max_y
     @oy -= 0.25
   end
   return @oy
 end

 def distance_opacity
   if &#36;game_player.in_range?(@character, 2) and !&#36;game_player.transparent
     return 255
   elsif &#36;game_player.in_range?(@character, 3) and !&#36;game_player.transparent
     return 255/3*3
   elsif &#36;game_player.in_range?(@character, 4) and !&#36;game_player.transparent
     return 255/3*2
   elsif &#36;game_player.in_range?(@character, 5) and !&#36;game_player.transparent
     return 255/3
   else
     return 0
   end
 end

end

#------------------------------------------------------------------------------
class Spriteset_Map

 alias vampyr_trace_spmap_create_characters create_characters
 alias vampyr_trace_spmap_update_characters update_characters
 alias vampyr_trace_spmap_dispose_characters dispose_characters

 def create_characters
   vampyr_trace_spmap_create_characters
   create_doors_arrows
 end

 def create_doors_arrows
   @arrows_sprites = []
   for event in &#36;game_map.events.values.compact
     next if event.list == nil
     for i in event.list
       next unless (i.code == 108 or i.code == 408) and i.parameters[0] =~ /door/i
       param = i.parameters[0].split(" ")
       data = event.x+param[3].to_i, event.y+param[4].to_i, param[2].to_i, param[1].to_i
       @arrows_sprites.push(Sprite_Arrow.new(@viewport1, event, data))
     end
   end
 end

 def update_characters
   vampyr_trace_spmap_update_characters
   for sprite in @arrows_sprites.compact
     next unless &#36;game_map.in_range?(sprite.character)
     sprite.update
   end
 end

 def dispose_characters
   vampyr_trace_spmap_dispose_characters
   @arrows_sprites.compact.each { |i| i.dispose }
 end

 def refresh_doors_arrows
   @arrows_sprites.compact.each { |i| i.dispose }
   create_doors_arrows
 end

end

#------------------------------------------------------------------------------
class Scene_Map < Scene_Base

 def refresh_doors_arrows
   @spriteset.refresh_doors_arrows if @spriteset != nil
 end

end

#==============================================================================
# Vampyr Jump
#==============================================================================
Vampyr_Kernel.register("Vampyr Jump", 1.0, "09/01/2009")
#------------------------------------------------------------------------------
Jump_Key = Keys: # Key used to jump

Jump_Far_When_Dashing = true # Jump far when dashing? (true = yes/ false = no)

Jump_Distance = 2 # Range (in tiles) that hero jump

Jump_Dash_Distance = 3 # Range of jump when player is dashing

Jump_Dash_SE = "Dog" # SE playerd when jump far

Jump_Item = 15 # Item needed to jump (keep 0 if item is not necessary)

Jump_Switch = 0 # Switch needed to jump (keep 0 if switch is not necessary)

#------------------------------------------------------------------------------
class Game_Map

 def jump_passable?(x, y, flag = 0x01)
   for event in events_xy(x, y)
     return false if event.priority_type == 1
   end
   passable?(x, y, flag)
 end

end

#------------------------------------------------------------------------------
class Game_Player < Game_Character

 alias vampyr_jump_initialize initialize
 alias vampyr_jump_update update

 def initialize
   vampyr_jump_initialize
   @jump_delay = 0
 end

 def update
   vampyr_jump_update
   @jump_delay -= 1 if @jump_delay > 0
   update_jumping if jumpable?
 end

 def update_jumping
   return unless Input.trigger?(Jump_Key) and @jump_delay <= 0
   if Input.press?(Input::DOWN)     ; jumping(2)
   elsif Input.press?(Input::LEFT)  ; jumping(4)
   elsif Input.press?(Input::RIGHT) ; jumping(6)
   elsif Input.press?(Input::UP)    ; jumping(8)
   else                             ; jumping(0)
   end
   @jump_delay = 30
 end

 def jumping(dir)
   spaces = []
   distance = ((dash? and Jump_Far_When_Dashing) ? Jump_Dash_Distance : Jump_Distance)
   if dash? and Jump_Far_When_Dashing and Jump_Dash_SE != ""
     RPG::SE.new(Jump_Dash_SE, 80).play
   end
   case dir
   when 0
     jump(0, 0)
   when 2
     for i in 0...distance+1
       spaces << i if &#36;game_map.jump_passable?(@x, @y+i)
     end
     jump(0, spaces.max)
   when 4
     for i in 0...distance+1
       spaces << i if &#36;game_map.jump_passable?(@x-i, @y)
     end
     jump(-spaces.max, 0)
   when 6
     for i in 0...distance+1
       spaces << i if &#36;game_map.jump_passable?(@x+i, @y)
     end
     jump(spaces.max, 0)
   when 8
     for i in 0...distance+1
       spaces << i if &#36;game_map.jump_passable?(@x, @y-i)
     end
     jump(0, -spaces.max)
   end
 end

 def jumpable?
   return false if &#36;game_map.interpreter.running?
   return false if Vampyr_Kernel.enabled?("Vampyr Transformations") and @bat_form
   return false if Vampyr_Kernel.enabled?("Vampyr Transformations") and @mist_form
   return false if Vampyr_Kernel.enabled?("Vampyr Transformations") and @mouse_form
   return false if Vampyr_Kernel.enabled?("Vampyr Horror") and @sucking
   return false if Jump_Item > 0 and !&#36;game_party.has_item?(&#36;data_items[Jump_Item])
   return false if Jump_Switch > 0 and !&#36;game_switches[Jump_Switch]
   return true
 end

end

#==============================================================================
# Vampyr Kernel 1.5
#==============================================================================
# This module is necessary to activate and enhance compatibility of all Vampyr's Scripts
#------------------------------------------------------------------------------
module Vampyr_Kernel

 @scripts = {}
 @warnings = {}

 Print_Errors = false

 def self.register(scr&#105;pt, version, date)
   @scripts[scr&#105;pt] = [version, date]
 end

 def self.enabled?(scr&#105;pt, version=nil)
   if @scripts.has_key?(scr&#105;pt)
     if version.nil?
       return true
     elsif @scripts[scr&#105;pt][0] >= version
       return true
     else
       if @warnings[scr&#105;pt].nil? and Print_Errors
         print "'#{scr&#105;pt}' is obsolete.\r\nSome functions won't work correctly"
         @warnings[scr&#105;pt] = ["is obsolete"]
         self.write_log
       end
       return false
     end
   else
     if &#36;TEST and @warnings[scr&#105;pt].nil? and Print_Errors
       print "Unable to find scr&#105;pt '#{scr&#105;pt}' or it is placed in wrong place.\r\nSome functions won't work correctly"
       @warnings[scr&#105;pt] = ["Unable to find"]
       self.write_log
     end
     return false
   end
 end

 def self.show_scripts(alert=true)
   list = "Vampyr Scripts [#{@scripts.size}]:\r\n\r\n"
   @scripts.each { |key, value| list += "#{key.gsub("Vampyr ", "")}  #{value[0]}  #{value[1]}\r\n" }
   list += "\r\nWarnings:\r\n" if @warnings != {}
   @warnings.each { |key, value| list += "#{key} #{value}\r\n" }
   return print list if alert
   return list
 end

 def self.write_log
   file = File.new("Vampyr_Log-#{Time.now.strftime("%m_%d_%Y")}.txt", "wb")
   file.write(self.show_scripts(false))
   file.close
 end

end

#------------------------------------------------------------------------------
class Object

 def to_b
   return true if self == "true"
   return true if self.to_i > 0
   return false
 end

 def getw
   bitmap = Bitmap.new(1, 1)
   size = bitmap.text_size(self.to_s).width
   bitmap.dispose
   return size
 end

 def to_rgb
   x = self.delete("#").scan(/../).map { |i| i.to_i(16) }
   return Color.new(x[0].to_f, x[1].to_f, x[2].to_f)
 end

 def number?
   return true unless self.scan(/\d/).empty?
   return false
 end

 def transform
   return self.to_i if self.number?
   return self.to_s
 end

end

#------------------------------------------------------------------------------
class Sprite

 def draw_icon(index, x, y, o=255)
   bitmap = Cache.system("Iconset")
   rect = Rect.new(index%16*24, index/16*24, 24, 24)
   self.bitmap.blt(x, y, bitmap, rect, o)
 end

end

#------------------------------------------------------------------------------
class Color

 def self.index(i)
   return Cache.system("Window").get_pixel(64+(i%8)*8, 96+(i/8)*8)
 end

 def self.get(x, y)
   return Cache.system("Window").get_pixel(x, y)
 end

end

#------------------------------------------------------------------------------
class Bitmap

 def draw_outlined_text(*args)
   if args[0].is_a?(Rect)
     x = args[0].x
     y = args[0].y
     w = args[0].width
     h = args[0].height
     s = args[1]
     a = (args[2].nil? ? 0 : args[2])
   else
     x = args[0]; y = args[1]
     w = args[2]; h = args[3]
     s = args[4]
     a = (args[5].nil? ? 0 : args[5])
   end
   font.shadow = false
   color = font.color.clone
   font.color = Color.new(0,0,0)
   draw_text(x-1, y-1, w, h, s, a)
   draw_text(x+1, y-1, w, h, s, a)
   draw_text(x-1, y+1, w, h, s, a)
   draw_text(x+1, y+1, w, h, s, a)
   font.color = color
   draw_text(x, y, w, h, s, a)
 end

end

#------------------------------------------------------------------------------
class Game_Map

 def in_range?(object)
   return true if object.is_a?(Game_Event) and object.comment_exists?("Force Update")
   return false if object.real_x < (@display_x-(256*3))
   return false if object.real_x > (@display_x+((Graphics.width/32*256)+(256*3)))
   return false if object.real_y < (@display_y-(256*3))
   return false if object.real_y > (@display_y+((Graphics.height/32*256)+(256*3)))
   return true
 end

 def update_events
   for event in @events.values
     if in_range?(event) or event.trigger >= 3 or event.comment_exists?("Forse Update")
       event.update
     end
   end
   for common_event in @common_events.values
     common_event.update
   end
 end

 def name
   return load_data("Data/MapInfos.rvdata")[@map_id].name
 end

end

#------------------------------------------------------------------------------
class Game_Character

 attr_accessor :character_name
 attr_accessor :character_index
 attr_accessor :move_type
 attr_accessor :move_route
 attr_accessor :direction_fix
 attr_accessor :walk_anime
 attr_accessor :step_anime
 attr_accessor :through
 attr_accessor :pattern
 attr_accessor :direction
 attr_accessor :bush_depth
 attr_accessor :blend_type
 attr_accessor :opacity
 attr_accessor :move_speed
 attr_accessor :priority_type
 attr_accessor :width
 attr_accessor :height

 def in_range?(target, range)
   x = (@x - target.x) * (@x - target.x)
   y = (@y - target.y) * (@y - target.y)
   return true if (x + y) <= (range * range)
   return false
 end

 def in_front?(target)
   return true if @direction == 2 and @x == target.x and (@y+1) == target.y
   return true if @direction == 4 and (@x-1) == target.x and @y == target.y
   return true if @direction == 6 and (@x+1) == target.x and @y == target.y
   return true if @direction == 8 and @x == target.x and (@y-1) == target.y
   return false
 end

 def in_direction?(target)
   return true if @direction == 2 and target.y >= @y and target.x == @x
   return true if @direction == 4 and target.x <= @x and target.y == @y
   return true if @direction == 6 and target.x >= @x and target.y == @y
   return true if @direction == 8 and target.y <= @y and target.x == @x
   return false
 end

 def in_behind?(target)
   return true if @direction == 2 and @x == target.x and @y < target.y
   return true if @direction == 4 and @x > target.x and @y == target.y
   return true if @direction == 6 and @x < target.x and @y == target.y
   return true if @direction == 8 and @x == target.x and @y > target.y
   return false
 end

 def in_beside?(target)
   return true if target.direction == 2 and @direction == 4 and target.x == (@x-1) and target.y == @y
   return true if target.direction == 2 and @direction == 6 and target.x == (@x+1) and target.y == @y
   return true if target.direction == 4 and @direction == 2 and target.x == @x and target.y == (@y+1)
   return true if target.direction == 4 and @direction == 8 and target.x == @x and target.y == (@y-1)
   return true if target.direction == 6 and @direction == 2 and target.x == @x and target.y == (@y+1)
   return true if target.direction == 6 and @direction == 8 and target.x == @x and target.y == (@y-1)
   return true if target.direction == 8 and @direction == 4 and target.x == (@x-1) and target.y == @y
   return true if target.direction == 8 and @direction == 6 and target.x == (@x+1) and target.y == @y
   return false
 end

 def face_to_face?(target)
   return true if @direction == 2 and target.direction == 8
   return true if @direction == 4 and target.direction == 6
   return true if @direction == 6 and target.direction == 4
   return true if @direction == 8 and target.direction == 2
   return false
 end

 def over?(target)
   return true if @x == target.x and @y == target.y
   return false
 end

 def jump_to(x, y)
   xx = (x < @x ? -(@x-x) : x > @x ? x-@x : 0)
   yy = (y < @y ? -(@y-y) : y > @y ? y-@y : 0)
   jump(xx, yy)
 end

 def move_toward(*params)
   if params[0].is_a?(Numeric)
     x = params[0]
     y = params[1]
   else
     x = params[0].x
     y = params[0].y
   end
   sx = distance_x(x)
   sy = distance_y(y)
   if sx != 0 or sy != 0
     if sx.abs > sy.abs
       sx > 0 ? move_left : move_right
       if @move_failed and sy != 0
         sy > 0 ? move_up : move_down
       end
     else
       sy > 0 ? move_up : move_down
       if @move_failed and sx != 0
         sx > 0 ? move_left : move_right
       end
     end
   end
 end

 def move_type_toward(target)
   case rand(6)
     when 0..3; move_toward(target)
     when 4;    move_random
     when 5;    move_forward
   end
 end

 def move_away_from(*params)
   if params[0].is_a?(Numeric)
     x = params[0]
     y = params[1]
   else
     x = params[0].x
     y = params[0].y
   end
   sx = distance_x(x)
   sy = distance_y(y)
   if sx != 0 or sy != 0
     if sx.abs > sy.abs
       sx > 0 ? move_right : move_left
       if @move_failed and sy != 0
         sy > 0 ? move_down : move_up
       end
     else
       sy > 0 ? move_down : move_up
       if @move_failed and sx != 0
         sx > 0 ? move_right : move_left
       end
     end
   end
 end

 def turn_toward(*params)
   if params[0].is_a?(Numeric)
     x = params[0]
     y = params[1]
   else
     x = params[0].x
     y = params[0].y
   end
   sx = distance_x(x)
   sy = distance_y(y)
   if sx.abs > sy.abs
     sx > 0 ? turn_left : turn_right
   elsif sx.abs < sy.abs
     sy > 0 ? turn_up : turn_down
   end
 end

 def distance_x(x)
   sx = @x - x
   if &#36;game_map.loop_horizontal?
     if sx.abs > &#36;game_map.width / 2
       sx -= &#36;game_map.width
     end
   end
   return sx
 end

 def distance_y(y)
   sy = @y - y
   if &#36;game_map.loop_vertical?
     if sy.abs > &#36;game_map.height / 2
       sy -= &#36;game_map.height
     end
   end
   return sy
 end

 def animation_id=(i)
   @animation_id = (i < 0 ? 1 : i)
 end

 def check_event_trigger_touch(x, y)
 end

end

#------------------------------------------------------------------------------
class Game_Event < Game_Character

 attr_reader :id

 def name
   return @event.name
 end

 def check_comment(param)
   return nil if @list == nil or @list.size <= 0
   for item in @list
     next unless item.code == 108 or item.code == 408
     if item.parameters[0] =~ /#{param} (.*)/i
       return &#36;1.to_s
     end
   end
   return nil
 end

 def comment_exists?(param)
   return false if @list == nil or @list.size <= 0
   for item in @list
     if item.code == 108 or item.code == 408
       if item.parameters[0] =~ /#{param}/i
         return true
       end
     end
   end
   return false
 end

end

#------------------------------------------------------------------------------
class Game_Interpreter

 attr_reader :id

 alias vampyr_kernel_ginterpreter_setup setup

 def setup(list, event_id = 0)
   vampyr_kernel_ginterpreter_setup(list, event_id)
   @id = @original_event_id
 end

 def self_event
   return &#36;game_map.events[@id]
 end

 def selfswitch(switch, status=nil, event_id=@id)
   key = [&#36;game_map.map_id, event_id, switch]
   if status == nil
     &#36;game_self_switches[key] = !&#36;game_self_switches[key]
   else
     &#36;game_self_switches[key] = status
   end
   &#36;game_map.need_refresh = true
 end

end

#------------------------------------------------------------------------------
class Sprite_Character < Sprite_Base

 alias vampyr_kernel_spchar_update_bitmap update_bitmap

 def update_bitmap
   vampyr_kernel_spchar_update_bitmap
   @character.width = @cw if @character.width != @cw
   @character.height = @ch if @character.height != @ch
 end

end

#------------------------------------------------------------------------------
Win32API.new("kernel32", "SetPriorityClass", "pi", "i").call(-1, 0x80)