Mr.Llama Posted October 14, 2005 Share Posted October 14, 2005 (edited) Ok, let's start off with... Steal da cheese! My original game!Also, I have tons of scripts here, so feel free to refer to them for ideas and content. DO NOT COPY THESE AND SAY YOU'VE CREATED THEM. I've put much time and effort in to (the majority of) these.expandcollapse popup; ---------------------------------------------------------------------------- ;Steal_Da_Cheese! v 5.0.0 ; ;Time: Doesn't matter ;Date: 4/20/05 ;Author: Mr.Llama <Kev10191@msn.com> ; ; ---------------------------------------------------------------------------- #NoTrayIcon HotKeySet("{ESC}", "Terminate") HotKeySet("{Right}", "Right") HotKeySet("{Left}", "Left") HotKeySet("{Up}", "Up") HotKeySet("{Down}", "Down") Opt ("GUICoordMode", 1) Global $Score = 0 Global $XOffset = 0 Global $YOffset = 0 Global $MouseX = 1 Global $MouseY = 1 Global $CheeseX = Random(0, 368, 1) Global $CheeseY = Random(0, 368, 1) GUICreate("Steal Da Cheese!", 400, 400, -1, -1) $MouseIcon = GUICtrlCreateIcon("m_work.ani", -1, 1, 1, 32, 32) $CheeseIcon = GUICtrlCreateIcon("m_busy.ani", -1, $CheeseX, $CheeseY) GUISetState(@SW_SHOW) While 1 If $MouseX + $XOffset >= 0 AND $MouseX + $XOffset <= 368 Then $MouseX = $MouseX + $XOffset EndIf If $MouseY + $YOffset >= 0 AND $MouseY + $YOffset <= 368 Then $MouseY = $MouseY + $YOffset EndIf If $MouseX >= 368 Then Terminate() EndIf If $MouseY >= 368 Then Terminate() EndIf If $MouseX <= 0 Then Terminate() EndIf If $MouseY <= 0 Then Terminate() EndIf $DifferenceX = $MouseX - $CheeseX $DifferenceY = $MouseY - $CheeseY If $DifferenceX >= -32 And $DifferenceX <= 32 Then If $DifferenceY >= -32 And $DifferenceY <= 32 Then Global $CheeseX = Random(0, 368, 1) Global $CheeseY = Random(0, 368, 1) Global $Score = $Score + 1 $ScoreLabel = GUICtrlCreateLabel("You're score is: " & $score, 0, 0) EndIf EndIf GUICtrlSetPos($MouseIcon, $MouseX, $MouseY) GUICtrlSetPos($CheeseIcon, $CheeseX, $CheeseY) ;Generally Sleep(1) goes here WEnd Func Right() $XOffset = 1 $YOffset = 0 EndFunc Func Left() $XOffset = -1 $YOffset = 0 EndFunc Func Up() $XOffset = 0 $YOffset = -1 EndFunc Func Down() $XOffset = 0 $YOffset = 1 EndFunc Func Terminate() GUIDelete() msgbox(0,"Steal_Da_Cheese!", "Good try! You're score was: " & $score) Exit EndFuncLlama Bot 1.0expandcollapse popup#NoTrayIcon #include <GUIConstants.au3> $LlamaBotProcess = WinGetProcess("Llama Bot - Mr.Llama" , "") ProcessSetPriority($LlamaBotProcess, 0) HotkeySet("{ESC}", "Terminate") HotKeySet("{F1}", "HideWin") HotKeySet("{F2}", "ShowWin") HotKeySet("{F3}", "Transparency") HotkeySet("{F4}", "Title") HotKeySet("{F5}", "ColorSearch") HotKeySet("{F6}", "Program") HotKeySet("{F7}", "Hideprog") HotKeySet("{F8}", "Showprog") HotKeySet("{F9}", "Say") HotKeySet("{F10}", "Warcraft3Logon") HotKeySet("{F11}", "Math") GUICreate("Llama Bot - Mr.Llama", 250, 180) GUICtrlCreateLabel("Press Escape to Exit.", 0, 0) GUICtrlCreateLabel("Press F1 to hide a window.", 0, 15) GUICtrlCreateLabel("Press F2 to show a window.", 0, 30) GUICtrlCreateLabel("Press F3 to set the transparency of a window.", 0, 45) GUICtrlCreateLabel("Press F4 to change a window's title.", 0, 60) GUICtrlCreateLabel("Press F5 to search your screen for a color.", 0, 75) GUICtrlCreateLabel("Press F6 to program something to hide.", 0, 90) GUICtrlCreateLabel("Press F7 to hide the programmed window.", 0, 105) GUICtrlCreateLabel("Press F8 to show the programmed window", 0, 120) GUICtrlCreateLabel("Press F9 to have this say something.", 0, 135) GUICtrlCreateLabel("Press F10 to have this logon to warcraft.", 0, 150) GUICtrlCreateLabel("Press F11 to have do a math problem.", 0, 165) GUISetState(@SW_SHOW) Global $fadein = 0 Do $fadein = $fadein + 1 WinSetTrans("Llama Bot - Mr.Llama","",$fadein) Until $fadein = 255 While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Func Terminate () Global $fadeout = 255 Do $fadeout = $fadeout - 1 WinSetTrans("Llama Bot - Mr.Llama", "", $fadeout) Until $fadeout = 0 Exit 0 EndFunc Func HideWin () $HideWin = Inputbox("Llama Bot - Mr.Llama", "What window would you like to hide?") WinSetState($HideWin,"",@SW_HIDE) EndFunc Func ShowWin () $ShowWin = Inputbox("Llama Bot - Mr.Llama", "What window would you like to show?") WinSetState($ShowWin, "", @SW_SHOW) EndFunc Func Transparency () $TransWindow = Inputbox("Llama Bot - Mr.Llama", "What window would you like to change the transparency of?") $TransNum = Inputbox("Llama Bot - Mr.Llama", "Select a number between 0-255 to set the transparency of the _ window you picked.") WinSetTrans($TransWindow, "", $TransNum) EndFunc Func Title () $WinName = Inputbox("Llama Bot - Mr.Llama", "What window would you like to change the title of?") $WinNewName = Inputbox("Llama Bot - Mr.Llama", "What would you like the new title to be?") WinSetTitle($WinName, "", $WinNewName) EndFunc Func ColorSearch () $Color = Inputbox("Llama Bot - Mr.Llama", "What color would you like to search for? _ The colors searchable are as follows, Red, Blue, Yellow, Purple, Green, Orange, White _ and Black. Anything not exact to those will create an error. This will take about _ ten seconds, so be patient.") If $Color = "Red" Then $Color = 0xFF0000 EndIf If $Color = "Blue" Then $Color = 0x0000FF EndIf If $Color = "Yellow" Then $Color = 0xFFFF66 EndIf If $Color = "Purple" Then $Color = 0xCC33FF EndIf If $Color = "Green" Then $Color = 0x00FF00 EndIf If $Color = "Orange" Then $Color = 0xFF6500 EndIf If $Color = "White" Then $Color = 0xFFFFFF EndIf If $Color = "Black" Then $Color = 0x000000 EndIf $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 100) If Not @error Then MouseMove($ColorCoord[0], $ColorCoord[1], 5) EndIf If @Error Then msgbox(0, "Llama Bot - Mr.Llama", "Color not found") EndIf EndFunc Func Program() Global $program = Inputbox("Llama Bot - Mr.Llama", "What would you like this to _ remember? This way makes it so you can press F7 and F8 to hide and show the program _ at any time. By the way, type in the title.") EndFunc Func Hideprog() WinSetState($program, "", @SW_HIDE) EndFunc Func Showprog() WinSetState($program, "", @SW_SHOW) EndFunc Func Say() Local $sText = Inputbox("Llama Bot - Mr.Llama", "What would you like me to say?") $TempFile = @TempDir & '\talktemp.vbs' FileWriteLine($TempFile, _ 'Dim Talk' & _ @CRLF & 'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & _ @CRLF & 'Talk.Speak "' & $sText & '"') RunWait('Wscript.exe talktemp.vbs', @TempDir) FileDelete($TempFile) EndFunc Func Warcraft3Logon() $Drivename = DriveGetLabel( "D:\" ) If $Drivename = "TheFrozenThrone" Then $Account = Inputbox("Llama Bot - Mr.Llama", "What is your account?") $Password = Inputbox("Llama Bot - Mr.Llama", "What is your password?") Run("C:\Program Files\Warcraft III\Frozen Throne.exe") WinWaitActive("Warcraft III") Sleep(7500) Send("b") Sleep(7500) MouseClickDrag("left", 335, 170, 335, 170, 5) Send($Account) Send("{TAB}") Send($Password) Send("{ENTER}") EndIf $Drivename = DriveGetLabel( "E:\" ) If $Drivename = "TheFrozenThrone" Then $Account = Inputbox("Llama Bot - Mr.Llama", "What is your account?") $Password = Inputbox("Llama Bot - Mr.Llama", "What is your password?", "", "*") Run("C:\Program Files\Warcraft III\Frozen Throne.exe") WinWaitActive("Warcraft III") Sleep(7500) Send("b") Sleep(7500) MouseClickDrag("left",335, 170, 35, 170, 5) Send($Account) Send("{TAB}") Send($Password) Send("{ENTER}") EndIf EndFunc Func Math() $firstnumber = Inputbox( "Llama Bot - Mr.Llama", "What is the first number?") $sign = Inputbox("Llama Bot - Mr.Llama", "what is the sign inbetween?") $secondnumber = Inputbox("Llama Bot - Mr.Llama", "What is the second number?") If $sign = "+" Then $answer = Number($firstnumber + $secondnumber) msgbox(0, "Llama Bot - Mr.Llama", "The answer is: " & $answer) EndIf If $sign = "-" Then $answer = Number($firstnumber - $secondnumber) msgbox(0, "Llama Bot - Mr.Llama", "The answer is: " & $answer) EndIf If $sign = "*" Then $answer = Number($firstnumber * $secondnumber) msgbox(0, "Llama Bot - Mr.Llama", "The answer is: " & $answer) EndIf If $sign = "/" Then $answer = Number($firstnumber / $secondnumber) msgbox(0, "Llama Bot - Mr.Llama", "The answer is: " & $answer) EndIf EndFuncLlama Bot 2.1expandcollapse popup#NoTrayIcon #Include<GUIConstants.au3> HotKeySet("{ENTER}", "Enter") Global $FadeIn = 0 Global $FadeOut = 255 GUICreate("Llama Bot 2.0", 500, 500) GUISetState(@SW_SHOW) Global $EditOutput = GuiCtrlCreateEdit("", 0, 0, 500, 480, $ES_AUTOVSCROLL + $ES_READONLY + $ES_MULTILINE + $WS_VSCROLL) GuiCtrlSetData($editOutput, "Welcome to Llama Bot 2.0, type help for a list of functions.") Global $EditInput = GuiCtrlCreateInput("", 0, 480, 500, 20) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Func Quit() Exit 0 EndFunc Func Enter() Global $InputAll = GUICtrlRead($EditInput) GuiCtrlSetData($editInput, ",") Global $Input = StringSplit($InputAll, " ") If $Input[1] = "Quit" Then Quit() EndIf If $Input[1] = "Help" Then GuiCtrlSetData($EditOutput, "Possible Functions are as follows: Trans, Say, Hide, Show, Quit, ChangeTitle, ColorSearch and Help" & @CRLF) EndIf If $Input[1] = "Trans" Then Trans() EndIf If $Input[1] = "Say" Then Say() EndIf If $Input[1] = "Hide" Then Hide() EndIf If $Input[1] = "Show" Then Show() EndIf If $Input[1] = "ChangeTitle" Then ChangeTitle() EndIf If $Input[1] = "ColorSearch" Then ColorSearch() EndIf EndFunc Func Trans() WinSetTrans($Input[2], "", $Input[3]) EndFunc Func Say() Local $sText = $Input[2] $TempFile = @TempDir & '\talktemp.vbs' FileWriteLine($TempFile, _ 'Dim Talk' & _ @CRLF & 'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & _ @CRLF & 'Talk.Speak "' & $sText & '"') RunWait('Wscript.exe talktemp.vbs', @TempDir) FileDelete($TempFile) EndFunc Func Hide() WinSetState($Input[2], "", @SW_HIDE) EndFunc Func Show() WinSetState($Input[2], "", @SW_SHOW) EndFunc Func ChangeTitle() WinSetTitle($Input[2], "", $Input[3]) EndFunc Func ColorSearch() Global $Color = $Input[2] If $Color = "Red" Then $Color = 0xFF0000 EndIf If $Color = "Blue" Then $Color = 0x0000FF EndIf If $Color = "Yellow" Then $Color = 0xFFFF66 EndIf If $Color = "Purple" Then $Color = 0xCC33FF EndIf If $Color = "Green" Then $Color = 0x00FF00 EndIf If $Color = "Orange" Then $Color = 0xFF6500 EndIf If $Color = "White" Then $Color = 0xFFFFFF EndIf If $Color = "Black" Then $Color = 0x000000 EndIf $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 85) If Not @error Then MouseMove($ColorCoord[0], $ColorCoord[1], 5) EndIf If @Error Then msgbox(0, "Llama Bot 2.1", "Color not found") EndIf EndFuncLlama Explorer(requires cwebpage.dll)expandcollapse popup#NoTrayIcon #Include<GUIConstants.au3> $MainGUI = GUICreate("Llama Explorer", @DesktopWidth, @DesktopHeight, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_OVERLAPPEDWINDOW + $WS_MAXIMIZE) $back = GUICtrlCreateButton("Back", 10, 20, 40, 30, $BS_BITMAP) $forward = GUICtrlCreateButton("Forward", 55, 20, 40, 30, $BS_BITMAP) $refresh = GUICtrlCreateButton("Refresh", 100, 20, 40, 30, $BS_BITMAP) $GO = GUICtrlCreateButton("GO", 810, 20, 50, 30, $BS_BITMAP) $Combo_5 = GUICtrlCreateCombo("llamauniverse.tk", 150, 25, 640, 21) $Date_8 = GUICtrlCreateDate("Date7", 20, 670, 200, 20) GUICtrlSetImage ( $back, "images\back.bmp") GUICtrlSetImage ( $Forward, "images\forward.bmp") GUICtrlSetImage ( $refresh, "images\refresh.bmp") GUICtrlSetImage ( $GO, "images\go.bmp") GUISetState() $internetgui = GUICreate("", 1000, 600, 10, 60, $WS_CHILD + $WS_BORDER, "", $MainGUI) GUISetState() ;DLL;;;;;;;;;;;;;;; $dll = DllOpen("cwebpage.dll") DllCall($dll, "long", "EmbedBrowserObject", "hwnd", $internetgui) DllCall($dll, "long", "DisplayHTMLPage", "hwnd", $internetgui, "str", "llamauniverse.tk") ;Loop;;;;;;;;;;;;;; While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GO DllCall($dll, "long", "DisplayHTMLPage", "hwnd", $internetgui, "str", GUICtrlRead($Combo_5)) Case $msg = $back DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 0) Case $msg = $forward DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 1) Case $msg = $refresh DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 4) EndSelect WEndMachine Gun Click#NoTrayIcon HotKeySet("{ESC}", "Escape") HotKeySet("{F8}", "Click") HotKeySet("{F9}", "Stop") Global $Click=0 ToolTip("Machine Gun Click Running", 0, 0) msgbox(0,"Machine Gun Click", "Press ESC to escape, press F8 to click like a machine _ gun, press F9 to stop clicking.") While 1 WEnd Func Escape() Tooltip("") Exit EndFunc Func Click() Global $Click=1 While $Click=1 MouseClick("Left") WEnd EndFunc Func Stop() Global $Click=0 EndFuncAutomatorexpandcollapse popup#NoTrayIcon #Include<GUIConstants.au3> #include <Date.au3> Global $Paused Global $Time = @HOUR &":" & @MIN & ":" & @SEC HotKeySet("{ESC}", "Quit") HotKeySet("{F1}", "Pause") HotKeySet("{F2}", "Hide") HotKeySet("{F3}", "Show") GUICreate("Automator - Mr.Llama", 350, 350) ;;;;;;;; GUICtrlCreateGroup("Lauch Options", 0, 0 , 175 , 325) $CheckWarcraft = GUICtrlCreateCheckBox("Warcraft III", 10, 20) $CheckWarcraftTFT = GUICtrlCreateCheckBox("Warcraft III TFT", 10, 40) $CheckIE = GUICtrlCreateCheckBox("Internet Explorer", 10, 60) $CheckAdAware = GUICtrlCreateCheckBox("Ad-Aware SE Personal", 10, 80) $CheckSpybot = GUICtrlCreateCheckBox("Spybot Search and Destroy", 10, 100) $CheckMAA = GUICtrlCreateCheckBox("Microsoft Anti Spyware Beta", 10, 120) $CheckMcAfee = GUICtrlCreateCheckBox("McAfee Virus Scan", 10, 140) $ButtonLaunch = GUICtrlCreateButton("Launch", 10, 300) ;;;;;;;;; GUICtrlCreateGroup("Random Options", 195, 0, 150, 325) $ButtonInstructions = GUICtrlCreateButton("Instructions", 200, 25) $ButtonExit = GUICtrlCreateButton("Exit", 200, 50) $ButtonAbout = GUICtrlCreateButton("About", 200, 75) ;;;;;;;;; GUICtrlCreateDate("Date", 0, 326 , 350 , 25) Global $TimeDisplay = GUICtrlCreateInput($Time, 200, 306 , 100 , 20,$ES_READONLY) ;;;;;;;;; GUISetState(@SW_SHOW) While 1 ;;;;;;;;; $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $ButtonExit ExitLoop Case $msg = $ButtonAbout msgbox(0, "About", "Automator was created using AutoIt v. 3.1.1.21 Beta, created for miscellaneous and random purposes, and its creator is Mr. Llama (Kevin). If you would like to visit the site or get more information goto --> http://www.llamauniverse.tk <--") Case $msg = $ButtonInstructions msgbox(0, "Instructions", "Check the boxes for the programs you would like to run. Press ESC to Exit, press F1 to pause, press F2 to hide the window and press F3 to show the window.") Case $msg = $ButtonLaunch Select ;;;;;;;;; Case GUICtrlRead($CheckWarcraft) = $GUI_Checked Run("C:\Program Files\Warcraft III\Warcraft III.exe") EndSelect Select Case GUICtrlRead($CheckWarcraftTFT) = $GUI_Checked Run("C:\Program Files\Warcraft III\Frozen Throne.exe") EndSelect Select Case GUICtrlRead($CheckIE) = $GUI_Checked Run("C:\Program Files\Internet Explorer\iExplore.exe") EndSelect Select Case GUICtrlRead($CheckAdAware) = $GUI_Checked Run("C:\Program Files\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") EndSelect Select Case GUICtrlRead($CheckSpybot) = $GUI_Checked Run("C:\Program Files\Spybot - Search & Destroy\SpyBotSD.exe") EndSelect Select Case GUICtrlRead($CheckMAA) = $GUI_Checked Run("C:\Program Files\Microsoft AntiSpyware\GIANTAntiSpywareMain") EndSelect Select Case GUICtrlRead($CheckMcAfee) = $GUI_Checked Run("C:\Program Files\McAfee.com\Shared\mghtml.exe") EndSelect EndSelect WEnd ;;;;;; Func Quit() Exit 0 EndFunc Func Pause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Hide() GUISetState(@SW_HIDE) EndFunc Func Show() GUISetState(@SW_SHOW) EndFuncGet Outta Here; ---------------------------------------------------------------------------- ; ; AutoIt Version: 3.1.0 ; Author:Mr.Llama <kev10191@msn.com> ; ; Script Function: ; Let's you know if an AutoIt script is running. ; ; ---------------------------------------------------------------------------- #NoTrayIcon Tooltip("Get Outta Here is running", 0, 0) HotkeySet("{ESC}", "ExitOut") While 1 If ProcessExists("AutoIt3.exe") Then SoundPlay("C:/WINDOWS/Media/Windows Xp Battery Critical.wav",1) Tooltip("") Tooltip("AutoIt Script Running!", 0, 0) MouseMove(900,750,2) Sleep(1000) EndIf WEnd Func ExitOut () Exit 0 EndFuncRemote Accessexpandcollapse popup#NoTrayIcon HotKeySet("{ESC}", "Escape") $AccountName = Inputbox("Account", "What is your account name?") $Password = Inputbox("Password", "What is your password?") Run("C:\Program Files\AIM\aim.exe") Sleep(5000) Send($AccountName) Send("{TAB}") Send($Password) Send("{ENTER}") While 1 Global $txt = WinGetText("" , "") Global $Win = WinGetTitle("", "579") If $txt = "579 Run WarcraftIII" Then WinKill($Win, $txt) RunWarcraft() EndIf If $txt = "579 Run TFT" Then WinKill($Win, $txt) RunTFT() EndIf If $txt = "579 Virus Scan" Then WinKill($Win, $txt) VirusScan() EndIf If $txt = "579 Exit" Then WinKill($Win, $txt) Escape() EndIf WEnd Func RunWarcraft() Run("C:\Program Files\Warcraft III\Warcraft III.exe") EndFunc Func RunTFT() Run("C:\Program Files\Warcraft III\Frozen Throne.exe") EndFunc Func VirusScan() Run("C:\Program Files\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") WinWaitActive("Ad-Aware SE") Sleep(5000) WinMove("Ad-Aware SE", "", 0, 0) MouseClick("left", 80, 160) MouseClick("left", 275, 280) MouseClick("left", 600, 380) EndFunc Func Escape() Processclose("aim.exe") Exit 0 EndFuncSo that's the majority of my scripts.I hope this is enough for ya!ALSO: Feel free to ask questions and please post / respond! Edited October 14, 2005 by Mr.Llama Link to comment Share on other sites More sharing options...
peethebee Posted October 16, 2005 Share Posted October 16, 2005 Hi! Thank you very much for sharing! peethebe p.s. sounds like a p2p-message *g* vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGerman Forums: http://www.autoit.deGerman Help File: http://autoit.de/hilfe vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 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