Talisman Online AutoIt script for Wizard

Redcloud78 · 07/07/2020, 03:57

download full version of Autoit e
and
script editor

for wizard you must place your pet on bottom left transparent slot above your skill bar
but under worldchat box

open scITE script editor and paste one of the codes in and hit F5 to run the script
to stop the script hit esc you must be playing in window mode 1024x768

Attack Skills on key 2 and 4
mana potion key 5
health potion key 7
Intelligence buff key 9
defense buff key 0

Spoiler

;used for hunting mobs
HotKeySet("{esc}", "myExit")

Global $attacking = False ;
Global $needRest = False ;
Global $hpBar = False ;
Global $hpBar2 = False ;
Global $needMana = False ;
Global $manaBar = False ;
Global $manaBar2 = False ;
Global $needBuff = False ;
Global $needBuff2 = False ;
Global $buffBox = False ;
Global $buffBox2 = False ;

While (1)
WinActivate("Talisman Online")
WinMove("Talisman Online", "", 0, 0)
;find a mob
Send("{TAB}")
Sleep(1000)
;click and attack mob
Send(4)
Sleep(200)
Send("{2 900}")
Sleep(1000)
;are we still attacking?
$attacking = True ;
$attacking = PixelSearch(665, 105, 667, 107, 0xD9C100, 1)
If Not @

hen
$attacking = False
Else
$attacking = False
EndIf

;are we healthy enough to continue attacking?
$needRest = True
$hpBar = PixelSearch(131, 73, 133, 75, 0xA90100, 1)
If @

hen
StartRest()
EndIf

$needRest = True
$hpBar2 = PixelSearch(225, 72, 227, 74, 0xAC0002, 1)
If Not @

hen
$needRest = False
Else
$needRest = False
EndIf

;do we have enough mana to continue attacking?
$needMana = True
$manaBar = PixelSearch(108, 84, 110, 86, 0x0056A4, 1)
If @

hen
Startmana()
EndIf

$needMana = True
$manaBar2 = PixelSearch(218, 85, 220, 87, 0x0056A5, 1)
If Not @

hen
$needMana = False
Else
$needMana = False
EndIf

;do we need buff
$needBuff = True
$buffBox = PixelSearch(601, 61, 791, 85, 0xFFFF00, 3)
If @

hen
myBuff()
EndIf

If Not @

hen
$needBuff = False
Else
$needBuff = False
EndIf

$needBuff2 = True
$buffBox2 = PixelSearch(689, 59, 813, 97, 0x89F09C, 3)
If @

hen
myBuff2()
EndIf

If Not @

hen
$needBuff2 = False
Else
$needBuff2 = False
EndIf
Sleep(100)
WEnd

Func myExit()
MsgBox(0, "Ending", "Bot has Exited")
Exit
EndFunc ;==>myExit

Func StartRest()
Send(7)
Sleep(7000)
EndFunc ;==>StartRest

Func Startmana()
Send(5)
Sleep(15000)
EndFunc ;==>Startmana

Func myBuff()
Send(0)
Sleep(500)
EndFunc ;==>myBuff

Func myBuff2()
MouseClick("right", 121, 655, 1)
Sleep(2000)
MouseClick("left", 41, 77, 1)
Sleep(2000)
Send(9)
Sleep(2000)
MouseClick("right", 121, 655, 1)
Sleep(2000)
EndFunc ;==>myBuff2

Assassin/Monk
key 1 and 2 for attacks
health potion key 7
defense buff key 0

Spoiler