Bienvenue sur le forum de la Guilde Arkanum.
RAPPEL: AVANT DE POSTER UNE CANDIDATURE, LISEZ BIEN LES CONDITIONS D'ENTREE. TOUTE CANDIDATURE TROP PEU TRAVAILLEE SERA REFUSEE ALORS APPLIQUEZ VOUS !
Voici la vidéo anniversaire de la guilde Arkanum réalisée par Hallow:



Les candidatures sont ouvertes

Veuillez respecter les règles du forum. Merci et Bonne visite !



 
AccueilPortailCalendrierFAQRechercherMembresGroupesS'enregistrerConnexion
Arkanum, expéditeur officiel de pâté sur Mars depuis 1847

Partagez | 
 

 Cheat Pourpre

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Skwi
Empereur
Empereur
avatar

Messages : 2334
Kamas : 15002
Date d'inscription : 06/05/2009
Age : 27

MessageSujet: Cheat Pourpre   Jeu 26 Juin 2014 - 0:10

Plop, pour les fainéant comme moi qui ont la flemme de calculer la pos des murs pour obtenir le pourpre, vous pouvez adapter le code vba (excel) ci-dessous

Vous créez un module (alt+F11 pour faire apparaitre la fenêtre de dev, clic droit sous les feuilles > insérer > module), vous copiez ça :

Code:


Sub nextWall(ligne As Integer)
    Dim seekVal As String
    With ThisWorkbook.Worksheets("golem")
        seekVal = .Cells(ligne, 1).Value
        For col = 2 To 5
            If seekVal = .Cells(ligne, col).Value Then
                .Cells(ligne, 6).Value = .Cells(1, col).Value
            End If
        Next col
       
        'Incrémente la ligne
        .Cells(ligne, 7).Value = ligne - 2
        'If IsNumeric(.Cells(ligne - 1, 7).Value) Then
        '    .Cells(ligne, 7).Value = .Cells(ligne - 1, 7).Value + 1
        'Else
        '    .Cells(ligne, 7).Value = 1
        'End If
       
    End With
End Sub

Sub nextPlacements(ligne As Integer)
    Dim seekVal As String
    Dim posSec As Integer, posSeek As Integer
    With ThisWorkbook.Worksheets("golem")
        seekVal = .Cells(ligne, 1).Value
        For col = 2 To 5
            'Initialisation de la ligne d'après
            .Cells(ligne + 1, col) = .Cells(ligne, col)
       
            'Récupération des position des mob à changer
            If seekVal = .Cells(ligne, col).Value Then
                posSeek = col
            ElseIf .Cells(ligne, col).Value = "sécu" Then
                posSec = col
            End If
        Next col
       
        'Switch des positions sur la ligne suivante
        .Cells(ligne + 1, posSec) = .Cells(ligne, posSeek)
        .Cells(ligne + 1, posSeek) = .Cells(ligne, posSec)
       
    End With
End Sub

'de la ligne 3 à la dernire ligne remplie en colonne A, on trouver le placement du mur et on calcul la nouvelle position
Sub main()
    Dim linge As Integer
    For ligne = 3 To ThisWorkbook.Sheets("golem").Range("A3").End(xlDown).Row
        nextWall (ligne)
        nextPlacements (ligne)
    Next ligne
End Sub


Ensuite, faut créer une feuille (ou renommer une existante) que vous nommerez "golem" qui doit ressembler à ça :



Vous avez simplement à initialiser les pos des golems au début (ligne 3) et dans la première colonne vous mettez à partir de la ligne 3 les effets du boss. (ATTENTION À NE PAS OUBLIER L'ACCENT SUR "sécu")

Tous les 4 tours y'a les 4 prochains effets qui sont visible sur le mob, à ce moment vous complétez la 1ère colonne du tableau et ré-exécutez la macro (affichage>macros).

C'est pas optimisé ça recalcule tout mais c'est instantané et c'est à usage unique comme une capote (pas la partie instantanée Sad)

Et comme je sais qu'on peut être encore plus fainéant, vous pouvez mettre un raccourci clavier sur la macro qui appellera le sub "main".

Ensuite pas de prise de tête, vous avez les 4 prochains murs, juste bien bouger en conséquence.

Et si y'a une technique plus simple que de calculer où sont les prochains murs bah RIEN A FOUTRE.

Bisous fesses gauches.


Dernière édition par Skwi le Ven 1 Mai 2015 - 17:49, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Ever'
Chosen-one
Chosen-one
avatar

Messages : 657
Kamas : 5009
Date d'inscription : 03/08/2012

MessageSujet: Re: Cheat Pourpre   Jeu 26 Juin 2014 - 18:42

T'es un ouf, j'ai rien compris, mais si un jour j'fais la quête pourpre je reviendrai lire ici xd
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Exploo
Apôtre
Apôtre
avatar

Messages : 1229
Kamas : 6813
Date d'inscription : 02/05/2009
Age : 26

MessageSujet: Re: Cheat Pourpre   Jeu 26 Juin 2014 - 23:34

Pourquoi Chegt ?

C'quoi la quête en gros, now ?

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Skwi
Empereur
Empereur
avatar

Messages : 2334
Kamas : 15002
Date d'inscription : 06/05/2009
Age : 27

MessageSujet: Re: Cheat Pourpre   Ven 27 Juin 2014 - 7:20

http://www.tofus.fr/quete/dofus-pourpre.php

à la toute fin y'a un casse-tête / labyrinthe où faut trop réfléchir à mon goût Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Gotha
Saucisson Ultime
Saucisson Ultime
avatar

Messages : 373
Kamas : 2108
Date d'inscription : 05/09/2010
Age : 23

MessageSujet: Re: Cheat Pourpre   Ven 27 Juin 2014 - 9:49

Ils vont continuer a détruire le commerce dans dofus, bientot le tutu sera une quete aussi ...

Il donne quel jet au final ? 40 % 50 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mialh
Sponsor Surprise du Soir
Sponsor Surprise du Soir
avatar

Messages : 1960
Kamas : 11778
Date d'inscription : 07/05/2011
Age : 26
Localisation : Boogie Palace

MessageSujet: Re: Cheat Pourpre   Ven 27 Juin 2014 - 14:12

80%  bounce 

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Cheat Pourpre   

Revenir en haut Aller en bas
 
Cheat Pourpre
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» L'armée du nuage pourpre de Nagareboshi
» ACHETE DD prune pourpre montable.
» [Kirin Tor] La Bibliothèque Pourpre [Annulé]
» Cabale - Le Venin Pourpre
» custom set anti fatalis pourpre.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
 :: Partie civile de la guilde :: Astuces et nouveautées-
Sauter vers: