如何在战斗中改变战斗背景 - Project1

# 仴仯仴 No108. 僶僩儖僶僢僋丒Full-View亄壜摦僇儊儔仴仯仴
#
# update 2006/ 4/16
#
#==============================================================================
# 仩僇僗僞儅僀僘億僀儞僩
#==============================================================================
module XRXS_BP8
#
# 僇儊儔堏摦懍搙
# ( SPEED1 : 嫍棧暘妱悢丅彫偝偄傎偳憗偄
# SPEED2 : 嵟掅堏摦懍搙[扨埵:px/F])
#
SPEED1 = 8
SPEED2 = 8
#
# GA偺墶暆僒僀僘傪愝掕 ( 1024:XGA僒僀僘丄640:VGA僒僀僘)
#
GA_W = 1024
end
#------------------------------------------------------------------------------
# 仱壜摦僇儊儔偺摦偒愝掕
#------------------------------------------------------------------------------
class Scene_Battle
#--------------------------------------------------------------------------
# 仠僷乕僥傿僐儅儞僪僼僃乕僘奐巒
#--------------------------------------------------------------------------
alias xrxs_bp8_start_phase2 start_phase2
def start_phase2
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 屇傃栠偡
xrxs_bp8_start_phase2
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (傾僋僞乕僐儅儞僪僼僃乕僘 : 僄僱儈乕慖戰)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase3_enemy_select update_phase3_enemy_select
def update_phase3_enemy_select
# 尰嵼慖戰拞偺僄僱儈乕傪庢摼
enemy = $game_troop.enemies[@enemy_arrow.index]
# 僇儊儔丗拲栚
if @last_enemy_arrow != enemy
$xcam.watch(enemy)
@last_enemy_arrow = enemy
end
# 栠偡
xrxs_bp8_update_phase3_enemy_select
end
#--------------------------------------------------------------------------
# 仠僄僱儈乕慖戰廔椆
#--------------------------------------------------------------------------
alias xrxs_bp8_end_enemy_select end_enemy_select
def end_enemy_select
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
@last_enemy_arrow = nil
# 屇傃栠偡
xrxs_bp8_end_enemy_select
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (儊僀儞僼僃乕僘僗僥僢僾 2 : 傾僋僔儑儞奐巒)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase4_step2 update_phase4_step2
def update_phase4_step2
# 栠偡
xrxs_bp8_update_phase4_step2
# 僗僥僢僾 3 偵堏峴偡傞梊掕偺応崌
if @phase4_step == 3
# 傾僋僥傿僽側僶僩儔乕偑僶僩儖僼傿乕儖僪偵嫃傞応崌
if @active_battler.in_battlefield?
# 僇儊儔丗拲栚
$xcam.watch(@active_battler)
end
end
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (儊僀儞僼僃乕僘僗僥僢僾 3 : 峴摦懁傾僯儊乕僔儑儞)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase4_step3 update_phase4_step3
def update_phase4_step3
# 栠偡
xrxs_bp8_update_phase4_step3
# 僇儊儔僞乕僎僢僩偲側傝偆傞僞乕僎僢僩偺 X 暯嬒抣傪寁嶼
x_average = 0
number = 0
cam_target = nil
for target in @target_battlers
if target.in_battlefield?
x_average += target.x
number += 1
cam_target = target
end
end
# 僇儊儔僞乕僎僢僩偑尒偮偐偭偨応崌
if number > 0
# 傕偟懳徾傾僯儊偑乽埵抲丗夋柺乿偺応崌
animation = $data_animations[@animation2_id]
if animation != nil and animation.position == 3
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 僇儊儔丗僘乕儉傾僂僩
$xcam.zoomout
elsif number == 1
# 僇儊儔丗拲栚
$xcam.watch(cam_target)
else
# 僇儊儔丗巜掕 X 埵抲傪拲栚
$xcam.watch_at(x_average / number)
end
end
end
#--------------------------------------------------------------------------
# 仠傾僼僞乕僶僩儖僼僃乕僘奐巒
#--------------------------------------------------------------------------
alias xrxs_bp8_start_phase5 start_phase5
def start_phase5
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 屇傃栠偡
xrxs_bp8_start_phase5
end
end
#------------------------------------------------------------------------------
# 僇僗僞儅僀僘億僀儞僩偙偙傑偱
#==============================================================================
#------------------------------------------------------------------------------
#
# 仱壜摦僇儊儔僔僗僥儉仱
#
#==============================================================================
# 仩 XCam
#------------------------------------------------------------------------------
# 壜摦僇儊儔傪埖偆僋儔僗偱偡丅
#==============================================================================
class XCam
#--------------------------------------------------------------------------
# 仜岞奐僀儞僗僞儞僗曄悢
#--------------------------------------------------------------------------
attr_reader :x
attr_reader :y
attr_reader :z
attr_accessor :x_destination
attr_accessor :y_destination
attr_accessor :z_destination
attr_accessor :watch_battler
attr_accessor :freeze_count
#--------------------------------------------------------------------------
# 仜僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
def initialize
# 僇儊儔弶婜埵抲寛掕
@x = 320
@y = 240
@z = 296
# 嵟戝斖埻偺寁嶼
@x_max = 0
@y_max = 0
@z_max = XRXS_BP8::GA_W * 37 / 128
# Z偺嵟戝惂尷
@z = @z_max if @z > @z_max
# 僇儊儔丗僙儞僞儕儞僌
self.centering
# 弶婜壔
@freeze_count = 0
end
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴
#--------------------------------------------------------------------------
def update
@moved = false
# 僇儊儔埵抲偺峏怴
if @freeze_count > 0
# 僼儕乕僘僇僂儞僩傪尭傜偡
@freeze_count -= 1
return
end
# 嵗昗庢摼
z_dest = @z_destination
x_dest = @watch_battler == nil ? @x_destination : @watch_battler.x
y_dest = @watch_battler == nil ? @y_destination : 88 + @watch_battler.y/2
# 僇儊儔: Z 嵗昗 (桪愭)
if @z != z_dest
@z = slide(@z, z_dest, @z_speed, 37, @z_max)
@x_max = (@z_max - @z) * 64 / 37
@y_max = (@z_max - @z) * 48 / 37
@moved = true
end
# 僇儊儔: X 嵗昗
if @x != x_dest or @moved
@x = slide(@x, x_dest, @x_speed, 320 - @x_max, 320 + @x_max)
@moved = true
end
# 僇儊儔: Y 嵗昗
if @y != y_dest or @moved
@y = slide(@y, y_dest, @y_speed, 240 - @y_max, 240 + @y_max)
@moved = true
end
end
#--------------------------------------------------------------------------
# 仜僗儔僀僪 (尰嵼抧丒栚揑抧偐傜峴偔傋偒尰嵼抧傪曉偡)
#--------------------------------------------------------------------------
def slide(from, to, move_speed, to_min, to_max)
# 寢壥傪敾暿
if (to - from).abs < move_speed
result = to
else
sign = from > to ? -1 : 1
result = from + sign * move_speed
end
# 斖埻偵傛偭偰曉媝
return [[result, to_min].max, to_max].min
end
#--------------------------------------------------------------------------
# 仜摦偄偨偐偳偆偐丠
#--------------------------------------------------------------------------
def moved?
return @moved
end
#--------------------------------------------------------------------------
# 仜僇儊儔懍搙愝掕
#--------------------------------------------------------------------------
def set_speed
x_dest = @watch_battler == nil ? @x_destination : @watch_battler.x
y_dest = @watch_battler == nil ? @y_destination : 88 + @watch_battler.y/2
z_dest = @z_destination
@x_speed = [[(x_dest - @x).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
@y_speed = [[(y_dest - @y).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
@z_speed = [[(z_dest - @z).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
end
#--------------------------------------------------------------------------
# 仜僙儞僞儕儞僌
#--------------------------------------------------------------------------
def centering
@watch_battler = nil
@x_destination = 320
@y_destination = 240
@z_destination = 185
set_speed
end
#--------------------------------------------------------------------------
# 仜僘乕儉傾僂僩
#--------------------------------------------------------------------------
def zoomout
@z_destination = 222
set_speed
end
#--------------------------------------------------------------------------
# 仜僶僩儔乕傪拲栚
#--------------------------------------------------------------------------
def watch(battler)
@watch_battler = battler
@z_destination = 180
set_speed
end
#--------------------------------------------------------------------------
# 仜巜掕 X 埵抲傪拲栚
#--------------------------------------------------------------------------
def watch_at(x)
@watch_battler = nil
@x_destination = x
@y_destination = 240
@z_destination = 185
set_speed
end
#--------------------------------------------------------------------------
# 仜僘乕儉攞棪偺庢摼
#--------------------------------------------------------------------------
def zoom
return 185.00 / self.z
end
end
#==============================================================================
# 仭 Game_Battler
#==============================================================================
class Game_Battler
#--------------------------------------------------------------------------
# 仜岞奐僀儞僗僞儞僗曄悢
#--------------------------------------------------------------------------
attr_reader :x # 僶僩儖僼傿乕儖僪丂墶丂埵抲(+偑塃丂)
attr_reader :y # 僶僩儖僼傿乕儖僪崅偝埵抲(+偑壓丂)
attr_reader :z # 僶僩儖僼傿乕儖僪墱峴偒埵抲(+偑庤慜)
#--------------------------------------------------------------------------
# 仜僶僩儖僼傿乕儖僪忋偵嫃傞偐丠
#--------------------------------------------------------------------------
def in_battlefield?
return false
end
end
#==============================================================================
# 仭 Game_Enemy
#==============================================================================
class Game_Enemy < Game_Battler
#--------------------------------------------------------------------------
# 仜僶僩儖僼傿乕儖僪忋偵嫃傞偐丠 [僆乕僶乕儔僀僪]
#--------------------------------------------------------------------------
def in_battlefield?
return true
end
#--------------------------------------------------------------------------
# 仠僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
alias xrxs_bp8_initialize initialize
def initialize(troop_id, member_index)
@z = 0
xrxs_bp8_initialize(troop_id, member_index)
end
#--------------------------------------------------------------------------
# 仠僶僩儖夋柺 X 嵗昗偺庢摼
#--------------------------------------------------------------------------
alias x screen_x
def screen_x
return self.x if $xcam == nil
return 320 + (self.x - $xcam.x) * 185 / $xcam.z
end
#--------------------------------------------------------------------------
# 仠僶僩儖夋柺 Y 嵗昗偺庢摼
#--------------------------------------------------------------------------
alias y screen_y
def screen_y
return self.y if $xcam == nil
return 240 + (self.y - $xcam.y) * 185 / $xcam.z
end
end
#==============================================================================
# 仭 Spriteset_Battle
#==============================================================================
class Spriteset_Battle
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴 (壜摦僇儊儔)
#--------------------------------------------------------------------------
def update_xcam
# 僇儊儔埵抲偑摦偄偨応崌
if $xcam.moved?
# 僇儊儔埵抲偐傜僘乕儉棪傪寁嶼
zoom = 185.00 / $xcam.z
w = XRXS_BP8::GA_W / 2
h = w * 3 / 4
# 攚宨偺愝掕峏怴
@battleback_sprite.zoom_x = zoom
@battleback_sprite.zoom_y = zoom
@battleback_sprite.x = (320 - $xcam.x) * zoom - w * (zoom - 1)
@battleback_sprite.y = (240 - $xcam.y) * zoom - h * (zoom - 1)
end
end
end
#==============================================================================
# --- 僶僩儔乕僗僾儔僀僩丒壜摦僇儊儔揔梡 ---
#==============================================================================
module XRXS_Cam_Deal
def update
# 屇傃栠偡
super
# 僶僩儔乕偑僶僩儖僼傿乕儖僪偵偄側偄応崌偼廔椆
return if @battler == nil or not @battler.in_battlefield?
# 僌儔僼傿僢僋偑枹愝掕側応崌偼廔椆
return if self.bitmap == nil
# 僘乕儉棪偺曄峏 ( 僗僾儔僀僩嵗昗偺嵞愝掕偼尦偺儊僜僢僪偵擟偣傞 )
zoom = 1.00 * 185 / (185 - @battler.z)
self.zoom_x = zoom * $xcam.zoom
self.zoom_y = zoom * $xcam.zoom
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_Cam_Deal
end
#==============================================================================
# --- 僟儊乕僕僼僅儘乕儌僕儏乕儖 ---
#==============================================================================
module XRXS_DamageFollow
def update
# 屇傃栠偡
super
# 僇儊儔偑懚嵼偟側偄応崌
return if $xcam == nil
# 僶僩儔乕偑 nil 傑偨偼僶僩儖僼傿乕儖僪偵偄側偄応崌
return if @battler == nil or not @battler.in_battlefield?
# 捈慜僇儊儔埵抲偐傜丄堏摦検傪嶼弌
x_moved = @last_cam_x == nil ? 0 : $xcam.x - @last_cam_x
y_moved = @last_cam_y == nil ? 0 : $xcam.y - @last_cam_y
# 僟儊乕僕僗僾儔僀僩攝楍偺嶌惉
damage_sprites = [@_damage_sprite]
damage_sprites += @damage_sprites if @damage_sprites != nil
# 僇儊儔傪僼僅儘乕
for sprite in damage_sprites
next if sprite == nil
next if sprite.disposed?
sprite.x -= x_moved
sprite.y -= y_moved
end
# 捈慜僇儊儔埵抲偺曐帩
@last_cam_x = $xcam.x
@last_cam_y = $xcam.y
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_DamageFollow
end
#==============================================================================
# 仭 Scene_Battle
#==============================================================================
class Scene_Battle
#--------------------------------------------------------------------------
# 仠儊僀儞張棟
#--------------------------------------------------------------------------
alias xrxs_bp8_main main
def main
# 壜摦僇儊儔偺惗惉
$xcam = XCam.new
# 栠偡
xrxs_bp8_main
# 壜摦僇儊儔偺夝曻
$xcam = nil
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴
#--------------------------------------------------------------------------
alias xrxs_bp8_update update
def update
# 壜摦僇儊儔偺僼儗乕儉峏怴
$xcam.update
# 屇傃栠偡
xrxs_bp8_update
end
end
#------------------------------------------------------------------------------
#
# 仱 Full-View 僔僗僥儉仱
#
#==============================================================================
# 仭 Spriteset_Battle
#==============================================================================
class Spriteset_Battle
#--------------------------------------------------------------------------
# 仠僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
alias xrxs_bp8_initialize initialize
def initialize
# 屇傃栠偡
xrxs_bp8_initialize
# 僌儔僼傿僢僋僗傾儗僀傪庢摼
# 價儏乕億乕僩 0 傪嶌惉
w = XRXS_BP8::GA_W
h = w * 3 / 4
x = 320 - w / 2
y = 240 - h / 2
@viewport0 = Viewport.new(x, y, w, h)
@viewport0.z = 0
# 價儏乕億乕僩 1 偺愝掕傪曄峏
@viewport1.z += 1
@viewport1.rect.height = 480
# 僶僩儖僶僢僋僗僾儔僀僩傪嵞嶌惉 (價儏乕億乕僩 0 傪巊梡)
@battleback_sprite.dispose
@battleback_sprite = Sprite.new(@viewport0)
@battleback_name = ""
# 僶僩儖僶僢僋偺僼儗乕儉峏怴
update_battleback
end
#--------------------------------------------------------------------------
# 仠夝曻
#--------------------------------------------------------------------------
alias xrxs_bp8_dispose dispose
def dispose
# 屇傃栠偡
xrxs_bp8_dispose
# 價儏乕億乕僩傪夝曻
@viewport0.dispose
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴
#--------------------------------------------------------------------------
alias xrxs_bp8_update update
def update
# 僼儗乕儉峏怴 (僶僩儖僶僢僋)
update_battleback
# 僼儗乕儉峏怴 (壜摦僇儊儔)
update_xcam if defined? update_xcam
# 屇傃栠偡
xrxs_bp8_update
# 夋柺偺僔僃僀僋埵抲傪愝掕
@viewport0.ox = $game_screen.shake if @viewport0 != nil
####################################################
switches = 1 #开关控制
update_speed = 10 #图片循环的速度
battle_background = [ #循环播放的图片
"002-Woods01", "003-Forest01", "005-Beach01",
]
# 僌儔僼傿僢僋僗傾儗僀傪庢摼
w = XRXS_BP8::GA_W
h = w * 3 / 4
# 僶僩儖僶僢僋偺庢摼偲奼戝
@battleback_update_count ||= 0
@battleback_update_count += 1
@battleback_update_count = 0 if @battleback_update_count >= battle_background.length*update_speed
bg = RPG::Cache.battleback(battle_background[@battleback_update_count/update_speed])
@xga ||= Bitmap.new(w, h)
@xga.stretch_blt(@xga.rect, bg, bg.rect)
# XGA傪僶僩儖僶僢僋偵愝掕
@battleback_sprite.bitmap = @xga if $game_switches[switches]
####################################################
end
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴 (僶僩儖僶僢僋)
#--------------------------------------------------------------------------
def update_battleback
# 僶僩儖僶僢僋偺僼傽僀儖柤偑尰嵼偺傕偺偲堘偆応崌
if @battleback_name != $game_temp.battleback_name
@battleback_name = $game_temp.battleback_name
if @battleback_sprite.bitmap != nil
@battleback_sprite.bitmap.dispose
end
# 僌儔僼傿僢僋僗傾儗僀傪庢摼
w = XRXS_BP8::GA_W
h = w * 3 / 4
# 僶僩儖僶僢僋偺庢摼偲奼戝
bg = RPG::Cache.battleback(@battleback_name)
xga = Bitmap.new(w, h)
xga.stretch_blt(xga.rect, bg, bg.rect)
# XGA傪僶僩儖僶僢僋偵愝掕
@battleback_sprite.bitmap = xga
end
end
end
#==============================================================================
# ---乽愴摤拞偺"夋柺"傾僯儊偺埵抲廋惓乿儌僕儏乕儖 ---
#==============================================================================
module XRXS_FullScreen_AnimationOffset
def animation_set_sprites(sprites, cell_data, position)
super
for i in 0..15
sprite = sprites[i]
pattern = cell_data[i, 0]
if sprite == nil or pattern == nil or pattern == -1
next
end
if position == 3
if self.viewport != nil
sprite.y = 160 # 偙偺堦峴偩偗曄峏
sprite.y += cell_data[i, 2]
end
end
end
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_FullScreen_AnimationOffset
end

复制代码

# 仴仯仴 No108. 僶僩儖僶僢僋丒Full-View亄壜摦僇儊儔仴仯仴
#
# update 2006/ 4/16
#
#==============================================================================
# 仩僇僗僞儅僀僘億僀儞僩
#==============================================================================
module XRXS_BP8
#
# 僇儊儔堏摦懍搙
# ( SPEED1 : 嫍棧暘妱悢丅彫偝偄傎偳憗偄
# SPEED2 : 嵟掅堏摦懍搙[扨埵:px/F])
#
SPEED1 = 8
SPEED2 = 8
#
# GA偺墶暆僒僀僘傪愝掕 ( 1024:XGA僒僀僘丄640:VGA僒僀僘)
#
GA_W = 1024
end
#------------------------------------------------------------------------------
# 仱壜摦僇儊儔偺摦偒愝掕
#------------------------------------------------------------------------------
class Scene_Battle
#--------------------------------------------------------------------------
# 仠僷乕僥傿僐儅儞僪僼僃乕僘奐巒
#--------------------------------------------------------------------------
alias xrxs_bp8_start_phase2 start_phase2
def start_phase2
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 屇傃栠偡
xrxs_bp8_start_phase2
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (傾僋僞乕僐儅儞僪僼僃乕僘 : 僄僱儈乕慖戰)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase3_enemy_select update_phase3_enemy_select
def update_phase3_enemy_select
# 尰嵼慖戰拞偺僄僱儈乕傪庢摼
enemy = $game_troop.enemies[@enemy_arrow.index]
# 僇儊儔丗拲栚
if @last_enemy_arrow != enemy
$xcam.watch(enemy)
@last_enemy_arrow = enemy
end
# 栠偡
xrxs_bp8_update_phase3_enemy_select
end
#--------------------------------------------------------------------------
# 仠僄僱儈乕慖戰廔椆
#--------------------------------------------------------------------------
alias xrxs_bp8_end_enemy_select end_enemy_select
def end_enemy_select
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
@last_enemy_arrow = nil
# 屇傃栠偡
xrxs_bp8_end_enemy_select
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (儊僀儞僼僃乕僘僗僥僢僾 2 : 傾僋僔儑儞奐巒)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase4_step2 update_phase4_step2
def update_phase4_step2
# 栠偡
xrxs_bp8_update_phase4_step2
# 僗僥僢僾 3 偵堏峴偡傞梊掕偺応崌
if @phase4_step == 3
# 傾僋僥傿僽側僶僩儔乕偑僶僩儖僼傿乕儖僪偵嫃傞応崌
if @active_battler.in_battlefield?
# 僇儊儔丗拲栚
$xcam.watch(@active_battler)
end
end
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴 (儊僀儞僼僃乕僘僗僥僢僾 3 : 峴摦懁傾僯儊乕僔儑儞)
#--------------------------------------------------------------------------
alias xrxs_bp8_update_phase4_step3 update_phase4_step3
def update_phase4_step3
# 栠偡
xrxs_bp8_update_phase4_step3
# 僇儊儔僞乕僎僢僩偲側傝偆傞僞乕僎僢僩偺 X 暯嬒抣傪寁嶼
x_average = 0
number = 0
cam_target = nil
for target in @target_battlers
if target.in_battlefield?
x_average += target.x
number += 1
cam_target = target
end
end
# 僇儊儔僞乕僎僢僩偑尒偮偐偭偨応崌
if number > 0
# 傕偟懳徾傾僯儊偑乽埵抲丗夋柺乿偺応崌
animation = $data_animations[@animation2_id]
if animation != nil and animation.position == 3
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 僇儊儔丗僘乕儉傾僂僩
$xcam.zoomout
elsif number == 1
# 僇儊儔丗拲栚
$xcam.watch(cam_target)
else
# 僇儊儔丗巜掕 X 埵抲傪拲栚
$xcam.watch_at(x_average / number)
end
end
end
#--------------------------------------------------------------------------
# 仠傾僼僞乕僶僩儖僼僃乕僘奐巒
#--------------------------------------------------------------------------
alias xrxs_bp8_start_phase5 start_phase5
def start_phase5
# 僇儊儔丗僙儞僞儕儞僌
$xcam.centering
# 屇傃栠偡
xrxs_bp8_start_phase5
end
end
#------------------------------------------------------------------------------
# 僇僗僞儅僀僘億僀儞僩偙偙傑偱
#==============================================================================
#------------------------------------------------------------------------------
#
# 仱壜摦僇儊儔僔僗僥儉仱
#
#==============================================================================
# 仩 XCam
#------------------------------------------------------------------------------
# 壜摦僇儊儔傪埖偆僋儔僗偱偡丅
#==============================================================================
class XCam
#--------------------------------------------------------------------------
# 仜岞奐僀儞僗僞儞僗曄悢
#--------------------------------------------------------------------------
attr_reader :x
attr_reader :y
attr_reader :z
attr_accessor :x_destination
attr_accessor :y_destination
attr_accessor :z_destination
attr_accessor :watch_battler
attr_accessor :freeze_count
#--------------------------------------------------------------------------
# 仜僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
def initialize
# 僇儊儔弶婜埵抲寛掕
@x = 320
@y = 240
@z = 296
# 嵟戝斖埻偺寁嶼
@x_max = 0
@y_max = 0
@z_max = XRXS_BP8::GA_W * 37 / 128
# Z偺嵟戝惂尷
@z = @z_max if @z > @z_max
# 僇儊儔丗僙儞僞儕儞僌
self.centering
# 弶婜壔
@freeze_count = 0
end
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴
#--------------------------------------------------------------------------
def update
@moved = false
# 僇儊儔埵抲偺峏怴
if @freeze_count > 0
# 僼儕乕僘僇僂儞僩傪尭傜偡
@freeze_count -= 1
return
end
# 嵗昗庢摼
z_dest = @z_destination
x_dest = @watch_battler == nil ? @x_destination : @watch_battler.x
y_dest = @watch_battler == nil ? @y_destination : 88 + @watch_battler.y/2
# 僇儊儔: Z 嵗昗 (桪愭)
if @z != z_dest
@z = slide(@z, z_dest, @z_speed, 37, @z_max)
@x_max = (@z_max - @z) * 64 / 37
@y_max = (@z_max - @z) * 48 / 37
@moved = true
end
# 僇儊儔: X 嵗昗
if @x != x_dest or @moved
@x = slide(@x, x_dest, @x_speed, 320 - @x_max, 320 + @x_max)
@moved = true
end
# 僇儊儔: Y 嵗昗
if @y != y_dest or @moved
@y = slide(@y, y_dest, @y_speed, 240 - @y_max, 240 + @y_max)
@moved = true
end
end
#--------------------------------------------------------------------------
# 仜僗儔僀僪 (尰嵼抧丒栚揑抧偐傜峴偔傋偒尰嵼抧傪曉偡)
#--------------------------------------------------------------------------
def slide(from, to, move_speed, to_min, to_max)
# 寢壥傪敾暿
if (to - from).abs < move_speed
result = to
else
sign = from > to ? -1 : 1
result = from + sign * move_speed
end
# 斖埻偵傛偭偰曉媝
return [[result, to_min].max, to_max].min
end
#--------------------------------------------------------------------------
# 仜摦偄偨偐偳偆偐丠
#--------------------------------------------------------------------------
def moved?
return @moved
end
#--------------------------------------------------------------------------
# 仜僇儊儔懍搙愝掕
#--------------------------------------------------------------------------
def set_speed
x_dest = @watch_battler == nil ? @x_destination : @watch_battler.x
y_dest = @watch_battler == nil ? @y_destination : 88 + @watch_battler.y/2
z_dest = @z_destination
@x_speed = [[(x_dest - @x).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
@y_speed = [[(y_dest - @y).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
@z_speed = [[(z_dest - @z).abs / XRXS_BP8::SPEED1, 1].max, XRXS_BP8::SPEED2].min
end
#--------------------------------------------------------------------------
# 仜僙儞僞儕儞僌
#--------------------------------------------------------------------------
def centering
@watch_battler = nil
@x_destination = 320
@y_destination = 240
@z_destination = 185
set_speed
end
#--------------------------------------------------------------------------
# 仜僘乕儉傾僂僩
#--------------------------------------------------------------------------
def zoomout
@z_destination = 222
set_speed
end
#--------------------------------------------------------------------------
# 仜僶僩儔乕傪拲栚
#--------------------------------------------------------------------------
def watch(battler)
@watch_battler = battler
@z_destination = 180
set_speed
end
#--------------------------------------------------------------------------
# 仜巜掕 X 埵抲傪拲栚
#--------------------------------------------------------------------------
def watch_at(x)
@watch_battler = nil
@x_destination = x
@y_destination = 240
@z_destination = 185
set_speed
end
#--------------------------------------------------------------------------
# 仜僘乕儉攞棪偺庢摼
#--------------------------------------------------------------------------
def zoom
return 185.00 / self.z
end
end
#==============================================================================
# 仭 Game_Battler
#==============================================================================
class Game_Battler
#--------------------------------------------------------------------------
# 仜岞奐僀儞僗僞儞僗曄悢
#--------------------------------------------------------------------------
attr_reader :x # 僶僩儖僼傿乕儖僪丂墶丂埵抲(+偑塃丂)
attr_reader :y # 僶僩儖僼傿乕儖僪崅偝埵抲(+偑壓丂)
attr_reader :z # 僶僩儖僼傿乕儖僪墱峴偒埵抲(+偑庤慜)
#--------------------------------------------------------------------------
# 仜僶僩儖僼傿乕儖僪忋偵嫃傞偐丠
#--------------------------------------------------------------------------
def in_battlefield?
return false
end
end
#==============================================================================
# 仭 Game_Enemy
#==============================================================================
class Game_Enemy < Game_Battler
#--------------------------------------------------------------------------
# 仜僶僩儖僼傿乕儖僪忋偵嫃傞偐丠 [僆乕僶乕儔僀僪]
#--------------------------------------------------------------------------
def in_battlefield?
return true
end
#--------------------------------------------------------------------------
# 仠僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
alias xrxs_bp8_initialize initialize
def initialize(troop_id, member_index)
@z = 0
xrxs_bp8_initialize(troop_id, member_index)
end
#--------------------------------------------------------------------------
# 仠僶僩儖夋柺 X 嵗昗偺庢摼
#--------------------------------------------------------------------------
alias x screen_x
def screen_x
return self.x if $xcam == nil
return 320 + (self.x - $xcam.x) * 185 / $xcam.z
end
#--------------------------------------------------------------------------
# 仠僶僩儖夋柺 Y 嵗昗偺庢摼
#--------------------------------------------------------------------------
alias y screen_y
def screen_y
return self.y if $xcam == nil
return 240 + (self.y - $xcam.y) * 185 / $xcam.z
end
end
#==============================================================================
# 仭 Spriteset_Battle
#==============================================================================
class Spriteset_Battle
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴 (壜摦僇儊儔)
#--------------------------------------------------------------------------
def update_xcam
# 僇儊儔埵抲偑摦偄偨応崌
if $xcam.moved?
# 僇儊儔埵抲偐傜僘乕儉棪傪寁嶼
zoom = 185.00 / $xcam.z
w = XRXS_BP8::GA_W / 2
h = w * 3 / 4
# 攚宨偺愝掕峏怴
@battleback_sprite.zoom_x = zoom
@battleback_sprite.zoom_y = zoom
@battleback_sprite.x = (320 - $xcam.x) * zoom - w * (zoom - 1)
@battleback_sprite.y = (240 - $xcam.y) * zoom - h * (zoom - 1)
end
end
end
#==============================================================================
# --- 僶僩儔乕僗僾儔僀僩丒壜摦僇儊儔揔梡 ---
#==============================================================================
module XRXS_Cam_Deal
def update
# 屇傃栠偡
super
# 僶僩儔乕偑僶僩儖僼傿乕儖僪偵偄側偄応崌偼廔椆
return if @battler == nil or not @battler.in_battlefield?
# 僌儔僼傿僢僋偑枹愝掕側応崌偼廔椆
return if self.bitmap == nil
# 僘乕儉棪偺曄峏 ( 僗僾儔僀僩嵗昗偺嵞愝掕偼尦偺儊僜僢僪偵擟偣傞 )
zoom = 1.00 * 185 / (185 - @battler.z)
self.zoom_x = zoom * $xcam.zoom
self.zoom_y = zoom * $xcam.zoom
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_Cam_Deal
end
#==============================================================================
# --- 僟儊乕僕僼僅儘乕儌僕儏乕儖 ---
#==============================================================================
module XRXS_DamageFollow
def update
# 屇傃栠偡
super
# 僇儊儔偑懚嵼偟側偄応崌
return if $xcam == nil
# 僶僩儔乕偑 nil 傑偨偼僶僩儖僼傿乕儖僪偵偄側偄応崌
return if @battler == nil or not @battler.in_battlefield?
# 捈慜僇儊儔埵抲偐傜丄堏摦検傪嶼弌
x_moved = @last_cam_x == nil ? 0 : $xcam.x - @last_cam_x
y_moved = @last_cam_y == nil ? 0 : $xcam.y - @last_cam_y
# 僟儊乕僕僗僾儔僀僩攝楍偺嶌惉
damage_sprites = [@_damage_sprite]
damage_sprites += @damage_sprites if @damage_sprites != nil
# 僇儊儔傪僼僅儘乕
for sprite in damage_sprites
next if sprite == nil
next if sprite.disposed?
sprite.x -= x_moved
sprite.y -= y_moved
end
# 捈慜僇儊儔埵抲偺曐帩
@last_cam_x = $xcam.x
@last_cam_y = $xcam.y
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_DamageFollow
end
#==============================================================================
# 仭 Scene_Battle
#==============================================================================
class Scene_Battle
#--------------------------------------------------------------------------
# 仠儊僀儞張棟
#--------------------------------------------------------------------------
alias xrxs_bp8_main main
def main
# 壜摦僇儊儔偺惗惉
$xcam = XCam.new
# 栠偡
xrxs_bp8_main
# 壜摦僇儊儔偺夝曻
$xcam = nil
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴
#--------------------------------------------------------------------------
alias xrxs_bp8_update update
def update
# 壜摦僇儊儔偺僼儗乕儉峏怴
$xcam.update
# 屇傃栠偡
xrxs_bp8_update
end
end
#------------------------------------------------------------------------------
#
# 仱 Full-View 僔僗僥儉仱
#
#==============================================================================
# 仭 Spriteset_Battle
#==============================================================================
class Spriteset_Battle
#--------------------------------------------------------------------------
# 仠僆僽僕僃僋僩弶婜壔
#--------------------------------------------------------------------------
alias xrxs_bp8_initialize initialize
def initialize
# 屇傃栠偡
xrxs_bp8_initialize
# 僌儔僼傿僢僋僗傾儗僀傪庢摼
# 價儏乕億乕僩 0 傪嶌惉
w = XRXS_BP8::GA_W
h = w * 3 / 4
x = 320 - w / 2
y = 240 - h / 2
@viewport0 = Viewport.new(x, y, w, h)
@viewport0.z = 0
# 價儏乕億乕僩 1 偺愝掕傪曄峏
@viewport1.z += 1
@viewport1.rect.height = 480
# 僶僩儖僶僢僋僗僾儔僀僩傪嵞嶌惉 (價儏乕億乕僩 0 傪巊梡)
@battleback_sprite.dispose
@battleback_sprite = Sprite.new(@viewport0)
@battleback_name = ""
# 僶僩儖僶僢僋偺僼儗乕儉峏怴
update_battleback
end
#--------------------------------------------------------------------------
# 仠夝曻
#--------------------------------------------------------------------------
alias xrxs_bp8_dispose dispose
def dispose
# 屇傃栠偡
xrxs_bp8_dispose
# 價儏乕億乕僩傪夝曻
@viewport0.dispose
end
#--------------------------------------------------------------------------
# 仠僼儗乕儉峏怴
#--------------------------------------------------------------------------
alias xrxs_bp8_update update
def update
# 僼儗乕儉峏怴 (僶僩儖僶僢僋)
update_battleback
# 僼儗乕儉峏怴 (壜摦僇儊儔)
update_xcam if defined? update_xcam
# 屇傃栠偡
xrxs_bp8_update
# 夋柺偺僔僃僀僋埵抲傪愝掕
@viewport0.ox = $game_screen.shake if @viewport0 != nil
end
#--------------------------------------------------------------------------
# 仜僼儗乕儉峏怴 (僶僩儖僶僢僋)
#--------------------------------------------------------------------------
def update_battleback
# 僶僩儖僶僢僋偺僼傽僀儖柤偑尰嵼偺傕偺偲堘偆応崌
if @battleback_name != $game_temp.battleback_name
@battleback_name = $game_temp.battleback_name
if @battleback_sprite.bitmap != nil
@battleback_sprite.bitmap.dispose
end
# 僌儔僼傿僢僋僗傾儗僀傪庢摼
w = XRXS_BP8::GA_W
h = w * 3 / 4
# 僶僩儖僶僢僋偺庢摼偲奼戝
bg = RPG::Cache.battleback(@battleback_name)
xga = Bitmap.new(w, h)
xga.stretch_blt(xga.rect, bg, bg.rect)
# XGA傪僶僩儖僶僢僋偵愝掕
@battleback_sprite.bitmap = xga
end
end
end
#==============================================================================
# ---乽愴摤拞偺"夋柺"傾僯儊偺埵抲廋惓乿儌僕儏乕儖 ---
#==============================================================================
module XRXS_FullScreen_AnimationOffset
def animation_set_sprites(sprites, cell_data, position)
super
for i in 0..15
sprite = sprites[i]
pattern = cell_data[i, 0]
if sprite == nil or pattern == nil or pattern == -1
next
end
if position == 3
if self.viewport != nil
sprite.y = 160 # 偙偺堦峴偩偗曄峏
sprite.y += cell_data[i, 2]
end
end
end
end
end
class Sprite_Battler < RPG::Sprite
include XRXS_FullScreen_AnimationOffset
end

复制代码

# coding: utf-8
=begin
= Bitmap類拡張 (DLL版)
RPGツクールXP/VX共用
添加功能 Bitmap 類。
- Marshaldump 啟用
- 保存為PNG文件
-色調變化
-馬賽克效果
-反相顏色
-模糊效果
-使用遮罩-切除
-混合
■ 注意
這個腳本需要"tktk_bitmap.dll"(ver0.1.2.6以上)。
Author:: 半生
Date:: 2010/12/13
Version:: 0.1.2.6
URL:: http://www.tktkgame.com/
################更新########################
2010/12/13 ver 0.1.2.6
　dll名稱從"hn_rg_bitmap.dll"變更為"tktk_bitmap.dll"
　LARGE_BITMAP機能でメモリを確保できなかった場合の処理を追加
2010/10/12 ver 0.1.2.5(デンジャラスベータ版)
　大きいサイズのBitmapオブジェクトを機能を試験的に実装（危険）
2010/03/24 ver 0.1.2.2
　ブレンディング機能関連の軽量化。
　画像連結系メソッドの分離。
2010/03/24 ver 0.1.2.1
　ブレンディング機能関連のバグフィックス
2010/03/22 ver 0.1.2.0
　加算合成等のブレンディング機能の追加
2010/02/07 ver 0.1.1.0
　マーシャル化の処理の一部をDLLに移動
2010/01/17 ver 0.1.0.0
　dllの名称を"hn_rx_bitmap.dll"から"hn_rg_bitmap.dll"に変更
　モザイク効果・色反転・ぼかし効果の追加
############################################
=end
module TKTK_Bitmap
LARGE_BITMAP = true # 是否使用大型點陣圖的功能
DLL_NAME = 'Dlls/tktk_bitmap'
ERROR_ALLOCATE_FAILED = -110002
@@png_save = Win32API.new(DLL_NAME, 'PngSaveA', 'p n i i', 'i')
@@blur = Win32API.new(DLL_NAME, 'Blur', 'n i', 'i')
@@change_tone = Win32API.new(DLL_NAME, 'ChangeTone', 'n i i i i', 'i')
@@clip_mask = Win32API.new(DLL_NAME, 'ClipMask', 'n n i i i', 'i')
@@invert = Win32API.new(DLL_NAME, 'InvertColor', 'n', 'i')
@@mosaic = Win32API.new(DLL_NAME, 'Mosaic', 'n i i i i i i', 'i')
@@address = Win32API.new(DLL_NAME, 'GetAddress', 'n', 'n')
@@get_pixel_data = Win32API.new(DLL_NAME, 'GetPixelData', 'n p i', 'i')
@@set_pixel_data = Win32API.new(DLL_NAME, 'SetPixelData', 'n p i', 'i')
@@blend_blt = Win32API.new(DLL_NAME, 'BlendBlt', 'n i i n i i i i i i', 'i')
#@@get_hwnd = Win32API.new(DLL_NAME, 'GetGameHWND', 'v', 'l')
@@change_size = Win32API.new(DLL_NAME, 'ChangeSize', 'n i i', 'i')
module_function
# PNG形式儲存
def png_save(bitmap,file_name,compression_level,filter)
return @@png_save.call(file_name, bitmap.object_id, compression_level, filter)
end
# 模糊效果
def blur(bitmap, r = 1)
return @@blur.call(bitmap.object_id, r)
end
# 更改顏色平衡？
def change_tone(bitmap, red = 0, green = 0, blue = 0, simplify = 1)
return @@change_tone.call(bitmap.object_id, red, green, blue, simplify)
end
# 剪貼蒙版圖像（α乘法）
def clip_mask(g_bitmap, m_bitmap, x=0, y=0, outer=0)
return @@clip_mask.call(g_bitmap.object_id, m_bitmap.object_id, x, y, outer)
end
# 色的反轉
def invert(bitmap)
return @@invert.call(bitmap.object_id)
end
# 馬賽克效果
def mosaic(bitmap, msw=5, msh=5)
return self.mosaic_rect(bitmap, bitmap.rect, msw, msh)
end
# 馬賽克效果(範圍指定)
def mosaic_rect(bitmap, rect, msw=5, msh=5)
return @@mosaic.call(bitmap.object_id,
rect.x, rect.y, rect.width, rect.height, msw, msh)
end
# 獲取Bitmap資料位址
def address(bitmap)
return @@address.call(bitmap.object_id)
end
# 二進位資料獲取點Bitmap陣圖
def get_pixel_data(bitmap)
buffer = "bgra" * bitmap.width * bitmap.height
@@get_pixel_data.call(bitmap.object_id, buffer, buffer.size)
return buffer
end
#替換為Bitmap中的二進位資料
def set_pixel_data(bitmap, data)
return @@set_pixel_data.call(bitmap.object_id, data, data.size)
end
def blend_blt(dest_bmp, x, y, src_bmp, rect, blend_type=0, opacity=255)
@@blend_blt.call(dest_bmp.object_id, x, y, src_bmp.object_id,
rect.x, rect.y, rect.width, rect.height,
blend_type, opacity)
end
# 改變Bitmap的大小（風險）
def change_size(bitmap, new_width, new_height)
return -1 if (new_width <=0 or new_height <= 0)
result = @@change_size.call(bitmap.object_id, new_width, new_height)
if result == ERROR_ALLOCATE_FAILED
raise("tktk_bitmap:ERROR ALLOCATE FAILED")
end
return result
end
end
class Font
def marshal_dump;end
def marshal_load(obj);end
end
class Bitmap
# PNG 壓縮篩檢程式
PNG_NO_FILTERS = 0x00
PNG_FILTER_NONE = 0x08
PNG_FILTER_SUB = 0x10
PNG_FILTER_UP = 0x20
PNG_FILTER_AVG = 0x40
PNG_FILTER_PAETH = 0x80
PNG_ALL_FILTERS = (PNG_FILTER_NONE | PNG_FILTER_SUB | PNG_FILTER_UP |
PNG_FILTER_AVG | PNG_FILTER_PAETH)
# Marshal_dump
def _dump(limit)
return "" if self.disposed?
data = TKTK_Bitmap.get_pixel_data(self)
[width, height, Zlib::Deflate.deflate(data)].pack("LLa*") # ついでに圧縮
end
# Marshal_load
def self._load(str)
if str == ""
b = Bitmap.new(1,1)
b.dispose
return b
end
w, h, zdata = str.unpack("LLa*"); b = new(w, h)
TKTK_Bitmap.set_pixel_data(b, Zlib::Inflate.inflate(zdata))
return b
end
def address
TKTK_Bitmap.address(self)
end
# 模糊效果
def blur2(r=1)
TKTK_Bitmap.blur(self, r)
end
# 色調變化
def change_tone(red, green, blue, simplify = 1)
TKTK_Bitmap.change_tone(self, red, green, blue, simplify)
end
# 剪切
def clip_mask(bitmap, x=0, y=0, outer=0)
TKTK_Bitmap.clip_mask(self, bitmap, x, y, outer)
end
# 反相顏色
def invert
TKTK_Bitmap.invert(self)
end
# 馬賽克效果
def mosaic(msw=5, msh=5)
TKTK_Bitmap.mosaic(self, msw, msh)
end
# 馬賽克效果（指定區域）
def mosaic_rect(rect=self.rect, msw=5, msh=5)
TKTK_Bitmap.mosaic_rect(self, rect, msw, msh)
end
# 混合
def blend_blt(x, y, src_bmp, rect, blend_type=0, opacity=255)
return if opacity <= 0
TKTK_Bitmap.blend_blt(self, x, y, src_bmp, rect, blend_type, opacity)
end
#Png 格式保存
def png_save(outp, level = 9, filter = PNG_NO_FILTERS)
if (TKTK_Bitmap.png_save(self, outp, level, filter) != 0)
raise("Bitmap\#png_save failed")
end
end
# 允許更大的 bitmap.new (危険)
# 寬度＊高度大約是1073741823
if TKTK_Bitmap::LARGE_BITMAP
class << self
unless method_defined?(:_hn_large_bm__new)
alias :_hn_large_bm__new :new
end
def new(*args)
if args.size == 2 && args[0] * args[1] >= 4194304
new_width = args[0]
new_height = args[1]
# 暫時以小尺寸作成
bitmap = _hn_large_bm__new(16, 16)
TKTK_Bitmap.change_size(bitmap, new_width, new_height)
return bitmap
else
_hn_large_bm__new(*args)
end
end
end # Bitmap.new
end
end # CLASS Bitmap

复制代码