#146 - The Card Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|541\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #146 - The Card Challenge
Tue, 08 Apr 2008, 16:46
Jayenkai	Wednesday Workshop #146 : The Card Challenge Time until Deadline Week : 9 April 2008 The Reason : No reason! The Challenge : Create a card game! Extra Info You can either hunt for a set of card images, make your own card images, or use either of the two in here Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. (I really should get round to that Upload thing, shouldn't I!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and then entered into the next week's voting. (If there are any entries..) Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Two entries again! Which wins? A Flyswatter, or a Biscuit!? You Decide -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 05:27
Jayenkai	Quicky card dealing/shuffling example for those of you who can't be bothered to do that.. Feel free to use it however you wish. Graphics 800,600,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim Deck(57) : For n=1 To 57:deck(n)=LoadImage("system/146/"+Right$("000"+n,3)+".png"):MaskImage deck(n),255,0,255:Next Dim Card(568) ; Holds cards Global CardAt,CardMax,Shuffled Global Jokers=2 ; <-- How many jokers are in each deck. ; (0-4) - if you go above 4, you get "5th = back of card, 6th = errrrrorooooorrrzzz!" Global Decks=1 ; <-- How many decks are shuffled together. ; ie, in casino rules they usually shuffle 4 decks together to make larger, less countable cards. ; (1-8) - if you go below it'll break, go above and it'll level out to the max! Dim Hand(9,5) ; 9 players, 5 cards For x=1 To 9:For y=1 To 5:hand(x,y)=57:Next:Next ; Set them all face down.. (sprite 57 = face down card) Repeat Cls For n=1 To 5 DrawImage Deck(hand(1,n)),n24+50,50 DrawImage Deck(hand(2,n)),n24+300,50 DrawImage Deck(hand(3,n)),n24+550,50 DrawImage Deck(hand(4,n)),n24+50,250 DrawImage Deck(hand(5,n)),n24+300,250 DrawImage Deck(hand(6,n)),n24+550,250 DrawImage Deck(hand(7,n)),n24+50,450 DrawImage Deck(hand(8,n)),n24+300,450 DrawImage Deck(hand(9,n)),n24+550,450 Next If MouseHit(1) Then For y=1 To 5:For x=1 To 9:hand(x,y)=NextCard():Next:Next ; Deal cards like a crazy mule! Flip Until KeyDown(1) Function NextCard() ; Returns 1-(52+Jokers), which can be used directly with the sprites loaded.. (assuming 1-52 = cards, 53-56 = jokers and 57 = back of card) If CardAt>CardMax Or Shuffled=0 Then Shuffle() out=Card(CardAt) CardAt=CardAt+1 Return out End Function Function Shuffle() Local temp_i_1,temp_i_2 cards=(52+Jokers)Decks :If cards>568 Then cards=56*8 ; Stick the cards into the deck For n=1 To cards card(n)=(n Mod (52+Jokers))+1 Next ; Shuffle the cards For n=1 To cards temp_i_1=Rand(1,cards) temp_i_2=card(n) card(n)=card(temp_i_1) card(temp_i_1)=temp_i_2 Next ; Reset CardAt+CardMax CardAt=1 CardMax=cards Shuffled=1 End Function --v Note, this assumes that one of the two card image packs (see "Extra Info" section) are in the system/146/ directory.. -=-=- ''Load, Next List!''
Tue, 15 Apr 2008, 16:46
Jayenkai	Dang.. Blame Puzzobomb and Mario Kart for me having not finished my "Super Hyper Anime Snap Warriors" game.. I drew funny little anime-like hands, and did that super flashy "Fast moving action!" background stripe effect, and everything!! Maybe I'll finish it another time! -=-=- ''Load, Next List!''
Wed, 16 Apr 2008, 11:35
Forklift_Fred	That was a fast week! I was going to re-work (and potentially finish!) a game I started in JavaScript years ago (but snap was my first thought ) I just didn't get beyond looking through my old code and wondering whether I'd ever finish my card images... I think this might have been better as a monthly workshop. Or was that just me being distracted? -=-=- Come rain or shine...