[Bot:Source] Acidic Bot Source Code

[=sinister=]

As many of you remember..... a few years ago, someone made a bot. This bot was called the 'Acidic' bot. It was a bot built for a mage. Many of you know that the bot was built in Autoit. After days of Hardcore research, I finally found the source code from the grave site 'Blizzhackers.com'. Now the source code is not there anymore and has yet. Someone bought it for $30 and posted it at blizzhackers.com years ago. But I got it, and i'm willing to share it. This is posted as is. No editing, No virus's, just the source code. Hope yall like it, take care of it.

;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)

; ----------------------------------------------------------------------------

[KuRIoS]

what exactly does this thing do?

[=sinister=]

Well from my experience from it, you take your character into the middle of some mobs, turn it on (make sure your resolution is 800x600 or 600x800, whatever it is) and it will turn around and find an enemy, once it's found, it will attack it (Make sure attack is on slot 1, firbolt and icebolt is on slot 2 or 3) then loot it. It's kinda obvious that you are botting to people, so use it wisely. I posted it for AutoIt users to learn more about botting, I have a lot of experience with it and i'm willing to share.

[Matt]

i remember using this bot before WoW!Bot, but i dont remember if it was good or not.

[=sinister=]

No, to be honest, this bot really.... sucks.... and I only posted it because many people asked me for it. So here it is.

[cirko]

its say the demo version will end after 10 kills

Update: Have updatede the code sp now i should work.

;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 = 10000
$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,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "282: " & PixelGetColor(282,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "274: " & PixelGetColor(274,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "265: " & PixelGetColor(265,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "257: " & PixelGetColor(257,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "248: " & PixelGetColor(248,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "240: " & PixelGetColor(240,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "231: " & PixelGetColor(231,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "223: " & PixelGetColor(223,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "214: " & PixelGetColor(214,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "206: " & PixelGetColor(206,6)
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,6 >= 35000 And PixelGetColor($enemylifespot,6 <= 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)

; ----------------------------------------------------------------------------

But have you tryed the bot, i cant get it to attack mobs, and when i being attacked he bot just stand still, i now you saying the bot isnt so good, but maybe you have some tricks:P

[=sinister=]

Well, you must be a caster :P and resolution must be 800x600. Hope that works, and the bot is still for people creating other bots in WoW because this bot was orginally created for the first version of WoW.

[cirko]

Why do noone not using Forceshock anymore:S

[FlapJack]

I've been using this one now. I've found it wont work with a warlock when you have a pet out. Which means you could use it for any caster and hunter without a pet. But I wanted to watch TV through media center while this is going. (800x600 leaves room for it) But because of the little window thing coming out of the task bar it's very choppy. So I was wondering if there was a way I could get rid of that. Also is there a program that makes a loud noise when I get a /tell that I can run at the same time?

[lopolop]

well i tried updating... havent touched it in a while so.... just throwing it out

; ---------------------------------------------------------------------------- 
; Set Options
; ---------------------------------------------------------------------------- 
AutoItSetOption("MouseCoordMode", 0) 
AutoItSetOption("PixelCoordMode", 0) 
; ---------------------------------------------------------------------------- 
; Script Start 
; ---------------------------------------------------------------------------- 
$name = "Kill Bot" 
$version = "v0.01" 
$kills = 0
$loots = 0 
$lootFails = 0
$Life = 100
$Mana = 100
$EnemyLife = "[No Enemy]"

HotKeySet("^+x", "Test") 
Func MyExit() 
Exit 0
EndFunc 
    
; ---------------------------------------------------------------------------- 
; Status
; ---------------------------------------------------------------------------- 	
Func Specs($_status)
ToolTip($_status & @CRLF & @CRLF _
& "Kills: " & $kills & @CRLF _
& "Successful Loots: " & $loots & @CRLF _
& "Loot Failures: " & $LootFails & @CRLF _
& "Your Life: " & YourLife() & "%" & @CRLF _
& "Your Mana: " & YourMana() & "%" & @CRLF _ 
& "Enemy Life: " & EnemyLife() & @CRLF _
& "#############", 870, 35, $name & " " & $version)
EndFunc

; ---------------------------------------------------------------------------- 
; Get Your Life
; ---------------------------------------------------------------------------- 	
Func YourLife()
$lifePos = 205
$_Life = 100
While $LifePos >= 95
	If PixelGetColor( $lifePos, 79 ) >= 37000 And PixelGetColor( $lifePos, 79 ) <= 60000 Then
		$Life = $_Life
		Specs("")
		ExitLoop
	Else
		$LifePos = $LifePos - 10
		$_Life = $_Life - 10
	EndIf
	
	If $_Life <= 0 Then
		$Life = 0
		ExitLoop
		Exit
	EndIf
WEnd
Return $Life
EndFunc

; ---------------------------------------------------------------------------- 
; Get Your Mana
; ---------------------------------------------------------------------------- 	
Func YourMana()
$ManaPos = 205
$_Mana = 100
;~ MouseMove( $ManaPos, 88 )
;~ Sleep(5000)
While $ManaPos >= 95
	If PixelGetColor( $ManaPos, 88 ) >= 100 And PixelGetColor( $ManaPos, 88 ) <= 300 Then
		$Mana = $_Mana
		ExitLoop
	Else
		$ManaPos = $ManaPos - 10
		$_Mana = $_Mana - 10
	EndIf
	
	If $_Mana <= 0 Then
		$Mana = 0
		ExitLoop
		Exit
	EndIf
WEnd
Return $Mana
EndFunc 

; ---------------------------------------------------------------------------- 
; Get Enemy Life
; ---------------------------------------------------------------------------- 	
Func EnemyLife()
$ELifePos = 370
$_Elife = 100
;~ MouseMove( $ElifePos, 79 )
;~ Sleep(5000)
While $ElifePos >= 262
	If PixelGetColor( $ElifePos, 79 ) >= 37000 And PixelGetColor( $ElifePos, 79 ) <= 60000 Then
		$Elife = $_Elife
		ExitLoop
	Else
		$ElifePos = $ElifePos - 10
		$_Elife = $_Elife - 10
	EndIf
	
	If $_Elife <= 0 Then
		$Elife = 0
		ExitLoop
		Exit
	EndIf
WEnd
Return $Elife
EndFunc

; ---------------------------------------------------------------------------- 
; Check if Enemy Exsist
; ---------------------------------------------------------------------------- 	
Func EnemyExsist()
	If PixelGetColor( 264, 61 ) = 11862016 Then
		Return 1
	Else
		Return 0
	EndIf
EndFunc

; ---------------------------------------------------------------------------- 
; Find Enemy
; ---------------------------------------------------------------------------- 	
Func FindEnemy()
Specs("Searching For Enemy.")
While EnemyExsist() = 0 
	Send("{RIGHT DOWN}")
	Sleep(Random(150, 450))
	Send("{RIGHT UP}")
	Sleep(250)
	Send("{TAB}")
	Sleep(250)
	Send("t")
WEnd
Specs("Enemy Found!")
EndFunc

Func Test()
	Specs("Testing...")
EndFunc

while 1
	sleep(100)
WEnd
; ---------------------------------------------------------------------------- 
; Attack Enemy
; ---------------------------------------------------------------------------- 
Func Attack()
Specs("Attacking Enemy.")
Send($SlowAttack)
	Sleep($SASleep * 1000)
While EnemyExsist() = 1
	Send($MainAttack)
	Sleep($MASleep * 1000)
	Send($MainAttack)
	Sleep($MASleep * 1000)
	Send($FreezeAttack)
	Sleep($FASleep * 1000)
WEnd
Specs("Enemy Dead")
EndFunc

; ---------------------------------------------------------------------------- 
; Loot
; ---------------------------------------------------------------------------- 
Func Loot()
Specs("Trying to Loot.")
	$Looted = 0
	$Xcord = 50
	$Ycord = 300
While $Ycord <= 550
	Sleep(50)
	MouseMove( $Xcord, $Ycord, 1 )
	Send("{LSHIFT DOWN}")
	MouseClick("Right")
	Send("{LSHIFT UP}")
	If PixelGetColor( 105, 155 ) = 15186432 Then
		$Looted = 1
		$Loots = $Loots + 1
		Specs("You Looted!")
		ExitLoop
	EndIf
	Sleep(50)
	$Xcord = $Xcord + 50
	If $Xcord = 750 Then
		$Ycord = $Ycord + 50
		$Xcord = 50
	EndIf
WEnd
If $Looted = 0 Then 
	$lootFails = $lootFails + 1
	Specs("Did Not Loot!")
EndIf
EndFunc

; -#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# 
;                ____  _____  ____    ____  __  __  _  _ 
;               (  _ \(  _  )(_  _)  (  _ \(  )(  )( \( )
;                ) _ < )(_)(   )(     )   / )(__)(  )  ( 
;              (____/(_____) (__)   (_)\_)(______)(_)\_)
;
; -#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
$wowActive = WinWaitActive("World of Warcraft")
While $wowActive = 1
	Sleep(1000)
	
	If YourLife() >= 70 and YourMana() >= 70 Then
	FindEnemy()
	Else
		Do
			Sleep(1000)
		Until YourLife() = 100 and YourMana() = 100
	EndIf
	
	If EnemyExsist() = 1 Then
		Send("t")
		Sleep(1000)
	
	While EnemyExsist() = 1 and EnemyLife() > 0
		Attack()
		Sleep(1000)
	WEnd
	
	Loot()
	EndIf
WEnd

[Yannik]

well i kinda registrated here to see nvm saw no questions here