AutoIt Hazır Macro: WoW LockPicking: Kod: Dim $terminate Dim $chest1x Dim $chest1y Dim $chest2x Dim $chest2y Dim $delay $terminate=0 $delay=5 $iniLocation = "lockpick. ini" HotKeySet WinActivate Sleep(2000) If FileExists then ReadINI Else $temp=MsgBox(4, "AFK LockPicking Macro", "Welcome to Armypunk's AFK LockPicking Macro!" & @CRLF & "_ Would you like to begin setup?") If $temp 6 Then SetUp else Exit(0) EndIf EndIf Do Menu Until $return 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Menu $return = 1 $terminate = 0 $option=InputBox("Main Menu", "1) Start LockPicking (Press to stop)" & @CRLF & "_ 2) Set Chest Locations" & @CRLF & "_ 3) Set Delay: " & $delay & @CRLF & "_ 4) Save Current Configuration" & @CRLF & "_ 5) Quit Macro", "", "", 300, 200) If @error = 1 then Exit(0) $return = 0 elseif $option > 5 OR $option < 1 then MsgBox(262144,"Error","You may only enter a number in the range of 1-5") endif Select Case $option=1 Pick Case $option=2 SetChestLoc Case $option=3 SetDelay Case $option=4 WriteINI Case $option=5 Exit(0) $return=0 Case Else EndSelect If $return Then Menu EndIf EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Pick While 1 if $terminate = 1 then Return endif MouseClick("right",$chest1x,$chest1y) Sleep($delay 1000) MouseClick("right",$chest2x,$chest2y) Sleep($delay 1000) Wend EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Terminate $terminate = 1 EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Close MsgBox(32, "Exit", "Thank you for using Armypunk's AFK Fishing Macro") Exit(0) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func ReadINI $delay=IniRead($iniLocation, "timers", "delay", 5) $chest1x=IniRead($iniLocation, "config", "chest1x", 0) $chest1y=IniRead($iniLocation, "config", "chest1y", 0) $chest2x=IniRead($iniLocation, "config", "chest2x", 0) $chest2y=IniRead($iniLocation, "config", "chest2y", 0) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func WriteINI $handle=FileOpen($iniLocation, 2) $temp=FileWriteLine $temp=FileWriteLine $temp=FileWriteLine $temp=FileWriteLine $temp=FileWriteLine($handle, "chest1x=" & $chest1x) $temp=FileWriteLine($handle, "chest1y=" & $chest1y) $temp=FileWriteLine($handle, "chest2x=" & $chest2x) $temp=FileWriteLine($handle, "chest2y=" & $chest2y) FileClose EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func SetChestLoc WinActivate Sleep(2000) for $x = 1 to 2 MsgBox(48, "Set Location", "After closing this window by clicking OK, move the mouse over the" & @CRLF & _ "location for the chest and wait for 5 seconds.") WinActivate Sleep(5000) $temp=MouseGetPos if $x = 1 then $chest1x=$temp $chest1y=$temp MsgBox(0,"Set","Chest location

Bu macro programlari kendi içerisinde kodlamalarla oyunlarda macro uygulamanizi sağlar. bu programlar için buldugum hazır kodları burada yayinlayacagim. Bu programlar Knight, Lineage, Wow, Ultima v. b. rpg oyunlarında macro yapabilmenizi saglar. 1- AutoIt Download Adresi: http://www.autoitscript.com/autoit3/downloads. php Kodlama ve Kullanim İçin: http://www.autoitscript.com/autoit3/index. php http://www.autoitscript.com/autoit3/docs/ Forum Destegi: http://www.autoitscript.com/forum/index. php? 2-AcTool Download: http://www.actool.net/ Kodlama Bilgileri: http://207.58.143.100/actoolfaq.html 3-Forceshock Web Sitesi: http://forceshock.net/ Download: http://www.hemenpaylas.com/download/637676/forceshock_pro_installer. rar.html Güncel Sürüm İçin: http://www.forceshock.net/index. php?page=4 Forumlari: http://www.forceshock.net/forum/ Quick Macro: Download: http://www.softcows.com/quick_macro.htm Ghost Mouse 2.0: Mouse hareketlerinizi, tıklamaları v. s. kaydeder ve tekrarlar. Download: ftp://ftp. externet. hu/pub/mirror/sac/utilmisc/gmouse20. zip -

Forceshock İçin Hazır Macrolar: WoW Hunter ve Rogue Botu => http://www.paylas.com/download/378604053/huntroguebot. rar.html WoW Speed Hack: 1file called speedhack. fss with this code in it: Kod: include include include -- ; The control window function window_open gui = OpenGui("Homemade TEle",500,950) Sleep(100) list_cr = AddList(gui,7,10,486,900) go_TP = AddButton(gui," TP ",2,920,30,30) ExitOnGuiClose end OpenConsole SetConsoleTitle window_open wow_ready = 0 while wow_ready 0 do PrintConsole i = 1 while 1 do PrintConsole hWnd = FindWindowByExe if hWnd > 0 then if Process. GetVersion _WOW_VERSION then PrintConsoleLine wow_ready = 1 break end i = i + 1 if i > 10 then PrintConsoleLine PrintConsoleLine break end Sleep(100) end end tn = toon. init while tn nil do Sleep(5000) PrintConsoleLine tn = toon. init end tn:refresh PrintConsoleLine PrintConsoleLine PrintConsoleLine PrintConsoleLine PrintConsoleLine PrintConsoleLine resultat = WriteDword(tn. hWnd, tn. ptr_internal_tracking,255) resultat = WriteDword(tn. hWnd, tn. ptr_internal_ressources,255) resultat = WriteFloat(tn. hWnd, tn. ptr_internal_speed,20) end a file called offsets. inc with this code: Kod: -- ; 9.6.2005 Fixed by Outlaw for WoW 1.5.0 -- ; WoW 1.5.0 _WOW_VERSION = "1, 5, 0, 4442" -- ; NPC HOOK _npc_hook_addr = "46F810" -- ; FUNCTIONS _function_GetPlayerPtr = "45D480" -- ; PLAYER OFFSETS _player_unit_struct = "8" _player_hitpoints = "1E98" _player_mana = "1E9C" _player_maxmana = "18" _player_maxhp = "18" _player_current_xp = "27B0" _player_max_xp = "27B4" -- // _player_alive = "20F5" -- // does not work -- // _player_form = "2096" -- // does not work -- // _player_combo = "2FB1" -- // does not work -- // _player_level = "1EC8" -- // works but not needed _player_rage = "4" _player_energy = "8" _player_facing = "93C" _player_internal_z = "4" _player_internal_y = "4" _player_internal_x = "4" _player_targetID = "94BF58" _player_playerID = "9413C8" -- ; NPC OFFSETS _npc_id = "4C0" _npc_id2 = "4C4" _npc_hp = "354" _npc_level = "548" _npc_faction = "54C" _npc_x = "10" _npc_y = "14" _npc_z = "18" _npc_facing = "1C" _player_internal_speed = "9A4" _player_internal_tracking = "2DB8" _player_internal_ressources = "2DBC" a file called functions. inc with this code: Kod: -- ; WoW functions by Outlaw function GetPlayerPtr register = Asm. FastCall(hWnd, _function_GetPlayerPtr,"0x10","0x818358", Asm. Ptr ,0) return register. eax end -- ; WoW functions function ClearTarget SendKeys Sleep(10) SendKeys(hWnd,"/script ClearTarget ;") Sleep(10) SendKeys end function TargetEnemy SendKeys Sleep(10) SendKeys(hWnd,"/script TargetNearestEnemy ;") Sleep(10) SendKeys end function UpdateStats SetEditBoxText SetEditBoxText SetEditBoxText SetEditBoxText(lb_time, SinceTimeStamp /1000/60) end function Output if dest _CONS then Console. PrintLine else if dest _FILE then WriteNewLine(log, " ".. str) else Console. PrintLine WriteNewLine(log, " ".. str) end end end and a last file called player. inc with this code: Kod: -- ; player. inc toon = toon. index = toon function toon. init local t = setmetatable PrintConsole i = 1 while 1 do -- ; Calculations to defeat DMA by Outlaw PrintConsole baseptr = GetPlayerPtr t. hWnd = hWnd t. ts_Battleshout = 0 t. ptr_unit_struct = HexSub t. ptr_hitpoints = HexAdd t. ptr_mana = HexAdd t. ptr_maxmana = HexAdd t. ptr_maxhp = HexAdd t. ptr_current_xp = HexAdd t. ptr_max_xp = HexAdd t. ptr_combo = HexAdd t. ptr_form = HexAdd t. ptr_alive = HexAdd t. ptr_rage = HexAdd t. ptr_energy = HexAdd t. ptr_facing = HexAdd t. ptr_internal_z = HexSub t. ptr_internal_y = HexSub t. ptr_internal_x = HexSub t. ptr_internal_speed = HexAdd t. ptr_internal_tracking = HexAdd t. ptr_internal_ressources = HexAdd if ReadDword > 30 and ReadDword < 10000 and ReadFloat > -1 and ReadFloat < 7 then PrintConsoleLine PrintConsoleLine t:refresh break else i = i + 1 if i > 50 then PrintConsoleLine PrintConsoleLine return nil end end Sleep(100) end return t end function toon:refresh self. hp = ReadDword self. mana = ReadDword self. maxmana = ReadDword self. maxhp = ReadDword self. energy = ReadDword self. rage = ReadDword self. TargetID = ReadDword self. hoverID = ReadDword self. playerID = ReadDword self. xp = ReadDword self. maxxp = ReadDword self.combo = ReadDword self. form = ReadDword self. alive = ReadDword self. x = ReadFloat self. y = ReadFloat self. z = ReadFloat self. speed = ReadFloat self.tracking = ReadDword self. ressources = ReadDword self. facing = ReadFloat self. ptrAttacker = nil self. hp_percent = 100 / self. maxhp self. hp self. mana_percent = 100 / self. maxmana self. mana end function toon:GetAttackerPtr PrintConsole ptr = nil -- wait to make sure the server sends a Target count = 100 while self. TargetID 0 and count > 0 do Sleep(1) self. TargetID = ReadDword count = count - 1 end if self. TargetID = 0 then ptr = NpcIDToPtr Npc = GetNpcData if Npc. hp > 0 and Npc. hp <= 100 then self. ptrAttacker = ptr end end PrintConsoleLine return ptr end function toon:GetDistance return GetDistance end function toon:setCorpseLoc self. corpsex = self. x self. corpsey = self. y end function toon:GetCorpseLoc return self. corpsex, self. corpsey end function toon:GetLoc return self. x, self. y end Launch World of Warcraft, and than laucnh speedhack. fss To change your speed change this part of the code : Kod: resultat = WriteFloat(tn. hWnd, tn. ptr_internal_speed,20) change the 20 in an other number to change your speed, 7 is the normal walk speed. If you want to take teh tracking options off, just delete these 2 lines of code in the speedhack. fss file: Kod: resultat = WriteDword(tn. hWnd, tn. ptr_internal_tracking,255) resultat = WriteDword(tn. hWnd, tn. ptr_internal_ressources,255)

AutoIT Hazır Macro: Wow Hunting Bot: Note: If you are running the EURO version of WoW you will need to change the 'win_title' to "WORLD OF WARCRAFT" in all caps for the script to see WoW. Windowed Mode 800x600pixles Key 1 on your toolbar set to the default "Attack" Key 2 on your toolbar set to "Sinister Strike" Key 7 on your toolbar set to "Throw" or "Shoot" On my comp with that set up it would run around target a mob, and then fight it. But it wont do all the things it needs to, check your health, move your toon if you are out of range etc etc. The Tinytoon series of bots seem to work best, but you need forceshock for them. like $24 after the 15day tril, unless you can get one of the many "patches" to work, i havent been able to. Here is my own version of an Autoit bot. It scans for mobs, either the nutral yellow kind, or hostile red kind. The shoots your bow, and then beats them to death and trys to loot. ill try and explain more in the code. Very simple, but he wont run around or move closer to a target or anyhting like that, just a simple kill bot. To set up just change your ingame ranged key to 8 and in the $Coord = PixelSearch ( 0, 0, 271, 62, 0xD2CF00, 0, 0 ) line use the 0xD2CF00 if your looking for nutral mobs, or 0xD20000 for hostile. You may need to edit the line sleep(20000) to something diffrent, i put in 20k, thats 20sec, so its plenty of time to kill a mob before it trys to loot. If you are a rogue and wanted to stay in stealth untill you find a mob, you can put "Stealth" on your action bar say at key 9, and add Sleep(1000) Send(" ") after the send NutralBot by Dirtybob. Add Modified by Kod: ; NutralBot by Dirtybob. ; Globals $win_title = "World of Warcraft" ; Stuff that you may need to know. ; Color of nutral mobs = 0xD2CF00 ; Color of hostile mobs = 0xD20000 ; When you use "sleep " to wait in AutoIT 1000=1 second ; Sets the "Pause" Key to Exit the bot. HotKeySet ; Makes sure WOW is on top. I recomend Windowed Mode. WinActivate WinSetOnTop($win_title, "", 0) Sleep(1000) ; Starts the whole script. This is the First mob search. after it everything is basicly handled in the loop. find_Mob func find_Mob Send sleep(1000) EndFunc ; Looks for a nutral mob, and if it finds one preses the 8 key, my bow, waits for ; the cooldown, or "speed" of the bow, mine is 2.4sec, and then attacks by ; sending the 1 key. While 1 $Coord = PixelSearch ( 0, 0, 271, 62, 0xD2CF00, 0, 0 ) If @error Then sleep(1000) find_Mob else ; This is my Bow, used for pulling. Key 8. Send(" ") sleep(2400) ; Waits for 2.4 sec after shooting, and then attacks for 20seconds. Send(" ") sleep(20000) ; Trys to loot the area about where my toons Chest would be. send MouseClick("right", 507, 360, 1, 1) send EndIf Wend ; Exits the Bot. Func EndScript $exit = MsgBox(4, "Ender", "Exit the Bot?") If $exit = 6 Then Exit EndIf EndFunc

set!") endif next WinActivate MsgBox(48, "Success", "Chest locations successfully setup!" & @CRLF & _ "Don't forget to SAVE your configuration!") EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func SetDelay $delay = InputBox EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func SetUp SetChestLoc SetDelay EndFunc

set! Proceeding to set next chest location. If you are" & @CRLF & _ "only working on 1 chest, set the same location for Chest