Sign in to follow this  
Followers 0
Mr.Llama

Woot! I found my scripts!

2 posts in this topic

#1 ·  Posted (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.

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

Llama Bot 1.0

#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
EndFunc

Llama Bot 2.1

#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
EndFunc

Llama Explorer(requires cwebpage.dll)

#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        
WEnd

Machine 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
EndFunc

Automator

#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)
EndFunc

Get 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
EndFunc

Remote Access

#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
EndFunc

So 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 by Mr.Llama

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0