Coder's Block - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|600\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Coder's Block
Wed, 22 May 2013, 07:03
Jayenkai	Hmmm.. All my recent games appear to be hitting some kind of roadblock, and I'm not sure why. 1. Patent Wars .. well, I know what's up with this one. It's the same thing that was up with it the last time. I can draw a board, I can draw silly cards, I can draw counters, and get dice going and players moving. But then I need to add all sorts of GUI elements, and menus and options and .. eeeeurgh.. I'd forgotten how shit it is, doing a board game. Ugh... 2. Advanced Cavern Simulator This is pretty much the exact same roadblock. Can imagine what the game should look, but can't be arsed making all those gnatty menus and things to make it happen. Should be a fun game, but won't be until I can't be arsed to make it work. 3. MLG : Microscopic Lifeform Genocide (Microbes 3) Should be fun, but seems to be stuck without any actual gameplay. The microbes are there, the petri dish is there, the shooty thing is there. The microbes spread nicely, the bullets shoot well. .. Then that's it. I'm not sure what the game needs. Maybe powerups, not sure. Just a bit dull to be honest. 4. JNKPlat hmmm.... Unlike the previous three games, this one hasn't even been started yet. Mostly because the one main big element of JNKPlat is probably, more than likely improbable. Monkey has file-access issues, so loading and saving external levels is more than likely a no-go area. This means that, if I DID decide to tackle a JNKPlat, I'd have to do the whole lot in one go. All new game, all new gfx, and all new levels. And enough levels to keep folk entertained, since there wouldn't be an editor. fucksocks!!! There's then the added issue of it having to be touchscreen compatible, which would need (nnngh) onscreen buttons to make it playable. .. JNKPlat needs a complete rethink, and I haven't come up with anything interesting yet. -=-=- ''Load, Next List!''
Thu, 23 May 2013, 10:01
Jayenkai	I relieved today's Coder's Block by doing something completely different. Messy, Messy, Messy, MESSY code.. Lovely end result! Global GridW#,GridH#,GridX,GridY,Gap# Global w#=1920 Global h#=1080 w=w2 h=h2 Global Progress_Step=0 Graphics w/4,h/4,32,2 Graphics w,h,32,3 SetBuffer BackBuffer() Function Progress() Flip Delay 5 Progress_Step=Progress_Step+1 SaveBuffer(BackBuffer(),"Testcard_"+Progress_Step+".bmp") Flip End Function x=0 y=0 z=0 For tx=1 To 16 For ty=1 To 16 If w/tx=Int(w/tx) And h/ty=Int(h/ty) And w/tx=h/ty Then x=tx:y=ty:DebugLog "Same At "+x+","+y:z=Int(w/tx) Next Next If z=0 Then End GridW=z:GridH=z:GridX=x:GridY=y Gap=z/16 ; Add Grid Color(255,255,255) Rect(GridW/2,GridH/2,w-GridW,h-GridH) Color(128,128,128) For x=1 To GridX-1 For y=1 To GridY-1 Rect(((Float(x)-0.5)GridW)+(Gap/2),((Float(y)-0.5)GridH)+(Gap/2),GridW-Gap,GridH-Gap) Next Next ; Add White "Top-Center" Box Color(255,255,255) Rect((w/2)-(GridW1.625),GridH1.1,GridW3.25,GridH0.8) Color(0,0,0) Rect((w/2)-(GridW0.8125),GridH1.25,GridW1.625,GridH.5) Color(0,255,0) Rect((w/2)-(GridW0.2),(GridH1.5)-(GridH0.2),GridW0.4,GridH0.4) ; Thick lines for Center Color(0,0,0) m=0 For n=-Gap/4 To Gap/4 If Float(GridX)/2<>Int(Float(GridX)/2) And n<Gap Line(w/2+n,0,w/2+n,h) EndIf If Float(GridY)/2<>Int(Float(GridY)/2) And n<Gap Line(0,h/2+n,w,h/2+n) EndIf If Float(GridX)/2=Int(Float(GridX)/2) Line((w/2)-(GridW/2)+(n),0,(w/2)-(GridW/2)+(n),h) Line((w/2)+(GridW/2)+(n),0,(w/2)+(GridW/2)+(n),h) EndIf If Float(GridY)/2=Int(Float(GridY)/2) Line(0,(h/2)-(GridH/2)+(n),w,(h/2)-(GridH/2)+(n)) Line(0,(h/2)+(GridH/2)+(n),w,(h/2)+(GridH/2)+(n)) EndIf m=1 Next ; Add Corner Circles dx#=((Float(2)-0.5)GridW) dy#=((Float(2)-0.5)GridH) dw#=GridW dh#=GridH Color(255,255,255) For p=0 To Gap4 For fn#=0 To 720 Line dx+Sin(fn/2)dw,dy-Cos(fn/2)dh,dx+Sin((fn/2)+1)dw,dy-Cos((fn/2)+1)dh Line w-dx+Sin(fn/2)dw,dy-Cos(fn/2)dh,w-dx+Sin((fn/2)+1)dw,dy-Cos((fn/2)+1)dh Line dx+Sin(fn/2)dw,h-dy-Cos(fn/2)dh,dx+Sin((fn/2)+1)dw,h-dy-Cos((fn/2)+1)dh Line w-dx+Sin(fn/2)dw,h-dy-Cos(fn/2)dh,w-dx+Sin((fn/2)+1)dw,h-dy-Cos((fn/2)+1)dh Next dw=dw-0.25 dh=dh-0.25 Next Progress mx=Int(GridX/2.5) my=Int(GridY/2.5) ; Add Black lines to "Outside Edge" Color(0,0,0) x=mx/2 y=my/2 For n=Gap/4 To Gap/2 Line(((Float(1)-0.5)GridW),((Float(y+1)-0.5)GridH)+n,((Float(GridX)-0.5)GridW)-Gap/2,((Float(y+1)-0.5)GridH)+n) Line(((Float(1)-0.5)GridW),((Float(GridY-y)-0.5)GridH)-(n+1),((Float(GridX)-0.5)GridW)-Gap/2,((Float(GridY-y)-0.5)GridH)-(n+1)) Line(((Float(x+1)-0.5)GridW)+n,((Float(1)-0.5)GridH),((Float(x+1)-0.5)GridW)+n,((Float(GridY)-0.5)GridH)-Gap/2) Line(((Float(GridX-x)-0.5)GridW)-(n+1),((Float(1)-0.5)GridH),((Float(GridX-x)-0.5)GridW)-(n+1),((Float(GridY)-0.5)GridH)-Gap/2) Next For n=0-Gap/2 To 0-Gap/4 Line(((Float(1)-0.5)GridW),((Float(y+1)-0.5)GridH)+n,((Float(GridX)-0.5)GridW)-Gap/2,((Float(y+1)-0.5)GridH)+n) Line(((Float(1)-0.5)GridW),((Float(GridY-y)-0.5)GridH)-(n+1),((Float(GridX)-0.5)GridW)-Gap/2,((Float(GridY-y)-0.5)GridH)-(n+1)) Line(((Float(x+1)-0.5)GridW)+n,((Float(1)-0.5)GridH),((Float(x+1)-0.5)GridW)+n,((Float(GridY)-0.5)GridH)-Gap/2) Line(((Float(GridX-x)-0.5)GridW)-(n+1),((Float(1)-0.5)GridH),((Float(GridX-x)-0.5)GridW)-(n+1),((Float(GridY)-0.5)GridH)-Gap/2) Next Progress ; Add Gradient Bars x=mx/2 y=my/2 dx#=((Float(x+1)-0.5)GridW) dy#=((Float(y+1)-0.5)GridH) dw#=GridW dh#=h-(dy2) dx=dx+Gap/2 dw=dw-Gap dy=dy+Gap/2 dh=dh-Gap nh#=dh/6 For n=0 To 5 d#=235-(Float(n)47) Color(d,d,d) Rect(dx,dy+nhn,dw,nh) For nx#=0 To dw-2 s#=(360((n+4)2))+90 s=s/dw d=128-Cos(nxs)128 If d<0 Then d=0 If d>255 Then d=255 Color(d,d,d) Rect(w-(dx+nx),dy+nhn,2,nh) Next Next cx#=dx+(dw/2) cy#=dy+(nh/2) Color(255,255,255) Oval(cx-nh/4,cy-nh/4,nh/2,nh/2) Progress ; Add Diagonal Cross x1=(w/2)+(Sin(-45)(w5)) y1=(h/2)-(Cos(-45)(w5)) x2=(w/2)-(Sin(-45)(w5)) y2=(h/2)+(Cos(-45)(w5)) DebugLog x1+","+y1+","+x2+","+y2 Color(255,255,255) For mm#=-GridW2 To GridW2 Color(255,255,255) If mm>0-(GridW1.8) And mm<GridW1.8 v#=GridW/3 ee=mm Mod v If ee<0 Then ee=v+ee If ee<(v0.75) Then Color(0,0,0) EndIf Line(x1+(mm/4),y1,x2+(mm/4),y2) Line(w-(x1+(mm/4)),y1,w-(x2+(mm/4)),y2) Next Progress ; Colors around Edge u#=w/8 v#=(h-GridH)/6 vv#=(h-GridH)/5 For x=0 To 8 ; Top Select x Case 0,8 Color(255,255,255) Case 1 Color(255,255,0) Case 2 Color(0,255,255) Case 3 Color(0,255,0) Case 4 Color(255,0,255) Case 5 Color(255,0,0) Case 6 Color(0,0,255) Case 7 Color(0,0,0) End Select Rect u(Float(x)-0.5),0,u,GridH/2 ; Right If x>0 And x<8 Rect w-(GridW/2),((Float(x-1))v)+(GridH/2)+(Gap2),GridW/2,v-(Gap4) EndIf ; Left If x>0 And x<6 Select x Case 1 Color(18,157,126) Case 2 Color(235,94,126) Case 3 Color(0,0,0) Case 4 Color(126,115,237) Case 5 Color(126,135,16) End Select Rect 0,((Float(x-1))vv)+(GridH/2),GridW/2,vv EndIf Next ; Bottom For x=0 To (w/2)-(GridW/2) d#=Float(64)/Float((w/2)-(GridW/2))Float(x) d=d+64 Color(d,d,d) Line(x,h-(GridH/2),x,h) d#=Float(255)/Float((w/2)-(GridW/2))Float(x) d=255-d Color(d,d,d) Line(x,h-(GridH/4),x,h) d#=Float(255)/Float((w/2)-(GridW/2))Float(x) e#=255-d d=d Color(e,d,125) Line(w-x,h-(GridH/2),w-x,h) Color(125,125,e) Line(w-x,h-(GridH/4),w-x,h) Next Progress ; Add Triangles x=w/2 y=0 Color(255,255,255) For mm#=-GridW To GridW Line x,0,x+(mm/4),0+(GridH/2) Line x,h,x+(mm/4),h-(GridH/2) Line 0,h/2,0+(GridW/2),h/2+(mm/4) Line w,h/2,w-(GridW/2),h/2+(mm/4) Next Progress ; Add Circle to Center f#=1.8 oh#=h/f ow#=w/f If ow<oh Then oh=ow Color(255,255,255) Oval((w/2)-(oh/2),(h/2)-(oh/2),oh,oh) oh#=h/(f+0.05) ow#=w/(f+0.05) If ow<oh Then oh=ow Color(0,0,0) Oval((w/2)-(oh/2),(h/2)-(oh/2),oh,oh) Progress ; White Border Color(255,255,255) For n=0 To Gap/2 Line(((Float(1)-0.5)GridW),((Float(1)-0.5)GridH)+n,((Float(GridX)-0.5)GridW)-Gap/2,((Float(1)-0.5)GridH)+n) Line(((Float(1)-0.5)GridW),((Float(GridY)-0.5)GridH)-(n+1),((Float(GridX)-0.5)GridW)-Gap/2,((Float(GridY)-0.5)GridH)-(n+1)) Line(((Float(1)-0.5)GridW)+n,((Float(1)-0.5)GridH),((Float(1)-0.5)GridW)+n,((Float(GridY)-0.5)GridH)-Gap/2) Line(((Float(GridX)-0.5)GridW)-(n+1),((Float(1)-0.5)GridH),((Float(GridX)-0.5)GridW)-(n+1),((Float(GridY)-0.5)*GridH)-Gap/2) Next Progress --v -=-=- ''Load, Next List!''
Mon, 27 May 2013, 04:26
Jayenkai	It's not quite as complex as the above version, mostly due to me not wanting to crap out the system, but I got a nice realtime version of the testcard working in Monkey. This screen will, from here onwards, be used to do some much needed scrolling credits. For reference, I've added resolution figures to the display, too.. Top left being actual res, top right being virtual target res. (the third figures being framerate, left = Update, right = Render) Fairly complex amount of stuff going on, there, and I've yet to test it on Android and iOS, to ensure it all runs smoothly, but.. .. should work ok..!! \|edit\| And, yes.. I have finally gotten around to drawing lower-case letters for the EditUndo font! \|edit\| -=-=- ''Load, Next List!''
Tue, 28 May 2013, 12:36
Jayenkai	So, I started thinking about a Dice based game, and figured I could do with a nice high-definition dice sprite. ... Oh dear.. I don't need a perfect Dice sprite. The sprite that I now have is good enough, and will do the job, so I'm not quite sure why this is annoying the fuck out of me, but.. there we have it!! For the third time in the past week or so, I've found myself going back to Blitz3D. Event number one was to create a nice spinning Beach Ball, which you can find in the latest iOS version of SpikeDislike2. Well, once I'd bothered to reinstall it, it seems I'm finding nothing but uses for the smegging thing. Event number two was to create the great big lovely Testcard Super-Hi-Definition image seen above. Both BlitzMax and Monkey seem to dislike saving images that are bigger than the current resolution, whereas Blitz3D seems to be able to do whatever the fuck you want! Nice Event three... Render a dice. Oh, god, why did I start!? .. Well, I know why I started, I wanted a nice new Dice sprite. But why did I attempt to do a fully rendered 3D movement version? I don't need it!!! Instead, I've stuck to 6 "Face" sprites, and a bunch of randomly rotated "rolling" sprites, which will "do the job".. I don't NEED full rotation!! Fucking Dice.zip! ^ Requires Blitz3D Results in this.. Now, that looks pretty neat, but there's issues. Issue one is obvious once you start looking carefully. Going downwards, the dice rotates to the right. Going across, it rotates down. This is a number quirk, and is easily fixable.. But, take a look at the "2".. The "Flat" 2 is 5th across, on the top row. Look what happens as you move down the image.. hmmm... That's a bit odd, isn't it.. It's not rolling, it's just spinning!! Eeeeuw!! Anyway, I then remembered why this was so fucking tricky to do, when I tried it a few years ago. Grab a dice. Go on, go and get one!! Start at one, roll it right, then down, then left, then up. You should be back at your starting point. How the hell do you get a spritesheet that does that!?! I've wasted a lot of time buggering about with this, today. I'm done, sod it!! The sprites I have are good enough for the purpose. It's only a smegging random dice-roll, it doesn't even need to be this complex, and I don't know why I spent all day trying to figure it out. grrr! waste of time! -=-=- ''Load, Next List!''
Tue, 28 May 2013, 14:23
dna	The Dice Sprite looks good. The test pattern is nice. I can remember making one some time ago in PShop. It went into a graphic I made and then I forgot about it until now. -=-=- DNA