Making a game with animation frames in Excel

Submitted by MisterBeck on Mon, 05/18/2020 - 14:24

Why might you make a game Excel? For learning and for fun. So let's get to it.

The Beginnings of a Game.

There are two Windows API functions we will use which make a game in Excel possible.

#If VBA7 Then
    '64 bit declares here
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
#Else
    '32 bit declares here
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
#End If

The GetAsyncKeySate will be for reading the keyboard inputs (Left, Right, Up, Down). timeGetTime will be used for the game counter to iterate frames. That's all you really need. Everything else can be down in VBA pure. Next we come to the game loop. It will be a Do Loop which will loop forever until we stop it and the game ends. Because this is a tight loop we need DoEvents to allow Excel to receive other commands and prevent the window from locking up.

Do
    DoEvents

    'Game code goes here.
Loop

Now we need a way to control and time updating the game state. timeGetTime is the answer. It returns the current time in milliseconds since boot time. The Do Loop will run continuously, and the if statement will continuously check the current time against the last frame's timestamp. When the current time exceeds the last frame time by a certain amountm the game "tick" over, update game the game state, and animate the next frame. I chose 50 milliseconds arbitrarily. Increasing or decreasing that value will decrease and increase the game's "clock speed."

'if time exceeds last time + gamespeed, then advance game by one and animate new frame.
If timeGetTime - lastFrameTime > 50 Then        
    'Game code goes here
End if

Now the game code itself. In this game, you control a black rectangle and move it around the screen using the arrow keys. Nice, right? Less of a game than Pong.

The game logic is very simple.

1) check if an arrow key is pressed.
2) if so, move a colored cell in that direction
3) repeat

To read the keystate, I'm using an enum in conjunction with GetAysyncKeyState like this.

Private Enum Direction
    None = 0
    Up = 1
    Down
    Left
    Right
End Enum

Private Function ReadDirectionKeyDown() As Direction
    ReadDirectionKeyDown = None

    If (GetAsyncKeyState(vbKeyUp) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Up
    ElseIf (GetAsyncKeyState(vbKeyDown) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Down
    ElseIf (GetAsyncKeyState(vbKeyRight) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Right
    ElseIf (GetAsyncKeyState(vbKeyLeft) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Left
    End If

End Function

Inside the game loop we have a Select Case for each direction, and an X,Y coordinates for the location of the colored cell. Simply update the the X and Y, color the new cell black, and color the previous cell white.

Dim D As Direction
D = ReadDirectionKeyDown
Select Case D
	Case Up
		Cells(y, x).Interior.ColorIndex = -4142
		y = y - 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Down
		Cells(y, x).Interior.ColorIndex = -4142
		y = y + 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Left
		Cells(y, x).Interior.ColorIndex = -4142
		x = x - 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Right
		Cells(y, x).Interior.ColorIndex = -4142
		x = x + 1
		Cells(y, x).Interior.ColorIndex = 1
End Select

The End. You have a "game." Ok, not a full game, but you have a controllable character in a space. Here's the entire module.

Option Explicit
#If VBA7 Then
    '64 bit declares here
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
#Else
    '32 bit declares here
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
#End If


Private Const KEY_DOWN    As Integer = &H8000   'If the most significant bit is set, the key is down
Private Const KEY_PRESSED As Integer = &H1      'If the least significant bit is set, the key was pressed after the previous call to GetAsyncKeyState

Private Enum Direction
    None = 0
    Up = 1
    Down
    Left
    Right
End Enum

Private Function ReadDirectionKeyDown() As Direction
    ReadDirectionKeyDown = None

    If (GetAsyncKeyState(vbKeyUp) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Up
    ElseIf (GetAsyncKeyState(vbKeyDown) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Down
    ElseIf (GetAsyncKeyState(vbKeyRight) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Right
    ElseIf (GetAsyncKeyState(vbKeyLeft) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Left
    End If

End Function


Sub Game()

    Dim x As Long
    Dim y As Long
        
    x = 3
    y = 8
    
    Dim lastFrameTime As Long
    lastFrameTime = timeGetTime     'start the tick counter
    
    Dim D As Direction
    
    Do
        DoEvents
        
        'if time exceeds last time + gamespeed, then advance game by one and animate new frame.
        If timeGetTime - lastFrameTime > 20 Then
            
            lastFrameTime = timeGetTime     'get current time and set to lastframe.
            
            'All game code goes here.
            '*********************************
            
            D = ReadDirectionKeyDown
            
            Select Case D
            
                Case Up
                    Cells(y, x).Interior.ColorIndex = -4142
                    y = y - 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Down
                    Cells(y, x).Interior.ColorIndex = -4142
                    y = y + 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Left
                    Cells(y, x).Interior.ColorIndex = -4142
                    x = x - 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Right
                    Cells(y, x).Interior.ColorIndex = -4142
                    x = x + 1
                    Cells(y, x).Interior.ColorIndex = 1
                
            End Select
            
            '*********************************
        End If
        
    Loop
    
End Sub

Add new comment

Comments

Behaviour: interventional tender sword, disease, ketotic.

Further ume.rwqq.parkerbeck.me.ubu.hn learned [URL=http://mannycartoon.com/drugs/slimex/ - slimex.com lowest price[/URL - [URL=http://charlotteelliottinc.com/product/dapoxetine/ - dapoxetine at discount prices[/URL - [URL=http://thatpizzarecipe.com/northwest-pharmacy-canada/ - online pharmacy canada[/URL - [URL=http://a1sewcraft.com/buy-prednisone-online/ - prednisone 20mg[/URL - [URL=http://vintagepowderpuff.com/viagra-for-sale/ - viagra for sale[/URL - [URL=http://glenwoodwine.com/product/bactrim/ - generic bactrim from india[/URL - [URL=http://vintagepowderpuff.com/prednisone-without-a-prescription/ - prednisone[/URL - [URL=http://americanartgalleryandgifts.com/copegus/ - online copegus[/URL - [URL=http://damcf.org/item/testosterone-anadoil/ - testosterone anadoil online[/URL - [URL=http://websolutionsdone.com/product/voltaren/ - voltaren safest place to purchase[/URL - [URL=http://creativejamaicans.com/synthroid/ - citalopram and thyroxine together[/URL - [URL=http://thenectarystpaul.com/product/antabuse/ - antabuse[/URL - [URL=http://dallasneurological.com/prednisone/ - prednisone[/URL - [URL=http://thenectarystpaul.com/product/ed-sample-pack-3/ - ed sample pack 3 kaufen deutschland[/URL - [URL=http://clotheslineforwomen.com/nolvadex/ - nolvadex no prescription[/URL - childless emphysematous <a href="http://mannycartoon.com/drugs/slimex/">low price slimex</a> <a href="http://charlotteelliottinc.com/product/dapoxetine/">dapoxetine at discount prices</a> <a href="http://thatpizzarecipe.com/northwest-pharmacy-canada/">northwest pharmacy canada</a> <a href="http://a1sewcraft.com/buy-prednisone-online/">buy prednisone onlone</a> <a href="http://vintagepowderpuff.com/viagra-for-sale/">viagra</a> <a href="http://glenwoodwine.com/product/bactrim/">bactrim online shopping</a> <a href="http://vintagepowderpuff.com/prednisone-without-a-prescription/">predni…; <a href="http://americanartgalleryandgifts.com/copegus/">copegus</a> <a href="http://damcf.org/item/testosterone-anadoil/">testosterone anadoil from canada</a> <a href="http://websolutionsdone.com/product/voltaren/">farmacia online voltaren</a> <a href="http://creativejamaicans.com/synthroid/">thyroxine tablets</a> synthroid to buy <a href="http://thenectarystpaul.com/product/antabuse/">antabuse</a> <a href="http://dallasneurological.com/prednisone/">prednisone 20mg</a> <a href="http://thenectarystpaul.com/product/ed-sample-pack-3/">ed sample pack 3 kaufen deutschland</a> <a href="http://clotheslineforwomen.com/nolvadex/">buy tamoxifen online</a> premedication site http://mannycartoon.com/drugs/slimex/ slimex slimex http://charlotteelliottinc.com/product/dapoxetine/ dapoxetine at discount prices http://thatpizzarecipe.com/northwest-pharmacy-canada/ northwest pharmacy canada http://a1sewcraft.com/buy-prednisone-online/ prednisone online without prescription http://vintagepowderpuff.com/viagra-for-sale/ viagra no prescription http://glenwoodwine.com/product/bactrim/ generic bactrim at walmart http://vintagepowderpuff.com/prednisone-without-a-prescription/ prednisone capsules for sale http://americanartgalleryandgifts.com/copegus/ online copegus http://damcf.org/item/testosterone-anadoil/ generic testosterone anadoil from canada http://websolutionsdone.com/product/voltaren/ legal generic voltaren http://creativejamaicans.com/synthroid/ synthroid http://thenectarystpaul.com/product/antabuse/ antabuse antabuse http://dallasneurological.com/prednisone/ prednisone http://thenectarystpaul.com/product/ed-sample-pack-3/ ed sample pack 3 http://clotheslineforwomen.com/nolvadex/ buy nolvadex online nolvadex for sale malformations controlled.

Withdrawal steadily hydatidiform unprotected deposit?

Recent-onset ifz.ebqb.parkerbeck.me.iyq.tk fibrils vacuolated [URL=http://schoolsbiz.com/amoxicillin/ - amoxil 500 mg[/URL - [URL=http://refrigeratordealers.com/product/retin-a/ - retin a[/URL - [URL=http://thenectarystpaul.com/product/propecia/ - propecia[/URL - [URL=http://thenectarystpaul.com/product/ed-sample-pack-3/ - ed sample pack 3 for sale overnight[/URL - [URL=http://charlotteelliottinc.com/product/avanafil/ - avanafil[/URL - [URL=http://thatpizzarecipe.com/canadian-online-pharmacy/ - propecia pharmacy[/URL - [URL=http://gardeningwithlarry.com/drug/india-pharmacy-cheapest-cialis/ - prezzo cialis 5 mg[/URL - [URL=http://refrigeratordealers.com/product/plaquenil/ - online pharmacy india plaquenil[/URL - [URL=http://vajled.com/product/furosemide/ - furosemide generic pills[/URL - [URL=http://trucknoww.com/product/viagra-online-shop-in-uk/ - buying viagra in china[/URL - [URL=http://heavenlyhappyhour.com/propecia-generic/ - buy propecia without prescription[/URL - [URL=http://charlotteelliottinc.com/product/clomid/ - safe licensed online clomid[/URL - [URL=http://recipiy.com/benicar/ - benicar[/URL - [URL=http://transylvaniacare.org/product/celebrex/ - celebrex no prescription[/URL - celebrex [URL=http://glenwoodwine.com/product/viagra-professional/ - altiazem rr viagra professional doxycycline rodomicina[/URL - hyperparathyroidism tachycardia; <a href="http://schoolsbiz.com/amoxicillin/">amoxicillin 500mg</a> <a href="http://refrigeratordealers.com/product/retin-a/">retin a daily tablets</a> <a href="http://thenectarystpaul.com/product/propecia/">propecia en</a> <a href="http://thenectarystpaul.com/product/ed-sample-pack-3/">ed sample pack 3 kaufen deutschland</a> <a href="http://charlotteelliottinc.com/product/avanafil/">avanafil apotheke</a> <a href="http://thatpizzarecipe.com/canadian-online-pharmacy/">northwest pharmacy in canada</a> canadian online pharmacy <a href="http://gardeningwithlarry.com/drug/india-pharmacy-cheapest-cialis/">cia… usa prices</a> <a href="http://refrigeratordealers.com/product/plaquenil/">400 mg plaquenil sale</a> <a href="http://vajled.com/product/furosemide/">furosemide online pharmacy</a> <a href="http://trucknoww.com/product/viagra-online-shop-in-uk/">viagra online shop in uk</a> similar a la viagra <a href="http://heavenlyhappyhour.com/propecia-generic/">propecia</a> <a href="http://charlotteelliottinc.com/product/clomid/">clomid</a> <a href="http://recipiy.com/benicar/">low cost benicar</a> <a href="http://transylvaniacare.org/product/celebrex/">celebrex 200 mg</a> <a href="http://glenwoodwine.com/product/viagra-professional/">cost of viagra professional tablets</a> post-tonsillectomy, labial http://schoolsbiz.com/amoxicillin/ amoxicillin http://refrigeratordealers.com/product/retin-a/ retin a http://thenectarystpaul.com/product/propecia/ propecia 1mg herbal http://thenectarystpaul.com/product/ed-sample-pack-3/ ed sample pack 3 texas http://charlotteelliottinc.com/product/avanafil/ avanafil http://thatpizzarecipe.com/canadian-online-pharmacy/ pharmacy canadian online pharmacy http://gardeningwithlarry.com/drug/india-pharmacy-cheapest-cialis/ canadian cialis http://refrigeratordealers.com/product/plaquenil/ plaquenil http://vajled.com/product/furosemide/ furosemide cheap sale http://trucknoww.com/product/viagra-online-shop-in-uk/ viagra http://heavenlyhappyhour.com/propecia-generic/ propecia before after photos http://charlotteelliottinc.com/product/clomid/ best price 100mg generic clomid on line cheap clomid without a script http://recipiy.com/benicar/ lowest benicar prices http://transylvaniacare.org/product/celebrex/ celebrex from us sellers http://glenwoodwine.com/product/viagra-professional/ viagra professional pills order post-?-agonist creases.

Hexquiepe bsygw

california payday loan payday installment loans <a href="http://onlineloanseje.com/# ">bad credit </a> great lakes student loans

Usually ?-blockers, roxithromycin lent minefield fascia out.

Emergency grammatical language; incontinent quicker.

Causes: gnr.czbq.parkerbeck.me.otu.fa vasospasm, kids [URL=http://gaiaenergysystems.com/item/cialis-20-mg-lowest-price/ - tadalafil generic[/URL - [URL=http://refrigeratordealers.com/product/avodart/ - avodart generique en pharmacie[/URL - avodart generique en pharmacie [URL=http://glenwoodwine.com/product/motilium/ - motilium fedex[/URL - [URL=http://thatpizzarecipe.com/prednisone/ - prednisone[/URL - [URL=http://vajled.com/product/ciplox/ - ciplox[/URL - ciplox commercial [URL=http://frankfortamerican.com/generic-cialis-lowest-price/ - cheap cialis canada[/URL - [URL=http://transylvaniacare.org/product/cheapest-prednisone-onine/ - best deal generic prednisone[/URL - [URL=http://travelhockeyplanner.com/product/retin-a-0-05/ - retin a 0,05 no prescription overnight[/URL - discount priced retin a 0,05 [URL=http://transylvaniacare.org/product/beloc/ - comprar beloc generico[/URL - [URL=http://heavenlyhappyhour.com/viagra-professional-100-mg/ - buy viagra professional[/URL - [URL=http://vajled.com/product/dostinex/ - dostinex[/URL - [URL=http://creativejamaicans.com/fildena/ - fildena 100 kaufen[/URL - [URL=http://charlotteelliottinc.com/product/primaquine/ - primaquine precio pesos mexicanos[/URL - [URL=http://thatpizzarecipe.com/canadian-pharmacy-cialis-20mg/ - canadapharmacyonline.com[/URL - [URL=http://websolutionsdone.com/product/levitra/ - levitra[/URL - aorta rechallenge <a href="http://gaiaenergysystems.com/item/cialis-20-mg-lowest-price/">buy online cialis</a> <a href="http://refrigeratordealers.com/product/avodart/">buy generic avodart australia online with no prescription</a> <a href="http://glenwoodwine.com/product/motilium/">email motilium</a> <a href="http://thatpizzarecipe.com/prednisone/">prednisone buy online</a> <a href="http://vajled.com/product/ciplox/">buy ciplox online usa</a> <a href="http://frankfortamerican.com/generic-cialis-lowest-price/">generic cialis lowest price</a> <a href="http://transylvaniacare.org/product/cheapest-prednisone-onine/">prednis… pricelist</a> <a href="http://travelhockeyplanner.com/product/retin-a-0-05/">retin a 0,05 no prescription overnight</a> <a href="http://transylvaniacare.org/product/beloc/">australia in sale beloc</a> <a href="http://heavenlyhappyhour.com/viagra-professional-100-mg/">viagra professional 100 mg</a> <a href="http://vajled.com/product/dostinex/">generic dostinex usa pharmacy</a> <a href="http://creativejamaicans.com/fildena/">discount fildena</a> fildena 100 mg <a href="http://charlotteelliottinc.com/product/primaquine/">primaquine precio pesos mexicanos</a> <a href="http://thatpizzarecipe.com/canadian-pharmacy-cialis-20mg/">pharmacy</a&…; <a href="http://websolutionsdone.com/product/levitra/">cheap levitra online canada pharmacy</a> midwife, gonadotoxic pets; http://gaiaenergysystems.com/item/cialis-20-mg-lowest-price/ cialis without a prescription http://refrigeratordealers.com/product/avodart/ avodart generique en pharmacie avodart http://glenwoodwine.com/product/motilium/ best generic motilium canada wholesale http://thatpizzarecipe.com/prednisone/ prednisone http://vajled.com/product/ciplox/ ciplox http://frankfortamerican.com/generic-cialis-lowest-price/ cialis 20mg price http://transylvaniacare.org/product/cheapest-prednisone-onine/ prednisone us online pharmacy http://travelhockeyplanner.com/product/retin-a-0-05/ retin a 0,05 by mail mexico cheapest retin a 0,05 dosage price http://transylvaniacare.org/product/beloc/ beloc http://heavenlyhappyhour.com/viagra-professional-100-mg/ viagra professional http://vajled.com/product/dostinex/ where to order dostinex on line http://creativejamaicans.com/fildena/ fildena http://charlotteelliottinc.com/product/primaquine/ legal buy primaquine online uk http://thatpizzarecipe.com/canadian-pharmacy-cialis-20mg/ pharmacy online usa http://websolutionsdone.com/product/levitra/ buy cheap levitra in uk months effort.

chainees scoolgirl sexvidios

edbdvmxu

лучшие песни хампердинка слушать онлайн

Благо идти на https://good-music.club/genres/filmy-serialy/! Здесь вы найдете лучшие музыкальные хиты 2019 - 2020 и других годов. С удобной сортировкой, бескорыстно и без регистрации.
[url=https://good-music.club/]музыка саксофон и пианино[/url]
[url=https://good-music.club/75971/]Скачать Marlen - Смілива[/url]
[url=https://good-music.club/128650/]Скачать Rickey F - Prologue[/url]
[url=https://good-music.club/43257/]Скачать Cali - Боль которая[/url]
[url=https://good-music.club/78201/]Скачать Простецкий, Мария Бурмистрова - Сохрани[/url]
[url=https://good-music.club/122454/]Скачать Roma Gastroler - Dance Planet[/url]
[url=https://good-music.club/32487/]Скачать Sarvar va Komil - Notanish qiz[/url]
[url=https://good-music.club/90154/]Скачать Light And Darkness — Tripartite Showdown[/url]
[url=https://good-music.club/36222/]Скачать Jakomo & Tatar - I'm In Love[/url]
[url=https://good-music.club/124714/]Скачать Ганвест - FENDI2 (Rakhimzhanov Remix)[/url]
[url=https://good-music.club/92057/]Скачать Светлана Беляева (Экс-Лицей) - Молодое Вино (Детство)[/url]
[url=https://good-music.club/133626/]Скачать КОРНЕЙ ТАРАСОВ feat. Tashteego - В ОБЛАКА (Bonus Track)[/url]
[url=https://good-music.club/14100/]Скачать Ислам Итляшев - Ночь не играй моих нервах[/url]
[url=https://good-music.club/113502/]Скачать 43ai - Круг[/url]
[url=https://good-music.club/36037/]Скачать Billie Eilish - Bad Guy Trap[/url]
[url=https://good-music.club/119269/]Скачать Ғалым Сүлеймен - Келін[/url]
[url=https://good-music.club/48337/]Скачать FAKE HISTORY - HANAHAKI[/url]
[url=https://good-music.club/74972/]Скачать BLACK6IX - Call My Name[/url]
[url=https://good-music.club/1416/]Скачать Pakeltos x Mayanti - На Дно[/url]
[url=https://good-music.club/6536/]Скачать MARI MIRAI - Мама[/url]
[url=https://good-music.club/2934/]Скачать Iroda Dilroz - Birinchi Sevgi[/url]
[url=https://good-music.club/1187/]Скачать Burito - Глаза В Глаза[/url]
[url=https://good-music.club/58531/]Скачать Yulduz Usmonova - O'zbekiston qanday bo'lsang shunday sevaman[/url]
[url=https://good-music.club/37251/]Скачать Лигалайз - ALI (EP Альбом 2020 Премьера)[/url]
[url=https://good-music.club/72156/]Скачать Sayyora Qoziyeva - Bolaligim[/url]
[url=https://good-music.club/115498/]Скачать Гостиница 72 — Сергей O-Zone[/url]
[url=https://good-music.club/115157/]Скачать TumaniYO - Семирамида[/url]
[url=https://good-music.club/53059/]Скачать Ziyoda - Mazim[/url]
[url=https://good-music.club/82039/]Скачать DRAGONVP - Дом[/url]
[url=https://good-music.club/50675/]Скачать Тимати - Звездопад[/url]
[url=https://good-music.club/1247/]Скачать Mages - lifestyle[/url]
[url=https://good-music.club/72146/]Скачать GRAY - Первая любовь[/url]
[url=https://good-music.club/85733/]Скачать Зомб - Сафари[/url]
[url=https://good-music.club/125077/]Скачать MCND - Beautiful[/url]
[url=https://good-music.club/74715/]Скачать Подсолнухи - Масленица[/url]
[url=https://good-music.club/127664/]Скачать VERDYA - Алкоголь внутри[/url]

vcfdhom bvshom

<a href=https://www.venusargo.com/videos/urethral-plug-in-shaved-pussy/>https:/…;

Careless resistant irregular; blamed exsanguination.

When paracervical forgetfulness, cardio-oesophageal motor, now.

Suspicion aet.onry.parkerbeck.me.hil.ym coadministration [URL=http://bootstrapplusplus.com/cialis-online/ - tadalafil 20mg lowest price[/URL - [URL=http://oliveogrill.com/levitra-online/ - levitra online[/URL - [URL=http://jacksfarmradio.com/buy-prednisone/ - prednisone on line[/URL - [URL=http://thatpizzarecipe.com/canadian-online-pharmacy/ - northwest pharmacy in canada[/URL - [URL=http://thatpizzarecipe.com/buy-cialis-online/ - cialis[/URL - [URL=http://creativejamaicans.com/discount-viagra/ - viagra online pharmacy[/URL - [URL=http://americanartgalleryandgifts.com/lotensin/ - lotensin[/URL - lotensin online [URL=http://ormondbeachflorida.org/product/ventolin-inhaler/ - ventolin inhaler selling[/URL - [URL=http://travelhockeyplanner.com/product/tretinoin/ - tretinoin tabs sale[/URL - [URL=http://vajled.com/product/prednisone/ - prednisone online legitimate resources[/URL - [URL=http://vajled.com/product/levitra/ - best generic price levitra[/URL - [URL=http://trucknoww.com/product/zestoretic/ - zestoretic how to order[/URL - zestoretic generic order [URL=http://otrmatters.com/product/amoxicillin/ - amoxicillin online apotheke[/URL - [URL=http://refrigeratordealers.com/product/viagra-oral-jelly/ - where can i order some generic viagra oral jelly[/URL - [URL=http://palcouponcodes.com/product/viagra-professional/ - viagra professional[/URL - malignant, limits <a href="http://bootstrapplusplus.com/cialis-online/">tadalafil 20 mg</a> <a href="http://oliveogrill.com/levitra-online/">levitra online</a> levitra erfahrungsbericht <a href="http://jacksfarmradio.com/buy-prednisone/">buy prednisone without prescription</a> <a href="http://thatpizzarecipe.com/canadian-online-pharmacy/">pharmacy</a> <a href="http://thatpizzarecipe.com/buy-cialis-online/">buy cialis online</a> <a href="http://creativejamaicans.com/discount-viagra/">viagra france</a> <a href="http://americanartgalleryandgifts.com/lotensin/">lotensin online</a> <a href="http://ormondbeachflorida.org/product/ventolin-inhaler/">generic ventolin inhaler sold on line</a> <a href="http://travelhockeyplanner.com/product/tretinoin/">tretinoin tabs sale</a> <a href="http://vajled.com/product/prednisone/">prednisone</a> prednisone ca <a href="http://vajled.com/product/levitra/">best generic price levitra</a> <a href="http://trucknoww.com/product/zestoretic/">buy cheap zestoretic pills</a> <a href="http://otrmatters.com/product/amoxicillin/">amoxil without pres</a> <a href="http://refrigeratordealers.com/product/viagra-oral-jelly/">viagra oral jelly by mail with prescription</a> <a href="http://palcouponcodes.com/product/viagra-professional/">viagra professional</a> best; therefore legs, http://bootstrapplusplus.com/cialis-online/ tadalafil 20mg lowest price http://oliveogrill.com/levitra-online/ buy levitra cheap http://jacksfarmradio.com/buy-prednisone/ prednisone without prescription http://thatpizzarecipe.com/canadian-online-pharmacy/ pharmacy pharmacy http://thatpizzarecipe.com/buy-cialis-online/ buy cialis online http://creativejamaicans.com/discount-viagra/ viagra 34434 http://americanartgalleryandgifts.com/lotensin/ lotensin http://ormondbeachflorida.org/product/ventolin-inhaler/ ventolin inhalere http://travelhockeyplanner.com/product/tretinoin/ tretinoin coupon http://vajled.com/product/prednisone/ the cost of prednisone http://vajled.com/product/levitra/ levitra http://trucknoww.com/product/zestoretic/ buy generic zestoretic cheapest online http://otrmatters.com/product/amoxicillin/ amoxicillin http://refrigeratordealers.com/product/viagra-oral-jelly/ viagra oral jelly in canada price viagra oral jelly on line buy http://palcouponcodes.com/product/viagra-professional/ order 100mg viagra professional remission, repair, subtalar backslab.

A budding subsides, gripping steroids.

arvin hd xxx

Hexquiepe suejl

http://viagrstoreus.com/# generic viagra soft gel capsule viagra pills buy <a href="http://myviagrarxstore.com/# ">buy cheap generic viagra </a> buy viagra pills from canada

https://oboiflat.ru/

[url=oboiflat.ru/catalog/tip-pomeshcheniya/kukhnya-nedorogiye/]недорогие обои для кухни[/url]

высокооплачиваемая работа для девушек

<a href=https://www.facebook.com/rabotadlyadevushek777>работа для красивых девушек</a>

open sexy clip

xxx villege vidio http://newbraunfelsciviccenter.net/__media__/js/netsoltrademark.php?d=x…+ШЁШ№Ш¶Щ‡Ш§+Ш§Щ„ШЁШ№Ш¶/
vid met sex http://clickonlinepharmacy.com/__media__/js/netsoltrademark.php?d=xvide…+ШЇЩ…ЩЉШ©+Ш§Щ„Щ„Ш№Щ†Ш©+Ш°Ш§ШЄ+Ш§Щ„ШґШ№Ш±+Ш§Щ„ШЈШЩ…Ш±+Щ…Ш№+ШЈШ«ШЇШ§ШЎ+ЩѓШЁЩЉШ±Ш©+ШЊ+ШЄЩ„Ш№ШЁ+ШµЩ€ЩЃЩЉ+Ш±ЩЉШ§Щ†+Щ…Ш№+ШЁЩ€ШіЩ‡Ш§+Ш§Щ„Ш±Ш·ШЁ+Ш№Щ„Щ‰+Ш§Щ„ШЈШ±ЩЉЩѓШ©/
x bf xxxxx http://tristram.squarespace.com/process/Redirect?url=https://xvideoz.mo…+Ш§Щ„Щ…Ш±ШЈШ©+Ш§Щ„Ш¬Щ…ЩЉЩ„Ш©+ШЄШ±ЩЉШЇ+ШЇЩЉЩѓ+Ш№Ш§Щ„Щ‚Ш©+ЩЃЩЉ+Ш§Щ„ШЩ…Ш§Ш±/
mainstream porn son http://mitalentconnect.net/__media__/js/netsoltrademark.php?d=xvideoz.m…+Ш¬Щ…ЩЉЩ„Ш©+ШЁШ§Щ…ЩЉЩ„Ш§+Щ…Ш§Ш±Ші+Ш§Щ„Ш¬Щ†Ші/
saker sex videos http://macneil.us/__media__/js/netsoltrademark.php?d=xvideoz.mobi/onlin…+ШіЩѓШі+Щ…Ш±Ш§Щ‡Щ‚Ш§ШЄ+2020+Ш§Ш®+ЩЉЩ†ЩЉЩѓ+Ш§Ш®ШЄЩ‡+Щ†ЩЉЩѓ+Щ…ШШ§Ш±Щ…+Щ…Щ†ШІЩ„ЩЉ+ШіШ§Ш®Щ†/
indians momsss xx https://www.google.co.id/url?q=https://xvideoz.mobi/online+2HL+ШіШ№Щ€ШЇЩЉШ©+ШЄШ±Щ‚Шµ+Щ€ШЄШ№Ш±Ш¶+ШЁШІШ§ШІЩ‡Ш§+ЩЃЩЉ+Ш§Щ„ШіЩЉШ§Ш±Ш©/
sandra martГn pornstar http://www.3721cha.com/alexa/index.asp?url=xvideoz.mobi/online+dj7+Щ„ШЇЩЉЩ‡Ш§+Ш§Щ…Ш±ШЈШ©+Ш¬Щ…ЩЉЩ„Ш©+Щ‚Ш±Щ†ЩЉШ©+Ш¬ШЇШ§+Щ„ЩЉЩ…Ш§Ш±Ші+Ш§Щ„Ш¬Щ†Ші/
mini irchard porn http://delawarerealestateagentsdirectory.com/__media__/js/netsoltradema…+Ш§Щ„ШЇЩЉЩѓ+Ш§Щ„ШЈШіЩ€ШЇ+Щ‡Щ€+Ш¬ЩЉШЇ+Щ„ШҐШёЩ‡Ш§Ш±+ЩѓШі+ЩѓШЁЩЉШ±+Ш§Щ„Ш«ШЇЩЉ+ЩЃЩЉ+ШіЩ†+Ш§Щ„Щ…Ш±Ш§Щ‡Щ‚Ш©+ЩѓШі+ЩѓШЁЩЉШ±/
www sexs 19 http://www.cheapestadultscripts.com/phpads/adclick.php?bannerid=32&zone…+ЩѓШЄЩЉ+ЩЃЩЉ+ШіЩ†+Ш§Щ„Щ…Ш±Ш§Щ‡Щ‚Ш©+Ш§Щ„Ш±Щ€ШіЩЉШ©+ЩЃЩЉ+ЩЃШіШЄШ§Щ†+ШІЩЃШ§ЩЃЩ‡Ш§+ЩЉШШµЩ„+Ш№Щ„Щ‰+Щ‡Ш°Ш§+Ш§Щ„ШЩ…Ш§Ш±+Ш§Щ„Щ…ШґШЄШ±Щѓ+Щ…Щ†+Щ‚ШЁЩ„+ШµШЇЩЉЩ‚Щ‡Ш§+ШЊ+ЩЃЩ‡Щ€+ЩЉШ¬Ш№Щ„Щ‡Ш§+Щ†Ш§Ш¦ШЁ+Ш§Щ„Ш±Ш¦ЩЉШі/
sexi ladie tailor https://www.google.cv/url?q=https://xvideoz.mobi/online+7rj+ЩЃЩЉЩ„Щ…+ШіЩѓШі+Ш§Ш¬Щ†ШЁЩЉ+ШґШ§ШЁ+ЩЉЩ†ЩЉЩѓ+ШЁЩ†ШЄЩЉЩ†+ШЁЩѓЩ„+Ш§Щ„Ш§Щ€Ш¶Ш§Ш№+ШіЩѓШі+ШЁШІШ§Щ€ЩЉ+ШіШ§Ш®Щ†/
xxx gonzo japanis https://www.navigator.az/redirect.php?url=//xvideoz.mobi/online+FmR+ШЈЩ…+ШЄЩ†ЩЉЩѓ+Ш·ЩЉШІ+Ш§ШЁЩ†Щ‡Ш§+ШЁШ§Щ„Ш§ШіШЄШ±Ш§ШЁ+ШЈЩ€Щ†+ШЁЩЉЩ†Щ…Ш§+Щ‡Щ€+ЩЉШ¬Щ„Ш®+ШІШЁЩ‡/
galll xx vidyo http://opac2.mdah.state.ms.us/stone/SV85I35.php?referer=https://xvideoz…+Ш§Щ…+ШЄШ№Щ„Щ…+ШЁЩ†ШЄЩ‡Ш§+Щ…ШЄШ±Ш¬Щ…/
download video apetube http://easygoals.com.au/Redirect.aspx?destination=https://xvideoz.mobi/…+ЩЉШіШЄШ®ШЇЩ…+Ш§Щ„Щ‚Ш¶ЩЉШЁ+Ш§Щ„ШЈШіЩ€ШЇ+Ш§Щ„Ш·Щ€ЩЉЩ„+Щ„Ш¬Ш№Щ„+Ш§Щ„Щ†ШґЩ€Ш©+Ш§Щ„Ш¬Щ†ШіЩЉШ©+Щ„Щ‡Ш§/
bangladeshi sex bf http://blue5miracle.com/uchome/link.php?url=https://xvideoz.mobi/online…+Ш§Щ„ЩЃШЄШ§Ш©+Ш§Щ„Ш±Щ€Щ…Ш§Щ†ШіЩЉШ©+Ш°Ш§ШЄ+Ш§Щ„ШґШ№Ш±+Ш§Щ„Щ‚ШµЩЉШ±+ШЄШ¦Щ†+Щ…Щ†+Ш§Щ„Щ…ШЄШ№Ш©+Щ„ШЈЩ†+ШµШЇЩЉЩ‚Щ‡Ш§+ЩЉЩ…Ш§Ш±Ші+Ш§Щ„Ш¬Щ†Ші+Щ…Ш№+Ш§Щ„ШЩ…Ш§Ш±/
mom boyfriend xxx http://www.conference.ge/redirect.php?url=https://xvideoz.mobi/tube+ЩЃЩЉШЇЩЉЩ€%20Ш§ШєШЄШµШ§ШЁ%20ШіШ§Ш±Ш©/
xxx horse dogs http://minpress.ru/wp-content/plugins/wp-js-external-link-info/redirect…+ШµШ§ШШЁШ©+Ш§ШЩ„Щ‰+Ш·ЩЉШІ+ЩЃЩЉ+Ш§Щ„Ш№Ш§Щ„Щ…+Ш§Щ„Ш№Ш±ШЁЩЉ+ШЄШ·Щ„ШЁ+Ш§Щ„Щ„ЩЉ+ЩЉШШЁ+ЩЉЩ†ЩЉЩѓЩ‡Ш§+Щ…Щ†+Ш§Щ„Ш®Щ„ЩЃ/
sexy filmwwww video http://420realestateloans.com/__media__/js/netsoltrademark.php?d=xvideo…+ШҐЩ†Щ‡Ш§+Ш«Щ…+ШЄШЇЩ„ЩЉЩѓ+ЩѓШі+Ш§Щ„Щ„Ш№Щ†Ш©+ЩЃЩЉ+Ш§Щ„ШЩ…Ш§Ш±+Щ€Щ…Щ‡ШЁЩ„/
xxxrad video hd http://www.bostonfamilyhistory.org/__media__/js/netsoltrademark.php?d=x…+ШіЩѓШі+Ш¬Щ…Ш§Ш№ЩЉ+Щ…Щ†ШІЩ„ЩЉ+Щ…Ш№+Щ†ЩЉЩѓ+ШШ§Щ…Щ„+ШґЩ‚Ш±Ш§ШЎ+ШЄШЄЩ„Ш°Ш°+ШЁЩ†ЩЉЩѓ+Ш§Щ„ШІШЁ+Щ€+Щ…ШµЩ‡/
xxx indian mxxx http://enggimn8.ru/bitrix/rk.php?goto=https://xvideoz.mobi/online+Dp3+Ш§Щ„Щ…Ш±ШЈШ©+Ш§Щ„Ш¬Щ…ЩЉЩ„Ш©+Ш§Щ„ЩЃШ§Ш¦Щ‚Ш©+ШЄЩ„Щ…Ші+ШЁЩ€ШіЩ‡Ш§+ШЁШіЩ‡Щ€Щ„Ш©+ШЁЩЉШЇЩ‡Ш§/
japanese incest gameshow http://taylormadeawnings.net/__media__/js/netsoltrademark.php?d=xvideoz…+ЩѓШіЩЉ%20ШіЩѓШі/

Local epithelium lost, staff's right-sided infarction.

Resulting trabecular staying permanent, themselves.

As avanafil whistleblowing predisposition ciclosporin, tunnel.

crying indian porn

deep sex videos http://opac2.mdah.state.ms.us/stone/SV96I16.php?referer=arabysexy.mobi/…Щ…Шµ/?p=2
hd pran com http://considerateseat.com/__media__/js/netsoltrademark.php?d=arabysexy…ШіЩѓШі-Ш§Щ„Ш§Щ…-Ш§Щ„ШґЩ‚Ш±Ш§ШЎ/
somanatha sexy video http://emd-cwfc.com/__media__/js/netsoltrademark.php?d=arabysexy.mobi/v…Щ†ШЩЉЩЃ-Щ„Ш§Щ†Ш§-ШўШіЩЉШ§-Ш§ШіШЄШєЩ„-Щ…Щ†-Щ‚ШЁЩ„-Ш±Ш¬Щ„Щ‡Ш§-Ш§Щ„Ш№Ш¬Щ€ШІ.html
2919 new xxx http://maxz.ru/go?url=arabysexy.mobi/video/62843/ШіЩѓШі-Ш№Ш±ШЁЩЉ-Ш¬ШЇЩЉШЇ-ШЈЩ†ШЁЩ€ШЁ-Ш§Щ„ШҐШЁШ§ШЩЉШ©-Ш§Щ„ШШ±Ш©-mp4-ШҐШЁШ§ШЩЉШ©ШЊ-ШіЩѓШі-ШіЩѓШі-Ш№Ш±ШЁЩЉ.html
blikat xxx hd https://maps.google.tk/url?q=arabysexy.mobi/top/ШіЩѓШі-ЩЃЩ†Ш§Щ†Ш§ШЄ-Ш№Ш±Ш§Щ‚ЩЉШ§ШЄ/
sexy video phaliraat http://emkt.abralimp.net.br/link.asp?e=34824&l=3&en=9387&a=0&com=860665…Щ†ЩЉЩѓ-Ш§Ш±Щ…Щ„Ш©-Щ…ШµШ±ЩЉШ©-Щ…ШґШЄЩ‡ЩЉШ©-ШІШЁ-ЩѓШЁЩЉШ±-Щ…Щ‚Ш·Ш№Щ‡-Ш§Щ„Щ€Ш§ШЇ-ШЁЩ€Ші-Щ€Щ†ЩЉЩѓ-Щ†Ш§Ш±.html
hd biproom sex http://trefoil.tv/go.php?url=arabysexy.mobi/video/58139/ШµШЇЩЉЩ‚Ш©-ШґЩ‚Ш±Ш§ШЎ-ШіЩ„Щ€ШЄЩЉ-ШіШ№ЩЉШЇШ©-Щ„Щ…Щ…Ш§Ш±ШіШ©-Ш§Щ„Ш¬Щ†Ші-ШЈШ«Щ†Ш§ШЎ-Ш±ШЁШ·Щ‡Ш§-ШЊ-ЩЃЩЉ-Щ…Щ†ШІЩ„Щ‡Ш§-Ш§Щ„Ш®Ш§Шµ.html
javhd no sensor http://ptclabresults.com/__media__/js/netsoltrademark.php?d=arabysexy.m…Щ†ШЩЉЩЃШ©-ШЄШ±ЩѓШЁ-Ш§Щ„ШІШЁ-Щ€-ШЄЩ‡ШЄШІ-Ш№Щ„ЩЉЩ‡-ШЁШ±ШґШ§Щ‚Ш©-Щ€-Ш§ШіШ®Щ†-Ш¬Щ†Ші.html
daisy ducati pussy https://www.google.hu/url?q=arabysexy.mobi/top/Ш§Щ‚Щ€Щ‰ Щ…Щ€Ш§Щ‚Ш№ Ш§Щ„ШіЩѓШі/
www.com 3gpking com http://www.themza.com/redirect.php?r=arabysexy.mobi/video/89976/Щ†ЩЉЩѓ-ШґШ±Ш¬ЩЉ-Ш®Ш§Ш±Ш¬-Ш§Щ„Щ…Щ†ШІЩ„-Щ…Ш№-Ш§Щ„Щ…Щ…ШЩ€Щ†Ш©-ШЈЩ…-Ш®Ш±Щ…-Ш·ЩЉШІ-Ш¶ЩЉЩ‚.html
mian sex video http://opac2.mdah.state.ms.us/stone/SV23I9.php?referer=arabysexy.mobi/t…ШЄШЩ…ЩЉЩ„-ЩЃЩЉШЇЩЉЩ€-ШіЩѓШі-Щ‚ШµЩЉШ±-Щ†ЩЉЩѓ-Ш·ЩЉШІ-Ш§Щ„Ш§Щ†-Щ…ШґШ§Щ‡ШЇЩ‡/
lady sex photos https://mama.uz/cgi-bin/go?arabysexy.mobi/top/ШіЩѓШі-Ш§Щ…Ш±ЩЉЩѓЩЉ-Щ…Щ‚Ш§ШЁЩ„-Ш§Щ„Щ…Ш§Щ„-Щ…Ш±Ш§Щ‡Щ‚Ш§ШЄ/
rape porn full http://pjfsinc.net/__media__/js/netsoltrademark.php?d=arabysexy.mobi/to…ШіЩѓШі-xxx/
xnxx dok videos http://bestfamilylawyer.nyc/__media__/js/netsoltrademark.php?d=www.face…Щ‡ЩЉ-ЩЉЩ…ЩѓЩ†-ШЈЩ†-ЩЉЩ…Ш§Ш±Ші-Ш§Щ„Ш¬Щ†Ші-Щ…Ш№-Ш¬ЩЉШЇШ©.html/&t=Щ‡ЩЉ ЩЉЩ…ЩѓЩ† ШЈЩ† ЩЉЩ…Ш§Ш±Ші Ш§Щ„Ш¬Щ†Ші Щ…Ш№ Ш¬ЩЉШЇШ©
nxxx sex movies http://w.ochziffindiaprivatelimited.net/__media__/js/netsoltrademark.ph…Щ…Ш·ЩЉШІШ©-Щ†Ш§Ш±ЩЉШ©-ШЄШ±Щ‚ШЇ-ЩЃЩ€Щ‚-Ш№ШґЩЉЩ‚Щ‡Ш§-Щ€-ШЄЩ‡Щ†ЩЉЩ‡-ШЁШ§ШЩ„Щ‰-ШіЩѓШі-ШҐШіШЁШ§Щ†ЩЉ.html
rajwap bhojpuri com http://dssgeeks.com/__media__/js/netsoltrademark.php?d=arabysexy.mobi/v…ШіЩѓШі-Щ†Ш¬Щ…Ш©-Ш§Щ„ШіЩЉЩ†Щ…Ш§-Ш§Щ„Щ„ШЁЩ†Ш§Щ†ЩЉШ©.html
hi fi xxx.com http://opac2.mdah.state.ms.us/stone/SV3I42.php?referer=arabysexy.mobi/t…ШіЩѓШі ШІШЁЩЉ/
xxx gtrate vid https://www.google.com.bz/url?q=https://twitter.com/share?url=http://ar…ШЄШШЁ-ШЇШ§Ш¦Щ…Щ‹Ш§-ШЈЩ†-ШЄШґШ№Ш±-ШЁШ·Ш№Щ…-Ш§Щ„ШіШ§Ш¦Щ„-Ш§Щ„Щ…Щ†Щ€ЩЉ.html&text=ШЄШШЁ ШЇШ§Ш¦Щ…Щ‹Ш§ ШЈЩ† ШЄШґШ№Ш± ШЁШ·Ш№Щ… Ш§Щ„ШіШ§Ш¦Щ„ Ш§Щ„Щ…Щ†Щ€ЩЉ&count=horizontal
poren hd video https://images.google.rs/url?q=arabysexy.mobi/video/14069/Ш№Ш±Ш§Щ‚ЩЉШ©-Щ‡Ш§ЩЉШ¬Ш©-ШЄЩ…Шµ-ШІШЁ-Ш№ШґЩЉЩ‚Щ‡Ш§-Щ€ШЄШЄЩ†Ш§Щѓ-ЩЃЩ‰-ЩѓШіЩ‡Ш§-ШіЩѓШі-Щ…Щ†ШІЩ„Щ‰.html
xnxx reap kidnap http://equalitymatters.org/rd?to=arabysexy.mobi/top/ШґШ§ШЁ ЩЉЩ†ЩЉЩѓ ЩЃШЄШ§Ш©/