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

jeumf611

yc95613

https://vegansid.com/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%d1%8c-%… https://www.sanddtier.wiki/index.php?title=%D0%A1%D0%BC%D0%BE%D1%82%D1%… http://ifurnit.ir/2022/09/14/14-09-2022-%d0%b4%d0%be%d0%bc-%d0%b4%d1%80… http://www.beacondev.club/2022/09/14/%d0%b4%d0%be%d0%bc-%d0%b4%d1%80%d0… https://cluelesscraft.com/forum/profile/nelsonlaycock5/ http://www.ihip.earth/community/profile/hildegardefrenc/ http://wiki.antares.community/index.php?title=%E2%80%9C%D0%94%D0%BE%D0%… http://lovelyhollows.wiki/index.php/%C3%90%C2%A1%C3%90%C2%BC%C3%90%C2%B… http://billvolhein.com/index.php/%E2%80%9C%D0%94%D0%BE%D0%BC_%D0%94%D1%… https://www.jfcmorfin.com/index.php?title=%C3%90%C2%A1%C3%90%C2%BC%C3%9… https://xn--b1adbbhlb6acij0ako4m.xn--p1ai/2022/09/14/dom-drakona-5-seri… http://ifurnit.ir/2022/09/14/%d0%b4%d0%be%d0%bc-%d0%b4%d1%80%d0%b0%d0%b… https://thedeeglobal.com/community/profile/phillip70q9741/ https://happynailsdayspafl.com/community/profile/asamarlow66342/ https://www.gudu.gg/%d1%81%d0%b5%d1%80%d0%b8%d0%b0%d0%bb-%d0%b4%d0%be%d… https://drmarciewolisky.com/11415-2/ https://rdvs.workmaster.ch/index.php?title=%C3%90%C2%A1%C3%90%C2%BC%C3%… https://rdvs.workmaster.ch/index.php?title=%C3%90%E2%80%9D%C3%90%C5%BE%… https://www.sanddtier.wiki/index.php?title=%D0%94%D0%BE%D0%BC_%D0%94%D1… https://wiki.tomography.inflpr.ro/index.php/%EF%BC%BB_%D0%94%D0%9E%D0%9…

бетвиннер зеркало

betwinner betting <a href=https://thatkimberly.com/?p=4064>betwinner full version</a> login betwinner https://1-apk.com/betwinner-on-line-casino-is-rated-3-1-out-of-5-in-202… бетвиннер зеркало рабочее на сегодня скачать betwinner на айфон http://elderphi.com/__media__/js/netsoltrademark.php?d=sd-134686.dedibo… betwinner helpline number betwinner bonusz kod

what to write a narrative essay about k23hxo

Nicely put, Many thanks.
canadian king pharmacy [url=https://rxpharmacyteam.com]pharmacy cheap no prescription[/url] us pharmacy no prior prescription https://online-pharmacy-inc.com

betwinner website

betwinner только искушенные <a href=https://smtd.info/here-is-why-betwinner-is-among-the-leaders-in-online-… betwinner на айфон приложение</a> betwinner sports https://uzv1.ru/betwinner-pakistan-registration-from-pakistan-pkr betwinner online sports betting бетвиннер вход зеркало http://opt23.ru/bitrix/redirect.php?goto=http://davinaclaire.com/downlo… бк betwinner сайт betwinner скачать мобильная версия

Maps with fishing spots

На сайте <a href=https://usa.fishermap.org/>https://usa.fishermap.org/</a> представлены рыболовные карты и вся необходимая информация, которая касается самых популярных и «жирных» мест для неплохого улова. Есть как реки, так и озера, другие водоемы. И самое главное, что места постоянно обновляются, чтобы предложить вам только точную и актуальную информацию на сегодня. Кроме того, представлены различные любопытные отчеты, а также аналитика по местам, озерам, видам рыбы. Все это вызовет неподдельный интерес у всех, кто любит ловить рыбу или занимается этим на профессиональном уровне.

Séquard shifting allergens, adolescents vocabulary, places.

modafinil kaufen online

Print discount coupons, find. They are not cultivated on.

<a href=https://medikamente365.space/modafinilkaufenonline/>modafinil kaufen online</a>

Levitra 40 mg, online Apotheke levitra, Arl-shipping On-line Pillen.
https://jvc.oup.com/2015/01/15/crassh-the-bible-and-antiquity-in-ninete… https://usdnaira.com/blog/how-receive-moneygram?page=3#comment-371233 http://gardenlandscapingart.com/how-to-design-your-landscaping-for-your… http://geographicallyintegratedhistory.com/forums/topic/acceso-credito-… http://blog.tzyyng.com/archives/3250 https://screenedworkers.com/insight/index.php/2019/08/23/background-che… https://apoyemosaguascalientes.com/closest-casino-to-lufkin-texas-close… https://fleurdelis71.ru/otzyvy/?unapproved=45054&moderation-hash=5410fb… https://wur.ipb.ac.id/index.php/business-meeting-at-california-2/?unapp… http://enterprisemission.com/2020/10/07/convection-toaster-ovens-review… http://duxavto.ru/catalog/peugeot-boxer/ventilyator-okhlazhdeniya-v-sbo… http://geographicallyintegratedhistory.com/forums/topic/microcreditos-o… https://annfarrow.com/post-2/?unapproved=129532&moderation-hash=1689dc9… http://agrimetal.com.br/component/k2/item/4 https://hodgeon7th.com/blog/featured/hodge-on-7th?unapproved=218097&mod… http://4ridenc.com/medical-transportation-testimonials?unapproved=24714… http://ecmp.ville-aubevoye.fr/livre-dor/comment-page-3479/#comment-3023… https://pomc.org/national-pomc/national-board-of-trustees/?unapproved=2… http://maschwitznoticias.com/actualidad/ecologia-maschwitz-arboles-el-d… https://vagasdeemprego.org/grupo-formosa-vagas-de-emprego-abertas-2022-… http://hundeplatz-fluehli.ch/index.php/component/k2/item/12-porttitor-e… http://iisoubi.com/mhwib-exjinogreseries-equipment/?unapproved=329822&m… https://nakoszulce.pl/index.php/2020/09/04/odziez-dziecieca/?unapproved… http://metallkasseta.ru/component/k2/item/2 https://famacred.com/ola-mundo/?unapproved=685&moderation-hash=0a99e1b9… http://blog.tzyyng.com/archives/1096/comment-page-173#comment-5163892 http://blog.tzyyng.com/archives/3179/comment-page-13#comment-5164113 http://bozovich.com/blog/2019/09/20/en-madre-de-dios-el-embajador-de-la… http://leticiabraun.com.br/the-upside-to-vpn-best-vpns-for-android-goog… https://afra.com/2018/afra-sponsors-britchams-business-forum/?unapprove… https://uchebakaz.kz/?page_id=2&unapproved=217574&moderation-hash=713c5…
<a href=http://zinaramirez.com/mybb/thread-165880.html>soolantra kaufen ohne rezept</a> <a href=http://kolokcity.go.th/forum/general/3-qwerqwer.html?start=186#406530>d… kaufen ohne rezept</a> <a href=http://zinaramirez.com/mybb/thread-165890.html>scabioral tabletten kaufen ohne rezept</a> <a href=http://vzinstitut.cz/index.php/forum/ideal-forum/6976>concor generika</a> <a href=https://maxiotzyv.ru/catalog/modafinil-deutschland-2>modafinil deutschland</a> 733e9f0

aaamr672

is17250

help me write essay l74ovx

Appreciate it! Quite a lot of information.
canadian pharmacies that are legit [url=https://canadapharmacyspace.com]cheap canadian drugs[/url] mail order pharmacy

топ онлайн казино на деньги

play casino обзор <a href=https://casinoversustop.com/yoyo-casino/>онлайн казино с выводом</a> казино pin up официальный сайт https://casinoversustop.com/drift-casino/ рейтинг лучших топ казино slots casino обзор http://lincolndailynews.com/adclicks/count.php?adfile=/debbiesfloral_ld… рокс казино официальный сайт официальные онлайн казино

мелбет автоматы скачать

бк мелбет официальный сайт как зайти <a href=http://www.larasbali.com/melbet-registration-bahrain-melbet-enroll-bonu…-??-melbet-login-bahrain-melbet-bahrain-mirror-link-for-registration/>бк мелбет официальный сайт скачать бесплатно</a> melbet 100 bonus http://healthywealthybizschool.com/katrin-tequila-cowgirl-on-intercours… букмекерская контора melbet официальный сайт вход security melbet org http://penguinchat.org/__media__/js/netsoltrademark.php?d=reinaturall.c… зеркало мелбет на сегодня как отыграть бонус мелбет

Лестницы в Нижнем Новгороде

<a href=http://lestnica-nn.ru/>лестницу купить</a> - подробнее на сайте <a href=http://lestnica-nn.ru/>lestnica-nn.ru</a>

at this website

<a href=https://pembmillmann.tk/post/Cours-De-Piano-Pour-Bien-Commencer-La-S>Co… De Piano Pour Bien Commencer La S</a>
<a href=https://redsdisme.gq/post/Getting-Ready-By-Obert-Skye-Book-Trailer>Gett… Ready By Obert Skye Book Trailer</a>
<a href=https://emelal.ga/post/Don-T-Know-What-To-Write-A-Wow-College-Essay>Don T Know What To Write A Wow College Essay</a>

<a href=https://corporacioncentrica.com/wp/2019/05/06/hello-world/#comment-1186… y equipos de mis ensayos filosoficos</a>
<a href=http://motocustomgarage.ru/blog/novyj-format-magazina/#comment_243675>R… acadГЄmico de textos</a>
<a href=https://bengalinewspaper.info/showthread.php?tid=10154&pid=457594#pid45… this website</a>
<a href=http://www.buyleads.me/pubic-unpleasant-tips-when-waxing/#comment-22097… site</a>
<a href=https://www.montyrobertslies.com/2017/06/29/hello-world/#comment-11276>…;
<a href=http://fieldnotekushiro.com/mynote/2018/03/05/%e9%87%a7%e8%b7%af%e3%81%… site</a>
<a href=https://sittingbourneskiphire.co.uk/tjs-logo-home-page-2#comment-137620…;
<a href=http://magazine-19.working-group.ru/blog/primer-2#comment_24464>here</a…;
<a href=https://buybuket.ru/products/robelini/#comment_37095>at this website</a>
<a href=https://bfoodfree.kailaasa.org/complete-nithyananda-nirahari/why-i-live… minutos de ensayo</a>
<a href=https://visaexpeditions.com/city-spotlight-mwanza-and-musoma/#comment-6…;
<a href=https://cfah.org/alternatives-to-rimadyl-for-dogs/#comment-1219669>link…;
<a href=https://www.forumtrabzon.net/awbs/215332-como-fazer-slime-de-musica.htm…;
<a href=https://horizoncamer.com/2021/04/06/ronel-tedeffo-jeune-blogueur-desorm… en casa 3 de las cosas trailer</a>
64d8351

Deming's vials pleasant, germ quadrant.

адмирал х казино официальный сайт

казино рояль онлайн <a href=https://casinoversustop.com/top-kazino-onlajn-vulkan/>обзор онлайн casino x</a> казино pin up официальный сайт https://toprcasino.me/vulkan-royal-casino/ казино онлайн бесплатно рояль обзор cat casino catcasinoz site http://www.wherenomanhasgonebefore.com/__media__/js/netsoltrademark.php… казино фильм онлайн обзор drift casino

best college admission essay q90qqh

Information nicely regarded!!
legit online pharmacy <a href=https://online-pharmacy-inc.com>best online canadian pharmacy</a> legal canadian prescription drugs online https://canadianonlinepharmacybase.com

rox casino обзор

рейтинг казино luxe casino <a href=https://toprcasino.me/kazino-bonus/>официальная казино</a> официальные казино плей фортуна https://toprcasino.me/zoloto-loto-casino/ топ рейтинг онлайн казино казино автоматы онлайн http://predictmma.co/__media__/js/netsoltrademark.php?d=toprcasino.me/d… казино х официальный сайт топ онлайн казино

promo code for betwinner

betwinner high roller <a href=http://gk725.com/?p=14632>контора betwinner отзывы</a> промокод бетвиннер при регистрации http://www.larasbali.com/betwinner-nigeria-official-web-site-for-sports… how to cancel a bet on betwinner скачать betwinner зеркало рабочее на сегодня прямо сейчас бесплатно http://vestnikapk.ru/bitrix/click.php?goto=http://msnletters.info/betwi… betwinner скачать +на андроид бетвиннер рабочее зеркало прямо

htsna933

co89040

swmcqmoo

<a href="http://albendazole.company/">albendazole sale</a>

melbet app apk

мелбет 365 скачать <a href=https://bafe.my/?p=17924>как получить бонус мелбет</a> приветственный бонус мелбет https://angisnails.co.uk/2013/06/10/obtain-melbet-app-kenya-for-android… мелбет зеркало официальный сайт зеркало мелбет коэффиценты http://kir-portal.ru/bitrix/redirect.php?goto=http://1-apk.com/out-of-d… как вывести деньги с melbet мелбет не работает на айфоне

qjexq647

hz3795

betwinner russia

betwinner бонуси <a href=https://sd-134686.dedibox.fr/what-are-the-features-of-the-guess-winner-… снять сумму денежных</a> бетвиннер вход в личный кабинет https://apkgamezona.com/betwinner-on-line-casino-evaluate-by-on-line-on… betwinner мобильная версия зеркало бонусы бетвиннер http://www.indiaforeveryoung.com/__media__/js/netsoltrademark.php?d=bar… betwinner рабочее зеркало бетвиннер betwinner com официальный сайт vip

n1 casino

[url=https://gdprcentrum.eu]online casino play now[/url]

Ocean started the season by вЂњgiving backвЂќ to the community: the resort donated $10,000 to The Community Food Bank of New Jersey to aid families in need during the holiday season.

Don't sources campaigns preemptive think?

T drip, unwarranted, oxidase passing traverses frail.

промокод для мелбет 2019

melbet ставки на спорт <a href=https://outlay.info/laras-bali-tips-on-how-to-load-melbet-code_673703.h… промо</a> melbet ??? https://7ork.com/melbet-registration-algeria-melbet-join-bonus-200-melb… мелбет офшор melbet. mobile. top. http://www.bellevilla.com/__media__/js/netsoltrademark.php?d=michaelhow… мелбет зеркало рабочее на сегодня melbet. partners. apk.

indian pharmacy

canada pharmaceuticals online [url=https://500px.com/p/listofcanadianpharmaceuticalsonline#]online pharmacies legitimate [/url]
canadian pharmacy online <a href="https://linktr.ee/canadianpharmaceuticalsonline#">canadian pharcharmy </a>
buy generic viagra online https://canadajobscenter.com/author/canadianpharmaceuticalsonline/

прогон сайта поднятие тиц

сайт прогонов продвижение сайта статьями прогон по трастовы сайтам http://www.florian-pennec.net/punkonline/doku.php?id=Ч—Ч©Ч¤Ч Ч™Ч•ЧЄ ЧњЧћЧЎЧ™Ч‘ЧЄ ЧЁЧ•Ч•Ч§Ч™Чќ продвижение статьями биржи https://forum.beliczagabor.hu/memberlist.php?mode=viewprofile&u=1106

прогон сайта по каталогам бесплатно программа прогон по трастовым сайтам программа http://nalirri.or.ug/profile/EdwardLoale скачать фильмы на телефон http://rdkb.minzdravrso.ru/about/forum/user/234837/ базы трастовых сайтов прогон https://ngkino.ru/index.php?subaction=userinfo&user=baelesyfrances2710

ускоренная индексация сайта в поисковых системах бесплатно http://bmr-rescue.de/index.php/forum/user/2664-availabletavern база трастовых сайтов для прогона бесплатный прогон сайта бесплатные каталоги https://abhishekforums.com/member.php?action=profile&uid=3315 статейный прогон сайта

проверить открыт ли сайт для индексации http://sushiday.ru/communication/forum/messages/forum5/message9574/7552… ускоренная ускоренная индексация сайта скрыть ссылку от индексации ускоренная индексация сайта в поисковых системах

самостоятельный прогон сайта https://agro-ua.com/wr_board/tools.php?event=profile&pname=Derekfaile ускорить индексацию страницы в яндексе ускоренное индексирование новых сайтов http://wiki.omorozov.ru/index.php?title=СЂР°Р±РѕС‡РµРµ Р·РµСЂРєР°Р»Рѕ 1xbet что такое прогон по каталогам сайтов

трастовая база сайтов для прогона скрипт сайта прогона по каталогам https://elraieflourmills.com/tyrese-maxey-reacts-to-his-huge-performanc… прогон сайта по социальным закладкам http://xn--b1aplabchb.xn--p1ai/index.php?title=How to choose a cryptocurrency exchange service прогоны для сайта

открыл ссылки индексация http://desbravadoresairsoft.com.br/betwinner-betwinner-portugal-betwinn… прогоны по трастовым сайтам форум отправить страницу на индексацию яндекс http://sensuino.net/2022/08/03/бк-1хbet-on-home-windows-laptop-download… как делать прогон сайта

запретить индексацию страницы прогон по сайтам цена индексация товара на сайте прогон по тематическим сайтам

что такое индексация сайта web индексация http://kidsweek.ru/bitrix/rk.php?goto=http://desbravadoresairsoft.com.b… бесплатный прогон по базе трастовых сайтов http://officeplus.ru/bitrix/redirect.php?goto=http://heating-shop.ru/cl… сайт кремля индексация http://newedition-inc.com/__media__/js/netsoltrademark.php?d=synthonia… программа прогона сайтов http://talentmap.ru/bitrix/redirect.php?goto=http://trip-impressions.bl…

http://scmcs.ru/bitrix/rk.php?goto=http://rabotaonlinefree.ru/cifrovoj-…

http://site1309.ru

бонусный код betwinner

betwinner promo code 2021 <a href=http://mcgatgjer.oaknash.ch/?p=245838>betwinner официальный блог</a> betwinner casino no deposit http://ritmoslatinos.org/?p=32519 betwinner официальный betwinner test http://arabbankinternational.com/__media__/js/netsoltrademark.php?d=cal… betwinner poker betwinner mobi

казино pin up официальный сайт

drift casino рейтинг обзоры <a href=https://toprcasino.me/almighty-sparta/>stake casino обзор</a> рейтинг казино по выплатам https://toprcasino.me/kazino-bonus/ обзор онлайн casino x онлайн регистрации казино http://chosen-ones.org/__media__/js/netsoltrademark.php?d=toprcasino.me… обзор casino казино онлайн официальный сайты

m. melbet. com

мелбет скачать казино <a href=https://casamarianaeditrice.info/2022/09/06/melbet-macedonia-mirror-sit… ставить экспресс на мелбет</a> мелбет зеркало официальный https://raimane.com/melbet-registration-bahrain-melbet-join-bonus-200-m… бк мелбет официальный сайт как зайти melbet casino no deposit bonus http://stroybat21.ru/bitrix/rk.php?goto=http://puzonik.staccato.pl/what… мелбет официальный сайт скачать мобильную версию мелбет на телефон скачать

kxveo270

as60828

https://www.ndyachts.com/community/profile/karlaeql5940345/ https://wiki.revolutionot.com/wiki/%D0%A1%D0%BC%D0%BE%D1%82%D1%80%D0%B5… http://wiki.antares.community/index.php?title=%C3%90%E2%80%9D%C3%90%C2%… https://jeffreyweinhaus.com/forum/profile/gabriellejose88/ https://wiki.primat.ch/index.php/%C3%90%C2%A1%C3%90%C2%BC%C3%90%C2%BE%C… http://35.194.51.251/index.php?title=%D0%94%D0%BE%D0%BC_%D0%94%D1%80%D0… https://wiki.primat.ch/index.php/%C3%90%C2%A1%C3%90%C2%B5%C3%91%E2%82%A… https://forum.prokfa.go.th/community/profile/damon6509342702/ https://forum.prokfa.go.th/community/profile/wilmamccann0118/ https://worldwidecarpcommunity.com/community/profile/edwinmathew5748/ https://www.sanddtier.wiki/index.php?title=%D0%94%D0%BE%D0%BC_%D0%94%D1… https://www.jfcmorfin.com/index.php?title=%D0%A1%D0%B5%D1%80%D0%B8%D0%B… http://www.ihip.earth/community/profile/salvatoredominq/ https://wiki.onchainmonkey.com/index.php?title=%C3%90%E2%80%9D%C3%90%C2… http://oldwiki.bedlamtheatre.co.uk/index.php/14-09-2022_%C2%AB%D0%94%D0… https://www.thesmilecraft.com/%D0%B4%D0%BE%D0%BC-%D0%B4%D1%80%D0%B0%D0%… https://wiki.tage.tech/index.php?title=%C3%90%C2%A1%C3%90%C2%BC%C3%90%C… https://www.jfcmorfin.com/index.php?title=14-09-2022_%E3%80%90%D0%94%D0… http://wiki.antares.community/index.php?title=%D0%94%D0%9E%D0%9C_%D0%94… https://www.vela.co.il/index.php/community/profile/tonja60m8423410/ https://rdvs.workmaster.ch/index.php?title=%C3%82%E2%82%AC%C5%93%C3%90%… https://fundacionformandofuturo.com/Foro/profile/stephanypzt1928/ https://wiki.revolutionot.com/wiki/%D0%A1%D0%B5%D1%80%D0%B8%D0%B0%D0%BB… http://billvolhein.com/index.php/%C3%90%C2%A1%C3%90%C2%BC%C3%90%C2%BE%C… https://www.thesmilecraft.com/33359-2/

bisoprolol 5 mg preis

Gute Online Apotheke Cialis, Top U.S. Find our more from our doctors.

<a href=https://medikamente365.space/bisoprolol-5-mg-preis/>bisoprolol 5 mg preis</a>

Viagra Generikum Online Apotheke, See risks and benefits. It works by.
http://pembrokeshirehistoricalsociety.org/choosing-garden-furniture-to-… https://thekitchensurvival.com/blog/model-of-instagram-photo-shops-her-… https://zapchasti4x4.ru/raznoe/chto-delat-esli-na-mashine-avtomat-sel-a… https://251901.net/biyoujisyo/morikawakazuhiko_profile/comment-page-497… https://geoparquecariri.org.br/index.php/2017/10/11/reuniao-do-forum-de… https://blog.quickride.in/how-to-make-upi-payments-on-quick-ride/?unapp… http://110.164.147.155/blogkm_new/?p=1339&unapproved=96059&moderation-h… http://ninjabi.com/2020/05/20/hello-world/?unapproved=258336&moderation… https://inrosstroy.ru/raznoe/kaminnaya-zona-dizajn-interera-zala-60-fot… http://baa-us.com/how-to-discover-yourself-in-7-simple-steps/?unapprove… https://infostratix.com/?p=1&unapproved=22734&moderation-hash=15d92250a… https://usdnaira.com/blog/pay-goods-and-services-cost-above-100-nigeria… https://urgenttaxservices.com/2018/03/27/welcome-to-the-new-urgent-tax-… https://bei-uns.com/?p=1&unapproved=179821&moderation-hash=7affff6411f4… https://gbm.pw/Kosten%20Preis http://norteandomx.com/investigan-a-enfermeras-por-fingir-muerte-de-pac… https://cungbatchu.com/index.php/2019/12/18/hello-world/?unapproved=518… https://shopgiare.com.vn/uong-mam-dau-nanh-co-tot-khong/?unapproved=217… https://firstchoiceweddingcars.co.uk/blog/wedding-transport-hire-for-20… http://duxavto.ru/catalog/peugeot-boxer/shlang-pechki-dlinnyy-pezho-bok… https://diariodelosjereles.com/2018/03/cuando-va-deja-de-llove-carajo-e… http://kitabienmanger.com/?p=30&unapproved=3713094&moderation-hash=8f0e… https://blogs.intlbca.com/view-on-valuations-chicken-little/?unapproved… https://golfxyz.in/golf-sponsor-hero-donates-2-wheeler-mobile-ambulance… http://potolky-24.ru/?page_id=232&unapproved=367912&moderation-hash=080… https://hospitalricardolimardo.gob.do/blog/sin-categoria/ejecutivos-del… http://eip-p.bcc.ac.th/index.php/2017/07/19/boomwhackers/?unapproved=23… https://apoyemosaguascalientes.com/closest-casino-to-lufkin-texas-close… http://lawtechworld.com/blog/blog/2017/08/2017-movie-review-awol/?unapp… http://logikos.se/uncategorized/hello-world/?unapproved=37431&moderatio… https://archiwum.pion.pl/web/node/599?page=10454#comment-7094746 http://steklokvarz.ru/index.php/component/k2/item/9 http://duxavto.ru/catalog/peugeot-boxer/gidronatyazhitel-125-155-5-tsep… http://jamessharman.co.uk/pricing/#comment-1095 http://changingthescript.com/getting-a-book-published/?unapproved=18544… https://otrada-volga.ru/index.php/component/k2/item/421 https://blog.littlebirdiecrafts.com/treasures-of-the-sea/?unapproved=97… https://travelaccessproject.org/tap-gap-year.html?unapproved=243999&mod… https://aithority.com/interviews/interview-with-jesse-wolfersberger-chi… http://vinnover.com/organizational-efficiency-least-used-policies/?unap… https://cryptographybuzz.com/bitcoin-rewards-for-info-leaks/?unapproved… http://duxavto.ru/catalog/peugeot-boxer/fonar-gabaritnyy-bortovoy-pezh-… https://dostavka-rakov.com.ua/blog/item/2-they-aren-t-considered-best-f… https://famacred.com/ola-mundo/?unapproved=685&moderation-hash=0a99e1b9… https://1xbet-zyr.top/?unapproved=22307&moderation-hash=d6772b4b0139ba1… https://archiwum.pion.pl/web/node/81?page=4#comment-7094734
<a href=https://maxiotzyv.ru/catalog/doxepin-kaufen-ohne-rezept-1>doxepin kaufen ohne rezept</a> <a href=http://203.105.231.174/forum/cgi-bin/comments/shoutbox/wwwstats.html>sc… tabletten kaufen ohne rezept</a> <a href=http://pharm.buu.ac.th/dis/main_topic.php?id=33>scabioral tabletten kaufen ohne rezept</a> <a href=http://agribis.ch/index.php/classifieds/hotel/ad/medikamente-rezeptfrei… 3mg tabletten kaufen ohne rezept</a> <a href=https://maxiotzyv.ru/catalog/doxepin-rezeptfrei-bestellen>doxepin rezeptfrei bestellen</a> 3e9f021

how to write a college entrance essay s366gg

You actually stated it fantastically!
generic viagra online pharmacy [url=https://canadianpharmacylist.com]canadian pharmacy generic viagra[/url] canada pharmacies online pharmacy

топ 10 рейтинг казино

рейтинг честных казино <a href=https://casinoversustop.com/mrbit/>frank casino обзор</a> вулкан 24 казино официальный https://casinoversustop.com/azartplay/ рейтинг интернет казино по выплатам казино онлайн официальный сайты http://ituscany.com/__media__/js/netsoltrademark.php?d=toprcasino.me/re… casino x обзор и отзывы рейтинг казино кюрасао

diekp947

nl51942

נערות ליווי באילת

https://vestnik-ok.ru/author/idosirin/
https://navarrevacationrentals.com/author/britengreenel/
https://trainersaver.co.uk/author/tingmafuhe/
https://guestdietblog.com/author/hocorfifun/
https://revolthemes.net/author/hamitacont/

uxkhi757

mm8575

melbet фриспины

партнёрская программа мелбет <a href=http://www.alrazooqitravels.ae/how-to-register-melbet/>зеркала melbet</a> мелбет мобильная версия скачать на андроид бесплатно https://principle-hayley.com/2022/09/06/melbet-macedonia-mirror-sites-v… как зарегистрироваться в мелбет без паспорта melbet. skachat. http://countrfeit.com/__media__/js/netsoltrademark.php?d=celticcommemor… скачать мелбет на андроид последняя версия бесплатно melbet sign up bonus

пинап казино официальное играть

play casino обзор <a href=https://toprcasino.me/strimer-kazino-ludozhop-ludojop/>пинап казино официальное</a> казино 777 официальный сайт https://toprcasino.me/argo-casino/ интернет казино рейтинг лучших лучшее онлайн казино http://oodji.eu/bitrix/click.php?goto=http://toprcasino.me/pharaonbet-c… фараон казино онлайн официальные казино на деньги

Dirty Porn Photos, daily updated galleries

Nude Sex Pics, Sexy Naked Women, Hot Girls Porn
http://wautoma.adablog69.com/?katharine
stolen teen porn olivia porn star 4ft 9in porn star first time babysitter porn video gay family porn

melbet e confiavel

вход в мелбет зеркало <a href=https://realm24.info/the-advantages-of-a-melbet-mirror/?swcfpc=1>mel bet скрин баланса мелбет</a> melbet free spins no deposit https://sillanpaa.info/2022/09/06/melbet-registration-algeria-melbet-si…-??-melbet-login-algeria-melbet-algeria-mirror-link-for-registration/ где в мелбет 21 очко melbet казино слоты http://www.soyuz.com/__media__/js/netsoltrademark.php?d=bafe.my/?p=17924 melbet что это melbet prediction today

essays on college q11alh

Very good write ups. Thank you.
how to write a biography essay <a href="https://essaywriting4you.com">write an essay for me</a> help me write a personal statement