Chào các bạn lần trước mình đã post chương trình 2 acc bây giờ mình post tiếp chương trình hỗ trợ game TGHM do mình tự viết nha.Đi thăng vào vấn đề luôn:
***Update Tool For PW v3.2 :Download here
v3.2:
- Thêm chúc năng điều pet (để pet ở chế độ phòng thủ rồi kết hợp với chúc năng điều pet của tool, pet sẽ vừa chủ động tấn công những con mob mà bạn target vừa tấn công những con tấn nó hoặc bạn).
- Thêm chức năng bấm skill của pet (Khuyên bạn nên để thời gian chờ ngắn thôi dùng để đúng theo thời gian hồi của skill).
v:3.1
- Tăng số lượng skill từ 4 -- > 6.
- Thêm chức năng tự đông cho thú ăn (6' cho ăn 1 lần).
- Thêm chức năng tự động bơm máu cho thú.
- Chương trình chạy ổn định hơn do cửa sổ game sẽ được cố định tại 1 vị trí và phương thức tính thời gian đã được thay đổi.
- Sửa lỗi phím tắt bị trùng với phím điều Pet của tiên thú.
*Các chức năng chính:
-Giúp chơi 2 Acc TGHM hoặc nhiều hơn.
-Auto HP :Tự động ăn Máu.
-Auto MP :Tự động ăn Mama.
-Auto pickup :Tự động nhặt đồ.
-Auto skill : bán tự động (Bạn vẫn phải tự kích chuột vào quái).
-Tự động cho pet ăn.
-Tự động bơm máu cho pet.
-Chức năng set password cho việc ẩn hiện cửa sổ game (Password này là pass để ngăn không cho người khác hiện thị cửa sổ game hoàn toàn không liên quan gì đến pass đăng nhập của game.)
-Ẩn của sổ game.
-Ẩn chính nó.
*Các hotkeys được sử dụng trong tool :
-Auto HP F9
-Auto MP F10
-Auto Pickup Item F11
-Skill 1 Shift + Ctrl + 1
-Skill 2 Shift + Ctrl + 2
-Skill 3 Shift + Ctrl + 3
-Skill 4 Shift + Ctrl + 4
-Skill 5 Shift + Ctrl + 5
-Skill 6 Shift + Ctrl + 6
-Feed Pet Shift + Ctrl + F
-Buff Pet Shift + Ctrl + B
-Start or stop all Alt + S (Bật hoặc tắt tất cả các chức năng)
-Change name Alt + C (Đổi tên cửa sổ game để có thể chơi nhiều Acc)
-Show or hide PW Alt + H (Ẩn hiện của sổ game)
-Show or hide Tool for PW Shift + Alt + H (Ẩn hiện Tool)
-Quit Alt + Q (Thoát)
*Hướng đẫn sơ qua:
-Chạy Tool for PW.
-Gõ tên cửa sổ mà bạn muốn dùng ToolForWindows vào ô Focus name.
Mặc định là "Element Client".Nhưng nếu bạn đã đổi tên của sổ thì phải gõ đúng tên chính xác bạn đổi vào -Có phân biệt chũ hoa chữ thừơng-.
-Hướng đẫn chơi mutil acc:
+Gõ tên của sổ mà bạn muốn đổi thành vào ô Forcus Name.
VD: "Acc Ban Do"
+Bấm tổ hợp phím Alt + C để đổi tên cửa sổ.VD: sau khi bấm Alt + C thì cửa sổ mang tên "Element Client" sẽ đổi thành "Acc Ban Do".
+Sau khi đã đổi tên của sổ thì lúc này bạn có thể mởi thêm 1 acc khác và chơi.
*Mình post thêm Code để ai biết AutoIT có thể tự sửa :
*Chú ý :
-Chương trình chỉ chạy tốt khi bạn đáp ứng được các yêu cầu sau:
+Chạy game TGHM dưới chế độ cửa sổ: 800x600.
+Độ phân giải của màn hình là: 1024x768.
+Giao diện của windows là Window XP.
+Không được di chuyển của sổ game.
-Chú ý quan trọng nhất là mình sẽ không chịu trách nhiệm nếu bạn dùng Tool for PW không phải dow từ đường link do mình cung cấp
*Nếu cần hỏi gì thì có thể liên hệ với mình ở trong game
Charater : Water_102
Class: Vũ Linh
Sever: Chu Tước
hoặc
yahoo : water_102102
Gmail :[email protected]
*Cuối cùng chúc các bạn chơi Game vui vẻ.
***Update Tool For PW v3.2 :Download here
v3.2:
- Thêm chúc năng điều pet (để pet ở chế độ phòng thủ rồi kết hợp với chúc năng điều pet của tool, pet sẽ vừa chủ động tấn công những con mob mà bạn target vừa tấn công những con tấn nó hoặc bạn).
- Thêm chức năng bấm skill của pet (Khuyên bạn nên để thời gian chờ ngắn thôi dùng để đúng theo thời gian hồi của skill).
v:3.1
- Tăng số lượng skill từ 4 -- > 6.
- Thêm chức năng tự đông cho thú ăn (6' cho ăn 1 lần).
- Thêm chức năng tự động bơm máu cho thú.
- Chương trình chạy ổn định hơn do cửa sổ game sẽ được cố định tại 1 vị trí và phương thức tính thời gian đã được thay đổi.
- Sửa lỗi phím tắt bị trùng với phím điều Pet của tiên thú.
*Các chức năng chính:
-Giúp chơi 2 Acc TGHM hoặc nhiều hơn.
-Auto HP :Tự động ăn Máu.
-Auto MP :Tự động ăn Mama.
-Auto pickup :Tự động nhặt đồ.
-Auto skill : bán tự động (Bạn vẫn phải tự kích chuột vào quái).
-Tự động cho pet ăn.
-Tự động bơm máu cho pet.
-Chức năng set password cho việc ẩn hiện cửa sổ game (Password này là pass để ngăn không cho người khác hiện thị cửa sổ game hoàn toàn không liên quan gì đến pass đăng nhập của game.)
-Ẩn của sổ game.
-Ẩn chính nó.
*Các hotkeys được sử dụng trong tool :
-Auto HP F9
-Auto MP F10
-Auto Pickup Item F11
-Skill 1 Shift + Ctrl + 1
-Skill 2 Shift + Ctrl + 2
-Skill 3 Shift + Ctrl + 3
-Skill 4 Shift + Ctrl + 4
-Skill 5 Shift + Ctrl + 5
-Skill 6 Shift + Ctrl + 6
-Feed Pet Shift + Ctrl + F
-Buff Pet Shift + Ctrl + B
-Start or stop all Alt + S (Bật hoặc tắt tất cả các chức năng)
-Change name Alt + C (Đổi tên cửa sổ game để có thể chơi nhiều Acc)
-Show or hide PW Alt + H (Ẩn hiện của sổ game)
-Show or hide Tool for PW Shift + Alt + H (Ẩn hiện Tool)
-Quit Alt + Q (Thoát)
*Hướng đẫn sơ qua:
-Chạy Tool for PW.
-Gõ tên cửa sổ mà bạn muốn dùng ToolForWindows vào ô Focus name.
Mặc định là "Element Client".Nhưng nếu bạn đã đổi tên của sổ thì phải gõ đúng tên chính xác bạn đổi vào -Có phân biệt chũ hoa chữ thừơng-.
-Hướng đẫn chơi mutil acc:
+Gõ tên của sổ mà bạn muốn đổi thành vào ô Forcus Name.
VD: "Acc Ban Do"
+Bấm tổ hợp phím Alt + C để đổi tên cửa sổ.VD: sau khi bấm Alt + C thì cửa sổ mang tên "Element Client" sẽ đổi thành "Acc Ban Do".
+Sau khi đã đổi tên của sổ thì lúc này bạn có thể mởi thêm 1 acc khác và chơi.
*Mình post thêm Code để ai biết AutoIT có thể tự sửa :
Mã:
#include <GUIConstants.au3>
#include "MyLibrary.au3"
#NoTrayIcon
Dim $ProName = "Tool for PW v3.1", $OldName = "Element Client", $FName
Dim $isSetPass = False, $KeyHAS = False, $KeySHASS = False, $KeySAOSA = False, $KeyFPet = False, $KeyBPet = False
Dim $KeyHP = False, $KeyMP = False, $KeyPickup = False, $KeySkill[6]
Dim $LineCharHPStart = 135, $LineCharHPStop = 270, $LineCharHPx, $LineCharHPy = 60, $CharHPColor = 0
Dim $LineCharMPStart = 135, $LineCharMPStop = 270, $LineCharMPx, $LineCharMPy = 70, $CharMPColor = 0
Dim $LinePetHPStart = 67, $LinePetHPStop = 130, $LinePetHPx, $LinePetHPy = 172, $PetHPColor = 0
Dim $LineMobHPx = 463, $LineMobHPy = 67, $MobHPColor = 0
Dim $ListButton = "1|2|3|4|5|6|F1|F2|F3|F4|F5|F6|F7|F8"
Dim $TimeHP = 0, $TimeMP = 0, $TimePU = 0, $TimeFPet = 350, $TimeBPet = 0, $TimeS[6]
Dim $MI_Skill[6], $BSInput[6],$TInput[6], $ButtonS[6], $TimeOutS[6]
Dim $HPButton, $MPButton, $BPickup, $ButtonFPet, $ButtonBPet
Dim $Past = 0, $Now = 0
$KeySkill[0] = False
$KeySkill[1] = False
$KeySkill[2] = False
$KeySkill[3] = False
$KeySkill[4] = False
$KeySkill[5] = False
$TimeS[0] = 0
$TimeS[1] = 0
$TimeS[2] = 0
$TimeS[3] = 0
$TimeS[4] = 0
$TimeS[5] = 0
;============================HotKey===================
HotKeySet("{F9}","AutoHP")
HotKeySet("{F10}","AutoMP")
HotKeySet("{F11}","AutoPickup")
HotKeySet("+^1","Skill1")
HotKeySet("+^2","Skill2")
HotKeySet("+^3","Skill3")
HotKeySet("+^4","Skill4")
HotKeySet("+^5","Skill5")
HotKeySet("+^6","Skill6")
HotKeySet("+^f","FeedPet")
HotKeySet("+^b","BuffPet")
HotKeySet("!+h","ShowPasswordDialog")
HotKeySet("!h","SHASS")
HotKeySet("!s","StartOrStopAll")
HotKeySet("!q","Quit")
HotKeySet("!r","Read")
;============================Form===================
#Region ### START Koda GUI
$ToolForPW = GUICreate($ProName, 203, 314, (@DesktopWidth - 203), 0)
$Tab1 = GUICtrlCreateTab(2, 0, 200, 291)
$TabSheet1 = GUICtrlCreateTabItem("Option")
$Label1 = GUICtrlCreateLabel("Focus Name", 6, 31, 75, 19)
$FNInput = GUICtrlCreateInput("Element Client", 81, 27, 120, 23)
$Label2 = GUICtrlCreateLabel("Auto HP", 6, 55, 48, 19)
$BHPInput = GUICtrlCreateCombo("", 81, 51, 50, 25)
GUICtrlSetData(-1,$ListButton,"F8")
$PHPInput = GUICtrlCreateCombo("", 136, 51, 50, 25)
GUICtrlSetData(-1,$ListPer,"80")
$Label3 = GUICtrlCreateLabel("%", 186, 55, 15, 19)
$Label4 = GUICtrlCreateLabel("Auto MP", 6, 81, 48, 19)
$BMPInput = GUICtrlCreateCombo("", 81, 77, 50, 25)
GUICtrlSetData(-1,$ListButton,"F7")
$PMPInput = GUICtrlCreateCombo("", 136, 77, 50, 25)
GUICtrlSetData(-1,$ListPer,"30")
$Label5 = GUICtrlCreateLabel("%", 186, 81, 15, 19)
$Label6 = GUICtrlCreateLabel("Pickup Item", 6, 107, 68, 19)
$BPInput = GUICtrlCreateCombo("", 81, 102, 105, 25)
GUICtrlSetData(-1,$ListButton,"F6")
$Label7 = GUICtrlCreateLabel("Skill 1", 6, 133, 37, 19)
$BSInput[0] = GUICtrlCreateCombo("", 81, 128, 50, 25)
GUICtrlSetData(-1,$ListButton,"1")
$TInput[0] = GUICtrlCreateInput("2", 136, 128, 50, 25)
$Label8 = GUICtrlCreateLabel("s", 187, 133, 11, 19)
$Label9 = GUICtrlCreateLabel("Skill 2", 6, 158, 37, 19)
$BSInput[1] = GUICtrlCreateCombo("", 81, 154, 50, 25)
GUICtrlSetData(-1,$ListButton,"2")
$TInput[1] = GUICtrlCreateInput("3", 136, 154, 50, 25)
$Label10 = GUICtrlCreateLabel("s", 187, 159, 11, 19)
$Label11 = GUICtrlCreateLabel("Skill 3", 6, 182, 37, 19)
$BSInput[2] = GUICtrlCreateCombo("", 81, 180, 50, 25)
GUICtrlSetData(-1,$ListButton,"3")
$TInput[2] = GUICtrlCreateInput("5", 136, 180, 50, 25)
$Label12 = GUICtrlCreateLabel("s", 187, 184, 11, 19)
$Label13 = GUICtrlCreateLabel("Skill 4", 6, 206, 37, 19)
$BSInput[3] = GUICtrlCreateCombo("", 81, 206, 50, 25)
GUICtrlSetData(-1,$ListButton,"4")
$TInput[3] = GUICtrlCreateInput("7", 136, 206, 50, 25)
$Label14 = GUICtrlCreateLabel("s", 187, 210, 11, 19)
$Label15 = GUICtrlCreateLabel("Skill 5", 6, 235, 37, 19)
$BSInput[4] = GUICtrlCreateCombo("", 81, 232, 50, 25)
GUICtrlSetData(-1,$ListButton,"5")
$TInput[4] = GUICtrlCreateInput("9", 136, 232, 50, 23)
$Label16 = GUICtrlCreateLabel("s", 189, 236, 11, 19)
$Label17 = GUICtrlCreateLabel("Skill 6", 6, 261, 37, 19)
$BSInput[5] = GUICtrlCreateCombo("", 81, 258, 50, 25)
GUICtrlSetData(-1,$ListButton,"6")
$TInput[5] = GUICtrlCreateInput("11", 136, 258, 50, 23)
$Label18 = GUICtrlCreateLabel("s", 189, 261, 11, 19)
$TabSheet2 = GUICtrlCreateTabItem("Pet")
$Label19 = GUICtrlCreateLabel("Buff for pet", 6, 129, 66, 20)
$BBPetInput = GUICtrlCreateCombo("", 81, 125, 50, 25)
GUICtrlSetData(-1,$ListButton,"F1")
$PHPPetInput = GUICtrlCreateCombo("", 136, 125, 50, 25)
GUICtrlSetData(-1,$ListPer,"50")
$Label20 = GUICtrlCreateLabel("%", 186, 129, 14, 18)
$Label21 = GUICtrlCreateLabel("Auto feed", 6, 155, 59, 20)
$BFPetInput = GUICtrlCreateCombo("", 81, 150, 105, 25)
GUICtrlSetData(-1,$ListButton,"F2")
$TabSheet3 = GUICtrlCreateTabItem("About")
$Label22 = GUICtrlCreateLabel("Copyright: Water102", 6, 84, 115, 19)
$Label23 = GUICtrlCreateLabel($ProName, 6, 33, 183, 30)
GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
$Label24 = GUICtrlCreateLabel("Emai: [email protected]", 6, 134, 185, 19)
$Label25 = GUICtrlCreateLabel("Yahoo: Water_102102", 6, 109, 126, 19)
$Pic1 = GUICtrlCreatePic("water-flame-fantasy03.jpg", 6, 157, 190, 128)
$Label26 = GUICtrlCreateLabel("09/01/2008", 123, 63, 66, 19)
GUICtrlCreateTabItem("")
$MenuItem1 = GUICtrlCreateMenu("&HotKeys")
$MI_ChangeName = GUICtrlCreateMenuItem("Change name Alt + C", $MenuItem1)
$MI_AutoHP = GUICtrlCreateMenuItem("Auto HP F9", $MenuItem1)
$MI_AutoMP = GUICtrlCreateMenuItem("Auto MP F10", $MenuItem1)
$MI_PickupItem = GUICtrlCreateMenuItem("Pickup Item F11", $MenuItem1)
$MI_Skill[0] = GUICtrlCreateMenuItem("Skill 1 Shift + Ctrl + 1", $MenuItem1)
$MI_Skill[1] = GUICtrlCreateMenuItem("Skill 2 Shift + Ctrl + 2", $MenuItem1)
$MI_Skill[2] = GUICtrlCreateMenuItem("Skill 3 Shift + Ctrl + 3", $MenuItem1)
$MI_Skill[3] = GUICtrlCreateMenuItem("Skill 4 Shift + Ctrl + 4", $MenuItem1)
$MI_Skill[4] = GUICtrlCreateMenuItem("Skill 5 Shift + Ctrl + 5", $MenuItem1)
$MI_Skill[5] = GUICtrlCreateMenuItem("Skill 6 Shift + Ctrl + 6", $MenuItem1)
$MI_FeedPet = GUICtrlCreateMenuItem("Feed Pet Shift + Ctrl + F", $MenuItem1)
$MI_BuffPet = GUICtrlCreateMenuItem("Buff Pet Shift + Ctrl + B", $MenuItem1)
$MI_SoH = GUICtrlCreateMenuItem("Show / Hide PW Shift + Alt + H", $MenuItem1)
$MI_SSoSH = GUICtrlCreateMenuItem("Show / Hide this tool Alt + H", $MenuItem1)
$MI_StartOrStopAll = GUICtrlCreateMenuItem("Start / Stop all Alt + S", $MenuItem1)
$MI_Quit = GUICtrlCreateMenuItem("Quit Alt + Q", $MenuItem1)
GUISetState(@SW_SHOW)
$PasswordDialog = GUICreate("Password Dialog", 250, 90, -1, -1, BitOR($WS_SYSMENU,$WS_POPUP))
$EnterPassLabel = GUICtrlCreateLabel("Enter password", 10, 10, 87, 19)
$InputPassword = GUICtrlCreateInput("", 100, 10, 140, 22, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetLimit(-1, 12)
$Btn_Ok = GUICtrlCreateButton("&Hide", 40, 37, 80, 27, 0)
$Btn_Cancel = GUICtrlCreateButton("&Cancel", 130, 37, 80, 27, 0)
#EndRegion ### END Koda GUI section ###
;============================Code===================
While True
$nMsg = GUIGetMsg()
$Now = @SEC
If ($Past == 59) And ($Now < 59) Then
$Now = 60
EndIf
If ($Now - $Past) >= 1 Then
$Past = @SEC
If $KeyHP = True Then
$TimeHP += 1
EndIf
If $KeyMP = True Then
$TimeMP += 1
EndIf
If $KeyPickup = True Then
$TimePU += 1
EndIf
For $i = 5 to 0 Step -1
If $KeySkill[$i] = True Then
$TimeS[$i] += 1
EndIf
Next
If $KeyFPet = True Then
$TimeFPet += 1
EndIf
If $KeyBPet = True Then
$TimeBPet += 1
EndIf
EndIf
If WinActive($FName) Then
If ($KeyHP = True) And (PixelGetColor($LineCharHPx, $LineCharHPy) = $CharHPColor) And ($TimeHP >= 16) Then
PressButton($HPButton)
$TimeHP = 0
EndIf
If ($KeyMP = True) And (PixelGetColor($LineCharMPx, $LineCharMPy) = $CharMPColor) And ($TimeMP >= 16) Then
PressButton($MPButton)
$TimeMP = 0
EndIf
For $i = 5 to 0 Step-+1
If ($KeySkill[$i] = True) And ($TimeS[$i] >= $TimeOutS[$i]) And (PixelGetColor($LineCharMPStart, $LineCharMPy) <> $CharMPColor) Then
PressButton($ButtonS[$i])
$TimeS[$i] = 0
EndIf
Next
If ($KeyPickup = True) And (PixelGetColor($LineMobHPx, $LineMobHPy) <> $MobHPColor) And ($TimePU >= 1) Then
PressButton($BPickup)
$TimePU = 0
EndIf
If ($KeyFPet = True) And ($TimeFPet >= 360) Then
PressButton($ButtonFPet)
$TimeFPet = 0
EndIf
If ($KeyBPet = True) And (PixelGetColor($LinePetHPx, $LinePetHPy) = $PetHPColor) And ($TimeBPet >= 1) Then
PressButton($ButtonBPet)
$TimeBPet = 0
EndIf
EndIf
Switch $nMsg
Case $MI_SoH
ShowPasswordDialog()
Case $MI_ChangeName
ChangeName()
Case $MI_AutoHP
AutoHP()
Case $MI_AutoMP
AutoMP()
Case $MI_PickupItem
AutoPickup()
Case $MI_Skill[0]
Skill1()
Case $MI_Skill[1]
Skill2()
Case $MI_Skill[2]
Skill3()
Case $MI_Skill[3]
Skill4()
Case $MI_Skill[4]
Skill5()
Case $MI_Skill[5]
Skill6()
Case $MI_FeedPet
FeedPet()
Case $MI_BuffPet
BuffPet()
Case $MI_StartOrStopAll
Start()
Case $Btn_Ok
If $isSetPass = False Then
GUISetState(@SW_HIDE, $PasswordDialog)
HideAndShow()
GuiCtrlSetData($Btn_Ok, "&Show")
$Password = GUICtrlRead($InputPassword)
$isSetPass = True
ElseIf GUICtrlRead($InputPassword) = $Password Then
GUISetState(@SW_HIDE, $PasswordDialog)
HideAndShow()
GuiCtrlSetData($Btn_Ok, "&Hide")
$Password = ""
$isSetPass = False
Else
GuiCtrlSetData($InputPassword, "")
Alert("(o_O)", "Password is wrong!", 1000)
EndIf
Case $Btn_Cancel
GUISetState(@SW_HIDE, $PasswordDialog)
EndSwitch
If ($nMsg = $MI_Quit) or ($nMsg = $GUI_EVENT_CLOSE) Then
Quit()
EndIf
WEnd
;============================Function===================
Func StartOrStopAll()
$KeySAOSA = Not $KeySAOSA
If $KeySAOSA = True Then
If Start() = True Then
$KeyHP = True
$KeyMP = True
$KeyPickup = True
$KeySkill[0] = True
$KeySkill[1] = True
$KeySkill[2] = True
$KeySkill[3] = True
Alert("", "Start all." ,"")
Else
$KeySAOSA = False
$KeyHP = False
$KeyMP = False
$KeyPickup = False
$KeySkill[0] = False
$KeySkill[1] = False
$KeySkill[2] = False
$KeySkill[3] = False
EndIf
Else
$KeyHP = False
$KeyMP = False
$KeyPickup = False
$KeySkill[0] = False
$KeySkill[1] = False
$KeySkill[2] = False
$KeySkill[3] = False
Alert("", "Stop all." ,"")
EndIf
EndFunc
Func AutoHP()
$KeyHP = Not $KeyHP
If $KeyHP = True Then
If Start() = True Then
Alert("", "Auto HP Start" ,"")
Else
$KeyHP = False
EndIf
Else
Alert("", "Auto HP Stop." ,"")
EndIf
EndFunc
Func AutoMP()
$KeyMP = Not $KeyMP
If $KeyMP = True Then
If Start() = True Then
Alert("", "Auto MP Start" ,"")
Else
$KeyMP = False
EndIf
Else
Alert("", "Auto MP Stop." ,"")
EndIf
EndFunc
Func Skill1()
$KeySkill[0] = Not $KeySkill[0]
If $KeySkill[0] = True Then
If Start() = True Then
Alert("", "Auto Skill 1 Start." ,"")
Else
$KeySkill[0] = False
EndIf
Else
Alert("", "Auto Skill 1 Stop." ,"")
EndIf
EndFunc
Func Skill2()
$KeySkill[1] = Not $KeySkill[1]
If $KeySkill[1] = True Then
$FName = GUICtrlRead($FNInput)
If Start() = True Then
Alert("", "Auto Skill 2 Start." ,"")
Else
$KeySkill[1] = False
EndIf
Else
Alert("", "Auto Skill 2 Stop." ,"")
EndIf
EndFunc
Func Skill3()
$KeySkill[2] = Not $KeySkill[2]
If $KeySkill[2] = True Then
If Start() = True Then
Alert("", "Auto Skill 3 Start." ,"")
Else
$KeySkill[2] = False
EndIf
Else
Alert("", "Auto Skill 3 Stop." ,"")
EndIf
EndFunc
Func Skill4()
$KeySkill[3] = Not $KeySkill[3]
If $KeySkill[3] = True Then
If Start() = True Then
Alert("", "Auto Skill 4 Start." ,"")
Else
$KeySkill[3] = False
EndIf
Else
Alert("", "Auto Skill 4 Stop." ,"")
EndIf
EndFunc
Func Skill5()
$KeySkill[4] = Not $KeySkill[4]
If $KeySkill[4] = True Then
If Start() = True Then
Alert("", "Auto Skill 5 Start." ,"")
Else
$KeySkill[4] = False
EndIf
Else
Alert("", "Auto Skill 5 Stop." ,"")
EndIf
EndFunc
Func Skill6()
$KeySkill[5] = Not $KeySkill[5]
If $KeySkill[5] = True Then
If Start() = True Then
Alert("", "Auto Skill 6 Start." ,"")
Else
$KeySkill[5] = False
EndIf
Else
Alert("", "Auto Skill 6 Stop." ,"")
EndIf
EndFunc
Func FeedPet()
$KeyFPet = Not $KeyFPet
If $KeyFPet = True Then
If Start() = True Then
Alert("", "Auto feed for pet start." ,"")
Else
$KeyFPet = False
EndIf
Else
Alert("", "Auto feed for pet stop." ,"")
EndIf
EndFunc
Func BuffPet()
$KeyBPet = Not $KeyBPet
If $KeyBPet = True Then
If Start() = True Then
Alert("", "Auto buff for pet start." ,"")
Else
$KeyBPet = False
EndIf
Else
Alert("", "Auto buff for pet stop." ,"")
EndIf
EndFunc
Func ShowPasswordDialog()
$FName = GUICtrlRead($FNInput)
If WinExists($FName) = True Then
GuiCtrlSetData($InputPassword, "")
GUISetState(@SW_SHOW, $PasswordDialog)
Else
Alert("(O_o)", "Khong ton tai cua so co ten" & $FName, 2000)
EndIf
EndFunc
Func Read()
$HPButton = GUICtrlRead($BHPInput)
$MPButton = GUICtrlRead($BMPInput)
$HPPer = GUICtrlRead($PHPInput)
$MPPer = GUICtrlRead($PMPInput)
$HPPetPer = GUICtrlRead($PHPPetInput)
$LineCharHPx = Int((($LineCharHPStop - $LineCharHPStart)/100)*$HPPer + $LineCharHPStart)
$LineCharMPx = Int((($LineCharMPStop - $LineCharMPStart)/100)*$MPPer + $LineCharMPStart)
$LinePetHPx = Int((($LinePetHPStop - $LinePetHPStart)/100)*$HPPetPer + $LinePetHPStart)
$BPickup = GUICtrlRead($BPInput)
$ButtonFPet = GUICtrlRead($BFPetInput)
$ButtonBPet = GUICtrlRead($BBPetInput)
For $i = 0 to 3 Step +1
$ButtonS[$i] = GUICtrlRead($BSInput[$i])
$TimeOutS[$i] = GUICtrlRead($TInput[$i])
Next
For $y = 0 to 4 Step +1
For $i = 0 to 4 Step +1
If (Number($TimeOutS[$i]) > Number($TimeOutS[$i + 1])) Then
$Temp = $ButtonS[$i]
$ButtonS[$i] = $ButtonS[$i + 1]
$ButtonS[$i + 1] = $Temp
$Temp = $TimeOutS[$i]
$TimeOutS[$i] = $TimeOutS[$i + 1]
$TimeOutS[$i + 1] = $Temp
EndIf
Next
Next
$TimeHP = 0
$TimeMP = 0
$TimePU = 0
$TimeS[0] = 0
$TimeS[1] = 0
$TimeS[2] = 0
$TimeS[3] = 0
$TimeS[4] = 0
$TimeS[5] = 0
$TimeFPet = 350
$TimeBPet = 0
EndFunc
Dim $DesktopCenterX = (@DesktopWidth/2)
Dim $DesktopCenterY = (@DesktopHeight/2)
Dim $ListPer = "10|20|30|40|50|60|70|80|90"
Func Start()
$FName = GUICtrlRead($FNInput)
if WinExists ($FName) Then
WinActivate ($FName)
WinMove ($FName, "", 0, 0, 800, 600)
Read()
Return True
Else
Alert("(O_o)", "Khong ton tai cua so co ten: " & $FName, 2000)
Return False
EndIf
EndFunc
Func ChangeName()
$FName = GUICtrlRead($FNInput)
if WinExists ($OldName) Then
WinSetTitle($OldName, "", $FName)
Else
Alert("(O_o)", "Khong ton tai cua so co ten: " & $OldName, 2000)
EndIf
EndFunc
Func AutoPickup()
$KeyPickup = Not $KeyPickup
If $KeyPickup = True Then
If Start() = True Then
Alert("", "Auto PickUp Start.", "")
Else
$KeyPickup = False
EndIf
Else
Alert("", "Auto PickUp Stop.", "")
EndIf
EndFunc
Func Alert($Title, $Conten, $SleepTime)
If $SleepTime = "" Then
$SleepTime = 1000
EndIf
If $Title = "" Then
$Title = "(^_^)"
EndIf
ToolTip($Conten, $DesktopCenterX, $DesktopCenterY, $Title)
Sleep($SleepTime)
ToolTip("")
EndFunc
Func HideAndShow()
$KeyHAS = not $KeyHAS
If $KeyHAS = True Then
WinSetState($FName, "", @SW_HIDE)
Else
WinSetState($FName, "", @SW_SHOW)
EndIf
EndFunc
Func SHASS()
$KeySHASS = not $KeySHASS
If $KeySHASS = True Then
WinSetState($ProName, "", @SW_HIDE)
Else
WinSetState($ProName, "", @SW_SHOW)
EndIf
EndFunc
Func PressButton($Button)
$Button = "{" & $Button & "}"
WinActive($FName)
Send($Button)
EndFunc
Func Quit()
Alert("(^_^)", "Bye bye", 1000)
Exit
EndFunc*Chú ý :
-Chương trình chỉ chạy tốt khi bạn đáp ứng được các yêu cầu sau:
+Chạy game TGHM dưới chế độ cửa sổ: 800x600.
+Độ phân giải của màn hình là: 1024x768.
+Giao diện của windows là Window XP.
+Không được di chuyển của sổ game.
-Chú ý quan trọng nhất là mình sẽ không chịu trách nhiệm nếu bạn dùng Tool for PW không phải dow từ đường link do mình cung cấp
*Nếu cần hỏi gì thì có thể liên hệ với mình ở trong game
Charater : Water_102
Class: Vũ Linh
Sever: Chu Tước
hoặc
yahoo : water_102102
Gmail :[email protected]
*Cuối cùng chúc các bạn chơi Game vui vẻ.
Được mấy ai tử tế đâu , vietnammese >"<
tui scan lại roài , nhưng ko xài :whew: chã mún lấy acc mình ra đánh cược , trong khi tự cày đc :hug:
