something 4 nothing

Blitz3D Forums/Blitz3D Beginners Area/something 4 nothing

Diablo (Posted 2005) [#1]

i currently have too many projects on the go at once so here are a few free source code files. http://www.diablogames.133h.co.uk/All.zip mp - MAD Pacman - a 3d pac man clone - all most complete with map editor mt - MAD Trukers - a 3D truck racining game - basic foundations laid. mc - MAD Crash - toon shaded filght game kc - Kingdom cards - a card game fs - Flight strike - almost complete game with map editor Do whatever you want with them but i would prefer it if you could try and complete them. and metion me in the credits ;). see ya,

daaan (Posted 2005) [#2]

Wow, thank you. You like cel shading don't you? Good work.

Diablo (Posted 2005) [#3]

i did have a time when i did, it seemed easier to do the graphics. oh, and keep me posted on what you did with the code ;)

Pongo (Posted 2005) [#4]

I'm curious about your card game, but it's missing an include,... any chance of posting that too?

Diablo (Posted 2005) [#5]

ok here is the file... ;================================= ; Cards.bb ; Include file Kingdom Cards.bb ;================================= ; Load all the card images Global Card_Effect_Image Global Card_Overlay_Image Global Card_Enemy_Image Global Card_Friend_Image Global Card_Item_Image Global Card_Magic_Image Global Card_Rare_Image Global Card_Weapon_Image Global Card_Map01_Image Global Card_Map02_Image Global Card_Map03_Image Global Card_Map04_Image ; Card Types Type Card Field Name$ Field Identity% Field Back% End Type Global Card.Card ; Load the card images Function LoadCardImages() Card_Effect_Image = LoadAnimImage("Graphics\Cards_Effects.bmp", 28, 39, 0, 5): MaskImage Card_Effect_Image, 255, 0, 255 Card_Overlay_Image = LoadAnimImage("Graphics\Cards_Overlay.bmp", 28, 39, 0, 10): MaskImage Card_Overlay_Image, 255, 0, 255 Card_Enemy_Image = LoadAnimImage("Graphics\Cards_Enemy.bmp", 26, 28, 0, 49): MaskImage Card_Enemy_Image, 255, 0, 255 Card_Friend_Image = LoadAnimImage("Graphics\Cards_Friends.bmp", 26, 28, 0, 8): MaskImage Card_Friend_Image, 255, 0, 255 Card_Item_Image = LoadAnimImage("Graphics\Cards_Items.bmp", 26, 28, 0, 8): MaskImage Card_Item_Image, 255, 0, 255 Card_Magic_Image = LoadAnimImage("Graphics\Cards_Magic.bmp", 26, 28, 0, 14): MaskImage Card_Magic_Image, 255, 0, 255 Card_Rare_Image = LoadAnimImage("Graphics\Cards_Rare.bmp", 26, 28, 0, 16): MaskImage Card_Rare_Image, 255, 0, 255 Card_Weapon_Image = LoadAnimImage("Graphics\Cards_Weapons.bmp", 26, 28, 0, 18): MaskImage Card_Weapon_Image, 255, 0, 255 Card_Map01_Image = LoadAnimImage("Graphics\Cards_Map01.bmp", 26, 28, 0, 9): MaskImage Card_Map01_Image, 255, 0, 255 Card_Map02_Image = LoadAnimImage("Graphics\Cards_Map02.bmp", 26, 28, 0, 7): MaskImage Card_Map02_Image, 255, 0, 255 Card_Map03_Image = LoadAnimImage("Graphics\Cards_Map03.bmp", 26, 28, 0, 6): MaskImage Card_Map03_Image, 255, 0, 255 Card_Map04_Image = LoadAnimImage("Graphics\Cards_Map04.bmp", 26, 28, 0, 4): MaskImage Card_Map04_Image, 255, 0, 255 End Function ; Load the card data base Function LoadCardDataBase() For i = 0 To 48 Card = New Card Card\Name = "???? (Enemey)" Card\Identity = i Card\Back = 0 Next For i = 49 To 56 Card = New Card Card\Name = "???? (Friend)" Card\Identity = i - 49 Card\Back = 1 Next For i = 57 To 64 Card = New Card Card\Name = "???? (Item)" Card\Identity = i - 57 Card\Back = 2 Next For i = 65 To 78 Card = New Card Card\Name = "???? (Magic)" Card\Identity = i - 65 Card\Back = 3 Next For i = 79 To 93 Card = New Card Card\Name = "???? (Rare)" Card\Identity = i - 78 Card\Back = 4 Next For i = 94 To 111 Card = New Card Card\Name = "???? (Weapon)" Card\Identity = i - 94 Card\Back = 5 Next For i = 112 To 120 Card = New Card Card\Name = "???? (Map 01)" Card\Identity = i - 112 Card\Back = 6 Next For i = 121 To 127 Card = New Card Card\Name = "???? (Map 02)" Card\Identity = i - 121 Card\Back = 7 Next For i = 128 To 133 Card = New Card Card\Name = "???? (Map 03)" Card\Identity = i - 128 Card\Back = 8 Next For i = 133 To 136 Card = New Card Card\Name = "???? (Map 04)" Card\Identity = i - 133 Card\Back = 9 Next End Function ; Draw a card Function DrawCard(c.Card, X#, Y#) Select Card\Back Case 0: DrawImage(Card_Enemy_Image, X + 2, Y + 11, Card\Identity) Case 1: DrawImage(Card_Friend_Image, X + 2, Y + 11, Card\Identity) Case 2: DrawImage(Card_Item_Image, X + 2, Y + 11, Card\Identity) Case 3: DrawImage(Card_Magic_Image, X + 2, Y + 11, Card\Identity) Case 4: DrawImage(Card_Rare_Image, X + 2, Y + 11, Card\Identity) Case 5: DrawImage(Card_Weapon_Image, X + 2, Y + 11, Card\Identity) Case 6: DrawImage(Card_Map01_Image, X + 2, Y + 11, Card\Identity) Case 7: DrawImage(Card_Map02_Image, X + 2, Y + 11, Card\Identity) Case 8: DrawImage(Card_Map03_Image, X + 2, Y + 11, Card\Identity) Case 9: DrawImage(Card_Map04_Image, X + 2, Y + 11, Card\Identity) End Select DrawImage(Card_Overlay_Image, X, Y, Card\Back) End Function ; Draws all the cards (for checking ONLY) Function DrawAllCards() x = 0: y = 0: delmsg = True For Card = Each Card If x > 21 Then x = 0 y = y + 1 EndIf DrawCard(Card, x * 28, y * 39) If ImagesCollide(Mouse_Image, MouseX(), MouseY(), 0, Card_Enemy_Image, x * 28, y * 39, 0) Then DrawMsg("Card Name: " + Card\name, 320, 400, True, True) delmsg = False Else If delmsg = True Then For MsgBox = Each MsgBox Delete MsgBox Next EndIf EndIf x = x + 1 Next End Function nothing fancy. If you choose continue from the menu it should draw all the cards. I have another source file here. it is the most complete so far however it is 2d. http://www.diablogames.133h.co.uk/htasimp.zip This game allows you to explore your hard drive in a very different way. thier was going to be an anim to the game however as it stands thier isn't so you can make it up. the idea was that your PC would determain who the story evoles. at the mo it has a very basic upgrade system in place but its a start and can easily be updated. also the name and graphics could do with updateding too.