Jump to content

Guid war pvp bot open script

caramen

By caramen,
in AutoIt Example Scripts

 Share

Recommended Posts

caramen Universalist

caramen

Posted
Posted

Hi autoit Boy's and Girl's :D hihi

ok i ave work a lot of time on this and i ave decide to post it to public here you will got a pvp bot for win baltazar point for free if you whant to sleep some time ;p

Well some restriction here

-you ve got to be in 1024 * 768 > or change mouse click ect .... but all my script is for it

-dont share it at all or it will be hard to play with only bot :)

-last thing u ave got to put box of your party like that (SHOW RED CIRCLE ONLY NOT ELSE)like default config interface:

Posted Image

-And like that in pvp mode

Posted Image

OK, now My script :

Opt("MouseCoordMode", 0)

Opt("PixelCoordMode", 0)

HotKeySet("{PAUSE}", "Pause")
Global $Paused
HotKeySet("{escape}", "Exite")

Dim $var
Dim $p

MsgBox ( 0, "Thank you", "Edited by caramen to win baltazar points :) Enjoy. Whrite me to adressemomentaner@hotmail.fr to any suggestion or bug Ty.")

$SettingsFile = @SCRIPTDIR & '\Settings.ini'

$LogAccount =IniRead ($SettingsFile, 'Account', 'Account', "ERROR")
$LogPass = IniRead ($SettingsFile, 'Account', 'PassW', "ERROR")

$GW = IniRead ($SettingsFile, 'GUILD WAR EXECUTABLE', 'GW', "ERROR")

$DeleyA  = IniRead ($SettingsFile, 'Deley', 'DeleyA', "ERROR")

$Deley0  = IniRead ($SettingsFile, 'Deley', 'Deley0', "ERROR")
$Deley1  = IniRead ($SettingsFile, 'Deley', 'Deley1', "ERROR")
$Deley2  = IniRead ($SettingsFile, 'Deley', 'Deley2', "ERROR")
$Deley3  = IniRead ($SettingsFile, 'Deley', 'Deley3', "ERROR")
$Deley4  = IniRead ($SettingsFile, 'Deley', 'Deley4', "ERROR")
$Deley5  = IniRead ($SettingsFile, 'Deley', 'Deley5', "ERROR")
$Deley6  = IniRead ($SettingsFile, 'Deley', 'Deley6', "ERROR")
$Deley7  = IniRead ($SettingsFile, 'Deley', 'Deley7', "ERROR")
$Deley8  = IniRead ($SettingsFile, 'Deley', 'Deley8', "ERROR")
$Deley9  = IniRead ($SettingsFile, 'Deley', 'Deley9', "ERROR")
$Deley10 = IniRead ($SettingsFile, 'Deley', 'Deley10', "ERROR")
$Deley11 = IniRead ($SettingsFile, 'Deley', 'Deley11', "ERROR")
$Deley12 = IniRead ($SettingsFile, 'Deley', 'Deley12', "ERROR")
$Deley13 = IniRead ($SettingsFile, 'Deley', 'Deley13', "ERROR")
$Deley14 = IniRead ($SettingsFile, 'Deley', 'Deley14', "ERROR")
$Deley15 = IniRead ($SettingsFile, 'Deley', 'Deley15', "ERROR")
$Deley16 = IniRead ($SettingsFile, 'Deley', 'Deley16', "ERROR")
$Deley17 = IniRead ($SettingsFile, 'Deley', 'Deley17', "ERROR")
$Deley18 = IniRead ($SettingsFile, 'Deley', 'Deley18', "ERROR")
$Deley19 = IniRead ($SettingsFile, 'Deley', 'Deley19', "ERROR")
$Deley20 = IniRead ($SettingsFile, 'Deley', 'Deley20', "ERROR")
$Deley21 = IniRead ($SettingsFile, 'Deley', 'Deley21', "ERROR")
$Deley22 = IniRead ($SettingsFile, 'Deley', 'Deley22', "ERROR")
$Deley23 = IniRead ($SettingsFile, 'Deley', 'Deley23', "ERROR")
$Deley24 = IniRead ($SettingsFile, 'Deley', 'Deley24', "ERROR")
$Deley25 = IniRead ($SettingsFile, 'Deley', 'Deley25', "ERROR")


SleepB ()
;~ runf ()
While (1)
rentre ()
suivre ()
enemie ()
;~ logoffon ()
WEnd
Pause ()
Exite ()

While (1)
    sleep(10)
WEnd

Func sleepB ()
    Sleep(10000)
EndFunc

;~ Func runf ()
;~  Run ("exe","$GW")
;~  Sleep(5000)
;~  Send($LogAccount)
;~  Sleep(500)
;~  Send("{tab}")
;~  Sleep(500)
;~  Send($LogPass)
;~ EndFunc

Func rentre ()
    
    
    MouseMove(340   , 15)
    Sleep(3000)

if (PixelGetColor(340   , 15) = 10728903) then  

    MouseClick("left",1113 , 705)
    
    MouseMove (639,187)
    
    Sleep (4000)
    if (PixelGetColor(707   , 127) = 11184776) then
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 11184776) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 3625848 Or 3362421) then
        Sleep(2000)
    EndIf
    if (PixelGetColor(707   , 127) = 3625848 Or 3362421) then
        Sleep(2000)
    EndIf
    Sleep($DeleyA)
    EndIf

EndIf

EndFunc 
    
Func suivre ()
    
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
    Send("{h}")
    Send("{o}")
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf
if (PixelGetColor(649,128) = 15649962) then
    Sleep(2000)
EndIf

    MouseClick("left", 1114 , 841)
    Sleep(800)
    Send ('{space}')
    
    MouseClick("left", 1111, 871)
    Sleep(800)
    Send ('{space}')
    Sleep (300)
    Send("{tab}")
    
EndFunc

Func enemie ()

if (PixelGetColor(581   , 113) = 16772795) then

    Send("{c}")
    Sleep(200)
    Send("{space}")
    Sleep(2000)
    
    
if (PixelGetColor(503,45) = 13893645) then
    Sleep($Deley0)
    Send("{space}")
    Sleep($Deley1)
    Send("{-}")
    Sleep($Deley2)
    Send("{'}")
    Sleep($Deley3)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) then
    Sleep($Deley4)
    Send("{é}")
Else
 Send("{c}")
EndIf
    Sleep($Deley5)
    Send("{&}")
    Sleep($Deley6)
    Send("{é}")
    Sleep($Deley7)
    Send("{&}")
    Sleep($Deley8)
    Send("{é}")
Else
 Send("{c}")
EndIf


if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656)  then
    Sleep($Deley9)
    Send("{space}")
    Sleep($Deley10)
    Send("{-}")
    Sleep($Deley11)
    Send("{'}")
    Sleep($Deley12)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley13)
    Send("{é}")
Else
 Send("{c}")
EndIf
    Sleep($Deley14)
    Send("{&}")
    Sleep($Deley15)
    Send("{é}")
    Sleep($Deley16)
    Send("{é}")    
Else
 Send("{c}")
EndIf

    

if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley17)
    Send("{space}")
    Sleep($Deley18)
    Send("{-}")
    Sleep($Deley19)
    Send("{'}")
    Sleep($Deley20)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley21)
    Send("{é}")
Else
 Send("{c}")
EndIf   
    Send("{c}")
    Sleep($Deley22)
    Send("{&}")
    Sleep($Deley23)
    Send("{&}")
    Sleep($Deley24)
    Send("{é}")
    Sleep($Deley25)
    Send("{é}")
    
EndIf



if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley17)
    Send("{space}")
    Sleep($Deley18)
    Send("{-}")
    Sleep($Deley19)
    Send("{'}")
    Sleep($Deley20)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley21)
    Send("{é}")
Else
 Send("{c}")
EndIf   
    Send("{c}")
    Sleep($Deley22)
    Send("{&}")
    Sleep($Deley23)
    Send("{&}")
    Sleep($Deley24)
    Send("{é}")
    Sleep($Deley25)
    Send("{é}")
    
EndIf

if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley17)
    Send("{space}")
    Sleep($Deley18)
    Send("{-}")
    Sleep($Deley19)
    Send("{'}")
    Sleep($Deley20)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley21)
    Send("{é}")
Else
 Send("{c}")
EndIf   
    Send("{c}")
    Sleep($Deley22)
    Send("{&}")
    Sleep($Deley23)
    Send("{&}")
    Sleep($Deley24)
    Send("{é}")
    Sleep($Deley25)
    Send("{é}")
    
EndIf

if (PixelGetColor(503,45) = 13893645)  or (PixelGetColor(542    , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656)then
    Sleep($Deley17)
    Send("{space}")
    Sleep($Deley18)
    Send("{-}")
    Sleep($Deley19)
    Send("{'}")
    Sleep($Deley20)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley21)
    Send("{é}")
Else
 Send("{c}")
EndIf   
    Send("{c}")
    Sleep($Deley22)
    Send("{&}")
    Sleep($Deley23)
    Send("{&}")
    Sleep($Deley24)
    Send("{é}")
    Sleep($Deley25)
    Send("{é}")
    
EndIf

if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley17)
    Send("{space}")
    Sleep($Deley18)
    Send("{-}")
    Sleep($Deley19)
    Send("{'}")
    Sleep($Deley20)
    Send('{"}')
if (PixelGetColor(503,45) = 13893645) or (PixelGetColor(542 , 44) = 8356352) or (PixelGetColor(517  , 46) = 14551415) or (PixelGetColor(515 , 46) = 12793656) then
    Sleep($Deley21)
    Send("{é}")
Else
 Send("{c}")
EndIf   
    Send("{c}")
    Sleep($Deley22)
    Send("{&}")
    Sleep($Deley23)
    Send("{&}")
    Sleep($Deley24)
    Send("{é}")
    Sleep($Deley25)
    Send("{é}")
    
EndIf

EndIf

EndFunc

Func Exite ()
    Exit
EndFunc

Func Pause()
    $Paused = NOT $Paused
While  $Paused
        Sleep (500)
WEnd
EndFunc; => Pause()
;~ Func logoffon ()
;~ EndFunc

-Now last thing you've got to make a .ini file named "SETTINGS.INI" in the same directory of your script for get deley and other information :( and writing this in:

;edit bellow your Futur auto answer message



;***********        ***     ***********          ***
;***********       *****       ****** *****        *****
;***********      *******     *****   *****      *******
;****           *********    *****   ******    *********
;****          ****   ****  *****   ******    ****   ****
;****         ****   ****   ****** *******   ****    ****
;****         ****   ****   *************     ****   ****
;****         ****   ****   ***********     ****     ****
;****         *************   ****  ****       *************
;****         *************   ****  *****     *************
;****         *************   ****   *****   *************                                                                
;***********   ****  ****   ****      ***** ****     ****                                          
;***********   ****  ****   ****       *****   ****  ****                                        
;***********   ****  ****   ****       *****   ****  ****                                                       

;This bot work only in 1024*768
;Edit just here deley betwen each attack


[Deley]

;HERE deley before entering in a game
DeleyA=6000


;HERE deley during first sequense of attacks (dont put here any letter or it will not work)
Deley0=1500
Deley1=1500
Deley2=1500
Deley3=1500
Deley4=1500
Deley5=1500
Deley6=1500
Deley7=1500
Deley8=1500

;HERE deley during seconde sequense of attacks (dont put here any letter or it will not work)
Deley9=1500
Deley10=1500
Deley11=1500
Deley12=1500
Deley13=1500
Deley14=1500
Deley15=1500
Deley16=1500

;HERE deley during the rest sequense of attacks (dont put here any letter or it will not work)
Deley17=1500
Deley18=1500
Deley19=1500
Deley20=1500
Deley21=1500
Deley22=1500
Deley23=1500
Deley24=1500
Deley25=1500


Here a fonction for log on and log off disable here i ave got to fix it

[Account]


Account=adressemomentaner@hotmail.fr                        
PassW=***********


[GUILD WAR EXECUTABLE]

GW=D:\jordan\jeux\guild war\GW.exe

;ADVISE :

;1) Dont change name of ini files or CaraBOT will not work

;2) Keep GWCB.exe and settings.ini in the same directory

;4) DONT SHARE ANY FILE DONT FORGOT YOUR PASSE IS IN YOUR SETTINGS.INI 


;HOTKEY =========================
==========Escape = Stop script
==========Pause = Pause script



;Edited By caramen Whrite me any suggestion to Adressemomentaner@hotmail.fr

You can edit sequance of attack easy by changing key strock and deley in "settings.ini" file

Whrite me any suggestion in pv or email me :D.

ENJOOOOOOOOOOOOOOY my work héhé :D:wacko:

My video tutorials : ( In construction )  || My Discord : https://discord.gg/S9AnwHw

How to Ask Help ||  UIAutomation From Junkew || WebDriver From Danp2 || And Water's UDFs in the Quote

Spoiler

 Water's UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:
ADO - Wiki

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...