rendered paste bodyyep ill share it with those that have acess to this forum ifanyone ever need it... its still pretty beta if someone wanna help me ill b happy to work with someone (this is a priority over diablo... for now).
this bot is 100% by me, you need to have window mode set to 1009x763 resoluition INCLUDING WINDOWS XP CLASSIC THEME. have the UI set to larger in gw options and the default interface.
main.au3
[code]
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 = 10;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
$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[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
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'
;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
;exit
func test()
;369,68,401,80 = 2424899071 1993648085
ClipPut( PixelChecksum( 369,68,401,80,1 ) )
Exit
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)
;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
[/code]
common.au3
[code]
;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
[/code]
minotuar.au3
[code]
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
_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
[/code]
hydra.au3
[code]
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
[/code]
griffon.au3
[code]
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
_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
[/code]
if you have any question.. feel free to ask them