Pokémon Script Project Index du Forum

S’enregistrer | Rechercher | Connexion
 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
Aller à la page: 1, 2  >
 
Poster un nouveau sujet   Répondre au sujet    Pokémon Script Project Index du Forum -> Game Making -> Ressources techniques -> Scripts
Sujet précédent :: Sujet suivant   
Auteur Message
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 16:12 (2012)    Sujet du message: 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:


Dernière édition par Zohran le Dim 13 Mai - 13:43 (2012); édité 9 fois
Revenir en haut
Publicité






MessagePosté le: Dim 29 Avr - 16:12 (2012)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Qwerty
Animateur
Animateur


Inscrit le: 29 Oct 2009
Messages: 1 411
a.k.a. Walven Masculin

MessagePosté le: Dim 29 Avr - 16:46 (2012)    Sujet du message: Carte dresseur Ultimate

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


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 16:54 (2012)    Sujet du message: Carte dresseur Ultimate

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


Inscrit le: 29 Oct 2009
Messages: 1 411
a.k.a. Walven Masculin

MessagePosté le: Dim 29 Avr - 16:56 (2012)    Sujet du message: Carte dresseur Ultimate

Tu fais (sans les étoiles):

[*spoiler]
ton script
[/spoiler*]
Revenir en haut
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 16:58 (2012)    Sujet du message: Carte dresseur Ultimate

Merci beaucoup, c'est bon !
Revenir en haut
Laito'
Membre


Inscrit le: 03 Fév 2012
Messages: 2 168
O NN PA LE KOUTO
Localisation: Béziers
Masculin
ID Steam: laitonite
Nintendo Network: laitonite_laito

MessagePosté le: Dim 29 Avr - 17:10 (2012)    Sujet du message: Carte dresseur Ultimate

Un aperçut ? Je voudrais savoir avant de dl des images ou autre inutilement.
Revenir en haut
Visiter le site web du posteur Skype Facebook Twitter
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 17:43 (2012)    Sujet du message: Carte dresseur Ultimate

Voilà votre screen tant voulu !
Revenir en haut
Brendan75
Ex-staff


Inscrit le: 24 Mar 2008
Messages: 1 827
Localisation: Paris
Masculin

MessagePosté le: Dim 29 Avr - 17:43 (2012)    Sujet du message: Carte dresseur Ultimate

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


Inscrit le: 03 Fév 2012
Messages: 2 168
O NN PA LE KOUTO
Localisation: Béziers
Masculin
ID Steam: laitonite
Nintendo Network: laitonite_laito

MessagePosté le: Dim 29 Avr - 17:44 (2012)    Sujet du message: Carte dresseur Ultimate

...Bah tu as fais quoi ? Sur ce screen je reconnais que ce que Slash a fait ._.
Revenir en haut
Visiter le site web du posteur Skype Facebook Twitter
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 17:48 (2012)    Sujet du message: 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 !


Dernière édition par Zohran le Dim 29 Avr - 18:18 (2012); édité 1 fois
Revenir en haut
Brendan75
Ex-staff


Inscrit le: 24 Mar 2008
Messages: 1 827
Localisation: Paris
Masculin

MessagePosté le: Dim 29 Avr - 17:56 (2012)    Sujet du message: 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.
Revenir en haut
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 18:00 (2012)    Sujet du message: Carte dresseur Ultimate

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


Inscrit le: 24 Mar 2008
Messages: 1 827
Localisation: Paris
Masculin

MessagePosté le: Dim 29 Avr - 18:03 (2012)    Sujet du message: Carte dresseur Ultimate

Tu veux t'attaquer au cœur de PSP ? T'es un courageux toi ? O.ô
Revenir en haut
Zohran
Support Technique
Support Technique


Inscrit le: 14 Mai 2011
Messages: 906
Localisation: France
Masculin

MessagePosté le: Dim 29 Avr - 18:07 (2012)    Sujet du message: Carte dresseur Ultimate

lol oui ! On peut dire cela ! Falco Lombardi
Revenir en haut
Eurons くさ
Animateur
Animateur


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

MessagePosté le: Dim 29 Avr - 18:27 (2012)    Sujet du message: 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?
Revenir en haut
Skype
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 07:53 (2017)    Sujet du message: Carte dresseur Ultimate

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Pokémon Script Project Index du Forum -> Game Making -> Ressources techniques -> Scripts Toutes les heures sont au format GMT + 1 Heure
Aller à la page: 1, 2  >
Page 1 sur 2

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une 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)
Traduction par : phpBB-fr.com