Zobacz temat - HUD przedmiotów i ekwipunku

Spoiler:

Kod:

#==============================================================================
# MOG MPW Equip V1.1 / HUD Przedmiotów XP
#==============================================================================
# Autor: Moghunter
#==============================================================================
# Tłumaczenie i korekta (wyświetlanie przedmiotów zamiast ekwipunku): Ayene
# Skrypt przerobiony tak, aby pokazywał przedmioty, a nie elementy ekwipunku.
#==============================================================================
# Skrypt wyświetla na mapie HUD z przedmiotami.
# Instalacja: Umieść skrypt nad Main.
#==============================================================================

if true # True = wyświetla HUD / False = nie wyświetla

module MOG
module Ayene

# Przełącznik, kontrolujący wyświetlanie HUD
EQPMAPVIS = 5

# położenie HUD:
# 0 - lewy górny róg
# 1 - prawy górny róg
# 2 - lewy dolny róg
# 3 - prawy dolny róg
# 4 - ręczne
EQPMAPPO = 2

# Położenie HUD (gdy wybrano ręczne) - współrzędne x i y
EQPMAPX = 210 # współrzędna x
EQPMAPY = 290 # współrzędna y

# ID przedmiotów, które będą wyświetlane w pasku
ID_PRZEDMIOTÓW = [16, 2, 3, 5, 17, 13, 19, 24]

# Wielkość dopasowana do ilości przedmiotów
DOPASOWANA_WIELKOŚĆ_HUD = true

# Ilość slotów na przedmioty, gdy wybrano false
ILOŚĆ_SLOTÓW = 19
end
end

$mogscript = {} if $mogscript == nil
$mogscript["mpequip"] = true

#==============================================================================
# Window_Base
#==============================================================================
class Window_Base < Window
def draw_equip_map(item, x, y)
if item == nil
return
end
bitmap = RPG::Cache.icon(item.icon_name)
self.contents.blt(x + 3, y + 3, bitmap, Rect.new(0, 0, 24, 24))

number = $game_party.item_number(item.id)
self.contents.font.color = normal_color
self.contents.font.size = 16
self.contents.draw_text(x + 4, y + 3, 24, 32, number.to_s, 2)
end

def draw_mequip(x, y)
mequip = RPG::Cache.picture("sqequip")
cw = mequip.width
ch = mequip.height
src_rect = Rect.new(0, 0, cw, ch)
@data = []
for i in 0...$data_items.size
if $game_party.item_number(i) > 0 && MOG::Ayene::ID_PRZEDMIOTÓW.include?(i)
@data.push($data_items[i])
end
end
if MOG::Ayene::DOPASOWANA_WIELKOŚĆ_HUD
for i in 0...@data.size
self.contents.blt(32 * i, y, mequip, src_rect)
end
else
for i in 0...MOG::Ayene::ILOŚĆ_SLOTÓW
self.contents.blt(32 * i, y, mequip, src_rect)
end
end
end
end

class Window_Equipmap < Window_Base
def initialize(width)
super(0, 0, width, 100)
self.contents = Bitmap.new(width - 32, height - 32)
self.opacity = 0
@width = width
refresh
end
def refresh
self.contents.clear
draw_mequip(0,0)
@data = []
for i in 0...$data_items.size
if $game_party.item_number(i) > 0 && MOG::Ayene::ID_PRZEDMIOTÓW.include?(i)
@data.push($data_items[i])
end
end
@item_max = @data.size
if @item_max > 0
for i in 0...@item_max
draw_equip_map(@data[i], 32 * i, 0)
end
end
end
end

#==============================================================================
# Scene_Map
#==============================================================================
class Scene_Map
alias mog8_main main
def main
@data = []
for i in 0...$data_items.size
if $game_party.item_number(i) > 0 && MOG::Ayene::ID_PRZEDMIOTÓW.include?(i)
@data.push($data_items[i])
end
end
if MOG::Ayene::DOPASOWANA_WIELKOŚĆ_HUD
eqmap_slots = 32 + @data.size * 32
else
eqmap_slots = 32 + MOG::Ayene::ILOŚĆ_SLOTÓW * 32
end
@eqmap = Window_Equipmap.new(190 + eqmap_slots)
case MOG::Ayene::EQPMAPPO
when 0
@eqmap.x = 0
@eqmap.y = 0
when 1
@eqmap.x = 640 - eqmap_slots
@eqmap.y = 0
when 2
@eqmap.x = 0
@eqmap.y = 420
when 3
@eqmap.x = 640 - eqmap_slots
@eqmap.y = 420
when 4
@eqmap.x = MOG::Ayene::EQPMAPX
@eqmap.y = MOG::Ayene::EQPMAPY
end
if $game_switches[MOG::Ayene::EQPMAPVIS] == false
@eqmap.visible = true
else
@eqmap.visible = false
end
mog8_main
@eqmap.dispose
end

alias mog8_update update
def update
if $game_switches[MOG::Ayene::EQPMAPVIS] == false
@eqmap.visible = true
else
@eqmap.visible = false
end
if $eref == true
@eqmap.refresh
$eref = false
end
mog8_update
end
end

#==============================================================================
# Game_Map
#==============================================================================
class Game_Map
attr_accessor :eref
end

class Interpreter
def eref
$eref = true
end
alias mog319ref command_319
def command_319
eref
return mog319ref
end

alias mog126ref command_126
def command_126
eref
return mog126ref
end
end
end