Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|497\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Concept/Design -> 16x16 2 color Icons
Thu, 02 Aug 2007, 09:36
Jayenkai	Stringy Things. What else can I add? Picross seems to be a nice game to add, but I have limited imagination. But if I had a series of 16x16 icons... Well, then I could do other types of games with them, too. Like Polarium, and things like that. So I designed the following.. Clickage You can't miss it.. It's the big-ass flash thing on the top right.. Draw a monochrome iamge, then hit "New".. It saves it.. Then draw another.. and so on and so on until you're bored. ;Tweaked from ;https://socoder.net/index.php?snippet=2798 ;Using TCP in Blitz by shroom_monk Graphics 800,600,32,2 SetBuffer BackBuffer() ; connect to Socoder site = OpenTCPStream("socoder.net",80) ; check if a connectiong could be made If Not site Then Print "Connection could not be established." WaitKey() End End If ; ask for contents of page WriteLine site,"GET https://socoder.net/16x16.txt HTTP/1.0" WriteLine site,Chr$(10) For n=1 To 10 useles$=ReadLine$(site) Next Dim in$(10000) maxin=0 While Not Eof(site) maxin=maxin+1 in$(maxin)=ReadLine$(site) Wend ; close stream and end program CloseTCPStream site Flip ox=0 oy=0 Icons=CreateImage(800,600):MaskImage icons,255,0,255 SetBuffer ImageBuffer(Icons) Color 0,0,0 Rect 0,0,800,600,1 For n=1 To maxin SetBuffer ImageBuffer(Icons) Color 0,80,160 Rect ox,oy,18,18,0 Color 255,255,255 For y=1 To 16 bits=Int(SplitText$(in$(n),",",y,0)) For x=1 To 16 bit=(bits Shr (16-x)) And 1 If bit=1 Then Plot x+ox,y+oy Next Next If KeyDown(1) Then End SetBuffer BackBuffer() DrawImage Icons,0,0 Flip ox=ox+20:If ox=>800-19 Then ox=0:oy=oy+20 Next Repeat DrawImage Icons,0,0 ox=0 oy=0 For n=1 To maxin If MouseX()=>ox And MouseX()<=ox+18 And MouseY()=>oy And MouseY()<=oy+18 dx=ox-32: If dx<2 Then dx=2 If dx>800-66 Then dx=800-66 dy=oy-32: If dy<2 Then dy=2 If dy>600-66 Then dy=600-66 Color 0,160,240 Rect dx-2,dy-2,68,68,1 Color 0,0,0 Rect dx,dy,64,64,1 Color 255,255,255 For y=1 To 16 bits=Int(SplitText$(in$(n),",",y,0)) For x=1 To 16 bit=(bits Shr (16-x)) And 1 If bit=1 Then Rect dx+((x-1)4),dy+((y-1)4),4,4,1 Next Next EndIf ox=ox+20:If ox=>800-19 Then ox=0:oy=oy+20 Next Flip Until KeyDown(1) End Function SplitText$(in$,Split$,e,alsospace=1) out$="" in$=Trim(in$) e=e-1 start=1 nomore=0 For shift=1 To e If Instr(in$,Split$,start)+1<=nstart Then nomore=1 If Instr(in$,Split$,start)+1>nstart Then nstart=Instr(in$,Split$,start)+1 If AlsoSpace=1 Then If Instr(in$," ",start)+1<nstart And Instr(in$," ",start)>0 Then nstart=Instr(in$," ",start)+1 start=nstart Next size=(Instr(in$,Split$,start))-start If AlsoSpace=1 Then If (Instr(in$," ",start))-start<size And Instr(in$," ",start)>0 Then size=(Instr(in$," ",start))-start out$=Mid$(in$,start,size) If nomore=1 Then out$="-+-" Return out$ End Function --v This will download the icons and display them all. If I get lots of icons, I'll add a function on the site somewhere, where you can download all the data as a bunch of data statements + decoder function. For now, if you'd like to use the data, it's not too hard to read it.. Data stored at https://socoder.net/16x16.txt -=-=- ''Load, Next List!''