Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|396\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> July is 'Free' Month
Sun, 01 Jul 2007, 16:13
Jayenkai	HoboBen How about July being the "free" month. Create and donate as much as you can for free use by other people? E.g. art, code, sound fx, music? And so it is.. If you can make some nice assets to be placed into games, either put code into the Snippet area, or shove it here on the forum. .. Make sure it's your own creations!! I don't wanna get the site pulled 'cos some idiot's posting copyright MP3's! If we get plenty of stuff, I'll consider creating a new Assets section.. which existed in a version of this site about 2 years ago, but then got pulled due to lack of interest! -=-=- ''Load, Next List!''
Wed, 04 Jul 2007, 10:36
Blitz3Dman	Here's a nice font for Blitz I made a while back, letters are 5 pixels by 7. (the stuff on the bottom was to help me when I made it) and the program to print it: Graphics 800,600,0,2 SetBuffer BackBuffer() ClsColor 255,255,255 Global font=LoadAnimImage("font.bmp",5,7,0,280) Global globy=5 Color 0,0,0 Cls Repeat cout(do$) Locate 100,580 Color 255,255,255 Rect 90,575,780,60 Color 0,0,0 do$=Input() Forever Function cout(txt$,y=couty,x=5) If y=couty Then y=globy Else globy=y For go=1 To Len(txt) DrawImage font,x,y,Asc(Mid(txt,go))-1 If Asc(Mid(txt,go))>64 And Asc(Mid(txt,go))-1<92 Then x=x+1 x=x+5 Next globy=globy+10 End Function --v \|edit\| whoops! I was using this in a program and the functions and globals were stored in an include file. Silly me forgot to include the global globy=5! \|edit\| -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Wed, 04 Jul 2007, 14:59
Jayenkai	Cool! A tiny font
Sat, 07 Jul 2007, 16:24
HoboBen	ICO Pack A pack of 16 .ico images, for every occasion. You can use them in Hypertext Markup Applications, on websites (e.g. example.net/favicon.ico), or for Cobra programs you've made. (Apart from things 16 by 16 pixels in size, I've lost the ability to draw. ) -=-=- blog \| work \| code \| more code
Mon, 09 Jul 2007, 11:34
Dabz	Misc C++ DLL functions to use in Blitz, or any other really:- // Userlib functions - Source // Written by Michael Denathorn 2005 /When using userlibs, I find it a bit of a bugger having to use extra DLL's with an app that really, only allows me the use a couple of functions, so, for the benefit of other 'userlib' users, any new functions I write will be in source format only, and not binarys, just so you can plonk them inside your own... Which is nice really!!! :D This was written using VC++7, but will probably build using BloodShed's Dev-C++ with a little tinkering! :) / #include <iostream.h> #include <windows.h> #include <stdlib.h> #define BBDECL extern "C" _declspec(dllexport) #define BBCALL _stdcall //DriveInfo Definitions #define FILESYSNAMEBUFSIZE 1024 #define VOLUMENAMEBUFSIZE 1024 #define INFO_TYPE_VOLUME_NAME 0 #define INFO_TYPE_SYSTEM_NAME 1 #define INFO_TYPE_SERIEL 2 /DriveInfo returns one of three drive properties(Example is in Blitz+):- DriveInfo$(root$,0) returns the volume name DriveInfo$(root$,1) returns the file system name (e.g. FAT32/NTFS) Hex$(DriveInfo$(root$,2)) returns the drive seriel number / BBDECL char * BBCALL DriveInfo( const char * Buf, int infoType) { DWORD dwSysFlags; char FileSysNameBuf[FILESYSNAMEBUFSIZE]; char VolumeNameBuf[FILESYSNAMEBUFSIZE]; DWORD serial; char strSeriel[255]; GetVolumeInformation( Buf, VolumeNameBuf, VOLUMENAMEBUFSIZE, &serial, NULL, &dwSysFlags, FileSysNameBuf, FILESYSNAMEBUFSIZE); if (infoType == INFO_TYPE_VOLUME_NAME) { return(VolumeNameBuf); } if (infoType == INFO_TYPE_SYSTEM_NAME) { return(FileSysNameBuf); } if (infoType == INFO_TYPE_SERIEL) { _itoa(serial,strSeriel,10); return(strSeriel); } return("Unknown"); } //Creates a hidden file, which is handy for config settings etc etc // E.g. result = CreateHiddenFile(fileName$) BBDECL BOOL BBCALL CreateHiddenFile( const char * fileName) { HANDLE hFile; //Check to see if file exists hFile = CreateFile(fileName, GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_HIDDEN, NULL); //If not, create a new one if (hFile == INVALID_HANDLE_VALUE) { hFile = CreateFile(fileName, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_HIDDEN, NULL); if (hFile == INVALID_HANDLE_VALUE) { return(FALSE); } } CloseHandle(hFile); return(TRUE); } /* Creates a new registry key to run an application when windows starts, though, this can be edited for out... Cheap and cheerful.. e.g.:- result = SetStartupRegValue("TestApp","C:\test.exe") Notify result / BBDECL BOOL BBCALL SetStartupRegValue(const char value, const char valueData) { HKEY hKey; if (RegOpenKeyEx( HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", 0, KEY_ALL_ACCESS, &hKey ) != ERROR_SUCCESS) { return(FALSE); } if (RegSetValueEx(hKey,value,0,REG_SZ,(LPBYTE) valueData,(strlen(valueData)+1)) != ERROR_SUCCESS) { return(FALSE); } RegCloseKey( hKey ); return(TRUE); } //Couple of Clipboard Text functions BBDECL int BBCALL CopyToClipboard(HWND hWnd, const char str) { HGLOBAL hglbCopy; LPVOID lptstrCopy; size_t len = strlen(str); if (!OpenClipboard(hWnd)) return FALSE; EmptyClipboard(); hglbCopy = GlobalAlloc(GMEM_MOVEABLE,(len+1) * sizeof(str)); if (hglbCopy == NULL) { CloseClipboard(); return FALSE; } lptstrCopy = GlobalLock(hglbCopy); memcpy(lptstrCopy, str,(len+1) * sizeof(str)); GlobalUnlock(hglbCopy); SetClipboardData(CF_TEXT, hglbCopy); CloseClipboard(); return(TRUE); } BBDECL LPVOID BBCALL RetrieveFromClipboard(HWND hWnd) { HGLOBAL hglb; LPVOID lptstr; if (!IsClipboardFormatAvailable(CF_TEXT)) return(""); if (!OpenClipboard(hWnd)) return(""); hglb = GetClipboardData(CF_TEXT); lptstr = GlobalLock(hglb); CloseClipboard(); return(lptstr); } /* Declaration file contents .lib "lib.dll" DriveInfo$(rootPath$,type%):"_DriveInfo@8" CreateHiddenFile%(filename$):"_CreateHiddenFile@4" SetStartupRegValue%(value$,valueData$):"_SetStartupRegValue@8" CopyToClipboard%(hWnd%,string$):"_CopyToClipboard@8" RetrieveFromClipboard$(hWnd%):"_RetrieveFromClipboard@4" / --v I use a couple of these all of the time, the CreateHiddenFile function is particuley handy for hiding important files for your average joes user's view. Next, general C++ printer stuff:- //Printer DLL //Written By Michael Denathorn 2005 //Sends text to the printer, also handle page breaks too #include <windows.h> #include <gdiplus.h> #include <stdio.h> using namespace Gdiplus; //Globals PRINTDLG pd; DOCINFO di; ULONG_PTR gdiToken; #define BBDECL extern "C" _declspec(dllexport) #define BBCALL _stdcall BBDECL int BBCALL _DabzOpenPrinter(void) { GdiplusStartupInput gdiplusStartupInput; GdiplusStartup(&gdiToken, &gdiplusStartupInput, NULL); ZeroMemory(&di, sizeof(di)); di.cbSize = sizeof(di); di.lpszDocName = "Dabz Printer Lib"; ZeroMemory(&pd, sizeof(pd)); pd.lStructSize = sizeof(pd); pd.Flags = PD_RETURNDC; if(!PrintDlg(&pd)) { printf("Failure\n"); return(0); } return(1); } BBDECL int BBCALL _DabzStartDoc(void) { StartDoc(pd.hDC, &di); return(1); } BBDECL int BBCALL _DabzStartPage(void) { StartPage(pd.hDC); return(1); } BBDECL int BBCALL _DabzEndPage(void) { EndPage(pd.hDC); return(1); } BBDECL int BBCALL _DabzEndDoc(void) { EndDoc(pd.hDC); return(1); } BBDECL int BBCALL _DabzClosePrinter(void) { if(pd.hDevMode) GlobalFree(pd.hDevMode); if(pd.hDevNames) GlobalFree(pd.hDevNames); if(pd.hDC) DeleteDC(pd.hDC); GdiplusShutdown(gdiToken); return(1); } BBDECL int BBCALL _DabzPrintText( const char str, int posX, int posY) { TextOut(pd.hDC,posX,posY,str,strlen(str)); return(1); } --v Not used now, but may be handy for peepz that want to know how to use the printer. maDenathorn -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Mon, 09 Jul 2007, 18:03
magicman	Heres a chair I made for somthing on CW. Not sure why anyone would want a chair, but heres a chair none the less. -=-=- Stuff... Yeah...
Mon, 09 Jul 2007, 21:20
garand	you made it for the "Common Objects" thread in the 3D section which was created by be and made a "sticky" by Jay. enough info lol
Wed, 18 Jul 2007, 17:13
HoboBen	Hey everyone - it's still July! Keep going I've not been very constructive in doing things recently, but I'm going to try again doing something or other... -=-=- blog \| work \| code \| more code
Thu, 19 Jul 2007, 11:29
Phoenix	I might make something later, not now though, maybe after a Warcraft III match By the way, I'm back from a one month break from everything, so that's why I haven't visited SoCoder for a while.
Mon, 23 Jul 2007, 15:21
dna	B3D man, I could not get your program to run.
Sat, 28 Jul 2007, 06:47
Blitz3Dman	Did you save my font image as font.bmp in the same directory? -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sat, 28 Jul 2007, 16:05
dna	<<Function cout(txt$,y=couty,x=5)>> This gives the the error "expresion must be constant" -=-=- DNA
Sat, 28 Jul 2007, 16:20
dna	Now it's giving me the error 'not enough frames in file' -=-=- DNA
Sat, 28 Jul 2007, 17:41
Blitz3Dman	Gah, I've messed up all over the place! Although I've got no idea why it'd give you that error. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sat, 28 Jul 2007, 23:46
Evil Roy Ferguso	Here's some stuff I did back in the days of yore. I don't have any non-yore stuff at the moment that isn't obviously half-finished. This is a font I made. In order to better convenience you, I lost the sizing data and forgot to go back and finish the second half of the characters. If I find them later I'll post them here. This is a hash map library for Blitz I wrote (some time ago, not in July...). This is something like the associative arrays you'll find in PHP or other languages, except with a more confusing syntax. ; Obscenely Heavily Commented (not Well Commented, mind, but Heavily) ; Rather Unoptimized Hash Mapped "Arrays" in "Classic" Blitz ; But still useful when performance isn't an issue. ; eelhovercraft, written... uh, mid-February? Good question... ; Types ; This type defines a "link" in a hash map. Terminology check? Type TVLink ; name is stored. Field name$ ; value is a string - so it can hold basically any Blitz type, thanks to Object and Handle. Field value$ ; add more fields for values, if the need arises. ; in the event of a collision, next link with same hash Field nlink.TVLink End Type ; A hash map. Joy. Type THashMap ; Dynamic arrays inside of Types? You must be mistaken. Field bank Field size Field multiplier End Type ; Functions ; Creates a new hash map. Function NewMap.THashMap(size = 383, multiplier = 5) Local map.THashMap = New THashMap If multiplier = 0 Then multiplier = 5 If size <= 3 Then size = 3 map\bank = CreateBank(size * 4) map\size = size map\multiplier = multiplier Return map End Function ; Gets a node from an existing map. Function GetEntry.TVLink(map.THashMap, name$, noAdd = 0) Local index = Hash(map, name) Local needAdd = False Local node.TVLink = Object.TVLink(PeekInt(map\bank, index4)) If node = Null needAdd = True Else Repeat If node\name = name Return node EndIf node = node\nlink Until node = Null needAdd = True EndIf If noAdd Then Return Null If needAdd Return AddEntry(map, name) EndIf End Function ; Free a map Function FreeMap(map.THashMap) Local node.TVLink Local damned.TVLink Local i For i = 0 To map\size - 1 node = Object.TVLink(PeekInt(map\bank, i4)) If node <> Null Repeat damned = node node = node\nlink Delete damned Until node = Null EndIf Next FreeBank map\bank Delete map End Function ; Add an entry to a map, you crazy cartographer, you. Function AddEntry.TVLink(map.THashMap, name$) Local index = Hash(map, name) Local node.TVLink = New TVLink node\name = name node\nlink = Object.TVLink(PeekInt(map\bank, index4)) PokeInt map\bank, index4, Handle(node) Return node End Function ; This function generates a hash of a string. Imperfect, obviously. Unlike a bird. Function Hash(map.THashMap, Name$) Local value Local i, L Local multiplier = map\multiplier L = Len(Name) ; Our goal is superhuman baseball. But instead, we generate a hash from a string. For i = 1 To L value = value * multiplier + Asc(Mid(Name,i,1)) Next ; This function had more Wapanese than any other. Return Abs(value Mod map\size) End Function ; Convenience functions: Some of us like to use them, ; some of us like to get used by them. Who am I to disagree? ; if fail is True, then an empty node will result in a RuntimeError. Function GetValue$(map.THashMap, name$, fail = False) Local node.TVLink = GetEntry(map, name$, fail) If node = Null If fail RuntimeError "In this map, there is no entry by the name of " + name Else Return "" EndIf EndIf Return node\value End Function ; hoooooo Function SetValue(map.THashMap, name$, value$) Local node.TVLink = GetEntry(map, name) node\value = value End Function --v You save it to an include file, and use it like this: Include "ridiculoushashmaps.bb" ; or whatever you name it MyMap.THashMap = NewMap() SetValue(MyMap, "keyname", "value") Print GetValue(MyMap, "keyname") FreeMap(MyMap) --v It's usably fast, but hardly optimized -- collision resolution especially needs tweaking. At least it is usually better than linear search for these purposes. This is FourCC-ing and UnFourCC-ing stuff. It's ridiculously easy to write so there's no real reason to share it but meh whatever :/ ; FourCC ; takes code$, a 4-character string, and returns it as a 32-bit Int Function FourCC(scode$) Local value ; if it's less than 4 characters long pad it out If Len(scode) < 4 Then scode = scode + " " value = value + Asc(Mid(scode, 4)) Shl 24 value = value + Asc(Mid(scode, 3)) Shl 16 value = value + Asc(Mid(scode, 2)) Shl 8 value = value + Asc(Mid(scode, 1)) Return value End Function ; UnFourCC ; takes an Int and returns it as a 4-character string Function UnFourCC$(value) Local scode$ scode = scode + Chr((value And $000000ff)) scode = scode + Chr((value And $0000ff00) Shr 8) scode = scode + Chr((value And $00ff0000) Shr 16) scode = scode + Chr((value And $ff000000) Shr 24) Return scode End Function --v FourCC() takes a 4 character string and converts it to an integer representation ("HATE" = 1163149640). UnFourCC() takes such an integer representation and makes it a 4 character string again. This is useful when you want to use an integer and yet have it carry some mnemonic meaning -- it's why you'll very frequently find four character long "chunk" identifiers in many file formats. You oughtn't use characters with ASCII codes over 127 with it, though, as Blitz does not handle unsigned integers gracefully. I'll try to post some other stuff in a day or several, but I'll probably miss the "July" because I'm awesome like that.
Sun, 29 Jul 2007, 15:24
dna	<<TO B3D Man>> When I download the font, it does not come through as a aniimage -=-=- DNA