Rechercher dans la communauté

Affichage des résultats pour les étiquettes 'source'.



Plus d’options de recherche

  • Rechercher par étiquettes

    Saisir les étiquettes en les séparant par une virgule.
  • Rechercher par auteur

Type du contenu


Forums

  • Forums généraux
    • Over Game
    • Discussions générales
    • Section Membre Premium
    • Recrutement Modérateur - Animateur - Rédac'
  • Jeux Vidéo
    • Actu Jeux Vidéo
    • Ankama Games
    • Blizzard
    • Minecraft
    • League Of Legends
    • FPS
    • Mmorpg
    • Grand Theft Auto
    • Aeria Games
    • Teams
    • Autres Jeux
  • Informatique & High-Tech
    • Programmation
    • Graphisme et Désign
    • Marketing Digital
    • Systèmes d'exploitation
    • Mobiles et tablettes
    • Réalité virtuelle
  • Consoles
    • Playstation 4
    • Playstation 3
    • Xbox One
    • Xbox 360
    • Consoles Portables
  • Archives
    • Archives Corbeilles
  • Team LOL OG.eu Topics de Team LOL OG.eu
  • Avale et Raval Topics de Avale et Raval
  • Team_Minecraft Topics de Team_Minecraft

Calendriers

  • Community Calendar

124 résultats trouvés

  1. Source code dofus 2.32

    Bonjour, Ici se trouve l'intégralité du code source de Dofus 2.32, désobfuscation incluse. A l'intérieur se trouve par exemple l’intégralité des clefs RSA (utiles pour les développeurs). Si cela intéresse d'autres personnes, je déposerai aussi le code des versions suivantes. Ici se trouve un VirusTotal du .rar : https://www.virustotal.com/fr/file/054683c534573824045333220722e23e85b7fe911f784426bf07457a35215fe5/analysis/1454281369/ Mot de passe de l'archive : http://www.over-game.eu Pour ceux ayant des problèmes à trouver les dites clefs RSA, elles se trouvent dans les fichiers : - 393.bin - 394.bin - ...
  2. Des codes source en C ?

    Bonjour, Je vois des tonnes de codes source pour des bots en AutoIt mais j'en ai jamais vu en C ou autre langage. D'ailleurs, j'ai jamais vu de codes source pour des bots sockets, même en AutoIt. Est-ce moi qui cherche mal ? Je parle de codes source partagés par l'auteur. Merci !
  3. Code source

    Voilà un lien Index of / ou je vais m’être des code source régulièrement c'est des code pris a droit et a gauche pour les faire marché correctement et quelle que code que je vais créer... p.s j'ai enlevé tous (egnime ect....) Il y a code source Emulateur Game boy
  4. comment creer son propre keylogger ? J'ai créée un pack contenant pas mal de source / tutos vidéo / tutos pdf / exemples compilés, pour faire à vos côté pas à pas votre propre keylogger ! Vous ne trouverez pas mieux sur internet ! (Pas de tuto de ce genre du moins) Le pack contient -> Comment faire son keylogger en Delphi -> Comment faire son keylogger en C++ -> Comment faire son keylogger en vb.net (basic) -> Comment faire son keylogger en vb.net (avancé) -> [vidéo]Comment faire son keylogger en C++ (5 parties) -> [vidéo]Comment faire son keylogger en vb.net(basic) -> Un cour sur la notion de Builder et de Stub -> La source en vb.net pour voler les logs dofus + les certificats ankama -> La source d'un keylogger privée complet -> La source d'un crypter en vente à $20 sur HF -> L'exemple compilé du tuto vb.net Je vends ce pack 35¤ ! J’entends déjà les "mais c'est trop chère t'abuse!"... Un keylogger se vend entre $15 le basic et $30 le plus poussée, PAR MOIS ! En 1 moi vous aurez déjà remboursé votre dépense ! Vous pourrez aussi revendre votre keylogger sur W-D ou Aidemu à prix d'or ! Pourquoi le vendre ? Pour éviter le leech. Et trop de connaissances de ce genre sur ce forum seraient dangereux. Vous êtes intéressé ? Alors ajoutez-moi sur skype ou alors enoyez-moi un message privée Je vous remettrais le pack en "mains propres" !
  5. Bonjour, je vend un compte Counter-strike Source clean . C'est en objet que je l'est donc je peux l'envoyer . Mode de payement : Paypal Merci cordialement
  6. Vend compt Steam avec counterstrike source compt NoBan Prix 4allopass ! Pour me Joindre :[/center] Messanger : [email protected] Skype : theeowis (localisation a Hurlevent) [/b]
  7. JE REND CE PROGRAMME PUBLIC APRES AVOIR DECOUVERT QU'IL ETAIT VENDU DANS UN AUTRE SITE PAR UN CERTAIN CRAW SOUS LE NOM DE "SECUREIT" ET BIENSUR SANS CITE LE VRAI PROGRAMMEUR Après plusieurs versions de protecteur AutoIt (anti décompilateur) écrits en ASM (certain sont distribués sur des forums privés) , j’ai décidé de faire un essaie en C# vu que je suis nouveau sur ce langage, j’ai trouvé quelque défis comme la gestion du header d’un exécutable (vérifier que c’est pas un UPX, trouver/crypter l’EOF, fusionner l’EOF avec la dernière section etc.) comme j’ai trouvé des facilité offerte par le langage (l’XML, GUI plus facile à gérer). Présentation du programme : Ce programme peut crypter* et/ou fusionner l’EOF avec la dernière section, ajouter un faux script pour tromper les kikooCodeStealers (j’utilise toujours cet adjectif ^^), et bien sur des patchs (puisque on crypte l’EOF, il faut bien un code qui le décrypte sur la mémoire). Les patchs et leurs adresse sont enregistrés dans des fichiers Profile.xml ainsi que leur compatibilité avec UPX et si le programme doit crypte l’EOF ou pas, (si vous voulez savoir plus regardez l’Editeur de profile, la structure est semblable a « Offset Finder - v 0.4 - By RivaL » d’ailleurs j’étais aidé par le code de ce programme). (*) le cryptage est fait par un xor avec chaque octet de l’EOF (la clé est aléatoire et généré lors de la protection puis remplace le caractère ** dans le(s) patch) Qu’est ce que l’EOF et pourquoi tant d’importance : Chaque section du programme, son nom sa taille et son adresse sont stocké dans le PE header (des IMAGE_SECTION_HEADER après les IMAGE_NT_HEADERS ), si on trouve des donnés après la dernière section (qui ne sont pas présent dans les header) on les appelle EOF ,End Of File (appelé aussi Overlay ou Extra data). Les script AutoIt ne sont pas vraiment compilés, juste compressés et cryptés en suite ajoutés comme EOF au stub (exe) d’exécution, c’est pour ça que le décompilateur retrouve la totalité du code source et pour cela qu’on cherche a protéger l’EOF . Remarque : Il y a d’autre méthode pour le protéger comme l’EOF virtuelle (Armadillo). Mise à jour 24/04/2012 J’ai trouvé pas mal de difficulté pour écrire l’obfuscator, le cryptage des chaine bug s’il s’agit d’une chaine dans la déclaration d’une fonction, le rename des fonction devais aussi renommer les celle qui sont utilisé avec Hotkeyset, AdlibRegister et Call, pour le flow obfuscation pas la paine de parler ^^ > ProtectIt : + AuFusCOB 0.1 (Obfuscator de script) : Cryptage des chaines (la decryption des chaine utilise une valeur dans le header du programme compilé, méthode très basic pour bloquer les débutant) Renom des variables/fonctions Flow obfuscation : réordonner les lignes de code afin de rendre le code plus difficile a comprendre ProfileEditor : ! Bugfix comparateur de fichier (effacer la liste avant d'ajouter des éléments) + Optimiser la comparaison (deux patch de distance inferieur à 5 sont considéré comme un seul) Profiles : ! Bugfix profile 3.3.8.1 (Votre programme crash si vous utilisez ce profile puis packer avec UPX, fixé) --------------------------------------------- Remarque : L'obfuscator contient quelque bug (certain commentaire ne sont pas supprimé..) mais je l'ai testé sur une la script du THHH 3.3.3 et ça a marché L’obfuscator ne prend pas en charge que les script codé en ANSI (Encoding.Default) Le rename des variables et des fonction est lent (des idées?) Exemple : > #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: COB Script Function: TEST AUFUSCOB #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here test() test2() Func test() If (1 = 1) Then If (0 = 0) Then Local $Atrue = 'Condition toujour vrai' Else $Atrue = "Erreur" EndIf MsgBox(0, Default, $Atrue) EndIf Local $msg $msg = "Test" $msg &= " Msg" $msg &= "Box" MsgBox(0, Default, $msg) EndFunc ;==>test Func test2() $autrevar = "Autre fonction"; MsgBox(0, "", $autrevar) EndFunc ;==>test2 Flow obfuscation, function/var rename > $13470001 = 1363015899 While 1 Switch $13470001 Case 311482959 F30343235363833313939() ExitLoop Case 1363015899 F31353334373932303838() $13470001 = 311482959 EndSwitch WEnd Func F31353334373932303838() If (1 = 1) Then If (0 = 0) Then Local $13470002 = 'Condition toujour vrai' Else $13470002 = "Erreur" EndIf MsgBox(0, Default, $13470002) EndIf $13470000 = 1363015899 While 1 Switch $13470000 Case 311482959 $13470004 = "Test" $13470000 = 1994086612 Case 1330278011 MsgBox(0, Default, $13470004) ExitLoop Case 1363015899 Local $13470004 $13470000 = 311482959 Case 1994086612 $13470004 &= " Msg" $13470000 = 2018228120 Case 2018228120 $13470004 &= "Box" $13470000 = 1330278011 EndSwitch WEnd EndFunc ;==>F31353334373932303838 Func F30343235363833313939() $13470001 = 1363015899 While 1 Switch $13470001 Case 311482959 MsgBox(0, "", $13470003) ExitLoop Case 1363015899 $13470003 = "Autre fonction" $13470001 = 311482959 EndSwitch WEnd EndFunc ;==>F30343235363833313939 Ce script n'est pas très dur a comprendre mais il serai pénible si c'étais plus long => il faut écrire un déobfusctor pour pouvoir cracker ce code et cela pourra le protéger contre les débutants Téléchargement : ProtectIt project - Solidfiles
  8. Bonjour/Bonsoir Certains d'entre vous doivent déjà connaître l'enchanteur Otomaï ? Si vous le connaissez pas, cela en vaut la peine .. plusieurs personnes vont habituellement sur l'Île Otomaï pour faire les 6 Donjon pour se restats .. mais cette île à part les donjons ont des montres qui xp assez bien .. La plage d'otomaï : C'est ce qui fait tout le contour de cette île à des monstres tels que les corailleurs , les palmifleurs et les crustorails . Les palmifleurs et puis les crustosails sont comme les scarafeuilles .. ils ont leurs résistances , exemple les rouges ont 30% résistance en feu .. mais les scaras en ont 100% mais bon .. ^^ Comme je disais la plage sur l'île otomaï xp assez bien .. je pourrais dire quel xp comme les rats de brakmar où les rats de bonta C'est à dire: 1 min ---> 50 000 à 70 000 plus ou moins Mais cela dépend souvent des levels, exemple un level 40 qui xp là bas va xp environ 20 la minute ou 30 000 si il fait les challenges . D'après moi le niveau minimum pouir commencer à xp est niveau 60 si on veux faire quand même des assez gros groupes , on peut aussi y aller au niveau 30 mais c'est quand même un peu dur de trouver 1 seul monstre qui ne soit pas trop HL . Aussi les monstres des plages n'agressent pas .. pas comme les rats Bonus autre que l'xp... Le drop: Et oui, il n'y a pas que l'xp ! C'est la crise aussi dans dofus, et chaque occasion est bonne pour ce faire des kamas Sur les crustorails vous pourrez droper des morceaux de corail qui se revendent très très bien surtout le Kouraçao qui sert dans pas mal de craft haut niveau tel que le doro ou autre c'est celui qui se vend le plus cher des 4 coraux. Source: astucedofus
  9. Code source SSH

    Half-Life 1 Engine Server Side Hack Base (SSHBase) v1 Coded by sk0r / Czybik Description: This is just a simple HL1 SSH Base for starting a new ssh project not from zero. It has all basic needed features you may need to have for your hack. Modify it and create your ssh with this base. It's currently April 2012 and I think that coding for HL1 is losing its interest in the next time quickly. I can not find any bases for SSHs but so many for client hacks, that I decided to make one just to complete the very much resources for HL1 gamehacking in the world wide web. :-) Features: - Most important functions hooked - Table Hook Class - Log Class (HTML) - Full Player Class - UserMsg Class - Client Command Manager - Menu Class - Useful functions: - Check if player is valid - Send MOTD to a player - Set a player glow - Create an explosion - Global emit a normal sound - Global emit a 3D sound - Spawn an item to a player - Print a say text - Slap a player - Make a player be blind - Play step near player - Read detouring value from config - Fun codes: - Rocket Launcher - Simple Mortar - Commented sourcecode Credits: - b2k5 (vector math) - h1web (linux detour_func) Greetings: - Sinaj - b2k5 - Inliferty - steeno - anarx - CampStaff - Sruh - bobi - All I forgot Voilà un ptit code source d'un serveur side hack Enjoy IT [cheat-project.com] SSHBase 2012-04-05.zip
  10. Day of defeat: Source high definition

    Day of defeat: Source high definition est un pack de ressource visant a améliorer sur tous les plans la qualité de Day of defeat: Source qui commence à prendre l'age. Dans ce pack, vous avec donc : Des modèles de joueurs HD Des modèles d'armes HD De nouveaux sons plus réaliste pour la seconde guerre mondiale Des textures plus détaillées pour les maps Des props en HD Un système qui améliore les graphismes tout en optimisant le jeu pour de meilleurs performances Ainsi, vous aurez un Day of defeat: Source boosté graphiquement et plus en harmonie avec la dernière grande guerre. Attention Il semblerait que pour pouvoir correctement jouer en ligne, il faut désactiver l'option « HD player models » à l'installation. lien de téléchargement: http://www.vossey.com/telechargement/download.php?id=2093&check=20dc2f88f2a421dbf015461596c8ec92 source: Fiche de Day of defeat: Source high definition 1.85 - Mod de Day of Defeat: Source | Téléchargements | Vossey.com Virus scan: je le met ce soir ou demain.
  11. Bonjour ! Je post aujourd'hui un dérivé de ancestral : Tapa-Ancestra Rev3, cet émulateur est, je trouve, le meilleur que l'on puisse trouver en open source ! Cet émulateur n'est pas de moi ! Il est de Taparisse Voici les changelogs : [spoiler=Changelog Rev de base + Rev 1 + Rev 2 (antérieur)]{Changelog de base fait par Gostron :} - mode marchand fonctionnel (AR47) - HDV fonctionnels (AR47) - percepteurs fonctionnels (AR47 et moi pour les drops) - Intégration à 100% de tous les challenges (moi : les 46 challenges, les conditions d'apparition d'un challenge, le ciblage de monstre, challenges incohérents et impossible contre boss) - Intégration du coffre animé et des drops équitables - Ajouts d'une petite dizaine de SpellEffects triviaux - Ajout du système d'étoiles 100% - Ajout d'un Timer globalisé pour éviter tout bug de timer dans combat (merci Sadidom et ses sources) - Ajout de la notion de ligne de vue pour les mobs (à tester, l'algorithme est personnel tout comme le code, donc rien de garanti, j'attends du feedback ) - correction du sort peur (il subsiste un bug qui sera réglé sous-peu) - correction des sorts de poussée : le mobs s'arrête sur le piège et se déplace avant de mourir - ajout des dragodindes caméléon - ajout des obvijevans {Changelog par Taparisse :} [29/12/2011] - Quest/SQLManager/World/NPC_template/Personnage/SocketManager/BDD : Suppression du "Début des quêtes" : Elles n'étaient pas fonctionnelles, et provoquaient des déconnexions incohérentes - GameThread/Personnage : Correction de la téléportation du mariage (impossible à + de 10 maps) - GameServer/Ancestra/config : Ajout d'un système de sauvegarde automatique - Dragodinde/Formulas : Ajout de la capacité Sage - Constants : Correction des bonus des dindes Indigo-Turquoise et Ivoire-orchidée - Dragodinde : Correction de l'énergie de la dragodinde (Son énergie est gerée en fonction du niveau de la dinde, et si elle a la capacité Infatiguable) - Dragodinde : Lors de la création d'une dinde, elle est maintenant aléatoirement femelle ou male [01/01/2012] - Action : Ajout de l'action 170 (tp suivant un lvl mini, arg = mapID,cellID,LvLmini pour tp), 43 (jouer une cinématique, arg = id de la cinématique), 170 (ajouté un titre à un personnage, arg = id du titre). - BDD : Correction du sort ronce apaissante - BDD : Ajout de différents triggers, merci Nicosti - Dragodinde : A la création d'une DD, il y a 1 chance sur 30 d'avoir une capacité (actuellement que Infatiguable, Caméléonne et Sage) [Rev 2 :] - Formulas/Fight/Constants/Monstre : Ajout de l'apprivoisement de montures - Monstre : Recodage pour enlever le bug des invocations trop fortes - Dragodindes/Formulas : Changement pour le code de la capacitée sage, le code est moins important ! - GameThread/Dragodinde : Ajout de la fonction "Castrer une dinde" [spoiler=Changelog Rev 3 :][Rev 3:] - Dragodinde/Personnage : La dinde perd de l'énergie quand on la monte - Personnage/SocketManager : La cinématique du début est jouée (A la création d'un perso) - Personnage : L'aura vampire est activée lorsque le personnage possède au moins 1 item de la panoplie - Dragodinde : Les pods max d'une dinde sont calculés suivant son niveau, et si elle a ou non la capacité porteuse - World/... : Suppression du chargement des objets d'élevages, donc plus de beug lors du chargement du serveur (de toute façon les objets d'élevage sont bugs !) - Ancestra/House/Personnage/GameThread : La guilde est valide si elle possède au minimum 10 membres, et non 1 comme auparavant - Constants/GameThread : Nourir les dindes avec des poissons ou de la viande - Dragodinde : Au up d'une dinde, son énergie augmente en fonction de son énergie actuelle, sa capacité, ... - Dragodinde : Il est maintenant impossible de mettre pour plus de pods d'objets dans l'inventaire de la dinde que ses pods max (l'inventaire n'est pas fixé /!\, inutilisable > - Personnage/Ancestra/config : A la création d'un perso, il a dans son inventaire la pano aventurier, ou pas suivant la config - Action : L'action -2 permet de créer une guilde seulement si on a une guidalogemme - Personnage/GameThread/Carte/World/SocketManager/Constants/Metier : Livre de métiers ~20% - GameThread : L'achat, vente, etc ... d'enclo est désormais fonctionnel (merci taxi-force) - GameThread/Compte/BDD/SQLManager : Cadeaux à la connexion (maximum 1) - Commandes : Ajout des comandes "CADEAU {ID ITEM} {NOM DU PERSONNAGE}" (ajoute un cadeau à la prochaine connexion) et "ALLCADEAU {ID ITEM}" (ajoute un cadeau à la connection à tous les persos en ligne) - Ancestra/GameThread/config : Pleins de commandes joueurs ajoutées, modifiables via la config - Action/BDD : Ajout de l'action 44 pour ouvrir un livre /!\ Il fait deco/reco pour fermer le livre - Action : Ajout de l'action 104 pour ajouter un cadeau au compte du perso (arg = id de l'item) - GameServer/Ancestra/config : Ajout de la publicité activable/désactivable via la config Passons au lien : Rev3 Rev2 Donc voilà ! Merci à Taparisse pour cet émulateur Et bonne émulation à tous ! EDIT : Source : *****.com Posté par Taparisse
  12. Code source [Beta] Ares BG bot

    Ce fichier à été ajouté par royalxm: (cliquer sur l'image ci-dessous pour le télécharger) Code source [beta] Ares BG bot Powered By royalxm de Over-game.org Taille : 782,5 Ko / Créateur : Description Petit rappel voila le code source du logiciel en question : http://www.ownedcore.com/forums/star-wars-old-republic/swtor-bots-programs/339171-beta-ares-bg-bot.html ps : J'AI LA RAGE C'EST QUOI SE CODE PIXEL LOLILOL je m'attendez a du injection de la memoire je voulais voir comment il a fait pour injecter au dll mais bon tant pi bref voila le code : TÉLÉCHARGEMENT : http://www.multiupload.com/HUPB9EVA2S AUTOIT : >#RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=AresBotIco.ico #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("TrayIconHide", 1) if (@MON > "01") or (@MDAY >= "11") Then MsgBox(0,"End of Ares PVP bot beta", "Your beta test time for Ares BG bot has expired. Please wait for the official release or a new access to the beta." & @CRLF & @CRLF &"Thanks for your support :)") Exit EndIf MsgBox(0, "Ares PVP Bot", "Welcome to Ares PVP Bot Beta." & @CRLF & "You must be running the game in 1024*768 in windowed mode. " & @CRLF & "You must have your mercenary with you, and have the windows 'aero' interface. " & @CRLF & "Don't forget to configurate in the 'settings' tab please." & @CRLF & "Have fun :)") Global $activeCrew = IniRead ( "config.ini", "CrewConfig", "activateCrew", "default" ) Global $alderaanTimer = TimerInit() Global $merc[5] ; Pour savoir quel merco on active (pour pas activer le mercenaire principal qui doit rester en jeu pour le bot $merc[1] = IniRead ( "config.ini", "CrewConfig", "merc1", "default" ) $merc[2] = IniRead ( "config.ini", "CrewConfig", "merc2", "default" ) $merc[3] = IniRead ( "config.ini", "CrewConfig", "merc3", "default" ) $merc[4] = IniRead ( "config.ini", "CrewConfig", "merc4", "default" ) Global $metier[5] ; Choisir quel métier utiliser (le premier à gauche, celui du milieu ou le troisieme ( 1 - 3) $metier[1] = IniRead ( "config.ini", "CrewConfig", "metier1", "default" ) $metier[2] = IniRead ( "config.ini", "CrewConfig", "metier2", "default" ) $metier[3] = IniRead ( "config.ini", "CrewConfig", "metier3", "default" ) $metier[4] = IniRead ( "config.ini", "CrewConfig", "metier4", "default" ) Global $firstCrew[5] $firstCrew[1] = True $firstCrew[2] = True $firstCrew[3] = True $firstCrew[4] = True Global $rank[5] ; Choisir le rang de metier à utiliser ( 1 - 6) $rank[1] = IniRead ( "config.ini", "CrewConfig", "rank1", "default" ) $rank[2] = IniRead ( "config.ini", "CrewConfig", "rank2", "default" ) $rank[3] = IniRead ( "config.ini", "CrewConfig", "rank3", "default" ) $rank[4] = IniRead ( "config.ini", "CrewConfig", "rank4", "default" ) ;MsgBox(0, "lol", $rank[1]) ;MsgBox(0, "lol", $rank[2]) ;MsgBox(0, "lol", $rank[3]) ;MsgBox(0, "lol", $rank[4]) Global $wait[5] ; Le temps à attendre par merco en minutes $wait[1] = IniRead ( "config.ini", "CrewConfig", "wait1", "default" ) $wait[2] = IniRead ( "config.ini", "CrewConfig", "wait2", "default" ) $wait[3] = IniRead ( "config.ini", "CrewConfig", "wait3", "default" ) $wait[4] = IniRead ( "config.ini", "CrewConfig", "wait4", "default" ) Global $acceptMiss[2] ; Position Du bouton accepter (apres la mission) $acceptMiss[0] = 188 $acceptMiss[1] = 427 Global $equip[2] ; Position du bouton d'équipage $equip[0] = 455 $equip[1] = 38 Global $ranks[7][2] ; Positions des boutons des rangs (0 = bouton global, 1 = rang 1, etc) $ranks[0][0] = 672 $ranks[0][1] = 180 $ranks[1][0] = 687 $ranks[1][1] = 190 $ranks[2][0] = 687 $ranks[2][1] = 200 $ranks[3][0] = 687 $ranks[3][1] = 210 $ranks[4][0] = 687 $ranks[4][1] = 220 $ranks[5][0] = 687 $ranks[5][1] = 230 $ranks[6][0] = 687 $ranks[6][1] = 240 Global $assign[2] ; Position du bouton "assigner" $assign[0] = 730 $assign[1] = 469 Global $mPix[5][4][2] ; Position des pixels pour choisir le metier [numéro du mercenaire] [Numéro du métier] [0 = x, 1 = y] $mPix[1][1][0] = 108 $mPix[1][1][1] = 270 $mPix[1][2][0] = 137 $mPix[1][2][1] = 270 $mPix[1][3][0] = 165 $mPix[1][3][1] = 270 $mPix[2][1][0] = 108 $mPix[2][1][1] = 321 $mPix[2][2][0] = 137 $mPix[2][2][1] = 321 $mPix[2][3][0] = 165 $mPix[2][3][1] = 321 $mPix[3][1][0] = 108 $mPix[3][1][1] = 372 $mPix[3][2][0] = 137 $mPix[3][2][1] = 372 $mPix[3][3][0] = 165 $mPix[3][3][1] = 372 $mPix[4][1][0] = 108 $mPix[4][1][1] = 423 $mPix[4][2][0] = 137 $mPix[4][2][1] = 423 $mPix[4][3][0] = 165 $mPix[4][3][1] = 423 Global $mission[2] ; sélectionner la premiere mission $mission[0] = 619 $mission[1] = 228 Global $cancelMiss[2] ; Fermer la fenetre de missions $cancelMiss[0] = 753 $cancelMiss[1] = 156 Global $timerCrew[5] ; Array des timers global $state = "wait" global $battleGround = "none" global $first = true global $warS = 0 global $starS = 0 global $huttS = 0 global $warF = 0 global $starF = 0 global $huttF = 0 global $successfulGame = 0 global $failedGame = 0 global $totalGame = 0 global $attack global $portrait global $combat global $avance $h = 170 $j = 265 $k = 0 $loadTime=IniRead ( "config.ini", "BotConfig", "loadTime", "default" ) $buyMercenaryToken=IniRead ( "config.ini", "BotConfig", "buyMercenaryToken", "default" ) $speedSkill=IniRead ( "config.ini", "BotConfig", "speedSkill", "default" ) $upKey = IniRead ( "config.ini", "BotConfig", "upKey", "default" ) $leftKey = IniRead ( "config.ini", "BotConfig", "leftKey", "default" ) $rightKey = IniRead ( "config.ini", "BotConfig", "rightKey", "default" ) $tolerance = IniRead ( "config.ini", "BotConfig", "tolerance", "default" ) $keyOne=IniRead ( "config.ini", "BotConfig", "keyOne", "" ) $cdOne=IniRead ( "config.ini", "BotConfig", "cdOne", "1.5" ) $keyTwo=IniRead ( "config.ini", "BotConfig", "keyTwo", "" ) $cdTwo=IniRead ( "config.ini", "BotConfig", "cdTwo", "1.5" ) $keyThree=IniRead ( "config.ini", "BotConfig", "keyThree", "" ) $cdThree=IniRead ( "config.ini", "BotConfig", "cdThree", "1.5" ) $keyFour=IniRead ( "config.ini", "BotConfig", "keyFour", "" ) $cdFour=IniRead ( "config.ini", "BotConfig", "cdFour", "1.5" ) $keyFive=IniRead ( "config.ini", "BotConfig", "keyFive", "" ) $cdFive=IniRead ( "config.ini", "BotConfig", "cdFive", "1.5" ) $keySix=IniRead ( "config.ini", "BotConfig", "keySix", "" ) $cdSix=IniRead ( "config.ini", "BotConfig", "cdSix", "1.5" ) $loadLabel = $loadTime / 1000 $huttBallRun=IniRead("config.ini", "SpecialBeta", "huttBallRun", "88250") $warRun=IniRead("config.ini", "SpecialBeta", "warRun", "88250") $warRun2=IniRead("config.ini", "SpecialBeta", "warRun2", "88250") FileInstall("screen1.jpg", @tempdir&"screen1.jpg",1) FileInstall("screen2.jpg", @tempdir&"screen2.jpg",1) FileInstall("screen3.jpg", @tempdir&"screen3.jpg",1) ;if (($loadTime = "noconfig") Or ($buyMercenaryToken = "noconfig") Or ($speedSkill = "noconfig")) Then ; MsgBox(0,"Warning !", "Please configure the bot in the settings tab") ; exit ;EndIf $debutX = 233 ; Premier click pour activer la fenêtre $debutY = 556 $enterX = 338 ; Pixel timer pour entrer dans un bg $enterY = 129 $boutonEnterX = 354 ; Position du bouton "Entrer" $boutonEnterY = 150 ; Check battle $battleHuttX = 414 ; Detection du BG Huttball $battleHuttY = 230 $battleStarX = 399 ; Detection du BG star $battleStarY = 269 $battleWarX = 378 ; Detection du BG war $battleWarY = 297 ; others $speeder1X = 192 ; speeder for exit war safe area $speeder1Y = 309 $speeder2X = 617 $speeder2Y = 489 $clickSpeeder1X = 254 $clickSpeeder1Y = 408 $clickSpeeder2X = 509 $clickSpeeder2Y = 444 $clickSpeeder3X = 336 $clickSpeeder3Y = 392 $deadX = 457 ; Pixel de detection pour la mort (à changer pour le client anglais) $deadY = 285 $rezDeadX = 394 ; Bouton pour rez $rezDeadY = 330 $battleEndX = 120 ; 384; Detection de la fin du BG $battleEndY = 180 ; 458 $quitBGbuttonX = 148 ; boutton quitté $quitBGbuttonY = 454 $spanOne = 0 $spanTwo = 0 $spanThree = 0 $spanFour = 0 $spanFive = 0 $spanSix = 0 $cdOneTimer = TimerInit() $cdTwoTimer = TimerInit() $cdThreeTimer = TimerInit() $cdFourTimer = TimerInit() $cdFiveTimer = TimerInit() $cdSixTimer = TimerInit() $cdOneWait = TimerInit() $cdTwoWait = TimerInit() $cdThreeWait = TimerInit() $cdFourWait = TimerInit() $cdFiveWait = TimerInit() $cdSixWait = TimerInit() $noCombat = TimerInit() $timerQueue = TimerInit() $timer = TimerInit() $timerSpeeder = TimerInit() ;global $state = "inBattleGround" ;global $battleGround = "hutt" DllOpen('wininet.dll') $Arret = 0 func Pause () If $Arret = 1 Then $Arret = 0 Else $Arret = 1 Endif While $Arret = 1 Sleep(100) Wend Endfunc ;@UserName $windows = GUICreate("Ares PVP Bot Beta v1.8.1 - SwTor", 532, 433, 1088, 96) GUISetIcon("AresBotIco.ico") $Tab1 = GUICtrlCreateTab(0, 0, 530, 430) GUICtrlSetState(-1,$GUI_SHOW) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Bot") $startBot = GUICtrlCreateButton("Start BOT", 12, 41, 75, 25, $WS_GROUP) $stateLabel = GUICtrlCreateLabel("State : ", 20, 81, 166, 17) $currentLabel = GUICtrlCreateLabel("Current Battleground : ", 20, 105, 166, 17) $logg = GUICtrlCreateEdit("", 20, 145, 497, 257, $ES_READONLY) GUICtrlSetBkColor(-1, 0xffffff) $Label3 = GUICtrlCreateLabel("Created for ownedcore.com by Malharhak.", 20, 409, 205, 17) $successful = GUICtrlCreateLabel("Successful : ", 204, 65, 89, 17) $failed = GUICtrlCreateLabel("Failed : ", 204, 89, 89, 17) $Label6 = GUICtrlCreateLabel("Battle ground report :", 204, 41, 103, 17) $warFailed = GUICtrlCreateLabel("War failed :", 412, 65, 98, 17) $starFailed = GUICtrlCreateLabel("Star failed :", 412, 89, 97, 17) $huttFailed = GUICtrlCreateLabel("Hutt failed :", 412, 113, 98, 17) $warSuccess = GUICtrlCreateLabel("War success :", 300, 65, 104, 17) $starSuccess = GUICtrlCreateLabel("Star success :", 300, 89, 103, 17) $huttSuccess = GUICtrlCreateLabel("Hutt success :", 300, 113, 104, 17) $total = GUICtrlCreateLabel("Total :", 204, 113, 90, 17) $p1 = GUICtrlCreateLabel("Press ""Pause""", 108, 33, 70, 17) $p2 = GUICtrlCreateLabel("button for pause", 108, 49, 81, 17) $p3 = GUICtrlCreateLabel("the bot", 108, 65, 37, 17) GUICtrlSetColor($p1, 0xFF0000) GUICtrlSetColor($p2, 0xFF0000) GUICtrlSetColor($p3, 0xFF0000) $currentBattleLabel = GUICtrlCreateLabel("Not in battleground", 20, 121, 166, 17) $TabSheet2 = GUICtrlCreateTabItem("Settings") $Label2 = GUICtrlCreateLabel("Key to move forward :", 16, 40, 107, 17) $Label4 = GUICtrlCreateLabel("Key to turn left : ", 16, 64, 81, 17) $Label5 = GUICtrlCreateLabel("Key to turn right : ", 16, 88, 87, 17) $upKeyInput = GUICtrlCreateInput($upKey, 128, 40, 25, 21) $leftKeyInput = GUICtrlCreateInput($leftKey, 104, 64, 25, 21) $rightKeyInput = GUICtrlCreateInput($rightKey, 112, 88, 25, 21) $Label7 = GUICtrlCreateLabel("Auto buy mercenary commendation : ", 16, 128, 179, 17) $tokenY = GUICtrlCreateRadio("Yes", 16, 152, 49, 17) GUICtrlSetState(-1, $GUI_DISABLE) $tokenN = GUICtrlCreateRadio("No", 80, 152, 65, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label8 = GUICtrlCreateLabel("+15% passive speed skill (Ataru form from jedi)", 16, 184, 220, 17) $speedY = GUICtrlCreateRadio("Yes", 16, 208, 49, 17) if ($speedSkill = "true") Then GUICtrlSetState($speedY , $GUI_CHECKED) EndIf $speedN = GUICtrlCreateRadio("No", 80, 208, 65, 17) if ($speedSkill = "false") Then GUICtrlSetState($speedN , $GUI_CHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label9 = GUICtrlCreateLabel("Loading battleground time : ", 192, 40, 135, 17) $loadingTimeInput = GUICtrlCreateInput($loadLabel , 336, 40, 33, 21) $Label10 = GUICtrlCreateLabel("second", 376, 40, 39, 17) $Label11 = GUICtrlCreateLabel("Fighting settings", 240, 80, 80, 17) $Label12 = GUICtrlCreateLabel("Spell key 1 :", 240, 112, 62, 17) $Label13 = GUICtrlCreateLabel("cooldown :", 336, 112, 56, 17) $Label14 = GUICtrlCreateLabel("second", 424, 112, 39, 17) $Label15 = GUICtrlCreateLabel("Spell key 2 :", 240, 136, 62, 17) $Label16 = GUICtrlCreateLabel("Spell key 3 :", 240, 160, 62, 17) $Label17 = GUICtrlCreateLabel("Spell key 4 :", 240, 184, 62, 17) $Label18 = GUICtrlCreateLabel("Spell key 5 :", 240, 208, 62, 17) $Label19 = GUICtrlCreateLabel("Spell key 6 :", 240, 232, 62, 17) $keyOneInput = GUICtrlCreateInput($keyOne, 304, 112, 25, 21) $keyTwoInput = GUICtrlCreateInput($keyTwo, 304, 136, 25, 21) $keyThreeInput = GUICtrlCreateInput($keyThree, 304, 160, 25, 21) $keyFourInput = GUICtrlCreateInput($keyFour, 304, 184, 25, 21) $keyFiveInput = GUICtrlCreateInput($keyFive, 304, 208, 25, 21) $keySixInput = GUICtrlCreateInput($keySix, 304, 232, 25, 21) $Label20 = GUICtrlCreateLabel("cooldown :", 336, 136, 56, 17) $Label21 = GUICtrlCreateLabel("cooldown :", 336, 160, 56, 17) $Label22 = GUICtrlCreateLabel("cooldown :", 336, 184, 56, 17) $Label23 = GUICtrlCreateLabel("cooldown :", 336, 208, 56, 17) $Label24 = GUICtrlCreateLabel("cooldown :", 336, 232, 56, 17) $cdOneInput = GUICtrlCreateInput($cdOne, 392, 112, 25, 21) $cdTwoInput = GUICtrlCreateInput($cdTwo, 392, 136, 25, 21) $cdThreeInput = GUICtrlCreateInput($cdThree, 392, 160, 25, 21) $cdFourInput = GUICtrlCreateInput($cdFour, 392, 184, 25, 21) $cdFiveInput = GUICtrlCreateInput($cdFive, 392, 208, 25, 21) $cdSixInput = GUICtrlCreateInput($cdSix, 392, 232, 25, 21) $Label25 = GUICtrlCreateLabel("second", 424, 136, 39, 17) $Label26 = GUICtrlCreateLabel("second", 424, 160, 39, 17) $Label27 = GUICtrlCreateLabel("second", 424, 184, 39, 17) $Label28 = GUICtrlCreateLabel("second", 424, 208, 39, 17) $Label29 = GUICtrlCreateLabel("second", 424, 232, 39, 17) $spellLabel1 = GUICtrlCreateLabel("Spell 1 : Higher priority", 256, 264, 109, 17) $spellLabel2 = GUICtrlCreateLabel("...", 256, 280, 13, 17) $spellLabel3 = GUICtrlCreateLabel("Spell 3 : Lower priority", 256, 296, 107, 17) $spellLabel4 = GUICtrlCreateLabel("Last Spell : No cooldown", 256, 312, 122, 17) $spellLabel5 = GUICtrlCreateLabel("If you don't want to use a spell, just let the field empty", 232, 336, 254, 17) GUICtrlSetColor($spellLabel1, 0xFF0000) GUICtrlSetColor($spellLabel2, 0xFF0000) GUICtrlSetColor($spellLabel3, 0xFF0000) GUICtrlSetColor($spellLabel4, 0xFF0000) GUICtrlSetColor($spellLabel5, 0xFF0000) $saveButton2 = GUICtrlCreateButton("Save (need to restart the bot)", 16, 384, 170, 25, $WS_GROUP) GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $TabSheet3 = GUICtrlCreateTabItem("Crew Skill") $Label35 = GUICtrlCreateLabel("Crew skill mode :", 16, 40, 83, 17) $crewSkillY = GUICtrlCreateRadio("Yes", 16, 64, 49, 17) $crewSkillN = GUICtrlCreateRadio("No", 72, 64, 73, 17) if ($activeCrew = "yep") Then GUICtrlSetState($crewSkillY , $GUI_CHECKED) Else GUICtrlSetState($crewSkillN , $GUI_CHECKED) EndIf GUICtrlSetState($speedN , $GUI_CHECKED) GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label36 = GUICtrlCreateLabel("Companions to use", 16, 96, 94, 17) $comp1 = GUICtrlCreateCheckbox("Companion 1", 24, 120, 89, 17) $comp2 = GUICtrlCreateCheckbox("Companion 2", 24, 144, 81, 17) $comp3 = GUICtrlCreateCheckbox("Companion 3", 24, 168, 81, 17) $comp4 = GUICtrlCreateCheckbox("Companion 4", 24, 192, 89, 17) if ($merc[1] = "yep") Then GUICtrlSetState($comp1 , $GUI_CHECKED) Else GUICtrlSetState($comp1 , $GUI_UNCHECKED) EndIf if ($merc[2] = "yep") Then GUICtrlSetState($comp2 , $GUI_CHECKED) Else GUICtrlSetState($comp2 , $GUI_UNCHECKED) EndIf if ($merc[3] = "yep") Then GUICtrlSetState($comp3 , $GUI_CHECKED) Else GUICtrlSetState($comp3 , $GUI_UNCHECKED) EndIf if ($merc[4] = "yep") Then GUICtrlSetState($comp4 , $GUI_CHECKED) Else GUICtrlSetState($comp4 , $GUI_UNCHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label37 = GUICtrlCreateLabel("Position of the crew skill to use (1 : left, 2 : middle, 3 : right)", 120, 96, 279, 17) $leftOne = GUICtrlCreateRadio("", 128, 120, 16, 17) GUICtrlSetState($speedN , $GUI_CHECKED) $midOne = GUICtrlCreateRadio("", 152, 120, 16, 18) $rightOne = GUICtrlCreateRadio("", 176, 120, 17, 17) if ($metier[1] = 1) Then GUICtrlSetState($leftOne , $GUI_CHECKED) ElseIf ($metier[1] = 2) Then GUICtrlSetState($midOne , $GUI_CHECKED) ElseIf ($metier[1] = 3) Then GUICtrlSetState($rightOne , $GUI_CHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $leftTwo = GUICtrlCreateRadio("", 128, 144, 16, 17) GUICtrlSetState($speedN , $GUI_CHECKED) $midTwo = GUICtrlCreateRadio("", 152, 144, 16, 17) $rightTwo = GUICtrlCreateRadio("", 176, 144, 17, 17) if ($metier[2] = 1) Then GUICtrlSetState($leftTwo , $GUI_CHECKED) ElseIf ($metier[2] = 2) Then GUICtrlSetState($midTwo , $GUI_CHECKED) ElseIf ($metier[2] = 3) Then GUICtrlSetState($rightTwo , $GUI_CHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $leftThree = GUICtrlCreateRadio("", 128, 168, 16, 17) GUICtrlSetState($speedN , $GUI_CHECKED) $midThree = GUICtrlCreateRadio("", 152, 168, 16, 17) $rightThree = GUICtrlCreateRadio("", 176, 168, 17, 17) if ($metier[3] = 1) Then GUICtrlSetState($leftThree , $GUI_CHECKED) ElseIf ($metier[3] = 2) Then GUICtrlSetState($midThree , $GUI_CHECKED) ElseIf ($metier[3] = 3) Then GUICtrlSetState($rightThree , $GUI_CHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $leftFour = GUICtrlCreateRadio("", 128, 192, 16, 17) GUICtrlSetState($speedN , $GUI_CHECKED) $midFour = GUICtrlCreateRadio("", 152, 192, 16, 17) $rightFour = GUICtrlCreateRadio("", 176, 192, 17, 17) if ($metier[4] = 1) Then GUICtrlSetState($leftFour , $GUI_CHECKED) ElseIf ($metier[4] = 2) Then GUICtrlSetState($midFour , $GUI_CHECKED) ElseIf ($metier[4] = 3) Then GUICtrlSetState($rightFour , $GUI_CHECKED) EndIf GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Combo1 = GUICtrlCreateCombo("Use rank 1", 200, 120, 81, 25) GUICtrlSetData(-1, "Use rank 2|Use rank 3|Use rank 4|Use rank 5|Use rank 6", "Use rank 1") $Combo2 = GUICtrlCreateCombo("Use rank 1", 200, 144, 81, 25) GUICtrlSetData(-1, "Use rank 2|Use rank 3|Use rank 4|Use rank 5|Use rank 6", "Use rank 1") $Combo3 = GUICtrlCreateCombo("Use rank 1", 200, 168, 81, 25) GUICtrlSetData(-1, "Use rank 2|Use rank 3|Use rank 4|Use rank 5|Use rank 6", "Use rank 1") $Combo4 = GUICtrlCreateCombo("Use rank 1", 200, 192, 81, 25) GUICtrlSetData(-1, "Use rank 2|Use rank 3|Use rank 4|Use rank 5|Use rank 6", "Use rank 1") GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label38 = GUICtrlCreateLabel("Max cooldown :", 296, 120, 79, 17) $Label39 = GUICtrlCreateLabel("Max cooldown :", 296, 144, 79, 17) $Label40 = GUICtrlCreateLabel("Max cooldown :", 296, 168, 79, 17) $Label41 = GUICtrlCreateLabel("Max cooldown :", 296, 192, 79, 17) $cdOneCrewInput = GUICtrlCreateInput($wait[1], 376, 120, 25, 21) $cdTwoCrewInput = GUICtrlCreateInput($wait[2], 376, 144, 25, 21) $cdThreeCrewInput = GUICtrlCreateInput($wait[3], 376, 168, 25, 21) $cdFourCrewInput = GUICtrlCreateInput($wait[4], 376, 192, 25, 21) GUICtrlCreateGroup ("",-99,-99,1,1) ;close group $Label42 = GUICtrlCreateLabel("minuts", 408, 120, 29, 17) $Label43 = GUICtrlCreateLabel("minuts", 408, 144, 29, 17) $Label44 = GUICtrlCreateLabel("minuts", 408, 168, 29, 17) $Label45 = GUICtrlCreateLabel("minuts", 408, 192, 29, 17) $saveButton = GUICtrlCreateButton("Save (need to restart the bot)", 16, 384, 170, 25, $WS_GROUP) $Label46 = GUICtrlCreateLabel("(Don't use your battle companion as he needs to be out)", 24, 224, 268, 17) GUICtrlSetColor($Label46, 0xFF0000) $TabSheet4 = GUICtrlCreateTabItem("Special Beta settings") $Label47 = GUICtrlCreateLabel("Here you can set distances to exit the secure area - only Beta ", 24, 40, 297, 17) $Label48 = GUICtrlCreateLabel("Huttball first run : ", 32, 72, 86, 17) $huttBallRunInput = GUICtrlCreateInput($huttBallRun, 120, 69, 65, 21) $screenHutt = GUICtrlCreateButton("Screen", 200, 69, 59, 17, $WS_GROUP) $Label49 = GUICtrlCreateLabel("Alderaan war first run :", 32, 104, 109, 17) $warRunInput = GUICtrlCreateInput($warRun, 152, 101, 65, 21) $screenWar1 = GUICtrlCreateButton("Screen", 225, 102, 59, 17, $WS_GROUP) $Label50 = GUICtrlCreateLabel("Alderaan war second run :", 32, 136, 128, 17) $warRunInput2 = GUICtrlCreateInput($warRun2, 168, 133, 65, 21) $screenWar2 = GUICtrlCreateButton("Screen", 245, 135, 59, 17, $WS_GROUP) $Label51 = GUICtrlCreateLabel("Leave the default if it does not bug", 56, 176, 168, 17) $Label52 = GUICtrlCreateLabel("If it works after changing please send me as much detail as possible on the forum feedback please. ", 16, 200, 473, 17) $Label53 = GUICtrlCreateLabel("(Class of the character, new distance values attributions etc.)", 16, 216, 291, 17) GUICtrlSetColor($Label52, 0xFF0000) GUICtrlSetColor($Label53, 0xFF0000) $Label54 = GUICtrlCreateLabel("Default : 8225", 280, 72, 71, 17) $Label55 = GUICtrlCreateLabel("Default : 1700", 304, 104, 71, 17) $Label56 = GUICtrlCreateLabel("Default : 1400", 320, 136, 71, 17) $saveButton3 = GUICtrlCreateButton("Save (need to restart the bot)", 16, 384, 170, 25, $WS_GROUP) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) $cdOne *= 1000 $cdTwo *= 1000 $cdThree *= 1000 $cdFour *= 1000 $cdFive *= 1000 $cdSix *= 1000 $wait[1] = $wait[1] * 60 * 1000 $wait[2] = $wait[2] * 60 * 1000 $wait[3] = $wait[3] * 60 * 1000 $wait[4] = $wait[4] * 60 * 1000 $successfulGame = $warS + $starS + $huttS $failedGame = $warF + $starF + $huttF $totalGame = $failedGame + $successfulGame GUICtrlSetData($successful, "Successful : " & $successfulGame) GUICtrlSetData($failed, "Failed : " & $failedGame) GUICtrlSetData($warFailed, "War failed : " & $warF) GUICtrlSetData($starFailed, "Star failed : " & $starF) GUICtrlSetData($huttFailed, "Hutt failed : " & $huttF) GUICtrlSetData($warSuccess, "War success : " & $warS) GUICtrlSetData($starSuccess, "Star success : " & $starS) GUICtrlSetData($huttSuccess, "Hutt success : " & $huttS) GUICtrlSetData($total, "Total : " & $totalGame) GUICtrlSetData($stateLabel, "State : " & $state) $start = 0 $pixelEnter = "0x4CD5FB" ; $pixelDead = "0xC81D1B" ; $pixelEnd = "0x63F678";"0x000102" ; $pixelKira = "0xC60000" ; $pixelLogo = "0x00050B" ; $pixelCheckSpeeder = "0x866C77" ; $pixelCheckSpeeder2 = "0xC9F9FF" $pixelBattleHutt = "0xE279DA" $pixelBattleStar = "0xB1322D" ; $pixelBattleWar = "0xB5EAFF" ; $file = FileOpen ( "logs.txt",1) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Welcome to the Ares PVP Bot created by Malharhak ! Version beta 1.8.1" & @CRLF, 1) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Put SWTOR in windowed mode and the resolution in 1024*768. The bot will resize the window, don't panic !" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Welcome to the Ares PVP Bot created by Malharhak ! Version beta 1.8.1" & @CRLF) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Put SWTOR in windowed mode and the resolution in 1024*768. The bot will resize the window, don't panic !" & @CRLF) hotkeyset("{PAUSE}", "Pause") sleep(1500) $paused = 1 while 1 ; Main while $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $startBot $timerCrew[1] = TimerInit() $timerCrew[2] = TimerInit() $timerCrew[3] = TimerInit() $timerCrew[4] = TimerInit() if (($loadTime = "noconfig") Or ($buyMercenaryToken = "noconfig") Or ($speedSkill = "noconfig")) Then MsgBox(0,"Warning !", "Please configure the bot in the settings tab") Else if ($paused = 1) then $paused = 0 GUICtrlSetData($startBot, "Stop BOT") GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Activating SWToR window..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Activating SWToR window..." & @CRLF) WinActivate("Star Wars: The Old Republic") GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " SWToR window activated !" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " SWToR window activated !" & @CRLF) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Don't forget : You must have your mercenary with you and disable any active speed skill !" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Don't forget : You must have your mercenary with you and disable any active speed skill !" & @CRLF) sleep(2000) WinMove ("[ACTIVE]", "", 0, 0, 800, 600) sleep(5000) MouseClick("left", $debutX, $debutY, 1, 0) Else $paused = 1 GUICtrlSetData($startBot, "Start BOT") EndIf EndIf Case $saveButton if (Guictrlread($speedY) = 1) Then IniWrite ( "config.ini", "BotConfig", "speedSkill", "true" ) else IniWrite ( "config.ini", "BotConfig", "speedSkill", "false" ) EndIf $loadInput = GuictrlRead($loadingTimeInput) * 1000 IniWrite ( "config.ini", "BotConfig", "loadTime", $loadInput) IniWrite ( "config.ini", "BotConfig", "upKey", GuictrlRead($upKeyInput)) IniWrite ( "config.ini", "BotConfig", "leftKey", GuictrlRead($leftKeyInput)) IniWrite ( "config.ini", "BotConfig", "rightKey", GuictrlRead($rightKeyInput)) IniWrite ( "config.ini", "BotConfig", "keyOne", GuictrlRead($keyOneInput)) IniWrite ( "config.ini", "BotConfig", "keyTwo", GuictrlRead($keyTwoInput)) IniWrite ( "config.ini", "BotConfig", "keyThree", GuictrlRead($keyThreeInput)) IniWrite ( "config.ini", "BotConfig", "keyFour", GuictrlRead($keyFourInput)) IniWrite ( "config.ini", "BotConfig", "keyFive", GuictrlRead($keyFiveInput)) IniWrite ( "config.ini", "BotConfig", "keySix", GuictrlRead($keySixInput)) IniWrite ( "config.ini", "BotConfig", "cdOne", GuictrlRead($cdOneInput)) IniWrite ( "config.ini", "BotConfig", "cdTwo", GuictrlRead($cdTwoInput)) IniWrite ( "config.ini", "BotConfig", "cdThree", GuictrlRead($cdThreeInput)) IniWrite ( "config.ini", "BotConfig", "cdFour", GuictrlRead($cdFourInput)) IniWrite ( "config.ini", "BotConfig", "cdFive", GuictrlRead($cdFiveInput)) IniWrite ( "config.ini", "BotConfig", "cdSix", GuictrlRead($cdSixInput)) IniWrite ( "config.ini", "CrewConfig", "wait1", GuictrlRead($cdOneCrewInput)) IniWrite ( "config.ini", "CrewConfig", "wait2", GuictrlRead($cdTwoCrewInput)) IniWrite ( "config.ini", "CrewConfig", "wait3", GuictrlRead($cdThreeCrewInput)) IniWrite ( "config.ini", "CrewConfig", "wait4", GuictrlRead($cdFourCrewInput)) If (GuictrlRead($crewSkillY) = 1) Then IniWrite ( "config.ini", "CrewConfig", "activateCrew", "yep") Else IniWrite ( "config.ini", "CrewConfig", "activateCrew", "no") EndIf If (GuictrlRead($comp1) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc1", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc1", "no") EndIf If (GuictrlRead($comp2) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc2", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc2", "no") EndIf If (GuictrlRead($comp3) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc3", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc3", "no") EndIf If (GuictrlRead($comp4) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc4", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc4", "no") EndIf If (GuictrlRead($leftOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "1") EndIf If (GuictrlRead($leftTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "1") EndIf If (GuictrlRead($leftThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "1") EndIf If (GuictrlRead($leftFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "1") EndIf If (GuictrlRead($midOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "2") EndIf If (GuictrlRead($midTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "2") EndIf If (GuictrlRead($midThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "2") EndIf If (GuictrlRead($midFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "2") EndIf If (GuictrlRead($rightOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "3") EndIf If (GuictrlRead($rightTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "3") EndIf If (GuictrlRead($rightThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "3") EndIf If (GuictrlRead($rightFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "3") EndIf If (GuictrlRead($combo1) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank1", "1") EndIf If (GuictrlRead($combo1) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank1", "2") EndIf If (GuictrlRead($combo1) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank1", "3") EndIf If (GuictrlRead($combo1) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank1", "4") EndIf If (GuictrlRead($combo1) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank1", "5") EndIf If (GuictrlRead($combo1) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank1", "6") EndIf If (GuictrlRead($combo2) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank2", "1") EndIf If (GuictrlRead($combo2) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank2", "2") EndIf If (GuictrlRead($combo2) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank2", "3") EndIf If (GuictrlRead($combo2) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank2", "4") EndIf If (GuictrlRead($combo2) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank2", "5") EndIf If (GuictrlRead($combo2) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank2", "6") EndIf If (GuictrlRead($combo3) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank3", "1") EndIf If (GuictrlRead($combo3) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank3", "2") EndIf If (GuictrlRead($combo3) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank3", "3") EndIf If (GuictrlRead($combo3) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank3", "4") EndIf If (GuictrlRead($combo3) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank3", "5") EndIf If (GuictrlRead($combo3) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank3", "6") EndIf If (GuictrlRead($combo4) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank4", "1") EndIf If (GuictrlRead($combo4) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank4", "2") EndIf If (GuictrlRead($combo4) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank4", "3") EndIf If (GuictrlRead($combo4) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank4", "4") EndIf If (GuictrlRead($combo4) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank4", "5") EndIf If (GuictrlRead($combo4) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank4", "6") EndIf exit Case $saveButton2 If (GuictrlRead($crewSkillY) = 1) Then IniWrite ( "config.ini", "CrewConfig", "activateCrew", "yep") Else IniWrite ( "config.ini", "CrewConfig", "activateCrew", "no") EndIf If (GuictrlRead($comp1) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc1", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc1", "no") EndIf If (GuictrlRead($comp2) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc2", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc2", "no") EndIf If (GuictrlRead($comp3) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc3", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc3", "no") EndIf If (GuictrlRead($comp4) = 1) Then IniWrite ( "config.ini", "CrewConfig", "merc4", "yep") Else IniWrite ( "config.ini", "CrewConfig", "merc4", "no") EndIf If (GuictrlRead($leftOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "1") EndIf If (GuictrlRead($leftTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "1") EndIf If (GuictrlRead($leftThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "1") EndIf If (GuictrlRead($leftFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "1") EndIf If (GuictrlRead($midOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "2") EndIf If (GuictrlRead($midTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "2") EndIf If (GuictrlRead($midThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "2") EndIf If (GuictrlRead($midFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "2") EndIf If (GuictrlRead($rightOne) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier1", "3") EndIf If (GuictrlRead($rightTwo) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier2", "3") EndIf If (GuictrlRead($rightThree) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier3", "3") EndIf If (GuictrlRead($rightFour) = 1) Then IniWrite ( "config.ini", "CrewConfig", "metier4", "3") EndIf If (GuictrlRead($combo1) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank1", "1") EndIf If (GuictrlRead($combo1) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank1", "2") EndIf If (GuictrlRead($combo1) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank1", "3") EndIf If (GuictrlRead($combo1) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank1", "4") EndIf If (GuictrlRead($combo1) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank1", "5") EndIf If (GuictrlRead($combo1) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank1", "6") EndIf If (GuictrlRead($combo2) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank2", "1") EndIf If (GuictrlRead($combo2) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank2", "2") EndIf If (GuictrlRead($combo2) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank2", "3") EndIf If (GuictrlRead($combo2) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank2", "4") EndIf If (GuictrlRead($combo2) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank2", "5") EndIf If (GuictrlRead($combo2) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank2", "6") EndIf If (GuictrlRead($combo3) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank3", "1") EndIf If (GuictrlRead($combo3) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank3", "2") EndIf If (GuictrlRead($combo3) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank3", "3") EndIf If (GuictrlRead($combo3) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank3", "4") EndIf If (GuictrlRead($combo3) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank3", "5") EndIf If (GuictrlRead($combo3) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank3", "6") EndIf If (GuictrlRead($combo4) = "Use rank 1") Then IniWrite("config.ini", "CrewConfig", "rank4", "1") EndIf If (GuictrlRead($combo4) = "Use rank 2") Then IniWrite("config.ini", "CrewConfig", "rank4", "2") EndIf If (GuictrlRead($combo4) = "Use rank 3") Then IniWrite("config.ini", "CrewConfig", "rank4", "3") EndIf If (GuictrlRead($combo4) = "Use rank 4") Then IniWrite("config.ini", "CrewConfig", "rank4", "4") EndIf If (GuictrlRead($combo4) = "Use rank 5") Then IniWrite("config.ini", "CrewConfig", "rank4", "5") EndIf If (GuictrlRead($combo4) = "Use rank 6") Then IniWrite("config.ini", "CrewConfig", "rank4", "6") EndIf MsgBox(0, "lol", "lol") MsgBox(0, "lol", GuictrlRead($combo1)) MsgBox(0, "lol", GuictrlRead($combo2)) MsgBox(0, "lol", GuictrlRead($combo3)) MsgBox(0, "lol", GuictrlRead($combo4)) exit Case $saveButton3 IniWrite ( "config.ini", "SpecialBeta", "huttBallRun", GuictrlRead($huttBallRunInput)) IniWrite ( "config.ini", "SpecialBeta", "warRun", GuictrlRead($warRunInput)) IniWrite ( "config.ini", "SpecialBeta", "warRun2", GuictrlRead($warRunInput2)) exit Case $screenHutt $Form2 = GUICreate("Huttball start screen", 618, 486, 940, 63) GUISetIcon("AresBotIco.ico") $Pic1 = GUICtrlCreatePic(@tempdir&"screen1.jpg", 16, 16, 580, 420, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $closeHutt = GUICtrlCreateButton("Close", 224, 448, 139, 25, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $masg1 = GUIGetMsg() Select Case $masg1 = $GUI_EVENT_CLOSE Or $masg1 = $closeHutt ExitLoop EndSelect WEnd GUIDelete() Case $screenWar1 $Form3 = GUICreate("Alderran start screen", 618, 486, 940, 63) GUISetIcon("AresBotIco.ico") $Pic2 = GUICtrlCreatePic(@tempdir&"screen2.jpg", 16, 16, 580, 420, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $closeWar = GUICtrlCreateButton("Close", 224, 448, 139, 25, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $masg2 = GUIGetMsg() Select Case $masg2 = $GUI_EVENT_CLOSE Or $masg2 = $closeWar ExitLoop EndSelect WEnd GUIDelete() Case $screenWar2 $Form4 = GUICreate("Alderaan2 start screen", 618, 486, 940, 63) GUISetIcon("AresBotIco.ico") $Pic3 = GUICtrlCreatePic(@tempdir&"screen3.jpg", 16, 16, 580, 420, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $closeWar2 = GUICtrlCreateButton("Close", 224, 448, 139, 25, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $masg3 = GUIGetMsg() Select Case $masg3 = $GUI_EVENT_CLOSE Or $masg3 = $closeWar2 ExitLoop EndSelect WEnd GUIDelete() EndSwitch if ($paused = 0) Then $i = 1 While ($i < 5) ; On parcourt chaque merco If ($merc[$i] = "yep" and $activeCrew = "yep" and (TimerDiff($timerCrew[$i]) > $wait[$i] or $firstCrew[$i] = true)) Then ; Si le merco est sélectionné et que son timer est passé MouseClick("left", $acceptMiss[0], $acceptMiss[1], 1, 10) ; On accepte les éventuelles missions finies sleep(100) MouseClick("left", $acceptMiss[0], $acceptMiss[1], 1, 10) sleep(100) MouseClick("left", $acceptMiss[0], $acceptMiss[1], 1, 10) sleep(300) MouseClick("left", $equip[0], $equip[1], 1, 15) ; On ouvre l'équipage sLeep(2000) MouseClick("left", $mPix[$i][$metier[$i]][0], $mPix[$i][$metier[$i]][1], 1, 10) ; On clique sur le métier sLeep(1500) MouseClick("left", $ranks[0][0], $ranks[0][1], 1, 10) ; On clique sur le bouton de rang sLeep(500) MouseClick("left", $ranks[$rank[$i]][0], $ranks[$rank[$i]][1], 1, 10) ; On choisit le rang sLeep(500) MouseClick("left", $mission[0], $mission[1], 1, 10) ; On choisit la mission sLeep(100) MouseClick("left", $assign[0], $assign[1], 1, 10) ; On assigne le merco sLeep(100) MouseClick("left", $cancelMiss[0], $cancelMiss[1], 1, 10) ; On referme la fenetre sLeep(100) MouseClick("left", $equip[0], $equip[1], 1, 10) ; On ferme la fenetre d'équipage sLeep(100) $firstCrew[$i] = false $timerCrew[$i] = TimerInit() ; On reset le timer du merco EndIf $i += 1 wEnd checkQueue() switch ($state) Case "wait" waitFunc() Case "inBattleGround" If (TimerDiff($battleTimer) > 1800000) Then MouseClick("left", 780, 565, 1, 0) ; click sur le logo Sleep(500) MouseClick("left", 780, 565, 1, 0) sleep(500) MouseClick("left", 391, 409, 1, 0) ; click sur "attendre en solo" Sleep(250) MouseClick("left", 391, 409, 1, 0) sleep(250) MouseClick("left", 549, 205, 1, 0) ; ferme la fenêtre Sleep(250) MouseClick("left", 549, 205, 1, 0) sleep(100) EndIf inBattleGroundFunc() Case "checkBattle" checkBattleFunc() $battleTimer = TimerInit() Case "exitSafeArea" exitSafeAreaFunc() Case "checkBattle" checkBattleFunc() Case "checkSpeeder" checkSpeederFunc() EndSwitch EndIf WEnd Func runTime($time) if ($speedSkill <> "true") Then $return = $time * 15 / 100 $time = $time + $return Floor($time) sleep($time) Else sleep($time) EndIf EndFunc Func waitFunc() $timerDiff = TimerDiff($timer) if ($timerDiff > 30000) Then send($upKey) $timer = TimerInit() EndIf PixelSearch ($enterX, $enterY, $enterX, $enterY, $pixelEnter, 5) if Not @error Then $timerQueue = TimerInit() GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground found ! Checking area..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground found ! Checking area..." & @CRLF) $successfulGame = $warS + $starS + $huttS $failedGame = $warF + $starF + $huttF $totalGame = $failedGame + $successfulGame GUICtrlSetData($successful, "Successful : " & $successfulGame) GUICtrlSetData($failed, "Failed : " & $failedGame) GUICtrlSetData($warFailed, "War failed : " & $warF) GUICtrlSetData($starFailed, "Star failed : " & $starF) GUICtrlSetData($huttFailed, "Hutt failed : " & $huttF) GUICtrlSetData($warSuccess, "War success : " & $warS) GUICtrlSetData($starSuccess, "Star success : " & $starS) GUICtrlSetData($huttSuccess, "Hutt success : " & $huttS) GUICtrlSetData($total, "Total : " & $totalGame) GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Not in battleground") FileWrite($file, "##########################################" & @CRLF) FileWrite($file, "##" & @CRLF) FileWrite($file, "## " & @MON & "/" & @MDAY & "/" & @YEAR & " at " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF) FileWrite($file, "##" & @CRLF) FileWrite($file, "## Total successfull : " & $successfulGame & @CRLF) FileWrite($file, "## Total failed : " & $failedGame & @CRLF) FileWrite($file, "## Total : " & $totalGame & @CRLF) FileWrite($file, "##" & @CRLF) FileWrite($file, "## Successful : failed :" & @CRLF) FileWrite($file, "##" & @CRLF) FileWrite($file, "## Star : " & $starS & " Star : " & $starF & @CRLF) FileWrite($file, "## Huttball : " & $huttS & " Huttball : " & $huttF & @CRLF) FileWrite($file, "## Civil war : " & $warS & " Civil war : " & $warF & @CRLF) FileWrite($file, "##" & @CRLF) FileWrite($file, "##########################################" & @CRLF) sleep(1500) MouseClick("left", $boutonEnterX , $boutonEnterY, 1, 0) sleep(2000) MouseClick("left", $boutonEnterX , $boutonEnterY, 1, 0) $state = "checkBattle" GUICtrlSetData($stateLabel, "State : " & $state) EndIf EndFunc Func checkBattleFunc() PixelSearch ($battleHuttX, $battleHuttY, $battleHuttX, $battleHuttY, $pixelBattleHutt, $tolerance) if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in HuttBall battle ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in HuttBall battle ..." & @CRLF) $battleGround = "hutt" $state = "exitSafeArea" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "HuttBall") EndIf PixelSearch ($battleStarX , $battleStarY, $battleStarX , $battleStarY, $pixelBattleStar, $tolerance) if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in Star of the void battle ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in Star of the void battle ..." & @CRLF) $battleGround = "star" $state = "exitSafeArea" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Star of the void") EndIf PixelSearch ($battleWarX, $battleWarY, $battleWarX, $battleWarY, $pixelBattleWar, $tolerance) if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in Alderaan's civil war battle ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battle check done. Entering in Alderaan's civil war battle ..." & @CRLF) $battleGround = "war" $alderaanTimer = TimerInit() $state = "exitSafeArea" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Alderaan's civil war") EndIf EndFunc Func exitSafeAreaFunc() If ($battleGround = "star") Then $unik = $loadTime + 15000 sleep($unik) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Skipping dialog ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Skipping dialog ..." & @CRLF) sleep(5000) For $i = 0 To 40 Step +1 SLeep(50) Send("{SPACE}") WinActivate("Star Wars: The Old Republic") Next send("{" & $upKey & " down}") runTime(50000) send("{" & $upKey & " up}") GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF) $state = "inBattleGround" GUICtrlSetData($stateLabel, "State : " & $state) EndIf if ($battleGround = "hutt") Then sleep($loadTime) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Exiting HuttBall safe area ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Exiting HuttBall safe area ..." & @CRLF) Send("{SPACE}") send("{" & $upKey & " down}") ;runTime(8225) runTime($huttBallRun) send("{" & $upKey & " up}") send("{" & $rightKey & " down}") sleep(595) send("{" & $rightKey & " up}") send("{" & $upKey & " down}") runTime(4200) send("{" & $upKey & " up}") send("{" & $leftKey & " down}") sleep(595) send("{" & $leftKey & " up}") send("{" & $upKey & " down}") runTime(30000) send("{" & $upKey & " up}") GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF) $state = "inBattleGround" GUICtrlSetData($stateLabel, "State : " & $state) EndIf if ($battleGround = "war") Then sleep($loadTime) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Exiting Alderaan's civil war safe area ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Exiting Alderaan's civil war safe area ..." & @CRLF) Send("{SPACE}") $timerSpeeder = TimerInit() send("{" & $upKey & " down}") ;runTime(1700) runTime($warRun) send("{" & $upKey & " up}") send("{" & $leftKey & " down}") sleep(595) send("{" & $leftKey & " up}") send("{" & $upKey & " down}") ;runTime(1400) runTime($warRun2) send("{" & $upKey & " up}") $state = "checkSpeeder" GUICtrlSetData($stateLabel, "State : " & $state) EndIf EndFunc Func checkSpeederFunc() $timerSpeederDiff = TimerDiff($timerSpeeder) if ($timerSpeederDiff > 120000) Then while ($k < 2) While ($h < 480) $j = 170 $h += 50 While ($j < 625) $j += 50 MouseClick("right", $j, $h, 1, 0) MouseClick("right", $j, $h, 1, 0) sleep(10) WEnd WEnd $h = 170 $j = 265 $k += 1 WEnd $h = 170 $j = 265 $k = 0 sleep(17000) send("{" & $rightKey & " down}") sleep(120) send("{" & $rightKey & " up}") send("{" & $upKey & " down}") runTime(9000) send("{" & $upKey & " up}") $state = "inBattleGround" GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF) EndIf $checkSpeeder = PixelSearch ($speeder1X, $speeder1Y, $speeder2X, $speeder2Y, $pixelCheckSpeeder, 2) if Not @error Then PixelSearch ($speeder1X, $speeder1Y, $speeder2X, $speeder2Y, $pixelCheckSpeeder2, 2) if Not @error Then while ($k < 2) While ($h < 480) $j = 170 $h += 50 While ($j < 625) $j += 50 MouseClick("right", $j, $h, 1, 0) sleep(10) WEnd WEnd $h = 170 $j = 265 $k += 1 WEnd $h = 170 $j = 265 $k = 0 sleep(300) MouseClick("right", $clickSpeeder1X, $clickSpeeder1Y, 1, 0) sleep(300) MouseClick("right", $clickSpeeder1X, $clickSpeeder1Y, 1, 0) sleep(300) MouseClick("right", $clickSpeeder2X, $clickSpeeder2Y, 1, 0) sleep(300) MouseClick("right", $clickSpeeder3X, $clickSpeeder3Y, 1, 0) sleep(300) MouseClick("right", $checkSpeeder[0], $checkSpeeder[1], 1, 0) sleep(15000) send("{" & $rightKey & " down}") sleep(120) send("{" & $rightKey & " up}") send("{" & $upKey & " down}") runTime(9000) send("{" & $upKey & " up}") $state = "inBattleGround" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now in battleground ! Waiting for the end ..." & @CRLF) EndIf EndIf EndFunc Func checkDead() PixelSearch ($deadX, $deadY, $deadX, $deadY, $pixelDead, 5) if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Player is dead, reviving..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Player is dead, reviving..." & @CRLF) sleep(2000) MouseClick("left", $rezDeadX, $rezDeadY, 1, 0) sleep(2000) MouseClick("left", $rezDeadX, $rezDeadY, 1, 0) $start = 1 EndIf EndFunc Func checkEnd() PixelSearch ($battleEndX, $battleEndY, $battleEndX, $battleEndY, $pixelEnd, 2) if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground finnished ! Exiting battleground ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground finnished ! Exiting battleground ..." & @CRLF) send("{PRINTSCREEN}") Switch ($battleGround) case "hutt" $huttS += 1 case "war" $warS += 1 case "star" $starS += 1 EndSwitch sleep(20000) MouseClick("left", $quitBGbuttonX, $quitBGbuttonY, 1, 0) sleep(2000) MouseClick("left", $quitBGbuttonX, $quitBGbuttonY, 1, 0) $state = "wait" $battleGround = "none" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Out of battleground") sleep($loadTime) if ($buyMercenaryToken = "true") then MouseClick("right", 517, 576, 1, 0) sleep(4000) MouseClick("left", 324, 533, 1, 0) sleep(2000) MouseClick("left", 324, 533, 1, 0) sleep(1000) MouseClick("right", 169, 418, 1, 0) sleep(1000) MouseClick("right", 169, 418, 1, 0) EndIf EndIf EndFunc Func inBattleGroundFunc() if ($battleGround = "star") Then checkDead() checkEnd() $start = 0 fightingFunc() $noCombatDiff = TimerDiff($noCombat) if ($start = 1) Then send("{" & $upKey & " down}") runTime(17000) send("{" & $upKey & " up}") $start = 0 EndIf if ($noCombatDiff > 12000) Then littleMoveNoTurn() EndIf EndIf if ($battleGround = "war") Then If (TimerDiff($alderaanTimer) > 180000) Then $k = 0 $h = 170 $j = 265 while ($k < 2) While ($h < 480) $j = 170 $h += 50 While ($j < 625) $j += 50 MouseClick("right", $j, $h, 1, 0) MouseClick("right", $j, $h, 1, 0) sleep(10) WEnd WEnd $h = 170 $j = 265 $k += 1 WEnd $alderaanTimer = TimerInit() EndIf checkDead() checkEnd() if ($start = 1) Then sleep(5000) send("{" & $upKey & " down}") ;runTime(1700) runTime($warRun) send("{" & $upKey & " up}") send("{" & $leftKey & " down}") sleep(595) send("{" & $leftKey & " up}") send("{" & $upKey & " down}") ;runTime(1400) runTime($warRun2) send("{" & $upKey & " up}") sleep(1000) while ($k < 2) While ($h < 480) $j = 170 $h += 50 While ($j < 625) $j += 50 MouseClick("right", $j, $h, 1, 0) sleep(10) WEnd WEnd $h = 170 $j = 265 $k += 1 WEnd $h = 170 $j = 265 $k = 0 sleep(16000) send("{" & $rightKey & " down}") sleep(120) send("{" & $rightKey & " up}") send("{" & $upKey & " down}") runTime(9000) send("{" & $upKey & " up}") $start = 0 EndIf fightingFunc() $noCombatDiff = TimerDiff($noCombat) if ($noCombatDiff > 12000) Then littleMove() EndIf EndIf if ($battleGround = "hutt") Then checkDead() checkEnd() if ($start = 1) Then sleep(3000) send("{" & $leftKey & " down}") send("{" & $leftKey & " up}") send("{" & $upKey & " down}") runTime(17000) send("{" & $upKey & " up}") $start = 0 EndIf fightingFunc() $noCombatDiff = TimerDiff($noCombat) if ($noCombatDiff > 12000) Then littleMoveNoTurn() EndIf EndIf EndFunc Func checkQueue() $timerQueueDiff = TimerDiff($timerQueue) if ($timerQueueDiff > 10000) Then PixelSearch (78, 558, 78, 558, $pixelKira, $tolerance) if Not @error Then PixelSearch (773, 569, 773, 569, $pixelLogo, $tolerance) if Not @error Then if ($first = false) Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground " & $battleGround & " failed :-(" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Battleground " & $battleGround & " failed :-(" & @CRLF) $first = false Else GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now waiting for a battleground !" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Now waiting for a battleground !" & @CRLF) EndIf MouseClick("left", 780, 565, 1, 0) ; click sur le logo Sleep(500) MouseClick("left", 780, 565, 1, 0) sleep(500) MouseClick("left", 391, 409, 1, 0) ; click sur "attendre en solo" Sleep(250) MouseClick("left", 391, 409, 1, 0) sleep(250) MouseClick("left", 549, 205, 1, 0) ; ferme la fenêtre Sleep(250) MouseClick("left", 549, 205, 1, 0) sleep(100) Switch ($battleGround) case "hutt" $huttF += 1 GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Huttball battleground has failed ! :-(" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Huttball battleground has failed ! :-(" & @CRLF) case "war" $warF += 1 GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Alderaan's civil war battleground has failed ! :-(" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Alderaan's civil war battleground has failed ! :-(" & @CRLF) case "star" $starF += 1 GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Star of the void battleground has failed ! :-(" & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Star of the void battleground has failed ! :-(" & @CRLF) EndSwitch $state = "wait" $battleGround = "none" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Out of battleground") EndIf EndIf PixelSearch (775, 162, 775, 162, 0xDCBB50, $tolerance) ; Jaune de select personnage if Not @error Then PixelSearch (779, 487, 779, 487, 0x73FA63, $tolerance) ; Vert du bouton jouer if Not @error Then GUICtrlSetData($logg, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Disconnected from the game. Reconnecting ..." & @CRLF, 1) FileWrite($file, "[" & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & " Disconnected from the game. Reconnecting ..." & @CRLF) MouseClick("left", 779, 487, 1, 0) sleep(2000) MouseClick("left", 779, 487, 1, 0) $state = "wait" $battleGround = "none" GUICtrlSetData($stateLabel, "State : " & $state) GUICtrlSetData($currentBattleLabel, "Out of battleground") EndIf EndIf EndIf EndFunc func fightingFunc() if ($combat = 1) and ($battleGround <> "star") Then $enemiDetectTolerance = 4 ElseIf ($combat = 0) and ($battleGround <> "star") Then $enemiDetectTolerance = 18 ElseIf ($combat = 1) and ($battleGround = "star") Then $enemiDetectTolerance = 3 ElseIf ($combat = 0) and ($battleGround = "star") Then $enemiDetectTolerance = 7 EndIf $attackDetectPortrait = PixelSearch(576, 543, 576, 543, 0xD9362F, 5) if Not @error Then $portrait = 1 Else $portrait = 0 EndIf $attakDetectRouge = PixelSearch(247, 526, 247, 526, 0xA00102, 5) if (Not @error) and ($portrait = 1) Then $attack = 0 Elseif @error and ($portrait = 1) Then $attack = 1 Else $attack = 0 EndIf PixelSearch(399, 520, 399, 520, 0xF44B3D, 3) ; check si le joueur est en combat if Not @error Then $noCombat = TimerInit() $fightProcess = 1 PixelSearch(38, 71, 752, 507, 0xE90101, 3) if Not @error Then $targetHide = 0 Else $targetHide = 1 EndIf $combat = 1 if ($attack = 0) and ($combat = 1) and ($targetHide = 1) or ($portrait = 0) and ($combat = 1) and ($targetHide = 1) Then send("{" & $rightKey & " down}") Else send("{" & $rightKey & " up}") EndIf Else $combat = 0 send("{" & $rightKey & " up}") EndIf if ($attack = 1) Then $cdOneTimerDiff = TimerDiff($cdOneTimer) $cdTwoTimerDiff = TimerDiff($cdTwoTimer) $cdThreeTimerDiff = TimerDiff($cdThreeTimer) $cdFourTimerDiff = TimerDiff($cdFourTimer) $cdFiveTimerDiff = TimerDiff($cdFiveTimer) $cdSixTimerDiff = TimerDiff($cdSixTimer) $cdOneWaitDiff = TimerDiff($cdOneWait) $cdTwoWaitDiff = TimerDiff($cdTwoWait) $cdThreeWaitDiff = TimerDiff($cdThreeWait) $cdFourWaitDiff = TimerDiff($cdFourWait) $cdFiveWaitDiff = TimerDiff($cdFiveWait) $cdSixWaitDiff = TimerDiff($cdSixWait) if ($cdOneTimerDiff > $cdOne) Then send($keyOne) if ($spanOne = 1) Then $cdOneWait= TimerInit() $cdOneWaitDiff = TimerDiff($cdOneWait) $spanOne = 0 EndIf if ($cdOneWaitDiff > 1800) Then $spanOne = 1 $cdOneTimer = TimerInit() EndIf ElseIf ($cdTwoTimerDiff > $cdTwo) Then send($keyTwo) if ($spanTwo = 1) Then $cdTwoWait= TimerInit() $cdTwoWaitDiff = TimerDiff($cdTwoWait) $spanTwo = 0 EndIf if ($cdOneWaitDiff > 1800) Then $spanTwo = 1 $cdTwoTimer = TimerInit() EndIf ElseIf ($cdThreeTimerDiff > $cdThree) Then send($keyThree) if ($spanThree = 1) Then $cdThreeWait= TimerInit() $cdThreeWaitDiff = TimerDiff($cdThreeWait) $spanThree = 0 EndIf if ($cdThreeWaitDiff > 1800) Then $spanThree = 1 $cdThreeTimer = TimerInit() EndIf ElseIf ($cdFourTimerDiff > $cdFour) Then send($keyFour) if ($spanFour = 1) Then $cdFourWait= TimerInit() $cdFourWaitDiff = TimerDiff($cdFourWait) $spanFour = 0 EndIf if ($cdFourWaitDiff > 1800) Then $spanFour = 1 $cdFourTimer = TimerInit() EndIf ElseIf ($cdFiveTimerDiff > $cdFive) Then send($keyFive) if ($spanFive = 1) Then $cdFiveWait= TimerInit() $cdFiveWaitDiff = TimerDiff($cdFiveWait) $spanFive = 0 EndIf if ($cdFiveWaitDiff > 1800) Then $spanFive = 1 $cdFiveTimer = TimerInit() EndIf ElseIf ($cdSixTimerDiff > $cdSix) Then send($keySix) if ($spanSix = 1) Then $cdSixWait= TimerInit() $cdSixWaitDiff = TimerDiff($cdSixWait) $spanSix = 0 EndIf if ($cdSixWaitDiff > 1800) Then $spanSix = 1 $cdSixTimer = TimerInit() EndIf EndIf EndIf send("{tab}") $emplacement = PixelSearch(41, 54, 666, 494, 0xE90101, $enemiDetectTolerance) ; Emplacement de l'énemi if Not @error Then $noCombat = TimerInit() $fightProcess = 1 if ($attack = 0) and ($combat = 1) and ($emplacement[0] < 550) and ($emplacement[0] > 250) then $avance = 1 send("{" & $upKey & " down}") elseif ($attack = 0) and ($combat = 0) Then $avance = 1 send("{" & $upKey & " down}") Else send("{" & $upKey & " up}") $avance = 0 EndIf if ($emplacement[0] < 280) and ($attack = 0) Then send("{" & $leftKey & " down}") sleep(50) send("{" & $leftKey & " up}") Elseif ($emplacement[0] > 520) and ($attack = 0) Then send("{" & $rightKey & " down}") sleep(50) send("{" & $rightKey & " up}") EndIf Else $fightProcess = 0 send("{" & $upKey & " up}") EndIf EndFunc func littleMove() send("{" & $upKey & " down}") runTime(750) Send("{SPACE}") runTime(500) send("{" & $rightKey & " up}") sleep(500) send("{" & $rightKey & " down}") runTime(550) Send("{SPACE}") send("{" & $upKey & " up}") $noCombat = TimerInit() EndFunc func littleMoveNoTurn() send("{" & $upKey & " down}") runTime(750) Send("{SPACE}") runTime(4000) Send("{SPACE}") runTime(500) send("{" & $upKey & " up}") $noCombat = TimerInit() EndFunc
  13. Bonjour/Bonsoir, voila, mais fichier source (src) ont l'extension .class et non l'extension . java donc comment je fait ?pour lire et les éditer. ceci peut m’embêter si par exemple je veut modifier ou ajouter une dragodinde (montilier) exemple pour mais source common: exemple des source common qui devrai aitre:
  14. 3xi_devcon_b1 (Dod source)

    Ce fichier à été ajouté par Mentaliste: (cliquer sur l'image ci-dessous pour le télécharger) 3xi_devcon_b1 (Dod source) Powered By Mentaliste de Over-game.org Taille : 0 / Créateur : N/A Description
  15. chocolate_fight_arena (DOD source)

    Ce fichier à été ajouté par Mentaliste: (cliquer sur l'image ci-dessous pour le télécharger) chocolate_fight_arena (DOD source) Powered By Mentaliste de Over-game.org Taille : 0 / Créateur : N/A Description
  16. 3xi_bettertrainmap_final (Day Of Defeat Source )

    Ce fichier à été ajouté par Mentaliste: (cliquer sur l'image ci-dessous pour le télécharger) 3xi_bettertrainmap_final (Day Of Defeat Source ) Powered By Mentaliste de Over-game.org Taille : 0 / Créateur : N/A Description
  17. Salut Voila je débute en programmation et je suis a la recherche d un bot en open source je suis preneur des trois style. Bot flood Bot récolte Bot combat Je vous remercie d'avance de ce que vous pourrez faire pour moi. J'aimerais aussi savoir si il existe des logiciel pour récupérer décompiler entièrement une application. Merci
  18. [Question] Source

    Bonjour, Voilà, j'ai un repack, des base Mysql les sources qui vont avec... Pour ma pars mon serveur version Wotlk est maintenant au archive. Si des gens sont intéressé, je peux partager mes base MYSQL, Mon dernier Repack, peut être pas ma source en totalité mais certain scripte qui sont à 99.9%. Si ça vous tente. Postez à la suite. Pas de MP s'il vous plait. Après je sais pas si c'est le meilleur endroit, mais je met en place un serveu en 4.0.6, pour avoir un rendu comme le serveur dont je vous parle ci dessus. Bonne soirée
  19. Comme c'est écrit au dessus, je vends les sources werpemu, werpo vendait ses sources 30¤ (avec mise à jour de sont propre emu) Je compte le vendre 20¤ paypal à débattre avec une limitation à 8-10 personnes Le dossier contient les mise à jour d'avant les REV privés, il est fourni avec le fichier config mais sans le start.bat werpemu est un emulateur stable, les sorts sont pratiquement tous débug (il reste le chati vita du sacri et les pièges des srams qui ne font pas passé automatiquement le tour du/des monstres tuer par un piège). Bonne journée, Leolitia
  20. Bonjour ! J'échange mes source d'émulateur (Trés stable et bien débug je vous en dis plus sur skype !) Merci de m'envoyer vos skype :langue: Je cherche un compte sur offi ayant été upgrader jusqua Cataclysm, le personnage est un détail
  21. Plop à tous, En cherchant dans le fichier autoit comment démaré internet avec un lien précis, J'ai trouvé ceci: Je le trouve bien car avec sa on attend 5 seconde et on a le code source d'un page internet! Cordialement Streg
  22. code source du bot:
  23. [Source] Ancestra Remake

    Ce fichier à été ajouté par Zabil: (cliquer sur l'image ci-dessous pour le télécharger) [source] Ancestra Remake Powered By Zabil de Over-game.org [bR][/bR]Il vous faudra Eclipse pour pouvoir l’éditer et compiler. Il s'agit des sources D'ancestra remake ainsi que le core de l'émulateur ainsi que des patch pour la BDD. Enjoy ! Je les partage car je sais que ce n'est pas facile de les avoir quand on est un débutant, cependant si je les poste ici, en autre c'est parce qu'à partir de ces sources vous pouvez coder votre Émulateur.
  24. [Source] Sufod 2.0

    Ce fichier à été ajouté par Zabil: (cliquer sur l'image ci-dessous pour le télécharger) [source] Sufod 2.0 Powered By Zabil de Over-game.org [bR][/bR]Biensûr je ne qu'un intermédiaire mais je partage quand même, ce fichier que vous pouvez compiler afin d'avoir votre Emulateur opérationnel. Je re-précise il s'agit d'un émulateur 2.0. Pour pouvoir l'éditer utilisez Microsoft visual studio. Encore une fois : Je les partage car je sais que ce n'est pas facile de les avoir quand on est un débutant, cependant si je les poste ici, en autre c'est parce qu'à partir de ces sources vous pouvez coder votre Émulateur.
  25. [Source] Dofus - Engine

    Ce fichier à été ajouté par Zabil: (cliquer sur l'image ci-dessous pour le télécharger) [source] Dofus - Engine Powered By Zabil de Over-game.org [bR][/bR]Il s'agit des sources de l'émulateur Dofus Engine. Je les partage Il faut Microsoft Visual pour pouvoir l'éditer et compiler. Encore une fois : Je les partage car je sais que ce n'est pas facile de les avoir quand on est un débutant, cependant si je les poste ici, en autre c'est parce qu'à partir de ces sources vous pouvez coder votre Émulateur.