Pomógł: 2 razy Dołączył: 20 Mar 2010 Posty: 127 Skąd: z Netaa !
Wysłany: Wto 13 Lip, 2010 19:53
Level Up Point Spend System
Witam ponownie Ultimowicze!
Znalazłem na Angielskiej stronie skrypt Level Up Point Spend System,
który własnoręcznie Przetłumaczyłem na PL.
Chcę dodać że działa on na wersji PL.
Pokazuje on Nam Informacje o Poziomie oraz zmienia okno Statusu.
Autorem jest Stefo.
Screeny ( na razie mam tylko okna Statusu):
Spoiler:
Skrypt:
Spoiler:
Kod:
#----------------------------------------------------------
# Level Up Point Spend System
# by Stefo
# Tłumaczenie na PL by Mangekyou z UF.
# LV up Point spend system
# Jeśli chcesz umieścić w swoim projekcie
# dodaj Stefo i Mangekyou w Creditach.
#----------------------------------------------------------
#Obecna kwota wydatków na poziomie podczas uruchamiania gry
$SPLCH1 = 0
$SPLCH2 = 0
$SPLCH3 = 0
$SPLCH4 = 0
$SPLADD = 25
#To, ile dodać punktów do wybranych umiejętności bohatera
$STRBY = 1
$AGIBY = 1
$DEXBY = 1
$INTBY = 1
$HPBY = 10
$SPBY = 10
if @phase5_wait_count > 0
@phase5_wait_count -= 1
if @phase5_wait_count == 0
@result_window.visible = true
$game_temp.battle_main_phase = false
@status_window.refresh
end
return
end
sleep(3)
battle_end(0)
end
end
class Act_Get_Spp
def initialize(dtd)
if !$BTEST
actor = $game_actors[dtd]
if dtd != 0
GET_IT(dtd)
end
end
end
def GET_IT(actids)
actor = $game_actors[actids]
$stStrR = actor.str.to_i
$stIntR = actor.int.to_i
$stDexR = actor.dex.to_i
$stAgiR = actor.agi.to_i
$sthpR = actor.maxhp.to_i
$stspR = actor.maxsp.to_i
end
end
class Act_Set_Spp
def initialize(cactnum)
if !$BTEST
actor = $game_actors[cactnum]
if cactnum != 0
SET_IT(cactnum)
end
end
end
def SET_IT(actids)
actor = $game_actors[actids]
actor.str = $stStrR
actor.int = $stIntR
actor.dex = $stDexR
actor.agi = $stAgiR
actor.maxhp = $sthpR
actor.maxsp = $stspR
actor.recover_all
end
end
class Acts_Set_Spp_Added
def initialize(currentActornum)
if !$BTEST
actor = $game_actors[currentActornum]
if currentActornum != 0
SET_IT(actor)
end
end
end
# Set up battle
$game_party.setup_battle_test_members
$game_temp.battle_troop_id = $data_system.test_troop_id
$game_temp.battle_can_escape = true
$game_map.battleback_name = $data_system.battleback_name
# Set up music and sound
$game_system.se_play($data_system.battle_start_se)
$game_system.bgm_play($game_system.battle_bgm)
$scene = Scene_Battle.new
end
end
#-------------------------------------------------------------------------
# To jest Edytowane,
# Pokazuje nam nasz LVLUP i automatycznie dodaje Nam
#HP,SP itp.
#------------------------------------------------------------------------
class Game_Actor
def exp=(exp)
@exp = [[exp, 9999999].min, 0].max
while @exp >= @exp_list[@level+1] and @exp_list[@level+1] > 0
$acgt.GET_IT(@actor_id)
@level += 1
$acst.SET_IT(@actor_id)
case @actor_id
when 1
$actor1gotlv = 1
@ADSP = $SPLCH1.to_i
@ADSP += $SPLADD.to_i
$SPLCH1 = @ADSP.to_i
when 2
$actor2gotlv = 1
@ADSP = $SPLCH2.to_i
@ADSP += $SPLADD.to_i
$SPLCH2 = @ADSP.to_i
when 3
$actor3gotlv = 1
@ADSP = $SPLCH3.to_i
@ADSP += $SPLADD.to_i
$SPLCH3 = @ADSP.to_i
when 4
$actor4gotlv = 1
@ADSP = $SPLCH4.to_i
@ADSP += $SPLADD.to_i
$SPLCH4 = @ADSP.to_i
end
for j in $data_classes[@class_id].learnings
if j.level == @level
learn_skill(j.skill_id)
end
end
end
while @exp < @exp_list[@level]
@level -= 1
end
@hp = [@hp, self.maxhp].min
@sp = [@sp, self.maxsp].min
end
#-------------------------------------------------------------------------------
def level=(level)
$acgt.GET_IT(@actor_id)
level = [[level, $data_actors[@actor_id].final_level].min, 1].max
$acst.SET_IT(@actor_id)
#----------------------------------------------------------------------
# To jest Edytowane i musisz to zapisać.
#----------------------------------------------------------------------
class Scene_Save
def write_save_data(file)
characters = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
characters.push([actor.character_name, actor.character_hue])
end
#--------------------------------------------------------------------
# To jest Edytowane dodatkowe rzeczy do ładowania w tym skrypcie.
#--------------------------------------------------------------------
class Scene_Load
def read_save_data(file)
#---------------------------------------------------------------------
#Okno lokacji (z tłem Okienka)
# Możesz wywołać go Skryptem
# Jeśli nie wiesz jak to zrobić to zapytaj specjalistów! ;-)
#---------------------------------------------------------------------
class Window_LocationShow < Window_Base
def initialize
super(600, -10, 640, 64)
$map_infos = load_data("Data/MapInfos.rxdata")
for key in $map_infos.keys
if key = $game_map.map_id
@mapnm = $map_infos[key].name
end
end
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $fontface
self.contents.font.size = 30
self.x = x - contents.text_size(@mapnm).width
self.width = width - contents.text_size(@mapnm).width / 2
self.opacity = 0
refresh
end
def checkfora(actorindex)
case actorindex
when 0
if $actor1gotlv != 0
showlvupwin(actorindex)
end
when 1
if $actor2gotlv != 0
showlvupwin(actorindex)
end
when 2
if $actor3gotlv != 0
showlvupwin(actorindex)
end
when 3
if $actor4gotlv != 0
showlvupwin(actorindex)
end
end
def refresh(text)
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, self.width - 40, 32, text)
end
end
#---------------------------------------------------------------------
# Wreszcie najważniejsze!
#---------------------------------------------------------------------
class Window_ActorSpp < Window_Base
loop do
Graphics.update
Input.update
@acSpend.refresh
updateATTRSEL
if @kill_it != 0
break
end
end
Graphics.freeze
@AttrSel.dispose
@acSpend.dispose
@help_text.dispose
@sprite.dispose
Graphics.transition
$acstadd.ADD_IT
$scene = Scene_Map.new
actsr = $ACTORIND
case actsr
when 0
if $actor1gotlv != 0
$actor1gotlv = 0
end
when 1
if $actor2gotlv != 0
$actor2gotlv = 0
end
when 2
if $actor3gotlv != 0
$actor3gotlv = 0
end
when 3
if $actor4gotlv != 0
$actor4gotlv = 0
end
end
end
def updateATTRSEL
@AttrSel.update
csa = $ACTORIND
if @clerSP != 0
@clerSP = 0
case csa
when 0
$SPLRET = $SPLCH1.to_i
when 1
$SPLRET = $SPLCH2.to_i
when 2
$SPLRET = $SPLCH3.to_i
when 3
$SPLRET = $SPLCH4.to_i
end
end
if Input.repeat?(Input::C)
case @AttrSel.index
when 0
acselt = $ACTORIND
case acselt
when 0
unless $SPLCH1 > 0
$game_system.se_play($data_system.buzzer_se)
@AttrSel.disable_item(0)
return
end
$hpadd = $hpadd + $HPBY
@acSpend.refresh
@ackill = $SPLCH1
@ackill -= 1
$SPLCH1 = @ackill
unless $SPLCH1 > 0
@AttrSel.disable_item(0)
@AttrSel.disable_item(1)
@AttrSel.disable_item(2)
@AttrSel.disable_item(3)
@AttrSel.disable_item(4)
@AttrSel.disable_item(5)
return
end
when 1
unless $SPLCH2 > 0
$game_system.se_play($data_system.buzzer_se)
return
end
Pomógł: 9 razy Dołączył: 28 Mar 2010 Posty: 173 Skąd: Warszawa
Wysłany: Wto 13 Lip, 2010 19:59
Mangekyou, a to coś podobnego do Dodawania Statusu? czy normalnie tylko widać ; P, chce się dowiedzieć czy do czegoś ogólnie służy czy tylko tak dla Picu widać , czekam na odpowiedź z Pozdrowieniami R.I.P.
Pomógł: 2 razy Dołączył: 20 Mar 2010 Posty: 127 Skąd: z Netaa !
Wysłany: Sro 14 Lip, 2010 08:38
Wszystko powinno być zrozumiałe, skrypt zmienia okno statusu jak widać
na "skrinszocie" i pokazuje nam napis jeśli podniesie nam się poziom (Lvl).
We skrypcie wszystko pisze o czym chcesz się dowiedzieć, przecież
nie tłumaczyłem na Japoński tylko po Polsku xD.
Pozdrawiam
Zapomniałem dodać że na samym dole pisze też "by Drago del Fato".
To autor strony z której mam ten skrypt, nie trzeba dawać go do
Creditów.
Dodaję nowy Screen jak to wygląda jak podnosi się nam
Poziom:
Spoiler:
________________________ Padł mi laptop ... wszystko, RPG Maker i projekty, wszystko się skończyło. Nie bawię się już w RPGM'a, Zmieniam wizerunek.
Nowa strona, szukam tłumaczy, edytorów, korektorów i HTMLowców ! :D
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum