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

 

Comments

ponosolution (not verified)

Sat, 07/03/2021 - 22:08

In reply to by AmeliaChity (not verified)

thealcoveco (not verified)

Mon, 07/05/2021 - 19:33

In reply to by AmeliaChity (not verified)

marianbader (not verified)

Tue, 07/06/2021 - 23:59

In reply to by AmeliaChity (not verified)

<a href="http://www.lazyboyz.net/nike-jr-phantom-3-academy-df-fg-billig-booto">n… jr phantom 3 academy df fg billig</a> <a href="http://www.roswalien.net/nike-chicago-bears-94-leonard-floyd-navy-blue-… chicago bears 94 leonard floyd navy blue orange mens stitched nfl elite fadeaway fashion jersey</a> <a href="http://www.fosback.net/best-kit-dls-for-cheap-nfls">best kit dls for cheap</a> <a href="http://www.hapustahl.net/blue-red-white-nike-tiempo-legend-v-scarpeuk">… red white nike tiempo legend v</a> <a href="http://www.thevoliste.net/nike-air-lava-dome-2.4-black-and-grey-running… air lava dome 2.4 black and grey</a> <a href="http://www.trialsuk.net/nike-running-shoes-cheap-all-grey-shoes-running… running shoes cheap all grey shoes</a>
rootlaw http://www.rootlaw.net/

<a href="http://www.baharanit.net/air-jordan-6-rings-black-shoes-for-discount-sc… jordan 6 rings black shoes for discount</a> <a href="http://www.etuevt.com/women-air-jordan-11-black-gold-shoes-on-sale-bill… air jordan 11 black gold shoes on sale billig</a> <a href="http://www.corsicactus.com/nike-womens-free-3.0-v4-blue-grey-yellow-bil… womens free 3.0 v4 blue grey yellow billig</a> <a href="http://www.sarahtkaye.net/nike-air-force-1-low-supreme-year-of-the-drag… air force 1 low supreme year of the dragon billig</a> <a href="http://www.consival.com/jordan-1-black-and-pink-for-cheap-schuheuk">jor… 1 black and pink for cheap</a> <a href="http://www.metrofoods.net/redskins-winter-hat-for-eu-hands">redskins winter hat for eu</a>
lazyboyz http://www.lazyboyz.net/

AldenpocA (not verified)

Tue, 04/13/2021 - 03:08

Jeff Byrne from Whittier was looking for special procedure technologist resume

Ridge White found the answer to a search query special procedure technologist resume

<b><a href=https://essayerudite.com>special procedure technologist resume</a></b>

<a href=https://essayerudite.com><img src="http://essayerudite.com/images/banner/500x500.jpg"></a&gt;

<a href=http://forum.apiakademie.com/memberlist.php?mode=viewprofile&u=9742>sam… subdivision coordinator resume</a>
<a href=http://browncoatbrassband.org/phpBB3/memberlist.php?mode=viewprofile&u=… manager resume template</a>
<a href=https://forum.khonkaenlink.info/index.php?topic=17803429.new#new>senior internal auditor sample resume</a>
<a href=http://nutesca.com/blog/2017/05/11/las-lluvias-de-mayo-de-2017/#comment… objctive examples</a>
<a href=http://igf-ua.org/forum/memberlist.php?mode=viewprofile&u=2900>the tempest scholar essays</a>
<a href=http://www.faokoo.com/forum.php?mod=viewthread&tid=2026&pid=506298&page… typeface</a>
<a href=https://forum.devnagri.com/posting.php?mode=reply&f=102&t=56&sid=37eb67… pharmaceutical resume</a>
<a href=http://aromaventvert.heteml.jp/clubks.com/modules/newbb/viewtopic.php?t… email cover letter to recruiter</a>
<a href=https://tochigi-fudosan.com/sale/form.php>ru thesis</a>
<a href=https://pragatileadership.com/blog/difference-coaching-consulting>thesis ecommerce wordpress</a>
<a href=http://forums.gotitneeditgotit.com/memberlist.php?mode=viewprofile&u=10… essay qualities to look for in a friend</a>
<a href=https://forum.cryptarch.wiki/memberlist.php?mode=viewprofile&u=3235>tha… for essays</a>
<a href=http://releasetheanxiety.jason-palmer.com/memberlist.php?mode=viewprofi… maven build</a>
<a href=http://martins-family.org/mb/memberlist.php?mode=viewprofile&u=112021>t… on motivational techniques</a>
<a href=http://vitalerassen.be/forum/showthread.php?tid=434841>syosset public library homework help</a>
<a href=http://revolvr.co/forum/memberlist.php?mode=viewprofile&u=179>sample resume for work experience</a>
<a href=http://gangsterleague.000webhostapp.com/forum/viewtopic.php?f=3&t=38102… essay conclusion</a>
<a href=http://kalioko.hu/forum/memberlist.php?mode=viewprofile&u=8280>sample postdoc cover letter psychology</a>
<a href=http://outreachtrainers.eu/showthread.php?tid=5046&pid=544422#pid544422… research proposal international law</a>
<a href=https://shrunken-women-board.com/phpBB3/memberlist.php?mode=viewprofile… writing letter of interest</a>
<a href=https://forum.lsbclan.net/index.php?topic=68839.new>sample mla research paper in text citations</a>
<a href=http://3steppers.com/phpBB3/memberlist.php?mode=viewprofile&u=31509>res… structural engineer canada</a>
<a href=https://www.winghelper.com/forum_de/memberlist.php?mode=viewprofile&u=7… cell research essays</a>
<a href=http://www.velejando.com.br/viewtopic.php?f=1&t=12976&p=146111#p146111>… business plan</a>
<a href=http://www.attrage-club.com/go.php?url=aHR0cHM6Ly9lc3NheWVydWRpdGUuY29t… job resume tips</a>
<a href=http://www.pushenbbs.com/home.php?mod=space&uid=480334>sample definition essay - freedom</a>
<a href=http://www.jambforum.com/cgi-bin/forum.pl?board=admission>scope of thesis sample</a>
<a href=http://forum.dvaslona.com/memberlist.php?mode=viewprofile&u=14655>resume ngo</a>
<a href=http://elgo.studovna.net/memberlist.php?mode=viewprofile&u=31120>sample customer satisfaction survey cover letter</a>
<a href=https://rcvendors.com/memberlist.php?mode=viewprofile&u=2195>sample resume experienced web designer</a>
<a href=http://sugiyamaga.x10host.com/memberlist.php?mode=viewprofile&u=3930>te… recruiter cover letter sample</a>
<a href=http://forum.spormerkez.im/memberlist.php?mode=viewprofile&u=17304>study teens homework television</a>

BrantCire (not verified)

Tue, 04/13/2021 - 03:08

Hakeem Rogers from Worcester was looking for health care administrator resume templates

Julio Warren found the answer to a search query health care administrator resume templates

<b><a href=https://essayerudite.com>health care administrator resume templates</a></b>

<a href=https://essayerudite.com><img src="http://essayerudite.com/images/banner/500x500.jpg"></a&gt;

<a href=http://forums.animeusa.org/memberlist.php?mode=viewprofile&u=27594>fred… jackson turner frontier thesis criticism</a>
<a href=http://forum.uruworks.net/memberlist.php?mode=viewprofile&u=259>essay on trees in gujarati</a>
<a href=http://lesclassesdurock.be/forum/viewtopic.php?f=4&t=469702>essay about technology nowadays</a>
<a href=http://www.qmgongshe.com/thread-32077-1-1.html>graves of infants poetry essay</a>
<a href=http://poolz.com/forums/9/5325>famous people to research</a>
<a href=http://forum.bigcybergames.com/memberlist.php?mode=viewprofile&u=7238>f… of identity essay</a>
<a href=http://internetsupertools.com/community/threads/free-english-essay-book… english essay books</a>
<a href=http://kvakic.com/naturalbornkillers.us/memberlist.php?mode=viewprofile… essays on judiasm</a>
<a href=https://hachioji-shinchiku.com/sale/form.php>free research paper on ibm</a>
<a href=http://17makemoney.com/forum/memberlist.php?mode=viewprofile&u=214>exam… of career goal essays</a>
<a href=http://clips.tj/user/BrantRab/>essay sites scams</a>
<a href=http://clips.tj/user/BrantRab/>essay on pearl harbor movie</a>
<a href=http://worcesterfamily.com/phpbb/memberlist.php?mode=viewprofile&u=2175… instructor resume</a>
<a href=http://wirtschaftsfraktion.de/memberlist.php?mode=viewprofile&u=113>exec asst sample resume</a>
<a href=https://wom3d.com/forum/memberlist.php?mode=viewprofile&u=104>essay prizes doctors</a>
<a href=https://hongkong-mart.com/forum/memberlist.php?mode=viewprofile&u=10091… cover letter tips</a>
<a href=http://www.gari.pk/cars-motors/member/Brantnabs/>essay on social life and personality</a>
<a href=https://planetbarbarus66.net/member.php?u=990333>global environmental crisis+essay</a>
<a href=https://www.chicocarealestate.net/author/brantea/>essays types love</a>
<a href=https://equalitytriangle.org/home/forums/topic/university-of-texas-home… un resume de these</a>
<a href=http://uufscc.org/myBB/member.php?action=profile&uid=278>grading criteria essays</a>
<a href=https://www.diynot.us/threads/essay-typical-work-day.615622/>essay typical work day</a>
<a href=https://www.consumer.org.hk/ws_en/cc-enquiry/form.php>essay definition success</a>
<a href=http://ponaehali.us/memberlist.php?mode=viewprofile&u=342>example of bibliography in research paper apa</a>
<a href=https://forum23.de/memberlist.php?mode=viewprofile&u=3170>example of an essay in turabian format</a>
<a href=http://gamecredits.net/phpbb/memberlist.php?mode=viewprofile&u=39775>fr… essays on mozart</a>
<a href=http://www.candabarry.com/forums/memberlist.php?mode=viewprofile&u=2286… introductory paragraphs research papers</a>
<a href=http://k954978z.beget.tech/memberlist.php?mode=viewprofile&u=208>free resume listings for litigation technology professionals</a>
<a href=http://myanmar.put2me.com/index.php?topic=107925.new#new>essay on the glass menagerie by tennessee williams</a>
<a href=https://forum.isotel.net/member.php?action=profile&uid=438>essayer des lentilles de couleurs</a>
<a href=http://strabisme.fr/phpBB3/memberlist.php?mode=viewprofile&u=25557>essay about modern drama</a>
<a href=https://www.gw2.fr/user/6108/brantler>essay on names</a>
<a href=http://chen2578.com/forum.php?mod=viewthread&tid=58042&pid=327068&page=… importance reading habit</a>
<a href=http://asegmentforum.nl/memberlist.php?mode=viewprofile&u=4621>essays love examples</a>
<a href=http://www.sexfetishforum.com/index.php?action=profile;u=132148>essay on internet advantages and disadvantages in hindi</a>
<a href=http://hardx.org/forum/memberlist.php?mode=viewprofile&u=221335>essays on the bowl championship series</a>
<a href=http://www.lxym5.com/home.php?mod=space&uid=631324>free resume cretor teacher</a>
<a href=http://forum.qm-s.com/memberlist.php?mode=viewprofile&u=3308>glynn cyprien resume</a>
<a href=https://www.blackhatway.com/index.php?topic=167499.new#new>fill in the blank free resume</a>
<a href=http://creativecommercialsolutions.com/memberlist.php?mode=viewprofile&… on puck from a midsummer night's dream</a>
<a href=http://customingenuity.org/viewtopic.php?pid=507091#p507091>french revolution cause and effect essay</a>
<a href=http://globalliance.info/memberlist.php?mode=viewprofile&u=1062>free persuasive essay samples</a>

<a href="http://www.bachillere.net/asics-gel-gris-and-jaune-schoenenuk">asics gel gris and jaune</a> <a href="http://www.estiahalkis.com/mariners-blank-white-cool-base-stitched-yout… blank white cool base stitched youth mlb jersey</a> <a href="http://www.climpact.net/youth-nike-dallas-cowboys-derrick-dockery-75-ga… nike dallas cowboys derrick dockery 75 game navy blue throwback jersey sale</a> <a href="http://www.marianbader.com/air-foamposite-one-lunar-new-year-2018-billi… foamposite one lunar new year 2018 billig</a> <a href="http://www.mvaesthetic.com/velvet-retro-12-billig-obuvla">velvet retro 12 billig</a> <a href="http://www.nogodband.net/nike-chicago-bears-9-robbie-gould-blue-elite-j… chicago bears 9 robbie gould blue elite jersey</a>
[url=http://www.universant.net/]universant[/url]

<a href="http://www.sppmis.com/nike-free-trainer-5.0-royal-bianca-chaussuresl">n… free trainer 5.0 royal bianca</a> <a href="http://www.valudo.net/women-nike-san-francisco-49ers-54-larry-grant-lim… nike san francisco 49ers 54 larry grant limited white nfl jersey sale</a> <a href="http://www.bbcnorman.net/game-eric-decker-youth-jersey-denver-broncos-8… eric decker youth jersey denver broncos 87 alternate navy blue super bowl 50 bound nfl</a> <a href="http://www.bocksberg.com/womens-henley-long-sleeve-shirt-polod">womens henley long sleeve shirt</a> <a href="http://www.cwmipl.com/philadelphia-phillies-bucket-hat-order-hath">phil… phillies bucket hat order</a> <a href="http://www.pionierzeit.net/jordan-six-rings-negro-and-blanco-sneakeres"… six rings negro and blanco</a>
[url=http://www.codehard.net/]codehard[/url]

<a href="http://www.eatngo.net/spain-red-grey-air-jordan-12-shoes-billig-running… red grey air jordan 12 shoes billig</a> <a href="http://www.mohawarean.com/2013-super-bowl-new-nfl-jerseys-san-francisco… super bowl new nfl jerseys san francisco 49ers 99 aldon smith white jerseys limited with hall of fame 50th patch jerseys</a> <a href="http://www.longhornsup.com/adidas-ultra-boost-clima-95-billig-scarpeuk"… ultra boost clima 95 billig</a> <a href="http://www.rootlaw.net/air-jordan-future-jimmy-jazz-runninges">air jordan future jimmy jazz</a> <a href="http://www.einspurauto.com/nike-magista-obra-2013-dailymotion-billig-ru… magista obra 2013 dailymotion billig</a> <a href="http://www.tomboone.net/toddler-carolina-panthers-jersey-dressb">toddler carolina panthers jersey</a>
[url=http://www.staygmi.com/]staygmi[/url]

oeroqep (not verified)

Tue, 04/13/2021 - 03:09

The iro.kuks.parkerbeck.me.cnb.ko suffered [URL=http://sketchartists.net/valtrex/]valtrex canada[/URL] valtrex cost [URL=http://eyogsupplements.com/product/amoxil/]cheap amoxil online without prescription[/URL] [URL=http://eyogsupplements.com/product/nizagara/]buy nizagara online[/URL] [URL=http://thatpizzarecipe.com/product/tadalafil/]but tadalafil in us[/URL] [URL=http://gaiaenergysystems.com/discount-prices-for-retin-a/]retin a cheapest lowest price[/URL] [URL=http://refrigeratordealers.com/buy-hydroxychloroquine-online-in-uk/]hyd… no prescription montreal[/URL] [URL=http://gaiaenergysystems.com/pharmacy-fast-deliery/]pharmacy generic prices[/URL] [URL=http://worldcomtitlecorp.com/propecia/]buy cheap propecia canada[/URL] [URL=http://columbiainnastoria.com/lasix-online/]buy lasix on line[/URL] [URL=http://thegrizzlygrowler.com/drug/viagra/]viagra buy[/URL] [URL=http://thegrizzlygrowler.com/drug/pharmacy-prices-for-amoxil/]amoxil without buy prescription[/URL] [URL=http://ralstoncommunity.org/sildigra/]best price sildigra[/URL] [URL=http://refrigeratordealers.com/isotretinoin/]isotretinoin european[/URL] [URL=http://gaiaenergysystems.com/item/buying-levitra-without-prescription/]…] [URL=http://refrigeratordealers.com/retalis-propecia/]propecia fda approval[/URL] verbal <a href="http://sketchartists.net/valtrex/">valtrex lowest price</a> <a href="http://eyogsupplements.com/product/amoxil/">amoxil</a&gt; <a href="http://eyogsupplements.com/product/nizagara/">nizagara cheap</a> <a href="http://thatpizzarecipe.com/product/tadalafil/">tadalafil</a&gt; <a href="http://gaiaenergysystems.com/discount-prices-for-retin-a/">nonprescript… retin a australia</a> <a href="http://refrigeratordealers.com/buy-hydroxychloroquine-online-in-uk/">buy cheapest hydroxychloroquine online</a> <a href="http://gaiaenergysystems.com/pharmacy-fast-deliery/">where to buy pharmacy</a> <a href="http://worldcomtitlecorp.com/propecia/">propecia discount online</a> <a href="http://columbiainnastoria.com/lasix-online/">lasix online</a> <a href="http://thegrizzlygrowler.com/drug/viagra/">price of viagra</a> <a href="http://thegrizzlygrowler.com/drug/pharmacy-prices-for-amoxil/">amoxil</…; <a href="http://ralstoncommunity.org/sildigra/">generic sildigra online</a> <a href="http://refrigeratordealers.com/isotretinoin/">buy low cost generic isotretinoin</a> <a href="http://gaiaenergysystems.com/item/buying-levitra-without-prescription/"…; <a href="http://refrigeratordealers.com/retalis-propecia/">non-prescription propecia</a> syrinxes, digoxin http://sketchartists.net/valtrex/ valtrex http://eyogsupplements.com/product/amoxil/ to get amoxil http://eyogsupplements.com/product/nizagara/ nizagara online http://thatpizzarecipe.com/product/tadalafil/ buy tadalafil cheap online http://gaiaenergysystems.com/discount-prices-for-retin-a/ buy retin-a overnight http://refrigeratordealers.com/buy-hydroxychloroquine-online-in-uk/ cheap hydroxychloroquine canada http://gaiaenergysystems.com/pharmacy-fast-deliery/ pharmacy http://worldcomtitlecorp.com/propecia/ best cheapest way to get propecia propecia online american http://columbiainnastoria.com/lasix-online/ lasix online lasix without an rx http://thegrizzlygrowler.com/drug/viagra/ price of viagra http://thegrizzlygrowler.com/drug/pharmacy-prices-for-amoxil/ cheapest generic amoxil 650 mg buy amoxil 500 mg no prescription http://ralstoncommunity.org/sildigra/ sildigra commercial on line sildigra http://refrigeratordealers.com/isotretinoin/ buying isotretinoin from canada http://gaiaenergysystems.com/item/buying-levitra-without-prescription/ where to purchase levitra cheep levitra http://refrigeratordealers.com/retalis-propecia/ propecia optimum dosage patches: indicates, eradicate.

<a href="http://www.lazyboyz.net/nike-hypervenom-jr-phantom-billig-runninges">ni… hypervenom jr phantom billig</a> <a href="http://www.roswalien.net/phillies-8-juan-samuel-cream-flexbase-authenti… 8 juan samuel cream flexbase authentic collection stitched mlb jersey</a> <a href="http://www.fosback.net/nike-magista-opus-academy-ltd-billig-trainersde"… magista opus academy ltd billig</a> <a href="http://www.hapustahl.net/nike-shox-oz-801-grey-purple-shoes-on-sale-cha… shox oz 801 grey purple shoes on sale</a> <a href="http://www.thevoliste.net/nike-kd-10-mens-red-and-black-shoes-trainersd… kd 10 mens red and black shoes</a> <a href="http://www.trialsuk.net/nike-flyknit-men-cheap-white-and-blue-shoes-sho… flyknit men cheap white and blue shoes</a>
gastropol http://www.gastropol.net/

<a href="http://www.gemzboh.net/air-jordan-23-schuhe-schwarz-sneakerca">air jordan 23 schuhe schwarz</a> <a href="http://www.techgrowth.net/limited-dan-orlovsky-youth-jersey-detroit-lio… dan orlovsky youth jersey detroit lions 8 alternate blue nfl</a> <a href="http://www.cellofire.net/mens-chicago-blackhawks-10-patrick-2015-stanle… chicago blackhawks 10 patrick 2015 stanley cup sharp digital camo veterans day practice jersey</a> <a href="http://www.billgood.net/upcoming-air-force-1-2019-billig-sneakeres">upc… air force 1 2019 billig</a> <a href="http://www.ecoelec.net/air-revolution-sky-hi-negro-plata-schoenenuk">air revolution sky hi negro plata</a> <a href="http://www.lewislabel.net/elite-darnell-dockett-womens-jersey-arizona-c… darnell dockett womens jersey arizona cardinals 90 road white nfl</a>
wortvoll http://www.wortvoll.net/

Add new comment

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.
  • Web page addresses and email addresses turn into links automatically.