Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 07:03

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Need help with my script.

Discussion on Need help with my script. within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jun 2007
Posts: 145
Received Thanks: 19
Need help with my script.

can anyone help me improve my script please? now it's working "fine" but i just want to ask if my bot can still be improved? a gui would be nice and how many monsters the bot killed and bot run time.

Code:
#include <GUIConstantsEx.au3>
#include <ImageSearch.au3>
$Full = WinGetTitle ("BlueStacks App Player")
$HWnD = WinGetHandle ($Full)

$x1=0
$y1=0
While (1)

;==========================================================
;autokick afk members
   If _ImageSearch("mana.png",1,$x1,$y1,20) = 1 Then
   Sleep(10000)
   If _ImageSearch("mana.png",1,$x1,$y1,10) = 1 Then
   MouseClick("left", $x1, $y1, 1, 3)
   Sleep(1000) ;
   MouseClick("left", 790, 525, 1)
   Sleep(500) ;
   MouseClick("left", 600, 310, 1)
   Sleep(200) ;
   MouseClick("left", 600, 310, 1)
   Sleep(200) ;
   ControlClick($HWnD, "", "", "left", 1, 1237, 520)
   Sleep(200) ;
   
;========================================================== 
;invite party
Sleep(200) ;
		ControlClick($HWnD, "", "", "left", 1, 37, 50)
		Sleep(200) ;
		ControlClick($HWnD, "", "", "left", 1, 942, 802)
		Sleep(200) ;
		ControlClick($HWnD, "", "", "left", 1, 194, 149)
		Sleep(200) ;
		ControlClick($HWnD, "", "", "left", 1, 1358, 712)
		Sleep(200) ;
		ControlClick($HWnD, "", "", "left", 1, 505, 39)
    EndIf
 EndIf


;==========================================================
;autosearch mob
 $result1111111 = _ImageSearch("searchnow.png",1,$x1,$y1,10)
 if $result1111111=0 Then
 ControlClick($HWnD, "", "", "left", 1, 1245, 526)
 Sleep(500)
 ControlClick($HWnD, "", "", "left", 1, 1237, 632)
 Sleep(500)
 ControlClick($HWnD, "", "", "left", 1, 1347, 755)
 Sleep(10000)
 EndIf

;==========================================================
;autocancel invites
$result11111 = _ImageSearch("cancel.png",1,$x1,$y1,10)
if $result11111=1 Then
    MouseClick("left",$x1,$y1,1,0)
	Sleep(100)
    EndIf


 
   ;==========================================================
   ;autoheal and buffs
   $result1 = _ImageSearch("bot.png",1,$x1,$y1,100)
   if $result1=1 Then
   ControlClick($HWnD, "", "", "left", 1, 1241, 515)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1207, 738)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1207, 738)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1207, 738)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1207, 738)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1207, 738)
   Sleep(1000)
   ;==========================================================

   ;Devour
   ControlClick($HWnD, "", "", "left", 1, 43, 40)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 213, 807)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1156, 712)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 282, 711)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 506, 34)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1371, 42)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 52, 34)
   Sleep(1000)
   ;==========================================================



   ;Prayer/Stamina
   ControlClick($HWnD, "", "", "left", 1, 1228, 36)
   Sleep(1000)
   ControlClick($HWnD, "", "", "left", 1, 1007, 754) ;pray
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 423, 758) ;stamina
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1390, 62) ;close
   Sleep(1000)
   ;talent
   ControlClick($HWnD, "", "", "left", 1, 1392, 331)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1302, 718)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1107, 754)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1223, 39)
   Sleep(500)
   ControlClick($HWnD, "", "", "left", 1, 1399, 326)
   Sleep(200)
   ControlClick($HWnD, "", "", "left", 1, 1237, 520)

    EndIf

   ;==========================================================



WEnd
Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
sleep(100)
WEnd
EndFunc

Func Stop() 
Exit 
EndFunc
kidsforsale is offline  
Old 10/04/2015, 18:03   #2


 
Moneypulation's Avatar
 
elite*gold: 138
Join Date: Apr 2012
Posts: 3,495
Received Thanks: 1,769
If you want to have a GUI, then will help you with that. For the runtime, you can just initialize a timer when starting the script and update the passed time in a label through an adlib function for example
Moneypulation is offline  
Reply




All times are GMT +2. The time now is 07:03.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.