New Tryout Bot

Page 1 of 2 1 2
01/31/2008 17:54 revista#1
Well... i'm not a really active member, but i read some topics.. ( never post or anything.. )

But now, i've been loking for a nice bot for Perfect world.. the manuela's tryout was kinda good... but isnt "boT" yet....

This one isn't a complete bot... i could not make it work fully... but i guess that's becuse it was done to work on another server or something like that ...

Anyways... it had many versions .. and updates...

I got it from a forum that i REALY DONT KNOW which language was ....

I'll post the bot and the forum ( they scanned the file, but of course, before download anything, make your own scans... )

Forum where i've downloaded:
[Only registered and activated users can see links. Click Here To Register...]

Direct link of the File: [Only registered and activated users can see links. Click Here To Register...]

I've made the direct download .. becuse the forum needs a register to download it... and.... well, maybe some ppl can be confused on the language to register ... and for lazy ppl ( like my self ).



Meaby someone knows what the people of that forum are talking about... and meaby they say something important to make this bot work...

And meaby someone findout how to fix the bot ...

Anyway.... it's a tryout... =]
01/31/2008 19:28 carvel1701#2
i dont even understand that language.. can some one translate it in english, sorry but i cant help you out, but if someone will.. can you please translate that one.. thx
01/31/2008 20:20 exzale#3
[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]


ps. its vietnamese ;)
01/31/2008 20:22 aznbob#4
That my friend is vietnamese. That's alot to translate, but when I have time I'll post.
01/31/2008 20:35 dragynraken#5
No matter what, the success its just an automacro, not real bot.
02/01/2008 02:45 shinest83#6
okay tested... just like what dragynraken say... is just an auto macro.... if u wanna use this type of automacro... u just have to put your character at aggresive spots.... where the mobs will atk u... or u can use WF but u must have a pet set on DEF mode and your character behind the pet keep buffing and heal.....

above all this automacro you must be min lvl 20 to use it...
02/01/2008 03:23 dragynraken#7
What if we could get a chinese friend and ask em translate all the language of the chinese bot to english so we can rewrite and edit all those words. *Just a suggestion.
02/01/2008 04:47 shinest83#8
dragynraken... can no problem.. but who is going to purchase the bot?? after purchasing... someone will translate it.. but who is going to crack it for multi user like us?? ... also if not mistaken the bot currently in chinese forums are for WF only..
02/01/2008 06:48 sspenang#9
Seems like for WF only?
02/01/2008 07:20 shinest83#10
sspenang... you can try a lvl 40 ++ char and put him at aggr area... but ppl will definetly know you are boting...
02/01/2008 08:24 syron198#11
well there r alot of automacros out there, but I've never seen a working bot, I didnt even see one on a chinese page, I guess they r coming soon.
anyways...
Does any1 know where I can get an opcodes list for all the mops and everything? Because it's kinda crazy to run around to get all the mop packets and then filtering them out. I need the opcodes, then I can go ahead with my packetbot...
I'm done with lvl1-10 mops which my tool automatically attacks, I'll post a video as soon as my "When char has less than 5 MP / HP, teleport!" function is complete. Hopefully today evening!

Peace out
02/02/2008 22:24 LemoniscooL#12
also cih find des tool is shcon ziemlcih geil funktioniert fast alles ausser das mitm pet .. aber sonst schon geil .. fehlt eig nurnoch dass die mob grafiken modifiziert werden auf ne farbe dies im game fast nich gibt und man zu dem tool nen pixel scan->klick einbaut .. dann isses nen funktionierender pixel bot und ich find das is shconmal nen anfang oder net? ^^

wenn jmd den part mit dem pixel-scan machn könnte hier is der source vom prog:

Code:
#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: [Only registered and activated users can see links. Click Here To Register...]", 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
02/03/2008 00:51 HyperActive01#13
Is the Code For Autopot/AutoSkill Etc........ For Macro @_@
02/03/2008 01:04 LemoniscooL#14
its the code for this tool yea and u can make a pixel bot out of it just until any packet bot is released... i dun really know how but anyways im trying it ^^ if i succeed ill post here but idk if i will succeed ^^ maybe sum other guy can try it too :)

greetz
04/04/2008 07:47 wasder#15
does anyone knows a good prog to auto start and auto stop this macro(tool for pw v2.1), lets say run it for about 4 hours and then pause for 30mins and then resume the macro prog again in a loop?
Page 1 of 2 1 2