guildwars bots

ramadash · August 3, 2007

Ok well I am releasing my old autoit guildwars bot

BEWARE: I got banned from it, so use at your own risk. It should be used as reference and maby part of other bots, you should not use it as-is.

There are a couple stuff you need I dont remember all of them. But 32bit color and the resolution needs to be 1009x763 with windows classic theme if i remember good. Well I might have some stuff forgotten if you have problems you can pm me i will look further into the requirments you need butI dont really feel like it right now (I dont even know if someone will use this).

Main.au3

Opt ( "CaretCoordMode" , 2 )
opt ( "MouseCoordMode" , 2 )
opt ( "PixelCoordMode" , 2 )
;WINSIZE: 1009 763
WinMinimizeAll()
WinActivate( 'Guild Wars' )
WinWaitActive( 'Guild Wars' )
$file = FileOpen( 'log.txt',2)
WinMove('Guild Wars','',0,0)
MouseClick( 'left', 50, -10 );;è
Sleep( 2000 )

;511/38
_log( '==================================================================================' )
HotKeySet( '9','TooglePause' )

;configs
global $SkillChecksum1 = 629865937 , _
        $SkillChecksum2 = 1432347367 , _
        $SkillChecksum3 = 548153391 , _
        $SkillChecksum4 =  3353687470, _
        $SkillChecksum5 = 1037325805, _
        $SkillChecksum6 = 789173279, _
        $SkillChecksum7 = 0, _
        $SkillChecksum8 = 0
global $AttackTimeout_Minotaur = 8*60*1000 , $AttackTimeout_Hydra=20*60*1000, $AttackTimeout_Griffon=10*60*1000
global const $ItemColor_White = 16777215, $ItemColor_Blue = 0x99EEFF, $MonsterColor_Red = 15663104;item colors definition
global $SplashText = ''
global $SellRun = 5;ID each x runs
;private vars
global $VigorousTimer = -1, $DefyTimer = -1, $GladTimer = 11000,$way = 1, $Dead = false, $coretimer = TimerInit(), $paused = false
global $FirstBrake = Random( 1*60*60*1000,2*60*60*1000) , $SecondBrake = Random( 2*60*60*1000,4*60*60*1000), $ThirdBrake=Random(4*60*60*1000,6*60*60*1000), $FourthBrake= Random( 6*60*60*1000,9*60*60*1000 )
global $runs = 0, $hours, $mins, $Secs
func TooglePause()
    $paused = not $paused
EndFunc
#region reference arrays
global $Monster[255]
$Monster[0] = '98BD9641C9EA99C47A121186A98968A12CA5';level 24 minotaure
             ;98BD9641C9EA9F6189C47A121186A98968A12CA5;F6189
$Monster[1] = '98BD99896BCF4249C47A121186A98968A12CA5';level 10 minotaure
$Monster[2] = '271A99BBAF4DF9F42423D4271F4241';lvl 22 hydra
$Monster[3] = '271A99BBAC8F42423D4271F4241';lvl 26 hydra
$Monster[4] = '3E9F4DF9643E93D49959D2DC6C186A98968C356498968F4628186A2715';lvl 21 griffon
$Monster[5] = '3E8292888F4381312D141312D1E848C8A7D1312D14C81';gordok merchant in ICS
$Monster[6] = '98BD9641C9EA9F6189C47A121186A98968A12CA5';level 27 minotaur 98BD9641C9EA9F6189C47A121186A98968A12CA5
$Monster[7] = '18743D998968AF424186A1E186A271A1E84817A123E864989683ED';whiptail devourer
$monster[8] =  '989681F41271A3E8186A98968138864989683E8A98968F4241';carrion devourer
;$Monster[5] = ''; lvl 26 griffon

global $IgnoreItems[255]
$IgnoreItems[0] = '3E864F424186A2713E81F4283E8493E1';ice tooth cave
$IgnoreItems[1] = '2FB179F4243E84E232FAF8F4241312DF42464271F4241'; skyward reach
$IgnoreItems[2] = '4C4DB1F424C83E85F424164F4241';augury rock
$IgnoreItems[3] = '3E864271F4244C63C327113882714C4B41874131C941642715';teleport switch
$IgnoreItems[4] = '98BDA43ED12C13881998968BB8192713E8141';destinys gorge 98BDA43ED12C13881998968BB8192713E8141 64989683E812C271A5C81312DF4A198BD93E8186A4D99A3ED
$IgnoreItems[5] = '6498E4AA3ED64A7A122713E898BD93E8186A98968A4C4B43';bleached bones (grif)
$IgnoreItems[6] = 'A7A122713E93D4989683E9'; the scar
$IgnoreItems[7] = '271AC8C3564F551F462964F4628186A3264AF4241';captn calaan
                 ;271AC8C3564F551F462964F4628186A3264AF4241

global $KeepItems[7]
$KeepItems[0] = '3D927112714C4B4F424127151';warrior tome
$KeepItems[1] = '6498968A3E9';lockpick
$KeepItems[2] = '138861A8AFA98968F624861DA271D5EDA61A8CD';silver dye
$KeepItems[3] = '3E83D9A9C4FB44C4B7EA28138D23E83D9155CC989681'; GRAY
$KeepItems[4] = '6461A81FA1927A12641312D43F4E261A8A9DD1';black dye
$KeepItems[5] = '2861A82861A862AE8F51E61A8C82626A2CFA2625A1';yellow dye
$KeepItems[6] = '4C4B442713D964A7D1F44C35989682625A451';red dye


#endregion 

;include other files
#include <date.au3>
#include 'Common.au3'
#include 'Minotaur.au3'
#include 'hydra.au3'
#include 'Griffon.au3'
#include 'Griffon_HM.au3'
#include 'ElonaLevel.au3'

;ClipPut( getitemcode( $ItemColor_White) )
;ClipPut( PixelChecksum(576,663,640,716) )
;Exit
;877,79
;ClipPut( PixelGetColor( 877,79 ) )
;SellItems()
;ClearInventory()
;HotKeySet( '9','test' )
;while 1
;   Sleep( 100 )
;   if PixelChecksum(369,68,401,80,1 ) == 1993648085 then 
;       MsgBox( 0,'','HEAL SIG' )
;       Exit
;   EndIf
;WEnd
test()
exit
func test()
    WaitEndOfMove( 250 )
EndFunc


func WaitEndOfMove($Delay)
    local $FirstCheck[101], $index = 0, $MultX = 100, $MultY = 70, $MatchPercent = 0
    
    while 1
        for $x = 0 to 9
            for $y = 0 to 9
                $FirstCheck[$index] = PixelGetColor( $x * $MultX, $Y * $MultY )
                $index += 1
            Next
        Next
        
        Sleep( $Delay )
        
        $MatchPercent = 0
        $index = 0
        for $x = 0 to 9
            for $y = 0 to 9
                if  PixelGetColor( $x * $MultX, $Y * $MultY ) == $FirstCheck[$index] then $MatchPercent += 1
                $index += 1
            Next
        Next
        
        SplashTextOn( 'Testing', $MatchPercent, 200, 100, 1010, 0 )
        $index = 0
    WEnd
EndFunc
func ClearInventory()
    Send('m')
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',500,500,2,1)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',650,380)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left', 469,535,2,1)
    Sleep( Random( 7000, 10000 ) )
    
    Send( 'v' )
    Sleep( Random( 1000, 2000 ) )
    if getitemcode( $ItemColor_White ) <> $Monster[5] then return 
    Send( '{SPACE}')
    Sleep( Random( 5000, 7000 ) )
    
;ClipPut( SpecificChecksum( 463,123,653, 145, $ItemColor_White  ) )
    if SpecificChecksum( 463,123,653, 145, $ItemColor_White  ) <> 51 then 
        _log( 'Error opening trade screen' )
    ;MsgBox( 0,'','ERROR OPENING TRAde sacreen' )
        return false
    EndIf
    
    
    MouseClick( 'Left',560,106 )
    Sleep( 2000 )
    
    $lastsum = 0
    while 1
        if SellItems() then 
            _log('sellitems return true continue loop')
            continueloop 
        Else
            _log('sellitems return false')
            MouseMove( 769, 351 )
            MouseWheel( 'down', 5 )
            if $lastsum = 0 then 
                _log( 'lastsum=' & $lastsum )
                $lastsum = PixelChecksum( 950,252,962,388, 1 )
                _log( 'lastsum=' & $lastsum )
                ContinueLoop
            EndIf
            _log( 'Lastsum=' & $lastsum & ' Currentsum=' & PixelChecksum( 950,252,962,388, 1 ) )
            Sleep( Random( 50, 100 ) )
            if $lastsum == PixelChecksum( 950,252,962,388, 1 ) then return 
            $lastsum = PixelChecksum( 950,252,962,388, 1 )
        EndIf
    WEnd
EndFunc
func SellItems()
    dim $ItemsArray[6][2]
    $ItemsArray[0][0] = 0 
    $ItemsArray[1][0] = 0
    $ItemsArray[2][0] = 0
    $ItemsArray[3][0] = 0
    $ItemsArray[4][0] = 0
    $ItemsArray[5][0] = 0
    local $InvLeft = 505, $InvTop = 228, $invRight = 745, $InvBottom = 392;the square to scan for items
    local $numPixelsFound = 0, $ConsecutiveLines = 0, $ItemsArrayIndex = 0
    for $y = $InvTop to $InvBottom;scan top to bottom...
        for $x = $InvLeft to $invRight;... left to right
            if PixelGetColor( $x, $y ) == $ItemColor_White then $numPixelsFound += 1;get the total pixels per lines
        Next
        if $numPixelsFound < 2 then 
        ;this line is empty
        ;_log( $y & ' is empty' )
            if $ConsecutiveLines > 3 then 
            ;this means we found an item and are at the end of it
                _log( 'Item end found, Start =  ' &  $y - $ConsecutiveLines & ' End = ' & ($y - 1) & ' Size = ' & $ConsecutiveLines )           
                _log( 'Item code = ' & SpecificChecksum( $InvLeft, $y - $ConsecutiveLines, $invRight, $y - 1, $ItemColor_White ) )
                $ItemsArray[$ItemsArrayIndex][0] = $y - $ConsecutiveLines
                $ItemsArray[$ItemsArrayIndex][1] = $y - 1
                $ItemsArrayIndex +=1;increase the index
            EndIf
            $ConsecutiveLines = 0
        Else
        ;this line contains white pixels
            _log( $y & ' contains white pixels. Total pixels found: ' & $numPixelsFound )
            $ConsecutiveLines += 1
        EndIf
        $numPixelsFound = 0
    Next
    local $LastItem = 5
    for $i = 0 to 5
        if $ItemsArray[$i][0] == 0 then 
            $LastItem = $i 
            ExitLoop
        EndIf
    Next
    dim $SellItems[6]
    $SellItems[0] = false 
    $SellItems[1] = false 
    $SellItems[2] = false 
    $SellItems[3] = false 
    $SellItems[4] = false 
    $SellItems[5] = false
    local $continueloop
    for $i = 0 to $LastItem;-1
        $continueloop = true
        Switch( $i )
            case 1
                for $x = $InvLeft to $invRight;... left to right
                    if PixelGetColor( $x, $InvTop -1 ) == $ItemColor_White Then
                        $SellItems[0] = False
                        $continueloop = false
                    EndIf 
                Next                
            case 5
                for $x = $InvLeft to $invRight;... left to right
                    if PixelGetColor( $x, $InvBottom + 1 ) == $ItemColor_White then 
                        $SellItems[5] = false 
                        $continueloop = false
                    EndIf
                Next
        EndSwitch
        if not $ContinueLoop then ContinueLoop
        if $i > 5 then ExitLoop
            _log( 'Selling item #' & $i & ' to true' )
        $SellItems[$i] = true
        $ItemCode = SpecificChecksum( $InvLeft,$ItemsArray[$i][0],$invRight,$ItemsArray[$i][1], $ItemColor_White )
        _log($ItemCode)
        for $a = 0 to UBound( $KeepItems ) - 1
            if $ItemCode == $KeepItems[$a] then 
                _log( 'Item is in keep items list. current item: ' & $ItemCode & ' List item: ' & $KeepItems[$a] )
                $SellItems[$i] = false 
                ExitLoop
            EndIf
        Next
    Next
    for $i = 0 to 5
        if $SellItems[$i] == true then 
            if $ItemsArray[$i][0] < $InvTop then ContinueLoop;this is a GAY bug, sometime i click out of inv (I think y = 0) must investigate, this is a temp fix
            _log( 'Selling item #' & $i )
        ;todo sell item 
            MouseClick( 'left', $InvLeft + 50, $ItemsArray[$i][0] + 4 ) 
            Sleep( Random( 1000, 2000 ) )
            MouseClick( 'left',799,597 ) 
            Sleep( Random( 1000, 2000 ) )
            return true
        Else
            _log( 'Dosent selling item #' & $i )
        EndIf
    Next
    return False
;if return false it means no item is sold, so scrool or if at end exit, return true will ONLY sell 1 item.

EndFunc
func SpecificChecksum($left, $top, $right, $bottom, $color)
    local $LastFound, $ConsecutiveFails = 0, $TotalColors = 0

    local $sum2[255];array of bytes
    local $sum = 0, $index = 1, $byteIndex = 0,$started = false
    for $x5 = $right to $left step -3
        for $y5 = $Bottom to $Top - 14 step -3
            if PixelGetColor( $x5, $y5 ) == $color then
                $sum += $index
                $started = true
            EndIf
            if not $started then ContinueLoop
            $index = $index *2
            if $index > 4294967295 then 
            ;add the byte into the array
                $sum2[$byteIndex] =  Hex( $sum ) 
                $sum = 0
                $byteIndex += 1
                $index = 1
            EndIf
        Next
    Next
;built the string off the bytes
    $bytestring = ''
    for $i =  $byteIndex to 0 step -1
        $bytestring &=  Hex( $sum2[$i]  )
    Next
    $bytestring = StringReplace( $bytestring, '0','')
    return $bytestring
EndFunc

while 1
    global $RunTracker = 0
    while not $paused
        _TicksToTime( TimerDiff( $coretimer ), $hours, $mins,$Secs )
        $SplashText = @CRLF & 'Total runs: ' & $runs & @CRLF & 'Next inv clearance: ' & $SellRun - $RunTracker _
                        & @CRLF & 'Total run time: ' & $hours & ':' & $mins
        SplashTextOn( 'State','Starting a new run'&$SplashText,200,400,1010,0)
        $runs += 1
        LeaveArea_ElonaLevel()
        Attack_ElonaLevel()
        GoBack_ElonaLevel()
        
    ;TravelTo_NorthWall()
    ;LeaveArea_NorthWall()
    ;Send( 'c' )
    ;Sleep( Random( 500, 1000 ) )
    ;$Timer = TimerInit()
    ;while TimerDiff( $Timer ) < Random( 2*60*1000, 4*60*1000 )
    ;   while StringInStr( getitemcode( $ItemColor_White ), '98968' ) and  TimerDiff( $Timer ) < Random( 2*60*1000, 4*60*1000 )
    ;       Sleep( Random( 500, 1000 ) )
    ;       Send( 'c' )
    ;       Sleep( Random( 200, 1000 ) )
    ;       Send( '{SPACE}' )
    ;       Sleep( Random( 500, 1000 ) )
    ;       Send( '1' )
    ;       Sleep( Random( 500, 1000 ) )
    ;       Send( '2' )
    ;       Sleep( Random( 500, 1000 ) )
    ;       if getlifepercent() < 50 then 
    ;           Send( '7' )
    ;           Sleep( Random( 500, 1000 ) )
    ;       EndIf
    ;   WEnd
    ;   Send( 'c' )
    ;   Sleep( Random( 500, 900 ) )
    ;   if not StringInStr( getitemcode( $ItemColor_White ), '98968' ) then ExitLoop
    ;; WEnd
    ;for $i = 
    ;travelto_hydra()
    ;SetDiff(1)
    ;SetSkillTemplate(1)
    ;LeaveArea_Hydra()
    ;Reach_Hydra()
    ;Main_Hydra()
    ;travelto_minotaur()
    ;SetDiff(1)
    ;SetSkillTemplate(3)
    ;main_minotaur()
        
        
    ;travelto_Griffon()
    ;while not LeaveArea_Griffon()
;       travelto_minotaur()
;       travelto_Griffon()
;   WEnd
;   Main_Griffon()
        
    ;travelto_Griffon_HM()
    ;while not LeaveArea_Griffon_HM()
    ;   travelto_minotaur()
    ;   travelto_Griffon_HM()
    ;WEnd
    ;Main_Griffon_HM()
        
    ;if $RunTracker >= $SellRun then 
    ;   $RunTracker = 0
    ;   ClearInventory()
    ;EndIf
    ;$RunTracker += 1
    ;$runs += 1
    WEnd
WEnd
func TravelTo_NorthWall()
    Send( 'm' )
    Sleep( Random( 500, 1000 ) )
    MouseClick( 'left', 291, 425, 2, 5 )
    Sleep( Random( 1000, 2000 ) )
    MouseClick( 'left', 867, 137, 1, 5 )
    Sleep( Random( 1000, 2000 ) )
    MouseClick( 'left', 548, 492, 2, 5 )
    Sleep( Random( 8000, 10000 ) )
EndFunc 
func LeaveArea_NorthWall()
    MouseClick( 'left', 881, 667, 1, 5 )
    Sleep( Random( 1000, 3000 ) )
    MouseClick( 'left', 510, 403, 1, 5 )
    Sleep( Random( 7000, 10000 ) )
;Send( '{w down}' )
;Sleep( 8500 )
;Send( '{w up}' )
;Send( '{}' )
;MouseClick( 'left', 407, 388, 1, 5 )
    Send( '{w down}' )
    Sleep( Random( 100, 500 ) )
    Send( '{w down}' )
    Sleep( Random( 1000, 1500 ) )
    $Timer = TimerInit()
    while not targetmatch( $IgnoreItems[7], getitemcode( $ItemColor_White ) ) and TimerDiff( $Timer ) < Random( 15000, 20000 )
        Send( 'v' )
        Sleep( Random( 500, 700 ) )
    WEnd
    Send( '{w up}' )
    Send( '{SPACE}' )
    Sleep( Random( 7000, 8000 ) )
    Send( '{e down}' )
    Sleep( Random( 3000, 4000 ) )
    Send( '{e up}' )
EndFunc

Common.au3

;TODO func
func MissionMap( $Action )
;1 = open 2 = close
;TODO
EndFunc

;detect if a monster is within aggro are, true = monster in aggro, false = no monster in aggro
Func ScanAggro()
;PixelSearch( 826,122,882,172,$MonsterColor_Red,10,1 )
;if @error then 
;   Sleep( 100 )
;   PixelSearch( 826,122,882,172,$MonsterColor_Red,10,1 )
;   if @error then return false
;EndIf
;return True
    PixelSearch( 4,74,755,616,$MonsterColor_Red,10,1 )
    if @error then 
        Sleep( 100 )
        PixelSearch( 4,74,755,616,$MonsterColor_Red,10,1 )
        if @error then return false
    EndIf
    return True
EndFunc

;set difficulty, 0=normal 1=hard
Func SetDiff( $ID )
    Switch( $ID )
        case 0
            MouseClick( 'left',790,352 )
            Sleep( 500 )
        case 1  
            MouseClick( 'left',829,352 )
            Sleep( 500 )
    EndSwitch
EndFunc

;check if the desired skill is available
func SkillAvailable($Location)
;location = 1 to 8
    Switch $location 
        case 1 
            if PixelChecksum(239,663,291,716) == $SkillChecksum1 then return true
        Case 2
            if PixelChecksum(306,663,359,716) == $SkillChecksum2 then return true 
        Case 3
            if PixelChecksum(376,663,424,716) == $SkillChecksum3 then return true
        ;temp fix this is for watch yourself
            if PixelChecksum(376,663,424,716) == 3441050876 then return true
        case 4
            if PixelChecksum(444,663,496,716) == $SkillChecksum4 then return true
        ;temps fix this is for glad defence
            if PixelChecksum(444,663,496,716) == 2655215 then return true
        case 5
            if PixelChecksum(510,663,564,716) == $SkillChecksum5 then return true
        case 6
            if PixelChecksum(576,663,640,716) == $SkillChecksum6 then return true
        case 7
    EndSwitch
    return false        
EndFunc

;return mana %
func GetManaPercent()
    local $LifeIndex = -1
    for $x = 517 to 760
        if PixelGetColor( $x, 644 ) == 7502 then 
            $LifeIndex = $x
            ExitLoop
        EndIf
    Next
    if $LifeIndex = -1 then return 100
    return Round( ( ( $LifeIndex - 517 ) / 243 ) * 100 ) - 6
EndFunc

;return life %
func GetLifePercent()
    local $LifeIndex = -1
    for $x = 246 to 493
        if PixelGetColor( $x, 644 ) == 5711645 then 
            $LifeIndex = $x
            ExitLoop
        EndIf
    Next
    if $LifeIndex = -1 then return 100
    return Round( ( ( $LifeIndex - 246 ) / 247 ) * 100 )
EndFunc

;check if a target match (used on monster because it dosent match 100% due to health bar
func TargetMatch( $Target, $StringReturned )
    local $strLen = StringLen( $Target ), $MatchedChars = 0
    if StringLen( $StringReturned ) < $strLen then $strLen = StringLen( $StringReturned )
    for $i = 1 to $strLen
        if StringMid( $Target, $i, 1 ) == StringMid( $StringReturned, $i, 1 ) then $MatchedChars += 1
    Next
    _log( 'Targetmatch: ' & $MatchedChars / $strLen )
    if $MatchedChars / $strLen > 0.9 then return true 
    return false    
EndFunc

;get the item code off a focused item
func GetItemCode( $color )
    local $Left = 360, $Top = 28, $Right = 653, $Bottom = 49
    local $LastFound, $ConsecutiveFails = 0, $TotalColors = 0

    local $sum2[255];array of bytes
    local $sum = 0, $index = 1, $byteIndex = 0,$started = false
    for $x5 = $right to $left step -3
        for $y5 = $Bottom to $Top - 14 step -3
            if PixelGetColor( $x5, $y5 ) == $color then
                $sum += $index
                $started = true
            EndIf
            if not $started then ContinueLoop
            $index = $index *2
            if $index > 4294967295 then 
            ;add the byte into the array
                $sum2[$byteIndex] =  Hex( $sum ) 
                $sum = 0
                $byteIndex += 1
                $index = 1
            EndIf
        Next
    Next
;built the string off the bytes
    $bytestring = ''
    for $i =  $byteIndex to 0 step -1
        $bytestring &=  Hex( $sum2[$i]  )
    Next
    $bytestring = StringReplace( $bytestring, '0','')
    return $bytestring
EndFunc

;do some random stuff to avoid detection
func DoRandomStuff()
    $bet = Random( 0, 100 )
    Select
        case $bet > -1 and $bet < 10
            return
        case $bet > 10 and $bet < 20
            Send( '{enter}' )
            Sleep( Random( 1000, 9000 ) )
            Send( '/dance' )
            Sleep( Random( 500, 2000 ) )
            Send( '{enter}' )
            Sleep( Random( 30000, 5*60*1000 ) )
        case $bet > 20 and $bet < 30
            Sleep( Random( 1000,2000 ) )
        case $bet > 30 and $bet < 40
            Sleep( Random( 100,1000 ) )
        case $bet > 40 and $bet < 50
            Sleep( Random( 10 * 1000,20*1000 ) )
        case $bet > 50 and $bet < 60
            Sleep( Random( 5*60*1000, 1*60*1000) ) 
        case $bet > 60 and $bet < 70
            Sleep( Random( 100,120*1000 ) )
        case $bet > 70 and $bet < 80
            Sleep( Random( 10,100 ) )
        case $bet > 80 and $bet < 90
            Send( '{enter}' )
            Sleep( Random( 1000, 9000 ) )
            Send( '/dance' )
            Sleep( Random( 500, 2000 ) )
            Send( '{enter}' )
            Sleep( Random( 100,10000 ) )
        case $bet > 90 and $bet < 101
            Sleep( Random( 10,50 ) )
    EndSelect
EndFunc

func _log( $string )
    FileWriteLine( $file, $String )
EndFunc

func TakeBreak()
    return
    if $FirstBrake > 0 then 
        if TimerDiff( $coretimer ) > $FirstBrake then 
            $FirstBrake = -1
            $sleep = Random( 5, 35 )
            for $i = 0 to $Sleep
                MouseMove( Random( 0, 800 ) ,Random(0,600) )
                Sleep( 60*1000 )
            Next
            endif
        ElseIf $SecondBrake > 0 then 
            
        if TimerDiff( $coretimer ) > $SecondBrake then
            $SecondBrake = -1
            $sleep = Random( 5, 35 )
            for $i = 0 to $Sleep
                MouseMove( Random( 0, 800 ) ,Random(0,600) )
                Sleep( 60*1000 )
            Next
            endif
        ElseIf $ThirdBrake > 0 then 
            
        if TimerDiff( $coretimer ) > $ThirdBrake then 
            $ThirdBrake = -1
            $sleep = Random( 5, 35 )
            for $i = 0 to $Sleep
                MouseMove( Random( 0, 800 ) ,Random(0,600) )
                Sleep( 60*1000 )
            Next
            endif
        ElseIf $FourthBrake > 0 then 
            
        if TimerDiff( $coretimer ) > $FourthBrake then 
            $FourthBrake = -1
            $sleep = Random( 5, 35 )
            for $i = 0 to $Sleep
                MouseMove( Random( 0, 800 ) ,Random(0,600) )
                Sleep( 60*1000 )
            Next
        EndIf
    EndIf
EndFunc

func SetSkillTemplate($ID)
    Send( 'k' )
    Sleep( Random( 2000, 3000 ) )
    mouseclick( 'left', 192,118 )
    Sleep( Random( 400, 800 ) )
    MouseClick( 'left',276,160)
    Sleep( Random( 1000, 2000 ) )
    switch $ID
        case 1
        ;hydras
            MouseClick( 'left' , 274,207, 2, 1 )
            Sleep( Random( 1000, 2000 ) )
        case 2
            Sleep( Random( 1000, 2000 ) )
        case 3      
        ;minotaur griffons      
            MouseClick( 'left',311,255,2,1 )
            Sleep( Random( 1000, 2000 ) )
    EndSwitch
    Send('{escape}')
    Sleep( Random( 1000, 2000 ) )
EndFunc

ElonaLevel.au3 (I used this for leveling my monk...)

func LeaveArea_ElonaLevel()
    MouseClick( 'Left', Random( 855,895), Random( 650,670 ) , 1, Random( 3, 6 ) )
    Sleep( Random( 1000, 2000 ) )
    MouseClick( 'Left', Random( 495, 520 ), Random( 407, 419 ), 1, Random( 2, 6 ) )
    Sleep( Random( 8000, 13000 ) )
;PRECAST
    Send( '8' )
    Sleep( Random( 5000, 8000 ) )
    Send( '7' ) 
    Sleep( Random( 4000, 7000 ) )
    Send( '6' )
    local $MinimumMana = Random( 50, 99 )
    While $MinimumMana > GetManaPercent()
        Sleep( Random( 5, 1500 ) )
    WEnd
    Send( 'v' )
    Sleep( Random( 400, 2000 ) )
    Send( '{SPACE}' )
    Sleep( Random( 10000, 11000 ) )
    MouseClick( 'Left', Random( 475, 515 ), Random( 550, 570 ), 1, Random( 1, 7 ) )
    Sleep( Random( 500, 1500 ) )
    
    Send( '{w down}' )
    Sleep( Random( 4000, 7000 ) )
    Send( '{w up}' )
EndFunc

func Attack_ElonaLevel()
    Send( 'c' )
    Sleep( Random( 300, 600 ) )
    Send( '{SPACE}' )
    Sleep( Random( 1000, 2000 ) )
    Send( '5' )
    Sleep( Random( 500, 800 ) )
    local $Timer = TimerInit()
    while ScanAggro()   and TimerDiff( $Timer ) < 2*60*1000         
    ;local $SendTarget = Random( 1, 4 )
    ;if $SendTarget == 1 then 
            Send( 'c' )
            Sleep( Random( 300, 900 ) )
    ;EndIf
        Send( '{SPACE}' )
        Sleep( Random( 900, 1300 ) )
        Send( '5' )
        Sleep( Random( 900, 1300 ) )
        Send( '4' )
        Sleep( Random( 900, 1300 ) )
        Send( '2' )
        Sleep( Random( 1200, 1600 ) )
        Send( '1' )
        Sleep( Random( 1000, 1400 ) )
        Send( '3' )
        if not ScanAggro() then ExitLoop
        if getlifepercent() < 10 then return
        Sleep( Random( 6000, 7000 ) )
    WEnd
    Send( 'c' )
    Sleep( Random( 500, 900 ) )
    Send( '{SPACE}' )
    Sleep( Random( 900, 1500 ) )
    $Timer = TimerInit()
    while ScanAggro()       and TimerDiff( $Timer ) < 2*60*1000             
    ;local $SendTarget = Random( 1, 4 )
    ;if $SendTarget == 1 then 
        Sleep( Random( 900, 1300 ) )
        Send( '5' )
        Sleep( Random( 900, 1300 ) )
        Send( '4' )
        Sleep( Random( 900, 1300 ) )
        Send( '2' )
        Sleep( Random( 1200, 1600 ) )
        Send( '1' )
        Sleep( Random( 1000, 1400 ) )
        Send( '3' )
        if not ScanAggro() then ExitLoop
        if getlifepercent() < 10 then return
        Sleep( Random( 6000, 7000 ) )
    WEnd
    if getlifepercent() < 10 then return
    Send( ';' )
    Sleep( Random(100, 700) )
    Send( '{space}' )
    Sleep( Random( 3000, 7000 ) )
    Send( ';' )
    Sleep( Random(300, 700) )
    Send( '{space}' )
    Sleep( Random( 3000, 7000 ) )
EndFunc

func GoBack_ElonaLevel()
    if getlifepercent() > 10 then 
        Send( '{ENTER}' )
        Sleep( Random( 700, 1000 ) )
        Send( '/resign' )
        Sleep( Random( 1000, 2300 ) )
        Send( '{ENTER}' )
        Sleep( Random( 3000, 6000 ) )
    endif 
    MouseClick( 'Left', Random( 460, 530 ), Random( 381, 390 ),1, Random( 1, 9 ) )
    Sleep( Random( 10000, 15000 ) )
EndFunc

Griffon.au3

func Main_Griffon()
    local $Failcount, $PickitTimer , $PickitTimeout = 10*60*1000
        local $AttackTimer = TimerInit()
        local $AttackRandom = Random ( 1000, 2000 )
        local $LastLife = GetLifePercent()
        while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Griffon + $AttackRandom )
            for $i = 0 to 200
                if ScanAggro() then ExitLoop
                Sleep( 100 )
                if $LastLife > GetLifePercent() then ExitLoop
                $LastLife = GetLifePercent()
            Next
            if not Attack_Griffon() then ExitLoop
            while ScanAggro() or $LastLife > GetLifePercent() or ( $LastLife - GetLifePercent() ) < -2
                if StringInStr( GetItemCode( $ItemColor_White ), 'F6189' ) then 
            ;this iis a boss minotaur lvl 27
                while StringInStr( GetItemCode( $ItemColor_White ), 'F6189' )
                ;98BD9641C9EA9F6189C47A121186A98968A12CA5
                    Send( '2' )
                    Sleep( Random( 500, 1000 ) )
                    if SkillAvailable( 4 ) Then
                        Send( '4' )
                        Sleep( Random( 500, 1600 ) )
                    EndIf
                WEnd
            EndIf
                _log( 'ScanAggro true attacking minotaur' )
                if not Attack_Griffon() then ExitLoop
                if GetLifePercent() < 10 then 
                    $dead = true 
                    ExitLoop 2
                EndIf
                $LastLife = GetLifePercent()
            WEnd
            local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
            while not ( TargetMatch( $IgnoreItems[4],GetItemCode( $ItemColor_White ) ) ) and not ( TargetMatch( $IgnoreItems[3],GetItemCode( $ItemColor_White ) ) )  and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
            WEnd
        WEnd
        local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
        while not ( TargetMatch( $IgnoreItems[4],GetItemCode( $ItemColor_White ) ) ) and  not ( TargetMatch( $IgnoreItems[3],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
        WEnd
EndFunc

func Attack_Griffon()
;check health to stop ... blablabla
    local $skip = False
;check dolyak signet first always
    if SkillAvailable( 5 ) then 
        
        _log( 'casting dolyak' )
            Send( '5' )
            Sleep( Random(100,300) )
            Send( '6' )
            Sleep( Random( 300, 400 ) )
            if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;check vigorous spirit (30% mana atleast on 20mana)
    elseIf $VigorousTimer == -1 or TimerDiff( $VigorousTimer ) > Random( 15000, 20000 )  then 
        _log( 'casting vigorous spirit' )
    ;well we gota cast it
        $VigorousTimer = -1
        for $i = 0 to Random( 1, 3 )
            Send( '6' )
            Sleep( Random(100,300) )
        Next
        Sleep( Random( 300, 400 ) )
        if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;glad defence
    elseif SkillAvailable( 4 ) Then
        _log( 'casting glad defence' )
        Send( '4' )
        Sleep( Random( 100, 300 ))
        $GladTimer = TimerInit()
;riposte
    elseif SkillAvailable( 2 ) then 
            _log( 'casting riposte' )
            Send( '2' )
            Sleep( Random( 100,300 ) )
;flurry
    ElseIf SkillAvailable(1)  and GetManaPercent() > 24 and TimerDiff($GladTimer) >  10000 Then
            _log( 'casting flurry' )
            Send( '1' )
            Sleep( Random( 100, 300 ) )
;watch urself
    elseif SkillAvailable(3) and GetManaPercent() > 24 then 
            _log( 'casting watch urself' )
            Send( '3' )
            Sleep( Random( 100, 300 ) )
    EndIf
    Send( 'c' )
    Sleep( Random ( 50, 150 ) )
    Send( '{space}' )
    Sleep( random( 50, 150) )
    if not TargetMatch( $Monster[4], GetItemCode( $ItemColor_White ) ) then
        Sleep( Random( 300, 500 ) )
        Send( 'c' )
        Sleep( Random ( 50, 150 ) )
        Send( '{space}' )
        if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) then return false
    EndIf
    return True
EndFunc

;SplashTextOn( 'State',''&$SplashText,200,400,1010,0)
func LeaveArea_Griffon()
    SplashTextOn( 'State','Leaving Destiny gorge. Destination: the scar' &$SplashText,200,400,1010,0)
    Send( ';' )
    Sleep( Random( 1000, 2000 ) )
    if GetItemCode( $ItemColor_White ) <> $IgnoreItems[6] then 
        Send( 'è' )
        Sleep( Random( 1000, 2000 ) )
        if GetItemCode( $ItemColor_White ) <> $IgnoreItems[6] then 
            SplashTextOn( 'State','Failed to find the scar'&$SplashText,200,400,1010,0)
            return false
        EndIf
    EndIf
    Sleep( Random( 500, 1000 ) )
    Send( '{SPACE}' )
    Sleep( Random( 7000, 9000 ) )
    Send( 'u' )
    Sleep( Random( 100, 300 ) )
;180,241
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 20000
    SplashTextOn( 'State','Searching the right orientation to leave town'&$SplashText,200,400,1010,0)
    while 1
        Sleep( 100 )
        PixelSearch( 178, 239, 183, 244 , 5435218,0,1 )
        if not @error then ExitLoop
        Send( '{d down}' )
        Sleep( 50 )
        Send( '{d up}' )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then 
            Send( '{s down}' )
            Sleep( Random(3000,7000) )
            Send( '{s up}' )
            ExitLoop
        EndIf
    WEnd
    Sleep( 500 )
    Send('{w down}')
    Sleep( 500 )
    Send('{w down}')
    SplashTextOn( 'State','Going outside'&$SplashText,200,400,1010,0)

    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 20000
    While 1
        $pix1 = PixelGetColor( 200,20 )
        $pix2 = PixelGetColor( 220,20 )
        $pix3 = PixelGetColor( 240,20 )
        $pix4 = PixelGetColor( 260,20 )
        $pix5 = PixelGetColor( 280,20 )
        $pix6 = PixelGetColor( 300,20 )
        if $pix1 == 0x000000 and $pix1 == $pix2 and $pix1 == $pix3 and $pix1 == $pix4 and $pix1 == $pix5 and $pix1 == $pix6 then ExitLoop
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Send('{w up}')
    Sleep(Random(500,1000))
    $GoOutsideTimer = TimerInit()
    while PixelGetColor( 200,20 ) == 0x000000 and PixelGetColor( 300,20 ) == 0x000000
        SplashTextOn( 'State','Loading...'&$SplashText,200,400,1010,0)
        Sleep( Random(800, 1000) )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Sleep( random( 1000, 2000 ) )   
    Send( 'u' )
    SplashTextOn( 'State','Casting balthazar aura'&$SplashText,200,400,1010,0)
    Sleep( Random( 500, 1500 ) )
    Send( '8' )
    SplashTextOn( 'State','Moving up'&$SplashText,200,400,1010,0)
    Sleep( Random( 4000,5000 ) )
;Send( 'é' )
;Sleep( Random( 500, 1000 ) ) 
;MouseClick( 'left', 565, 465, 1, 1 ) 
;Sleep( Random( 500, 1000 ) )
    Send( '{w down}' )
    Sleep( Random( 2000, 3000 ) )
    Send( '{w up}' )
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 25000
    Sleep( Random( 1000, 2000 ) )
    Send('{q down}')
    while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
        SplashTextOn( 'State','Searching for griffons...'&$SplashText,200,400,1010,0)
        Send( 'c' )
        if  TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) )  then 
            SplashTextOn( 'State','Griffon found'&$SplashText,200,400,1010,0)
            ExitLoop
        EndIf
        Sleep( Random( 100, 5000 ) )
        Send('{q down}')
    WEnd
    Send('{q up}')
    Sleep( Random( 500, 1500 ) )
    SplashTextOn( 'State','Casting Live visomething'&$SplashText,200,400,1010,0)
    Send( '7' )
    Sleep( Random( 3000, 5000 ) )
    if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) Then
        SplashTextOn( 'State','Failed to find griffons, heading right a little'&$SplashText,200,400,1010,0)
        Send( 'c' )
        Sleep( Random( 1000, 2000 ) )
        Send('{e down}')
        Sleep( Random( 2000, 3000 ) )
        Send('{e up}')
    EndIf
    Sleep( Random( 500, 1500 ) )
    Send( 'c' )
    Sleep( Random( 500, 1000 ) )
    if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) Then
        SplashTextOn( 'State','Failed to find griffons, heading straight'&$SplashText,200,400,1010,0)
        local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 15000
        Send('{w down}')
        Sleep( 500 ) 
        while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
            Send( 'c' )
            if  TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) )  then ExitLoop
            Sleep( Random( 100, 5000 ) )
        WEnd
        Send('{w up}')
    EndIf
    SplashTextOn( 'State','We have now reached griffons'&$SplashText,200,400,1010,0)
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 10000
    while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
            Send( 'c' )
            Sleep( Random( 200, 300 ) )
            Send( '{SPACE}' )
            Sleep( Random( 200, 300 ) )
            if ScanAggro() then ExitLoop
    WEnd
    return true
EndFunc

Func TravelTo_Griffon()
    Send('m')
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',500,500,2,1)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',863,559)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left', 417,518,2,1)
    Sleep( Random( 7000, 10000 ) )
EndFunc

GriffonHM.au3

func Main_Griffon_HM()
    local $Failcount, $PickitTimer , $PickitTimeout = 10*60*1000
        local $AttackTimer = TimerInit()
        local $AttackRandom = Random ( 1000, 2000 )
        local $LastLife = GetLifePercent()
        while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Griffon + $AttackRandom )
            for $i = 0 to 200
                if ScanAggro() then ExitLoop
                Sleep( 100 )
                if $LastLife > GetLifePercent() then ExitLoop
                $LastLife = GetLifePercent()
            Next
            if not Attack_Griffon_HM() then ExitLoop
            while ScanAggro() or $LastLife > GetLifePercent() or ( $LastLife - GetLifePercent() ) < -2
                _log( 'ScanAggro true attacking minotaur' )
                if not Attack_Griffon() then ExitLoop
                if GetLifePercent() < 10 then 
                    $dead = true 
                    ExitLoop 2
                EndIf
                $LastLife = GetLifePercent()
            WEnd
            local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
            while not ( TargetMatch( $IgnoreItems[4],GetItemCode( $ItemColor_White ) ) ) and not ( TargetMatch( $IgnoreItems[3],GetItemCode( $ItemColor_White ) ) )  and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
            WEnd
        WEnd
        local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
        while not ( TargetMatch( $IgnoreItems[4],GetItemCode( $ItemColor_White ) ) ) and  not ( TargetMatch( $IgnoreItems[3],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
        WEnd
EndFunc

func Attack_Griffon_HM()
;check health to stop ... blablabla
    local $skip = False
;check dolyak signet first always
    if PixelChecksum( 369,68,401,80,1 ) == 1993648085 then 
        Send( '6' )
        Sleep( Random( 500, 1500 ) )
    EndIf
    if SkillAvailable( 5 ) then 
        
        _log( 'casting dolyak' )
            Send( '5' )
        ;Sleep( Random(100,300) )
        ;Send( '6' )
            Sleep( Random( 300, 400 ) )
        ;if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;check vigorous spirit (30% mana atleast on 20mana)
;elseIf $VigorousTimer == -1 or TimerDiff( $VigorousTimer ) > Random( 15000, 20000 )  then 
;   _log( 'casting vigorous spirit' )
;;well we gota cast it
;   $VigorousTimer = -1
;   for $i = 0 to Random( 1, 3 )
;       Send( '6' )
;       Sleep( Random(100,300) )
;   Next
;   Sleep( Random( 300, 400 ) )
;   if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;glad defence
    elseif SkillAvailable( 4 ) Then
        _log( 'casting glad defence' )
        Send( '4' )
        Sleep( Random( 100, 300 ))
        $GladTimer = TimerInit()
;riposte
    elseif SkillAvailable( 2 ) then 
            _log( 'casting riposte' )
            Send( '2' )
            Sleep( Random( 100,300 ) )
;flurry
    ElseIf SkillAvailable(1)  and GetManaPercent() > 24 and TimerDiff($GladTimer) >  10000 Then
            _log( 'casting flurry' )
            Send( '1' )
            Sleep( Random( 100, 300 ) )
;watch urself
;elseif SkillAvailable(3) and GetManaPercent() > 24 then 
;       _log( 'casting watch urself' )
;       Send( '3' )
;       Sleep( Random( 100, 300 ) )
    EndIf
    Send( 'c' )
    Sleep( Random ( 50, 150 ) )
    Send( '{space}' )
    Sleep( random( 50, 150) )
    if not TargetMatch( $Monster[4], GetItemCode( $ItemColor_White ) ) then
        Sleep( Random( 300, 500 ) )
        Send( 'c' )
        Sleep( Random ( 50, 150 ) )
        Send( '{space}' )
        if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) then return false
    EndIf
    return True
EndFunc

;SplashTextOn( 'State',''&$SplashText,200,400,1010,0)
func LeaveArea_Griffon_HM()
    SplashTextOn( 'State','Leaving Destiny gorge. Destination: the scar' &$SplashText,200,400,1010,0)
    Send( ';' )
    Sleep( Random( 1000, 2000 ) )
    if GetItemCode( $ItemColor_White ) <> $IgnoreItems[6] then 
        Send( 'è' )
        Sleep( Random( 1000, 2000 ) )
        if GetItemCode( $ItemColor_White ) <> $IgnoreItems[6] then 
            SplashTextOn( 'State','Failed to find the scar'&$SplashText,200,400,1010,0)
            return false
        EndIf
    EndIf
    Sleep( Random( 500, 1000 ) )
    Send( '{SPACE}' )
    Sleep( Random( 7000, 9000 ) )
    Send( 'u' )
    Sleep( Random( 100, 300 ) )
;180,241
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 20000
    SplashTextOn( 'State','Searching the right orientation to leave town'&$SplashText,200,400,1010,0)
    while 1
        Sleep( 100 )
        PixelSearch( 178, 239, 183, 244 , 5435218,0,1 )
        if not @error then ExitLoop
        Send( '{d down}' )
        Sleep( 50 )
        Send( '{d up}' )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then 
            Send( '{s down}' )
            Sleep( Random(3000,7000) )
            Send( '{s up}' )
            ExitLoop
        EndIf
    WEnd
    Sleep( 500 )
    Send('{w down}')
    Sleep( 500 )
    Send('{w down}')
    SplashTextOn( 'State','Going outside'&$SplashText,200,400,1010,0)

    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 20000
    While 1
        $pix1 = PixelGetColor( 200,20 )
        $pix2 = PixelGetColor( 220,20 )
        $pix3 = PixelGetColor( 240,20 )
        $pix4 = PixelGetColor( 260,20 )
        $pix5 = PixelGetColor( 280,20 )
        $pix6 = PixelGetColor( 300,20 )
        if $pix1 == 0x000000 and $pix1 == $pix2 and $pix1 == $pix3 and $pix1 == $pix4 and $pix1 == $pix5 and $pix1 == $pix6 then ExitLoop
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Send('{w up}')
    Sleep(Random(500,1000))
    $GoOutsideTimer = TimerInit()
    while PixelGetColor( 200,20 ) == 0x000000 and PixelGetColor( 300,20 ) == 0x000000
        SplashTextOn( 'State','Loading...'&$SplashText,200,400,1010,0)
        Sleep( Random(800, 1000) )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Sleep( random( 1000, 2000 ) )   
    Send( 'u' )
    SplashTextOn( 'State','Casting balthazar aura'&$SplashText,200,400,1010,0)
    Sleep( Random( 500, 1500 ) )
    Send( '8' )
    SplashTextOn( 'State','Moving up'&$SplashText,200,400,1010,0)
    Sleep( Random( 4000,5000 ) )
;Send( 'é' )
;Sleep( Random( 500, 1000 ) ) 
;MouseClick( 'left', 565, 465, 1, 1 ) 
;Sleep( Random( 500, 1000 ) )
    Send( '{w down}' )
    Sleep( Random( 2000, 3000 ) )
    Send( '{w up}' )
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 25000
    Sleep( Random( 1000, 2000 ) )
    Send('{q down}')
    while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
        SplashTextOn( 'State','Searching for griffons...'&$SplashText,200,400,1010,0)
        Send( 'c' )
        if  TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) )  then 
            SplashTextOn( 'State','Griffon found'&$SplashText,200,400,1010,0)
            ExitLoop
        EndIf
        Sleep( Random( 100, 5000 ) )
        Send('{q down}')
    WEnd
    Send('{q up}')
    Sleep( Random( 500, 1500 ) )
    SplashTextOn( 'State','Casting Live visomething'&$SplashText,200,400,1010,0)
    Send( '7' )
    Sleep( Random( 3000, 5000 ) )
    if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) Then
        SplashTextOn( 'State','Failed to find griffons, heading right a little'&$SplashText,200,400,1010,0)
        Send( 'c' )
        Sleep( Random( 1000, 2000 ) )
        Send('{e down}')
        Sleep( Random( 2000, 3000 ) )
        Send('{e up}')
    EndIf
    Sleep( Random( 500, 1500 ) )
    Send( 'c' )
    Sleep( Random( 500, 1000 ) )
    if not TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) ) Then
        SplashTextOn( 'State','Failed to find griffons, heading straight'&$SplashText,200,400,1010,0)
        local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 15000
        Send('{w down}')
        Sleep( 500 ) 
        while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
            Send( 'c' )
            if  TargetMatch($Monster[4], GetItemCode( $ItemColor_White ) )  then ExitLoop
            Sleep( Random( 100, 5000 ) )
        WEnd
        Send('{w up}')
    EndIf
    SplashTextOn( 'State','We have now reached griffons'&$SplashText,200,400,1010,0)
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 10000
    while TimerDiff( $GoOutsideTimer ) < $GoOutsideTimeout
            Send( 'c' )
            Sleep( Random( 200, 300 ) )
            Send( '{SPACE}' )
            Sleep( Random( 200, 300 ) )
            if ScanAggro() then ExitLoop
    WEnd
    return true
EndFunc

Func TravelTo_Griffon_HM()
    Send('m')
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',500,500,2,1)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',863,559)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left', 417,518,2,1)
    Sleep( Random( 7000, 10000 ) )
EndFunc

hydra.au3

func TravelTo_Hydra()
    Send('m')
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',500,500,2,1)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left',802,580)
    Sleep( Random( 1000, 1500 ) )
    MouseClick( 'Left', 560,470,2,1)
    Sleep( Random( 7000, 10000 ) )
EndFunc

Func Main_Hydra()
;global $AttackTimer = TimerInit()
;global $AttackRandom = Random ( 1000, 2000 )
;while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Hydra + $AttackRandom )
;   if not Attack_Hydra() then ExitLoop
;   if GetLifePercent() < 10 then 
;       $dead = true 
;       ExitLoop
;   EndIf
;WEnd
;local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
;while not ( TargetMatch( $IgnoreItems[2],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
;   if GetItemCode( $ItemColor_White ) == '' then 
;       $Failcount += 1
;       if $Failcount > 10 then ExitLoop
;   endif
;   Send( ';' )
;   Sleep( Random(100, 700) )
;   Send( '{space}' )
;   Sleep( Random( 1000, 7000 ) )
;   if GetLifePercent() < 10 then 
;       ExitLoop
;   EndIf
;WEnd

    local $Failcount, $PickitTimer , $PickitTimeout = 10*60*1000
        local $AttackTimer = TimerInit()
        local $AttackRandom = Random ( 1000, 2000 )
        local $LastLife = GetLifePercent()
        while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Hydra + $AttackRandom )
            if not Attack_Hydra() then ExitLoop
            for $i = 0 to 300
                if ScanAggro() then ExitLoop
                Sleep( 100 )
                if $LastLife > GetLifePercent() then ExitLoop
                $LastLife = GetLifePercent()
            Next
            while ScanAggro() or $LastLife > GetLifePercent() or ( $LastLife - GetLifePercent() ) < -2
                _log( 'ScanAggro true attacking minotaur' )
                Attack_Hydra()
                if GetLifePercent() < 10 then 
                    $dead = true 
                    ExitLoop 2
                EndIf
                $LastLife = GetLifePercent()
            WEnd
            local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
            while not ( TargetMatch( $IgnoreItems[2],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
            WEnd
        WEnd
        local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
        while not ( TargetMatch( $IgnoreItems[2],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
        WEnd
        
        
EndFunc

Func Attack_Hydra()
;check dolyak signet first always
    if SkillAvailable( 5 ) then 
        _log( 'casting dolyak signet' )
            Send( '5' )
            Sleep( Random(100,300) )
;check vigorous spirit (30% mana atleast on 20mana)
    elseIf $VigorousTimer == -1 or TimerDiff( $VigorousTimer ) > 29000 then 
    _log( 'casting vigorous spirit' )
    ;well we gota cast it
        $VigorousTimer = -1
        Send( '6' )
        Sleep( Random(500,800) )
        if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;defy pain here also very important
    elseif ($DefyTimer = -1 or TimerDiff( $DefyTimer ) > 10 ) and SkillAvailable( 4 )  Then
            Send( '4' )
            Sleep( Random( 100, 300 ))
;riposte
    elseif SkillAvailable( 2 ) then 
            Send( '2' )
            Sleep( Random( 100,300 ) )
;flurry
    ElseIf SkillAvailable(1)  and GetManaPercent() > 25 Then
            Send( '1' )
            Sleep( Random( 100, 300 ) )
;deadly riposte
    elseif SkillAvailable(3) and GetManaPercent() > 25 then 
            Send( '3' )
            Sleep( Random( 100, 300 ) )
    EndIf
    if not TargetMatch( $Monster[2], GetItemCode( $ItemColor_White ) ) and not TargetMatch( $Monster[3], GetItemCode( $ItemColor_White ) ) then
        Sleep( Random( 300, 500 ) )
        Send( 'c' )
        Sleep( Random ( 50, 150 ) )
        Send( '{space}' )
        if not TargetMatch($Monster[2], GetItemCode( $ItemColor_White ) )  and not TargetMatch( $Monster[3], GetItemCode( $ItemColor_White ) ) then return false
    EndIf
        Send( 'c' )
        Sleep( Random ( 50, 150 ) )
        Send( '{space}' )
    return true
EndFunc

func Reach_Hydra()
    Send( '8' )
    While GetManaPercent() < 90 
        Sleep( 100 )
    WEnd
    Sleep( Random( 2000, 3000 ) )
    Send( '7' )
    Sleep( Random( 3000, 5000 ) )
    ;MouseClick( 'left',713,37,1,1 )
    ;Sleep( Random( 7000, 9000 ) )
    ;for $i = 0 to 5
;       MouseClick( 'left',990,592 )
;       Sleep( Random( 1500, 2500 ) )
;   Next
    #cs
    MouseClick( 'left' ,651,40,1,1 )
    Sleep( Random( 7000, 8000 ) )
    for $i = 0 to 2
        MouseClick( 'Left',989,708,1,1 )
        Sleep( Random( 1500,2500 ) )
        if ScanAggro() then return
    Next
    MouseClick( 'left',987,185,1,1 )
    Sleep( Random( 7000, 9000 ) )
    if ScanAggro() then return
    for $i = 0 to 12
        MouseClick( 'left',688,615 , 1,1 )
        Sleep( Random( 1000, 1500 ) )
        if ScanAggro() then return
    Next
    for $i = 0 to 9
        MouseClick( 'left', 583,609, 1, 1 )
        Sleep( Random( 1000, 1500 ) ) 
        if ScanAggro() then return
    Next
    for $i = 0 to 3
        MouseClick( 'left',990,705,1,1 )
        Sleep( Random( 1000, 1500 ) ) 
        if ScanAggro() then return
    Next
;Sleep( Random( 300, 500 ) )
;if GetItemCode($ItemColor_White) <> $Monster[2] Then
;;do something cuz we too far from hydras...
;;TODO
;EndIf
    #ce
    Send( 'c' )
    Sleep( 2000 )
    Send( '{SPACE}' )
    Sleep( Random( 1000, 2000 ) )
EndFunc

Func LeaveArea_Hydra()
    Send( 'u' )
    Sleep( random( 500, 1500 ) )
    Send(';')
    Sleep( 500 )
    if not ( GetItemCode( $ItemColor_White ) ) == $IgnoreItems[1] then Send( 'è' )
    Sleep( Random( 1500, 3000 ) )
    Send( '{SPACE}' )
    Sleep( random( 11000, 13000 ) )
    
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 60000
    while 1
        Sleep( 100 )
        PixelSearch( 177, 229, 179, 233 , 5435218,0,1 )
        if not @error then ExitLoop
        Send( '{d down}' )
        Sleep( 50 )
        Send( '{d up}' )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then 
            Send( '{s down}' )
            Sleep( Random(3000,7000) )
            Send( '{s up}' )
            ExitLoop
        EndIf
    WEnd
    
    Send('{w down}')
    Sleep( random( 1000, 2000 ) )
    Send('{w up}')
    Sleep( random( 1000, 2000 ) )
    Send('{q down}')
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 60000
    While 1
        $pix1 = PixelGetColor( 200,20 )
        $pix2 = PixelGetColor( 220,20 )
        $pix3 = PixelGetColor( 240,20 )
        $pix4 = PixelGetColor( 260,20 )
        $pix5 = PixelGetColor( 280,20 )
        $pix6 = PixelGetColor( 300,20 )
        if $pix1 == 0x000000 and $pix1 == $pix2 and $pix1 == $pix3 and $pix1 == $pix4 and $pix1 == $pix5 and $pix1 == $pix6 then ExitLoop
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Send('{q up}')
    Sleep(Random(500,1000))
    $GoOutsideTimer = TimerInit()
    while PixelGetColor( 200,20 ) == 0x000000 and PixelGetColor( 300,20 ) == 0x000000
        Sleep( Random(800, 1000) )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Sleep( random( 1000, 2000 ) )   
    Send( 'u' )
    Sleep( Random( 500, 1500 ) )
EndFunc

Minotaur.au3

func Main_Minotaur()
    TakeBreak()
    $FirstPause = true
    SplashTextOn('Run info','Total runs: ' & $runs,100, 30, 1100,0 )
    $runs += 1
    $dead = false
    LeaveArea_Minotaur()

    _log( 'going to minotaurs' )
    Sleep( Random( 100, 300 ) )
    Send( '8' )
    Sleep( Random( 6000, 7000 ) )
    Send( 'é' )
    Sleep( Random( 500, 1000 ) ) 
    MouseClick( 'left', 565, 465, 1, 1 ) 
    Sleep( Random( 500, 1000 ) )
    Send('{q down}' )
    Sleep( random( 2000, 3000 ) )
    Send('{q up}')
    Sleep( Random( 100, 300 ) )
    Send('{w down}' )
    Sleep( random( 3700, 4300 ) )
    Send('{w up}')
    Sleep( Random( 100, 300 ) )
    Send('{q down}' )
    Sleep( random( 4500, 5000 ) )
    Send('{q up}')
    Sleep( Random( 100, 300 ) )
    Send('{w down}' )
    Sleep( random( 1500, 3500 ) )
    Send('{w up}')
    _log( 'waiting for mana to replenish' )
    global $AntiDeadLock = 0
    while GetManaPercent() < 100 and $AntiDeadLock < 600
        $AntiDeadLock +=1
        Sleep( 100 )
    WEnd
    $AntiDeadLock = 0
    Sleep( Random( 500, 6000 ) )
    Send( '7' )
    Sleep( Random( 5000, 6000 ) )
    Send('c')
    Sleep(Random( 100, 400 ) )
    Send('{space}')
    for $i = 0 to 5
        Send('c')
        Sleep( Random( 100, 200 ) )
        Send('{space}')
        Sleep( random( 600, 1000 ) )
    Next
    _log( 'Starting attack' )
    #cs
    global $AttackTimer = TimerInit()
    global $AttackRandom = Random ( 1000, 2000 )
    while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Minotaur + $AttackRandom )
        if not Attack_Minotaur() then ExitLoop
        if GetLifePercent() < 10 then 
            $dead = true 
            ExitLoop
        EndIf
    WEnd
    global $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
    while not ( TargetMatch( $IgnoreItems[0],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
        if GetItemCode( $ItemColor_White ) == '' then 
            $Failcount += 1
            if $Failcount > 10 then ExitLoop
        endif
        Send( ';' )
        Sleep( Random(100, 700) )
        Send( '{space}' )
        Sleep( Random( 100, 700 ) )
        if GetLifePercent() < 10 then 
            ExitLoop
        EndIf
    WEnd
    #ce
        local $Failcount, $PickitTimer , $PickitTimeout = 10*60*1000
        local $AttackTimer = TimerInit()
        local $AttackRandom = Random ( 1000, 2000 )
        local $LastLife = GetLifePercent()
        while TimerDiff( $AttackTimer ) < ( $AttackTimeout_Minotaur + $AttackRandom )
            if not Attack_Minotaur() then ExitLoop
            for $i = 0 to 200
                if ScanAggro() then ExitLoop
                Sleep( 100 )
                if $LastLife > GetLifePercent() then ExitLoop
                $LastLife = GetLifePercent()
            Next
            while ScanAggro() or $LastLife > GetLifePercent() or ( $LastLife - GetLifePercent() ) < -2
                if StringInStr( GetItemCode( $ItemColor_White ), 'F6189' ) then 
            ;this iis a boss minotaur lvl 27
                while StringInStr( GetItemCode( $ItemColor_White ), 'F6189' )
                ;98BD9641C9EA9F6189C47A121186A98968A12CA5
                    Send( '2' )
                    Sleep( Random( 500, 1000 ) )
                    if SkillAvailable( 4 ) Then
                        Send( '4' )
                        Sleep( Random( 500, 1600 ) )
                    EndIf
                WEnd
                Send( '1' )
                Sleep( Random( 500,1500 ) )
                EndIf
                _log( 'ScanAggro true attacking minotaur' )
                Attack_Minotaur()
                if GetLifePercent() < 10 then 
                    $dead = true 
                    ExitLoop 2
                EndIf
                $LastLife = GetLifePercent()
            WEnd
            local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
            while not ( TargetMatch( $IgnoreItems[0],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
            WEnd
        WEnd
        local $Failcount = 0, $PickitTimer = TimerInit(), $PickitTimeout = 10*60*1000
        while not ( TargetMatch( $IgnoreItems[0],GetItemCode( $ItemColor_White ) ) ) and TimerDiff( $PickitTimer ) < $PickitTimeout
                if GetItemCode( $ItemColor_White ) == '' then 
                    $Failcount += 1
                    if $Failcount > 5 then ExitLoop
                endif
                Send( ';' )
                Sleep( Random(100, 700) )
                Send( '{space}' )
                Sleep( Random( 100, 700 ) )
                if GetLifePercent() < 10 then 
                    ExitLoop
                EndIf
        WEnd
    DoRandomStuff()
EndFunc

func TravelTo_Minotaur()
    WinActivate( 'Guild Wars', '' )
    WinWaitActive( 'Guild Wars','',10)
    Send( 'm' )
    Sleep( random ( 2000, 3000 ) )
    MouseClick( 'left',400,400,1,1 )
    Sleep( Random( 1000, 2000 ) )
    MouseClick( 'left', 577,52 )
    Sleep( Random( 500, 2000 ) )
    MouseClick( 'left', 475,349,2,1)
    Sleep( Random( 4000, 6000 ) )
EndFunc

Func LeaveArea_Minotaur()
    Send( 'u' )
    Sleep( Random( 500, 1500 ) )
;DoRandomStuff()
    send( ';' )
    Sleep( 200 )
    Send( '{space}' )
    Sleep( Random( 5000, 7000 ) )
;140 232
;MsgBox(0,'',PixelGetColor(143,232))
;5435218
    local $GoOutsideTimer = TimerInit(), $GoOutsideTimeout = 60000
    while 1
        Sleep( 100 )
        PixelSearch( 139, 225, 142, 250 , 5435218,0,1 )
        if not @error then ExitLoop
        Send( '{d down}' )
        Sleep( 50 )
        Send( '{d up}' )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then 
            Send( '{s down}' )
            Sleep( Random(3000,7000) )
            Send( '{s up}' )
            ExitLoop
        EndIf
    WEnd
    send( '{w down}' )
    $GoOutsideTimer = TimerInit()
    While 1
        $pix1 = PixelGetColor( 200,20 )
        $pix2 = PixelGetColor( 220,20 )
        $pix3 = PixelGetColor( 240,20 )
        $pix4 = PixelGetColor( 260,20 )
        $pix5 = PixelGetColor( 280,20 )
        $pix6 = PixelGetColor( 300,20 )
        if $pix1 == 0x000000 and $pix1 == $pix2 and $pix1 == $pix3 and $pix1 == $pix4 and $pix1 == $pix5 and $pix1 == $pix6 then ExitLoop
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    send( '{w up}' )
    
    Sleep(Random(500,1000))
    $GoOutsideTimer = TimerInit()
    while PixelGetColor( 200,20 ) == 0x000000 and PixelGetColor( 300,20 ) == 0x000000
        Sleep( Random(800, 1000) )
        if TimerDiff( $GoOutsideTimer ) > $GoOutsideTimeout then ExitLoop
    WEnd
    Sleep( random( 1000, 2000 ) )   
    Send( 'u' )
    Sleep( Random( 500, 1500 ) )
EndFunc

func Attack_Minotaur()
;check health to stop ... blablabla
    local $skip = False
;check dolyak signet first always
    if SkillAvailable( 5 ) then 
        
        _log( 'casting dolyak' )
            Send( '5' )
            Sleep( Random(100,300) )
            Send( '6' )
            Sleep( Random( 300, 400 ) )
            if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;check vigorous spirit (30% mana atleast on 20mana)
    elseIf $VigorousTimer == -1 or TimerDiff( $VigorousTimer ) > Random( 15000, 20000 )  then 
        _log( 'casting vigorous spirit' )
    ;well we gota cast it
        $VigorousTimer = -1
        for $i = 0 to Random( 1, 3 )
            Send( '6' )
            Sleep( Random(100,300) )
        Next
        Sleep( Random( 300, 400 ) )
        if not SkillAvailable(6) THEN $VigorousTimer = TimerInit()
;glad defence
    elseif SkillAvailable( 4 ) Then
        _log( 'casting glad defence' )
        Send( '4' )
        Sleep( Random( 100, 300 ))
        $GladTimer = TimerInit()
;riposte
    elseif SkillAvailable( 2 ) then 
            _log( 'casting riposte' )
            Send( '2' )
            Sleep( Random( 100,300 ) )
;flurry
    ElseIf SkillAvailable(1)  and GetManaPercent() > 24 and TimerDiff($GladTimer) >  10000 Then
            _log( 'casting flurry' )
            Send( '1' )
            Sleep( Random( 100, 300 ) )
;watch urself
    elseif SkillAvailable(3) and GetManaPercent() > 24 then 
            _log( 'casting watch urself' )
            Send( '3' )
            Sleep( Random( 100, 300 ) )
    EndIf
    Send( 'c' )
    Sleep( Random ( 50, 150 ) )
    Send( '{space}' )
    Sleep( random( 50, 150) )
    if not TargetMatch( $Monster[0], GetItemCode( $ItemColor_White ) ) then
        Sleep( Random( 300, 500 ) )
        Send( 'c' )
        Sleep( Random ( 50, 150 ) )
        Send( '{space}' )
        if not TargetMatch($Monster[0], GetItemCode( $ItemColor_White ) ) then return false
    EndIf
    return True
EndFunc

ramadash · September 21, 2007

Why must it be in windowed mode ? plz ?

Because thats how I coded it and all the pixel locations are relative to the window size (a difference of 1 pixel in window size will change everything)

sweetlady · January 28, 2009

Hi, I was wondering if it was possible to help me make it fit for a 1440/900 resolution. So I guess I'll have to change all coordinates which is a little troublesome for me since I'm no programmer. Just started using autoit. Your script is very nice and complete thought. Nice work, its sad you got banned because of it.

Thx

sweetlady · January 28, 2009

Hi, I was wondering if it was possible to help me make it fit for a 1440/900 resolution. So I guess I'll have to change all coordinates which is a little troublesome for me since I'm no programmer. Just started using autoit. Your script is very nice and complete thought. Nice work, its sad you got banned because of it.
Thx

Or simply tell me how I can change my resolution to 1009/763. Cause I've tried with my GeForce utility but it's not compatible with my screen. Plus in-game I have 1440/900, 1280/800, 1024/700 and 800/600 res.

sweetlady · February 6, 2009

Or simply tell me how I can change my resolution to 1009/763. Cause I've tried with my GeForce utility but it's not compatible with my screen. Plus in-game I have 1440/900, 1280/800, 1024/700 and 800/600 res.

Oh well, nevermind your script is just too advanced for me right now. I'm working on a killingbot that just kills and loot. I'm still having problems having it return to town once the inventory is full though. This autoit tool is really fun to work with.

Edited February 6, 2009 by sweetlady

Markos · February 6, 2009

Oh well, nevermind your script is just too advanced for me right now. I'm working on a killingbot that just kills and loot. I'm still having problems having it return to town once the inventory is full. This autoit tool is really fun to work with.

to get back to the town u can easily do:

Send('{enter}/resign{enter}')
Sleep(2000)
MouseClick ( "left" , 100, 200, 1, 0)   ;instead 100 and 200a use coordinates of "return to town" dialog

sweetlady · February 6, 2009

to get back to the town u can easily do:

Send('{enter}/resign{enter}')
Sleep(2000)
MouseClick ( "left" , 100, 200, 1, 0);instead 100 and 200a use coordinates of "return to town" dialog

Ok that's nice, but the thing is, I wanted to make it so that when the inventory is full then go to town (resign). So I thought that after a few seconds it tries to get an item (but cant since inventory's full), maybe use a pixelgetcolor after a few seconds then go back to town (resign).

Right now I'm at work, but tonight I'll try your resign code and might add something like:

$var = pixelgetcolor(..., ...) ; to check if item is still there

If $var = 0x.... then send(''{enter}/resign{enter}') ; if item still there, return to town

Sleep(2000)

MouseClick ( "left" , 100, 200, 1, 0)

Nice, thx for the help

curruption · February 7, 2009

Im rather new to AutoIt, but a long time player of the game, i got it the week it came out. But I am looking to make a scritp that is rather small, very little code, but im not following the howto very well im afraid. what i need to do it have it move mouse to XX left click wait 15 seconds move mouse to num0 left click wait 20 minutes, repeat process, can anyone give me any help? im use to qmacro, but tierd of my antivirus going off, so i switched.

curruption

Skrip · February 7, 2009

Look in the helpfile for MouseClick()

sweetlady · February 9, 2009

Hi all, I'm quite new to autoit. I've been working with djomen's Killbot a little and I've changed to buttom width and now it doesnt work. So then I've been working with HawtDogFlvrWtr's testbot. Its been 3 days I've been working with it. Added a pixelsearch system for Loot wich doesnt work, a heal (Dieing) system wich doesnt work. The Loot and dieing part both I've had them working right at some point but every time i change something something else doesnt work lol. So here's what I have so far.

If anyone wanna post comments please feel free.

Please dont flame since I'm just a noob thx.

CODE

HotKeySet( "{end}", "Terminate")

HotKeySet( "{pause}", "Pause")

$Paused = 0

$HealButton = "8"

$Found = 0

$Coord = 0

Global $Dieing

$Find = 0

$Alive = 0

$Skill1 = "1"

$Skill2 = "2"

$Skill3 = "3"

$Skill4 = "4"

$Skill5 = "5"

$Skill6 = "6"

$RunSkill = ""

$Attempts = 0

$TimesToLoot = 1 ;Set this to how many times you want the macro to search for loot

$Loot = 0

Global $LootDone

Global $enemythere

Global $enemybar

WinActivate("Guild Wars")

WinWaitActive("Guild Wars")

While 1

enemycheck()

WEnd

Func enemycheck()

$enemythere = False

While $enemythere = False

_Loot()

Sleep(Random(100, 150) )

Send("C")

Send("^{Space}") ;Target Baddie for Heroes If you have them. This is crucial if fighting bosses so that we are all attacking the same baddie.

$enemybar = PixelSearch(584, 720, 848, 744, 0xB70000, 5)

If not @error Then

_Alive()

$enemythere = True

EndIf

Sleep(1000)

$enemybar = PixelSearch(584, 720, 848, 744, 0xB70000, 5)

If @error Then

Sleep(1000)

$Attempts = $Attempts + 1

ToolTip($Attempts, 100, 100, 2)

EndIf

If $Attempts > 3 Then

_RandomRun()

Else

;_Loot() ;Baddies Dead now.

EndIf

WEnd

EndFunc

;------------Is he alive?-----------------------------;

Func _Alive()

$Alive = 0

While $Alive = 0

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

;_Attack()

Send("{Space}")

Sleep(Random (1000, 1500) )

Send($Skill1)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 2000) )

Send($Skill4)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 1500) )

Send($Skill2)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 1500) )

Send($Skill3)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 2000) )

Send($Skill4)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 2000) )

Send($Skill5)

$x = PixelSearch(584, 720, 848, 744, 0xB70000, 5) ;Checks for Red box at the top of the screen. Considers this a Baddie =]

If NOT @Error Then

Sleep(Random (1000, 2000) )

Send($Skill6)

EndIf

Else

_Loot()

_Dieing()

$Alive = $Alive + 1

EndIf

WEnd

EndFunc

;-----------Run Randomly-----------------------------;

Func _RandomRun()

$LTurnSleep = Random(500, 1000)

$RTurnSleep = Random(500, 1000)

$TurnRand = Random(0, 2) ;Generate Random Right Turning Radius 1-3 seconds

$Run = Random(4000, 20000) ;Generate Random Running Length 1-10 seconds

If $TurnRand > 1 Then

Send("{D Down}")

Sleep($RTurnSleep)

Send("{D Up}")

Else

Send("{A Down}")

Sleep($LTurnSleep)

Send("{A Up}")

EndIf

Send("{W Down}")

Sleep($Run)

Send("{W Up}")

$Found1 = 1

$Left = 0

$Right = 0

$Temp0 = 0

$Attempts = 0

EndFunc

;------------Loot Him when he dies--------------------------;

Func _Loot()

Send("{alt down}")

Sleep(1000)

$CoordsA = PixelSearch(265, 273, 1050, 706, 0xe8cd76); Gold items

If NOT @Error Then

MouseClick("Left", $CoordsA[0], $CoordsA[1], 1)

Send("{SPACE}")

Sleep(6000)

EndIf

$CoordsB = PixelSearch(265, 273, 1050, 706, 0xBB88EE); Purple items

If Not @error Then

MouseClick("Left", $CoordsB[0], $CoordsB[1], 1)

Send("{SPACE}")

Sleep(6000)

EndIf

$CoordsC = PixelSearch(265, 273, 1050, 706, 0x598c8f); Blue items

If Not @error Then

MouseClick("Left", $CoordsC[0], $CoordsC[1])

Send("{SPACE}")

Sleep(6000)

EndIf

$CoordsD = PixelSearch(265, 273, 1050, 706, 0xfffefb); While items

If Not @error Then

MouseClick("Left", $CoordsD[0], $CoordsD[1])

Send("{SPACE}")

Sleep(6000)

EndIf

EndFunc

;------------Am I Dieing? Not working completely yet--------------;

Func _Dieing()

$Color = PixelSearch(707, 817, 752, 825, 0x4d1e18, 5)

If Not @error Then

Sleep(random(1000, 1500) )

Send($HealButton)

Sleep(1000)

EndIf

EndFunc

;Kill the Script

Func Terminate()

Exit

EndFunc

;Pause the Script

Func Pause()

$Paused = NOT $Paused

While $Paused

sleep(100)

ToolTip('Script is "Paused"',0,0)

WEnd

ToolTip("")

EndFunc

My rez is 1440x900 with graphics at small

Next I would like to make each skill independant with there own timer or pixelsearch to know when the skill is ready or not.

Edited February 9, 2009 by sweetlady

curruption · February 10, 2009

Look in the helpfile for MouseClick()

thank you for that, but how do i find out my screen location? and aside from x,y being the location, is this code correct?

MouseClick ( "left" [, x, y [, 2 [, 20 ]]] )

Edited February 10, 2009 by curruption

Tkey · May 20, 2009

hi all im Tkey - send code my autopilot from chest run(W/any) + farm Ratasum (ele/me) 1280x1024 sorry from russian comment (bad english)

welcome and enjoi

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=..\..\icons\004.ico

#AutoIt3Wrapper_outfile=C:\Documents and Settings\T key\Рабочий стол\СУНДУКИ - АВТОМАТ.exe

#AutoIt3Wrapper_Res_Comment=Для фарма 4 макс титула(удача+неудача+открывание сундуков+определение предметов) и денег

#AutoIt3Wrapper_Res_Fileversion=2.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=T key(Анатолий Николаевич Матвеев г. Королёв Московская область Россия)

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Opt("WinWaitDelay",250)

;-------------------------------------------------------

HotKeySet("^!x", "MyExit")

HotKeySet("{PAUSE}", "_TogglePause")

#include <GuiConstants.au3>

Global $Ratasum = 0 ;-------------------------------------------------------------------------------------переменная показывающая что элементалист фармит

Global $Paused;------------------------------------------------------------------------------------- пауза

Global $AfterGH = 1;-------------------------------------------------------------------------------------переменная показывающая что _ мы пришли в город из холла гильдии = 1_из локи = 0

Global $KapMaH = 0;-------------------------------------------------------------------------------------переменная показывающая колличество _забегов на открытие сундуков(один персонаж) _ фармов(другой персонаж)

;-------------------------------------------------------------------------------------------------------------------------

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep ( 3000 )

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

=========================

Func _TogglePause();-------------------------------------------------------------------------------------пауза выполнения скрипта по нажатию кнопки Pause

$Paused = NOT $Paused

While $Paused

Sleep(100)

ToolTip("СКРИПТ ПРИОСТАНОВЛЕН !!! ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ СКРИПТА -> НАЖМИТЕ ЕЩЁ РАЗ КНОПКУ PAUSE | для отключения нажмите Ctrl+Alt+X ............ ( T Key " & @CRLF ,0,0)

WEnd

ToolTip("СКРИПТ ПРОДОЛЖИЛ РАБОТУ")

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func MyExit();------------------------------------------------------------------------------------- быстрое выключение скрипта ( одновременно - Ctrl+Alt+X )

Exit

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Son()

Sleep ( Random( 200 , 250 ) )

EndFunc

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

=========================

Func Go_To_Merchant();------------------------------------------------------------------------------------------------------------------------- идём к купцу

While 1

Sleep(500)

Send ("v");---------------------выбираем ближайшего союзника

Son()

PixelSearch( 141, 19, 143, 19, 0xECE1E1 );------------------------------------- Мастер Умений

If Not @error Then

Doiti_do_Merchant()

ExitLoop

Else

PixelSearch( 89, 19, 89, 19, 0xF9E3E3 );--------------------------- Xunlai Chest

If Not @error Then

Doiti_do_Merchant1()

ExitLoop

Else

PixelSearch( 172, 28, 174, 28, 0xFFFFFF );--------------- Tolkano Tournament

If Not @error Then

Doiti_do_Merchant2()

ExitLoop

EndIf

WEnd

EndFunc

;------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant() ;------------------------------------- Мастер Умений

Son()

Send("{w down}") ;Нажать клавишу w

Sleep (1500 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("{e down}") ;Нажать клавишу e

Sleep (7000 );

Send("{e up}") ;Освободить клавишу e

Son()

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant1();------------------------------------- Xunlai Chest

Son()

Send("{w down}") ;Нажать клавишу w

Sleep (5500 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (7000 );

Send("{q up}") ;Освободить клавишу q

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant2() ;----------------------------------- Tolkano Tournament

Son()

Send("{w down}") ;Нажать клавишу w

Sleep (500 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (5000 );

Send("{q up}") ;Освободить клавишу q

Son()

Send("{s down}") ;Нажать клавишу s

Sleep (5000 );

Send("{s up}") ;Освободить клавишу s

Son()

Send("v");--------------------------------------------------------------------------------Выбор ближайшего союзника

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(2000)

EndFunc

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

=======================

Func Sell_Drop()

Son()

Indentifications();------------------------------------------------------------------------------------------------------------------------- определение дропа

Go_To_Merchant();-------------------------------------------------------------------------------------------------------------------------идём к купцу

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) );------------------ держим мышку на кнопке продать для изменения цета кнопки

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );--------------------------------- ищем серый цвет означающий что нечего продавать

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

PixelSearch( 768, 559, 768, 559, 0xFFFFFF );---- контроль невозможности продавать из за преувеличения 100к

If Not @error Then

Sdaem_100_k()

Son()

ExitLoop

EndIf

WEnd

Sleep(500)

MouseClick("left", Random( 50, 70 ), Random( 40, 45 ), 1);--- переключаемся на покупку

Son()

Send("{F7}");--------------------------- открываем инвентори(все сумки)

While 1

Son()

PixelSearch( 1239, 928, 1257, 928, 0x1D0101 );--------------- проверяем наличие кита

If @error Then;---------------------------------------------------------------------------------------------------------если он на месте то пропускаем код ниже(покупча кита)

ExitLoop

Else

MouseClick("left", Random( 90, 110 ), Random( 288, 292 ), 1);--------------------- выбираем кит

Son()

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);-------------------- покупаем кит

Son()

MouseMove(1088, 486);-------------------------------------------------------------------------- ложим

Son()

MouseDown("left");-------------------------------------------------------------------------------- на

Son()

MouseMove(1242, 928);-------------------------------------------------------------------------- место

Son()

MouseUp("left")

Son()

PixelSearch( 1200, 910, 1204, 916, 0xF2EFAC);--------------- проверяем наличие отмычек

If Not @error Then

$AfterGH = 1

ExitLoop

Else

MouseClick("left", Random( 43, 300), Random( 400, 402 ), 1);--------------------- выбираем отмычку

Son()

MouseClick("left", Random( 314, 331 ), Random( 855, 861 ), 1);------------------ задаём макс число отмычек

Son()

Send("100")

Son()

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);-------------------- покупаем отмычку

Son()

MouseMove(1088, 486);-------------------------------------------------------------------------- ложим

Son()

MouseDown("left");-------------------------------------------------------------------------------- на

Son()

MouseMove(1199, 921);-------------------------------------------------------------------------- место

Son()

MouseUp("left")

Son()

PixelSearch( 1200, 910, 1204, 916, 0xF2EFAC);--------------- проверяем наличие отмычек

If Not @error Then

$AfterGH = 1

ExitLoop

Else

Son()

Send("{F7}")

Son()

Send("c") ;---------------------выбираем ближайшего наёмника

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(8000)

Send("v");---------------------выбираем ближайшего союзника

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(3000)

MouseClick("left", Random( 660, 754 ), Random( 728, 735 ), 1);--------------------- берём деньги

Son()

MouseClick("left", Random(566, 718 ), Random( 531, 532 ), 1);--------------------- всё что есть

Son()

MouseClick("left", Random( 570, 584 ), Random( 563, 569 ), 1);--------------------- ok

Son()

Send("{ESC}")

Son()

Send("{ESC}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Go_To_Merchant();---------------------идём к купцу

Sleep(500)

MouseClick("left", Random( 50, 70 ), Random( 40, 45 ), 1);--- переключаемся на покупку

Son()

MouseClick("left", Random( 314, 331 ), Random( 855, 861 ), 1);------------------ задаём макс число отмычек

Son()

Send("100")

Son()

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);-------------------- покупаем отмычку

Son()

Send("{F7}")

Son()

MouseMove(1088, 486);-------------------------------------------------------------------------- ложим

Son()

MouseDown("left");-------------------------------------------------------------------------------- на

Son()

MouseMove(1199, 921);-------------------------------------------------------------------------- место

Son()

MouseUp("left")

Son()

PixelSearch( 1200, 910, 1204, 916, 0xF2EFAC);--------------- проверяем наличие отмычек

If @error Then

$AfterGH = 1;---------------------переменная показывает что мы пришли из холла гильдии

ExitLoop

Else

Send("{F7}");--------------------------------------------------------------------------------закрыть окно инвентори

Son()

Send("{ESC}");--------------------------------------------------------------------------------закрыть окно купца

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

ChestRun_to_RataSum();--------------------------------------------переход на другого персонажа для фарма золота на отмычки

ExitLoop

EndIf

WEnd

Son()

Send("{F7}")

Son()

Send("{ESC}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

If $Ratasum = 1 Then

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

EndIf

$KapMaH = 0;---------------------пременная щас покажет что мы начинаем новый забег до полного инвентори ($KapMaH = 35(воин)$KapMaH = 10(элик))

$AfterGH = 1;---------------------переменная показывает что мы пришли из холла гильдии

EndFunc

;------------------------------------------------------------------------------------------------------

Func Mouse_Kit()

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------двойной щёлчок на Indentification kit`е

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Indentifications()

Son()

Send("{F7}")

Mouse_Kit()

MouseClick("left", Random( 1076, 1080 ), Random( 486, 490 ), 1);---------------------1 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1120, 1126 ), Random( 484, 490 ), 1);---------------------2 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1154, 1164 ), Random( 484, 490 ), 1);---------------------3 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1200, 1208 ), Random( 484, 490 ), 1);---------------------4 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1233, 1251 ), Random( 484, 490 ), 1);---------------------5 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1076, 1080 ), Random( 535, 540 ), 1);---------------------6 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1120, 1126 ), Random( 535, 540 ), 1);---------------------7 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1154, 1164 ), Random( 535, 540 ), 1);---------------------8 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1200, 1208 ), Random( 535, 540 ), 1);---------------------9 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1233, 1251 ), Random( 535, 540 ), 1);---------------------10 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1076, 1080 ), Random( 588, 594 ), 1);---------------------11 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1120, 1126 ), Random( 588, 594 ), 1);---------------------12 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1154, 1164 ), Random( 588, 594 ), 1);---------------------13 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1200, 1208 ), Random( 588, 594 ), 1);---------------------14 слот инвентори(все сумки)

Mouse_Kit()

MouseClick("left", Random( 1233, 1251 ), Random( 588, 594 ), 1);---------------------15 слот инвентори(все сумки)

Son()

Send("{F7}");--------------------------------------------------------------------------------закрываем инвентори ( все сумки)

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Sdaem_100_k()

Son()

MouseClick("left", Random( 765, 779 ), Random( 555, 559 ), 1);--------------------- ok

Son()

Send("c") ;--------------------------------------------------------------------------------Выбор ближайшего наёмника

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(8000)

Send("v");--------------------------------------------------------------------------------Выбор ближайшего союзника

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(3000)

MouseClick("left", Random( 690, 700 ), Random( 708, 713 ), 1);--------------------- send many

Son()

MouseClick("left", Random( 630, 646 ), Random( 526, 532 ), 1);--------------------- all 100k

Son()

MouseClick("left", Random( 570, 584 ), Random( 563, 569 ), 1);--------------------- ok

Son()

Send("{ESC}");--------------------------------------------------------------------------------закрыть окно хранилища Ксюнай

Son()

Send("{ESC}");--------------------------------------------------------------------------------закрыть окно инвентори

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod();--------------------------------------------------------------------------------контроль загрузки в город

Sleep(500)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH();--------------------------------------------------------------------------------контроль загрузки в холл гильдии

Sleep(1000)

Go_To_Merchant();-------------------------------------------------------------------------------- идём до купца продовать дроп

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) );-----------двигаем мышку на кнопку продать для изменения цвета

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );--------------- ищем цвет серый, говорящий что ещё нечего продавать

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

EndIf

WEnd

Sleep(500)

Son()

EndFunc

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

========================

Func Take_Droop()

Son()

MouseClick("left", Random( 549, 657 ), Random( 546, 548 ), 1);-------------на меню сундука кликаем по кнопке открытия

Son()

Send("0");--------------------------------------------------------------------------------------выбираем ближайший предмет

Son()

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 600 );берём выпавший из сундука предмет :party:

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(2000)

Son()

Send("0");--------------------------------------------------------------------------------------выбираем ближайший предмет

Son()

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 600 );берём выпавший из сундука предмет :idea:

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(2000)

$KapMaH += 1

If $KapMaH >= 20 Then

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

Sell_Drop()

$AfterGH = 1

Else

Send("{ENTER}/resign{ENTER}")

Son()

Sleep(5000)

MouseClick("left", Random( 554, 724 ), Random( 530, 536 ), 1);--------------------- RESIGN клик мышки на кнопке

$AfterGH = 0

ControlLoaderToGorod()

EndIf

EndFunc

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

===============

Func ControlLoaderToLocation() ; ------ защита от лагов

For $i = 1 To 20 Step 1

PixelSearch( 1245, 40, 1255, 42, 0xD32323 );------------------проверка красного цвета полоски имени персонажа на панели - члены отряда

If Not @error Then;--------------------- если красный - то мы на локации

ExitLoop

Else ;---------------------иначе ждём 30 секунд с постоянной проверкой на цвет (смотрим выше)

If $i >= 20 Then;---------------------если персонаж застрял на выходе на локацию(после 30 сек зависания) то идёт возврат в холл гильдии иназад по новой = выход на локацию(см.ниже)

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH();---------------------проверка загрузки в холл гильдии

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod();---------------------проверка загрузки в город

Sleep(500)

Send("g")

Son()

Go_To_Locations();---------------------идём на локацию

ExitLoop

Else

Sleep (1500)

EndIf

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

======================

Func ControlLoaderToGorod() ; ------ защита от лагов

While 1

PixelSearch( 1170, 47, 1172, 47, 0xEEEEEE );--------------------- в городе полоска имени персонажа смещается вниз из-за кнопок выбора обычного \ сложного режимов

If Not @error Then

ExitLoop

Else

Sleep(2000)

EndIf

WEnd

EndFunc

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

======================

Func Control_Loader_To_GH() ; ------ защита от лагов

While 1

PixelSearch( 1098, 153, 1104, 153, 0xFFFFFF );--------------------- проверка белого цвета на фразе Вступить в бой

If Not @error Then

ExitLoop

Else

Sleep (2000)

EndIf

WEnd

EndFunc

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

======================

Func Go_To_Locations()

If $AfterGH = 1 Then

While 1

Sleep(2000)

PixelSearch( 1070, 794, 1080, 800, 0xFFFFFF );---------------------если стоим возле стенки - проверяем на компасе белый цвет портала

If Not @error Then

Sleep(500)

Send("{a down}") ;Нажать клавишу a

Sleep (1400);

Send("{a up}") ;Освободить клавишу a

Son()

Send("r")

Sleep(1000)

Send("{d down}") ;Нажать клавишу d

Sleep (500);

Send("{d up}") ;Освободить клавишу d

Sleep(1000)

Send("{d down}") ;Нажать клавишу d

Sleep (500);

Send("{d up}") ;Освободить клавишу d

Sleep(5000)

ControlLoaderToLocation();-----------

Sleep(1000)

ExitLoop

;-------------------------------------------------------------------------------------------------------

Else

;-------------------------------------------------------------------------------------------------------

Send ("v");---------------------выбираем ближайшего союзника

Son()

PixelSearch( 61, 19, 61, 19, 0xF9E3E3 );-------------------------------------проверка цвета на хвосте буквы k в имени Vekk

If Not @error Then

Send("{a down}") ;Нажать клавишу a

Sleep (900);

Send("{a up}") ;Освободить клавишу a

Son()

Send("r")

Sleep(6500)

Send("9")

Son()

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(7500)

Send("{w down}") ;Нажать клавишу w

Sleep (650);

Send("{w up}") ;Освободить клавишу w

Send("r")

ControlLoaderToLocation();-----------

Sleep(1000)

ExitLoop

;-------------------------------------------------------------------------------------------------------

Else

;-------------------------------------------------------------------------------------------------------

PixelSearch( 144, 26, 146, 26, 0xFFFFFF );--------------------------- проверка белого цвета на нижней перекладине буквы ц в имени Купец

If Not @error Then

Send("{d down}") ;Нажать клавишу d

Sleep (450);

Send("{d up}") ;Освободить клавишу d

Son()

Send("r")

Sleep(8000)

Send("{d down}") ;Нажать клавишу d

Sleep (1000);

Send("{d up}") ;Освободить клавишу d

Sleep(4500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(7000)

Send("{w down}") ;Нажать клавишу w

Sleep (550);

Send("{w up}") ;Освободить клавишу w

Son()

ControlLoaderToLocation();-----------р

Sleep(1000)

ExitLoop

EndIf

WEnd

Son()

Send("9")

Son()

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(3000)

Send("r")

Son()

ControlLoaderToGorod()

Son()

Send("x") ;---------------------разворот

Son()

Send("r") ;---------------------вкл. бег

Sleep(2000)

$AfterGH = 0

ControlLoaderToLocation();-----------

Else

Sleep(2000)

Send("x");---------------------разворот

Son()

Send("r");---------------------вкл. бег

Son()

Sleep(2000)

ControlLoaderToLocation();-------------вставить защиту от лагов

EndIf

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Doiti_Do_Sunduka()

Son()

Go_To_Locations()

Son()

Send("7");---------------------вкл. сигнет на стренче - увеличение жизни

Son()

Send ("r");---------------------вкл. бег

Son()

Send("6");---------------------вкл. Sprint 12 сек действует - 15 сек перезарядка

Son()

Sleep(700)

Send("{d down}") ;Нажать клавишу d

Son()

Send("{d up}") ;Освободить клавишу d

Sleep(5790)

Send("{d down}") ;Нажать клавишу d

Sleep (660);

Send("{d up}") ;Освободить клавишу d

Son()

Sleep(2300)

Send("{d down}") ;Нажать клавишу d

Sleep (380 );

Send("{d up}") ;Освободить клавишу d

Son()

Send("8")

Sleep(3200)

Send("{a down}") ;Нажать клавишу a

Sleep (960 );

Send("{a up}") ;Освободить клавишу a

Son()

Sleep(5600)

Send("{a down}") ;Нажать клавишу a

Sleep (330 );

Send("{a up}") ;Освободить клавишу a

Sleep(4100)

Send("6")

Son()

Send("{a down}") ;Нажать клавишу d

Sleep (300 );

Send("{a up}") ;Освободить клавишу d

Son()

Sleep(6500)

For $i=1 To 8;---------------------бежим попутно проверяя наличие ближайшего сундука(проверка на белый цвет) 6 раз- если его нет то сдаёмся и в город.иначе выполняе код после Next(см.ниже)

Son()

Send("9")

Son()

PixelSearch( 321, 26, 371, 26, 0xFFFFFF );--------------------------- сундук

If Not @error Then

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Son() ;

Send("{SPACE up}") ;Освободить клавишу пробел

Son()

Send("8")

Sleep(5000)

ExitLoop

Else

Send("{d down}") ;Нажать клавишу d

Sleep (270 );

Send("{d up}") ;Освободить клавишу d

Sleep(6000)

Son()

Send("6")

If $i >=7 Then

Son()

Send("{ENTER}/resign{ENTER}")

Son()

Sleep(5000)

Son()

MouseClick("left", Random( 554, 724 ), Random( 530, 536 ), 1);--------------------- RESIGN

ControlLoaderToGorod()

$AfterGH = 0

ExitLoop

EndIf

While 1;---------------------бесконечный цикл - выход из которого является появление окна открытия сундука так как сундук поблизости уже был

PixelSearch( 1170, 47, 1172, 47, 0xEEEEEE );--------------------- в городе полоска имени персонажа смещается вниз из-за кнопок выбора обычного \ сложного режимов

If Not @error Then

$AfterGH = 0

ExitLoop

Else

MouseMove(687, 550 )

Son()

PixelSearch( 709, 545, 709, 545, 0xFFFFFF);--------------------------- окно открытия сундука на чёрном фоне чата оч норм ловит цвет см. скриншот интерфейса

If Not @error Then

Take_Droop()

ExitLoop

Else

Send("{SPACE down}") ;Нажать клавишу пробел -------- ещё не добежали = пауза 5 секунд

Sleep ( 550 );

Son() ;

Send("{SPACE up}") ;Освободить клавишу пробел

Son()

Send("6")

Sleep(6000)

EndIf

WEnd

EndFunc

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

Func Go_To_Locations_1()

If $Ratasum = 1 Then

Son()

Send("v");---------------------выбираем ближайшего союзника

Son()

While 1;---------------------бесконечный цикл - выход из которого является проверка контольных точек(по цветам) в именах указанных ниже NPC(то есть определение дальнейшего поведения программы)

PixelSearch( 74, 19, 74, 19, 0xF9E3E3 );------------------------ Kollp (Коллекционер)

If Not @error Then

Way_1()

ExitLoop

Else

PixelSearch( 64, 28, 64, 28, 0xFFFFFF );-------------------- Quarg (Купец)

If Not @error Then

Way_2()

ExitLoop

Else

PixelSearch( 135, 19, 135, 19, 0xFFFFFF );---------------- Lexx (Asuran Talent Scout)

If Not @error Then

Way_3()

ExitLoop

Else

PixelSearch( 140, 19, 140, 19, 0xF9E3E3 );------------ Hoff (Полимок Мастер)

If Not @error Then

Way_4()

ExitLoop

EndIf

WEnd

$Ratasum = 0

Sleep ( 2000 )

ControlLoaderToLocation_1();-------------вставить защиту от лагов

Send("x")

Son()

Send("r")

Sleep(1000)

ControlLoaderToGorod()

Sleep(1000)

Son()

Send("x")

Son()

Send("r")

Son()

Sleep(1000)

ControlLoaderToLocation_1()

Else

Son()

Sleep(1000)

Send("x")

Son()

Sleep(1000)

Send("r")

Son()

Sleep(1000)

ControlLoaderToLocation_1()

EndIf

EndFunc

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

Func ControlLoaderToLocation_1() ; ------ защита от лагов

For $i = 1 To 20 Step 1

PixelSearch( 1245, 40, 1255, 42, 0xD32323 )

If Not @error Then

ExitLoop

Else

If $i >= 19 Then

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

$Ratasum = 1

Go_To_Locations_1()

ExitLoop

Else

Sleep (2000)

EndIf

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

==============

Func Way_1() ; ------ Kollp (Коллекционер)

Send("{w down}") ;Нажать клавишу w

Sleep (6000 );

Send("{w up}") ;Освободить клавишу w

Sleep(500)

Send("9")

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(9500)

Send("r")

Send("{d down}") ;Нажать клавишу w

Sleep (530 );

Send("{d up}") ;Освободить клавишу w

Sleep(3000)

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_2() ; ------ Quarg (Купец)

Sleep(500)

Send("9")

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(9000)

Send("r")

Send("{d down}") ;Нажать клавишу w

Sleep (550 );

Send("{d up}") ;Освободить клавишу w

Sleep(3000)

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_3() ; ------ Lexx (Asuran Talent Scout)

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep ( 11600 )

Son()

Send("r")

Son()

Send("{d down}") ;Нажать клавишу e

Sleep (450 );

Send("{d up}") ;Освободить клавишу e

Son()

Send("{a down}") ;Нажать клавишу e

Sleep (300 );

Send("{a up}") ;Освободить клавишу e

Son()

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_4() ; ------ Hoff (Полимок Мастер)

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep ( 11650 )

Send("r")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (450 );

Send("{d up}") ;Освободить клавишу d

Son()

Send("{a down}") ;Нажать клавишу a

Sleep (300 );

Send("{a up}") ;Освободить клавишу a

Son()

EndFunc

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

========

Func Take_Droop_1()

For $i = 1 To 8 Step 1

Send("0")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 600 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(1000)

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

========

Func Farm()

Sleep(500)

Go_To_Locations_1()

Sleep(500)

Send("{w down}") ;Нажать клавишу w

Sleep (700 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("v")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(6500)

Son()

MouseClick("left", Random( 600, 620 ), Random( 510, 516 ), 1);--------------------- берём благословение азуры

Son()

Send("r")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (730 );

Send("{d up}") ;Освободить клавишу d

Son()

Sleep(12600)

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (640);

Send("{d up}") ;Освободить клавишу d

Sleep(1000)

;------------------------------------------------------------------------ FARM !!!!!\

Son()

Send("8") ; ----- 8

Son()

Send("7") ; ----- 7

Sleep(1500)

Son()

Send ("1")

Sleep (1500)

Son()

Send("2") ; ----- 2

Sleep(2000)

Son()

;------------------------------------------------------------------------------------ 1

Send("3"); ----- 3

Sleep(1500)

Son()

Send("r")

Sleep(14000)

Send("2") ; ----- 2

Sleep(2500)

Son()

Send("4") ; ----- 4

Sleep(1500)

Son()

Send("5") ; ----- 5

Sleep(2000)

Son()

;------------------------------------------------------------------------------------ 2

Send("3"); ----- 3

Sleep(1450)

Son()

Send("7") ; ----- 7

Sleep(6000)

Son()

Send("4") ; ----- 4

Sleep(1500)

Son()

Send("5") ; ----- 5

Sleep(2300)

Son()

Send("2") ; ----- 2

Sleep(2000)

Son()

Send("8") ; ----- 8

Sleep(1500)

Son()

;------------------------------------------------------------------------------------ 3

Send("1") ; ----- 1

Sleep(3000)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(2500)

Son()

Send("3"); ----- 3

Sleep(2500)

Son()

Send("1") ; ----- 1

Sleep(1500)

Son()

Send("2") ; ----- 2

Sleep(4000)

Son()

;------------------------------------------------------------------------------------ 4

Send("6") ; ----- 6

Sleep(500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(4000)

Son()

Send("7") ; ----- 7

Sleep(4500)

Son()

Send("2") ; ----- 2

Sleep(4500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(6500)

Son()

Send("2") ; ----- 2

Sleep(2500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(2500)

Son()

;------------------------------------------------------------------------ END FARM !!!!!

Son()

Take_Droop_1()

$KapMaH += 1

If $KapMaH >= 10 Then

$Ratasum = 1

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Sell_Drop()

Else

$Ratasum = 0

Son()

Send("{ENTER}/resign{ENTER}")

Son()

Sleep(5000)

Son()

MouseClick("left", Random( 554, 724 ), Random( 530, 536 ), 1);--------------------- RESIGN

ControlLoaderToGorod()

$AfterGH = 0

EndIf

EndFunc

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

=========================================

Func ChestRun_to_RataSum()

Son()

Send("{F12}")

Sleep(5000)

MouseClick("left", Random( 630, 644 ), Random( 556, 558 ), 2);---------------------logout

Sleep (1000)

While 1

PixelSearch( 564, 9, 630, 12, 0xFFFFFF )

If Not @error Then

Sleep(5000)

MouseMove( 1240, 868 )

Sleep(3000)

ExitLoop

Else

Sleep(2000)

EndIf

WEnd

MouseClick("left", Random( 772, 857 ), Random( 843, 920 ), 2) ; T key Elementalist

ControlLoaderToGorod()

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

$KapMaH = 0

;++++++++++++++++++++++++++++++

For $i = 1 To 200

Farm()

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

Go_To_Merchant()

Son()

Send("c")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(8000)

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(3000)

MouseClick("left", Random( 690, 700 ), Random( 708, 713 ), 1);--------------------- сдаём всё нафармленное золото

Son()

MouseClick("left", Random( 630, 646 ), Random( 526, 532 ), 1);--------------------- выбираем всё

Son()

MouseClick("left", Random( 570, 584 ), Random( 563, 569 ), 1);--------------------- ok

Son()

Send("{ESC}")

Son()

Send("{F7}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

Send("{F12}")

Sleep(5000)

MouseClick("left", Random( 630, 644 ), Random( 556, 558 ), 2);---------------------logout

Sleep (1000)

While 1

PixelSearch( 564, 9, 630, 12, 0xFFFFFF )

If Not @error Then

Sleep(5000)

MouseMove( 1240, 868 ) ;

Sleep(3000)

ExitLoop

Else

Sleep(2000)

EndIf

WEnd

MouseClick("left", Random( 420, 502 ), Random( 839, 923 ), 2) ; T key

ControlLoaderToGorod()

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

$Ratasum = 0

EndFunc

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

=========================================

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

=======================================

While 1

Doiti_Do_Sunduka()

WEnd

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

=========================================

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

=========================================

Tkey · May 20, 2009

this script = ratasum only

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=T:\Games\Dungeon Siege 2\ds2.ico

#AutoIt3Wrapper_outfile=C:\Documents and Settings\T key\Рабочий стол\RATASUM.exe

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Opt("WinWaitDelay",250)

;-------------------------------------------------------

HotKeySet("^!x", "MyExit")

HotKeySet("{PAUSE}", "_TogglePause")

;-------------------------------------------------------------------------------------------------------------------------

Global $Paused

Global $KapMaH

$KapMaH = 0

;-------------------------------------------------------------------------------------------------------------------------

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep ( 3000 )

;-------------------------------------------------------------------------------------------------------------------------

Func _TogglePause()

$Paused = NOT $Paused

While $Paused

Sleep(100)

ToolTip("Script is 'Paused'" & @CRLF ,0,0)

WEnd

ToolTip("Script is running")

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func MyExit()

Exit

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Son()

Sleep ( Random( 250 , 300 ) )

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Go_To_Locations()

Son()

Send("v")

Son()

While 1

PixelSearch( 74, 19, 74, 19, 0xF9E3E3 );------------------------ Kollp (Коллекционер)

If Not @error Then

Way_1()

ExitLoop

Else

PixelSearch( 64, 28, 64, 28, 0xFFFFFF );-------------------- Quarg (Купец)

If Not @error Then

Way_2()

ExitLoop

Else

PixelSearch( 135, 19, 135, 19, 0xFFFFFF );---------------- Lexx (Asuran Talent Scout)

If Not @error Then

Way_3()

ExitLoop

Else

PixelSearch( 140, 19, 140, 19, 0xF9E3E3 );------------ Hoff (Полимок Мастер)

If Not @error Then

Way_4()

ExitLoop

EndIf

WEnd

Sleep ( 2000 )

ControlLoaderToLocation();-------------вставить защиту от лагов

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func ControlLoaderToLocation() ; ------ защита от лагов

For $i = 1 To 60 Step 1

PixelSearch( 1245, 40, 1255, 42, 0xD32323 )

If Not @error Then

ExitLoop

Else

If $i >= 59 Then

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

Go_To_Locations()

ExitLoop

Else

Sleep (2000)

EndIf

;------------------------------------------------------------------------------------------------------

Func ControlLoaderToGorod() ; ------ защита от лагов

While 1

PixelSearch( 1170, 47, 1172, 47, 0xEEEEEE )

If Not @error Then

ExitLoop

Else

Sleep(2000)

EndIf

WEnd

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Control_Loader_To_GH() ; ------ защита от лагов

While 1

PixelSearch( 1049, 41, 1051, 41, 0xFFFFFF )

If Not @error Then

ExitLoop

Else

Sleep (2000)

EndIf

WEnd

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_1() ; ------ Kollp (Коллекционер)

Send("{w down}") ;Нажать клавишу w

Sleep (6000 );

Send("{w up}") ;Освободить клавишу w

Sleep(500)

Send("9")

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(9500)

Send("r")

Send("{d down}") ;Нажать клавишу w

Sleep (530 );

Send("{d up}") ;Освободить клавишу w

Sleep(3000)

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_2() ; ------ Quarg (Купец)

Sleep(500)

Send("9")

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(9000)

Send("r")

Send("{d down}") ;Нажать клавишу w

Sleep (550 );

Send("{d up}") ;Освободить клавишу w

Sleep(3000)

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_3() ; ------ Lexx (Asuran Talent Scout)

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep ( 11600 )

Son()

Send("r")

Son()

Send("{d down}") ;Нажать клавишу e

Sleep (450 );

Send("{d up}") ;Освободить клавишу e

Son()

Send("{a down}") ;Нажать клавишу e

Sleep (300 );

Send("{a up}") ;Освободить клавишу e

Son()

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Way_4() ; ------ Hoff (Полимок Мастер)

Sleep(500)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep ( 11650 )

Send("r")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (450 );

Send("{d up}") ;Освободить клавишу d

Son()

Send("{a down}") ;Нажать клавишу a

Sleep (300 );

Send("{a up}") ;Освободить клавишу a

Son()

EndFunc

;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Func Go_To_Merchant()

While 1

Sleep(500)

Send ("v")

Son()

PixelSearch( 141, 19, 143, 19, 0xECE1E1 );------------------------------------- Мастер Умений

If Not @error Then

Doiti_do_Merchant()

ExitLoop

Else

PixelSearch( 89, 19, 89, 19, 0xF9E3E3 );--------------------------- Xunlai Chest

If Not @error Then

Doiti_do_Merchant1()

ExitLoop

Else

PixelSearch( 172, 28, 174, 28, 0xFFFFFF );--------------- Tolkano Tournament

If Not @error Then

Doiti_do_Merchant2()

ExitLoop

EndIf

WEnd

EndFunc

;------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant() ;------------------------------------- Мастер Умений

Son()

Send("{w down}") ;Нажать клавишу w

Sleep (1500 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("{e down}") ;Нажать клавишу e

Sleep (7000 );

Send("{e up}") ;Освободить клавишу e

Son()

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant1();------------------------------------- Xunlai Chest

Son()

Send("{w down}") ;Нажать клавишу e

Sleep (5500 );

Send("{w up}") ;Освободить клавишу e

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (7000 );

Send("{q up}") ;Освободить клавишу q

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant2() ;----------------------------------- Tolkano Tournament

Son()

Send("{w down}") ;Нажать клавишу e

Sleep (500 );

Send("{w up}") ;Освободить клавишу e

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (5000 );

Send("{q up}") ;Освободить клавишу q

Send("{s down}") ;Нажать клавишу s

Sleep (5000 );

Send("{s up}") ;Освободить клавишу s

Son()

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;------------------------------------------------------------------------------------------------------

Func Sell_Drop()

Son()

Indentifications()

Go_To_Merchant()

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) )

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );---------------

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

PixelSearch( 768, 559, 768, 559, 0xFFFFFF );--------------- 100к

If Not @error Then

Sdaem_100_k()

Son()

ExitLoop

EndIf

WEnd

Sleep(500)

MouseClick("left", Random( 50, 70 ), Random( 40, 45 ), 1);--- переключаемся на покупку

Son()

Send("{F7}")

While 1

Son()

PixelSearch( 1239, 928, 1257, 928, 0x1D0101 );--------------- проверяем наличие кита

If @error Then

ExitLoop

Else

MouseClick("left", Random( 90, 110 ), Random( 288, 292 ), 1);--------------------- выбираем кит

Son()

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);-------------------- покупаем кит

Son()

MouseMove(1088, 486)

Son()

MouseDown("left")

Son()

MouseMove(1242, 928)

Son()

MouseUp("left")

Son()

ExitLoop

EndIf

WEnd

Son()

Send("{F7}")

Son()

Send("{ESC}")

Son()

Send("{ESC}")

Son()

Send("{ESC}")

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

$KapMaH = 0

EndFunc

;------------------------------------------------------------------------------------------------------

Func Indentifications()

Son()

Send("{F7}")

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1076, 1080 ), Random( 486, 490 ), 1);---------------------1

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1120, 1126 ), Random( 484, 490 ), 1);---------------------2

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1162, 1167 ), Random( 484, 490 ), 1);---------------------3

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1202, 1208 ), Random( 484, 490 ), 1);---------------------4

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1233, 1251 ), Random( 473, 490 ), 1);---------------------5

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1076, 1080 ), Random( 535, 540 ), 1);---------------------6

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1120, 1126 ), Random( 535, 540 ), 1);---------------------7

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1154, 1164 ), Random( 535, 540 ), 1);---------------------8

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1200, 1204 ), Random( 535, 540 ), 1);---------------------9

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1233, 1251 ), Random( 535, 540 ), 1);---------------------10

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1076, 1080 ), Random( 588, 594 ), 1);---------------------11

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1120, 1126 ), Random( 588, 594 ), 1);---------------------12

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1154, 1164 ), Random( 588, 594 ), 1);---------------------13

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1200, 1204 ), Random( 588, 594 ), 1);---------------------14

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1233, 1251 ), Random( 588, 594 ), 1);---------------------15

Son()

Send("{F7}")

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Sdaem_100_k()

Son()

MouseClick("left", Random( 765, 779 ), Random( 555, 559 ), 1);--------------------- ok

Son()

Send("c")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(8000)

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(3000)

MouseClick("left", Random( 690, 700 ), Random( 708, 713 ), 1);--------------------- send many

Son()

MouseClick("left", Random( 630, 646 ), Random( 526, 532 ), 1);--------------------- all 100k

Son()

MouseClick("left", Random( 570, 584 ), Random( 563, 569 ), 1);--------------------- ok

Son()

Send("{ESC}")

Son()

Send("{ESC}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Go_To_Merchant()

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) )

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );---------------

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

EndIf

WEnd

Sleep(500)

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Take_Droop()

For $i = 1 To 8 Step 1

Send("0")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 600 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(1000)

;------------------------------------------------------------------------------------------------------

Func Farm()

Sleep(500)

Go_To_Locations()

Sleep(500)

Send("{w down}") ;Нажать клавишу w

Sleep (700 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("v")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(6500)

Son()

MouseClick("left", Random( 600, 620 ), Random( 510, 516 ), 1);--------------------- берём благословение азуры

Son()

Send("r")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (730 );

Send("{d up}") ;Освободить клавишу d

Son()

Sleep(12600)

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (640);

Send("{d up}") ;Освободить клавишу d

Sleep(1000)

;------------------------------------------------------------------------ FARM !!!!!\

Son()

Send("8") ; ----- 8

Son()

Send("7") ; ----- 7

Sleep(1500)

Son()

Send ("1")

Sleep (1500)

Son()

Send("2") ; ----- 2

Sleep(2000)

Son()

;------------------------------------------------------------------------------------ 1

Send("3"); ----- 3

Sleep(1500)

Son()

Send("r")

Sleep(14000)

Send("2") ; ----- 2

Sleep(2500)

Son()

Send("4") ; ----- 4

Sleep(1500)

Son()

Send("5") ; ----- 5

Sleep(2000)

Son()

;------------------------------------------------------------------------------------ 2

Send("3"); ----- 3

Sleep(1450)

Son()

Send("7") ; ----- 7

Sleep(6000)

Son()

Send("4") ; ----- 4

Sleep(1500)

Son()

Send("5") ; ----- 5

Sleep(2300)

Son()

Send("2") ; ----- 2

Sleep(2000)

Son()

Send("8") ; ----- 8

Sleep(1500)

Son()

;------------------------------------------------------------------------------------ 3

Send("1") ; ----- 1

Sleep(3000)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(2500)

Son()

Send("3"); ----- 3

Sleep(2500)

Son()

Send("1") ; ----- 1

Sleep(1500)

Son()

Send("2") ; ----- 2

Sleep(4000)

Son()

;------------------------------------------------------------------------------------ 4

Send("6") ; ----- 6

Sleep(500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(4000)

Son()

Send("7") ; ----- 7

Sleep(4500)

Son()

Send("2") ; ----- 2

Sleep(4500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(6500)

Son()

Send("2") ; ----- 2

Sleep(2500)

Son()

Send("4") ; ----- 4

Sleep(2500)

Son()

Send("5") ; ----- 5

Sleep(2500)

Son()

;------------------------------------------------------------------------ END FARM !!!!!

Son()

Take_Droop()

$KapMaH += 1

If $KapMaH >= 5 Then

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Sell_Drop()

Else

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

MouseClick("left", Random( 1016, 1020 ), Random( 44, 48 ), 1);---------------------включаем сложный режим

Son()

EndIf

EndFunc

;-------------------------------------------------------------------------------------------------------

While 1

Farm()

WEnd

Tkey · May 20, 2009

this code = chest run only

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=..\..\icons\003.ico

#AutoIt3Wrapper_outfile=C:\Documents and Settings\T key\Рабочий стол\Сундуки.exe

#AutoIt3Wrapper_Res_Comment=Для фарма люксон макс титула и материала

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=T key

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Opt("WinWaitDelay",250)

;-------------------------------------------------------

HotKeySet("^!x", "MyExit")

HotKeySet("{PAUSE}", "_TogglePause")

#include <GuiConstants.au3>

Global $Paused

Global $Chest

$Chest = InputBox ( "колличество отмычек", "Введите колличество отмычек" , "50" )

GuiCreate("ChestRun", 250, 135)

GuiSetIcon(@SystemDir & "\tourstart.exe", 0)

GuiSetState()

GUIDelete()

;-------------------------------------------------------------------------------------------------------------------------

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep ( 3000 )

;-------------------------------------------------------------------------------------------------------------------------

Func _TogglePause()

$Paused = NOT $Paused

While $Paused

Sleep(100)

ToolTip("Script is 'Paused'" & @CRLF ,0,0)

WEnd

ToolTip("Script is running")

If Not WinActivate("Guild Wars") Then

WinActivate("Guild Wars")

EndIf

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func MyExit()

Exit

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Son()

Sleep ( Random( 200 , 250 ) )

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Func Go_To_Merchant()

While 1

Sleep(500)

Send ("v")

Son()

PixelSearch( 141, 19, 143, 19, 0xECE1E1 );------------------------------------- Мастер Умений

If Not @error Then

Doiti_do_Merchant()

ExitLoop

Else

PixelSearch( 89, 19, 89, 19, 0xF9E3E3 );--------------------------- Xunlai Chest

If Not @error Then

Doiti_do_Merchant1()

ExitLoop

Else

PixelSearch( 172, 28, 174, 28, 0xFFFFFF );--------------- Tolkano Tournament

If Not @error Then

Doiti_do_Merchant2()

ExitLoop

EndIf

WEnd

EndFunc

;------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant() ;------------------------------------- Мастер Умений

Son()

Send("{w down}") ;Нажать клавишу w

Sleep (1500 );

Send("{w up}") ;Освободить клавишу w

Son()

Send("{e down}") ;Нажать клавишу e

Sleep (7000 );

Send("{e up}") ;Освободить клавишу e

Son()

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant1();------------------------------------- Xunlai Chest

Son()

Send("{w down}") ;Нажать клавишу e

Sleep (5500 );

Send("{w up}") ;Освободить клавишу e

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (7000 );

Send("{q up}") ;Освободить клавишу q

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Doiti_do_Merchant2() ;----------------------------------- Tolkano Tournament

Son()

Send("{w down}") ;Нажать клавишу e

Sleep (500 );

Send("{w up}") ;Освободить клавишу e

Son()

Send("{q down}") ;Нажать клавишу q

Sleep (5000 );

Send("{q up}") ;Освободить клавишу q

Send("{s down}") ;Нажать клавишу s

Sleep (5000 );

Send("{s up}") ;Освободить клавишу s

Son()

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(2000)

EndFunc

;------------------------------------------------------------------------------------------------------

Func Sell_Drop()

Son()

Indentifications()

Go_To_Merchant()

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) )

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );---------------

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

PixelSearch( 768, 559, 768, 559, 0xFFFFFF );--------------- 100к

If Not @error Then

Sdaem_100_k()

Son()

ExitLoop

EndIf

WEnd

Sleep(500)

MouseClick("left", Random( 50, 70 ), Random( 40, 45 ), 1);--- переключаемся на покупку

Son()

Send("{F7}")

While 1

Son()

PixelSearch( 1239, 928, 1257, 928, 0x1D0101 );--------------- проверяем наличие кита

If @error Then

ExitLoop

Else

MouseClick("left", Random( 90, 110 ), Random( 288, 292 ), 1);--------------------- выбираем кит

Son()

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);-------------------- покупаем кит

Son()

MouseMove(1088, 486)

Son()

MouseDown("left")

Son()

MouseMove(1242, 928)

Son()

MouseUp("left")

Son()

ExitLoop

EndIf

WEnd

Son()

Send("{F7}")

Son()

Send("{ESC}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Indentifications()

Son()

Send("{F7}")

Son()

MouseClick("left", Random( 1250, 1256 ), Random( 920, 926 ), 2);---------------------kit

Son()

MouseClick("left", Random( 1076, 1080 ), Random( 486, 490 ), 1);---------------------1

Son()

Send("{F7}")

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Sdaem_100_k()

Son()

MouseClick("left", Random( 765, 779 ), Random( 555, 559 ), 1);--------------------- ok

Son()

Send("c")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(8000)

Send("v")

Sleep (500)

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 500 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(3000)

MouseClick("left", Random( 690, 700 ), Random( 708, 713 ), 1);--------------------- send many

Son()

MouseClick("left", Random( 630, 646 ), Random( 526, 532 ), 1);--------------------- all 100k

Son()

MouseClick("left", Random( 570, 584 ), Random( 563, 569 ), 1);--------------------- ok

Son()

Send("{ESC}")

Son()

Send("{ESC}")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Go_To_Merchant()

Sleep(500)

MouseClick("left", Random( 132, 140 ), Random( 40, 48 ), 1);--- переключаемся на продажу

Son()

While 1

MouseMove( Random( 257, 336 ), Random( 976, 986 ) )

Son()

PixelSearch( 270, 980, 280, 982, 0x939393 );---------------

If Not @error Then

ExitLoop

Else

MouseClick("left", Random( 290, 300 ), Random( 980, 985 ), 1);---------------------продаём

Son()

Sleep(500)

EndIf

WEnd

Sleep(500)

Son()

EndFunc

;------------------------------------------------------------------------------------------------------

Func Take_Droop()

Son()

MouseClick("left", Random( 549, 657 ), Random( 546, 548 ), 1)

Send("0")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 600 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(3000)

Send("0")

Son()

Send("{SPACE down}") ;Нажать клавишу

Sleep ( 600 );

Send("{SPACE up}") ;Освободить клавишу

Sleep(3000)

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Sell_Drop()

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func ControlLoaderToLocation() ; ------ защита от лагов

For $i = 1 To 20 Step 1

PixelSearch( 1245, 40, 1255, 42, 0xD32323 )

If Not @error Then

ExitLoop

Else

If $i >= 20 Then

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

Go_To_Locations()

ExitLoop

Else

Sleep (1500)

EndIf

;------------------------------------------------------------------------------------------------------

Func ControlLoaderToGorod() ; ------ защита от лагов

While 1

PixelSearch( 1170, 47, 1172, 47, 0xEEEEEE )

If Not @error Then

ExitLoop

Else

Sleep(2000)

EndIf

WEnd

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

Func Control_Loader_To_GH() ; ------ защита от лагов

While 1

PixelSearch( 1098, 153, 1104, 153, 0xFFFFFF )

If Not @error Then

ExitLoop

Else

Sleep (2000)

EndIf

WEnd

EndFunc

;-------------------------------------------------------------------------------------------------------

Func NaborComandi()

Son()

Send ("p")

Sleep ( 500 )

MouseClick("left", Random( 198, 200 ), Random( 130 , 132 ), 1)

Sleep(1000)

MouseClick("left", Random( 119, 139 ), 260, 2)

Sleep(1000)

MouseClick("left", Random( 119, 139 ), 165, 2)

Sleep(1000)

Send ("p")

Son()

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Go_To_Locations()

NaborComandi()

While 1

Sleep(2000)

PixelSearch( 1073, 795, 1077, 799, 0xFFFFFF )

If Not @error Then

MouseClick("left", Random( 1115, 1135 ), 223, 2)

Sleep(500)

Send("9")

Son()

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(6000)

Send("{w down}") ;Нажать клавишу w

Sleep (550);

Send("{w up}") ;Освободить клавишу w

Son()

Send("{a down}") ;Нажать клавишу a

Sleep (500);

Send("{a up}") ;Освободить клавишу a

Son()

Send("{a down}") ;Нажать клавишу d

Sleep (300);

Send("{a up}") ;Освободить клавишу d

Sleep(500)

Send("r")

ExitLoop

Else

Send ("v")

Son()

PixelSearch( 61, 19, 61, 19, 0xF9E3E3 );------------------------------------- Vekk

If Not @error Then

MouseClick("left", Random( 1100, 1120 ), 127, 2)

Sleep(7000)

MouseClick("left", Random( 1100, 1120 ), 149, 2)

Sleep(3000)

Send("{a down}") ;Нажать клавишу a

Sleep (500);

Send("{a up}") ;Освободить клавишу a

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (500);

Send("{d up}") ;Освободить клавишу d

Sleep(3000)

Send("r")

Sleep(7500)

Send("{d down}") ;Нажать клавишу d

Sleep (750);

Send("{d up}") ;Освободить клавишу d

Sleep(2000)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(4500)

MouseClick("left", Random( 1115, 1135 ), 223, 2)

Sleep(4500)

Send("{w down}") ;Нажать клавишу w

Sleep (550);

Send("{w up}") ;Освободить клавишу w

Send("r")

ExitLoop

Else

PixelSearch( 144, 26, 146, 26, 0xFFFFFF );--------------------------- Купец

If Not @error Then

MouseClick("left", Random( 1100, 1120 ), 127, 2)

Sleep(5000)

MouseClick("left", Random( 1100, 1120 ), 149, 2)

Sleep(3500)

Send("{a down}") ;Нажать клавишу a

Sleep (500);

Send("{a up}") ;Освободить клавишу a

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (500);

Send("{d up}") ;Освободить клавишу d

Sleep(3000)

Send("r")

Sleep(7000)

Send("{d down}") ;Нажать клавишу d

Sleep (750);

Send("{d up}") ;Освободить клавишу d

Sleep(2000)

Send("9")

Sleep(500)

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Send("{SPACE up}") ;Освободить клавишу пробел

Sleep(4500)

MouseClick("left", Random( 1115, 1135 ), 223, 2)

Sleep(5500)

Send("{w down}") ;Нажать клавишу w

Sleep (550);

Send("{w up}") ;Освободить клавишу w

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (200);

Send("{d up}") ;Освободить клавишу d

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (200);

Send("{d up}") ;Освободить клавишу d

Son()

Send("{a down}") ;Нажать клавишу a

Sleep (300);

Send("{a up}") ;Освободить клавишу a

Sleep(500)

Send("r")

ExitLoop

EndIf

WEnd

ControlLoaderToLocation();-------------вставить защиту от лагов

EndFunc

;-------------------------------------------------------------------------------------------------------

Func Doiti_Do_Sunduka()

Send("7")

Son()

Send ("r")

Son()

Send("6")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (200 );

Send("{d up}") ;Освободить клавишу d

Sleep(5870)

Send("{d down}") ;Нажать клавишу d

Sleep (650);

Send("{d up}") ;Освободить клавишу d

Son()

Sleep(2300)

Send("{d down}") ;Нажать клавишу d

Sleep (350 );

Send("{d up}") ;Освободить клавишу d

Son()

Sleep(3200)

Send("{a down}") ;Нажать клавишу a

Sleep (970 );

Send("{a up}") ;Освободить клавишу a

Son()

Send("8")

Sleep(4000)

Send("{a down}") ;Нажать клавишу a

Sleep (320 );

Send("{a up}") ;Освободить клавишу a

Sleep(13000)

Send("{a down}") ;Нажать клавишу d

Sleep (320 );

Send("{a up}") ;Освободить клавишу d

Son()

Send("6")

Sleep(4200)

Son()

Send("0")

Son()

Send("{d down}") ;Нажать клавишу d

Sleep (350 );

Send("{d up}") ;Освободить клавишу d

Sleep(6000)

Son()

Send("0")

Son()

Send("8")

Send("{d down}") ;Нажать клавишу d

Sleep (350 );

Send("{d up}") ;Освободить клавишу d

Sleep(5000)

Send("{d down}") ;Нажать клавишу d

Sleep (350 );

Send("{d up}") ;Освободить клавишу d

Son()

Send("0")

Son()

PixelSearch( 321, 26, 371, 26, 0xFFFFFF );--------------------------- сундук

If Not @error Then

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Son() ;

Send("{SPACE up}") ;Освободить клавишу пробел

Son()

Send("8")

Sleep(20000)

Take_Droop()

Else

Son()

Send("0")

Son()

Send("{a down}") ;Нажать клавишу a

Sleep (320 );

Send("{a up}") ;Освободить клавишу a

Son()

PixelSearch( 321, 26, 371, 26, 0xFFFFFF );--------------------------- сундук

If Not @error Then

Send("{SPACE down}") ;Нажать клавишу пробел

Sleep ( 550 );

Son() ;

Send("{SPACE up}") ;Освободить клавишу пробел

Son()

Send("8")

Sleep(20000)

Take_Droop()

Else

Sleep(9000)

Son()

Send("g")

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------идём в холл гильдии

Sleep(500)

Control_Loader_To_GH()

Sleep(1000)

Son()

MouseClick("left", Random( 268, 288 ), Random( 633, 636 ), 2);---------------------уходим из холла гильдии

Son()

ControlLoaderToGorod()

Sleep(500)

Send("g")

Son()

EndIf

EndFunc

;-------------------------------------------------------------------------------------------------------------------------

For $i=1 To $Chest Step 1

Go_To_Locations()

Doiti_Do_Sunduka()

Send("{F12}")

Sleep(5000)

MouseClick("left", Random( 630, 644 ), Random( 556, 558 ), 2);---------------------logout

PixelSearch( 321, 26, 371, 26, 0xFFFFFF )

If Not @error Then

MouseMove(1247, 868)

Sleep(8000)

Else

Sleep(4000)

EndIf

MouseClick("left", Random( 772, 857 ), Random( 843, 920 ), 2)

;-------------------------------------------------------------------------------------------------------------------------

guildwars bots

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members