UltimaForum :: Zobacz temat - Pomoc Ze Skryptem

Spoiler:

Kod:

####################################################################
# PlayerPlus v1.0.3

# By: SojaBird
# Site: http://www.nestcast.blogspot.com
# Description: PlayerPlus draws and updates a stay-on-player-picture.

####################################################################
# Start Setup
####################################################################
module SojaBird_PP

Use = true # Wheter or not to draw the players extra [true/false].
Activate = 4 # The mode to activate the players extra [1=Switch, 2=Key, 3=Switch AND Key, 4=Switch OR Key].
Switch = 1 # Number of the switch to show and hide the players extra.
Key = Input::F5 # Keyboard input to activate the players extra ["..."]
Picture = "PlayerPlus" # Name of the picture of the players extra ["..."].
Blend = 0 # Blending mode of the players extra [0=Normal, 1=More, 2=Less].
Opacity = 255 # Opacity of the players extra [0-255].
X = 1 # Horizontal placement of the players extra [1=Center, 2=Left, 3=Right, 0=Custom].
Y = 1 # Vertical placement of the players extra [1=Center, 2=Head, 3=Feet, 0=Custom].
Custom_x = 0 # The custom horizontal placement of the players extra.
Custom_y = 0 # The custom vertical placement of the players extra.
FlickerX = 0 # Amount of horizontal flicker of the players extra [<2=No flicker, >1=Flicker].
FlickerY = 0 # Amount of the vertical flicker of the players extra [<2=No flicker, >1=Flicker].
FlickerOpacity = 0 # Amount of the opacity flicker of the players extra [<2=No flicker, >1=Flicker].

end
####################################################################
# End Setup
####################################################################

X_Extra =
case SojaBird_PP::X
when 1 # Center
-(Cache.picture(SojaBird_PP::Picture).width / 2)
when 2 # Left
-Cache.picture(SojaBird_PP::Picture).width - 16
when 3 # Right
Cache.picture(SojaBird_PP::Picture).width - 16
when 0 # Custom
SojaBird_PP::Custom_x
end
Y_Extra =
case SojaBird_PP::Y
when 1 # Center
-(Cache.picture(SojaBird_PP::Picture).height / 2) + 2
when 2 # Head
-(Cache.picture(SojaBird_PP::Picture).height / 2) - 36
when 3 # Feet
-2
when 0 # Custom
SojaBird_PP::Custom_y
end

##############################
class Scene_Map < Scene_Base
##############################
def start
super
$game_map.refresh
@spriteset = Spriteset_Map.new
@message_window = Window_Message.new
$PlayerPlus = PlayerPlus.new
end
###############
def terminate
super
if $scene.is_a?(Scene_Battle)
@spriteset.dispose_characters
end
snapshot_for_background
@spriteset.dispose
@message_window.dispose
$PlayerPlus.dispose
if $scene.is_a?(Scene_Battle)
perform_battle_transition
end
end
###############
def update
super
$game_map.interpreter.update
$game_map.update
$game_player.update
$game_system.update
@spriteset.update
@message_window.update
$PlayerPlus.update
unless $game_message.visible
update_transfer_player
update_encounter
update_call_menu
update_call_debug
update_scene_change
end
end
###############
def update_transfer_player
return unless $game_player.transfer?
fade = (Graphics.brightness > 0)
fadeout(30) if fade
@spriteset.dispose
$game_player.perform_transfer
$game_map.autoplay
$game_map.update
Graphics.wait(15)
@spriteset = Spriteset_Map.new
$PlayerPlus.dispose
$PlayerPlus = PlayerPlus.new
fadein(30) if fade
Input.update
end
##############################
end
##############################
############################################################
##############################
class PlayerPlus
include SojaBird_PP
##############################
def initialize
if Use == true
@pp_viewport = Viewport.new(0, 0, 544, 416)
@pp = Sprite.new(@pp_viewport)
@pp.bitmap = Cache.picture(Picture)
@pp.opacity = Opacity
@pp.blend_type = Blend
end
update
end
###############
def update
if Use == true
case Activate
when 1
@pp.visible = $game_switches[Switch]
when 2
@pp.visible = Input.press?(Key)
when 3
if Input.press?(Key) and $game_switches[Switch]
@pp.visible = true
else
@pp.visible = false
end
when 4
if Input.press?(Key) or $game_switches[Switch]
@pp.visible = true
else
@pp.visible = false
end
end
return if !@pp.visible
@pp.opacity = Opacity - rand(FlickerOpacity)
if @pp.x != $game_player.screen_x or @pp.y != $game_player.screen_y
@pp.x = $game_player.screen_x + rand(FlickerX) + X_Extra
@pp.y = $game_player.screen_y + rand(FlickerY) + Y_Extra
end
end
end
###############
def dispose
if Use == true
@pp_viewport.dispose
@pp.dispose
end
end
##############################
end
##############################