Sự trở lại của 4rum 10e1
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Sự trở lại của 4rum 10e1

---Good Day---
 
Trang ChínhTrang Chính  PortalPortal  GalleryGallery  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
Latest topics
» [Sự Kiện Mới] Sự trở lại của CABAL VIỆT!!!
Auto chơi Game Kim Cương trên Zing Me EmptyWed Nov 30, 2011 11:14 am by kaka_1

» loi hua: nam cuong, khac viet
Auto chơi Game Kim Cương trên Zing Me EmptySat May 07, 2011 2:26 pm by nh0k_luv148

» Auto chơi Game Kim Cương trên Zing Me
Auto chơi Game Kim Cương trên Zing Me EmptyTue Apr 19, 2011 1:35 pm by Lee Jordan

» Dung quen anh! That hay phai ko!
Auto chơi Game Kim Cương trên Zing Me EmptySat Apr 16, 2011 3:06 pm by onggiadethuong95

» Nàng công chúa ngủ trong rừng
Auto chơi Game Kim Cương trên Zing Me EmptySat Apr 16, 2011 1:55 pm by Lee Jordan

» Them 1 caj nua~ rat hay! " Khi co' e"
Auto chơi Game Kim Cương trên Zing Me EmptyFri Apr 15, 2011 8:49 pm by Admin

» Nhân vật này phủ định n vật video tr'c! :)) Rất xa rất gần
Auto chơi Game Kim Cương trên Zing Me EmptyFri Apr 15, 2011 8:37 pm by Admin

» Thêm 1 cái nữa! Chính là anh!
Auto chơi Game Kim Cương trên Zing Me EmptyFri Apr 15, 2011 8:25 pm by Admin

» Nhu đã hứa vs các bạn! Video! Hãy để anh y e lan nữa!
Auto chơi Game Kim Cương trên Zing Me EmptyFri Apr 15, 2011 8:10 pm by Admin

» Chế Vui Không Nói Nổi
Auto chơi Game Kim Cương trên Zing Me EmptyThu Apr 14, 2011 7:41 pm by nh0k_luv148


 

 Auto chơi Game Kim Cương trên Zing Me

Go down 
Tác giảThông điệp
Lee Jordan

Lee Jordan


Tổng số bài gửi : 17
Join date : 06/04/2011
Age : 28
Đến từ : Localhost

Auto chơi Game Kim Cương trên Zing Me Empty
Bài gửiTiêu đề: Auto chơi Game Kim Cương trên Zing Me   Auto chơi Game Kim Cương trên Zing Me EmptyTue Apr 19, 2011 1:35 pm

Auto được viết trên ngôn ngữ AutoIT, đã test rất đơn giản và hiệu quả Cool

Yêu cầu đối với các Tool viết bằng AutoIT là: TẮT ANTIVIRUS TRƯỚC KHI TẢI VỀ.

Chạy Auto (File Application.exe).
Vào chơi Game Kim cương, http://me.zing.vn/apps/bejeweled?_src=m, Click vào nút bắt đầu để chơi, sau đó nhanh tay di chuột vào vị trí 1x1 trên bàn kim cương(đầu tiên), và ấn số 1 để start.

Auto chơi Game Kim Cương trên Zing Me Untitled-23


Hết Game, ấn phím số 2 để tạm ngừng.
Auto được viết dựa trên hàm lấy điểm ảnh trên màn hình.
Khuyên dùng trên XP.

Video chơi:





Source:


Code:

Global $sx = 40
Global $sy = 40
Global $mx = 470 + $sx/2
Global $my = 300 + $sy/2
Global $db,$x,$y,$maze[8][8]
Global $1 = -1,$2 = -1

HotKeySet("1", "batdau")
HotKeySet("2", "tamdung")

Func batdau()
        Local $mouse = MouseGetPos()
        $mx = $mouse[0]
        $my = $mouse[1]
        $db = 1
        $x = 0
        $y = 0
EndFunc

Func tamdung()
        $db = 0
EndFunc


While 1
        For $x=0 To 7
                For $y=0 To 7
                        $maze[$x][$y] = PixelGetColor ($mx+ $x*$sx,$my+ $y*$sy)
                Next
        Next

        $1 = -1
        $2 = -1

        For $x=0 To 7
                For $y=0 To 7
                        If $db Then
                                If ($x = $1 Or $x = $1+1 Or $x = $1-1) And ($y = $2 Or $y = $2+1 Or $y = $2-1) Then ContinueLoop

                                If $x > 0 And kiemtra($x,$y,-1,0) Then
                                        click($x,$y,-1,0)
                                Else
                                        If $x < 7 And kiemtra($x,$y,1,0) Then
                                                click($x,$y,1,0)
                                        Else
                                                If $y > 0 And kiemtra($x,$y,0,-1) Then
                                                        click($x,$y,0,-1)
                                                Else
                                                        If $y < 7 And kiemtra($x,$y,0,1) Then click($x,$y,0,1)
                                                EndIf
                                        EndIf
                                EndIf
                        Else
                                Sleep(100)
                        EndIf
                Next
        Next

WEnd

Func click($x,$y,$a,$b)
        Local $mouse = MouseGetPos()
        MouseClick("left", $mx+ $x*$sx,$my+ $y*$sy, 1, 1)
        MouseClick("left", $mx+ ($x+$a)*$sx,$my+ ($y+$b)*$sy, 1, 1)
        MouseMove($mouse[0], $mouse[1], 1)
        $1 = $x
        $2 = $y
        ;MouseMove($mx+ $x*$sx,$my+ $y*$sy, 1)
        ;MouseMove($mx+ ($x+$a)*$sx,$my+ ($y+$b)*$sy, 1000)
        ;Sleep(400)
EndFunc


Func kiemtra($x,$y,$a,$b)
        If $maze[$x][$y] = $maze[$x+$a][$y+$b] Then Return
        If $a <> 0 Then
                If xetcot($x+$a,$y+$b,$maze[$x][$y]) Then Return 1
                If xethang($x+$a,$y+$b,$maze[$x][$y],$a) Then Return 1
        Else
                If xethang($x+$a,$y+$b,$maze[$x][$y]) Then Return 1
                If xetcot($x+$a,$y+$b,$maze[$x][$y],$b) Then Return 1
        EndIf
EndFunc


Func xetcot($x,$y,$dem,$mode=0)
        Local $i,$a=0
        For $i = -1 To 1
                If $y+$i < 0 Or $y + $i > 7 Then ContinueLoop
                If $dem = $maze[$x][$y+$i] Then
                        $a+=1
                        Switch $i
                                Case -1
                                        if $mode <> 1 And $y-1 > 0 And $dem = $maze[$x][$y-2] Then Return 2
                                Case 1
                                        if $mode <> -1 And $y+1 < 7 And $dem = $maze[$x][$y+2] Then Return 3
                        EndSwitch
                EndIf
        Next
        If $mode = 0 And $a > 1 Then Return 1
EndFunc

Func xethang($x,$y,$dem,$mode=0)
        Local $i,$a=0
        For $i = -1 To 1
                If $x+$i < 0 Or $x + $i > 7 Then ContinueLoop
                If $dem = $maze[$x+$i][$y] Then
                        $a+=1
                        Switch $i
                                Case -1
                                        if $mode <> 1 And $x-1 > 0 And $dem = $maze[$x-2][$y] Then Return 1
                                Case 1
                                        if $mode <> -1 And $x+1 < 7 And $dem = $maze[$x+2][$y] Then Return 1
                        EndSwitch
                EndIf
        Next
        If $mode = 0 And $a > 1 Then Return 1
EndFunc 
Download (Source and Application): http://www.ziddu.com/download/13693958/Auto-Kim-Cuong-Tren-Zing-Me.zip.html

P.s. cao nhất mình chạy auto kiếm đc 840k Very Happy
Về Đầu Trang Go down
http://letuandat.info
 
Auto chơi Game Kim Cương trên Zing Me
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» kho nam cuong
» loi hua: nam cuong, khac viet

Permissions in this forum:Bạn không có quyền trả lời bài viết
Sự trở lại của 4rum 10e1 :: Giải Trí :: Game-
Chuyển đến