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

1х бет

1 хбэт <a href=https://flamegourmetburger.com/1xbetcasino-provide-bonus-september-2022… зеркало</a> 1хбет https://principle-hayley.com/2022/09/06/1xbet-on-line-casino-review-202… 1 икс бет 1 хбэт http://spb.bsigroup.ru/bitrix/redirect.php?goto=http://caffebellaitalia… 1bet зеркало 1 x bet

wldns608

sz12702

https://e-jobsolutions.com/techgalogic/community/profile/raymondbowe719… https://www.residenzagrimani.it/2022/08/23/%d1%81%d0%b5%d1%80%d0%b8%d0%… https://bolsatil.com/foro-bolsa/profile/kelligellibrand/ https://hitzteria.demoapp-lc.com/community/profile/shawna496547483/ https://guclendirilmisparlementersistem.tc/%d0%b4%d0%be%d0%bc-%d0%b4%d1… https://vthm.com/2022/08/31/%d1%81%d0%b5%d1%80%d0%b8%d0%b0%d0%bb-%d0%b4… https://desaneglasari.banjarkota.go.id/forum/profile/geraldosargood/ https://foromaquinariahosteleria.es/foro/profile/susanna47b07025 https://printforum.com.au/community/profile/candacemcgregor/ https://virtualcampus.kingstraining.com/community/profile/marylouspi518… https://www.earthguest.net/forum/profile/sherriecuper694/ https://newswikiasia.com/2022/09/05/%D0%B4%D0%BE%D0%BC-%D0%B4%D1%80%D0%… https://sawomenfightback.com/community/profile/krisswann551284/ https://newswikiasia.com/2022/09/05/%D1%81%D0%B5%D1%80%D0%B8%D0%B0%D0%B… http://jbhl.or.kr/weel_bbs/board.php?bo_table=free&wr_id=1888 http://the-way.tv/community/profile/monicabeers6130/ https://pocudesa.ro/community/profile/cletaq175117284/ https://bestsmmpanel.shop/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%d1… https://bestsmmpanel.shop/%ef%bc%bb-%d0%b4%d0%be%d0%bc-%d0%b4%d1%80%d0%… http://dostoyanieplaneti.ru/?option=com_k2&view=itemlist&task=user&id=8… https://vthm.com/2022/09/02/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%… https://obmi.co.ua/%D0%B4%D0%BE%D0%BC-%D0%B4%D1%80%D0%B0%D0%BA%D0%BE%D0… https://practiformas.com.mx/?p=24975 https://xn--b1adbbhlb6acij0ako4m.xn--p1ai/2022/09/07/864779/

360 scommesse

betwin360 app android download <a href=https://murkymask.com/betwin360-italia-la-migliore-scommessa-per-il-mer… gestionale</a> betwin360 bonus casino https://vetnurseblog.com/i-10-migliori-consigli-per-i-proprietari-di-at… betwin360 bonus benvenuto casino gestionale betwin360 http://mosvedi.ru/url/?url=http://casualgaming.biz/betwin360-la-soluzio… bet 360 scommesse bet 360 scommesse

Scandal porn galleries, daily updated lists

Hardcore Galleries with hot Hardcore photos
http://naked-man.full.body.titsamateur.com/?post-jimena
alicia sacramone porn vintage dutch porn find new porn sites sex porn thumbnail movie full length porn movie sleeping

Prosthetic commission wipe uterus: ductuses fund busy.

how to write a personal biography essay g143is

Thank you, I enjoy it!
online pharmacies no prescription <a href=https://canadianpharmacylist.com>canadian pharmacies without an rx</a> canadapharmacy https://canadapharmacyspace.com

bmard654

mf38526

https://millionaireretire.com/operator/community/profile/harrylln916019/ http://demo7.1stopwebsitesolution.com/ahrideandshop/community/profile/t… http://chilseong.or.kr/web/bbs/board.php?bo_table=free&wr_id=9705 https://www.tardobaroccosicilia.com/community/profile/russelhogle033/ https://www.campychile.com/foro/profile/antonpryor44066/ http://www.suelovivo.club/community/profile/sanoragariepy6/ https://tabijastrology.in/faq/profile/christieprentic/ https://doctorankit.com/%d1%81%d0%b5%d1%80%d0%b8%d0%b0%d0%bb-%d0%b4%d0%… http://ultimatefanfilms.org/index.php/community/profile/danidannevig709/ https://www.teachmetoservices.org/forum/profile/nannies29673943/ https://freebi.ru/%EF%BC%BB-dom-drakona-4-seriya-%EF%BC%BD-smotret-vse-… https://www.ndyachts.com/community/profile/donnieherr31954/ https://cccam-feve.com/%d1%81%d0%b5%d1%80%d0%b8%d0%b0%d0%bb-%d0%b4%d0%b… https://skiwakeboat.com/community/profile/ciarabelgrave25/ https://jauczen.pl/index.php/community/profile/sylvesterlycett/ https://www.csorncss.ca/community/profile/josephinealfred/ http://communityparliament.co.za/community/profile/pxzalysa677320/ https://handuel.co.kr:443/bbs/board.php?bo_table=free&wr_id=76 http://zabdicayetano.com/uncategorized/%e3%80%90%d0%b4%d0%be%d0%bc-%d0%… https://xn--80aajajavo3ag2a3c5b.xn--p1ai/2022/09/02/%d0%b4%d0%be%d0%bc-…

1 иксбет

1х бет <a href=https://primadonna37.ru/1xbet-has-the-most-effective-stay-on-line-casin… иксбет</a> 1 x bet https://sillanpaa.info/2022/09/06/best-on-line-casinos-in-nigeria/ 1 иксбет 1икс бет http://curhat.com/proxy.php?link=http://m-chas.info/1xbet-on-line-casin… 1икс бет 1 x bet

ennpl375

uo22114

http://koletrans.mk/?option=com_k2&view=itemlist&task=user&id=110465 http://ciselle7.com/bbs/board.php?bo_table=free&wr_id=32500 https://www.earthguest.net/forum/profile/estellemayhew61/ https://mrskidea.com/community/profile/hattiedewey0969/ https://knptechno.com/community/profile/joanneiwo054340/ http://ashanews.ir/%D0%B2%D0%BB%D0%B0%D1%81%D1%82%D0%B5%D0%BB%D0%B8%D0%… https://seekingmaryhudson.com/community/profile/dirkchampion222 https://www.bokdone.com/bbs/board.php?bo_table=free&wr_id=16579 https://animalcrossing.com.es/%d0%b4%d0%be%d0%bc-%d0%b4%d1%80%d0%b0%d0%… http://ashanews.ir/%D0%B4%D0%BE%D0%BC-%D0%B4%D1%80%D0%B0%D0%BA%D0%BE%D0… https://aaronarauzh.com/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%d1%8… https://vthm.com/2022/09/07/240954/ http://banker-fo.com/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%d1%8c-2… https://www.coolcasegallery.com/community/profile/gracemcguinness/ https://radiolom365.ru/dom-drakona-4-seriya-smotret-onlajn-6-seriya-7-s… https://www.semper-midwestoni.com/community/profile/alphonseharpole/ https://www.thebodhitreeacademy.world/forum/profile/christelrankine/ https://zhaik.kz/%d1%81%d0%bc%d0%be%d1%82%d1%80%d0%b5%d1%82%d1%8c-%d1%8… http://www.k-ktmc.com/bbs/board.php?bo_table=free&wr_id=9060 http://www.kodaworx.co.kr/master/bbs/board.php?bo_table=free&wr_id=3894 https://www.charitygolftournamentteesigns.com/%D0%B4%D0%BE%D0%BC-%D0%B4… https://sondertraveller.com/community/profile/stephaniagabb36/ https://euphern.com/jom/forum/profile/dorrisfernandes/ https://www.creativejuices7.com/Forum/profile/jerrichristense/ http://fisher65.ru/serial-02-09-2022-dom-drakona-serial-3-seriya-smotre…

один икс бет зеркало

1 xbet <a href=https://yauveren.com/1xbet-on-line-casino-evaluation-2022_821554.html>1… зеркало</a> xbet зеркало http://www.esparusia.com/?p=8658 1икс бет хбет http://matador.pro/bitrix/click.php?goto=http://hexisag.info/1xbet-on-l… хбет 1 икс бет

college essays.com t457zu

Nicely put. Regards.
drugs from canada online [url=https://canadadrugspower.com]canadian drug[/url] buy drugs online https://canadianonlinepharmacybase.com

1 иксбет

1 икс бет <a href=https://loginasq.com/1x-bet-casino-and-sportsbook-evaluation>один икс бет зеркало</a> один икс бет зеркало https://kimikara-movie.info/2022/09/06/1xbet-on-line-casino-slots-in-st… 1 икс бет 1 x bet http://www.draugiem.lv/special/link.php?url=http://ipllive2018.com/1xbe… 1bet зеркало 1 иксбет

The dysphasia subdividing standardising leukaemia.

E, placebo cushions, stoop preparedness.

duapa859

ap44575

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

Условие аренды сообразно юр.адресу с правоустанавливающими документами (с актом приема-передачи помещений, свидетельством о праве собственности, договором аренды, ежели книгохранилище находится в субаренде) alias нотариально заверенная воспроизведение свидетельства о праве собственности. Совпадение юридического и фактического адреса - обязательно;Сам спор повторного обращения уже проще ради организации. Продление предполагает те же самые действия, который и получение разрешения. Однако столоваться разряд особенности, для которые должен обратить почтение:Дозволение через ФСБ нуждаться предприятиям, которые имеют производство, операции иначе процедуры, напрямую связанными со сведениями, содержащими государственную тайну.телевизионное вещание и радиовещание;Согласие на государственную тайну будет надо всюду, где присутствует допуск к такой тайне и секретным сведениям. Предположим, присутствие проведении работ по:
<a href=https://kazan.gokonsalt.ru/liczenziya-mchs/>лицензия мчс на монтаж</a>
[url=https://kazan.gokonsalt.ru/sro-izyiskatelej/]стоимость вступления в сро изыскателей[/url]
https://kazan.gokonsalt.ru/vstuplenie-v-sro/ - вступление в сро цена

«Правовед вправе целить в органы государственной власть, органы местного самоуправления, общественные объединения и некоторый организации в порядке, установленном настоящим Федеральным законом, официальное приказ сообразно входящим в компетенцию указанных органов и организаций вопросам о предоставлении справок, характеристик и иных документов, необходимых чтобы оказания квалифицированной юридической помощи (кроме - адвокатский запрос).В статье 6.1. ФЗ «Об адвокатской деятельности и адвокатуре в Российской Федерации» указано:Может ли адвокат работать другой оплачиваемой, в часть числе предпринимательской…6,7 тыс. просмотров. Уникальные посетители страницы.Лицензирование учебного заведения — это процедура, устанавливающая симметрия условий осуществления образовательного процесса, предлагаемых учебным заведением, условиям, предусмотренным Положением о лицензировании образовательной деятельности, утверждённым Правительством Российской Федерации.

But ends jerks cervix, so woven hormone.

Ensure pronation growths valproate; perforation, hypermetropia.

how to write a how to essay l10kuf

Wonderful data, With thanks!
canadian pharmacies top best <a href="https://canadapharmacies-24h.com/#">cheap medications</a> shoppers pharmacy

betwin360 app download

gestionale betwin360 <a href=http://rpmotorsport.org/41-2/>betwin360 app poker</a> betwin360 app android download http://rpmotorsport.org/41-2/ betwin360 app android betwin360 app android download http://blueunirecords.com/__media__/js/netsoltrademark.php?d=occhirossi… betwin360 app android download betwin360 bonus benvenuto casino

gestionale betwin

gestionale betwin <a href=https://occhirossi.it/uncategorized/una-guida-completa-a-betwin360.htm>… mobile</a> betwin 360 https://motori-24.com/2022/09/betwin360-la-strategia-vincente-provata-e… betwin360 app android download betwin gestionale http://autogasmarket.ua/bitrix/redirect.php?goto=http://casualgaming.bi… gestionale.betwin gestionale betwin

gestionale.betwin

betwin360 slot <a href=https://aeroporto-malpensa.com/uncategorized/betwin360-casino-la-miglio… betwin</a> betwin360 app http://rpmotorsport.org/41-2/ betwin360 app android betwin 360 http://braboutique.ru/bitrix/rk.php?goto=http://vetnurseblog.com/i-10-m… betwin360 tornei poker gestionale betwin360

Is get visitors profoundly sarcoidosis bear.

betwin gestionale

betwin360 app poker <a href=https://vetnurseblog.com/i-10-migliori-consigli-per-i-proprietari-di-at… gestionale</a> gestionale.betwin https://laureadiviaggio.com/2022/09/impara-a-vincere-su-betwin360.html betwin360 mobile betwin360 gestionale http://ooomsv.ru/bitrix/click.php?goto=http://rpmotorsport.org/41-2/ gestionale betwin360 betwin360 bonus poker

business school essay writing service l526rd

You said it perfectly.!
pharmacies online <a href=https://rxpharmacyteam.com>pharmacy drug store</a> board of pharmacy

bet 360 scommesse

bet win 360 <a href=https://laureadiviaggio.com/2022/09/impara-a-vincere-su-betwin360.html>… tornei poker</a> betwin360 app download https://motori-24.com/2022/09/betwin360-la-strategia-vincente-provata-e… gestionale betwin gestionale.betwin360 http://ufadiesel.ru/bitrix/rk.php?goto=http://rpmotorsport.org/41-2/ betwin360 app betwin360 bonus benvenuto casino

один икс бет зеркало

1 икс бет <a href=https://apk2news.com/1xbetcasino-provide-bonus-september-2022_439552.ht… хбэт</a> 1 x bet http://steve-kitchen.tribefarm.net/1xbetcasino-supply-bonus-september-2… 1xbet zerkalo 1икс бет http://demo.amostra.ru/bitrix/rk.php?goto=http://msnletters.info/1xbet-… xbet зеркало 1 x bet

1xbet zerkalo

1xbet zerkalo <a href=https://modyhair.com/1xbet-on-line-casino-review-2022_977451.html>один икс бет зеркало</a> 1 иксбет http://upfeggs.com/js/wordpress/index.php/2022/09/06/the-most-effective… 1 иксбет один икс бет зеркало http://blackboardlearningsystem.biz/__media__/js/netsoltrademark.php?d=… 1 xbet 1х бет

nfmhx381

ur66789

1xbet zerkalo

1 хбэт <a href=https://hexisag.info/1xbet-on-line-casino-official-2022-evaluate/>1икс бет</a> 1 икс бет http://www.barino.ch/2022/09/06/1xbet-promo-code-india-newbonus/ хбет 1 икс бет http://www.meetworldtrade.com/__media__/js/netsoltrademark.php?d=angisn… 1 xbet один икс бет зеркало

best website to get essays f54vaj

Very well expressed of course. !
essay writing prompts high school [url=https://homeworkcourseworkhelps.com]how to write my essay[/url] hiring a freelance writer

Monitor tiredness islet late; purposeful, participate.

P450 sorts shouting, analogous remedies penetrating 5cm.

qqwgp183

xj84654

http://www.pruebascesm.es/community/profile/hayleyeden55196 https://blog.smartdigitalinnovations.com/community/profile/valliefallen… https://e-albam.com/bbs/board.php?bo_table=free&wr_id=136 https://mascd.net/community/profile/shannanclever98/ https://kundurasinema.com/%D1%81%D0%BC%D0%BE%D1%82%D1%80%D0%B5%D1%82%D1… https://minibizz.site/community/profile/rosettasixsmith/ https://farrag-group.com/community/profile/isis48m11117265/ http://y8space.com/members-2/francinebrooke/activity/3679590/ https://dici.ci/forum/profile/abbeyskirving73/ https://bolsatil.com/foro-bolsa/profile/cierragarth0965/ https://amyyuan.ca/community/profile/eugenevalentine/ http://apcav.org/foro/profile/teodororede5774/ https://foro.atalaya-vigia.es/index.php/profile/natishasharland/ https://forum.prokfa.go.th/community/profile/daniellahornsby/ https://shilohanewbeginningapostolicministry.com/community/profile/abbi… https://plan2cost.com/community/profile/sommersharwood/ http://rollshutterusa.com/?option=com_k2&view=itemlist&task=user&id=315… https://topcatsnj.org/community/profile/mariussery0211/ https://jeffreyweinhaus.com/forum/profile/ashleemalloy704/ https://guclendirilmisparlementersistem.tc/%d0%bf%d1%8b%d0%bb%d1%8c%d0%…

writing rhetorical analysis essay n55pij

Factor clearly regarded.!
essay writing help for high school students [url=https://freshapps.space]https://freshapps.space/[/url] help writing a speech

wtesf205

pa80007

gestionale.betwin

betwin360 tornei poker <a href=http://rpmotorsport.org/41-2/>betwin360 bonus casino</a> gestionale.betwin360 https://casualgaming.biz/betwin360-la-soluzione-di-gioco-per-voi/ gestionale.betwin betwin360 mobile http://galactic-citizen.com/proxy.php?link=http://murkymask.com/betwin3… betwin360 slot betwin360 app android download

betwin 360

betwin360 app <a href=https://aeroporto-malpensa.com/uncategorized/betwin360-casino-la-miglio… gestionale</a> betwin360 app ios https://tribunalesciacca.it/uncategorized/betwin360-perche-dovresti-isc… betwin360 app android download betwin360 tornei poker http://www.fullyfashionednylons.eu/__media__/js/netsoltrademark.php?d=o… betwin gestionale betwin360 app android

betwin360 app casino

360 scommesse <a href=http://rpmotorsport.org/41-2/>betwin360 bonus casino</a> bet 360 scommesse https://tribunalesciacca.it/uncategorized/betwin360-perche-dovresti-isc… betwin 360 betwin360 bonus casino http://9db.love.areg.biz/ru/external-redirect?link=http://vetnurseblog… betwin360 poker betwin gestionale

1х бет

1 икс бет <a href=https://www.candela.cn/1x-guess-on-line-casino-and-sportsbook-evaluate/… xbet</a> 1 икс бет https://gfx-tools.com/blog/1xbet-casino-review-2022/ 1bet зеркало 1bet зеркало http://sovtest-ate.ru/bitrix/rk.php?goto=http://davidgagnonblog.tribefa… 1 хбэт 1 икс бет

hdrhe695

ek59134

https://jeffreyweinhaus.com/forum/profile/chesterx3175812/ https://thefencefilm.co.uk/community/profile/julietferro3713/ http://elitewm.onlining.ru/forum/profile/eztkeisha28248/ https://forum.prokfa.go.th/community/profile/collinologhlen8/ http://kadioglukoyu.com/index.php/community/profile/lorettamauger3/ https://printforum.com.au/community/profile/jonellekitson41/ https://financialjoyschool.com/community/profile/thanhkelso5716/ https://buyiphone.com.au/community/profile/goqjaimie420294/ https://engineeringroundtable.com/%d0%b6%d0%b8%d0%b7%d0%bd%d1%8c-%d0%ba… https://forum.lah.ru/community/profile/bettieborthwick/ https://onlyinsedona.com/community/profile/ethandelmonte20/ https://www.thesmilecraft.com/%D1%82%D1%83%D1%80%D0%B5%D1%86%D0%BA%D0%B… https://kenoshaultralightclub.org/community/profile/trisha57w718840 https://amyyuan.ca/community/profile/bettyeshrader17/ https://skiwakeboat.com/community/profile/lavonnez2888179/ https://tuffclassified.com/user/profile/Shayna14I9 https://ottawa.twistlist.org/user/profile/266516 https://richeoupauvre.com/community/profile/romainebecnel2/ https://forum.prokfa.go.th/community/profile/aurorasawtell62/ http://m-vest.ru/wordpress/community/profile/josefaowsley364/ https://33dipl.online/profile/merihamlet23672/

teach me how to write an essay r258bx

Wow plenty of amazing facts!
ordering prescriptions from canada legally <a href="https://northwestpharmacylabs.com/#">canadian pharmacy online canada</a> canadian drugs pharmacies online