EscapeTheFate Posted June 27, 2007 Share Posted June 27, 2007 #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 = "" 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 ") 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> ; ---------------------------------------------------------------------------- Link to comment Share on other sites More sharing options...
EscapeTheFate Posted June 27, 2007 Author Share Posted June 27, 2007 Basically the mob combo box doesnt create when it should appear and the first tab doesnt appear properly at first...can anyone help? Link to comment Share on other sites More sharing options...
Developers Jos Posted June 27, 2007 Developers Share Posted June 27, 2007 Do you seriously expect anybody to "sort" through a 6000+ lines script and trying to find the answer to your question ? SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
EscapeTheFate Posted June 27, 2007 Author Share Posted June 27, 2007 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, $comboCatacombsGlobal $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 EndSelectWEnd;;;;;;;;;;;;;;;;;;;;; is the same stuff only put into the script and it works.... Link to comment Share on other sites More sharing options...
EscapeTheFate Posted June 27, 2007 Author Share Posted June 27, 2007 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now