UltimaForum :: Zobacz temat

bartek2940

Skrypt sprawia, Ĺźe Ekran "zeĹlizguje siÄ" z jednej mapy na drugÄ (gĹupio brzmi, ale Ĺwietnie wyglÄda). TrochÄ go przetĹumaczyĹem (instrukcjÄ).
Nie daje screenĂłw, bo nie ma jak, ale na dole jest demo.
SKRYPT

Spoiler:

Kod:

#==============================================================================
# Map Slide
#==============================================================================
# Author : OriginalWij
# Version : 1.1
#==============================================================================

#==============================================================================
# NOTE: Tylko najnowsza wersja jest wersjÄ obsĹugiwanÄ.
#
# v1.1
# - naprawiony bug z wielkoĹciÄ mapy
# - dodano jakÄĹ opcjÄ przewijania krawÄdzi
#==============================================================================

#==============================================================================
#
# Aby "przewijaÄ" w nazwie mapy wpisujemy:
# NazwÄ mapy [MET ID_Mapy_Dolnej ID_Mapy_Lewej ID_Mapy_Prawej ID_Mapy_GĂłrnej] np.:
# Wyspa [MET 1 2 3 4]
# JeĹli ma nie przewijaÄ wpisujemy ID 0 (zero)
#==============================================================================

#==============================================================================
# Konfiguracja
#==============================================================================

module OW_MAP_SLIDE
# PrzeĹÄcznik (ID) WYĹÄCZAJÄCY Skrypt
DISABLE_SWITCH = 1
# SzybkoĹÄ przesuwania siÄ mapy (domyĹlnie 4)
SLIDE_SPEED = 4
# WĹÄczanie krawÄdzi (tego dotyczy poprawka wersji v1.1, ale nie znam zastosowania) (domyĹlnie True)
MAP_EDGE = true
end

#==============================================================================
# NiĹźej nie tykaj!
#==============================================================================
#==============================================================================
# Game_Temp
#==============================================================================

class Game_Temp
#--------------------------------------------------------------------------
# Public Instance Variables (New)
#--------------------------------------------------------------------------
attr_accessor :scroll
attr_accessor :no_trigger
attr_accessor :slide_x
attr_accessor :slide_y
#--------------------------------------------------------------------------
# Initialize (Mod)
#--------------------------------------------------------------------------
alias ow_mapslide_game_temp_initialize initialize unless $@
def initialize
ow_mapslide_game_temp_initialize
@scroll = @no_trigger = false
@slide_x = @slide_y = 0
end
end

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

class Game_Map
#--------------------------------------------------------------------------
# Map Name (New)
#--------------------------------------------------------------------------
def map_name
return load_data("Data/MapInfos.rvdata")[@map_id].name
end
end

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

class Game_Character
#--------------------------------------------------------------------------
# Public Instance Variables (New)
#--------------------------------------------------------------------------
attr_accessor :real_x
attr_accessor :real_y
end

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

class Game_Player < Game_Character
#--------------------------------------------------------------------------
# Determine if Same Position Event is Triggered (Mod)
#--------------------------------------------------------------------------
alias ow_mapslide_game_player_ceth check_event_trigger_here unless $@
def check_event_trigger_here(triggers)
if $game_temp.no_trigger
$game_temp.no_trigger = false
return false
end
ow_mapslide_game_player_ceth(triggers)
end
#--------------------------------------------------------------------------
# Processing of Movement via input from the Directional Buttons (Mod)
#--------------------------------------------------------------------------
alias ow_mapslide_game_player_move_by_input move_by_input unless $@
def move_by_input
return unless movable?
return if $game_map.interpreter.running?
if self.x == 0 or self.x == ($game_map.width - 1) or self.y == 0 or
self.y == ($game_map.height - 1) and OW_MAP_SLIDE::MAP_EDGE
dir = $game_player.direction
map_id = [0] * 9
$game_map.map_name.scan(/\[MET (\d+) (\d+) (\d+) (\d+)\]/i)
map_id[2] = $1.to_i if self.y == ($game_map.height - 1)
map_id[4] = $2.to_i if self.x == 0
map_id[6] = $3.to_i if self.x == ($game_map.width - 1)
map_id[8] = $4.to_i if self.y == 0
if map_id[dir] == 0
ow_mapslide_game_player_move_by_input
return
end
x = $game_player.x
y = $game_player.y
new_map = load_data(sprintf("Data/Map%03d.rvdata", map_id[dir]))
case dir
when 2; y = 0
when 4; x = (new_map.width - 1)
when 6; x = 0
when 8; y = (new_map.height - 1)
end
$game_player.reserve_transfer(map_id[dir], x, y, dir)
else
$game_temp.no_trigger = false
ow_mapslide_game_player_move_by_input
end
end
end

#==============================================================================
# Sprite_Character
#==============================================================================

class Sprite_Character < Sprite_Base
#--------------------------------------------------------------------------
# Update (Mod)
#--------------------------------------------------------------------------
alias ow_mapslide_sprite_character_update update unless $@
def update
ow_mapslide_sprite_character_update
if $game_temp.scroll
self.x = @character.screen_x + $game_temp.slide_x
self.y = @character.screen_y + $game_temp.slide_y
if @character.is_a?(Game_Player)
self.x -= $game_temp.slide_x / 16
self.y -= $game_temp.slide_y / 16
end
end
end
end

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

class Spriteset_Map
#--------------------------------------------------------------------------
# Public Instance Variables (New)
#--------------------------------------------------------------------------
attr_accessor :tilemap
attr_accessor :picture_sprites
end

#==============================================================================
# Scene_Map
#==============================================================================

class Scene_Map < Scene_Base
#--------------------------------------------------------------------------
# Player Transfer Processing (Mod)
#--------------------------------------------------------------------------
alias ow_mapslide_scene_map_upd_tr_player update_transfer_player unless $@
def update_transfer_player
if $game_switches[OW_MAP_SLIDE::DISABLE_SWITCH]
ow_mapslide_scene_map_upd_tr_player
else
return unless $game_player.transfer?
w = Graphics.width
h = Graphics.height
speed = OW_MAP_SLIDE::SLIDE_SPEED
$game_player.real_y += 28 if $game_player.direction == 8
@spriteset.update
$game_temp.scroll = true
@hold = Sprite.new
@hold.bitmap = Graphics.snap_to_bitmap
@hold.z = 1
if $game_player.in_vehicle?
$game_map.vehicles[$game_player.vehicle_type].transparent = true
else
$game_player.transparent = true
end
@spriteset.dispose
$game_player.perform_transfer
$game_map.autoplay
$game_map.update
@spriteset = Spriteset_Map.new
case $game_player.direction
when 2
@spriteset.tilemap.oy += h + ($game_map.height * 32 - h) * 2
$game_temp.slide_x = 0
$game_temp.slide_y = h
for i in 0...h / speed
@hold.oy += speed
@spriteset.tilemap.oy += speed
$game_temp.slide_y -= speed
@spriteset.update_characters
Graphics.update
end
when 4
@spriteset.tilemap.ox -= w + ($game_map.width * 32 - w) * 2
$game_temp.slide_x = -w
$game_temp.slide_y = 0
for i in 0...w / speed
@hold.ox -= speed
@spriteset.tilemap.ox -= speed
$game_temp.slide_x += speed
@spriteset.update_characters
Graphics.update
end
when 6
@spriteset.tilemap.ox += w + ($game_map.width * 32 - w) * 2
$game_temp.slide_x = w
$game_temp.slide_y = 0
for i in 0...w / speed
@hold.ox += speed
@spriteset.tilemap.ox += speed
$game_temp.slide_x -= speed
@spriteset.update_characters
Graphics.update
end
when 8
@spriteset.tilemap.oy -= h + ($game_map.height * 32 - h) * 2
$game_temp.slide_x = 0
$game_temp.slide_y = -h
for i in 0...h / speed
@hold.oy -= speed
@spriteset.tilemap.oy -= speed
$game_temp.slide_y += speed
@spriteset.update_characters
Graphics.update
end
end
@hold.bitmap.dispose
@hold.dispose
Input.update
case $game_player.direction
when 2
$game_player.real_y -= 256
when 4
$game_player.real_x += 256
when 6
$game_player.real_x -= 256
when 8
$game_player.real_y += 256
end
$game_temp.no_trigger = true
if $game_player.in_vehicle?
$game_map.vehicles[$game_player.vehicle_type].transparent = false
else
$game_player.transparent = false
end
$game_temp.scroll = false
end
end
end

DEMO

Bleach · Preferowany: Dołączył: 28 Kwi 2011 Posty: 2

Ciekawe... Mi by siÄ to przydaĹo...
Czy umiaĹbyĹ to zmieniÄ na XP? Albo moĹźe ktoĹ inny?

bartek2940

Nie, nie jestem skrypterem, moĹźe ktoĹ inny ci pomoĹźe.

Poster27

Wielkie dziÄki! Nie widziaĹem tego skryptu wczeĹniej i wyglÄda ciekawie. Na pewno uĹźyjÄ ;D