The truth of the Title^_^

[Xemnas]

Allora ritorno da un po' che non postavo più questo genere di file^_^

allora passiamo alle cose seri^_^

MOG_Title_Miria

 

 

Questo scipt serve a far visualizzare il title in movimento^_^

Ecco lo script:

 

Auore=Moghunter

Traduttore della demo e dello script= Il sottoscritto

Istruzioni:

Da inserire otto materials^_^

Script:

 

##################################################
# Scene Titolo Screen Miria V1.0 #
##################################################
# Con Moghunter
# Http: / / www.atelier-rgss.com
##################################################
# Schermata dei titoli animati.
# Creare una cartella con il nome della cartella Title
# Grafica e mettere tutte le immagini all'interno.
# Abbiamo bisogno delle seguenti immagini.
#
# Title       #Immgaine che contiene il testo del Title
#Transizione  #transizione dello schermo di immagini
#Livello      #immagine Plane1 1
#Plane2       #Image Layer 2
#Plane3       #livello immagine 3
#Com_01       #immagine menu di selezione NEW GAME
#Com_02       #menu di selezione immagine CONTINUA
#Com_03       #selezione menu immagine EXIT
#
#-------------------------------------------------
#######################
#   CONFIGURAZIONE    #
#######################
module MOG_VX01
# Abilita a schermo intero. (true = false = Attiva o Disattiva)
FULL_SCREEN = false
# Tempo di transizione.
TT = 120
# Attiva il movimento delle onde nel testo del titolo.
# (True = false = Attiva o Disattiva)
TWAVE = true
# Opacità del livello dell'immagine 1.
TPLANE1_OPA = 255
# Opacità del livello dell'immagine 2.
TPLANE2_OPA = 200
## Opacità del livello dell'immagine 3
TPLANE3_OPA = 170
# Velocità di movimento del livello orizzontale 1.
TPLANE1_X = 1
# Velocità di movimento dello strato di 1 verticale.
TPLANE1_Y = 0
# Velocità di movimento orizzontale di livello 2.
TPLANE2_X = 2
# Velocità di movimento dei layer 2 in verticale.
TPLANE2_Y = 0
# Velocità di movimento orizzontale di livello 2.
TPLANE3_X = 4
# Velocità di movimento dei layer 2 in verticale.
TPLANE3_Y = 0
end
#-------------------------------------------------
$mogscript = {} if $mogscript == nil
$mogscript["title_miria"] = true
#-------------------------------------------------
###############
# Modulo Cache #
###############
module Cache
 def self.title(filename)
   load_bitmap("Graphics/Title/", filename)
 end
end
###############
# Scene_Title #
###############
$full_screen = 0
class Scene_Title
include  MOG_VX01
   def main
   if $BTEST                       
     battle_test                     
   return
   end      
   $full_screen += 1
   if MOG_VX01::FULL_SCREEN == true and $full_screen == 1
   $showm = Win32API.new 'user32', 'keybd_event', %w(l l l l), ' ' 
   $showm.call(18,0,0,0) 
   $showm.call(13,0,0,0) 
   $showm.call(13,0,2,0) 
   $showm.call(18,0,2,0)
   end     
   start                         
   perform_transition          
   post_start                    
   Input.update                
   loop do
     Graphics.update            
     Input.update                
     update                      
     break if $scene != self    
   end
   Graphics.update
   pre_terminate                 
   Graphics.freeze               
   terminate                     
 end
 def start
   load_database                    
   create_game_objects            
   check_continue                    
   create_title_graphic             
   create_command_window         
   play_title_music                 
 end
 def perform_transition
   Graphics.transition(TT , "Graphics/Title/Transition")
 end
 def post_start
   open_command_window
 end
 def pre_terminate
   close_command_window
 end
 def terminate
   dispose_command_window
   snapshot_for_background
   dispose_title_graphic
 end
 def update
   @command_window.update
    case @command_window.index
    when 0
    @com.bitmap = Cache.title("Com_01") 
    when 1
    @com.bitmap = Cache.title("Com_02")   
    when 2
    @com.bitmap = Cache.title("Com_03") 
  end       
   @sprite_title.opacity += 2
   @com.opacity += 2 if @sprite_title.opacity > 150
   @sprite.ox += TPLANE1_X
   @sprite.oy += TPLANE1_Y
   @sprite2.ox += TPLANE2_X
   @sprite2.oy += TPLANE2_Y
   @sprite3.ox += TPLANE3_X
   @sprite3.oy += TPLANE3_Y
   @sprite_title.update if TWAVE == true
   if Input.trigger?(Input::C)
     case @command_window.index
     when 0  
       command_new_game
     when 1   
       command_continue
     when 2   
       command_shutdown
     end
   end
 end
 def update_slide
   @sprite.ox += TPLANE1_X
   @sprite.oy += TPLANE1_Y
   @sprite2.ox += TPLANE2_X
   @sprite2.oy += TPLANE2_Y
   @sprite3.ox += TPLANE3_X
   @sprite3.oy += TPLANE3_Y
   @sprite_title.update if TWAVE == true    
 end
 def load_database
   $data_actors        = load_data("Data/Actors.rvdata")
   $data_classes       = load_data("Data/Classes.rvdata")
   $data_skills        = load_data("Data/Skills.rvdata")
   $data_items         = load_data("Data/Items.rvdata")
   $data_weapons       = load_data("Data/Weapons.rvdata")
   $data_armors        = load_data("Data/Armors.rvdata")
   $data_enemies       = load_data("Data/Enemies.rvdata")
   $data_troops        = load_data("Data/Troops.rvdata")
   $data_states        = load_data("Data/States.rvdata")
   $data_animations    = load_data("Data/Animations.rvdata")
   $data_common_events = load_data("Data/CommonEvents.rvdata")
   $data_system        = load_data("Data/System.rvdata")
   $data_areas         = load_data("Data/Areas.rvdata")
 end
 def load_bt_database
   $data_actors        = load_data("Data/BT_Actors.rvdata")
   $data_classes       = load_data("Data/BT_Classes.rvdata")
   $data_skills        = load_data("Data/BT_Skills.rvdata")
   $data_items         = load_data("Data/BT_Items.rvdata")
   $data_weapons       = load_data("Data/BT_Weapons.rvdata")
   $data_armors        = load_data("Data/BT_Armors.rvdata")
   $data_enemies       = load_data("Data/BT_Enemies.rvdata")
   $data_troops        = load_data("Data/BT_Troops.rvdata")
   $data_states        = load_data("Data/BT_States.rvdata")
   $data_animations    = load_data("Data/BT_Animations.rvdata")
   $data_common_events = load_data("Data/BT_CommonEvents.rvdata")
   $data_system        = load_data("Data/BT_System.rvdata")
 end
 def create_game_objects
   $game_temp          = Game_Temp.new
   $game_message       = Game_Message.new
   $game_system        = Game_System.new
   $game_switches      = Game_Switches.new
   $game_variables     = Game_Variables.new
   $game_self_switches = Game_SelfSwitches.new
   $game_actors        = Game_Actors.new
   $game_party         = Game_Party.new
   $game_troop         = Game_Troop.new
   $game_map           = Game_Map.new
   $game_player        = Game_Player.new
 end
 def check_continue
   @continue_enabled = (Dir.glob('Save*.rvdata').size > 0)
 end
 def create_title_graphic
   @sprite_title = Sprite.new    
   @sprite_title.bitmap = Cache.title("Title")  
   @sprite_title.opacity = 0
   @com = Sprite.new
   @com.bitmap = Cache.title("Com_01")  
   @com.opacity = 0
   @sprite = Plane.new    
   @sprite.bitmap = Cache.title("Plane1")
   @sprite2 = Plane.new 
   @sprite2.bitmap = Cache.title("Plane2")
   @sprite3 = Plane.new    
   @sprite3.bitmap = Cache.title("Plane3")
   @sprite.opacity = TPLANE1_OPA
   @sprite2.opacity = TPLANE2_OPA    
   @sprite3.opacity = TPLANE3_OPA    
   @sprite.z  = 1
   @sprite2.z = 2
   @sprite3.z = 3
   @com.z = 4
   @sprite_title.z = 5    
 if TWAVE == true
   @sprite_title.wave_amp = 8
   @sprite_title.wave_length = 240
   @sprite_title.wave_speed = 320
 end
   end
 def dispose_title_graphic
   @sprite.bitmap.dispose
   @sprite2.bitmap.dispose
   @sprite3.bitmap.dispose    
   @com.bitmap.dispose    
   @sprite_title.bitmap.dispose 
   @sprite.dispose
   @sprite2.dispose
   @sprite3.dispose
   @com.dispose     
   @sprite_title.dispose
 end
 def create_command_window
   s1 = Vocab::new_game
   s2 = Vocab::continue
   s3 = Vocab::shutdown
   @command_window = Window_Command.new(172, [s1, s2, s3])
   @command_window.opacity = 0
   @command_window.contents_opacity = 0
   if @continue_enabled                  
     @command_window.index = 1             
   else                               
     @command_window.draw_item(1, false)   
   end
 end
 def title_fade
  if TWAVE == true    
   @sprite_title.wave_amp = 34
   @sprite_title.wave_length =120
   @sprite_title.wave_speed = 800
   end    
   for i in 0..120
   @sprite_title.opacity -= 3    
   @sprite_title.update if TWAVE == true    
   @com.opacity -= 3 
    case @command_window.index
    when 0    
    @sprite.zoom_x += 0.01
    @sprite.zoom_y += 0.01   
    @sprite2.zoom_x += 0.01
    @sprite2.zoom_y += 0.01       
    @sprite3.zoom_x += 0.01
    @sprite3.zoom_y += 0.01       
    @sprite.ox += 2
    @sprite.oy += 2
    @sprite2.ox += 2
    @sprite2.oy += 2
    @sprite3.ox += 2
    @sprite3.oy += 2    
    end
   update_slide
   Graphics.update  
   end         
 end  
 def dispose_command_window
   @command_window.dispose
 end
 def open_command_window
   @command_window.open
   begin
     @command_window.update
     Graphics.update
   end until @command_window.openness == 255
 end
 def close_command_window
   @command_window.close
   begin
     @command_window.update
     Graphics.update
   end until @command_window.openness == 0
 end
 def play_title_music
   $data_system.title_bgm.play
   RPG::BGS.stop
   RPG::ME.stop
 end
 def confirm_player_location
   if $data_system.start_map_id == 0
     print "La posizione iniziale del giocatore non è impostata"
     exit
   end
 end
 def command_new_game
   confirm_player_location
   Sound.play_decision
   title_fade
   $game_party.setup_starting_members        
   $game_map.setup($data_system.start_map_id)   
   $game_player.moveto($data_system.start_x, $data_system.start_y)
   $game_player.refresh
   $scene = Scene_Map.new
   RPG::BGM.fade(1500)
   close_command_window
   Graphics.fadeout(60)
   Graphics.wait(40)
   Graphics.frame_count = 0
   RPG::BGM.stop
   $game_map.autoplay
 end
 def command_continue
   if @continue_enabled
     Sound.play_decision
     title_fade
     $scene = Scene_File.new(false, true, false)
   else
     Sound.play_buzzer
   end
 end
 def command_shutdown    
   Sound.play_decision
   title_fade
   RPG::BGM.fade(800)
   RPG::BGS.fade(800)
   RPG::ME.fade(800)
   $scene = nil
 end
 def battle_test
   load_bt_database              
   create_game_objects         
   Graphics.frame_count = 0          
   $game_party.setup_battle_test_members
   $game_troop.setup($data_system.test_troop_id)
   $game_troop.can_escape = true
   $game_system.battle_bgm.play
   snapshot_for_background
   $scene = Scene_Battle.new
 end
 def snapshot_for_background
   $game_temp.background_bitmap.dispose
   $game_temp.background_bitmap = Graphics.snap_to_bitmap
   $game_temp.background_bitmap.blur
 end
 end 

 

 

 

 

Ecco la demo con le immagini(kle immagini devono essere inserite come nella demo(la posizione nella cartella del prog.Intendo^_^)

 

Demo^_^

 

 

Ok ciao a tutti e spero di esservi stato utile^_^....

Xemnas :rovatfl:

P.S.=Si ho un tic nervoso nella realtà e questo^_^ è nella virtualità^_^

Edited January 7, 2010 by Xemnas

[Guardian of Irael]

L' autore è Moghunter ^ ^

[fanton95]

Sì infatti, ogni script con il prefisso "Mog" è di Moghunter. Comunque conoscevo già da tanto questo script, strano che non ci sia già sul forum.

 

Comunque mi sa che hai un tic con queste faccine eh ^_^

Edited January 6, 2010 by fanton95

[Xemnas]

Sì infatti, ogni script con il prefisso "Mog" è di Moghunter. Comunque conoscevo già da tanto questo script, strano che non ci sia già sul forum.

 

Comunque mi sa che hai un tic con queste faccine eh ^_^

 

EDIT=PRIMO POST

[Kingartur2]

Be si Mog fa sempre belli script, il bello che sono in portoghese che è molto simile all'italiano, quindi bene o male si capisce quasi sempre ciò che scrive nei suoi script

[Guardian of Irael]

Auore=Moghunter(grazie a Guardian of Irael e Fanton95)

Non c' era bisogno di ringraziare XD Così sembra che grazie a noi due l'autore è Moghunter (gli abbiamo salvato la vita? XD), altrimenti sarebbe stato un altro...

XD

^ ^

[dantuzzu]

Mi piace troppo sto script !! deciso lo uso per il mio progetto,ho

modificato le immagini,metto l'immagine fatemi sapere che ne pensate :)

 

 

http://img193.imageshack.us/img193/9814/menupersonalizzato.png

 

 

si lo so le scritte sono molto semplici ho cercato ovunque dei fonts per windows 7 ma niente :(

mentre ci sono ve lo chiedo a voi,sapete dove posso trovare dei font per windows 7? Dei font

tipo per fare il titolo in modo particolare,so che non è la sezione giusta per chiedere questo xd

Edited July 20, 2010 by dantuzzu

[Guardian of Irael]

Per fare un buon lavoro con le scritte non ti servono font, ma dei buoni programmi di grafica avanzata, così da dar profondità, aggiungere effetti e renderle più corpose! Prova a cercare se trovi qualche tutorial su google (ad esempio per photoshop).

^ ^

[dantuzzu]

Ok grazie :)

 

comunque il mio problema che con la grafica a modficare immagini e cose varie me la cavo,ma a creare scritte non c'è la faccio proprio posso fare con i font e poi metto effetti per questo cercavo dei font,ho provato a cercare un pò su internet dei tutorial ma niente io uso paint.net e gimp(versione windows)

Edited July 21, 2010 by dantuzzu

[dantuzzu]

lo modificato nuovamente,che ne pensate?

 

http://a.imageshack.us/img80/8319/scenatitolo.png

 

[MasterSion]

Mmm direi orribile... Cerca di fare qualcosa di tuo e molto più semplice.

[Guardian of Irael]

Quoto...i due personaggi sullo sfondo centrano qualcosa con la storia? E non trovi che quell'"esci" stoni terribilmente con il resto (anche le altre opzioni...)? Ci vuole un po' di buon gusto...poi perfavore non continuare a postare o chiedere qui cose che poco centrano con lo script, utilizza le sezioni adatte.

^ ^

[dantuzzu]

capito...comunque qualcosa di mio??? Ma se lo fattto tutto io -.-" apparte lo sfondo ovviamente

[DaemonHacking1010]

Fantastico!!! Adoro questo script!!! :ahsi: :wub: :wub: !!!