Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

[Ajout-SMMOB] Panoramas [Niveau: Facile]

Aller en bas  Message [Page 1 sur 1]

Aurusse

avatar
Administrateur
Administrateur
/!\ Il se peut que ce tuto ne fonctionne plus si une nouvelle version de SMMOB sorte. Ce tuto fonctionne pour la v0.3.0. /!\

Bonjour à toutes et tous,

ce post, plus du tuto que du correctifs mais n'étant tout de même pas un script complet, vous permettra de rajouter des Panoramas en plus.
Car, grâce à Bloodjoker l'ayant fait remarqué, on ne peut actuellement avoir que 4 panoramas. Si on veut en rajouter un, on était obligé de supprimer l'un déjà existant.

1) Introduction:

Vous allez donc apprendre à rajouter autant de panoramas que vous le souhaitez et leur donner un nom pour ainsi mieux les retrouver dans la liste.

2) Préparation des Panoramas:

Tout d'abord, sachez que votre panorama peut avoir les dimensions que vous souhaitez (même si je vous conseil de respecter le format 1024x768 ou plus) MAIS il faut TOUJOURS que le fichier soit de type PNG. Sinon le chargement de vos panoramas s'arrêteront avant ce fichier.
Il faut aussi que le nom de votre panorama suivent la suite des nombres.
Actuellement le dernier que vous avec est "4.png", le prochain se nommera "5.png".

voici une image rappelant ce que je viens de dire (le fichier 8.png ne sera pas chargé).



3) Touchons aux sources (côté client):

Ouvrez maintenant les sources de votre client (client.vbp), allez dans les modules et ouvrez le module "modDatabase".
Allez dans

Code:
Case EDITEXTS_MAPPROPERTIES
            With frmEditor_MapProperties
                .editext1(0).Caption = Editexts(431)
                .editext1(1).Caption = Editexts(432) & ":"
                .editext1(2).Caption = "-" & Editexts(433) & "-"
                .editext1(3).Caption = Editexts(434) & ":"
                .editext1(4).Caption = Editexts(435) & ":"
                .editext1(5).Caption = Editexts(436) & ":"
                .editext1(6).Caption = Editexts(437)
                .editext1(7).Caption = Editexts(438) & ":"
                .editext1(8).Caption = Editexts(439) & ":"
                .editext1(9).Caption = Editexts(440) & ":"
                .editext1(10).Caption = "-" & Editexts(441) & "-"
                .editext1(11).Caption = "-" & Editexts(442) & "-"
                .editext1(12).Caption = "-" & Editexts(443) & "-"
                .editext1(13).Caption = Editexts(477) & ":"
                .cmbPanorama.Clear
                .cmbPanorama.AddItem Editexts(444)
                .cmbPanorama.AddItem Editexts(445)
                .cmbPanorama.AddItem Editexts(446)
                .cmbPanorama.AddItem Editexts(447)
                .cmbPanorama.AddItem Editexts(448)
                .edifrm(0).Caption = Editexts(449)
                .edifrm(1).Caption = Editexts(450)
                .edifrm(2).Caption = Editexts(451)
                .edifrm(3).Caption = Editexts(452)
                .frmMaxSizes.Caption = Editexts(453)
                .cmdOk.Caption = Editexts(454)
                .cmdCancel.Caption = Editexts(455)
                .cmdPlay.Caption = Editexts(456)
                .cmdStop.Caption = Editexts(457)
                .cmbMoral.Clear
                .cmbMoral.AddItem Editexts(473)
                .cmbMoral.AddItem Editexts(474)
                .cmbMoral.AddItem Editexts(475)
                .Mkkj.Caption = Editexts(476)
                .lblBoss.Caption = Editexts(463) & ": " & Editexts(464)
                .lblR.Caption = Editexts(470) & ": 0"
                .lblG.Caption = Editexts(469) & ": 0"
                .lblB.Caption = Editexts(466) & ": 0"
                .lblA.Caption = Editexts(465) & ": 0"
                .lblFog.Caption = Editexts(467)
                .lblFogSpeed.Caption = Editexts(468) & ": 255"
                .lblFogOpacity.Caption = Editexts(465) & ": 255"
                .chkAntiSB.Caption = Editexts(1011)
                
            End With

Et en-dessous de la ligne ".chkAntiSB.Caption = Editexts(1011)", mais avant la ligne "End With", rajoutez

Code:
 .cmbPanorama.AddItem Editexts(X)


Et rajoutez autant cette ligne que vous avez rajouté de panoramas. Si vous avez rajouté 3 panoramas, vous devriez avoir ceci:

Code:

                .chkAntiSB.Caption = Editexts(1011)
                .cmbPanorama.AddItem Editexts(X)
                .cmbPanorama.AddItem Editexts(X)
                .cmbPanorama.AddItem Editexts(X)
          
            End With


Maintenant vous allez modifier le X.
Pour ce faire, ouvrer le fichier "Fr.ini" se trouvant dans le dossier "Data\data files\lang\" de votre client.
Si vous n'avez jamais modifié ce fichier, descendez à la ligne 1093, vous devriez avoir "1090=" et juste au-dessus: "1089=Quitter l'Evenement si déjà en cour d'utilisation par un autre Joueur".

Vous voyez donc que 1090 n'est pas utilisé. remplacé votre premier X de ".cmbPanorama.AddItem Editexts(X)" par 1090 et les suivants par le nombre suivant de la liste. Vous devriez avoir un code ressemblant à ceci:


Code:
        Case EDITEXTS_MAPPROPERTIES
            With frmEditor_MapProperties
                .editext1(0).Caption = Editexts(431)
                .editext1(1).Caption = Editexts(432) & ":"
                .editext1(2).Caption = "-" & Editexts(433) & "-"
                .editext1(3).Caption = Editexts(434) & ":"
                .editext1(4).Caption = Editexts(435) & ":"
                .editext1(5).Caption = Editexts(436) & ":"
                .editext1(6).Caption = Editexts(437)
                .editext1(7).Caption = Editexts(438) & ":"
                .editext1(8).Caption = Editexts(439) & ":"
                .editext1(9).Caption = Editexts(440) & ":"
                .editext1(10).Caption = "-" & Editexts(441) & "-"
                .editext1(11).Caption = "-" & Editexts(442) & "-"
                .editext1(12).Caption = "-" & Editexts(443) & "-"
                .editext1(13).Caption = Editexts(477) & ":"
                .cmbPanorama.Clear
                .cmbPanorama.AddItem Editexts(444)
                .cmbPanorama.AddItem Editexts(445)
                .cmbPanorama.AddItem Editexts(446)
                .cmbPanorama.AddItem Editexts(447)
                .cmbPanorama.AddItem Editexts(448)
                .edifrm(0).Caption = Editexts(449)
                .edifrm(1).Caption = Editexts(450)
                .edifrm(2).Caption = Editexts(451)
                .edifrm(3).Caption = Editexts(452)
                .frmMaxSizes.Caption = Editexts(453)
                .cmdOk.Caption = Editexts(454)
                .cmdCancel.Caption = Editexts(455)
                .cmdPlay.Caption = Editexts(456)
                .cmdStop.Caption = Editexts(457)
                .cmbMoral.Clear
                .cmbMoral.AddItem Editexts(473)
                .cmbMoral.AddItem Editexts(474)
                .cmbMoral.AddItem Editexts(475)
                .Mkkj.Caption = Editexts(476)
                .lblBoss.Caption = Editexts(463) & ": " & Editexts(464)
                .lblR.Caption = Editexts(470) & ": 0"
                .lblG.Caption = Editexts(469) & ": 0"
                .lblB.Caption = Editexts(466) & ": 0"
                .lblA.Caption = Editexts(465) & ": 0"
                .lblFog.Caption = Editexts(467)
                .lblFogSpeed.Caption = Editexts(468) & ": 255"
                .lblFogOpacity.Caption = Editexts(465) & ": 255"
                .chkAntiSB.Caption = Editexts(1011)
                .cmbPanorama.AddItem Editexts(1090)
                .cmbPanorama.AddItem Editexts(1091)
                .cmbPanorama.AddItem Editexts(1092)
                
            End With

Vous pouvez générer votre client. Nous avons fini avec les sources.

voici une image montrant le résultat final:


4) Donnons un nom à nos Panoramas:

Retourner dans le fichier que nous avions préalablement ouvert "Fr.ini".
À la ligne "1090=", mettez le noms que vous désirez pour votre panoramas. Si je veux qu'il se nomme "Cirque", cela donnera:

Code:
1090=Cirque

Donnez ainsi un nom pour chaque Panoramas ajouté.

Allez ensuite tout en haut de "Fr.ini".
à la ligne "Max_Editexts =1089", changer le "1089" par le dernier nombre que vous avez modifié. Dans notre exemple, vu que l'on a ajouté 3 Panoramas, nous avons modifié 3 lignes ce qui donne:
"Max_Editexts =1092".

Voici ce que vous devriez avoir:


Sauvegardez et le tour est joué.


Voilà, vous savez désormais ajouter/modifier autant de panoramas que vous souhaitez Wink

Voir le profil de l'utilisateur
Excellent! En plein ce qu'il me fallait.
Merci, je vais tester.


........................................
BJ
Voir le profil de l'utilisateur

Revenir en haut  Message [Page 1 sur 1]

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum