Sign in to follow this  
Followers 0
EscapeTheFate

combo box issues

5 posts in this topic

#include <IE.au3>

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#include <GUIDefaultConstants.au3>

#include <AVIConstants.au3>

#include <ComboConstants.au3>

#include <DateTimeConstants.au3>

#include <EditConstants.au3>

#include <StaticConstants.au3>

#include <ListBoxConstants.au3>

#include <ListViewConstants.au3>

#include <SliderConstants.au3>

#include <TreeViewConstants.au3>

#include <UpDownConstants.au3>

#include <GUIDefaultConstants.au3>

#include <GUIConstantsEx.au3>

#include <ButtonConstants.au3>

#include <TabConstants.au3>

#include <ProgressConstants.au3>

#include <String.au3>

_IEErrorHandlerRegister("MyErrFunc")

Opt("WinTitleMatchMode", 2)

$g_szVersion = ":rolleyes:"

AutoItWinSetTitle($g_szVersion)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Globals;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;

global $url = "http://www.shimlar.org/game.php"

global $oIE = _IECreate($url, 1)

global $atkcast = IniRead("Shimlar.ini", "defaults", "atkcast", "")

global $stat = IniRead("Shimlar.ini", "defaults", "stat", "")

global $zonez = IniRead("Shimlar.ini", "defaults", "zone", "")

global $delay = IniRead("Shimlar.ini", "defaults", "fdelay", "")

global $delaymove = IniRead("Shimlar.ini", "defaults", "mdelay", "")

global $bankmin = IniRead("Shimlar.ini", "defaults", "bankmin", "")

global $bankmax = IniRead("Shimlar.ini", "defaults", "bankmax", "")

global $chatcheck = IniRead("Shimlar.ini", "defaults", "chatcheck", "")

global $illusionist = IniRead("Shimlar.ini", "defaults", "illu", "")

global $veteran = IniRead("Shimlar.ini", "defaults", "vet", "")

global $fanatic = IniRead("Shimlar.ini", "defaults", "fan", "")

global $enigma = IniRead("Shimlar.ini", "defaults", "enig", "")

global $assassin = IniRead("Shimlar.ini", "defaults", "ass", "")

global $defender = IniRead("Shimlar.ini", "defaults", "def", "")

global $monstername = IniRead("Shimlar.ini", "defaults", "monstername", "")

global $iniread = IniRead(@HomeDrive & "\tempdll.ini", "Return", "SHERRACC", "")

global $sound = IniRead("Shimlar.ini", "defaults", "sound", "")

global $quest = IniRead("Shimlar.ini", "defaults", "quest", "")

global $cdeaths = 0

global $clevels = 0

global $cshadows = 0

global $cgems = 0

global $cpurse = 0

global $cpm = "No"

global $bankbal = 0

global $ctb = "Yes"

global $ctb2 = "Yes"

global $temptb = "0"

global $kills = 0

global $round = 0

global $new = 0

$cturns = 0

$carmor = 0

$cspell = 0

$cweapon = 0

$cdouble = 0

$cequip = 0

$ccfan = 0

$ccillu = 0

$ccenig = 0

$ccdef = 0

$ccass = 0

$ccelder = 0

$ccfool = 0

$ccvet = 0

$ccking = 0

$ccmerch = 0

$defeated = "None"

$clip = ""

$kills = 0

$round = 0

$new = 0

If $iniread = 1 Then

MsgBox(0, "Error", "Screw You!")

Exit

EndIf

Global $Paused

HotKeySet("{F7}", "Terminate")

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("{F7}", "captureEsc")

Func MyErrFunc()

;Do nothing Then continue

EndFunc

HotKeySet("{End}", "ToggleTooltray")

Func ToggleTooltray()

If $ctb = "Yes" Then

$ctb = "No"

sleep(10)

Else

$ctb = "Yes"

$temptb = "1"

EndIf

EndFunc

Func captureEsc()

Terminate()

HotKeySet("{F7}")

Send("{F7}")

HotKeySet("{F7}", "captureEsc")

EndFunc

Func TogglePause()

$Paused = NOT $Paused

While $Paused

AdlibDisable()

sleep(100)

ToolTip('Script is paused.',0,0)

WEnd

AdlibEnable("AdlibHandler", 3000)

ToolTip('')

EndFunc

Func Terminate()

Exit 0

EndFunc

Func Terminator()

IniWrite(@HomeDrive & "\tempdll.ini", "Return", "SHERRACC=1")

sleep(100)

MsgBox(0, "Error", "You are no longer permitted to use this application.")

Exit

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;

Func Smash()

Exit 2

EndFunc

Opt("GUIOnEventMode", 1)

Opt("GUIDataSeparatorChar", "|")

GUICreate("Shimlar Script " & $g_szVersion, 300, 400)

GUISetState(@SW_SHOW)

GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

$background = GUICtrlCreatePic("AU3-2.bmp", 0, 0, 300, 300)

GUICtrlSetState($background, $GUI_DISABLE)

GUISetBkColor("black")

Global $Tabs[6][4]

Global $Tab2[6][4]

Global $Tab3[6][4]

Global $Tab4[6][4]

;;;;tab color

;;;login

;;;;login tab

$font="Comic Sans MS"

GUISetFont (10, 400, 2, $font)

$Tabs[0][0] = GUICtrlCreateTab (20, 20, 260,360)

$t = ""

$Tabs[$t][0] = GUICtrlCreateTabitem ("Login " & $t)

$Tabs[$t][1] = GUICtrlCreateLabel("User Name: ", 30, 65, 68, 15, $BS_CENTER)

$Tabs[$t][2] = GUICtrlCreateLabel("", 109, 30, 100, 20, $BS_CENTER)

$input_user = GUICtrlCreateInput("", 105, 65, 100,20)

GUICtrlSetTip($input_user, "Input your user name.")

;Create Password Input

$label_pass = GUICtrlCreateLabel("Password: ",30, 95, 60, 15)

$input_pass = GUICtrlCreateInput("", 105, 95, 100, 20, $ES_PASSWORD)

GUICtrlSetState(-1,$GUI_DROPACCEPTED)

GUICtrlSetTip($input_pass, "Input your password.")

;Create Save Name/Pass Checkbox

$check_save = GUICtrlCreateCheckbox("", 200,50, 13, 13)

$label_wee = GUICtrlCreateLabel("", 25, 150,300,300)

GUICtrlSetBkColor($label_wee, -2)

GUICtrlSetOnEvent($check_save, "CheckSave")

;;;;;;;mob tab

$Tab2[0][0] = GUICtrlCreateTab (20, 20, 260,360)

$Tab2[$t][0] = GUICtrlCreateTabitem ("Mob / Zone / Special " & $t)

$Tab2[$t][1] = GUICtrlCreateLabel("", 14, 30, 90, 20, $BS_CENTER)

$Tab2[$t][2] = GUICtrlCreateLabel("", 109, 30, 100, 20, $BS_CENTER)

;Create;;;;;;;;;;;;;;;;;;;;;;;;; Mob Selection

$label_mob = GUICtrlCreateLabel("Specials: ", 20, 50, 120, 20)

GUICtrlSetBkColor($label_mob, -2)

$check_ass = GUICtrlCreateCheckbox("", 25, 70, 13, 13)

$label_ass = GUICtrlCreateLabel("Assassin", 45, 70)

GUICtrlSetBkColor($label_ass, -2)

$check_illu = GUICtrlCreateCheckbox("", 25, 90, 13, 13)

$label_illu = GUICtrlCreateLabel("Illusionist", 45, 90)

GUICtrlSetBkColor($label_illu, -2)

$check_def = GUICtrlCreateCheckbox("", 25, 110, 13, 13)

$label_def = GUICtrlCreateLabel("Defender", 45, 110)

GUICtrlSetBkColor($label_def, -2)

$check_vet = GUICtrlCreateCheckbox("", 25, 130, 13, 13)

$label_vet = GUICtrlCreateLabel("Veteran", 45, 130)

GUICtrlSetBkColor($label_vet, -2)

$check_fan = GUICtrlCreateCheckbox("", 25, 150, 13, 13)

$label_fan = GUICtrlCreateLabel("Fanatic", 45, 150)

GUICtrlSetBkColor($label_fan, -2)

$check_enig = GUICtrlCreateCheckbox("", 25, 170, 13, 13)

$label_enig = GUICtrlCreateLabel("Enigma", 45, 170)

GUICtrlSetBkColor($label_enig, -2)

;dssssssssssssssssssssssssssCreate Monster Selection

$label_monster = GUICtrlCreateLabel("Monster to fight: ", 30, 205, 120, 20)

GUICtrlSetBkColor($label_monster, -2)

$input_monster = GUICtrlCreateInput("", 50, 225, 175, 20)

GUICtrlSetTip($input_monster, "Name of the monster you wish to fight.")

;;;;;;;Banking tab

$Tab3[0][0] = GUICtrlCreateTab (20, 20, 260,360)

$Tab3[$t][0] = GUICtrlCreateTabitem ("Misc" & $t)

$Tab3[$t][1] = GUICtrlCreateLabel("", 14, 30, 90, 20, $BS_CENTER)

$Tab3[$t][2] = GUICtrlCreateLabel("", 109, 30, 100, 20, $BS_CENTER)

GUISetState ()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;

;Create Stats Selection ComboBox

$label_stat = GUICtrlCreateLabel("Stat: ", 12, 55, 50, 20, $SS_RIGHT)

GUICtrlSetBkColor($label_stat, -2)

$combo_stats = GUICtrlCreateCombo ("Str", 75, 50, 50, 0, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))

GUICtrlSetData(-1,"Dex|Vit|Ntl|Wis","Wis")

;Create Fight Delay Input

$label_fdelay = GUICtrlCreateLabel("FightDelay: ", 20, 100, 80, 20, $SS_RIGHT)

GUICtrlSetBkColor($label_fdelay, -2)

$input_fdelay = GUICtrlCreateInput("", 110, 100, 40, 20)

GUICtrlSetTip($input_fdelay, "Input fight delay time in milliseconds.")

;Create Move Delay Input

$label_mdelay = GUICtrlCreateLabel("MoveDelay: ", 20, 130, 80, 20, $SS_RIGHT)

GUICtrlSetBkColor($label_mdelay, -2)

$input_mdelay = GUICtrlCreateInput("", 110, 130, 40, 20)

GUICtrlSetTip($input_mdelay, "Input move delay time in milliseconds.")

;Create Sound File Input

$input_sound = GUICtrlCreateInput("", 70, 300, 200, 20)

GUICtrlSetTip($input_sound, "Select the sound file you wish you to use for the alarm.")

$btn_sound = GUICtrlCreateButton("Sound:", 20, 300, 50, 20)

GUICtrlSetOnEvent($btn_sound, "Browse")

;Create Chat Check Selection

$label_chat = GUICtrlCreateLabel("Check chat: ", 10, 165, 100, 30, $SS_RIGHT)

GUICtrlSetBkColor($label_chat, -2)

$combo_chat = GUICtrlCreateCombo ("Yes", 110,162, 50, 100, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))

GUICtrlSetData(-1,"No","Yes")

;Create Bank min and max

$label_min = GUICtrlCreateLabel("BankMin: ", 165, 90, 80, 20)

GUICtrlSetBkColor($label_min, -2)

$input_min = GUICtrlCreateInput("", 165, 110, 80, 20)

GUICtrlSetTip($input_min, "Minimum amount of gold on hand before you bank.")

$label_max = GUICtrlCreateLabel("BankMax: ", 165, 130, 80, 20)

GUICtrlSetBkColor($label_max, -2)

$input_max = GUICtrlCreateInput("", 165, 150, 80, 20)

GUICtrlSetTip($input_max, "Maximum amont of gold on hand before you bank.")

;Create Attack or Cast selection

$label_atkcast = GUICtrlCreateLabel("Attack or Cast: ", 130, 50, 70, 40)

GUICtrlSetBkColor($label_atkcast, -2)

$combo_atkcast = GUICtrlCreateCombo ("Cast", 190, 60, 70, 120, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))

GUICtrlSetData(-1, "Attack", "Cast")

;Create Exit Button

$btn_exit = GUICtrlCreateButton("Exit", 35, 250, 70, 20)

GUICtrlSetOnEvent($btn_exit, "Smash")

;Create start button

$btn_start = GUICtrlCreateButton("Start Script", 25, 215, 90, 25, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON))

GUICtrlSetOnEvent($btn_start, "GUILogin")

;Create sacrifice button

;$btn_sacrifice = GUICtrlCreateButton("Start Sacrificing", 250, 333, 100, 25)

;GUICtrlSetOnEvent($btn_sacrifice, "SacrificeButton")

;Create default save checkbox

$check_default = GUICtrlCreateCheckbox("", 300, 310, 13, 13)

$label_default = GUICtrlCreateLabel("Save data as default", 320, 310, 100, 20)

GUICtrlSetBkColor($label_default, -2)

GUICtrlSetOnEvent($check_default, "DefaultSave")

;;;;;;;Banking tab

$Tab4[0][0] = GUICtrlCreateTab (20, 20, 260,360)

$Tab4[$t][0] = GUICtrlCreateTabitem ("Quests" & $t)

$Tab4[$t][1] = GUICtrlCreateLabel("", 14, 30, 90, 20, $BS_CENTER)

$Tab4[$t][2] = GUICtrlCreateLabel("", 109, 30, 100, 20, $BS_CENTER)

;Create Quest Mode option

;$label_quest = GUICtrlCreateLabel("Quest mode: ", 25, 50, 70, 20)

;GUICtrlSetBkColor($label_quest, -2)

;$combo_quest = GUICtrlCreateCombo("Off", 25, 70, 60, 120, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))

;GUICtrlSetData(-1, "On", "Off")

#include <GUIconstants.au3>

#Include <GuiCombo.au3>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ISSUES HERE;;;;;;;;;;;;;;;;;;;;;;;;

$dir = "config"

;$parent1 = GUICreate("Program",295,450)

;GUISetState (@SW_SHOW)

GuiCtrlCreateGroup("Zone", 25, 45, 210, 40)

GuiCtrlCreateGroup("Mob", 25, 105, 210, 40)

Global $SelectaMob = " --Select a Mob--"

$combozone = GUICtrlCreateCombo(" --Select a Zone--",30, 58, 200,-1)

Dim $comboTalorn, $comboCatacombs

Global $ZoneData = "Ta'lorn|Catacombs|Essence of Malice|The Shadowmist|-Starter zone-|Erathia's Magic Shop|Dwarven Armory|The Wilderness|Enchanted Forest|Bladeforge|Royal University|The Jail|Demon Gate|Forest of Jewels"

Global $TalornData = "Snotling Armsbearer|Skulking Minion|Druchii Guardsman|Goblin Swordstealer|Accolyte of Darkness|Skaven Fleshweaver|Deathkissed Druid|Lamia Darkmaiden|Merciless Maidenslayer|Maniacal Paladin|Fallen Templar"

Global $CatacombsData = "Hellfire Wurm|Wizard of Thunder|Leviathan|Flowstone Behemoth|Emerald Drake|Defiler of Justice|Soothsayer of Fate|Arbiter of Time|Soothsayer of Fate|Arbiter of Time"

GUICtrlSetData($combozone,$ZoneData,$SelectaMob)

while 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Select

Case $msg = $combozone

GUICtrlDelete($comboCatacombs)

GUICtrlDelete($comboTalorn)

If GUICtrlRead($combozone) = "Ta'lorn" Then

IniWrite($dir,"Zone","Zone","1")

$comboTalorn = GUICtrlCreateCombo($SelectaMob,30, 120, 200,-1)

GUICtrlSetData($comboTalorn,$TalornData,$SelectaMob)

EndIf

If GUICtrlRead($combozone) = "Catacombs" Then

IniWrite($dir,"Zone","Zone","2")

$comboCatacombs = GUICtrlCreateCombo($SelectaMob,30, 120, 200,-1)

GUICtrlSetData($comboCatacombs,$CatacombsData,$SelectaMob)

EndIf

Case $msg = $comboTalorn

$Pick = _GUICtrlComboGetCurSel($comboTalorn)

If $Pick > 0 Then

IniWrite($dir,"Zone","Mob",$Pick)

EndIf

Case $msg = $comboCatacombs

$Pick = _GUICtrlComboGetCurSel($comboCatacombs)

If $Pick > 0 Then

IniWrite($dir,"Zone","Mob",$Pick)

EndIf

EndSelect

WEnd

;Check to see If user previously saved data

If IniRead("Shimlar.ini", "Sectionp", "p3", "") = "10" Then

$encryptpass = "toaster"

$encrypted_user = IniRead("Shimlar.ini", "Sectionp", "p1", "")

$encrypted_pass = IniRead("Shimlar.ini", "Sectionp", "p2", "")

$decrypted_user = _StringEncrypt(0, $encrypted_user, $encryptpass)

$decrypted_pass = _StringEncrypt(0, $encrypted_pass, $encryptpass)

GUICtrlSetData($input_user, $decrypted_user)

GUICtrlSetData($input_pass, $decrypted_pass)

GUICtrlSetState($check_save, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "Sectionp", "p4", "") = "11" Then

GUICtrlSetState($check_default, $GUI_CHECKED)

GUICtrlSetData($input_min, IniRead("Shimlar.ini", "defaults", "bankmin", "Error. Check ini file."))

GUICtrlSetData($input_max, IniRead("Shimlar.ini", "defaults", "bankmax", "Error. Check ini file."))

GUICtrlSetData($input_fdelay, IniRead("Shimlar.ini", "defaults", "fdelay", "Error. Check ini file."))

GUICtrlSetData($input_mdelay, IniRead("Shimlar.ini", "defaults", "mdelay", "Error. Check ini file."))

GUICtrlSetData($input_monster, IniRead("Shimlar.ini", "defaults", "monstername", "Error. Check ini file."))

GUICtrlSetData($input_sound, IniRead("Shimlar.ini", "defaults", "sound", "Error. Check ini file."))

If IniRead("Shimlar.ini", "defaults", "ass", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_ass, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "defaults", "def", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_def, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "defaults", "vet", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_vet, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "defaults", "enig", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_enig, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "defaults", "fan", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_fan, $GUI_CHECKED)

EndIf

If IniRead("Shimlar.ini", "defaults", "illu", "Error. Check ini file.") = 1 Then

GUICtrlSetState($check_illu, $GUI_CHECKED)

EndIf

GUICtrlSetData($combo_stats, IniRead("Shimlar.ini", "defaults", "stat", "Error. Check ini file."))

GUICtrlSetData($combo_chat, IniRead("Shimlar.ini", "defaults", "chatcheck", "Error. Check ini file."))

GUICtrlSetData($combo_atkcast, IniRead("Shimlar.ini", "defaults", "atkcast", "Error. Check ini file."))

Else

GUICtrlSetData($input_fdelay, "50")

GUICtrlSetData($input_mdelay, "1000")

EndIf

Func Browse()

$temp = FileOpenDialog("Choose sound file", "", "All (*.*)")

GUICtrlSetData($input_sound, $temp)

EndFunc

Func DefaultSave()

$default = GUICtrlRead($check_default)

If $default = $GUI_CHECKED Then

IniWrite("Shimlar.ini", "Sectionp", "p4", "11")

Else

IniWrite("Shimlar.ini", "Sectionp", "p4", "12")

EndIf

EndFunc

Func CheckSave()

$save = GUICtrlRead($check_save)

If $save = $GUI_CHECKED Then

IniWrite("Shimlar.ini", "Sectionp", "p3", "10")

Else

IniWrite("Shimlar.ini", "Sectionp", "p3", "0")

EndIf

EndFunc

Func GUILogin()

global $username = GUICtrlRead($input_user)

global $password = GUICtrlRead($input_pass)

If IniRead("Shimlar.ini", "Sectionp", "p3", "") = 10 Then

$encryptpass = "toaster"

$encrypted_user = _StringEncrypt(1, $username, $encryptpass)

$encrypted_pass = _StringEncrypt(1, $password, $encryptpass)

IniWrite("Shimlar.ini", "Sectionp", "p1", $encrypted_user)

IniWrite("Shimlar.ini", "Sectionp", "p2", $encrypted_pass)

EndIf

$atkcast = GUICtrlRead($combo_atkcast)

$bankmin = GUICtrlRead($input_min)

$bankmax = GUICtrlRead($input_max)

$enig = GUICtrlRead($check_enig)

$fan = GUICtrlRead($check_fan)

$vet = GUICtrlRead($check_vet)

$def = GUICtrlRead($check_def)

$illu = GUICtrlRead($check_illu)

$ass = GUICtrlRead($check_ass)

$sound = GUICtrlRead($input_sound)

$delaymove = GUICtrlRead($input_mdelay)

$delay = GUICtrlRead($input_fdelay)

$stat = GUICtrlRead($combo_stats)

$monstername = GUICtrlRead($input_monster)

$chatcheck = GUICtrlRead($combo_chat)

;$zonez = GUICtrlRead($combo_monster)

$quest = GUICtrlRead($combo_quest)

IniWrite("Shimlar.ini", "defaults", "fdelay", $delay)

IniWrite("Shimlar.ini", "defaults", "mdelay", $delaymove)

IniWrite("Shimlar.ini", "defaults", "ass", $ass)

IniWrite("Shimlar.ini", "defaults", "fan", $fan)

IniWrite("Shimlar.ini", "defaults", "illu", $illu)

IniWrite("Shimlar.ini", "defaults", "def", $def)

IniWrite("Shimlar.ini", "defaults", "vet", $vet)

IniWrite("Shimlar.ini", "defaults", "enig", $enig)

IniWrite("Shimlar.ini", "defaults", "monstername", $monstername)

IniWrite("Shimlar.ini", "defaults", "sound", $sound)

IniWrite("Shimlar.ini", "defaults", "stat", $stat)

IniWrite("Shimlar.ini", "defaults", "chatcheck", $chatcheck)

IniWrite("Shimlar.ini", "defaults", "atkcast", $atkcast)

IniWrite("Shimlar.ini", "defaults", "bankmin", $bankmin)

IniWrite("Shimlar.ini", "defaults", "bankmax", $bankmax)

IniWrite("Shimlar.ini", "defaults", "quest", $quest)

GUICtrlSetData($input_user, "")

GUICtrlSetData($input_pass, "")

$oIE = _IECreate($url, 1)

WinSetState("Shimlar", "", @SW_MAXIMIZE)

Sleep(1000)

copysframe($clip)

If StringInStr($clip, "Welcome to") Then

login()

repeat()

Else

repeat()

EndIf

EndFunc

While WinExists("Shimlar Script")

sleep(100)

WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Actual Macro;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

func GUILogin2 ()

$enig = GUICtrlRead($check_enig)

$fan = GUICtrlRead($check_fan)

$vet = GUICtrlRead($check_vet)

$def = GUICtrlRead($check_def)

$illu = GUICtrlRead($check_illu)

$ass = GUICtrlRead($check_ass)

$sound = GUICtrlRead($input_sound)

$delaymove = GUICtrlRead($input_mdelay)

$delay = GUICtrlRead($input_fdelay)

$stat = GUICtrlRead($combo_stats)

$monstername = GUICtrlRead($input_monster)

$chatcheck = GUICtrlRead($combo_chat)

;$zonez = GUICtrlRead($combo_monster)

$quest = GUICtrlRead($combo_quest)

IniWrite("Shimlar.ini", "defaults", "fdelay", $delay)

IniWrite("Shimlar.ini", "defaults", "mdelay", $delaymove)

IniWrite("Shimlar.ini", "defaults", "ass", $ass)

IniWrite("Shimlar.ini", "defaults", "fan", $fan)

IniWrite("Shimlar.ini", "defaults", "illu", $illu)

IniWrite("Shimlar.ini", "defaults", "def", $def)

IniWrite("Shimlar.ini", "defaults", "vet", $vet)

IniWrite("Shimlar.ini", "defaults", "enig", $enig)

IniWrite("Shimlar.ini", "defaults", "monstername", $monstername)

IniWrite("Shimlar.ini", "defaults", "sound", $sound)

IniWrite("Shimlar.ini", "defaults", "stat", $stat)

IniWrite("Shimlar.ini", "defaults", "chatcheck", $chatcheck)

IniWrite("Shimlar.ini", "defaults", "atkcast", $atkcast)

IniWrite("Shimlar.ini", "defaults", "bankmin", $bankmin)

IniWrite("Shimlar.ini", "defaults", "bankmax", $bankmax)

IniWrite("Shimlar.ini", "defaults", "quest", $quest)

endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Login Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func login()

sleep(500)

$oFrame = _IEFrameGetObjByName($oIE, "chat")

$oForm = _IEFormGetObjByName($oFrame, "enter")

$oLogin = _IEFormElementGetObjByName($oForm, "l")

$oPass = _IEFormElementGetObjByName($oForm, "p")

$oEnter = _IEFormElementGetObjByName($oForm, "btn_enter")

_IEFormElementSetValue($oLogin, $username)

_IEFormElementSetValue($oPass, $password)

$oEnter.click

_IELoadWait($oIE)

sleep(5000)

$oClan = _IEGetObjByName($oFrame, "joku1", 3)

$oClan.click

_IELoadWait($oIE)

sleep(1000)

_IELinkClickByText($oFrame, "Fast chat")

_IELoadWait($oIE)

sleep(2000)

$oFrame2 = _IEFrameGetObjByName($oIE, "chat")

$oForm2 = _IEFormGetObjByName($oFrame2, "msg")

$oTarget = _IEFormElementGetObjByName($oForm2, "target")

$oSend = _IEFormElementGetObjByName($oForm2, "btn_chat")

_IEFormElementSetValue($oTarget, "/norace")

$oSend.click

_IELoadWait($oIE)

sleep(1000)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;North Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func north()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

_IEImgClick($oFrame, "http://www.shimlar.org/picz/Nwood.jpg")

_IELoadWait($oIE)

sleep($delaymove)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;South Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func south()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

_IEImgClick($oFrame, "http://www.shimlar.org/picz/Swood.jpg")

_IELoadWait($oIE)

sleep($delaymove)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;East Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func east()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

_IEImgClick($oFrame, "http://www.shimlar.org/picz/Ewood.jpg")

_IELoadWait($oIE)

sleep($delaymove)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;West Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func west()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

_IEImgClick($oFrame, "http://www.shimlar.org/picz/Wwood.jpg")

_IELoadWait($oIE)

sleep($delaymove)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Click New Fight;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func clicknewfight()

copyframe()

GUILogin2()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm = _IEFormGetObjByName($oFrame, "stuph")

$oCreatures = _IEFormElementGetObjByName($oForm, "a")

_IEFormElementOptionselect($oCreatures, "Fight Creatures", 1, "byText")

$oMonster = _IEFormElementGetObjByName($oForm, "k")

_IEFormElementOptionselect($oMonster, $monstername, 1, "byText")

Select

Case IsObj(_IEFormElementGetCollection($oForm, 5))

$oFight = _IEFormElementGetCollection($oForm, 5)

$oFight.click

Case Else

sleep(10)

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;

Func copyframe()

$oFrame = _IEFrameGetObjByName($oIE, "invent")

$clip = _IEBodyReadText($oFrame)

GUICtrlSetData($label_wee, $clip)

endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Click Sacrifice;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func clicksacrifice()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm = _IEFormGetCollection($oFrame, 2)

$oSacrifice = _IEFormElementGetCollection($oForm, 0)

Select

Case IsObj(_IEFormElementGetCollection($oForm, 0))

$oSacrifice = _IEFormElementGetCollection($oForm, 0)

$oSacrifice.click

sleep(1500)

Case Else

sleep(10)

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Click Cast;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func clickcast()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm1 = _IEFormGetObjByName($oFrame, "castForm")

$oForm2 = _IEFormGetObjByName($oFrame, "fightForm")

$oButton1 = _IEFormElementGetObjByName($oForm1, "btn_cast")

$oButton2 = _IEFormElementGetObjByName($oForm2, "btn_cast")

$check1 = IsObj($oButton1)

$check2 = IsObj($oButton2)

Select

Case $check1 = 1

$oButton1.click

Case $check2 = 1

$oButton2.click

Case Else

sleep(10)

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Copy the Statframe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func copysframe(ByRef $clip)

$oFrame = _IEFrameGetObjByName($oIE, "invent")

$clip = _IEBodyReadHTML($oFrame)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Click Attack;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func clickattack()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm1 = _IEFormGetObjByName($oFrame, "castForm")

$oForm2 = _IEFormGetObjByName($oFrame, "fightForm")

$oButton1 = _IEFormElementGetObjByName($oForm1, "btn_attack")

$oButton2 = _IEFormElementGetObjByName($oForm2, "btn_attack")

$check1 = IsObj($oButton1)

$check2 = IsObj($oButton2)

Select

Case $check1 = 1

$oButton1.click

_IELoadWait($oIE)

sleep($delay)

Case $check2 = 1

$oButton2.click

_IELoadWait($oIE)

sleep($delay)

Case Else

sleep(10)

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CTB2;;;;;;;;;

Func ctb2()

if $temptb = "1" Then

Tooltip('')

$temptb = "0"

Else

sleep(1)

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;TTB2;;;;;;;;;;;;;;;;;;;;;

Func ttb2()

bankbal()

if $ctb = "No" Then

ttb()

Else

pmyn()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TTB;;;;;;;;;;

Func ttb()

ToolTip("Bank:[" & $bankbal & "]",700,3)

sleep(1)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PMYN;;;;;;;;;;;;;;

Func pmyn()

if $cpm = "No" Then

pmn()

Else

pmy()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PMN;;;;;;;;;;;

Func pmn()

ctb2()

TrayTip("Bank: [" & $bankbal & "]", "D: " & $cdeaths & ", Lvls: " & $clevels & ", Gold: " & $maxgold & ", Gems: " & $cgems & ", S: " & $cshadows & ", AM: " & $carmor & ", SM: " & $cspell & ", DH: " & $cdouble & ", Purses: " & $cpurse & ", Kills: " & $kills & ".", 1)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;PMY;;;;;;;;;;;;;;;;

Func pmy()

ctb2()

TrayTip("[" & $bankbal & "] ~ PM's in chat.", "Deaths: " & $cdeaths & ", Lvls: " & $clevels & ", Gold: " & $maxgold & ", Gems: " & $cgems & ", Shadows: " & $cshadows & ", AM: " & $carmor & ", SM: " & $cspell & ", DH: " & $cdouble & ", Purses: " & $cpurse & ", Kills: " & $kills & ".", 1)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Newfight Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func newfight()

Do

toolpm()

ttb2()

copybframe($clip)

sleep(10)

Select

Case StringInStr($clip, "Shrine")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "You enter the Magic Tower.")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "Welcome to the Shop.")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "Bank.")

deposit()

sleep(1000)

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "You enter the temple and stop near a glowing altar.")

south()

sleep(1000)

movecheck()

Case StringInStr($clip, "Enemy is dead, R.I.P.")

clicknewfight()

Case Else

clicknewfight()

EndSelect

copybframe($clip)

sleep(10)

Until StringInStr($clip, "aim")

Select

Case StringInStr($clip, "Fanatic")

If Not $fanatic = 1 Then

sleep(10)

clicknewfight()

ElseIf $fanatic = 1 Then

attack()

EndIf

Case StringInStr($clip, "Veteran")

If Not $veteran = 1 Then

sleep(10)

clicknewfight()

ElseIf $veteran = 1 Then

attack()

EndIf

Case StringInStr($clip, "Enigma")

If Not $enigma = 1 Then

sleep(10)

clicknewfight()

ElseIf $enigma = 1 Then

attack()

EndIf

Case StringInStr($clip, "Illusionist")

If Not $illusionist = 1 Then

sleep(10)

clicknewfight()

ElseIf $illusionist = 1 Then

attack()

EndIf

Case StringInStr($clip, "Assassin")

If Not $assassin = 1 Then

sleep(10)

clicknewfight()

ElseIf $assassin = 1 Then

attack()

EndIf

Case StringInStr($clip, "Defender")

If Not $defender = 1 Then

sleep(10)

clicknewfight()

ElseIf $defender = 1 Then

attack()

EndIf

Case Else

attack()

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Newfight Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func questfight()

Do

Do

TrayTip("Questing", "Deaths: " & $cdeaths & ", Levels: " & $clevels & ", Max Gold: " & $maxgold & ", Gems: " & $cgems & ", Shadows: " & $cshadows & ", Armor Masteries: " & $carmor & ", Spell Masteries: " & $cspell & ", Weapon Masteries: " & $cweapon & ", Doublehit Masteries: " & $cdouble & ", Turns: " & $cturns & ", Equips: " & $cequip & ".", 1)

copybframe($clip)

sleep(10)

Select

Case StringInStr($clip, "Shrine")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "You enter the Magic Tower.")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "Welcome to the Shop.")

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "Bank.")

deposit()

sleep(1000)

south()

sleep(1000)

movecheck()

Case StringInStr ($clip, "You enter the temple and stop near a glowing altar.")

south()

sleep(1000)

movecheck()

Case StringInStr($clip, "teleported")

movecheck()

Case StringInStr($clip, "Enemy is dead, R.I.P.")

clicknewfight()

Case Else

clicknewfight()

EndSelect

Until StringInStr($clip, "aim")

Select

Case StringInStr($clip, "Fanatic")

If $ccfan = 1 Then

clicknewfight()

Else

attack()

$ccfan = 1

If $ccillu = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Fanatic"

Else

$defeated = "Fanatic"

EndIf

EndIf

Case StringInStr($clip, "Veteran")

If $ccvet = 1 Then

clicknewfight()

Else

attack()

$ccvet = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Veteran"

Else

$defeated = "Veteran"

EndIf

EndIf

Case StringInStr($clip, "Illusionist")

If $ccillu = 1 Then

clicknewfight()

Else

attack()

$ccillu = 1

If $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Illusionist"

Else

$defeated = "Illusionist"

EndIf

EndIf

Case StringInStr($clip, "Defender")

If $ccdef = 1 Then

clicknewfight()

Else

attack()

$ccdef = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Defender"

Else

$defeated = "Defender"

EndIf

EndIf

Case StringInStr($clip, "Assassin")

If $ccass = 1 Then

clicknewfight()

Else

attack()

$ccass = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Assassin"

Else

$defeated = "Assassin"

EndIf

EndIf

Case StringInStr($clip, "King", 1)

If $ccking = 1 Then

clicknewfight()

Else

attack()

$ccking = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Then

$defeated &= ", King"

Else

$defeated = "King"

EndIf

EndIf

Case StringInStr($clip, "Merchant")

If $ccmerch = 1 Then

clicknewfight()

Else

attack()

$ccmerch = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Merchant"

Else

$defeated = "Merchant"

EndIf

EndIf

Case StringInStr($clip, "Elder")

If $ccelder = 1 Then

clicknewfight()

Else

attack()

$ccelder = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccking = 1 Then

$defeated &= ", Elder"

Else

$defeated = "Elder"

EndIf

EndIf

Case StringInStr($clip, "Fool")

If $ccfool = 1 Then

clicknewfight()

Else

attack()

$ccfool = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccenig = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Fool"

Else

$defeated = "Fool"

EndIf

EndIf

Case StringInStr($clip, "Enigma")

If $ccenig = 1 Then

clicknewfight()

Else

attack()

$ccenig = 1

If $ccillu = 1 Or $ccfan = 1 Or $ccvet = 1 Or $ccass = 1 Or $ccdef = 1 Or $ccfool = 1 Or $ccmerch = 1 Or $ccelder = 1 Or $ccking = 1 Then

$defeated &= ", Enigma"

Else

$defeated = "Enigma"

EndIf

EndIf

Case Else

clicknewfight()

EndSelect

ToolTip("Specials defeated: " & $defeated & ".", 0, 0, "", 0, 4)

If $ccfan = 1 And $ccvet = 1 And $ccass = 1 And $ccdef = 1 And $ccfool = 1 And $ccenig = 1 And $ccmerch = 1 And $ccelder = 1 And $ccking = 1 And $ccillu = 1 Then

If StringInStr($clip, "You completed a quest") Then

sleep(2000)

bank()

MsgBox(0, "Quest script", "Quest completed, press OK to exit.")

Exit

Else

MsgBox(0, "Quest script", "Quest script has killed every special. Press OK to exit.")

Exit

EndIf

EndIf

Until StringInStr($clip, "You completed a quest")

sleep(2000)

bank()

MsgBox(0, "Quest script", "Quest completed, press OK to exit.")

Exit

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Attack Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func attack()

Do

If $quest = "On" Then

TrayTip("Questing", "Deaths: " & $cdeaths & ", Levels: " & $clevels & ", Max Gold: " & $maxgold & ", Gems: " & $cgems & ", Shadows: " & $cshadows & ", Armor Masteries: " & $carmor & ", Spell Masteries: " & $cspell & ", Weapon Masteries: " & $cweapon & ", Doublehit Masteries: " & $cdouble & ", Turns: " & $cturns & ", Equips: " & $cequip & ".", 1)

Else

ttb2()

EndIf

toolpm()

copybframe($clip)

sleep(10)

If $atkcast = "cast" Then

clickcast()

ElseIf $atkcast = "attack" Then

clickattack()

EndIf

Select

Case StringInStr ($clip, "select")

sleep(1000)

ToolTip('Last Action: Ding!',0,0)

level()

Case StringInStr($clip, "teleported")

movecheck()

clicknewfight()

Case StringInStr($clip, "You find a gem!")

ToolTip('Last Action: You find a gem!',0,0)

$cgems = $cgems + 1

sleep(500)

Case StringInStr($clip, "The Gods awarded your brutal fight!")

$cturns = $cturns + 1

ToolTip('Last Action: You got more turns!',0,0)

sleep(500)

Case StringInStr($clip, "piece")

$cequip = $cequip + 1

ToolTip('Last Action: You found a piece of equipment!',0,0)

sleep(500)

Case StringInStr($clip, "purse")

$cpurse = $cpurse + 1

ToolTip('Last Action: You found the enemies purse!', 0,0)

sleep(500)

bank()

Case StringInStr($clip, "item just like")

$cequip = $cequip + 1

ToolTip('Last Action: You found a piece of equipment!',0,0)

sleep(500)

Case StringInstr($clip, "Enemy is dead, R.I.P.")

$kills = $kills + 1

sleep(500)

Case StringInStr($clip, "No fighting allowed here!")

sleep(1500)

south()

movecheck()

clicknewfight()

Case StringInStr($clip, "You find a shadow item!")

ToolTip('Last Action: You found a Shadow Item!',0,0)

$cshadows = $cshadows + 1

sleep(1000)

Case StringInStr($clip, "Your armor mastery increased!")

$carmor = $carmor + 1

ToolTip('Last Action: Your armor mastery increased!',0,0)

sleep(1000)

Case StringInStr($clip, "Your doublehit mastery increased!")

$cdouble = $cdouble + 1

ToolTip('Last Action: Your doublehit mastery increased!',0,0)

sleep(1000)

Case StringInStr($clip, "Your spell mastery increased!")

$cspell = $cspell + 1

ToolTip('Last Action: Your spell mastery increased!',0,0)

sleep(1000)

Case StringInStr($clip, "Your weapon mastery increased!")

$cweapon = $cweapon + 1

ToolTip('Last Action: Your weapon mastery increased!',0,0)

sleep(1000)

Case StringInStr($clip, "Ghosts can't fight :rambo:")

sleep(1000)

ToolTip('Last Action: You died.',0,0)

revive()

Case StringInStr($clip, "All life has fled out of you!")

sleep(1000)

ToolTip('Last Action: You died.',0,0)

revive()

Case StringInStr($clip, "You have been killed, R.I.P." )

sleep(1000)

revive()

Case StringInStr($clip, "Enemy is already dead!")

sleep($delay)

clicknewfight()

Case Else

If $atkcast = "cast" Then

clickcast()

ElseIf $atkcast = "attack" Then

clickattack()

EndIf

EndSelect

Until StringInStr($clip, "Enemy is dead, R.I.P.")

If StringInStr ($clip, "teleported") Then

sleep(500)

movecheck()

clicknewfight()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Level Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func level()

$clevels = $clevels + 1

sleep(200)

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

If $stat = "Wis" Then

_IELinkClickByText($oFrame, "+wis+")

_IELoadWait($oIE)

sleep($delaymove)

ElseIf $stat="Dex" Then

_IELinkClickByText($oFrame, "+dex+")

_IELoadWait($oIE)

sleep($delaymove)

ElseIf $stat="Vit" Then

_IELinkClickByText($oFrame, "+vit+")

_IELoadWait($oIE)

sleep($delaymove)

ElseIf $stat="Ntl" Then

_IELinkClickByText($oFrame, "+ntl+")

_IELoadWait($oIE)

sleep($delaymove)

ElseIf $stat="Str" Then

_IELinkClickByText($oFrame, "+str+")

_IELoadWait($oIE)

sleep($delaymove)

EndIf

sleep(500)

movecheck()

clicknewfight()

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Copy the Battleframe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func copybframe(ByRef $clip)

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$clip = _IEBodyReadText($oFrame)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Copy the Chatframe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func copycframe(ByRef $clip)

$oFrame = _IEFrameGetObjByName($oIE, "chat")

$clip = _IEBodyReadText($oFrame)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Play Sound;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func playsound()

SoundPlay($sound)

sleep(2000)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Moar Anti Macro Check Procedures;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func antimtw()

$cpm = "Yes"

$ctb = "Yes"

$temptb = "1"

; sleep(10)

;playsound()

; sleep(100)

; sleep(60000)

EndFunc

Func toolpm()

copycframe($clip)

If StringInStr($clip, "aa says:") Then

antimtw()

elseIf StringInStr($clip, "ab says:") Then

antimtw()

elseIf StringInStr($clip, "ac says:") Then

antimtw()

elseIf StringInStr($clip, "ad says:") Then

antimtw()

elseIf StringInStr($clip, "ae says:") Then

antimtw()

elseIf StringInStr($clip, "af says:") Then

antimtw()

elseIf StringInStr($clip, "ag says:") Then

antimtw()

elseIf StringInStr($clip, "ah says:") Then

antimtw()

elseIf StringInStr($clip, "ai says:") Then

antimtw()

elseIf StringInStr($clip, "aj says:") Then

antimtw()

elseIf StringInStr($clip, "ak says:") Then

antimtw()

elseIf StringInStr($clip, "al says:") Then

antimtw()

elseIf StringInStr($clip, "am says:") Then

antimtw()

elseIf StringInStr($clip, "an says:") Then

antimtw()

elseIf StringInStr($clip, "ao says:") Then

antimtw()

elseIf StringInStr($clip, "ap says:") Then

antimtw()

elseIf StringInStr($clip, "aq says:") Then

antimtw()

elseIf StringInStr($clip, "ar says:") Then

antimtw()

elseIf StringInStr($clip, "as says:") Then

antimtw()

elseIf StringInStr($clip, "at says:") Then

antimtw()

elseIf StringInStr($clip, "au says:") Then

antimtw()

elseIf StringInStr($clip, "av says:") Then

antimtw()

elseIf StringInStr($clip, "aw says:") Then

antimtw()

elseIf StringInStr($clip, "ax says:") Then

antimtw()

elseIf StringInStr($clip, "ay says:") Then

antimtw()

elseIf StringInStr($clip, "az says:") Then

antimtw()

elseIf StringInStr($clip, "a1 says:") Then

antimtw()

elseIf StringInStr($clip, "a2 says:") Then

antimtw()

elseIf StringInStr($clip, "a3 says:") Then

antimtw()

elseIf StringInStr($clip, "a4 says:") Then

antimtw()

elseIf StringInStr($clip, "a5 says:") Then

antimtw()

elseIf StringInStr($clip, "a6 says:") Then

antimtw()

elseIf StringInStr($clip, "a7 says:") Then

antimtw()

elseIf StringInStr($clip, "a8 says:") Then

antimtw()

elseIf StringInStr($clip, "a9 says:") Then

antimtw()

elseIf StringInStr($clip, "a0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ba says:") Then

antimtw()

ElseIf StringInStr($clip, "bb says:") Then

antimtw()

ElseIf StringInStr($clip, "bc says:") Then

antimtw()

ElseIf StringInStr($clip, "bd says:") Then

antimtw()

ElseIf StringInStr($clip, "be says:") Then

antimtw()

ElseIf StringInStr($clip, "bf says:") Then

antimtw()

ElseIf StringInStr($clip, "bg says:") Then

antimtw()

ElseIf StringInStr($clip, "bh says:") Then

antimtw()

ElseIf StringInStr($clip, "bi says:") Then

antimtw()

ElseIf StringInStr($clip, "bj says:") Then

antimtw()

ElseIf StringInStr($clip, "bk says:") Then

antimtw()

ElseIf StringInStr($clip, "bl says:") Then

antimtw()

ElseIf StringInStr($clip, "bm says:") Then

antimtw()

ElseIf StringInStr($clip, "bn says:") Then

antimtw()

ElseIf StringInStr($clip, "bo says:") Then

antimtw()

ElseIf StringInStr($clip, "bp says:") Then

antimtw()

ElseIf StringInStr($clip, "bq says:") Then

antimtw()

ElseIf StringInStr($clip, "br says:") Then

antimtw()

ElseIf StringInStr($clip, "bs says:") Then

antimtw()

ElseIf StringInStr($clip, "bt says:") Then

antimtw()

ElseIf StringInStr($clip, "bu says:") Then

antimtw()

ElseIf StringInStr($clip, "bv says:") Then

antimtw()

ElseIf StringInStr($clip, "bw says:") Then

antimtw()

ElseIf StringInStr($clip, "bx says:") Then

antimtw()

ElseIf StringInStr($clip, "by says:") Then

antimtw()

ElseIf StringInStr($clip, "bz says:") Then

antimtw()

ElseIf StringInStr($clip, "b1 says:") Then

antimtw()

ElseIf StringInStr($clip, "b2 says:") Then

antimtw()

ElseIf StringInStr($clip, "b3 says:") Then

antimtw()

ElseIf StringInStr($clip, "b4 says:") Then

antimtw()

ElseIf StringInStr($clip, "b5 says:") Then

antimtw()

ElseIf StringInStr($clip, "b6 says:") Then

antimtw()

ElseIf StringInStr($clip, "b7 says:") Then

antimtw()

ElseIf StringInStr($clip, "b8 says:") Then

antimtw()

ElseIf StringInStr($clip, "b9 says:") Then

antimtw()

ElseIf StringInStr($clip, "b0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ca says:") Then

antimtw()

ElseIf StringInStr($clip, "cb says:") Then

antimtw()

ElseIf StringInStr($clip, "cc says:") Then

antimtw()

ElseIf StringInStr($clip, "cd says:") Then

antimtw()

ElseIf StringInStr($clip, "ce says:") Then

antimtw()

ElseIf StringInStr($clip, "cf says:") Then

antimtw()

ElseIf StringInStr($clip, "cg says:") Then

antimtw()

ElseIf StringInStr($clip, "ch says:") Then

antimtw()

ElseIf StringInStr($clip, "ci says:") Then

antimtw()

ElseIf StringInStr($clip, "cj says:") Then

antimtw()

ElseIf StringInStr($clip, "ck says:") Then

antimtw()

ElseIf StringInStr($clip, "cl says:") Then

antimtw()

ElseIf StringInStr($clip, "cm says:") Then

antimtw()

ElseIf StringInStr($clip, "cn says:") Then

antimtw()

ElseIf StringInStr($clip, "co says:") Then

antimtw()

ElseIf StringInStr($clip, "cp says:") Then

antimtw()

ElseIf StringInStr($clip, "cq says:") Then

antimtw()

ElseIf StringInStr($clip, "cr says:") Then

antimtw()

ElseIf StringInStr($clip, "cs says:") Then

antimtw()

ElseIf StringInStr($clip, "ct says:") Then

antimtw()

ElseIf StringInStr($clip, "cu says:") Then

antimtw()

ElseIf StringInStr($clip, "cv says:") Then

antimtw()

ElseIf StringInStr($clip, "cw says:") Then

antimtw()

ElseIf StringInStr($clip, "cx says:") Then

antimtw()

ElseIf StringInStr($clip, "cy says:") Then

antimtw()

ElseIf StringInStr($clip, "cz says:") Then

antimtw()

ElseIf StringInStr($clip, "c1 says:") Then

antimtw()

ElseIf StringInStr($clip, "c2 says:") Then

antimtw()

ElseIf StringInStr($clip, "c3 says:") Then

antimtw()

ElseIf StringInStr($clip, "c4 says:") Then

antimtw()

ElseIf StringInStr($clip, "c5 says:") Then

antimtw()

ElseIf StringInStr($clip, "c6 says:") Then

antimtw()

ElseIf StringInStr($clip, "c7 says:") Then

antimtw()

ElseIf StringInStr($clip, "c8 says:") Then

antimtw()

ElseIf StringInStr($clip, "c9 says:") Then

antimtw()

ElseIf StringInStr($clip, "da says:") Then

antimtw()

ElseIf StringInStr($clip, "db says:") Then

antimtw()

ElseIf StringInStr($clip, "dc says:") Then

antimtw()

ElseIf StringInStr($clip, "de says:") Then

antimtw()

ElseIf StringInStr($clip, "df says:") Then

antimtw()

ElseIf StringInStr($clip, "dg says:") Then

antimtw()

ElseIf StringInStr($clip, "dh says:") Then

antimtw()

ElseIf StringInStr($clip, "di says:") Then

antimtw()

ElseIf StringInStr($clip, "dj says:") Then

antimtw()

ElseIf StringInStr($clip, "dk says:") Then

antimtw()

ElseIf StringInStr($clip, "dl says:") Then

antimtw()

ElseIf StringInStr($clip, "dm says:") Then

antimtw()

ElseIf StringInStr($clip, "dn says:") Then

antimtw()

ElseIf StringInStr($clip, "do says:") Then

antimtw()

ElseIf StringInStr($clip, "dp says:") Then

antimtw()

ElseIf StringInStr($clip, "dq says:") Then

antimtw()

ElseIf StringInStr($clip, "dr says:") Then

antimtw()

ElseIf StringInStr($clip, "ds says:") Then

antimtw()

ElseIf StringInStr($clip, "dt says:") Then

antimtw()

ElseIf StringInStr($clip, "du says:") Then

antimtw()

ElseIf StringInStr($clip, "dv says:") Then

antimtw()

ElseIf StringInStr($clip, "dw says:") Then

antimtw()

ElseIf StringInStr($clip, "dx says:") Then

antimtw()

ElseIf StringInStr($clip, "dy says:") Then

antimtw()

ElseIf StringInStr($clip, "dz says:") Then

antimtw()

ElseIf StringInStr($clip, "d1 says:") Then

antimtw()

ElseIf StringInStr($clip, "d2 says:") Then

antimtw()

ElseIf StringInStr($clip, "d3 says:") Then

antimtw()

ElseIf StringInStr($clip, "d4 says:") Then

antimtw()

ElseIf StringInStr($clip, "d5 says:") Then

antimtw()

ElseIf StringInStr($clip, "d6 says:") Then

antimtw()

ElseIf StringInStr($clip, "d7 says:") Then

antimtw()

ElseIf StringInStr($clip, "d8 says:") Then

antimtw()

ElseIf StringInStr($clip, "d9 says:") Then

antimtw()

ElseIf StringInStr($clip, "d0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ea says:") Then

antimtw()

ElseIf StringInStr($clip, "eb says:") Then

antimtw()

ElseIf StringInStr($clip, "ec says:") Then

antimtw()

ElseIf StringInStr($clip, "ed says:") Then

antimtw()

ElseIf StringInStr($clip, "ee says:") Then

antimtw()

ElseIf StringInStr($clip, "ef says:") Then

antimtw()

ElseIf StringInStr($clip, "eg says:") Then

antimtw()

ElseIf StringInStr($clip, "eh says:") Then

antimtw()

ElseIf StringInStr($clip, "ei says:") Then

antimtw()

ElseIf StringInStr($clip, "ej says:") Then

antimtw()

ElseIf StringInStr($clip, "ek says:") Then

antimtw()

ElseIf StringInStr($clip, "el says:") Then

antimtw()

ElseIf StringInStr($clip, "em says:") Then

antimtw()

ElseIf StringInStr($clip, "en says:") Then

antimtw()

ElseIf StringInStr($clip, "eo says:") Then

antimtw()

ElseIf StringInStr($clip, "ep says:") Then

antimtw()

ElseIf StringInStr($clip, "eq says:") Then

antimtw()

ElseIf StringInStr($clip, "er says:") Then

antimtw()

ElseIf StringInStr($clip, "es says:") Then

antimtw()

ElseIf StringInStr($clip, "et says:") Then

antimtw()

ElseIf StringInStr($clip, "eu says:") Then

antimtw()

ElseIf StringInStr($clip, "ev says:") Then

antimtw()

ElseIf StringInStr($clip, "ew says:") Then

antimtw()

ElseIf StringInStr($clip, "ex says:") Then

antimtw()

ElseIf StringInStr($clip, "ey says:") Then

antimtw()

ElseIf StringInStr($clip, "ez says:") Then

antimtw()

ElseIf StringInStr($clip, "e1 says:") Then

antimtw()

ElseIf StringInStr($clip, "e2 says:") Then

antimtw()

ElseIf StringInStr($clip, "e3 says:") Then

antimtw()

ElseIf StringInStr($clip, "e4 says:") Then

antimtw()

ElseIf StringInStr($clip, "e5 says:") Then

antimtw()

ElseIf StringInStr($clip, "e6 says:") Then

antimtw()

ElseIf StringInStr($clip, "e7 says:") Then

antimtw()

ElseIf StringInStr($clip, "e8 says:") Then

antimtw()

ElseIf StringInStr($clip, "e9 says:") Then

antimtw()

ElseIf StringInStr($clip, "e0 says:") Then

antimtw()

ElseIf StringInStr($clip, "fa says:") Then

antimtw()

ElseIf StringInStr($clip, "fb says:") Then

antimtw()

ElseIf StringInStr($clip, "fc says:") Then

antimtw()

ElseIf StringInStr($clip, "fd says:") Then

antimtw()

ElseIf StringInStr($clip, "fe says:") Then

antimtw()

ElseIf StringInStr($clip, "ff says:") Then

antimtw()

ElseIf StringInStr($clip, "fg says:") Then

antimtw()

ElseIf StringInStr($clip, "fh says:") Then

antimtw()

ElseIf StringInStr($clip, "fi says:") Then

antimtw()

ElseIf StringInStr($clip, "fj says:") Then

antimtw()

ElseIf StringInStr($clip, "fk says:") Then

antimtw()

ElseIf StringInStr($clip, "fl says:") Then

antimtw()

ElseIf StringInStr($clip, "fm says:") Then

antimtw()

ElseIf StringInStr($clip, "fn says:") Then

antimtw()

ElseIf StringInStr($clip, "fo says:") Then

antimtw()

ElseIf StringInStr($clip, "fp says:") Then

antimtw()

ElseIf StringInStr($clip, "fq says:") Then

antimtw()

ElseIf StringInStr($clip, "fr says:") Then

antimtw()

ElseIf StringInStr($clip, "fs says:") Then

antimtw()

ElseIf StringInStr($clip, "ft says:") Then

antimtw()

ElseIf StringInStr($clip, "fu says:") Then

antimtw()

ElseIf StringInStr($clip, "fv says:") Then

antimtw()

ElseIf StringInStr($clip, "fw says:") Then

antimtw()

ElseIf StringInStr($clip, "fx says:") Then

antimtw()

ElseIf StringInStr($clip, "fy says:") Then

antimtw()

ElseIf StringInStr($clip, "fz says:") Then

antimtw()

ElseIf StringInStr($clip, "f1 says:") Then

antimtw()

ElseIf StringInStr($clip, "f2 says:") Then

antimtw()

ElseIf StringInStr($clip, "f3 says:") Then

antimtw()

ElseIf StringInStr($clip, "f4 says:") Then

antimtw()

ElseIf StringInStr($clip, "f5 says:") Then

antimtw()

ElseIf StringInStr($clip, "f6 says:") Then

antimtw()

ElseIf StringInStr($clip, "f7 says:") Then

antimtw()

ElseIf StringInStr($clip, "f8 says:") Then

antimtw()

ElseIf StringInStr($clip, "f9 says:") Then

antimtw()

ElseIf StringInStr($clip, "f0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ga says:") Then

antimtw()

ElseIf StringInStr($clip, "gb says:") Then

antimtw()

ElseIf StringInStr($clip, "gc says:") Then

antimtw()

ElseIf StringInStr($clip, "gd says:") Then

antimtw()

ElseIf StringInStr($clip, "ge says:") Then

antimtw()

ElseIf StringInStr($clip, "gf says:") Then

antimtw()

ElseIf StringInStr($clip, "gg says:") Then

antimtw()

ElseIf StringInStr($clip, "gh says:") Then

antimtw()

ElseIf StringInStr($clip, "gi says:") Then

antimtw()

ElseIf StringInStr($clip, "gj says:") Then

antimtw()

ElseIf StringInStr($clip, "gk says:") Then

antimtw()

ElseIf StringInStr($clip, "gl says:") Then

antimtw()

ElseIf StringInStr($clip, "gm says:") Then

antimtw()

ElseIf StringInStr($clip, "gn says:") Then

antimtw()

ElseIf StringInStr($clip, "go says:") Then

antimtw()

ElseIf StringInStr($clip, "gp says:") Then

antimtw()

ElseIf StringInStr($clip, "gq says:") Then

antimtw()

ElseIf StringInStr($clip, "gr says:") Then

antimtw()

ElseIf StringInStr($clip, "gs says:") Then

antimtw()

ElseIf StringInStr($clip, "gt says:") Then

antimtw()

ElseIf StringInStr($clip, "gu says:") Then

antimtw()

ElseIf StringInStr($clip, "gv says:") Then

antimtw()

ElseIf StringInStr($clip, "gw says:") Then

antimtw()

ElseIf StringInStr($clip, "gx says:") Then

antimtw()

ElseIf StringInStr($clip, "gy says:") Then

antimtw()

ElseIf StringInStr($clip, "gz says:") Then

antimtw()

ElseIf StringInStr($clip, "g1 says:") Then

antimtw()

ElseIf StringInStr($clip, "g2 says:") Then

antimtw()

ElseIf StringInStr($clip, "g3 says:") Then

antimtw()

ElseIf StringInStr($clip, "g4 says:") Then

antimtw()

ElseIf StringInStr($clip, "g5 says:") Then

antimtw()

ElseIf StringInStr($clip, "g6 says:") Then

antimtw()

ElseIf StringInStr($clip, "g7 says:") Then

antimtw()

ElseIf StringInStr($clip, "g8 says:") Then

antimtw()

ElseIf StringInStr($clip, "g9 says:") Then

antimtw()

ElseIf StringInStr($clip, "g0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ha says:") Then

antimtw()

ElseIf StringInStr($clip, "hb says:") Then

antimtw()

ElseIf StringInStr($clip, "hc says:") Then

antimtw()

ElseIf StringInStr($clip, "hd says:") Then

antimtw()

ElseIf StringInStr($clip, "he says:") Then

antimtw()

ElseIf StringInStr($clip, "hf says:") Then

antimtw()

ElseIf StringInStr($clip, "hg says:") Then

antimtw()

ElseIf StringInStr($clip, "hh says:") Then

antimtw()

ElseIf StringInStr($clip, "hi says:") Then

antimtw()

ElseIf StringInStr($clip, "hj says:") Then

antimtw()

ElseIf StringInStr($clip, "hk says:") Then

antimtw()

ElseIf StringInStr($clip, "hl says:") Then

antimtw()

ElseIf StringInStr($clip, "hm says:") Then

antimtw()

ElseIf StringInStr($clip, "hn says:") Then

antimtw()

ElseIf StringInStr($clip, "ho says:") Then

antimtw()

ElseIf StringInStr($clip, "hp says:") Then

antimtw()

ElseIf StringInStr($clip, "hq says:") Then

antimtw()

ElseIf StringInStr($clip, "hr says:") Then

antimtw()

ElseIf StringInStr($clip, "hs says:") Then

antimtw()

ElseIf StringInStr($clip, "ht says:") Then

antimtw()

ElseIf StringInStr($clip, "hu says:") Then

antimtw()

ElseIf StringInStr($clip, "hv says:") Then

antimtw()

ElseIf StringInStr($clip, "hw says:") Then

antimtw()

ElseIf StringInStr($clip, "hx says:") Then

antimtw()

ElseIf StringInStr($clip, "hy says:") Then

antimtw()

ElseIf StringInStr($clip, "hz says:") Then

antimtw()

ElseIf StringInStr($clip, "h1 says:") Then

antimtw()

ElseIf StringInStr($clip, "h2 says:") Then

antimtw()

ElseIf StringInStr($clip, "h3 says:") Then

antimtw()

ElseIf StringInStr($clip, "h4 says:") Then

antimtw()

ElseIf StringInStr($clip, "h5 says:") Then

antimtw()

ElseIf StringInStr($clip, "h6 says:") Then

antimtw()

ElseIf StringInStr($clip, "h7 says:") Then

antimtw()

ElseIf StringInStr($clip, "h8 says:") Then

antimtw()

ElseIf StringInStr($clip, "h9 says:") Then

antimtw()

ElseIf StringInStr($clip, "h0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ia says:") Then

antimtw()

ElseIf StringInStr($clip, "ib says:") Then

antimtw()

ElseIf StringInStr($clip, "ic says:") Then

antimtw()

ElseIf StringInStr($clip, "id says:") Then

antimtw()

ElseIf StringInStr($clip, "ie says:") Then

antimtw()

ElseIf StringInStr($clip, "if says:") Then

antimtw()

ElseIf StringInStr($clip, "ig says:") Then

antimtw()

ElseIf StringInStr($clip, "ih says:") Then

antimtw()

ElseIf StringInStr($clip, "ij says:") Then

antimtw()

ElseIf StringInStr($clip, "ik says:") Then

antimtw()

ElseIf StringInStr($clip, "il says:") Then

antimtw()

ElseIf StringInStr($clip, "im says:") Then

antimtw()

ElseIf StringInStr($clip, "in says:") Then

antimtw()

ElseIf StringInStr($clip, "io says:") Then

antimtw()

ElseIf StringInStr($clip, "ip says:") Then

antimtw()

ElseIf StringInStr($clip, "iq says:") Then

antimtw()

ElseIf StringInStr($clip, "ir says:") Then

antimtw()

ElseIf StringInStr($clip, "is says:") Then

antimtw()

ElseIf StringInStr($clip, "it says:") Then

antimtw()

ElseIf StringInStr($clip, "iu says:") Then

antimtw()

ElseIf StringInStr($clip, "iv says:") Then

antimtw()

ElseIf StringInStr($clip, "iw says:") Then

antimtw()

ElseIf StringInStr($clip, "ix says:") Then

antimtw()

ElseIf StringInStr($clip, "iy says:") Then

antimtw()

ElseIf StringInStr($clip, "iz says:") Then

antimtw()

ElseIf StringInStr($clip, "i1 says:") Then

antimtw()

ElseIf StringInStr($clip, "i2 says:") Then

antimtw()

ElseIf StringInStr($clip, "i3 says:") Then

antimtw()

ElseIf StringInStr($clip, "i4 says:") Then

antimtw()

ElseIf StringInStr($clip, "i5 says:") Then

antimtw()

ElseIf StringInStr($clip, "i6 says:") Then

antimtw()

ElseIf StringInStr($clip, "i7 says:") Then

antimtw()

ElseIf StringInStr($clip, "i8 says:") Then

antimtw()

ElseIf StringInStr($clip, "i9 says:") Then

antimtw()

ElseIf StringInStr($clip, "i0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ja says:") Then

antimtw()

ElseIf StringInStr($clip, "jb says:") Then

antimtw()

ElseIf StringInStr($clip, "jc says:") Then

antimtw()

ElseIf StringInStr($clip, "jd says:") Then

antimtw()

ElseIf StringInStr($clip, "je says:") Then

antimtw()

ElseIf StringInStr($clip, "jf says:") Then

antimtw()

ElseIf StringInStr($clip, "jg says:") Then

antimtw()

ElseIf StringInStr($clip, "jh says:") Then

antimtw()

ElseIf StringInStr($clip, "jj says:") Then

antimtw()

ElseIf StringInStr($clip, "jk says:") Then

antimtw()

ElseIf StringInStr($clip, "jl says:") Then

antimtw()

ElseIf StringInStr($clip, "jm says:") Then

antimtw()

ElseIf StringInStr($clip, "jn says:") Then

antimtw()

ElseIf StringInStr($clip, "jo says:") Then

antimtw()

ElseIf StringInStr($clip, "jp says:") Then

antimtw()

ElseIf StringInStr($clip, "jq says:") Then

antimtw()

ElseIf StringInStr($clip, "jr says:") Then

antimtw()

ElseIf StringInStr($clip, "js says:") Then

antimtw()

ElseIf StringInStr($clip, "jt says:") Then

antimtw()

ElseIf StringInStr($clip, "ju says:") Then

antimtw()

ElseIf StringInStr($clip, "jv says:") Then

antimtw()

ElseIf StringInStr($clip, "jw says:") Then

antimtw()

ElseIf StringInStr($clip, "jx says:") Then

antimtw()

ElseIf StringInStr($clip, "jy says:") Then

antimtw()

ElseIf StringInStr($clip, "jz says:") Then

antimtw()

ElseIf StringInStr($clip, "j1 says:") Then

antimtw()

ElseIf StringInStr($clip, "j2 says:") Then

antimtw()

ElseIf StringInStr($clip, "j3 says:") Then

antimtw()

ElseIf StringInStr($clip, "j4 says:") Then

antimtw()

ElseIf StringInStr($clip, "j5 says:") Then

antimtw()

ElseIf StringInStr($clip, "j6 says:") Then

antimtw()

ElseIf StringInStr($clip, "j7 says:") Then

antimtw()

ElseIf StringInStr($clip, "j8 says:") Then

antimtw()

ElseIf StringInStr($clip, "j9 says:") Then

antimtw()

ElseIf StringInStr($clip, "j0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ka says:") Then

antimtw()

ElseIf StringInStr($clip, "kb says:") Then

antimtw()

ElseIf StringInStr($clip, "kc says:") Then

antimtw()

ElseIf StringInStr($clip, "kd says:") Then

antimtw()

ElseIf StringInStr($clip, "ke says:") Then

antimtw()

ElseIf StringInStr($clip, "kf says:") Then

antimtw()

ElseIf StringInStr($clip, "kg says:") Then

antimtw()

ElseIf StringInStr($clip, "kh says:") Then

antimtw()

ElseIf StringInStr($clip, "kj says:") Then

antimtw()

ElseIf StringInStr($clip, "kk says:") Then

antimtw()

ElseIf StringInStr($clip, "kl says:") Then

antimtw()

ElseIf StringInStr($clip, "km says:") Then

antimtw()

ElseIf StringInStr($clip, "kn says:") Then

antimtw()

ElseIf StringInStr($clip, "ko says:") Then

antimtw()

ElseIf StringInStr($clip, "kp says:") Then

antimtw()

ElseIf StringInStr($clip, "kq says:") Then

antimtw()

ElseIf StringInStr($clip, "kr says:") Then

antimtw()

ElseIf StringInStr($clip, "ks says:") Then

antimtw()

ElseIf StringInStr($clip, "kt says:") Then

antimtw()

ElseIf StringInStr($clip, "ku says:") Then

antimtw()

ElseIf StringInStr($clip, "kv says:") Then

antimtw()

ElseIf StringInStr($clip, "kw says:") Then

antimtw()

ElseIf StringInStr($clip, "kx says:") Then

antimtw()

ElseIf StringInStr($clip, "ky says:") Then

antimtw()

ElseIf StringInStr($clip, "kz says:") Then

antimtw()

ElseIf StringInStr($clip, "k1 says:") Then

antimtw()

ElseIf StringInStr($clip, "k2 says:") Then

antimtw()

ElseIf StringInStr($clip, "k3 says:") Then

antimtw()

ElseIf StringInStr($clip, "k4 says:") Then

antimtw()

ElseIf StringInStr($clip, "k5 says:") Then

antimtw()

ElseIf StringInStr($clip, "k6 says:") Then

antimtw()

ElseIf StringInStr($clip, "k7 says:") Then

antimtw()

ElseIf StringInStr($clip, "k8 says:") Then

antimtw()

ElseIf StringInStr($clip, "k9 says:") Then

antimtw()

ElseIf StringInStr($clip, "k0 says:") Then

antimtw()

ElseIf StringInStr($clip, "la says:") Then

antimtw()

ElseIf StringInStr($clip, "lb says:") Then

antimtw()

ElseIf StringInStr($clip, "lc says:") Then

antimtw()

ElseIf StringInStr($clip, "ld says:") Then

antimtw()

ElseIf StringInStr($clip, "le says:") Then

antimtw()

ElseIf StringInStr($clip, "lf says:") Then

antimtw()

ElseIf StringInStr($clip, "lg says:") Then

antimtw()

ElseIf StringInStr($clip, "lh says:") Then

antimtw()

ElseIf StringInStr($clip, "lj says:") Then

antimtw()

ElseIf StringInStr($clip, "lk says:") Then

antimtw()

ElseIf StringInStr($clip, "ll says:") Then

antimtw()

ElseIf StringInStr($clip, "lm says:") Then

antimtw()

ElseIf StringInStr($clip, "ln says:") Then

antimtw()

ElseIf StringInStr($clip, "lo says:") Then

antimtw()

ElseIf StringInStr($clip, "lp says:") Then

antimtw()

ElseIf StringInStr($clip, "lq says:") Then

antimtw()

ElseIf StringInStr($clip, "lr says:") Then

antimtw()

ElseIf StringInStr($clip, "ls says:") Then

antimtw()

ElseIf StringInStr($clip, "lt says:") Then

antimtw()

ElseIf StringInStr($clip, "lu says:") Then

antimtw()

ElseIf StringInStr($clip, "lv says:") Then

antimtw()

ElseIf StringInStr($clip, "lw says:") Then

antimtw()

ElseIf StringInStr($clip, "lx says:") Then

antimtw()

ElseIf StringInStr($clip, "ly says:") Then

antimtw()

ElseIf StringInStr($clip, "lz says:") Then

antimtw()

ElseIf StringInStr($clip, "l1 says:") Then

antimtw()

ElseIf StringInStr($clip, "l2 says:") Then

antimtw()

ElseIf StringInStr($clip, "l3 says:") Then

antimtw()

ElseIf StringInStr($clip, "l4 says:") Then

antimtw()

ElseIf StringInStr($clip, "l5 says:") Then

antimtw()

ElseIf StringInStr($clip, "l6 says:") Then

antimtw()

ElseIf StringInStr($clip, "l7 says:") Then

antimtw()

ElseIf StringInStr($clip, "l8 says:") Then

antimtw()

ElseIf StringInStr($clip, "l9 says:") Then

antimtw()

ElseIf StringInStr($clip, "l0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ma says:") Then

antimtw()

ElseIf StringInStr($clip, "mb says:") Then

antimtw()

ElseIf StringInStr($clip, "mc says:") Then

antimtw()

ElseIf StringInStr($clip, "md says:") Then

antimtw()

ElseIf StringInStr($clip, "me says:") Then

antimtw()

ElseIf StringInStr($clip, "mf says:") Then

antimtw()

ElseIf StringInStr($clip, "mg says:") Then

antimtw()

ElseIf StringInStr($clip, "mh says:") Then

antimtw()

ElseIf StringInStr($clip, "mj says:") Then

antimtw()

ElseIf StringInStr($clip, "mk says:") Then

antimtw()

ElseIf StringInStr($clip, "ml says:") Then

antimtw()

ElseIf StringInStr($clip, "mm says:") Then

antimtw()

ElseIf StringInStr($clip, "mn says:") Then

antimtw()

ElseIf StringInStr($clip, "mo says:") Then

antimtw()

ElseIf StringInStr($clip, "mp says:") Then

antimtw()

ElseIf StringInStr($clip, "mq says:") Then

antimtw()

ElseIf StringInStr($clip, "mr says:") Then

antimtw()

ElseIf StringInStr($clip, "ms says:") Then

antimtw()

ElseIf StringInStr($clip, "mt says:") Then

antimtw()

ElseIf StringInStr($clip, "mu says:") Then

antimtw()

ElseIf StringInStr($clip, "mv says:") Then

antimtw()

ElseIf StringInStr($clip, "mw says:") Then

antimtw()

ElseIf StringInStr($clip, "mx says:") Then

antimtw()

ElseIf StringInStr($clip, "my says:") Then

antimtw()

ElseIf StringInStr($clip, "mz says:") Then

antimtw()

ElseIf StringInStr($clip, "m1 says:") Then

antimtw()

ElseIf StringInStr($clip, "m2 says:") Then

antimtw()

ElseIf StringInStr($clip, "m3 says:") Then

antimtw()

ElseIf StringInStr($clip, "m4 says:") Then

antimtw()

ElseIf StringInStr($clip, "m5 says:") Then

antimtw()

ElseIf StringInStr($clip, "m6 says:") Then

antimtw()

ElseIf StringInStr($clip, "m7 says:") Then

antimtw()

ElseIf StringInStr($clip, "m8 says:") Then

antimtw()

ElseIf StringInStr($clip, "m9 says:") Then

antimtw()

ElseIf StringInStr($clip, "m0 says:") Then

antimtw()

ElseIf StringInStr($clip, "na says:") Then

antimtw()

ElseIf StringInStr($clip, "nb says:") Then

antimtw()

ElseIf StringInStr($clip, "nc says:") Then

antimtw()

ElseIf StringInStr($clip, "nd says:") Then

antimtw()

ElseIf StringInStr($clip, "ne says:") Then

antimtw()

ElseIf StringInStr($clip, "nf says:") Then

antimtw()

ElseIf StringInStr($clip, "ng says:") Then

antimtw()

ElseIf StringInStr($clip, "nh says:") Then

antimtw()

ElseIf StringInStr($clip, "nj says:") Then

antimtw()

ElseIf StringInStr($clip, "nk says:") Then

antimtw()

ElseIf StringInStr($clip, "nl says:") Then

antimtw()

ElseIf StringInStr($clip, "nm says:") Then

antimtw()

ElseIf StringInStr($clip, "nn says:") Then

antimtw()

ElseIf StringInStr($clip, "no says:") Then

antimtw()

ElseIf StringInStr($clip, "np says:") Then

antimtw()

ElseIf StringInStr($clip, "nq says:") Then

antimtw()

ElseIf StringInStr($clip, "nr says:") Then

antimtw()

ElseIf StringInStr($clip, "ns says:") Then

antimtw()

ElseIf StringInStr($clip, "nt says:") Then

antimtw()

ElseIf StringInStr($clip, "nu says:") Then

antimtw()

ElseIf StringInStr($clip, "nv says:") Then

antimtw()

ElseIf StringInStr($clip, "nw says:") Then

antimtw()

ElseIf StringInStr($clip, "nx says:") Then

antimtw()

ElseIf StringInStr($clip, "ny says:") Then

antimtw()

ElseIf StringInStr($clip, "nz says:") Then

antimtw()

ElseIf StringInStr($clip, "n1 says:") Then

antimtw()

ElseIf StringInStr($clip, "n2 says:") Then

antimtw()

ElseIf StringInStr($clip, "n3 says:") Then

antimtw()

ElseIf StringInStr($clip, "n4 says:") Then

antimtw()

ElseIf StringInStr($clip, "n5 says:") Then

antimtw()

ElseIf StringInStr($clip, "n6 says:") Then

antimtw()

ElseIf StringInStr($clip, "n7 says:") Then

antimtw()

ElseIf StringInStr($clip, "n8 says:") Then

antimtw()

ElseIf StringInStr($clip, "n9 says:") Then

antimtw()

ElseIf StringInStr($clip, "n0 says:") Then

antimtw()

ElseIf StringInStr($clip, "oa says:") Then

antimtw()

ElseIf StringInStr($clip, "ob says:") Then

antimtw()

ElseIf StringInStr($clip, "oc says:") Then

antimtw()

ElseIf StringInStr($clip, "od says:") Then

antimtw()

ElseIf StringInStr($clip, "oe says:") Then

antimtw()

ElseIf StringInStr($clip, "of says:") Then

antimtw()

ElseIf StringInStr($clip, "og says:") Then

antimtw()

ElseIf StringInStr($clip, "oh says:") Then

antimtw()

ElseIf StringInStr($clip, "oj says:") Then

antimtw()

ElseIf StringInStr($clip, "ok says:") Then

antimtw()

ElseIf StringInStr($clip, "ol says:") Then

antimtw()

ElseIf StringInStr($clip, "om says:") Then

antimtw()

ElseIf StringInStr($clip, "on says:") Then

antimtw()

ElseIf StringInStr($clip, "oo says:") Then

antimtw()

ElseIf StringInStr($clip, "op says:") Then

antimtw()

ElseIf StringInStr($clip, "oq says:") Then

antimtw()

ElseIf StringInStr($clip, "or says:") Then

antimtw()

ElseIf StringInStr($clip, "os says:") Then

antimtw()

ElseIf StringInStr($clip, "ot says:") Then

antimtw()

ElseIf StringInStr($clip, "ou says:") Then

antimtw()

ElseIf StringInStr($clip, "ov says:") Then

antimtw()

ElseIf StringInStr($clip, "ow says:") Then

antimtw()

ElseIf StringInStr($clip, "ox says:") Then

antimtw()

ElseIf StringInStr($clip, "oy says:") Then

antimtw()

ElseIf StringInStr($clip, "oz says:") Then

antimtw()

ElseIf StringInStr($clip, "o1 says:") Then

antimtw()

ElseIf StringInStr($clip, "o2 says:") Then

antimtw()

ElseIf StringInStr($clip, "o3 says:") Then

antimtw()

ElseIf StringInStr($clip, "o4 says:") Then

antimtw()

ElseIf StringInStr($clip, "o5 says:") Then

antimtw()

ElseIf StringInStr($clip, "o6 says:") Then

antimtw()

ElseIf StringInStr($clip, "o7 says:") Then

antimtw()

ElseIf StringInStr($clip, "o8 says:") Then

antimtw()

ElseIf StringInStr($clip, "o9 says:") Then

antimtw()

ElseIf StringInStr($clip, "o0 says:") Then

antimtw()

ElseIf StringInStr($clip, "pa says:") Then

antimtw()

ElseIf StringInStr($clip, "pb says:") Then

antimtw()

ElseIf StringInStr($clip, "pc says:") Then

antimtw()

ElseIf StringInStr($clip, "pd says:") Then

antimtw()

ElseIf StringInStr($clip, "pe says:") Then

antimtw()

ElseIf StringInStr($clip, "pf says:") Then

antimtw()

ElseIf StringInStr($clip, "pg says:") Then

antimtw()

ElseIf StringInStr($clip, "ph says:") Then

antimtw()

ElseIf StringInStr($clip, "pj says:") Then

antimtw()

ElseIf StringInStr($clip, "pk says:") Then

antimtw()

ElseIf StringInStr($clip, "pl says:") Then

antimtw()

ElseIf StringInStr($clip, "pm says:") Then

antimtw()

ElseIf StringInStr($clip, "pn says:") Then

antimtw()

ElseIf StringInStr($clip, "po says:") Then

antimtw()

ElseIf StringInStr($clip, "pp says:") Then

antimtw()

ElseIf StringInStr($clip, "pq says:") Then

antimtw()

ElseIf StringInStr($clip, "pr says:") Then

antimtw()

ElseIf StringInStr($clip, "ps says:") Then

antimtw()

ElseIf StringInStr($clip, "pt says:") Then

antimtw()

ElseIf StringInStr($clip, "pu says:") Then

antimtw()

ElseIf StringInStr($clip, "pv says:") Then

antimtw()

ElseIf StringInStr($clip, "pw says:") Then

antimtw()

ElseIf StringInStr($clip, "px says:") Then

antimtw()

ElseIf StringInStr($clip, "py says:") Then

antimtw()

ElseIf StringInStr($clip, "pz says:") Then

antimtw()

ElseIf StringInStr($clip, "p1 says:") Then

antimtw()

ElseIf StringInStr($clip, "p2 says:") Then

antimtw()

ElseIf StringInStr($clip, "p3 says:") Then

antimtw()

ElseIf StringInStr($clip, "p4 says:") Then

antimtw()

ElseIf StringInStr($clip, "p5 says:") Then

antimtw()

ElseIf StringInStr($clip, "p6 says:") Then

antimtw()

ElseIf StringInStr($clip, "p7 says:") Then

antimtw()

ElseIf StringInStr($clip, "p8 says:") Then

antimtw()

ElseIf StringInStr($clip, "p9 says:") Then

antimtw()

ElseIf StringInStr($clip, "p0 says:") Then

antimtw()

ElseIf StringInStr($clip, "qa says:") Then

antimtw()

ElseIf StringInStr($clip, "qb says:") Then

antimtw()

ElseIf StringInStr($clip, "qc says:") Then

antimtw()

ElseIf StringInStr($clip, "qd says:") Then

antimtw()

ElseIf StringInStr($clip, "qe says:") Then

antimtw()

ElseIf StringInStr($clip, "qf says:") Then

antimtw()

ElseIf StringInStr($clip, "qg says:") Then

antimtw()

ElseIf StringInStr($clip, "qh says:") Then

antimtw()

ElseIf StringInStr($clip, "qj says:") Then

antimtw()

ElseIf StringInStr($clip, "qk says:") Then

antimtw()

ElseIf StringInStr($clip, "ql says:") Then

antimtw()

ElseIf StringInStr($clip, "qm says:") Then

antimtw()

ElseIf StringInStr($clip, "qn says:") Then

antimtw()

ElseIf StringInStr($clip, "qo says:") Then

antimtw()

ElseIf StringInStr($clip, "qp says:") Then

antimtw()

ElseIf StringInStr($clip, "qq says:") Then

antimtw()

ElseIf StringInStr($clip, "qr says:") Then

antimtw()

ElseIf StringInStr($clip, "qs says:") Then

antimtw()

ElseIf StringInStr($clip, "qt says:") Then

antimtw()

ElseIf StringInStr($clip, "qu says:") Then

antimtw()

ElseIf StringInStr($clip, "qv says:") Then

antimtw()

ElseIf StringInStr($clip, "qw says:") Then

antimtw()

ElseIf StringInStr($clip, "qx says:") Then

antimtw()

ElseIf StringInStr($clip, "qy says:") Then

antimtw()

ElseIf StringInStr($clip, "qz says:") Then

antimtw()

ElseIf StringInStr($clip, "q1 says:") Then

antimtw()

ElseIf StringInStr($clip, "q2 says:") Then

antimtw()

ElseIf StringInStr($clip, "q3 says:") Then

antimtw()

ElseIf StringInStr($clip, "q4 says:") Then

antimtw()

ElseIf StringInStr($clip, "q5 says:") Then

antimtw()

ElseIf StringInStr($clip, "q6 says:") Then

antimtw()

ElseIf StringInStr($clip, "q7 says:") Then

antimtw()

ElseIf StringInStr($clip, "q8 says:") Then

antimtw()

ElseIf StringInStr($clip, "q9 says:") Then

antimtw()

ElseIf StringInStr($clip, "q0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ra says:") Then

antimtw()

ElseIf StringInStr($clip, "rb says:") Then

antimtw()

ElseIf StringInStr($clip, "rc says:") Then

antimtw()

ElseIf StringInStr($clip, "rd says:") Then

antimtw()

ElseIf StringInStr($clip, "re says:") Then

antimtw()

ElseIf StringInStr($clip, "rf says:") Then

antimtw()

ElseIf StringInStr($clip, "rg says:") Then

antimtw()

ElseIf StringInStr($clip, "rh says:") Then

antimtw()

ElseIf StringInStr($clip, "rj says:") Then

antimtw()

ElseIf StringInStr($clip, "rk says:") Then

antimtw()

ElseIf StringInStr($clip, "rl says:") Then

antimtw()

ElseIf StringInStr($clip, "rm says:") Then

antimtw()

ElseIf StringInStr($clip, "rn says:") Then

antimtw()

ElseIf StringInStr($clip, "ro says:") Then

antimtw()

ElseIf StringInStr($clip, "rp says:") Then

antimtw()

ElseIf StringInStr($clip, "rq says:") Then

antimtw()

ElseIf StringInStr($clip, "rr says:") Then

antimtw()

ElseIf StringInStr($clip, "rs says:") Then

antimtw()

ElseIf StringInStr($clip, "rt says:") Then

antimtw()

ElseIf StringInStr($clip, "ru says:") Then

antimtw()

ElseIf StringInStr($clip, "rv says:") Then

antimtw()

ElseIf StringInStr($clip, "rw says:") Then

antimtw()

ElseIf StringInStr($clip, "rx says:") Then

antimtw()

ElseIf StringInStr($clip, "ry says:") Then

antimtw()

ElseIf StringInStr($clip, "rz says:") Then

antimtw()

ElseIf StringInStr($clip, "r1 says:") Then

antimtw()

ElseIf StringInStr($clip, "r2 says:") Then

antimtw()

ElseIf StringInStr($clip, "r3 says:") Then

antimtw()

ElseIf StringInStr($clip, "r4 says:") Then

antimtw()

ElseIf StringInStr($clip, "r5 says:") Then

antimtw()

ElseIf StringInStr($clip, "r6 says:") Then

antimtw()

ElseIf StringInStr($clip, "r7 says:") Then

antimtw()

ElseIf StringInStr($clip, "r8 says:") Then

antimtw()

ElseIf StringInStr($clip, "r9 says:") Then

antimtw()

ElseIf StringInStr($clip, "r0 says:") Then

antimtw()

ElseIf StringInStr($clip, "sa says:") Then

antimtw()

ElseIf StringInStr($clip, "sb says:") Then

antimtw()

ElseIf StringInStr($clip, "sc says:") Then

antimtw()

ElseIf StringInStr($clip, "sd says:") Then

antimtw()

ElseIf StringInStr($clip, "se says:") Then

antimtw()

ElseIf StringInStr($clip, "sf says:") Then

antimtw()

ElseIf StringInStr($clip, "sg says:") Then

antimtw()

ElseIf StringInStr($clip, "sh says:") Then

antimtw()

ElseIf StringInStr($clip, "sj says:") Then

antimtw()

ElseIf StringInStr($clip, "sk says:") Then

antimtw()

ElseIf StringInStr($clip, "sl says:") Then

antimtw()

ElseIf StringInStr($clip, "sm says:") Then

antimtw()

ElseIf StringInStr($clip, "sn says:") Then

antimtw()

ElseIf StringInStr($clip, "so says:") Then

antimtw()

ElseIf StringInStr($clip, "sp says:") Then

antimtw()

ElseIf StringInStr($clip, "sq says:") Then

antimtw()

ElseIf StringInStr($clip, "sr says:") Then

antimtw()

ElseIf StringInStr($clip, "ss says:") Then

antimtw()

ElseIf StringInStr($clip, "st says:") Then

antimtw()

ElseIf StringInStr($clip, "su says:") Then

antimtw()

ElseIf StringInStr($clip, "sv says:") Then

antimtw()

ElseIf StringInStr($clip, "sw says:") Then

antimtw()

ElseIf StringInStr($clip, "sx says:") Then

antimtw()

ElseIf StringInStr($clip, "sy says:") Then

antimtw()

ElseIf StringInStr($clip, "sz says:") Then

antimtw()

ElseIf StringInStr($clip, "s1 says:") Then

antimtw()

ElseIf StringInStr($clip, "s2 says:") Then

antimtw()

ElseIf StringInStr($clip, "s3 says:") Then

antimtw()

ElseIf StringInStr($clip, "s4 says:") Then

antimtw()

ElseIf StringInStr($clip, "s5 says:") Then

antimtw()

ElseIf StringInStr($clip, "s6 says:") Then

antimtw()

ElseIf StringInStr($clip, "s7 says:") Then

antimtw()

ElseIf StringInStr($clip, "s8 says:") Then

antimtw()

ElseIf StringInStr($clip, "s9 says:") Then

antimtw()

ElseIf StringInStr($clip, "s0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ta says:") Then

antimtw()

ElseIf StringInStr($clip, "tb says:") Then

antimtw()

ElseIf StringInStr($clip, "tc says:") Then

antimtw()

ElseIf StringInStr($clip, "td says:") Then

antimtw()

ElseIf StringInStr($clip, "te says:") Then

antimtw()

ElseIf StringInStr($clip, "tf says:") Then

antimtw()

ElseIf StringInStr($clip, "tg says:") Then

antimtw()

ElseIf StringInStr($clip, "th says:") Then

antimtw()

ElseIf StringInStr($clip, "tj says:") Then

antimtw()

ElseIf StringInStr($clip, "tk says:") Then

antimtw()

ElseIf StringInStr($clip, "tl says:") Then

antimtw()

ElseIf StringInStr($clip, "tm says:") Then

antimtw()

ElseIf StringInStr($clip, "tn says:") Then

antimtw()

ElseIf StringInStr($clip, "to says:") Then

antimtw()

ElseIf StringInStr($clip, "tp says:") Then

antimtw()

ElseIf StringInStr($clip, "tq says:") Then

antimtw()

ElseIf StringInStr($clip, "tr says:") Then

antimtw()

ElseIf StringInStr($clip, "ts says:") Then

antimtw()

ElseIf StringInStr($clip, "tt says:") Then

antimtw()

ElseIf StringInStr($clip, "tu says:") Then

antimtw()

ElseIf StringInStr($clip, "tv says:") Then

antimtw()

ElseIf StringInStr($clip, "tw says:") Then

antimtw()

ElseIf StringInStr($clip, "tx says:") Then

antimtw()

ElseIf StringInStr($clip, "ty says:") Then

antimtw()

ElseIf StringInStr($clip, "tz says:") Then

antimtw()

ElseIf StringInStr($clip, "t1 says:") Then

antimtw()

ElseIf StringInStr($clip, "t2 says:") Then

antimtw()

ElseIf StringInStr($clip, "t3 says:") Then

antimtw()

ElseIf StringInStr($clip, "t4 says:") Then

antimtw()

ElseIf StringInStr($clip, "t5 says:") Then

antimtw()

ElseIf StringInStr($clip, "t6 says:") Then

antimtw()

ElseIf StringInStr($clip, "t7 says:") Then

antimtw()

ElseIf StringInStr($clip, "t8 says:") Then

antimtw()

ElseIf StringInStr($clip, "t9 says:") Then

antimtw()

ElseIf StringInStr($clip, "t0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ua says:") Then

antimtw()

ElseIf StringInStr($clip, "ub says:") Then

antimtw()

ElseIf StringInStr($clip, "uc says:") Then

antimtw()

ElseIf StringInStr($clip, "ud says:") Then

antimtw()

ElseIf StringInStr($clip, "ue says:") Then

antimtw()

ElseIf StringInStr($clip, "uf says:") Then

antimtw()

ElseIf StringInStr($clip, "ug says:") Then

antimtw()

ElseIf StringInStr($clip, "uh says:") Then

antimtw()

ElseIf StringInStr($clip, "uj says:") Then

antimtw()

ElseIf StringInStr($clip, "uk says:") Then

antimtw()

ElseIf StringInStr($clip, "ul says:") Then

antimtw()

ElseIf StringInStr($clip, "um says:") Then

antimtw()

ElseIf StringInStr($clip, "un says:") Then

antimtw()

ElseIf StringInStr($clip, "uo says:") Then

antimtw()

ElseIf StringInStr($clip, "up says:") Then

antimtw()

ElseIf StringInStr($clip, "uq says:") Then

antimtw()

ElseIf StringInStr($clip, "ur says:") Then

antimtw()

ElseIf StringInStr($clip, "us says:") Then

antimtw()

ElseIf StringInStr($clip, "ut says:") Then

antimtw()

ElseIf StringInStr($clip, "uu says:") Then

antimtw()

ElseIf StringInStr($clip, "uv says:") Then

antimtw()

ElseIf StringInStr($clip, "uw says:") Then

antimtw()

ElseIf StringInStr($clip, "ux says:") Then

antimtw()

ElseIf StringInStr($clip, "uy says:") Then

antimtw()

ElseIf StringInStr($clip, "uz says:") Then

antimtw()

ElseIf StringInStr($clip, "u1 says:") Then

antimtw()

ElseIf StringInStr($clip, "u2 says:") Then

antimtw()

ElseIf StringInStr($clip, "u3 says:") Then

antimtw()

ElseIf StringInStr($clip, "u4 says:") Then

antimtw()

ElseIf StringInStr($clip, "u5 says:") Then

antimtw()

ElseIf StringInStr($clip, "u6 says:") Then

antimtw()

ElseIf StringInStr($clip, "u7 says:") Then

antimtw()

ElseIf StringInStr($clip, "u8 says:") Then

antimtw()

ElseIf StringInStr($clip, "u9 says:") Then

antimtw()

ElseIf StringInStr($clip, "u0 says:") Then

antimtw()

ElseIf StringInStr($clip, "va says:") Then

antimtw()

ElseIf StringInStr($clip, "vb says:") Then

antimtw()

ElseIf StringInStr($clip, "vc says:") Then

antimtw()

ElseIf StringInStr($clip, "vd says:") Then

antimtw()

ElseIf StringInStr($clip, "ve says:") Then

antimtw()

ElseIf StringInStr($clip, "vf says:") Then

antimtw()

ElseIf StringInStr($clip, "vg says:") Then

antimtw()

ElseIf StringInStr($clip, "vh says:") Then

antimtw()

ElseIf StringInStr($clip, "vj says:") Then

antimtw()

ElseIf StringInStr($clip, "vk says:") Then

antimtw()

ElseIf StringInStr($clip, "vl says:") Then

antimtw()

ElseIf StringInStr($clip, "vm says:") Then

antimtw()

ElseIf StringInStr($clip, "vn says:") Then

antimtw()

ElseIf StringInStr($clip, "vo says:") Then

antimtw()

ElseIf StringInStr($clip, "vp says:") Then

antimtw()

ElseIf StringInStr($clip, "vq says:") Then

antimtw()

ElseIf StringInStr($clip, "vr says:") Then

antimtw()

ElseIf StringInStr($clip, "vs says:") Then

antimtw()

ElseIf StringInStr($clip, "vt says:") Then

antimtw()

ElseIf StringInStr($clip, "vu says:") Then

antimtw()

ElseIf StringInStr($clip, "vv says:") Then

antimtw()

ElseIf StringInStr($clip, "vw says:") Then

antimtw()

ElseIf StringInStr($clip, "vx says:") Then

antimtw()

ElseIf StringInStr($clip, "vy says:") Then

antimtw()

ElseIf StringInStr($clip, "vz says:") Then

antimtw()

ElseIf StringInStr($clip, "v1 says:") Then

antimtw()

ElseIf StringInStr($clip, "v2 says:") Then

antimtw()

ElseIf StringInStr($clip, "v3 says:") Then

antimtw()

ElseIf StringInStr($clip, "v4 says:") Then

antimtw()

ElseIf StringInStr($clip, "v5 says:") Then

antimtw()

ElseIf StringInStr($clip, "v6 says:") Then

antimtw()

ElseIf StringInStr($clip, "v7 says:") Then

antimtw()

ElseIf StringInStr($clip, "v8 says:") Then

antimtw()

ElseIf StringInStr($clip, "v9 says:") Then

antimtw()

ElseIf StringInStr($clip, "v0 says:") Then

antimtw()

ElseIf StringInStr($clip, "wa says:") Then

antimtw()

ElseIf StringInStr($clip, "wb says:") Then

antimtw()

ElseIf StringInStr($clip, "wc says:") Then

antimtw()

ElseIf StringInStr($clip, "wd says:") Then

antimtw()

ElseIf StringInStr($clip, "we says:") Then

antimtw()

ElseIf StringInStr($clip, "wf says:") Then

antimtw()

ElseIf StringInStr($clip, "wg says:") Then

antimtw()

ElseIf StringInStr($clip, "wh says:") Then

antimtw()

ElseIf StringInStr($clip, "wj says:") Then

antimtw()

ElseIf StringInStr($clip, "wk says:") Then

antimtw()

ElseIf StringInStr($clip, "wl says:") Then

antimtw()

ElseIf StringInStr($clip, "wm says:") Then

antimtw()

ElseIf StringInStr($clip, "wn says:") Then

antimtw()

ElseIf StringInStr($clip, "wo says:") Then

antimtw()

ElseIf StringInStr($clip, "wp says:") Then

antimtw()

ElseIf StringInStr($clip, "wq says:") Then

antimtw()

ElseIf StringInStr($clip, "wr says:") Then

antimtw()

ElseIf StringInStr($clip, "ws says:") Then

antimtw()

ElseIf StringInStr($clip, "wt says:") Then

antimtw()

ElseIf StringInStr($clip, "wu says:") Then

antimtw()

ElseIf StringInStr($clip, "wv says:") Then

antimtw()

ElseIf StringInStr($clip, "ww says:") Then

antimtw()

ElseIf StringInStr($clip, "wx says:") Then

antimtw()

ElseIf StringInStr($clip, "wy says:") Then

antimtw()

ElseIf StringInStr($clip, "wz says:") Then

antimtw()

ElseIf StringInStr($clip, "w1 says:") Then

antimtw()

ElseIf StringInStr($clip, "w2 says:") Then

antimtw()

ElseIf StringInStr($clip, "w3 says:") Then

antimtw()

ElseIf StringInStr($clip, "w4 says:") Then

antimtw()

ElseIf StringInStr($clip, "w5 says:") Then

antimtw()

ElseIf StringInStr($clip, "w6 says:") Then

antimtw()

ElseIf StringInStr($clip, "w7 says:") Then

antimtw()

ElseIf StringInStr($clip, "w8 says:") Then

antimtw()

ElseIf StringInStr($clip, "w9 says:") Then

antimtw()

ElseIf StringInStr($clip, "w0 says:") Then

antimtw()

ElseIf StringInStr($clip, "xa says:") Then

antimtw()

ElseIf StringInStr($clip, "xb says:") Then

antimtw()

ElseIf StringInStr($clip, "xc says:") Then

antimtw()

ElseIf StringInStr($clip, "xd says:") Then

antimtw()

ElseIf StringInStr($clip, "xe says:") Then

antimtw()

ElseIf StringInStr($clip, "xf says:") Then

antimtw()

ElseIf StringInStr($clip, "xg says:") Then

antimtw()

ElseIf StringInStr($clip, "xh says:") Then

antimtw()

ElseIf StringInStr($clip, "xj says:") Then

antimtw()

ElseIf StringInStr($clip, "xk says:") Then

antimtw()

ElseIf StringInStr($clip, "xl says:") Then

antimtw()

ElseIf StringInStr($clip, "xm says:") Then

antimtw()

ElseIf StringInStr($clip, "xn says:") Then

antimtw()

ElseIf StringInStr($clip, "xo says:") Then

antimtw()

ElseIf StringInStr($clip, "xp says:") Then

antimtw()

ElseIf StringInStr($clip, "xq says:") Then

antimtw()

ElseIf StringInStr($clip, "xr says:") Then

antimtw()

ElseIf StringInStr($clip, "xs says:") Then

antimtw()

ElseIf StringInStr($clip, "xt says:") Then

antimtw()

ElseIf StringInStr($clip, "xu says:") Then

antimtw()

ElseIf StringInStr($clip, "xv says:") Then

antimtw()

ElseIf StringInStr($clip, "xw says:") Then

antimtw()

ElseIf StringInStr($clip, "xx says:") Then

antimtw()

ElseIf StringInStr($clip, "xy says:") Then

antimtw()

ElseIf StringInStr($clip, "xz says:") Then

antimtw()

ElseIf StringInStr($clip, "x1 says:") Then

antimtw()

ElseIf StringInStr($clip, "x2 says:") Then

antimtw()

ElseIf StringInStr($clip, "x3 says:") Then

antimtw()

ElseIf StringInStr($clip, "x4 says:") Then

antimtw()

ElseIf StringInStr($clip, "x5 says:") Then

antimtw()

ElseIf StringInStr($clip, "x6 says:") Then

antimtw()

ElseIf StringInStr($clip, "x7 says:") Then

antimtw()

ElseIf StringInStr($clip, "x8 says:") Then

antimtw()

ElseIf StringInStr($clip, "x9 says:") Then

antimtw()

ElseIf StringInStr($clip, "x0 says:") Then

antimtw()

ElseIf StringInStr($clip, "ya says:") Then

antimtw()

ElseIf StringInStr($clip, "yb says:") Then

antimtw()

ElseIf StringInStr($clip, "yc says:") Then

antimtw()

ElseIf StringInStr($clip, "yd says:") Then

antimtw()

ElseIf StringInStr($clip, "ye says:") Then

antimtw()

ElseIf StringInStr($clip, "yf says:") Then

antimtw()

ElseIf StringInStr($clip, "yg says:") Then

antimtw()

ElseIf StringInStr($clip, "yh says:") Then

antimtw()

ElseIf StringInStr($clip, "yj says:") Then

antimtw()

ElseIf StringInStr($clip, "yk says:") Then

antimtw()

ElseIf StringInStr($clip, "yl says:") Then

antimtw()

ElseIf StringInStr($clip, "ym says:") Then

antimtw()

ElseIf StringInStr($clip, "yn says:") Then

antimtw()

ElseIf StringInStr($clip, "yo says:") Then

antimtw()

ElseIf StringInStr($clip, "yp says:") Then

antimtw()

ElseIf StringInStr($clip, "yq says:") Then

antimtw()

ElseIf StringInStr($clip, "yr says:") Then

antimtw()

ElseIf StringInStr($clip, "ys says:") Then

antimtw()

ElseIf StringInStr($clip, "yt says:") Then

antimtw()

ElseIf StringInStr($clip, "yu says:") Then

antimtw()

ElseIf StringInStr($clip, "yv says:") Then

antimtw()

ElseIf StringInStr($clip, "yw says:") Then

antimtw()

ElseIf StringInStr($clip, "yx says:") Then

antimtw()

ElseIf StringInStr($clip, "yy says:") Then

antimtw()

ElseIf StringInStr($clip, "yz says:") Then

antimtw()

ElseIf StringInStr($clip, "y1 says:") Then

antimtw()

ElseIf StringInStr($clip, "y2 says:") Then

antimtw()

ElseIf StringInStr($clip, "y3 says:") Then

antimtw()

ElseIf StringInStr($clip, "y4 says:") Then

antimtw()

ElseIf StringInStr($clip, "y5 says:") Then

antimtw()

ElseIf StringInStr($clip, "y6 says:") Then

antimtw()

ElseIf StringInStr($clip, "y7 says:") Then

antimtw()

ElseIf StringInStr($clip, "y8 says:") Then

antimtw()

ElseIf StringInStr($clip, "y9 says:") Then

antimtw()

ElseIf StringInStr($clip, "y0 says:") Then

antimtw()

ElseIf StringInStr($clip, "za says:") Then

antimtw()

ElseIf StringInStr($clip, "zb says:") Then

antimtw()

ElseIf StringInStr($clip, "zc says:") Then

antimtw()

ElseIf StringInStr($clip, "zd says:") Then

antimtw()

ElseIf StringInStr($clip, "ze says:") Then

antimtw()

ElseIf StringInStr($clip, "zf says:") Then

antimtw()

ElseIf StringInStr($clip, "zg says:") Then

antimtw()

ElseIf StringInStr($clip, "zh says:") Then

antimtw()

ElseIf StringInStr($clip, "zj says:") Then

antimtw()

ElseIf StringInStr($clip, "zk says:") Then

antimtw()

ElseIf StringInStr($clip, "zl says:") Then

antimtw()

ElseIf StringInStr($clip, "zm says:") Then

antimtw()

ElseIf StringInStr($clip, "zn says:") Then

antimtw()

ElseIf StringInStr($clip, "zo says:") Then

antimtw()

ElseIf StringInStr($clip, "zp says:") Then

antimtw()

ElseIf StringInStr($clip, "zq says:") Then

antimtw()

ElseIf StringInStr($clip, "zr says:") Then

antimtw()

ElseIf StringInStr($clip, "zs says:") Then

antimtw()

ElseIf StringInStr($clip, "zt says:") Then

antimtw()

ElseIf StringInStr($clip, "zu says:") Then

antimtw()

ElseIf StringInStr($clip, "zv says:") Then

antimtw()

ElseIf StringInStr($clip, "zw says:") Then

antimtw()

ElseIf StringInStr($clip, "zx says:") Then

antimtw()

ElseIf StringInStr($clip, "zy says:") Then

antimtw()

ElseIf StringInStr($clip, "zz says:") Then

antimtw()

ElseIf StringInStr($clip, "z1 says:") Then

antimtw()

ElseIf StringInStr($clip, "z2 says:") Then

antimtw()

ElseIf StringInStr($clip, "z3 says:") Then

antimtw()

ElseIf StringInStr($clip, "z4 says:") Then

antimtw()

ElseIf StringInStr($clip, "z5 says:") Then

antimtw()

ElseIf StringInStr($clip, "z6 says:") Then

antimtw()

ElseIf StringInStr($clip, "z7 says:") Then

antimtw()

ElseIf StringInStr($clip, "z8 says:") Then

antimtw()

ElseIf StringInStr($clip, "z9 says:") Then

antimtw()

ElseIf StringInStr($clip, "z0 says:") Then

antimtw()

ElseIf StringInStr($clip, "1a says:") Then

antimtw()

ElseIf StringInStr($clip, "1b says:") Then

antimtw()

ElseIf StringInStr($clip, "1c says:") Then

antimtw()

ElseIf StringInStr($clip, "1d says:") Then

antimtw()

ElseIf StringInStr($clip, "1e says:") Then

antimtw()

ElseIf StringInStr($clip, "1f says:") Then

antimtw()

ElseIf StringInStr($clip, "1g says:") Then

antimtw()

ElseIf StringInStr($clip, "1h says:") Then

antimtw()

ElseIf StringInStr($clip, "1j says:") Then

antimtw()

ElseIf StringInStr($clip, "1k says:") Then

antimtw()

ElseIf StringInStr($clip, "1l says:") Then

antimtw()

ElseIf StringInStr($clip, "1m says:") Then

antimtw()

ElseIf StringInStr($clip, "1n says:") Then

antimtw()

ElseIf StringInStr($clip, "1o says:") Then

antimtw()

ElseIf StringInStr($clip, "1p says:") Then

antimtw()

ElseIf StringInStr($clip, "1q says:") Then

antimtw()

ElseIf StringInStr($clip, "1r says:") Then

antimtw()

ElseIf StringInStr($clip, "1s says:") Then

antimtw()

ElseIf StringInStr($clip, "1t says:") Then

antimtw()

ElseIf StringInStr($clip, "1u says:") Then

antimtw()

ElseIf StringInStr($clip, "1v says:") Then

antimtw()

ElseIf StringInStr($clip, "1w says:") Then

antimtw()

ElseIf StringInStr($clip, "1x says:") Then

antimtw()

ElseIf StringInStr($clip, "1y says:") Then

antimtw()

ElseIf StringInStr($clip, "1z says:") Then

antimtw()

ElseIf StringInStr($clip, "11 says:") Then

antimtw()

ElseIf StringInStr($clip, "12 says:") Then

antimtw()

ElseIf StringInStr($clip, "13 says:") Then

antimtw()

ElseIf StringInStr($clip, "14 says:") Then

antimtw()

ElseIf StringInStr($clip, "15 says:") Then

antimtw()

ElseIf StringInStr($clip, "16 says:") Then

antimtw()

ElseIf StringInStr($clip, "17 says:") Then

antimtw()

ElseIf StringInStr($clip, "18 says:") Then

antimtw()

ElseIf StringInStr($clip, "19 says:") Then

antimtw()

ElseIf StringInStr($clip, "10 says:") Then

antimtw()

ElseIf StringInStr($clip, "2a says:") Then

antimtw()

ElseIf StringInStr($clip, "2b says:") Then

antimtw()

ElseIf StringInStr($clip, "2c says:") Then

antimtw()

ElseIf StringInStr($clip, "2d says:") Then

antimtw()

ElseIf StringInStr($clip, "2e says:") Then

antimtw()

ElseIf StringInStr($clip, "2f says:") Then

antimtw()

ElseIf StringInStr($clip, "2g says:") Then

antimtw()

ElseIf StringInStr($clip, "2h says:") Then

antimtw()

ElseIf StringInStr($clip, "2j says:") Then

antimtw()

ElseIf StringInStr($clip, "2k says:") Then

antimtw()

ElseIf StringInStr($clip, "2l says:") Then

antimtw()

ElseIf StringInStr($clip, "2m says:") Then

antimtw()

ElseIf StringInStr($clip, "2n says:") Then

antimtw()

ElseIf StringInStr($clip, "2o says:") Then

antimtw()

ElseIf StringInStr($clip, "2p says:") Then

antimtw()

ElseIf StringInStr($clip, "2q says:") Then

antimtw()

ElseIf StringInStr($clip, "2r says:") Then

antimtw()

ElseIf StringInStr($clip, "2s says:") Then

antimtw()

ElseIf StringInStr($clip, "2t says:") Then

antimtw()

ElseIf StringInStr($clip, "2u says:") Then

antimtw()

ElseIf StringInStr($clip, "2v says:") Then

antimtw()

ElseIf StringInStr($clip, "2w says:") Then

antimtw()

ElseIf StringInStr($clip, "2x says:") Then

antimtw()

ElseIf StringInStr($clip, "2y says:") Then

antimtw()

ElseIf StringInStr($clip, "2z says:") Then

antimtw()

ElseIf StringInStr($clip, "21 says:") Then

antimtw()

ElseIf StringInStr($clip, "22 says:") Then

antimtw()

ElseIf StringInStr($clip, "23 says:") Then

antimtw()

ElseIf StringInStr($clip, "24 says:") Then

antimtw()

ElseIf StringInStr($clip, "25 says:") Then

antimtw()

ElseIf StringInStr($clip, "26 says:") Then

antimtw()

ElseIf StringInStr($clip, "27 says:") Then

antimtw()

ElseIf StringInStr($clip, "28 says:") Then

antimtw()

ElseIf StringInStr($clip, "29 says:") Then

antimtw()

ElseIf StringInStr($clip, "20 says:") Then

antimtw()

ElseIf StringInStr($clip, "3a says:") Then

antimtw()

ElseIf StringInStr($clip, "3b says:") Then

antimtw()

ElseIf StringInStr($clip, "3c says:") Then

antimtw()

ElseIf StringInStr($clip, "3d says:") Then

antimtw()

ElseIf StringInStr($clip, "3e says:") Then

antimtw()

ElseIf StringInStr($clip, "3f says:") Then

antimtw()

ElseIf StringInStr($clip, "3g says:") Then

antimtw()

ElseIf StringInStr($clip, "3h says:") Then

antimtw()

ElseIf StringInStr($clip, "3j says:") Then

antimtw()

ElseIf StringInStr($clip, "3k says:") Then

antimtw()

ElseIf StringInStr($clip, "3l says:") Then

antimtw()

ElseIf StringInStr($clip, "3m says:") Then

antimtw()

ElseIf StringInStr($clip, "3n says:") Then

antimtw()

ElseIf StringInStr($clip, "3o says:") Then

antimtw()

ElseIf StringInStr($clip, "3p says:") Then

antimtw()

ElseIf StringInStr($clip, "3q says:") Then

antimtw()

ElseIf StringInStr($clip, "3r says:") Then

antimtw()

ElseIf StringInStr($clip, "3s says:") Then

antimtw()

ElseIf StringInStr($clip, "3t says:") Then

antimtw()

ElseIf StringInStr($clip, "3u says:") Then

antimtw()

ElseIf StringInStr($clip, "3v says:") Then

antimtw()

ElseIf StringInStr($clip, "3w says:") Then

antimtw()

ElseIf StringInStr($clip, "3x says:") Then

antimtw()

ElseIf StringInStr($clip, "3y says:") Then

antimtw()

ElseIf StringInStr($clip, "3z says:") Then

antimtw()

ElseIf StringInStr($clip, "31 says:") Then

antimtw()

ElseIf StringInStr($clip, "32 says:") Then

antimtw()

ElseIf StringInStr($clip, "33 says:") Then

antimtw()

ElseIf StringInStr($clip, "34 says:") Then

antimtw()

ElseIf StringInStr($clip, "35 says:") Then

antimtw()

ElseIf StringInStr($clip, "36 says:") Then

antimtw()

ElseIf StringInStr($clip, "37 says:") Then

antimtw()

ElseIf StringInStr($clip, "38 says:") Then

antimtw()

ElseIf StringInStr($clip, "39 says:") Then

antimtw()

ElseIf StringInStr($clip, "30 says:") Then

antimtw()

ElseIf StringInStr($clip, "4a says:") Then

antimtw()

ElseIf StringInStr($clip, "4b says:") Then

antimtw()

ElseIf StringInStr($clip, "4c says:") Then

antimtw()

ElseIf StringInStr($clip, "4d says:") Then

antimtw()

ElseIf StringInStr($clip, "4e says:") Then

antimtw()

ElseIf StringInStr($clip, "4f says:") Then

antimtw()

ElseIf StringInStr($clip, "4g says:") Then

antimtw()

ElseIf StringInStr($clip, "4h says:") Then

antimtw()

ElseIf StringInStr($clip, "4j says:") Then

antimtw()

ElseIf StringInStr($clip, "4k says:") Then

antimtw()

ElseIf StringInStr($clip, "4l says:") Then

antimtw()

ElseIf StringInStr($clip, "4m says:") Then

antimtw()

ElseIf StringInStr($clip, "4n says:") Then

antimtw()

ElseIf StringInStr($clip, "4o says:") Then

antimtw()

ElseIf StringInStr($clip, "4p says:") Then

antimtw()

ElseIf StringInStr($clip, "4q says:") Then

antimtw()

ElseIf StringInStr($clip, "4r says:") Then

antimtw()

ElseIf StringInStr($clip, "4s says:") Then

antimtw()

ElseIf StringInStr($clip, "4t says:") Then

antimtw()

ElseIf StringInStr($clip, "4u says:") Then

antimtw()

ElseIf StringInStr($clip, "4v says:") Then

antimtw()

ElseIf StringInStr($clip, "4w says:") Then

antimtw()

ElseIf StringInStr($clip, "4x says:") Then

antimtw()

ElseIf StringInStr($clip, "4y says:") Then

antimtw()

ElseIf StringInStr($clip, "4z says:") Then

antimtw()

ElseIf StringInStr($clip, "41 says:") Then

antimtw()

ElseIf StringInStr($clip, "42 says:") Then

antimtw()

ElseIf StringInStr($clip, "43 says:") Then

antimtw()

ElseIf StringInStr($clip, "44 says:") Then

antimtw()

ElseIf StringInStr($clip, "45 says:") Then

antimtw()

ElseIf StringInStr($clip, "46 says:") Then

antimtw()

ElseIf StringInStr($clip, "47 says:") Then

antimtw()

ElseIf StringInStr($clip, "48 says:") Then

antimtw()

ElseIf StringInStr($clip, "49 says:") Then

antimtw()

ElseIf StringInStr($clip, "40 says:") Then

antimtw()

ElseIf StringInStr($clip, "5a says:") Then

antimtw()

ElseIf StringInStr($clip, "5b says:") Then

antimtw()

ElseIf StringInStr($clip, "5c says:") Then

antimtw()

ElseIf StringInStr($clip, "5d says:") Then

antimtw()

ElseIf StringInStr($clip, "5e says:") Then

antimtw()

ElseIf StringInStr($clip, "5f says:") Then

antimtw()

ElseIf StringInStr($clip, "5g says:") Then

antimtw()

ElseIf StringInStr($clip, "5h says:") Then

antimtw()

ElseIf StringInStr($clip, "5j says:") Then

antimtw()

ElseIf StringInStr($clip, "5k says:") Then

antimtw()

ElseIf StringInStr($clip, "5l says:") Then

antimtw()

ElseIf StringInStr($clip, "5m says:") Then

antimtw()

ElseIf StringInStr($clip, "5n says:") Then

antimtw()

ElseIf StringInStr($clip, "5o says:") Then

antimtw()

ElseIf StringInStr($clip, "5p says:") Then

antimtw()

ElseIf StringInStr($clip, "5q says:") Then

antimtw()

ElseIf StringInStr($clip, "5r says:") Then

antimtw()

ElseIf StringInStr($clip, "5s says:") Then

antimtw()

ElseIf StringInStr($clip, "5t says:") Then

antimtw()

ElseIf StringInStr($clip, "5u says:") Then

antimtw()

ElseIf StringInStr($clip, "5v says:") Then

antimtw()

ElseIf StringInStr($clip, "5w says:") Then

antimtw()

ElseIf StringInStr($clip, "5x says:") Then

antimtw()

ElseIf StringInStr($clip, "5y says:") Then

antimtw()

ElseIf StringInStr($clip, "5z says:") Then

antimtw()

ElseIf StringInStr($clip, "51 says:") Then

antimtw()

ElseIf StringInStr($clip, "52 says:") Then

antimtw()

ElseIf StringInStr($clip, "53 says:") Then

antimtw()

ElseIf StringInStr($clip, "54 says:") Then

antimtw()

ElseIf StringInStr($clip, "55 says:") Then

antimtw()

ElseIf StringInStr($clip, "56 says:") Then

antimtw()

ElseIf StringInStr($clip, "57 says:") Then

antimtw()

ElseIf StringInStr($clip, "58 says:") Then

antimtw()

ElseIf StringInStr($clip, "59 says:") Then

antimtw()

ElseIf StringInStr($clip, "50 says:") Then

antimtw()

ElseIf StringInStr($clip, "6a says:") Then

antimtw()

ElseIf StringInStr($clip, "6b says:") Then

antimtw()

ElseIf StringInStr($clip, "6c says:") Then

antimtw()

ElseIf StringInStr($clip, "6d says:") Then

antimtw()

ElseIf StringInStr($clip, "6e says:") Then

antimtw()

ElseIf StringInStr($clip, "6f says:") Then

antimtw()

ElseIf StringInStr($clip, "6g says:") Then

antimtw()

ElseIf StringInStr($clip, "6h says:") Then

antimtw()

ElseIf StringInStr($clip, "6j says:") Then

antimtw()

ElseIf StringInStr($clip, "6k says:") Then

antimtw()

ElseIf StringInStr($clip, "6l says:") Then

antimtw()

ElseIf StringInStr($clip, "6m says:") Then

antimtw()

ElseIf StringInStr($clip, "6n says:") Then

antimtw()

ElseIf StringInStr($clip, "6o says:") Then

antimtw()

ElseIf StringInStr($clip, "6p says:") Then

antimtw()

ElseIf StringInStr($clip, "6q says:") Then

antimtw()

ElseIf StringInStr($clip, "6r says:") Then

antimtw()

ElseIf StringInStr($clip, "6s says:") Then

antimtw()

ElseIf StringInStr($clip, "6t says:") Then

antimtw()

ElseIf StringInStr($clip, "6u says:") Then

antimtw()

ElseIf StringInStr($clip, "6v says:") Then

antimtw()

ElseIf StringInStr($clip, "6w says:") Then

antimtw()

ElseIf StringInStr($clip, "6x says:") Then

antimtw()

ElseIf StringInStr($clip, "6y says:") Then

antimtw()

ElseIf StringInStr($clip, "6z says:") Then

antimtw()

ElseIf StringInStr($clip, "61 says:") Then

antimtw()

ElseIf StringInStr($clip, "62 says:") Then

antimtw()

ElseIf StringInStr($clip, "63 says:") Then

antimtw()

ElseIf StringInStr($clip, "64 says:") Then

antimtw()

ElseIf StringInStr($clip, "65 says:") Then

antimtw()

ElseIf StringInStr($clip, "66 says:") Then

antimtw()

ElseIf StringInStr($clip, "67 says:") Then

antimtw()

ElseIf StringInStr($clip, "68 says:") Then

antimtw()

ElseIf StringInStr($clip, "69 says:") Then

antimtw()

ElseIf StringInStr($clip, "60 says:") Then

antimtw()

ElseIf StringInStr($clip, "7a says:") Then

antimtw()

ElseIf StringInStr($clip, "7b says:") Then

antimtw()

ElseIf StringInStr($clip, "7c says:") Then

antimtw()

ElseIf StringInStr($clip, "7d says:") Then

antimtw()

ElseIf StringInStr($clip, "7e says:") Then

antimtw()

ElseIf StringInStr($clip, "7f says:") Then

antimtw()

ElseIf StringInStr($clip, "7g says:") Then

antimtw()

ElseIf StringInStr($clip, "7h says:") Then

antimtw()

ElseIf StringInStr($clip, "7j says:") Then

antimtw()

ElseIf StringInStr($clip, "7k says:") Then

antimtw()

ElseIf StringInStr($clip, "7l says:") Then

antimtw()

ElseIf StringInStr($clip, "7m says:") Then

antimtw()

ElseIf StringInStr($clip, "7n says:") Then

antimtw()

ElseIf StringInStr($clip, "7o says:") Then

antimtw()

ElseIf StringInStr($clip, "7p says:") Then

antimtw()

ElseIf StringInStr($clip, "7q says:") Then

antimtw()

ElseIf StringInStr($clip, "7r says:") Then

antimtw()

ElseIf StringInStr($clip, "7s says:") Then

antimtw()

ElseIf StringInStr($clip, "7t says:") Then

antimtw()

ElseIf StringInStr($clip, "7u says:") Then

antimtw()

ElseIf StringInStr($clip, "7v says:") Then

antimtw()

ElseIf StringInStr($clip, "7w says:") Then

antimtw()

ElseIf StringInStr($clip, "7x says:") Then

antimtw()

ElseIf StringInStr($clip, "7y says:") Then

antimtw()

ElseIf StringInStr($clip, "7z says:") Then

antimtw()

ElseIf StringInStr($clip, "71 says:") Then

antimtw()

ElseIf StringInStr($clip, "72 says:") Then

antimtw()

ElseIf StringInStr($clip, "73 says:") Then

antimtw()

ElseIf StringInStr($clip, "74 says:") Then

antimtw()

ElseIf StringInStr($clip, "75 says:") Then

antimtw()

ElseIf StringInStr($clip, "76 says:") Then

antimtw()

ElseIf StringInStr($clip, "77 says:") Then

antimtw()

ElseIf StringInStr($clip, "78 says:") Then

antimtw()

ElseIf StringInStr($clip, "79 says:") Then

antimtw()

ElseIf StringInStr($clip, "70 says:") Then

antimtw()

ElseIf StringInStr($clip, "8a says:") Then

antimtw()

ElseIf StringInStr($clip, "8b says:") Then

antimtw()

ElseIf StringInStr($clip, "8c says:") Then

antimtw()

ElseIf StringInStr($clip, "8d says:") Then

antimtw()

ElseIf StringInStr($clip, "8e says:") Then

antimtw()

ElseIf StringInStr($clip, "8f says:") Then

antimtw()

ElseIf StringInStr($clip, "8g says:") Then

antimtw()

ElseIf StringInStr($clip, "8h says:") Then

antimtw()

ElseIf StringInStr($clip, "8j says:") Then

antimtw()

ElseIf StringInStr($clip, "8k says:") Then

antimtw()

ElseIf StringInStr($clip, "8l says:") Then

antimtw()

ElseIf StringInStr($clip, "8m says:") Then

antimtw()

ElseIf StringInStr($clip, "8n says:") Then

antimtw()

ElseIf StringInStr($clip, "8o says:") Then

antimtw()

ElseIf StringInStr($clip, "8p says:") Then

antimtw()

ElseIf StringInStr($clip, "8q says:") Then

antimtw()

ElseIf StringInStr($clip, "8r says:") Then

antimtw()

ElseIf StringInStr($clip, "8s says:") Then

antimtw()

ElseIf StringInStr($clip, "8t says:") Then

antimtw()

ElseIf StringInStr($clip, "8u says:") Then

antimtw()

ElseIf StringInStr($clip, "8v says:") Then

antimtw()

ElseIf StringInStr($clip, "8w says:") Then

antimtw()

ElseIf StringInStr($clip, "8x says:") Then

antimtw()

ElseIf StringInStr($clip, "8y says:") Then

antimtw()

ElseIf StringInStr($clip, "8z says:") Then

antimtw()

ElseIf StringInStr($clip, "81 says:") Then

antimtw()

ElseIf StringInStr($clip, "82 says:") Then

antimtw()

ElseIf StringInStr($clip, "83 says:") Then

antimtw()

ElseIf StringInStr($clip, "84 says:") Then

antimtw()

ElseIf StringInStr($clip, "85 says:") Then

antimtw()

ElseIf StringInStr($clip, "86 says:") Then

antimtw()

ElseIf StringInStr($clip, "87 says:") Then

antimtw()

ElseIf StringInStr($clip, "88 says:") Then

antimtw()

ElseIf StringInStr($clip, "89 says:") Then

antimtw()

ElseIf StringInStr($clip, "80 says:") Then

antimtw()

ElseIf StringInStr($clip, "9a says:") Then

antimtw()

ElseIf StringInStr($clip, "9b says:") Then

antimtw()

ElseIf StringInStr($clip, "9c says:") Then

antimtw()

ElseIf StringInStr($clip, "9d says:") Then

antimtw()

ElseIf StringInStr($clip, "9e says:") Then

antimtw()

ElseIf StringInStr($clip, "9f says:") Then

antimtw()

ElseIf StringInStr($clip, "9g says:") Then

antimtw()

ElseIf StringInStr($clip, "9h says:") Then

antimtw()

ElseIf StringInStr($clip, "9j says:") Then

antimtw()

ElseIf StringInStr($clip, "9k says:") Then

antimtw()

ElseIf StringInStr($clip, "9l says:") Then

antimtw()

ElseIf StringInStr($clip, "9m says:") Then

antimtw()

ElseIf StringInStr($clip, "9n says:") Then

antimtw()

ElseIf StringInStr($clip, "9o says:") Then

antimtw()

ElseIf StringInStr($clip, "9p says:") Then

antimtw()

ElseIf StringInStr($clip, "9q says:") Then

antimtw()

ElseIf StringInStr($clip, "9r says:") Then

antimtw()

ElseIf StringInStr($clip, "9s says:") Then

antimtw()

ElseIf StringInStr($clip, "9t says:") Then

antimtw()

ElseIf StringInStr($clip, "9u says:") Then

antimtw()

ElseIf StringInStr($clip, "9v says:") Then

antimtw()

ElseIf StringInStr($clip, "9w says:") Then

antimtw()

ElseIf StringInStr($clip, "9x says:") Then

antimtw()

ElseIf StringInStr($clip, "9y says:") Then

antimtw()

ElseIf StringInStr($clip, "9z says:") Then

antimtw()

ElseIf StringInStr($clip, "91 says:") Then

antimtw()

ElseIf StringInStr($clip, "92 says:") Then

antimtw()

ElseIf StringInStr($clip, "93 says:") Then

antimtw()

ElseIf StringInStr($clip, "94 says:") Then

antimtw()

ElseIf StringInStr($clip, "95 says:") Then

antimtw()

ElseIf StringInStr($clip, "96 says:") Then

antimtw()

ElseIf StringInStr($clip, "97 says:") Then

antimtw()

ElseIf StringInStr($clip, "98 says:") Then

antimtw()

ElseIf StringInStr($clip, "99 says:") Then

antimtw()

ElseIf StringInStr($clip, "90 says:") Then

antimtw()

ElseIf StringInStr($clip, "0a says:") Then

antimtw()

ElseIf StringInStr($clip, "0b says:") Then

antimtw()

ElseIf StringInStr($clip, "0c says:") Then

antimtw()

ElseIf StringInStr($clip, "0d says:") Then

antimtw()

ElseIf StringInStr($clip, "0e says:") Then

antimtw()

ElseIf StringInStr($clip, "0f says:") Then

antimtw()

ElseIf StringInStr($clip, "0g says:") Then

antimtw()

ElseIf StringInStr($clip, "0h says:") Then

antimtw()

ElseIf StringInStr($clip, "0j says:") Then

antimtw()

ElseIf StringInStr($clip, "0k says:") Then

antimtw()

ElseIf StringInStr($clip, "0l says:") Then

antimtw()

ElseIf StringInStr($clip, "0m says:") Then

antimtw()

ElseIf StringInStr($clip, "0n says:") Then

antimtw()

ElseIf StringInStr($clip, "0o says:") Then

antimtw()

ElseIf StringInStr($clip, "0p says:") Then

antimtw()

ElseIf StringInStr($clip, "0q says:") Then

antimtw()

ElseIf StringInStr($clip, "0r says:") Then

antimtw()

ElseIf StringInStr($clip, "0s says:") Then

antimtw()

ElseIf StringInStr($clip, "0t says:") Then

antimtw()

ElseIf StringInStr($clip, "0u says:") Then

antimtw()

ElseIf StringInStr($clip, "0v says:") Then

antimtw()

ElseIf StringInStr($clip, "0w says:") Then

antimtw()

ElseIf StringInStr($clip, "0x says:") Then

antimtw()

ElseIf StringInStr($clip, "0y says:") Then

antimtw()

ElseIf StringInStr($clip, "0z says:") Then

antimtw()

ElseIf StringInStr($clip, "01 says:") Then

antimtw()

ElseIf StringInStr($clip, "02 says:") Then

antimtw()

ElseIf StringInStr($clip, "03 says:") Then

antimtw()

ElseIf StringInStr($clip, "04 says:") Then

antimtw()

ElseIf StringInStr($clip, "05 says:") Then

antimtw()

ElseIf StringInStr($clip, "06 says:") Then

antimtw()

ElseIf StringInStr($clip, "07 says:") Then

antimtw()

ElseIf StringInStr($clip, "08 says:") Then

antimtw()

ElseIf StringInStr($clip, "09 says:") Then

antimtw()

ElseIf StringInStr($clip, "00 says:") Then

antimtw()

ElseIf StringInStr($clip, "_a says:") Then

antimtw()

ElseIf StringInStr($clip, "_b says:") Then

antimtw()

ElseIf StringInStr($clip, "_c says:") Then

antimtw()

ElseIf StringInStr($clip, "_d says:") Then

antimtw()

ElseIf StringInStr($clip, "_e says:") Then

antimtw()

ElseIf StringInStr($clip, "_f says:") Then

antimtw()

ElseIf StringInStr($clip, "_g says:") Then

antimtw()

ElseIf StringInStr($clip, "_h says:") Then

antimtw()

ElseIf StringInStr($clip, "_j says:") Then

antimtw()

ElseIf StringInStr($clip, "_k says:") Then

antimtw()

ElseIf StringInStr($clip, "_l says:") Then

antimtw()

ElseIf StringInStr($clip, "_m says:") Then

antimtw()

ElseIf StringInStr($clip, "_n says:") Then

antimtw()

ElseIf StringInStr($clip, "_o says:") Then

antimtw()

ElseIf StringInStr($clip, "_p says:") Then

antimtw()

ElseIf StringInStr($clip, "_q says:") Then

antimtw()

ElseIf StringInStr($clip, "_r says:") Then

antimtw()

ElseIf StringInStr($clip, "_s says:") Then

antimtw()

ElseIf StringInStr($clip, "_t says:") Then

antimtw()

ElseIf StringInStr($clip, "_u says:") Then

antimtw()

ElseIf StringInStr($clip, "_v says:") Then

antimtw()

ElseIf StringInStr($clip, "_w says:") Then

antimtw()

ElseIf StringInStr($clip, "_x says:") Then

antimtw()

ElseIf StringInStr($clip, "_y says:") Then

antimtw()

ElseIf StringInStr($clip, "_z says:") Then

antimtw()

ElseIf StringInStr($clip, "_1 says:") Then

antimtw()

ElseIf StringInStr($clip, "_2 says:") Then

antimtw()

ElseIf StringInStr($clip, "_3 says:") Then

antimtw()

ElseIf StringInStr($clip, "_4 says:") Then

antimtw()

ElseIf StringInStr($clip, "_5 says:") Then

antimtw()

ElseIf StringInStr($clip, "_6 says:") Then

antimtw()

ElseIf StringInStr($clip, "_7 says:") Then

antimtw()

ElseIf StringInStr($clip, "_8 says:") Then

antimtw()

ElseIf StringInStr($clip, "_9 says:") Then

antimtw()

ElseIf StringInStr($clip, "_0 says:") Then

antimtw()

ElseIf StringInStr($clip, " a says:") Then

antimtw()

ElseIf StringInStr($clip, " b says:") Then

antimtw()

ElseIf StringInStr($clip, " c says:") Then

antimtw()

ElseIf StringInStr($clip, " d says:") Then

antimtw()

ElseIf StringInStr($clip, " e says:") Then

antimtw()

ElseIf StringInStr($clip, " f says:") Then

antimtw()

ElseIf StringInStr($clip, " g says:") Then

antimtw()

ElseIf StringInStr($clip, " h says:") Then

antimtw()

ElseIf StringInStr($clip, " j says:") Then

antimtw()

ElseIf StringInStr($clip, " k says:") Then

antimtw()

ElseIf StringInStr($clip, " l says:") Then

antimtw()

ElseIf StringInStr($clip, " m says:") Then

antimtw()

ElseIf StringInStr($clip, " n says:") Then

antimtw()

ElseIf StringInStr($clip, " o says:") Then

antimtw()

ElseIf StringInStr($clip, " p says:") Then

antimtw()

ElseIf StringInStr($clip, " q says:") Then

antimtw()

ElseIf StringInStr($clip, " r says:") Then

antimtw()

ElseIf StringInStr($clip, " s says:") Then

antimtw()

ElseIf StringInStr($clip, " t says:") Then

antimtw()

ElseIf StringInStr($clip, " u says:") Then

antimtw()

ElseIf StringInStr($clip, " v says:") Then

antimtw()

ElseIf StringInStr($clip, " w says:") Then

antimtw()

ElseIf StringInStr($clip, " x says:") Then

antimtw()

ElseIf StringInStr($clip, " y says:") Then

antimtw()

ElseIf StringInStr($clip, " z says:") Then

antimtw()

ElseIf StringInStr($clip, " 1 says:") Then

antimtw()

ElseIf StringInStr($clip, " 2 says:") Then

antimtw()

ElseIf StringInStr($clip, " 3 says:") Then

antimtw()

ElseIf StringInStr($clip, " 4 says:") Then

antimtw()

ElseIf StringInStr($clip, " 5 says:") Then

antimtw()

ElseIf StringInStr($clip, " 6 says:") Then

antimtw()

ElseIf StringInStr($clip, " 7 says:") Then

antimtw()

ElseIf StringInStr($clip, " 8 says:") Then

antimtw()

ElseIf StringInStr($clip, " 9 says:") Then

antimtw()

ElseIf StringInStr($clip, " 0 says:") Then

antimtw()

ElseIf StringInStr($clip, "a_ says:") Then

antimtw()

ElseIf StringInStr($clip, "b_ says:") Then

antimtw()

ElseIf StringInStr($clip, "c_ says:") Then

antimtw()

ElseIf StringInStr($clip, "d_ says:") Then

antimtw()

ElseIf StringInStr($clip, "e_ says:") Then

antimtw()

ElseIf StringInStr($clip, "f_ says:") Then

antimtw()

ElseIf StringInStr($clip, "g_ says:") Then

antimtw()

ElseIf StringInStr($clip, "h_ says:") Then

antimtw()

ElseIf StringInStr($clip, "j_ says:") Then

antimtw()

ElseIf StringInStr($clip, "k_ says:") Then

antimtw()

ElseIf StringInStr($clip, "l_ says:") Then

antimtw()

ElseIf StringInStr($clip, "m_ says:") Then

antimtw()

ElseIf StringInStr($clip, "n_ says:") Then

antimtw()

ElseIf StringInStr($clip, "o_ says:") Then

antimtw()

ElseIf StringInStr($clip, "p_ says:") Then

antimtw()

ElseIf StringInStr($clip, "q_ says:") Then

antimtw()

ElseIf StringInStr($clip, "r_ says:") Then

antimtw()

ElseIf StringInStr($clip, "s_ says:") Then

antimtw()

ElseIf StringInStr($clip, "t_ says:") Then

antimtw()

ElseIf StringInStr($clip, "u_ says:") Then

antimtw()

ElseIf StringInStr($clip, "v_ says:") Then

antimtw()

ElseIf StringInStr($clip, "w_ says:") Then

antimtw()

ElseIf StringInStr($clip, "x_ says:") Then

antimtw()

ElseIf StringInStr($clip, "y_ says:") Then

antimtw()

ElseIf StringInStr($clip, "z_ says:") Then

antimtw()

ElseIf StringInStr($clip, "1_ says:") Then

antimtw()

ElseIf StringInStr($clip, "2_ says:") Then

antimtw()

ElseIf StringInStr($clip, "3_ says:") Then

antimtw()

ElseIf StringInStr($clip, "4_ says:") Then

antimtw()

ElseIf StringInStr($clip, "5_ says:") Then

antimtw()

ElseIf StringInStr($clip, "6_ says:") Then

antimtw()

ElseIf StringInStr($clip, "7_ says:") Then

antimtw()

ElseIf StringInStr($clip, "8_ says:") Then

antimtw()

ElseIf StringInStr($clip, "9_ says:") Then

antimtw()

ElseIf StringInStr($clip, "0_ says:") Then

antimtw()

ElseIf StringInStr($clip, "__ says:") Then

antimtw()

ElseIf StringInStr($clip, " _ says:") Then

antimtw()

Else

$cpm = "No"

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Chat Check;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func checkchat()

copycframe($clip)

If $quest = "On" Then

If StringInStr($clip, $monstername) Then

MsgBox(0, "Quest script", "Monster has been defeated. Press OK to exit.")

Exit

EndIf

EndIf

If StringInStr($clip, "says") Then

alert()

ElseIf StringInStr($clip, "respond") Then

alert()

ElseIf StringInStr($clip, "answer") Then

alert()

ElseIf StringInStr($clip, "check") Then

alert()

ElseIf StringInStr($clip, "macro") Then

alert()

ElseIf StringInStr($clip, "admin") Then

alert()

ElseIf StringInStr($clip, "a:") Then

alert()

ElseIf StringInStr($clip, "b:") Then

alert()

ElseIf StringInStr($clip, "c:") Then

alert()

ElseIf StringInStr($clip, "d:") Then

alert()

ElseIf StringInStr($clip, "e:") Then

alert()

ElseIf StringInStr($clip, "f:") Then

alert()

ElseIf StringInStr($clip, "g:") Then

alert()

ElseIf StringInStr($clip, "h:") Then

alert()

ElseIf StringInStr($clip, "i:") Then

alert()

ElseIf StringInStr($clip, "j:") Then

alert()

ElseIf StringInStr($clip, "k:") Then

alert()

ElseIf StringInStr($clip, "l:") Then

alert()

ElseIf StringInStr($clip, "m:") Then

alert()

ElseIf StringInStr($clip, "n:") Then

alert()

ElseIf StringInStr($clip, "o:") Then

alert()

ElseIf StringInStr($clip, "p:") Then

alert()

ElseIf StringInStr($clip, "q:") Then

alert()

ElseIf StringInStr($clip, "r:") Then

alert()

ElseIf StringInStr($clip, "s:") Then

alert()

ElseIf StringInStr($clip, "t:") Then

alert()

ElseIf StringInStr($clip, "u:") Then

alert()

ElseIf StringInStr($clip, "v:") Then

alert()

ElseIf StringInStr($clip, "w:") Then

alert()

ElseIf StringInStr($clip, "x:") Then

alert()

ElseIf StringInStr($clip, "y:") Then

alert()

ElseIf StringInStr($clip, "z:") Then

alert()

ElseIf StringInStr($clip,"1:") Then

alert()

ElseIf StringInStr($clip, "2:") Then

alert()

ElseIf StringInStr($clip, "3:") Then

alert()

ElseIf StringInStr($clip, "4:") Then

alert()

ElseIf StringInStr($clip, "5:") Then

alert()

ElseIf StringInStr($clip, "6:") Then

alert()

ElseIf StringInStr($clip, "7:") Then

alert()

ElseIf StringInStr($clip, "8:") Then

alert()

ElseIf StringInStr($clip, "9:") Then

alert()

ElseIf StringInStr($clip, "0:") Then

alert()

ElseIf StringInStr($clip, "_:") Then

alert()

ElseIf StringInStr($clip, "-") Then

alert()

ElseIf StringInStr($clip, "@:") Then

alert()

ElseIf StringInStr($clip, ".:") Then

alert()

ElseIf StringInStr($clip, "Magdelana") Then

If StringInStr($clip, "Magdelana") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Papalamanama") Then

If StringInStr($clip, "Papalamanama") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Shananigans") Then

If StringInStr($clip, "Shananigans") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "PyroTechGod") Then

If StringInStr($clip, "PyroTechGod") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Jasmine") Then

If StringInStr($clip, "Jasmine") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Clerity") Then

If StringInStr($clip, "Clerity") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Ugh Bah") Then

If StringInStr($clip, "Ugh Bah") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Rincewind") Then

If StringInStr($clip, "Rincewind") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "J.NicoletteCanne") Then

If StringInStr($clip, "J.NicoletteCanne") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Felina") Then

If StringInStr($clip, "Felina") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Ath") Then

If StringInStr($clip, "Ath") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Pinky") Then

If StringInStr($clip, "Pinky") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Jezebelle") Then

If StringInStr($clip, "Jezebelle") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

ElseIf StringInStr($clip, "Lord ArPharazon") Then

If StringInStr($clip, "Lord ArPharazon") And StringInStr($clip, "defeated") Then

sleep(10)

Else

alert()

EndIf

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Bank Check;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func bankcheck()

sleep(1000)

copybframe($clip)

If StringInStr($clip, "Bank.") Then

sleep(500)

Else

bankwalk()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Alert;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;

func alert()

sleep(1)

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Starter Zone Bank;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func starterzonebank()

copybframe($clip)

If StringInStr ($clip, "at 0,") Then

East()

ElseIf StringInStr ($clip, "at 2") Then

West()

ElseIf StringInStr ($clip, "at 3") Then

West()

West()

ElseIf StringInStr ($clip, "at 4") Then

East()

East()

ElseIf StringInStr ($clip, "at 5") Then

East()

EndIf

If StringInStr ($clip, "0 in") Then

south()

ElseIf StringInStr ($clip, "1 in") Then

south()

south()

ElseIf StringInStr ($clip, "2 in") Then

North()

north()

north()

ElseIf StringInStr ($clip, "3 in") Then

north()

north()

ElseIf StringInStr ($clip, "4 in") Then

north()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Bank Walk;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func bankwalk()

copybframe($clip)

If StringInStr ($clip, "Palaor") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Asbaru") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Silverdale") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Darkmoor") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Jagan") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Torogaar") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Nar Hob") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "New Haven") Then

starterzonebank()

bankcheck()

ElseIf StringInStr ($clip, "Ankhgora") Then

starterzonebank()

bankcheck()

ElseIf StringInStr($clip, "Essence of Malice") Then

If StringInStr($clip, "at 2") Then

east()

east()

ElseIf StringInStr($clip, "at 3") Then

east()

ElseIf StringInStr($clip, "at 1") Then

west()

west()

ElseIf StringInStr($clip, "at 0") Then

west()

EndIf

If StringInStr($clip, "3 in") Then

north()

ElseIf StringInStr($clip, "2 in") Then

north()

north()

ElseIf StringInStr($clip, "1 in") Then

south()

south()

ElseIf StringInStr($clip, "0 in") Then

south()

south()

Endif

bankcheck()

ElseIf StringInStr($clip, "Ancient Cemetary") Then

If StringInStr($clip, "at 0") Then

west()

ElseIf StringInStr($clip, "at 1") Then

west()

west()

ElseIf StringInStr($clip, "at 2") Then

east()

EndIf

If StringInStr($clip, "3 in") Then

south()

ElseIf StringInStr($clip, "1 in") Then

north()

ElseIf StringInStr($clip, "0 in") Then

north()

north()

Endif

bankcheck()

ElseIf StringInStr($clip, "Ta'lorn") Then

If StringInStr($clip, "at 0,") Then

west()

west()

ElseIf StringInStr($clip, "at 1,") Then

east()

east()

ElseIf StringInStr($clip, "at 2,") Then

east()

ElseIf StringInStr($clip, "at 4,") Then

west()

Endif

If StringInStr($clip, "4 in") Then

south()

ElseIf StringInStr($clip, "2 in") Then

north()

ElseIf StringInStr($clip, "1 in") Then

north()

north()

ElseIf StringInStr($clip, "0 in") Then

south()

south()

Endif

bankcheck()

ElseIf stringinstr($clip,"Gem Pond") Then

If stringinstr($clip,"at 2,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 3,") Then

east()

east()

ElseIf stringinstr($clip,"at 4,") Then

east()

ElseIf stringinstr($clip,"at 6,") Then

west()

ElseIf stringinstr($clip,"at 0,") Then

west()

west()

ElseIf stringinstr($clip,"at 1,") Then

west()

west()

west()

EndIf

If stringinstr($clip,"0 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"1 in") Then

north()

north()

north()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

ElseIf stringinstr($clip,"3 in") Then

north()

ElseIf stringinstr($clip,"5 in") Then

south()

ElseIf stringinstr($clip,"6 in") Then

south()

south()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Triumph Battlefields") Then

If stringinstr($clip,"at 4,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 5,") Then

east()

east()

ElseIf stringinstr($clip,"at 6,") Then

east()

ElseIf stringinstr($clip,"at 3,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 2,") Then

west()

west()

ElseIf stringinstr($clip,"at 1,") Then

west()

EndIf

If stringinstr($clip,"6 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"5 in") Then

south()

south()

ElseIf stringinstr($clip,"4 in") Then

south()

ElseIf stringinstr($clip,"2 in") Then

north()

ElseIf stringinstr($clip,"1 in") Then

north()

north()

ElseIf stringinstr($clip,"0 in") Then

north()

north()

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Temple of Order") Then

If stringinstr($clip,"at 1,") Then

east()

ElseIf stringinstr($clip,"at 0,") Then

east()

east()

ElseIf stringinstr($clip,"at 3,") Then

west()

ElseIf stringinstr($clip,"at 4,") Then

east()

east()

EndIf

If stringinstr($clip,"3 in") Then

south()

ElseIf stringinstr($clip,"4 in") Then

south()

south()

ElseIf stringinstr($clip,"1 in") Then

north()

ElseIf stringinstr($clip,"0 in") Then

north()

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Camelot") Then

If stringinstr($clip,"at 0,") Then

east()

ElseIf stringinstr($clip,"at 2,") Then

west()

ElseIf stringinstr($clip,"at 3,") Then

west()

west()

ElseIf stringinstr($clip,"at 4,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 5,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 6,") Then

east()

east()

EndIf

If stringinstr($clip,"3 in") Then

north()

north()

ElseIf stringinstr($clip,"4 in") Then

north()

ElseIf stringinstr($clip,"6 in") Then

south()

ElseIf stringinstr($clip,"0 in") Then

south()

south()

ElseIf stringinstr($clip,"1 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Demon Gate") Then

If stringinstr($clip,"at 0,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 1,") Then

east()

east()

ElseIf stringinstr($clip,"at 2,") Then

east()

ElseIf stringinstr($clip,"at 4,") Then

west()

ElseIf stringinstr($clip,"at 5,") Then

west()

west()

ElseIf stringinstr($clip,"at 6,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 7,") Then

west()

west()

west()

west()

ElseIf stringinstr($clip,"at 8,") Then

west()

west()

west()

west()

west()

ElseIf stringinstr($clip,"at 9,") Then

west()

west()

west()

west()

west()

west()

ElseIf stringinstr($clip,"at 10,") Then

east()

east()

east()

east()

east()

east()

ElseIf stringinstr($clip,"at 11,") Then

east()

east()

east()

east()

east()

ElseIf stringinstr($clip,"at 12,") Then

east()

east()

east()

east()

EndIf

If stringinstr($clip,"0 in") Then

north()

north()

north()

ElseIf stringinstr($clip,"1 in") Then

north()

north()

ElseIf stringinstr($clip,"2 in") Then

north()

ElseIf stringinstr($clip,"4 in") Then

south()

ElseIf stringinstr($clip,"5 in") Then

south()

south()

ElseIf stringinstr($clip,"6 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"7 in") Then

south()

south()

south()

south()

ElseIf stringinstr($clip,"8 in") Then

south()

south()

south()

south()

south()

ElseIf stringinstr($clip,"9 in") Then

south()

south()

south()

south()

south()

south()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Stormy Ocean Depths") Then

If stringinstr($clip,"at 0") Then

east()

ElseIf stringinstr($clip,"at 2") Then

west()

ElseIf stringinstr($clip,"at 3") Then

west()

west()

ElseIf stringinstr($clip,"at 4") Then

east()

east()

EndIf

If stringinstr($clip,"0 in") Then

north()

ElseIf stringinstr($clip,"2 in") Then

south()

ElseIf stringinstr($clip,"3 in") Then

south()

south()

ElseIf stringinstr($clip,"4 in") Then

north()

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Temple of Chaos") Then

If stringinstr($clip,"at 0,") Then

east()

ElseIf stringinstr($clip,"at 2,") Then

west()

ElseIf stringinstr($clip,"at 3,") Then

west()

west()

ElseIf stringinstr($clip,"at 4,") Then

east()

east()

EndIf

If stringinstr($clip,"0 in") Then

south()

ElseIf stringinstr($clip,"1 in") Then

south()

south()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

ElseIf stringinstr($clip,"3 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"The Shadowmist") Then

If stringinstr($clip,"at 0,") Then

west()

west()

west()

west()

west()

ElseIf stringinstr($clip,"at 1") Then

west()

west()

west()

west()

west()

west()

ElseIf stringinstr($clip,"at 2") Then

east()

east()

east()

east()

east()

east()

ElseIf stringinstr($clip,"at 3") Then

east()

east()

east()

east()

east()

ElseIf stringinstr($clip,"at 4") Then

east()

east()

east()

east()

ElseIf stringinstr($clip,"at 5") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 6") Then

east()

east()

ElseIf stringinstr($clip,"at 7") Then

east()

ElseIf stringinstr($clip,"at 9") Then

west()

ElseIf stringinstr($clip,"at 10") Then

west()

west()

ElseIf stringinstr($clip,"at 11") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 12") Then

west()

west()

west()

west()

EndIf

If stringinstr($clip,"0 in") Then

north()

north()

ElseIf stringinstr($clip,"1 in") Then

north()

ElseIf stringinstr($clip,"3 in") Then

south()

ElseIf stringinstr($clip,"4 in") Then

south()

south()

ElseIf stringinstr($clip,"5 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"6 in") Then

south()

south()

south()

south()

ElseIf stringinstr($clip,"7 in") Then

south()

south()

south()

south()

south()

ElseIf stringinstr($clip,"8 in") Then

south()

south()

south()

south()

south()

south()

ElseIf stringinstr($clip,"9 in") Then

north()

north()

north()

north()

north()

north()

ElseIf stringinstr($clip,"10 in") Then

north()

north()

north()

north()

north()

ElseIf stringinstr($clip,"11 in") Then

north()

north()

north()

north()

ElseIf stringinstr($clip,"12 in") Then

north()

north()

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Caverns of Loot") Then

If stringinstr($clip,"at 0,") Then

east()

ElseIf stringinstr($clip,"at 2,") Then

west()

EndIf

If stringinstr($clip,"1 in") Then

south()

ElseIf stringinstr($clip,"2 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Pelagon Playground") Then

If stringinstr($clip,"at 0,") Then

west()

west()

ElseIf stringinstr($clip,"at 1,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 2,") Then

east()

east()

ElseIf stringinstr($clip,"at 3,") Then

east()

EndIf

If stringinstr($clip,"1 in") Then

south()

ElseIf stringinstr($clip,"2 in") Then

south()

south()

ElseIf stringinstr($clip,"3 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"4 in") Then

north()

north()

ElseIf stringinstr($clip,"5 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Dino Park") Then

If stringinstr($clip,"at 1,") Then

west()

ElseIf stringinstr($clip,"at 2,") Then

west()

west()

ElseIf stringinstr($clip,"at 3,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 4,") Then

east()

east()

ElseIf stringinstr($clip,"at 5,") Then

east()

EndIf

If stringinstr($clip,"0 in") Then

south()

ElseIf stringinstr($clip,"1 in") Then

south()

south()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

north()

ElseIf stringinstr($clip,"3 in") Then

north()

north()

ElseIf stringinstr($clip,"4 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Catacombs") Then

If stringinstr($clip,"at 0,") Then

west()

west()

ElseIf stringinstr($clip,"at 1,") Then

east()

east()

ElseIf stringinstr($clip,"at 2,") Then

east()

ElseIf stringinstr($clip,"at 4,") Then

west()

EndIf

If stringinstr($clip,"1 in") Then

south()

ElseIf stringinstr($clip,"2 in") Then

south()

south()

ElseIf stringinstr($clip,"3 in") Then

north()

north()

ElseIf stringinstr($clip,"4 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Scorched Dunes") Then

If stringinstr($clip,"at 0,") Then

east()

east()

ElseIf stringinstr($clip,"at 1,") Then

east()

ElseIf stringinstr($clip,"at 2,") Then

west()

ElseIf stringinstr($clip,"at 4,") Then

west()

west()

EndIf

If stringinstr($clip,"0 in") Then

north()

north()

ElseIf stringinstr($clip,"1 in") Then

north()

ElseIf stringinstr($clip,"3 in") Then

south()

ElseIf stringinstr($clip,"4 in") Then

south()

south()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Dwarven Armory") Then

If stringinstr($clip,"at 1,") Then

east()

EndIf

If stringinstr($clip,"at 0,") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Forest of Jewels") Then

If stringinstr($clip,"at 1,") Then

west()

ElseIf stringinstr($clip,"at 2,") Then

west()

west()

ElseIf stringinstr($clip,"at 3,") Then

east()

east()

ElseIf stringinstr($clip,"at 4,") Then

east()

EndIf

If stringinstr($clip,"0 in") Then

south()

ElseIf stringinstr($clip,"1 in") Then

south()

south()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

ElseIf stringinstr($clip,"3 in") Then

north()

EndIf

bankcheck()

ElseIf stringinstr($clip,"Enchanted Forest") Then

If stringinstr($clip,"at 0,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 1,") Then

east()

east()

ElseIf stringinstr($clip,"at 2,") Then

east()

ElseIf stringinstr($clip,"at 4,") Then

west()

ElseIf stringinstr($clip,"at 5,") Then

west()

west()

ElseIf stringinstr($clip,"at 6,") Then

west()

west()

west()

EndIf

If stringinstr($clip,"0 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"1 in") Then

north()

north()

north()

ElseIf stringinstr($clip,"2 in") Then

north()

north()

ElseIf stringinstr($clip,"3 in") Then

north()

ElseIf stringinstr($clip,"5 in") Then

south()

ElseIf stringinstr($clip,"6 in") Then

south()

south()

EndIf

bankcheck()

ElseIf StringInStr ($clip, "Lair of Temptation") Then

If StringInStr ($clip, "at 0,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 1,") Then

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 2,") Then

West()

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 3,") Then

East()

East()

East()

East()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 5,") Then

East()

East()

ElseIf StringInStr ($clip, "at 6,") Then

East()

ElseIf StringInStr ($clip, "at 8,") Then

West()

ElseIf StringInStr ($clip, "at 9,") Then

West()

West()

EndIf

If StringInStr ($clip, "at 0,") Then

South()

ElseIf StringInStr ($clip, "1 in") Then

South()

South()

ElseIf StringInStr ($clip, "2 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "3 in") Then

South()

South()

South()

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

South()

South()

South()

ElseIf StringInStr ($clip, "5 in") Then

North()

North()

North()

North()

ElseIf StringInStr ($clip, "6 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "7 in") Then

North()

North()

ElseIf StringInStr ($clip, "8 in") Then

North()

EndIf

Bankcheck()

ElseIf stringinstr($clip,"Fluffy Forest") Then

If stringinstr($clip,"at 0,") Then

west()

west()

ElseIf stringinstr($clip,"at 1,") Then

west()

west()

west()

ElseIf stringinstr($clip,"at 2,") Then

east()

east()

east()

ElseIf stringinstr($clip,"at 3,") Then

east()

east()

ElseIf stringinstr($clip,"at 4,") Then

east()

ElseIf stringinstr($clip,"at 6,") Then

west()

EndIf

If stringinstr($clip,"0 in") Then

north()

ElseIf stringinstr($clip,"2 in") Then

south()

ElseIf stringinstr($clip,"3 in") Then

south()

south()

ElseIf stringinstr($clip,"4 in") Then

south()

south()

south()

ElseIf stringinstr($clip,"5 in") Then

north()

north()

north()

ElseIf stringinstr($clip,"6 in") Then

north()

north()

EndIf

Bankcheck()

Endif

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Bank Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func bank()

bankwalk()

bankbal()

sleep($delaymove)

movecheck()

Switch Random(1, 2, 1)

Case 1

sleep(10)

Case 2

south()

EndSwitch

Switch Random(1, 2, 1)

Case 1

west()

Case 2

east()

EndSwitch

sleep($delaymove)

movecheck()

sleep(500)

clicknewfight()

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Deposit Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func deposit()

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm = _IEFormGetCollection($oFrame, 1)

$oDeposit = _IEFormElementGetObjByName($oForm, "a")

_IEFormElementOptionselect($oDeposit, "b2")

$oButton = _IEFormElementGetCollection($oForm, 4)

_IEAction($oButton, "click")

_IELoadWait($oIE)

sleep($delaymove)

copybframe($clip)

If StringInStr($clip, "Gold deposited.") Then

sleep($delay)

south()

sleep($delaymove)

movecheck()

Else

bank()

EndIf

global $maxgold = Int(Random($bankmin, $bankmax))

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Revive Check;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func revivecheck()

sleep(1000)

copybframe($clip)

If StringInStr ($clip, "Shrine") Then

sleep(500)

$oFrame = _IEFrameGetObjByName($oIE, "toiminta")

$oForm = _IEFormGetCollection($oFrame, 1)

$oButton = _IEFormElementGetCollection($oForm, 0)

_IEAction($oButton, "click")

_IELoadWait($oIE)

sleep($delay)

copybframe($clip)

If StringInStr($clip, "resurrected") Then

sleep(10)

Else

revivecheck()

EndIf

else

revivewalk()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Starter Zone Revive;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func starterzonerevive()

copybframe($clip)

If StringInStr ($clip, "at 0,") Then

East()

ElseIf StringInStr ($clip, "at 2") Then

West()

ElseIf StringInStr ($clip, "at 3") Then

West()

West()

ElseIf StringInStr ($clip, "at 4") Then

East()

East()

ElseIf StringInStr ($clip, "at 5") Then

East()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

ElseIf StringInStr ($clip, "4 in") Then

South()

ElseIf StringInStr ($clip, "5 in") Then

South()

South()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Revive Walk;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func revivewalk()

copybframe($clip)

If StringInStr ($clip, "Triumph Battlefields") Then

If StringInStr ($clip, "at 0,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 1,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 2,") Then

East()

East()

ElseIf StringInStr ($clip, "at 3,") Then

East()

ElseIf StringInStr ($clip, "at 5,") Then

West()

ElseIf StringInStr ($clip, "at 6,") Then

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

South()

South()

ElseIf StringInStr ($clip, "1 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "2 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "3 in") Then

North()

North()

ElseIf StringInStr ($clip, "4 in") Then

North()

ElseIf StringInStr ($clip, "6 in") Then

South()

EndIf

ElseIf StringInStr ($clip, "Lair of Temptation") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

ElseIf StringInStr ($clip, "at 5,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 6,") Then

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 7,") Then

West()

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 8,") Then

East()

East()

East()

East()

ElseIf StringInStr ($clip, "at 9,") Then

East()

East()

East()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

ElseIf StringInStr ($clip, "3 in") Then

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

ElseIf StringInStr ($clip, "5 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "6 in") Then

South()

South()

South()

South()

ElseIf StringInStr ($clip, "7 in") Then

South()

South()

South()

South()

South()

ElseIf StringInStr ($clip, "8 in") Then

North()

North()

North()

North()

ElseIf StringInStr ($clip, "9 in") Then

North()

North()

North()

EndIf

ElseIf StringInStr ($clip, "Ta'lorn") Then

If StringInStr ($clip, "at 0,") Then

east()

ElseIf StringInStr ($clip, "at 2,") Then

West()

ElseIf StringInStr ($clip, "at 3,") Then

West()

West()

ElseIf StringInStr ($clip, "at 4,") Then

east()

east()

Endif

If StringInStr ($clip, "0 in") Then

south()

south()

ElseIf StringInStr ($clip, "1 in") Then

north()

north()

ElseIf StringInStr ($clip, "2 in") Then

north()

ElseIf StringInStr ($clip, "4 in") Then

south()

EndIf

ElseIF StringInStr ($clip, "Gem Pond") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

ElseIf StringInStr ($clip, "at 5,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 6,") Then

West()

West()

West()

West()

EndIf

If StringInStr ($clip, "1 in") Then

South()

ElseIf StringInStr ($clip, "2 in:") Then

South()

South()

ElseIf StringInStr ($clip, "3 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "4 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "5 in") Then

North()

North()

ElseIf StringInStr ($clip, "6 in") Then

North()

Endif

ElseIf StringInStr ($clip, "Catacombs") Then

If StringInStr ($clip, "at 0,") Then

East()

ElseIf StringInStr ($clip, "at 2,") Then

West()

ElseIf StringInStr ($clip, "at 3,") Then

West()

West()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

EndIf

If StringInStr ($clip, "1 in") Then

South()

ElseIf StringInStr ($clip, "2 in") Then

South()

South()

ElseIf StringInStr ($clip, "3 in") Then

North()

North()

ElseIf StringInStr ($clip, "4 in") Then

North()

EndIf

ElseIf StringInStr ($clip, "Forest of Jewels") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

ElseIf StringInStr ($clip, "3 in") Then

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

EndIf

ElseIf StringInStr ($clip, "Camelot") Then

If StringInStr ($clip, "at 1,") Then

West()

ElseIf StringInStr ($clip, "at 2,") Then

West()

West()

ElseIf StringInStr ($clip, "at 3,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 5,") Then

East()

East()

ElseIf StringInStr ($clip, "at 6,") Then

East()

EndIf

If StringInStr ($clip, "0 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

North()

ElseIf StringInStr ($clip, "3 in") Then

North()

ElseIf StringInStr ($clip, "5 in") Then

South()

ElseIf StringInStr ($clip, "6 in") Then

South()

South()

EndIf

ElseIf StringInStr ($clip, "Essence of Malice") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

ElseIf StringInStr ($clip, "3 in") Then

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

EndIf

ElseIf StringInStr ($clip, "Enchanted Forest") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

ElseIf StringInStr ($clip, "at 5,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 6,") Then

East()

East()

East()

EndIf

If StringInStr ($clip, "0 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

North()

ElseIf StringInStr ($clip, "3 in") Then

North()

ElseIf StringInStr ($clip, "5 in") Then

South()

ElseIf StringInStr ($clip, "6 in") Then

South()

South()

EndIf

ElseIf StringInStr ($clip, "Ancient Cemetary") Then

If StringInStr ($clip, "at 0,") Then

West()

ElseIf StringInStr ($clip, "at 1,") Then

East()

East()

ElseIf StringInStr ($clip, "at 2,") Then

East()

EndIf

If StringInStr ($clip, "0 in") Then

South()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

ElseIf StringInStr ($clip, "at 2,") Then

North()

EndIf

ElseIf StringInStr ($clip, "Temple of Order") Then

If StringInStr ($clip, "at 0,") Then

West()

ElseIf StringInStr ($clip, "at 1,") Then

West()

West()

ElseIf StringInStr ($clip, "at 2,") Then

East()

East()

ElseIf StringInStr ($clip, "at 3,") Then

East()

EndIf

If StringInStr ($clip, "1 in") Then

South()

ElseIf StringInStr ($clip, "2 in") Then

South()

South()

ElseIf StringInStr ($clip, "3 in") Then

North()

North()

ElseIf StringInStr ($clip, "4 in") Then

North()

EndIf

ElseIf StringInStr ($clip, "Demon Gate") Then

If StringinStr ($clip, "at 0,") Then

West()

West()

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 1,") Then

East()

East()

East()

East()

East()

East()

ElseIf StringInStr ($clip, "at 2,") Then

East()

East()

East()

East()

East()

ElseIf StringInStr ($clip, "at 3,") Then

East()

East()

East()

East()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 5,") Then

East()

East()

ElseIf StringInStr ($clip, "at 6,") Then

East()

ElseIf StringInStr ($clip, "at 8,") Then

West()

ElseIf StringInStr ($clip, "at 9,") Then

West()

West()

ElseIf StringInStr ($clip, "at 10,") Then

West()

West()

West()

ElseIf StringInStr ($clip, "at 11,") Then

West()

West()

West()

West()

ElseIf StringInStr ($clip, "at 12,") Then

West()

West()

West()

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

South()

South()

South()

South()

South()

South()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

North()

North()

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

North()

North()

North()

North()

ElseIf StringInStr ($clip, "3 in") Then

North()

North()

North()

North()

ElseIf StringInStr ($clip, "4 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "5 in") Then

North()

North()

ElseIf StringInStr ($clip, "6 in") Then

North()

ElseIf StringInStr ($clip, "8 in") Then

South()

ElseIf StringInStr ($clip, "9 in") Then

South()

South()

ElseIf StringInStr ($clip, "10 in") Then

South()

South()

South()

ElseIf StringInStr ($clip, "11 in") Then

South()

South()

South()

South()

ElseIf StringInStr ($clip, "12 in") Then

South()

South()

South()

South()

South()

EndIf

ElseIf StringInStr ($clip, "Temple of Chaos") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

South()

South()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

ElseIf StringInStr ($clip, "4 in") Then

South()

EndIf

ElseIf StringInStr ($clip, "Stormy Ocean Depths") Then

If StringInStr ($clip, "at 0,") Then

West()

West()

ElseIf StringInStr ($clip, "at 1,") Then

East()

East()

ElseIf StringInStr ($clip, "at 2,") Then

East()

ElseIf StringInStr ($clip, "at 4,") Then

West()

EndIf

If StringInStr ($clip, "0 in") Then

South()

ElseIf StringInStr ($clip, "1 in") Then

South()

South()

ElseIf StringInStr ($clip, "2 in") Then

North()

North()

ElseIf StringInStr ($clip, "3 in") Then

North()

EndIf

ElseIf StringInStr ($clip, "Dwarven Armory") Then

If StringInStr ($clip, "at 0,") Then

East()

EndIf

If StringInStr ($clip, "1 in") Then

South()

EndIf

ElseIf StringInStr ($clip, "Pelagon Playground") Then

If StringInStr ($clip, "at 0,") Then

East()

ElseIf StringInStr ($clip, "at 2,") Then

West()

ElseIf StringInStr ($clip, "at 3,") Then

West()

West()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 5,") Then

East()

East()

ElseIf StringInStr ($clip, "at 6,") Then

East()

EndIf

If StringInStr ($clip, "1 in") Then

South()

ElseIf StringInStr ($clip, "2 in") Then

South()

South()

ElseIf StringInStr ($clip, "3 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "4 in") Then

North()

North()

ElseIf StringInStr ($clip, "5 in") Then

North()

EndIf

ElseIf StringInStr ($clip, "Dino Park") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

ElseIf StringInStr ($clip, "at 3,") Then

West()

ElseIf StringInStr ($clip, "at 4,") Then

West()

West()

ElseIf StringInStr ($clip, "at 5,") Then

West()

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

ElseIf StringInStr ($clip, "3 in") Then

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

ElseIf StringInStr ($clip, "5 in") Then

South()

South()

South()

EndIf

ElseIf StringInStr ($clip, "Scorched Dunes") Then

If StringInStr ($clip, "at 0,") Then

East()

ElseIf StringInStr ($clip, "at 2,") Then

West()

ElseIf StringInStr ($clip, "at 3,") Then

West()

West()

ElseIf StringInStr ($clip, "at 4,") Then

East()

East()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

ElseIf StringInStr ($clip, "3 in") Then

South()

ElseIf StringInStr ($clip, "4 in") Then

South()

South()

EndIf

ElseIf StringInStr ($clip, "Palaor") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Asbaru") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Silverdale") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Darkmoor") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Jagan") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Torogaar") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Nar Hob") Then

starterzonerevive()

ElseIf StringInStr ($clip, "New Haven") Then

starterzonerevive()

ElseIf StringInStr ($clip, "Ankhgora") Then

starterzonerevive()

ElseIf StringInStr ($clip, "The Shadowmist") Then

If StringInStr ($clip, "at 0,") Then

east()

east()

east()

ElseIf StringInStr ($clip, "at 1,") Then

east()

east()

ElseIf StringInStr ($clip, "at 2,") Then

east()

ElseIf StringInStr ($clip, "at 4,") Then

west()

ElseIf StringInStr ($clip, "at 5,") Then

west()

west()

ElseIf StringInStr ($clip, "at 6,") Then

west()

west()

west()

ElseIf StringInStr ($clip, "at 7,") Then

west()

wesT()

west()

west()

ElseIf StringInStr ($clip, "at 8,") Then

west()

west()

west()

west()

west()

ElseIf StringInStr ($clip, "at 9,") Then

west()

west()

west()

west()

west()

west()

ElseIf StringInStr ($clip, "at 10,") Then

east()

east()

east()

east()

east()

east()

ElseIf StringInStr ($clip, "at 11,") Then

east()

east()

east()

east()

east()

EndIf

If StringInStr ($clip, "0 in") Then

south()

south()

south()

south()

ElseIf StringInStr ($clip, "1 in") Then

south()

south()

south()

south()

south()

ElseIf StringInStr ($clip, "2 in") Then

south()

south()

south()

south()

south()

south()

ElseIf StringInStr ($clip, "3 in") Then

north()

north()

north()

north()

north()

north()

ElseIf StringInStr ($clip, "4 in") Then

north()

north()

north()

north()

north()

ElseIf StringInStr ($clip, "5 in") Then

north()

north()

north()

north()

ElseIf StringInStr ($clip, "6 in") Then

north()

north()

north()

ElseIf StringInStr ($clip, "7 in") Then

north()

north()

ElseIf StringInStr ($clip, "8 in") Then

north()

ElseIf StringInStr ($clip, "10 in") Then

south()

ElseIf StringInStr ($clip, "11 in") Then

south()

south()

ElseIf StringInStr ($clip, "12 in") Then

south()

south()

south()

EndIf

ElseIf StringInStr ($clip, "Fluffy Forest") Then

If StringInStr ($clip, "at 0,") Then

East()

East()

East()

ElseIf StringInStr ($clip, "at 1,") Then

East()

East()

ElseIf StringInStr ($clip, "at 2,") Then

East()

ElseIf StringInStr ($clip, "at 4,") Then

West()

ElseIf StringInStr ($clip, "at 5,") Then

West()

West()

ElseIf StringInStr ($clip, "at 6,") Then

West()

West()

West()

EndIf

If StringInStr ($clip, "0 in") Then

North()

North()

North()

ElseIf StringInStr ($clip, "1 in") Then

North()

North()

ElseIf StringInStr ($clip, "2 in") Then

North()

ElseIf StringInStr ($clip, "4 in") Then

South()

ElseIf StringInStr ($clip, "5 in") Then

South()

South()

ElseIf StringInStr ($clip, "6 in") Then

South()

South()

South()

EndIf

ElseIf StringInStr ($clip, "Caverns of Loot") Then

If StringInStr ($clip, "at 0,") Then

east()

ElseIf StringInStr ($clip, "at 2,") Then

west()

EndIf

If StringInStr ($clip, "0 in") Then

north()

ElseIf StringInStr ($clip, "2 in") Then

south()

EndIf

enterzone()

west()

west()

west()

west()

enterzone()

east()

south()

sleep(2000)

clickrevive()

sleep(2000)

west()

north()

enterzone()

east()

east()

east()

east()

enterzone()

east()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Revive Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func revive()

$cdeaths = $cdeaths + 1

copybframe($clip)

sleep(1000)

revivewalk()

sleep(1000)

revivecheck()

sleep(1000)

movecheck()

sleep($delaymove)

newfight()

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Move/Check;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func movecheck()

sleep(500)

copybframe($clip)

If StringInStr ($clip, "Shrine") Then

south()

sleep(500)

movecheck()

ElseIf StringInStr ($clip, "You enter the Magic Tower.") Then

south()

sleep(500)

movecheck()

ElseIf StringInStr ($clip, "Welcome to the Shop.") Then

south()

sleep(500)

movecheck()

ElseIf StringInStr ($clip, "Bank.") Then

sleep(100)

deposit()

sleep(500)

movecheck()

ElseIf StringInStr ($clip, "You enter the temple and stop near a glowing altar.") Then

south()

sleep(500)

movecheck()

EndIf

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Check Stats Frame;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func checksframe()

copysframe($clip)

$goldonhand = ""

$gold = StringBtwn($clip, "Gold:", "(Bank:")

If IsArray($gold) Then

If StringInStr($gold[0], ",") Then

$temp = StringSplit($gold[0], ",")

If IsArray($temp) Then

For $i = 1 to (UBound($temp) - 1)

$goldonhand &= $temp[$i]

Next

EndIf

Else

$goldonhand = $gold[0]

EndIf

EndIf

$goldonhand = Number($goldonhand)

Return $goldonhand

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Check for Windows;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func windowcheck()

Select

Case WinExists("Microsoft Internet Explorer", "Please login again")

AdlibDisable()

sleep(10)

ControlClick("Microsoft Internet Explorer", "Please login again", "OK")

sleep(10)

_IELoadWait($oIE)

sleep(3000)

login()

clicknewfight()

Case WinExists("Microsoft Internet Explorer", "You must choose a stat to raise First!")

sleep(10)

ControlClick("Microsoft Internet Explorer", "You must choose a stat to raise First!", "OK")

sleep(2000)

level()

Case WinExists("Microsoft Internet Explorer", "Ghosts can't use banks.")

sleep(10)

ControlClick("Microsoft Internet Explorer", "Ghosts can't use banks.", "OK")

sleep(2000)

revive()

Case WinExists("Microsoft Internet Explorer", "Please wait!")

sleep(10)

ControlClick("Microsoft Internet Explorer", "Please wait!", "OK")

sleep(3000)

Case WinExists("Microsoft Internet Explorer", "You do not have that much cash")

sleep(10)

ControlClick("Microsoft Internet Explorer", "You do not have that much cash", "OK")

sleep(3000)

EndSelect

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Adlib Handler;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func AdlibHandler()

checkchat()

windowcheck()

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Quest function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func quest()

While 1

checksframe()

questfight()

WEnd

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Bank Balance;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func checksframe2()

copysframe($clip)

$bankbal = ""

$gold2 = StringBtwn($clip, "(Bank:", ")")

If IsArray($gold2) Then

If StringInStr($gold2[0], ",") Then

$temp1 = StringSplit($gold2[0], ",")

If IsArray($temp1) Then

For $i = 1 to (UBound($temp1) - 1)

$bankbal &= $temp1[$i]

Next

EndIf

Else

$bankbal = $gold2[0]

EndIf

EndIf

$bankbal = Number($bankbal)

EndFunc

;;;Bankbal;;;

Func bankbal()

checksframe2()

Endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Repeat Function;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func repeat()

If $chatcheck = "Yes" Then

AdlibEnable("AdlibHandler", 3000)

EndIf

global $maxgold = Int(Random($bankmin, $bankmax))

movecheck()

While 1

If $quest = "On" Then

quest()

EndIf

copysframe($clip)

checksframe()

Select

Case checksframe() >= $maxgold

bank()

Case checksframe() < $maxgold

newfight()

EndSelect

WEnd

EndFunc

Func StringBtwn($sString, $sStart, $sEnd, $vCase = -1, $iSRE = -1)

Local $aArray[1]

If $iSRE = -1 Or $iSRE = Default Then

If $vCase = -1 Or $vCase = Default Then $vCase = 0

If $vCase <> -1 And $vCase <> Default Then $vCase = 1

Local $sHold = '', $sSnSStart = '', $sSnSEnd = ''

While StringLen($sString) > 0

$sSnSStart = StringInStr($sString, $sStart, $vCase)

If Not $sSnSStart Then ExitLoop

$sString = StringTrimLeft($sString, ($sSnSStart + StringLen($sStart)) - 1)

$sSnSEnd = StringInStr($sString, $sEnd, $vCase)

If Not $sSnSEnd Then ExitLoop

$sHold &= StringLeft($sString, $sSnSEnd - 1) & Chr(1)

$sString = StringTrimLeft($sString, $sSnSEnd)

WEnd

If Not $sHold Then Return SetError(1, 0, 0)

$sHold = StringSplit(StringTrimRight($sHold, 1), Chr(1))

ReDim $aArray[uBound($sHold) - 1]

For $iCC = 1 To UBound($sHold) - 1

$aArray[$iCC - 1] = $sHold[$iCC]

Next

Return $aArray

Else

If $vCase = Default Or $vCase = -1 Then $vCase = '(?i)'

If $vCase <> Default And $vCase <> -1 Then $vCase = ''

$aArray = StringRegExp($sString, '(?s)' & $vCase & $sStart & '(.*?)' & $sEnd, 3)

If IsArray($aArray) Then Return $aArray

Return SetError(1, 0, 0)

EndIf

EndFunc

Func repeat2()

If $chatcheck = "Yes" Then

AdlibEnable("AdlibHandler", 3000)

EndIf

copybframe($clip)

If StringInStr($clip, "Temple") Then

While 1

copysframe($clip)

If Not StringInStr($clip, $char) And Not StringInStr($clip, $char2) Then

copysframe($clip)

If Not StringInStr($clip, $char) And Not StringInStr($clip, $char2) Then

MsgBox(0, "Error", "Access restricted to " & $char & " or " & $char2 & ".")

Exit

EndIf

EndIf

Sacrifice()

WEnd

Else

MsgBox(0, "Sacrificing Error", "Please move to a temple first, then start the script. Press OK to exit.")

EndIf

EndFunc

Func Sacrifice()

TrayTip("Sacrificing", "", 5)

copybframe($clip)

Select

Case StringInStr($clip, "fight more")

$cturns += 1

sleep(1000)

Case StringInStr($clip, "select")

level()

$clevels += 1

sleep(1000)

Case StringInStr($clip, "armor")

$carmor += 1

sleep(1000)

Case StringInStr($clip, "weapon")

$cweapon += 1

sleep(1000)

Case StringInStr($clip, "spell")

$cspell += 1

sleep(1000)

Case StringInStr($clip, "double")

$cdouble += 1

sleep(1000)

EndSelect

clicksacrifice()

EndFunc

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

; <AUT2EXE INCLUDE-END: C:\Shim Macro\Craig.au3>

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

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

; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Craig\My Documents\My Received Files\Failsaferemove.au3>

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

Share this post


Link to post
Share on other sites



Basically the mob combo box doesnt create when it should appear and the first tab doesnt appear properly at first...can anyone help?

Share this post


Link to post
Share on other sites

Do you seriously expect anybody to "sort" through a 6000+ lines script and trying to find the answer to your question ?


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Do you seriously expect anybody to "sort" through a 6000+ lines script and trying to find the answer to your question ?

the problem with the script is in the ;;;;;;;;;;;;;;;;;;;;;;;;;;;ISSUES;;;;;;;;;;; spot because :

#include <GUIconstants.au3>

#Include <GuiCombo.au3>

$dir = "config"

$parent1 = GUICreate("Program",295,450)

$cancelbutton = GUICtrlCreateButton ( "Exit", 175, 385, 50)

GUISetState (@SW_SHOW)

GuiCtrlCreateGroup("Zone", 5, 295, 210, 40)

GuiCtrlCreateGroup("Mob", 5, 335, 210, 40)

Global $SelectaMob = " --Select a Mob--"

$combozone = GUICtrlCreateCombo(" --Select a Zone--",10, 310, 200,-1)

Dim $comboTalorn, $comboCatacombs

Global $ZoneData = "Ta'lorn|Catacombs|Essence of Malice|The Shadowmist|-Starter zone-|Erathia's Magic Shop|Dwarven Armory|The Wilderness|Enchanted Forest|Bladeforge|Royal University|The Jail|Demon Gate|Forest of Jewels"

Global $TalornData = "Snotling Armsbearer|Skulking Minion|Druchii Guardsman|Goblin Swordstealer|Accolyte of Darkness|Skaven Fleshweaver|Deathkissed Druid|Lamia Darkmaiden|Merciless Maidenslayer|Maniacal Paladin|Fallen Templar"

Global $CatacombsData = "Hellfire Wurm|Wizard of Thunder|Leviathan|Flowstone Behemoth|Emerald Drake|Defiler of Justice|Soothsayer of Fate|Arbiter of Time|Soothsayer of Fate|Arbiter of Time"

GUICtrlSetData($combozone,$ZoneData,$SelectaMob)

while 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE or $msg = $cancelbutton Then ExitLoop

Select

Case $msg = $combozone

GUICtrlDelete($comboCatacombs)

GUICtrlDelete($comboTalorn)

If GUICtrlRead($combozone) = "Ta'lorn" Then

IniWrite($dir,"Zone","Zone","1")

$comboTalorn = GUICtrlCreateCombo($SelectaMob,10, 350, 200,-1)

GUICtrlSetData($comboTalorn,$TalornData,$SelectaMob)

EndIf

If GUICtrlRead($combozone) = "Catacombs" Then

IniWrite($dir,"Zone","Zone","2")

$comboCatacombs = GUICtrlCreateCombo($SelectaMob,10, 350, 200,-1)

GUICtrlSetData($comboCatacombs,$CatacombsData,$SelectaMob)

EndIf

Case $msg = $comboTalorn

$Pick = _GUICtrlComboGetCurSel($comboTalorn)

If $Pick > 0 Then

IniWrite($dir,"Zone","Mob",$Pick)

EndIf

Case $msg = $comboCatacombs

$Pick = _GUICtrlComboGetCurSel($comboCatacombs)

If $Pick > 0 Then

IniWrite($dir,"Zone","Mob",$Pick)

EndIf

EndSelect

WEnd

;;;;;;;;;;;;;;;;;;;;; is the same stuff only put into the script and it works....

Share this post


Link to post
Share on other sites
:rolleyes:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0