Pokémon Script Project Forum Index

Manuel | Search
 Information des admins 
Si vous désirez parler de PSP ou obtenir du soutient là dessus, merci d'aller faire un tour sur https://pokemonworkshop.com/forum/index.php Imbécile heureux

Carte dresseur Ultimate
Goto page: 1, 2  >
 
Post new topic   Reply to topic    Pokémon Script Project Forum Index -> Game Making -> Ressources techniques -> Scripts
Previous topic :: Next topic   
Author Message
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 16:12 (2012)    Post subject: Carte dresseur Ultimate

[Pour PSP 0.7]
Bonjour, voilà, après un peu de taf et d'apprentissage en script, voici le fruit de mon travail: une grosse amélioration du script carte dresseur.
Voici comment l'installer:

PS: Crédit à Slash et à moi lol (Zohran)


Lien des images:
www.mediafire.com/?ic1nalh73l9mt4b


Le son de la carte qui tourne à mettre dans Audio/SE:
www.mediafire.com/?2326xzn8978p1wy


Le script :

#==============================================================================    
# ¦ Carte Dresseur    
#    Script Communauté PSP - Slash  
#    Ajout de rotation et animation du background par Zohran   
#    le 18/7/09    
#-----------------------------------------------------------------------------    
# Support de carte dresseur    
#-----------------------------------------------------------------------------    
# Pour changer l'image de vos badges, allez dans le dossier Icons de votre     
# projet et remplacer les images BadgeX.png ou X est le numero du badge    
#-----------------------------------------------------------------------------    
# Interrupteurs occupés : 1001-1008 : Gestion des badge : activé ses    
# intérupteurs lorsque vous recevez un badge    
# ex : vous recevez le badge 1 alors activé l'intérupteur 1001    
# 1002 pour le badge 2 etc ...    
#-----------------------------------------------------------------------------    
# Variables occupés : 1501-1504 : Gestion des Objectifs : Augmenter ou Diminuer    
# ces Variables pour gerez vos objectifs    
# La variable 1501 correspond a l'objectif 1    
# La variable 1502 correspond a l'objectif 2 etc...    
# Vous pouvez renomés les objectifs via le script ci dessous    
#-----------------------------------------------------------------------------    
    
module POKEMON_S_TCARD    
   # Nom des objectifs    
  OBJECTIF1 = "Premier Objectif"    
  OBJECTIF2 = "Deuxieme Objectif"    
  OBJECTIF3 = "Troisieme Objectif"    
  OBJECTIF4 = "Quatrieme Objectif"    
    
end    
    
class Scene_T_Card    
  def main    
    Graphics.freeze  
       
    @z_level = 10000  
    @fond=Viewport.new(0,0,640,480)  
    @fond.z = @z_level  
    @background = Plane.new(@fond)    
    @background.bitmap = Bitmap.new("Graphics/Pictures/T_Card_Back.PNG")    
    @background.z = @z_level   
    @carte = Sprite.new    
    @carte.bitmap = RPG::Cache.picture("T_Card.PNG")    
    @carte.x = 0    
    @carte.y = 0    
    @carte.z = @z_level  
    @perso = Sprite.new    
    if $game_variables[1000] == nil or $game_variables[1000] == 0    
      @perso.bitmap = RPG::Cache.picture("persogars.png")    
    end     
    if $game_variables[1000] == 1       
      @perso.bitmap = RPG::Cache.picture("persogars.png")       
    end     
    if $game_variables[1000] == 2       
      @perso.bitmap = RPG::Cache.picture("persofille.png")       
    end     
    @perso.x = 414    
    @perso.y = 162    
    @perso.z = @z_level + 2    
    @badge1 = Sprite.new       
    @badge2 = Sprite.new       
    @badge3 = Sprite.new       
    @badge4 = Sprite.new       
    @badge5 = Sprite.new       
    @badge6 = Sprite.new       
    @badge7 = Sprite.new       
    @badge8 = Sprite.new     
    @badge1.bitmap = RPG::Cache.icon("Badge1.png")       
    @badge2.bitmap = RPG::Cache.icon("Badge2.png")       
    @badge3.bitmap = RPG::Cache.icon("Badge3.png")       
    @badge4.bitmap = RPG::Cache.icon("Badge4.png")       
    @badge5.bitmap = RPG::Cache.icon("Badge5.png")       
    @badge6.bitmap = RPG::Cache.icon("Badge6.png")       
    @badge7.bitmap = RPG::Cache.icon("Badge7.png")       
    @badge8.bitmap = RPG::Cache.icon("Badge8.png")    
    @badge1.x = 146    
    @badge2.x = 194    
    @badge3.x = 242      
    @badge4.x = 290      
    @badge5.x = 338       
    @badge6.x = 386       
    @badge7.x = 434       
    @badge8.x = 482     
    @badge1.y = 336    
    @badge2.y = 336    
    @badge3.y = 336     
    @badge4.y = 336    
    @badge5.y = 336    
    @badge6.y = 336    
    @badge7.y = 336       
    @badge8.y = 336    
    @badge1.z = @z_level + 2    
    @badge2.z = @z_level + 2        
    @badge3.z = @z_level + 2     
    @badge4.z = @z_level + 2    
    @badge5.z = @z_level + 2    
    @badge6.z = @z_level + 2    
    @badge7.z = @z_level + 2    
    @badge8.z = @z_level + 2    
    if $game_switches[1001] == true    
      @badge1.opacity = 255    
      else    
      @badge1.opacity = 0    
    end      
    if $game_switches[1002] == true    
      @badge2.opacity = 255    
      else    
      @badge2.opacity = 0    
    end     
    if $game_switches[1003] == true    
      @badge3.opacity = 255    
      else    
      @badge3.opacity = 0    
    end     
    if $game_switches[1004] == true    
      @badge4.opacity = 255    
      else    
      @badge4.opacity = 0    
    end     
    if $game_switches[1005] == true    
      @badge5.opacity = 255    
      else    
      @badge5.opacity = 0    
    end     
    if $game_switches[1006] == true    
      @badge6.opacity = 255    
      else    
      @badge6.opacity = 0    
    end     
    if $game_switches[1007] == true    
      @badge7.opacity = 255    
      else    
      @badge7.opacity = 0    
    end     
    if $game_switches[1008] == true    
      @badge8.opacity = 255    
      else    
      @badge8.opacity = 0    
    end         
    @card = Window_T_Card.new    
    @card.x = 0    
    @card.y = 0    
    @card.z = @z_level + 2    
    @card.opacity = 0     
    @spriteset = Spriteset_Map.new    
    Graphics.transition    
      loop do    
        @background.ox += 1  
        @background.oy += 1  
        Graphics.update    
        Input.update    
        update  
        if $scene != self    
          break    
        end    
      end    
    Graphics.freeze  
    @background.dispose  
  end    
      
  def update    
    @spriteset.update  
    if Input.trigger?(Input::B)    
      # ????? SE ???    
      $game_system.se_play($data_system.cancel_se)    
      # ??????????    
      @badge1.dispose    
      @badge2.dispose    
      @badge3.dispose    
      @badge4.dispose    
      @badge5.dispose    
      @badge6.dispose    
      @badge7.dispose    
      @badge8.dispose    
      @card.dispose  
      @spriteset.dispose  
      @carte.dispose  
      @perso.dispose  
      $scene = POKEMON_S::Pokemon_Menu.new  
      return    
    end        
    if Input.trigger?(Input::C)    
      # ????? SE ???    
      $game_system.se_play($data_system.cancel_se)    
      # ??????????  
      @badge1.dispose    
      @badge2.dispose    
      @badge3.dispose    
      @badge4.dispose    
      @badge5.dispose    
      @badge6.dispose    
      @badge7.dispose    
      @badge8.dispose    
      @card.dispose  
      @spriteset.dispose  
      for i in 0..47  
      @carte.zoom_x -=0.02  
      @carte.x += 7  
      @perso.zoom_x -=0.02  
      @perso.x -= 0.99  
      Graphics.update  
      end  
      @carte.dispose  
      @perso.dispose  
      $scene = Scene_T_Card_Verso.new  
      return    
    end            
  end      
end    
    
class Window_T_Card < Window_Base  
  include POKEMON_S  
  def initialize  
    super(0, 0, 640, 480)     
    self.contents = Bitmap.new(width - 32, height - 32)     
    self.contents.font.name = $fontface     
    self.contents.font.size = $fontsize     
    self.contents.font.color = Color.new(255,255,255)     
    @captured = 0  
    for i in 1..$data_pokedex.length-1     
      if $data_pokedex[i][1]     
        @captured += 1     
      end     
    end     
    refresh     
  end      
      
  def refresh  
    self.contents.clear  
    self.contents.font.color = Color.new(255,255,255)  
    self.contents.draw_text(82, 84, 120, 32,Player.name)  
    self.contents.draw_text(184, 84, 120, 32,"ID " + Player.id.to_s, 2)  
    self.contents.draw_text(365, 70, 120, 32, "Code Echange",2)  
    self.contents.draw_text(351, 98, 120, 32, Player.trainer_trade_code,2)  
    @order = [0,1,2,3,4,5]  
    if $pokemon_party.size > 0  
      for i in 0..($pokemon_party.size - 1)  
       @pokemon = $pokemon_party.actors[@order[i]]  
       id = @pokemon.id  
       idx = (id - 1 )% 15  
       idy = (id - 1 ) / 15  
       xrect = idx * 100  
       yrect = idy * 60  
       src_rect = Rect.new(xrect, yrect, 100, 60)  
       bitmap = RPG::Cache.picture("T_Card Pokémon.PNG")  
       if i < 3  
        if @pokemon.egg   
          bitmap = RPG::Cache.picture("T_Card_Eggs.PNG")  
          src_rect = Rect.new(0, 0, 100, 60)  
          self.contents.blt(70 + 104 * i, 156, bitmap, src_rect, 255)  
        else  
          self.contents.blt(70 + 104 * i, 156, bitmap, src_rect, 255)  
          draw_gender(154 +104 * i, 190, @pokemon.gender)  
        end  
      else  
        if @pokemon.egg   
          bitmap = RPG::Cache.picture("T_Card_Eggs.PNG")  
          src_rect = Rect.new(0, 0, 100, 60)  
          self.contents.blt(70 + 104 * (i-3), 220, bitmap, src_rect, 255)  
        else  
          self.contents.blt(70 + 104 * (i-3), 220, bitmap, src_rect, 255)  
          draw_gender(154 + 104 * (i-3), 254, @pokemon.gender)  
        end  
       end  
     end  
     return  
    end    
    
    
  end    
        
  def draw_gender(x, y, gender)    
      if gender == 1    
        rect = Rect.new(0, 0, 18, 33)    
        bitmap = RPG::Cache.picture("Maleb.png")    
        self.contents.blt(x, y, bitmap, rect, 255)    
      end    
      if gender == 2    
        rect = Rect.new(0, 0, 18, 33)    
        bitmap = RPG::Cache.picture("Femaleb.png")    
        self.contents.blt(x, y, bitmap, rect, 255)            
      end    
  end      
      
    
end      
    
class Scene_T_Card_Verso    
  def main    
    Graphics.freeze  
    @z_level = 10000  
    @fond=Viewport.new(0,0,640,480)  
    @fond.z = @z_level  
    @background = Plane.new(@fond)    
    @background.bitmap = Bitmap.new("Graphics/Pictures/T_Card_Back.PNG")    
    @background.z = @z_level    
    @carte = Sprite.new    
    @carte.bitmap = RPG::Cache.picture("T_Card_Verso.PNG")    
    @carte.x = 0    
    @carte.y = 0  
    @carte.z = @z_level  
    @Verso = Window_T_Card_Verso.new    
    @Verso.x = 0    
    @Verso.y = 0    
    @Verso.z = @z_level + 2    
    @Verso.opacity = 0     
    @spriteset = Spriteset_Map.new  
      
    Graphics.transition    
      loop do   
        @background.ox += 1  
        @background.oy += 1  
        Graphics.update    
        Input.update    
        update  
        if $scene != self    
          break    
        end    
      end    
    Graphics.freeze    
    @background.dispose  
    @carte.dispose  
  end    
      
  def update  
    @spriteset.update  
    if Input.trigger?(Input::B)    
      # ????? SE ???    
      $game_system.se_play($data_system.cancel_se)    
      # ??????????  
      @Verso.dispose  
      @spriteset.dispose  
      $scene = POKEMON_S::Pokemon_Menu.new      
      return    
    end     
    if Input.trigger?(Input::C)    
      # ????? SE ???    
      $game_system.se_play($data_system.cancel_se)    
      # ??????????  
      @Verso.dispose  
      @spriteset.dispose   
      for i in 0..47  
      @carte.zoom_x -=0.02  
      @carte.x += 7  
      Graphics.update  
      end  
      $scene = Scene_T_Card.new  
      return    
    end     
  end      
      
end    
    
class Window_T_Card_Verso < Window_Base  
  include POKEMON_S  
  include POKEMON_S_TCARD  
  def initialize  
    super(0, 0, 640, 480)     
    self.contents = Bitmap.new(width - 32, height - 32)     
    self.contents.font.name = $fontface     
    self.contents.font.size = $fontsize     
    self.contents.font.color = Color.new(255,255,255)     
    @captured = 0  
    @viewed = 0  
    for i in 1..$data_pokedex.length-1     
      if $data_pokedex[i][1]     
        @captured += 1     
      end   
      if $data_pokedex[i][0]  
        @viewed += 1   
      end  
    end   
    refresh     
  end  
    
  def refresh  
    self.contents.clear  
    self.contents.font.color = Color.new(255,255,255)  
    self.contents.draw_text(82, 84, 120, 32,Player.name)  
    self.contents.draw_text(184, 84, 120, 32,"ID " + Player.id.to_s, 2)  
    self.contents.draw_text(365, 70, 120, 32, "Code Echange",2)  
    self.contents.draw_text(351, 98, 120, 32, Player.trainer_trade_code,2)  
    self.contents.draw_text(74, 300, 300, 32, "Argent : " + $pokemon_party.money.to_s  + "$")  
    @total_sec = Graphics.frame_count / Graphics.frame_rate     
    hour = @total_sec / 60 / 60     
    min = @total_sec / 60 % 60     
    temps = sprintf("%02d:%02d", hour, min)  
    self.contents.draw_text(336, 300, 300, 32, "Temps de jeu : " + temps)  
    self.contents.draw_text(74, 340, 500, 32, "Pokédex : " + @captured.to_s + " Capturés / " + @viewed.to_s + " Aperçus")  
    self.contents.font.color = Color.new(41,53,57)  
    self.contents.draw_text(74, 120, 380, 64, "■ " + OBJECTIF1)  
    self.contents.draw_text(74, 160, 380, 64, "■ " + OBJECTIF2)  
    self.contents.draw_text(74, 200, 380, 64, "■ " + OBJECTIF3)  
    self.contents.draw_text(74, 240, 380, 64, "■ " + OBJECTIF4)  
    self.contents.draw_text(156, 120, 380, 64, $game_variables[1501].to_s,2)  
    self.contents.draw_text(156, 160, 380, 64, $game_variables[1502].to_s,2)  
    self.contents.draw_text(156, 200, 380, 64, $game_variables[1503].to_s,2)  
    self.contents.draw_text(156, 240, 380, 64, $game_variables[1504].to_s,2)      
    return  
  end  
end



Et pour finir, retirez "$game_temp.common_event_id = 19" dans Pokemon_Menu et remplacer "Scene_Map.new" à la ligne qui suit par "$scene = Scene_T_Card.new", vous pourrez ainsi retirer l'évènement commun carte dresseur.


SCREEN


Enjoy it boys and girls ! :banana:


Last edited by Zohran on Sun 13 May - 13:43 (2012); edited 9 times in total
Back to top
Publicité






PostPosted: Sun 29 Apr - 16:12 (2012)    Post subject: Publicité

PublicitéSupprimer les publicités ?
Back to top
Qwerty
Animateur
Animateur


Joined: 29 Oct 2009
Posts: 1,411
a.k.a. Walven Masculin

PostPosted: Sun 29 Apr - 16:46 (2012)    Post subject: Carte dresseur Ultimate

Je te conseille de mettre des screens qu'on puisse voir à quoi s'attendre.
Et met le script sous spoiler.
Back to top
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 16:54 (2012)    Post subject: Carte dresseur Ultimate

Comment met on sous spoiler? (les screens sont inutiles, l'animation se voit en essayant !)
Back to top
Qwerty
Animateur
Animateur


Joined: 29 Oct 2009
Posts: 1,411
a.k.a. Walven Masculin

PostPosted: Sun 29 Apr - 16:56 (2012)    Post subject: Carte dresseur Ultimate

Tu fais (sans les étoiles):

[*spoiler]
ton script
[/spoiler*]
Back to top
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 16:58 (2012)    Post subject: Carte dresseur Ultimate

Merci beaucoup, c'est bon !
Back to top
Laito'
Membre


Joined: 03 Feb 2012
Posts: 2,168
O NN PA LE KOUTO
Localisation: Béziers
Masculin
ID Steam: laitonite
Nintendo Network: laitonite_laito

PostPosted: Sun 29 Apr - 17:10 (2012)    Post subject: Carte dresseur Ultimate

Un aperçut ? Je voudrais savoir avant de dl des images ou autre inutilement.
Back to top
Visit poster’s website Skype Facebook Twitter
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 17:43 (2012)    Post subject: Carte dresseur Ultimate

Voilà votre screen tant voulu !
Back to top
Brendan75
Ex-staff


Joined: 24 Mar 2008
Posts: 1,827
Localisation: Paris
Masculin

PostPosted: Sun 29 Apr - 17:43 (2012)    Post subject: Carte dresseur Ultimate

Il faut non seulement un aperçu, mais la balise code pour le code est préférable ^^'
Back to top
Laito'
Membre


Joined: 03 Feb 2012
Posts: 2,168
O NN PA LE KOUTO
Localisation: Béziers
Masculin
ID Steam: laitonite
Nintendo Network: laitonite_laito

PostPosted: Sun 29 Apr - 17:44 (2012)    Post subject: Carte dresseur Ultimate

...Bah tu as fais quoi ? Sur ce screen je reconnais que ce que Slash a fait ._.
Back to top
Visit poster’s website Skype Facebook Twitter
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 17:48 (2012)    Post subject: Carte dresseur Ultimate

Décidemment, vous êtes tétus, ce qui change est l'animation du background et l'effet de carte dresseur qui pivote, mais je l'ai dit que ce script viens de Slash, je l'ai mentionné au début ! C'est pour ça que le screen est inutile ! Je peux pas faire un screen animé lol ... ou un gif mais la FLEMME !!!!!!!!


Tétus sauf Brendan apparemment !


Last edited by Zohran on Sun 29 Apr - 18:18 (2012); edited 1 time in total
Back to top
Brendan75
Ex-staff


Joined: 24 Mar 2008
Posts: 1,827
Localisation: Paris
Masculin

PostPosted: Sun 29 Apr - 17:56 (2012)    Post subject: Carte dresseur Ultimate

Benvenu sur PSP ! Plus sérieusement, il faudra s'habituer à faire des ressources pour rien, sans recevoir de compliment... Mais essaie de t'attaquer à des interface plus personnalisées pour avoir plus de succès.
Back to top
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 18:00 (2012)    Post subject: Carte dresseur Ultimate

D'accord, mais moi mon but est de fournir le système,  pas les ressources car un projet unique = ressources uniques
Back to top
Brendan75
Ex-staff


Joined: 24 Mar 2008
Posts: 1,827
Localisation: Paris
Masculin

PostPosted: Sun 29 Apr - 18:03 (2012)    Post subject: Carte dresseur Ultimate

Tu veux t'attaquer au cœur de PSP ? T'es un courageux toi ? O.ô
Back to top
Zohran
Support Technique
Support Technique


Joined: 14 May 2011
Posts: 906
Localisation: France
Masculin

PostPosted: Sun 29 Apr - 18:07 (2012)    Post subject: Carte dresseur Ultimate

lol oui ! On peut dire cela ! Falco Lombardi
Back to top
Eurons くさ
Animateur
Animateur


Joined: 23 Nov 2011
Posts: 1,040
La mort.
Localisation: Partout dans ce monde ou je puis ôter la vie.
Non renseigné (Visible...)

PostPosted: Sun 29 Apr - 18:27 (2012)    Post subject: Carte dresseur Ultimate

Moi je te dis bravo pour ce que tu as fait, j'ai testé et j'aime bien.

PS: Tu veut pas m'apprendre à scripter?
Back to top
Skype
Contenu Sponsorisé






PostPosted: Today at 19:25 (2019)    Post subject: Carte dresseur Ultimate

Back to top
Display posts from previous:   
Post new topic   Reply to topic    Pokémon Script Project Forum Index -> Game Making -> Ressources techniques -> Scripts All times are GMT + 1 Hour
Goto page: 1, 2  >
Page 1 of 2

 
Jump to:  

Index | Free forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Thème par Thomas et l'équipe de la refonte PSP 2012 (version 1.0)