Auto-include common files, and lots of other questions

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|723\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Auto-include common files, and lots of other questions
Sun, 11 May 2008, 15:27
LostUser	I used to post on the old BlitzCoder website and even upgraded to BlitzMax (which I find a bit too hard for me, or maybe I'm just being lazy). Anyway, I found this website and have some questions most of which are from my recent re-use of Blitz2D. 1) Auto-include comon files. Rather than me doing this; include "common/file1.bb" include "common/file2.bb" include "common/file3.bb" --v Has anyone been able to do an auto-include? So that it recursively adds only .bb files within a folder, so that I don't have to do it, or update paths? I've tried: include $string and even include "" + $string, but it always returns an error. 2) Bitmap Fonts. I know you're not meant to use Window-based Fonts with B2D/Max, but I don't know how to use Bitmap fonts, especially when it comes to getting input from a user. The closest I found is a library I found which does work, however my question is: are there any other Bitmap font loaders with more Bitmap font examples, as the one I have only comes with one Bitmap font example? Note, that I could not upload the Bitmap for this library. But this library does work. ; GFXFONT.bb ; author: unknown Graphics 640,480,24,2 SetBuffer BackBuffer() Dim gfxFont(78) For x = 0 To 78 loadGfxFont("./gfxFontImg1.png",x) Next cash = 100000 While Not KeyDown(1) counter = counter + 1 yPos = 200-(200Abs(Sin#(counter))) score = 100 Cls gfxText(320,10+yPos, Currency$(cash),1,0,10) gfxText(320,25+yPos,"Date : "+CurrentDate()+" Time : "+CurrentTime(),1,0,10) gfxText(320,25,"Level:" + Score ,1,0,10) Flip Wend ;@currency function Function Currency$(value) curr$ = Str(value) p=0 For i=Len(curr$) To 1 Step -1 If p = 3 Then curr$ = Left(curr$,i)+","+Right(curr$,Len(curr$)-i) p = 0 End If p = p + 1 Next Return curr$ End Function Function gfxText(xPos#, yPos#, gfxTextString$, centerX=0, centerY=0, letterSpace=12) wordLength = Len(gfxTextString$) If (centerX = 1) Then xPos = xPos - ((wordLengthletterSpace)/2) End If If (centerY = 1) Then yPos = yPos - (letterSpace/2) End If For l = 1 To wordLength DrawImage gfxFont(letterToNumber(Mid(gfxTextString$,l,1))),xPos+((l-1)letterSpace),yPos Next End Function Function letterToNumber(letter$) Select letter$ Case "A" n=0 Case "B" n=1 Case "C" n=2 Case "D" n=3 Case "E" n=4 Case "F" n=5 Case "G" n=6 Case "H" n=7 Case "I" n=8 Case "J" n=9 Case "K" n=10 Case "L" n=11 Case "M" n=12 Case "N" n=13 Case "O" n=14 Case "P" n=15 Case "Q" n=16 Case "R" n=17 Case "S" n=18 Case "T" n=19 Case "U" n=20 Case "V" n=21 Case "W" n=22 Case "X" n=23 Case "Y" n=24 Case "Z" n=25 Case "a" n=26 Case "b" n=27 Case "c" n=28 Case "d" n=29 Case "e" n=30 Case "f" n=31 Case "g" n=32 Case "h" n=33 Case "i" n=34 Case "j" n=35 Case "k" n=36 Case "l" n=37 Case "m" n=38 Case "n" n=39 Case "o" n=40 Case "p" n=41 Case "q" n=42 Case "r" n=43 Case "s" n=44 Case "t" n=45 Case "u" n=46 Case "v" n=47 Case "w" n=48 Case "x" n=49 Case "y" n=50 Case "z" n=51 Case "0" n=52 Case "1" n=53 Case "2" n=54 Case "3" n=55 Case "4" n=56 Case "5" n=57 Case "6" n=58 Case "7" n=59 Case "8" n=60 Case "9" n=61 Case "." n=62 Case "," n=63 Case ":" n=64 Case ";" n=65 Case "?" n=66 Case "!" n=67 Case "£" n=68 Case "$" n=69 Case "%" n=70 Case "(" n=71 Case ")" n=72 Case "'" n=73 Case "@" n=74 Case "/" n=75 Case "" n=76 Case " " n=77 Default n=0 End Select Return n End Function Function loadGfxFont(font$,x) gfxFontImg1 = LoadImage(font$) tmpSrcBuffer = ImageBuffer(gfxFontImg1) gfxFont(x) = CreateImage(15,15) tmpDstBuffer = ImageBuffer(gfxFont(x)) xPos = (x15)-((x/13)195) yPos = ((x/13)*15) CopyRect xPos,yPos,15,15,0,0,tmpSrcBuffer,tmpDstBuffer End Function --v 3) Can anyone re-post the old code for the function for handling MouseOver? 4) How do you filter incoming input so that the user can only input A-Z\|a-z\|0-9? 5) JQuery-like effects Does anyone have any examples of Blitz 2D JQuery-like/Ajax-like effects? That's all. Thanks
Sun, 11 May 2008, 15:39
Jayenkai	0) Welcome! 1) If they're always being used, why not have one single "IncludeThem.bb" file along with the common include files, and include that.. Then in there you'd include the rest of them manually. 2) I use windows fonts all the time. What's wrong with using them!? So long as you can get yourself a nice freely downloadable font, and include it with the game, you're fine. 3) I don't know what that is! 4) When retrieving input, just go through and ensure that every character is one of those you want.. outtext$="" for n=1 to len(intext$) char=asc(mid$(intext,n,1)) if ( char>47 and char<58 ) or ( char>64 and char<91 ) or ( char>96 and char<123) then outtext$=outtext$+chr(char) next --v 5) shrugs! -=-=- ''Load, Next List!''
Sun, 11 May 2008, 17:05
JL235	I'm pretty certain automated imports is impossible in Blitz. I'm pretty certain it's a literal copy and paste with none of your real code run.
Mon, 12 May 2008, 02:23
LostUser	Hey thanks for your quick replies! 1) Auto-Include/Import. Answer: Just include one file, and update that one manually. Yes. I currently use what I call a "_bootstrap.bb" file, and this has all my common includes in it. It does not run anything/execute any code. 2) I always thought using Windows Fonts in games was bad practice? I'll use the Bitmap font library I have as it comes with a pre-made Bitmap font. I guess my question really was this: "How do you convert truetype fonts into Bitmap fonts, and then import/load them into Blitz Basic?" 3) It doesn't matter if you don't have the mouseover functions (it uses rectangles or something) as I'm pretty sure I have it on a CD somewhere, anywhere. 4) Thanks for your reply. 5) It doesn't matter about JQuery-like affects.
Mon, 12 May 2008, 05:30
Jayenkai	Fontgrab Loads a .ttf font, uses one of the output style functions (you can add your own), and outputs a bitmap font. And a test proggy, too, so you can use the loading/output functions from that. -=-=- ''Load, Next List!''
Tue, 13 May 2008, 13:11
LostUser	Thanks a lot. I've spent a few hours going through various websites, including the old website with WWWArchive and got myself lots of Bitmap font routines. Out of all of them, I think I've found what I'm after, a way of creating the bmp fonts and then an easy way (without me changing B2D code) of importing them back in again! I also found juicyfont. Although it says its only been made for BMax/BPlus, I seem to be able to use it. But I haven't throughly tested it yet. Oh, I found the mouse over now! ; To make a region clickable, use the RectsOverlap command, treating the mouse position as a tiny rect of size 1,1: ; If RectsOverlap(MouseX(), MouseY(), 1, 1, x, y, width, height) ; Function MouseArea(x, y, width, height) Return RectsOverlap(MouseX(), MouseY(), 1, 1, x, y, width, height) End Function --v ----- I have a question, how do you center an image on the screen again, am I right in thinking its; Global screen_title = LoadImage("someimage.png") h = ImageHeight( screen_title ) w = ImageWidth( screen_title ) half_width = ( (SCREEN_WIDTH-w) / 2 ) --v Or, is there a better way to do this? Thanks.
Tue, 13 May 2008, 14:53
Jayenkai	Oh, that! I call that mousein! My version is Function Mousein(x,y,w,h) return MouseX()=>x and MouseY()=>y and MouseX()<=x+w and MouseY()<=y+h end function --v Does exactly the same, and probably doesn't matter which you use! So, carry on! And the image centering looks fine to me. -=-=- ''Load, Next List!''
Wed, 14 May 2008, 05:13
Paul