Antilag amélioré (VX)

###############################################################################
############################# PR Coders - AntiLag #############################
###############################################################################
############################# Traduit par Douk ################################
###############################################################################
#==============================================================================
# AntiLag par le groupe PR Coders.
# Seulement copier et utiliser !
#==============================================================================

#===============================================================
#
# www.rpgmakervx-fr.com
#
#===============================================================

# Ajoute le script AntiLag dans la base de données PR Coders
$PRCoders ||= {}
# Active le script Antilag pour desacriver les faux "deixe"
$PRCoders["AntiLag"] = true

if $PRCoders["AntiLag"]

#==============================================================================
# AntiLag
#==============================================================================

module AntiLag

SPC = Win32API.new("kernel32", "SetPriorityClass", "pi", "i")
# Peut fonctionner en haute priorité dans ce jeu ?
@@high_priority = true
# Utiliser AntiLag événements ?
@@event = true

if @@high_priority
SPC.call(-1, 0x80)
else
SPC.call(-1, 0x20)
end
@@cache = {}

#--------------------------------------------------------------------------
# Grande Prioritées ?
#--------------------------------------------------------------------------

def self.high_priority?
return @@high_priority
end

#--------------------------------------------------------------------------
# De haute Priorité
#--------------------------------------------------------------------------

def self.high_priority
return @@high_priority
end

#--------------------------------------------------------------------------
# AntiLag d'Evenement ?
#--------------------------------------------------------------------------

def self.event?
return @@event
end

#--------------------------------------------------------------------------
# AntiLag d'Evenement
#--------------------------------------------------------------------------

def self.event
return @@event
end

#--------------------------------------------------------------------------
# AntiLag d'Evenement = (true / false)
#--------------------------------------------------------------------------

def self.event=(valor)
if valor
@@event = true
else
@@event = false
end
end

#--------------------------------------------------------------------------
# Haute priorité = (true / false)
#--------------------------------------------------------------------------

def self.high_priority=(valor)
return if @@high_priority == valor
if valor
@@high_priority = true
SPC.call(-1, 0x80)
return
end
@@high_priority = false
SPC.call(-1, 0x20)
end

#--------------------------------------------------------------------------
# Largeur de Bitmap
#--------------------------------------------------------------------------

def self.bitmap_width(character_name)
if @@cache[character_name].nil?
bitmap = Cache.character(character_name)
sign = character_name[/^[\!\$]./]
if sign != nil and sign.include?('$')
cw = bitmap.width / 3
ch = bitmap.height / 4
else
cw = bitmap.width / 12
ch = bitmap.height / 8
end
@@cache[character_name] = [cw, ch]
end
return @@cache[character_name][0]
end

#--------------------------------------------------------------------------
# Hauteur de Bitmap
#--------------------------------------------------------------------------

def self.bitmap_height(character_name)
if @@cache[character_name].nil?
bitmap = Cache.character(character_name)
sign = character_name[/^[\!\$]./]
if sign != nil and sign.include?('$')
cw = bitmap.width / 3
ch = bitmap.height / 4
else
cw = bitmap.width / 12
ch = bitmap.height / 8
end
@@cache[character_name] = [cw, ch]
end
return @@cache[character_name][1]
end


end

#==============================================================================
# Game_Character
#==============================================================================

class Game_Character

#--------------------------------------------------------------------------
# Vérifier si elle est sur l'écran (Coordonnée X)
#--------------------------------------------------------------------------

def in_screen_x?(add_x=0)
ax = @x * 256
min_ax = ax
max_ax = ax
if add_x > 0
min_ax = ax - add_x / 2
max_ax = ax + add_x / 2
end
if $game_map.loop_horizontal?
if $game_map.display_x > ($game_map.width - 17) * 256
w = ($game_map.width * 256)
min_x = ($game_map.display_x - 2 * 256) % w
max_x = ($game_map.display_x + 19 * 256) % w
if max_x == 0
max_x = w
end
if min_ax > min_x
return true
end
if max_ax < max_x
return true
end
return false
end
end
return false if (min_ax < $game_map.display_x - 2 * 256)
return false if (max_ax > $game_map.display_x + 19 * 256)
return true
end

#--------------------------------------------------------------------------
# Vérifier si elle est sur l'écran (Coordonnée Y)
#--------------------------------------------------------------------------

def in_screen_y?(add_y=0)
ay = @y * 256
min_ay = ay
max_ay = ay
if add_y > 0
min_ay = ay - add_y
end
if $game_map.loop_vertical?
if $game_map.display_y > ($game_map.height - 13) * 256
h = ($game_map.height * 256)
min_y = ($game_map.display_y - 2 * 256) % h
max_y = ($game_map.display_y + 15 * 256) % h
if max_y == 0
max_y = h
end
if min_ay > min_y
return true
end
if max_ay < max_y
return true
end
return false
end
end
return false if (min_ay < $game_map.display_y - 2 * 256)
return false if (max_ay > $game_map.display_y + 15 * 256)
return true
end

#--------------------------------------------------------------------------
# Est sur l'écran ?
#--------------------------------------------------------------------------

def in_screen?(add_x=0, add_y=0)
return false unless in_screen_x?(add_x)
return false unless in_screen_y?(add_y)
return true
end

#--------------------------------------------------------------------------
# Vérifie si il y a collision avec un événement
#--------------------------------------------------------------------------

def collide_with_screen_characters?(x, y)
for event in $game_map.screen_events_xy(x, y) # ??????????
unless event.through # ???? OFF?
return true if self.is_a?(Game_Event) # ???????
return true if event.priority_type == 1 # ????????
end
end
if @priority_type == 1 # ????????
return true if $game_player.pos_nt?(x, y) # ???????????
return true if $game_map.boat.pos_nt?(x, y) # ?????????
return true if $game_map.ship.pos_nt?(x, y) # ?????????
end
return false
end
#--------------------------------------------------------------------------
# Verifie si c'est traversable
#--------------------------------------------------------------------------

def passable?(x, y)
x = $game_map.round_x(x)
y = $game_map.round_y(y)
return false unless $game_map.valid?(x, y)
return true if @through or debug_through?
return false unless map_passable?(x, y)
if self.in_screen?
return false if collide_with_screen_characters?(x, y)
else
return false if collide_with_characters?(x, y)
end
return true
end

end

#==============================================================================
# Game_Player
#==============================================================================

class Game_Player < Game_Character

#--------------------------------------------------------------------------
# Vérifier s'il ya des événements pour le héros
#--------------------------------------------------------------------------

def check_event_trigger_here(triggers)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.screen_events_xy(@x, @y)
if triggers.include?(event.trigger) and event.priority_type != 1
event.start
result = true if event.starting
end
end
return result
end

#--------------------------------------------------------------------------
# Verifie si il y a des événements en face du héro
#--------------------------------------------------------------------------

def check_event_trigger_there(triggers)
return false if $game_map.interpreter.running?
result = false
front_x = $game_map.x_with_direction(@x, @direction)
front_y = $game_map.y_with_direction(@y, @direction)
for event in $game_map.screen_events_xy(front_x, front_y)
if triggers.include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
if result == false and $game_map.counter?(front_x, front_y)
front_x = $game_map.x_with_direction(front_x, @direction)
front_y = $game_map.y_with_direction(front_y, @direction)
for event in $game_map.screen_events_xy(front_x, front_y)
if triggers.include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
end
return result
end

#--------------------------------------------------------------------------
# Vérifie s'il y a des événements en position X, Y
#--------------------------------------------------------------------------

def check_event_trigger_touch(x, y)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.screen_events_xy(x, y)
if [1,2].include?(event.trigger) and event.priority_type == 1
event.start
result = true
end
end
return result
end

end

#==============================================================================
# Game_Event
#==============================================================================

class Game_Event < Game_Character

#--------------------------------------------------------------------------
# alias
#--------------------------------------------------------------------------

alias pr_coders_antilag_game_event_setup setup

#--------------------------------------------------------------------------
# A l'écran ?
#--------------------------------------------------------------------------

def in_screen?(*args)
return true if @antilag_always_update
if @large_bitmap
return super(AntiLag.bitmap_width(@character_name), AntiLag.bitmap_height(@character_name))
end
return super
end

#--------------------------------------------------------------------------
# Defini une nouvelle page d'evenements
#--------------------------------------------------------------------------

def setup(new_page)
pr_coders_antilag_game_event_setup(new_page)
@large_bitmap = false
@antilag_always_update = false
@antilag_always_update |= (not AntiLag.event?)
@antilag_always_update |= [3, 4].include?(@trigger)
return if @list.nil?
for item in @list
if item.code == 108 or item.code == 408
case item.parameters[0].downcase
when "always_update"
@antilag_always_update |= true
when "large_bitmap"
@large_bitmap = true
end
end
end
end

end

#==============================================================================
# Game_Map
#==============================================================================

class Game_Map

attr_reader :screen_events

#--------------------------------------------------------------------------
# alias
#--------------------------------------------------------------------------

alias pr_coders_antilag_game_map_setup_events setup_events

#--------------------------------------------------------------------------
# Creé les evenements
#--------------------------------------------------------------------------

def setup_events
@screen_events = {}
pr_coders_antilag_game_map_setup_events
end

#--------------------------------------------------------------------------
# Verifie si c'est trasversable
#--------------------------------------------------------------------------

def passable?(x, y, flag = 0x01)
for event in screen_events_xy(x, y) # ???????????????
next if event.tile_id == 0 # ??????????????
next if event.priority_type > 0 # [???????] ????
next if event.through # ??????
pass = @passages[event.tile_id] # ???????
next if pass & 0x10 == 0x10 # [?] : ????????
return true if pass & flag == 0x00 # [?] : ???
return false if pass & flag == flag # [×] : ????
end
for i in [2, 1, 0] # ?????????????
tile_id = @map.data[x, y, i] # ??? ID ???
return false if tile_id == nil # ??? ID ???? : ????
pass = @passages[tile_id] # ???????
next if pass & 0x10 == 0x10 # [?] : ????????
return true if pass & flag == 0x00 # [?] : ???
return false if pass & flag == flag # [×] : ????
end
return false # ????
end

#--------------------------------------------------------------------------
# Events en position X et Y sur l'écran
#--------------------------------------------------------------------------

def screen_events_xy(x, y)
result = []
for event in @screen_events.values
result.push(event) if event.pos?(x, y)
end
return result
end

#--------------------------------------------------------------------------
# Actualise les Evenements
#--------------------------------------------------------------------------

def update_events
@screen_events.clear
for k, event in @events
next unless event.in_screen?
@screen_events[k] = event
event.update
end
for common_event in @common_events.values
common_event.update
end
end

#--------------------------------------------------------------------------
# Actualise les Vehicules
#--------------------------------------------------------------------------

def update_vehicles
for vehicle in @vehicles
next unless vehicle.in_screen?
vehicle.update
end
end

end

#==============================================================================
# Spriteset_Map
#==============================================================================

class Spriteset_Map

#--------------------------------------------------------------------------
# Actualise les Chara
#--------------------------------------------------------------------------

def update_characters
for sprite in @character_sprites
next if sprite.character.nil?
next unless sprite.character.in_screen?
sprite.update
end
end

end

end