|
You last visited: Today at 11:11
Advertisement
Acidic AutoIt Source
Discussion on Acidic AutoIt Source within the WoW Exploits, Hacks, Tools & Macros forum part of the World of Warcraft category.
02/08/2005, 11:35
|
#1
|
elite*gold: 235 
Join Date: Jul 2003
Posts: 16,559
Received Thanks: 17,765
|
ist angeblich die source vom acidic bot, bitte confirmen
Code:
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language: * * * English
; Platform: * * * Win9x / NT
; Author: * * * * A.N.Other < >
;
; Script Function:
; * Template AutoIt script.
;
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
; Set up our defaults
; ----------------------------------------------------------------------------
;AutoItSetOption("MustDeclareVars", 1)
AutoItSetOption("MouseCoordMode", 0)
AutoItSetOption("PixelCoordMode", 0)
;AutoItSetOption("RunErrorsFatal", 0)
;AutoItSetOption("TrayIconDebug", 1)
;AutoItSetOption("WinTitleMatchMode", 4)
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
$name = "Acidic WoW"
$version = "v0.67"
$demo = 1
$maxkills = 10
$kills = 0
$loots = 0
HotKeySet("^!x", "MyExit")
* Func MyExit()
* Exit
EndFunc
Func Status($message)
* $stats = ""
* $stats = $stats & "Life: " & LifeValue() & "%" & @LF
* $stats = $stats & "Mana: " & ManaValue() & "%" & @LF
* $stats = $stats & @LF
* $stats = $stats & "Estimated Kills: " & $kills & @LF
* $stats = $stats & "Estimated Loots: " & $loots
* If EnemyExists() = 1 Then
* * *$stats = $stats & @LF & @LF
* * *$stats = $stats & "Enemy Life: " & EnemyLifeValue() & "%"
* EndIf
* If $demo = 1 Then
* * *TrayTip($name & " " & $version & " (DEMO)", $message & @LF & @LF & $stats, 10, 1)
* Else
* * *TrayTip($name & " " & $version, $message & @LF & @LF & $stats, 10, 1)
* EndIf
EndFunc
Func Test()
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "291.5: " & PixelGetColor(291.5,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "282: " & PixelGetColor(282,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "274: " & PixelGetColor(274,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "265: " & PixelGetColor(265,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "257: " & PixelGetColor(257,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "248: " & PixelGetColor(248,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "240: " & PixelGetColor(240,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "231: " & PixelGetColor(231,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "223: " & PixelGetColor(223,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "214: " & PixelGetColor(214,68))
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* MsgBox(4096, $name & " " & $version, "206: " & PixelGetColor(206,68))
EndFunc
Func LifeValue()
* $lifespot = 162
* $lifepercent = 100
* While $lifespot >= 77
* * *If PixelGetColor($lifespot,69) >= 30000 And PixelGetColor($lifespot,69) <= 55000 Then
* * * * $life = $lifepercent
* * * * ExitLoop
* * *EndIf
* * *$lifespot = $lifespot - 8.5
* * *$lifepercent = $lifepercent - 10
* * *If $lifepercent <= 0 Then
* * * * $life = 0
* * * * ExitLoop
* * *EndIf
* Wend
* Return $life
EndFunc
Func ManaValue()
* $manaspot = 162
* $manapercent = 100
* While $manaspot >= 77
* * *If PixelGetColor($manaspot,79) >= 100 And PixelGetColor($manaspot,79) <= 200 Then
* * * * $mana = $manapercent
* * * * ExitLoop
* * *EndIf
* * *$manaspot = $manaspot - 8.5
* * *$manapercent = $manapercent - 10
* * *If $manapercent <= 0 Then
* * * * $mana = 0
* * * * ExitLoop
* * *EndIf
* Wend
* Return $mana
EndFunc
Func EnemyExists()
* If PixelGetColor(290,56) >= 10000000 And PixelGetColor(290,56) <= 15000000 Then
* * *Return 1
* ElseIf PixelGetColor(290,56) >= 5500000 And PixelGetColor(290,56) <= 7000000 Then
* * *Return 1
* Else
* * *Return 0
* EndIf
EndFunc
Func EnemyLifeValue()
* $enemylifespot = 291
* $enemylifepercent = 100
* While $enemylifespot >= 206
* * *If PixelGetColor($enemylifespot,68) >= 35000 And PixelGetColor($enemylifespot,68) <= 55000 Then
* * * * $enemylife = $enemylifepercent
* * * * ExitLoop
* * *EndIf
* * *$enemylifespot = $enemylifespot - 8.5
* * *$enemylifepercent = $enemylifepercent - 10
* * *If $enemylifepercent <= 0 Then
* * * * $enemylife = 0
* * * * ExitLoop
* * *EndIf
* Wend
* Return $enemylife
EndFunc
Func Loot()
* Status("Attempting to loot.")
* $didloot = 0
* $x = 50
* $y = 300
* While $y <= 550
* * *If EnemyExists() = 1 And EnemyLifeValue() > 0 Then ExitLoop
* * *MouseMove($x, $y, 1)
* * *Send("{LSHIFT DOWN}")
* * *MouseClick("right")
* * *Send("{LSHIFT UP}")
* * *If PixelGetColor(34,123) = 0 Then
* * * * $didloot = 1
* * * * $loots = $loots + 1
* * * * Status("Loot attempt successful.")
* * * * Send("{ESC}")
* * *EndIf
* * *Sleep(25)
* * *$x = $x + 50
* * *If $x = 750 Then
* * * * $y = $y + 50
* * * * $x = 50
* * *EndIf
* WEnd
* If EnemyExists() = 1 Then
* * *Send("{ESC}")
* EndIf
* If $didloot = 0 Then
* * *Status("Loot attempt failed.")
* EndIf
* Send("{HOME 5}{END 2}")
* Sleep(1000)
EndFunc
Func LoadingMagic()
* If PixelGetColor(332,569) >= 6500000 And PixelGetColor(332,569) <= 8000000 Then
* * *Return 1
* Else
* * *Return 0
* EndIf
EndFunc
Func LocateEnemy()
* Status("Locating enemy position.")
* $locatecycles = 0
* Send("2")
* Sleep(500)
* While LoadingMagic() = 0
* * *If EnemyExists() = 0 Then
* * * * ExitLoop
* * *EndIf
* * *Send("{RIGHT DOWN}")
* * *Sleep(250)
* * *Send("{RIGHT UP}")
* * *If EnemyExists() = 0 Then
* * * * Send("{TAB}")
* * *EndIf
* * *Send("2")
* * *Sleep(500)
* * *$locatecycles = $locatecycles + 1
* * *If $locatecycles = 10 Then
* * * * Send("{ESC}")
* * * * ExitLoop
* * *EndIf
* WEnd
* Status("Enemy position located.")
EndFunc
Func AttackEnemy()
* Status("Attacking enemy.")
* While EnemyExists() = 1
* * *Status("Attacking enemy.")
* * *Send("3")
* * *Sleep(500)
* * *If LoadingMagic() = 0 Then
* * * * LocateEnemy()
* * *EndIf
* * *While LoadingMagic() = 1
* * * * Sleep(250)
* * *WEnd
* WEnd
* Status("Enemy defeated.")
* $kills = $kills + 1
* If $kills = $maxkills Then
* * *If $demo = 1 Then
* * * * MsgBox(4096, $name & " " & $version, "This is a demo version which ends after " & $maxkills & " kills.")
* * * * Exit
* * *EndIf
* EndIf
EndFunc
Func Move()
*;Send("{NUMLOCK}")
* Send("{RIGHT DOWN}")
* Sleep(500)
* Send("{RIGHT UP}")
*;Send("{NUMLOCK}")
EndFunc
While 1 = 1
* WinActivate("World of Warcraft")
* WinWaitActive("World of Warcraft")
* Move()
* If LifeValue() >= 80 Then
* * *If ManaValue() >= 80 Then
* * * * Status("Looking/Waiting for enemy.")
* * * * Send("{TAB}")
* * *Else
* * * * Status("Waiting for mana to regenerate.")
* * *EndIf
* Else
* * *Status("Waiting for life to regenerate.")
* EndIf
* Sleep(1000)
* If EnemyExists() = 1 Then
* * *Status("Enemy detected.")
* * *Send("t")
* * *Sleep(2000)
* * *While EnemyExists() = 1
* * * * LocateEnemy()
* * * * AttackEnemy()
* * * * Sleep(1000)
* * *WEnd
* * *Loot()
* EndIf
Wend
Sleep(10000)
; ----------------------------------------------------------------------------
|
|
|
|
03/07/2005, 17:56
|
#2
|
elite*gold: 0
Join Date: Sep 2004
Posts: 103
Received Thanks: 3
|
what this bot does?
|
|
|
|
|
03/07/2005, 23:37
|
#3
|
elite*gold: 0
Join Date: Nov 2004
Posts: 166
Received Thanks: 0
|
a caster bot
circle around search for traget
press one time "2"
press x time "3"
looting
wait for mana and health
|
|
|
|
|
03/08/2005, 03:55
|
#4
|
elite*gold: 0
Join Date: Jan 2005
Posts: 23
Received Thanks: 1
|
also bei mir geht er nich zeigt mirn fehler nei
If PixelGetColor(290,56) >= 1000000
er meint er finde in der textzeile keine variable
|
|
|
|
|
03/08/2005, 08:49
|
#5
|
elite*gold: 0
Join Date: Nov 2004
Posts: 319
Received Thanks: 0
|
hmm, sowas könnte man dann endlich mal als hunter bot verwenden...
1. Pet schicken, 2. Jägermal 3. Arcane shot
(probleme sind halt keine rücksicht auf Pet-hp, beschränkt auf anzahl der Pfeile, Reichweite wird nicht immer eingehalten)
also wenn der bot klappt sagt bescheit 
|
|
|
|
 |
Similar Threads
|
[Source] SRO BOT Source Code(AutoIt)
09/16/2011 - SRO Hacks, Bots, Cheats & Exploits - 34 Replies
I am finally going to release the source code to srobot.. it is a autoit bot.. ( befor you flame on auto it... check it out ) this is a very very advanced autoit script with read/write memory options. all this bot needs is to be updated with the new offsets and such. so please do not update this and just put your name on it.. as iv seen someone else in this forum has did.. not saying any names he knows who he is... after we spent a get bit of time on this script he wants to rip the source and...
|
[RELEASE] [OPEN SOURCE] CE 5.5 Pointer to AutoIt Source-Code
02/13/2011 - AutoIt - 6 Replies
Habe heute erst gemerkt, dass es hier eine AutoIt Sektion gibt xD also poste ich mal mein Programm mit rein.
Funktionsweise:
1. in CE Rechtsklick auf den Pointer und auf "Copy" klicken
2. in meinem Programm auf "Code generieren" klicken
3. In euer Scite gehen und einfügen
Hier ist der Source Code vom Programm:
|
Acidic WoW Bot [ENG]
01/12/2005 - WoW Exploits, Hacks, Tools & Macros - 7 Replies
I recently started making a quite complex bot, and it's near completion.
This bot will do:
Wandering
Leveling
Looting
Refilling Life/Mana
Wait until it's safe to attack (Life/Mana regeneration if not refillers are available)
And More!
|
All times are GMT +1. The time now is 11:13.
|
|
