Advertisement
Guest User

Untitled

a guest
Sep 6th, 2019
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 5.44 KB | None | 0 0
  1. WinActivate("CROSSFIRE")
  2. WinWaitActive("CROSSFIRE")
  3. WinMove("CROSSFIRE", "", 0, 0)
  4.  
  5. Global $___WINPOS = WinGetPos("CROSSFIRE")
  6. Global $___WINCLIENTSIZE = WinGetClientSize("CROSSFIRE")
  7.  
  8. Global $___X = $___WINPOS[0] + 3
  9. Global $___Y = $___WINPOS[1] + 26
  10.  
  11. ;~ Test
  12. While 1
  13.     Global $___WINPOS = WinGetPos("CROSSFIRE")
  14.     Global $___WINCLIENTSIZE = WinGetClientSize("CROSSFIRE")
  15.  
  16.     Global $___X = $___WINPOS[0] + 3
  17.     Global $___Y = $___WINPOS[1] + 26
  18.  
  19.     ;~ If IsRound1() Then
  20.     ;~     ToolTip("IsRound1_CacNPCConLai", 0, 0)
  21.     ;~ ElseIf IsRound2() Then
  22.     ;~     ToolTip("Di chuyen toi gan Can ve", 0, 0)
  23.     ;~ ElseIf IsRound3() Then
  24.     ;~     ToolTip("Tieu diet quai vat Gigant", 0, 0)
  25.     ;~ Else
  26.     ;~     ToolTip("...", 0, 0)
  27.     ;~ EndIf
  28.  
  29.     If IsRound1_CacNPCConLai() Then
  30.         ToolTip("IsRound1_CacNPCConLai()", 0, 0)
  31.     ElseIf IsRound2_DiChuyenToiGanCanVe() Then
  32.         ToolTip("IsRound2_DiChuyenToiGanCanVe()", 0, 0)
  33.     ElseIf IsRound2_DanhBaiCanVe() Then
  34.         ToolTip("IsRound2_DanhBaiCanVe()", 0, 0)
  35.     ElseIf IsRound3_DiChuyenToiGanQuaiVatGigant() Then
  36.         ToolTip("IsRound3_DiChuyenToiGanQuaiVatGigant()", 0, 0)
  37.     ElseIf IsRound3_TieuDietQuaiVatGigant() Then
  38.         ToolTip("IsRound3_TieuDietQuaiVatGigant()", 0, 0)
  39.     Else
  40.         ToolTip("...", 0, 0)
  41.     EndIf
  42.     Sleep(1000)
  43. WEnd
  44.  
  45. ;~ ; Test
  46. ;~ ConsoleWrite("IsRound1() "&IsRound1()&@CRLF)
  47. ;~ ConsoleWrite("IsRound2() "&IsRound2()&@CRLF)
  48. ;~ ConsoleWrite("IsRound3() "&IsRound3()&@CRLF)
  49.  
  50. Func IsRound1()
  51.     Return IsRound1_CacNPCConLai()
  52. EndFunc
  53.  
  54. Func IsRound2()
  55.     If IsRound2_DiChuyenToiGanCanVe() Then Return True
  56.     If IsRound2_DanhBaiCanVe() Then Return True
  57.     Return False
  58. EndFunc
  59.  
  60. Func IsRound3()
  61.     If IsRound3_DiChuyenToiGanQuaiVatGigant() Then Return True
  62.     If IsRound3_TieuDietQuaiVatGigant() Then Return True
  63.     Return False
  64. EndFunc
  65.  
  66.  
  67. Func IsRound1_CacNPCConLai()
  68.     ;~ Diem hien tai
  69.     If _CheckColor("414 12 cae6eb") == False Then Return False
  70.     If _CheckColor("444 12 cae6eb") == False Then Return False
  71.     If _CheckColor("469 12 cae6eb") == False Then Return False
  72.     ;~ Cac NPC con lai
  73.     If _CheckColor("552 13 cae6eb") == False Then Return False
  74.     If _CheckColor("572 13 cae6eb") == False Then Return False
  75.     If _CheckColor("599 13 cae6eb") == False Then Return False
  76.     If _CheckColor("614 13 cae6eb") == False Then Return False
  77.  
  78.     Return True
  79. EndFunc
  80.  
  81. Func IsRound2_DiChuyenToiGanCanVe()
  82.     ;~ Diem hien tai
  83.     If _CheckColor("414 12 cae6eb") == False Then Return False
  84.     If _CheckColor("444 12 cae6eb") == False Then Return False
  85.     If _CheckColor("469 12 cae6eb") == False Then Return False
  86.     ;~ Di chuyen toi gan Can ve
  87.     If _CheckColor("560 13 cae6eb") == False Then Return False
  88.     If _CheckColor("569 13 cae6eb") == False Then Return False
  89.     If _CheckColor("607 13 cae6eb") == False Then Return False
  90.     If _CheckColor("629 13 cae6eb") == False Then Return False
  91.     If _CheckColor("649 13 cae6eb") == False Then Return False
  92.     If _CheckColor("659 13 cae6eb") == False Then Return False
  93.  
  94.     Return True
  95. EndFunc
  96.  
  97. Func IsRound2_DanhBaiCanVe()
  98.     ;~ Diem hien tai
  99.     If _CheckColor("414 12 cae6eb") == False Then Return False
  100.     If _CheckColor("444 12 cae6eb") == False Then Return False
  101.     If _CheckColor("469 12 cae6eb") == False Then Return False
  102.     ;~ Danh bai Can ve
  103.     If _CheckColor("563 10 cae6eb") == False Then Return False
  104.     If _CheckColor("588 13 cae6eb") == False Then Return False
  105.     If _CheckColor("605 10 cae6eb") == False Then Return False
  106.     If _CheckColor("625 10 cae6eb") == False Then Return False
  107.  
  108.     Return True
  109. EndFunc
  110.  
  111.  
  112. Func IsRound3_DiChuyenToiGanQuaiVatGigant()
  113.     ;~ Diem hien tai
  114.     If _CheckColor("414 12 cae6eb") == False Then Return False
  115.     If _CheckColor("444 12 cae6eb") == False Then Return False
  116.     If _CheckColor("469 12 cae6eb") == False Then Return False
  117.     ;~ Di chuyen toi gan quai vat Gigant
  118.     If _CheckColor("560 14 cae6eb") == False Then Return False
  119.     If _CheckColor("595 14 cae6eb") == False Then Return False
  120.     If _CheckColor("608 16 cae6eb") == False Then Return False
  121.     If _CheckColor("630 16 cae6eb") == False Then Return False
  122.     If _CheckColor("651 17 cae6eb") == False Then Return False
  123.     If _CheckColor("669 14 cae6eb") == False Then Return False
  124.     If _CheckColor("701 14 cae6eb") == False Then Return False
  125.  
  126.     Return True
  127. EndFunc
  128.  
  129. Func IsRound3_TieuDietQuaiVatGigant()
  130.     ;~ Diem hien tai
  131.     If _CheckColor("414 12 cae6eb") == False Then Return False
  132.     If _CheckColor("444 12 cae6eb") == False Then Return False
  133.     If _CheckColor("469 12 cae6eb") == False Then Return False
  134.     ;~ Tieu diet quai vat Gigant
  135.     If _CheckColor("555 14 cae6eb") == False Then Return False
  136.     If _CheckColor("576 14 cae6eb") == False Then Return False
  137.     If _CheckColor("598 14 cae6eb") == False Then Return False
  138.     If _CheckColor("621 14 cae6eb") == False Then Return False
  139.     If _CheckColor("660 14 cae6eb") == False Then Return False
  140.  
  141.     Return True
  142. EndFunc
  143.  
  144. Func _CheckColor($str)
  145.     Local $arr = StringSplit($str, " ")
  146.     Local $x = $___X + $arr[1]
  147.     Local $y = $___Y + $arr[2]
  148.     Local $color1 = $arr[3]
  149.     Local $color2 = Hex(PixelGetColor($x, $y), 6)
  150.     ;~ ConsoleWrite("$x "&$x&",$y "&$y&",color "&$color2&@CRLF)
  151.     ;~ ConsoleWrite("$str "&$str&",color "&$color2&@CRLF)
  152.     Return $color1 = $color2
  153. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement