#154 - The Screensaver Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|440\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #154 - The Screensaver Challenge
Tue, 03 Jun 2008, 16:10
Jayenkai	#154 - The Screensaver Challenge This week's challenge was suggested by Tikihead, and was then picked by DiablosDevil! The Challenge Make a Screensaver.. A nice easy challenge, and a rarity in that it's not actually Game related, thus opening up a whole extra window of useless non-game related workshops. Nngh.. The Time Wed 4th June -> 11th June, 2008 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT. The Rules You're free to reuse functions here and there, if it helps speed up your dev-time. Old art and audio, are pretty much expected, since we don't all have time to create fully working masterpieces within the space of a week! Other than that, the main coding for each week's task should be pretty much created within the time allocated. If you use other people's art/sound/functions, give credit where credit's due. To enter, post your game below. If you can't find anywhere decent to host it, send it to Jayenkai@Gmail.com Additional rules are available here. Last Week Last week, Only Me!!! -=-=- ''Load, Next List!''
Tue, 03 Jun 2008, 19:11
Orion Pax	So could I just rename my games exe into scr and submight that? LOL. Just kidding.
Wed, 04 Jun 2008, 11:01
Orion Pax	Ok here is mine. I call it SNOW SAVER. All packaged up in an installer as well. Comes with uninstaller.... Snow Saver
Thu, 05 Jun 2008, 09:29
Jayenkai	Mystic Glitter!!! Graphics 800,600,32,2 SetBuffer BackBuffer() Cls Color 100,100,100:Text 400,300,"Loading",1,1 Flip black=CreateImage(800,600) MaskImage black,255,0,255 SetBuffer ImageBuffer(black) Color 255,0,255 Rect 0,0,800,600,1 Color 0,0,0 For n=1 To 10000 ;Line Rand(800),Rand(600),Rand(800),Rand(600) Plot Rand(800),Rand(600) Next SetBuffer BackBuffer() Cls Color 255,255,255:Text 400,300,"Loading",1,1 Flip blacker=CreateImage(800,600) MaskImage blacker,255,0,255 SetBuffer ImageBuffer(blacker) Color 255,0,255 Rect 0,0,800,600,1 Color 0,0,0 For n=1 To 65000 Plot Rand(800),Rand(600) Next Frames=10 Dim scr(frames) For n=0 To frames scr(n)=CreateImage(800,600) Next Dim v#(10,2) For m=1 To 10 l=800 h=0 r=8 If m=2 Or m=4 Then l=600 If m>4 Then l=250:h=100:r=2 v(m,1)=Rand(h,l) v(m,2)=Rnd(-r,r):If Abs(v(m,2))<0.5 Then v(m,2)=0.5 Next n=0 Repeat ;Cls TileImage black,Rand(800),Rand(600) n=n+1:If n=frames Then n=0 SetBuffer ImageBuffer(scr(n)) TileImage blacker,Rand(800),Rand(600) For m=1 To 10 v(m,1)=v(m,1)+v(m,2) l=800 h=0 r=8 If m=2 Or m=4 Then l=600 If m>4 Then l=250:h=100:r=2 If v(m,1)<h Then v(m,1)=h:v(m,2)=Rnd(0.5,r) If v(m,1)>l Then v(m,1)=l:v(m,2)=-Rnd(0.5,r) Next Color v(5,1),v(6,1),v(7,1) Line v(1,1),v(2,1),v(3,1),v(4,1) SetBuffer BackBuffer() DrawImage scr(n),0,0 SetBuffer ImageBuffer(scr(n)) darken#=0.4 Color v(5,1)darken,v(6,1)darken,v(7,1)*darken Line v(1,1),v(2,1),v(3,1),v(4,1) SetBuffer BackBuffer() Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 --v -=-=- ''Load, Next List!''
Sat, 07 Jun 2008, 18:23
dna	Hey Jay, I don't see how you code get interrupted during a key press. I pressed keys and it kept going, that's not a screen saver. ** The Virtual tree seems to work like a screensaver although I have not let my laptop idle long enough for it to engage aside from the first time after you double click on the app file. What is the timer set to? -=-=- DNA
Sat, 07 Jun 2008, 18:47
Orion Pax	OH! You havent tried mine yet?
Sun, 08 Jun 2008, 22:09
Scherererer	I call it: LCD Graphics 800, 600, 32 SeedRnd MilliSecs() Global screen=CreateImage(100,75) SetBuffer ImageBuffer(screen) ;150, 200 Type Point Field x#, y# Field xv#, yv# End Type Function CreatePoint.Point() p.Point = New Point p\x# = Rand(100) p\y# = Rand(75) p\xv# = Rnd#(.5,2) p\yv# = Rnd#(.5,2) Return p End Function ;x1 = 0 : y1 = 0 ;x1v = 1 : y1v = 1 ;x2 = 100 : y2 = 75 ;x2v = -1 : y2v = 1 CreatePoint() CreatePoint() CreatePoint() CreatePoint() CreatePoint() CreatePoint() r = 255 : g = 125 : b = 125 rv = 5 : gv = 0 : bv = 0 timer = CreateTimer(25) While Not KeyDown(1) Or MouseXSpeed() > 0 Cls ;LockBuffer ImageBuffer(screen) ;WritePixelFast Rand(100), Rand(75), Rand(16777216) ;UnlockBuffer ImageBuffer(screen) ;Line x1, y1, x2, y2 ;x1 = x1 + x1v If r >= 255 rv = -5 gv = 5 ElseIf r = 100 r = 125 rv = 0 EndIf If g >= 255 gv = -5 bv = 5 ElseIf g = 100 g = 125 gv = 0 EndIf If b >= 255 bv = -5 rv = 5 ElseIf b = 100 b = 125 bv = 0 EndIf r = r + rv g = g + gv b = b + bv ;Text 0,0,rv + " " + r ;Text 0,13,gv + " " + g ;Text 0,26,bv + " " + b Color r, g, b For p.Point = Each Point p\x# = p\x# + p\xv# p\y# = p\y# + p\yv# If (p\x < 0 Or p\x > 100) Then p\xv# = -p\xv# If (p\y < 0 Or p\y > 75) Then p\yv# = -p\yv# p2.Point = After p If (p2 <> Null) Line p\x, p\y, p2\x, p2\y Else p2.Point = First Point Line p\x, p\y, p2\x, p2\y EndIf Next WaitTimer( timer) Scale: Flip Wend End ;Thanks Jay! Function Scale() SetBuffer BackBuffer():Cls SetBuffer ImageBuffer(screen) If dontscale=0 For x=0 To 99 For z=0 To 4 CopyRect x,0,1,75,(x8)+z,0,ImageBuffer(screen),BackBuffer() Next Next For y=74 To 0 Step -1 For z=0 To 8 CopyRect 0,y,800,1,0,((y8)+z),BackBuffer(),BackBuffer() Next Next EndIf End Function --v -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Wed, 11 Jun 2008, 15:32
mike_g	A simple repeating version of the game of life. Requires SDL. #include "SDL\SDL.h" #include <time.h> #include <stdlib.h> #include <string.h> #include <stdio.h> #define GRAPHICS_WIDTH 1024 #define GRAPHICS_HEIGHT 768 #define X_CELL GRAPHICS_WIDTH / 8 #define Y_CELL GRAPHICS_HEIGHT / 8 #define SEED_VAL X_CELL * Y_CELL / 2 SDL_Surface screen = NULL; Uint8 cells[2][X_CELL][Y_CELL]; SDL_Event event; /********************* Cell Sprite **********************/ #define A 0x00 #define B 0x1b #define C 0x19 #define D 0xff Uint8 cellpix[8][8] = { {A, A, A, A, A, A, A, A} ,{A, A, B, B, B, B, A, A} ,{A, B, B, C, C, C, B, A} ,{A, B, C, D, D, C, B, A} ,{A, B, C, D, D, C, B, A} ,{A, B, B, C, C, C, B, A} ,{A, A, B, B, B, B, A, A} ,{A, A, A, A, A, A, A, A} }; /****************** FUNCTIONS *************************/ int InitCells(Uint32 num) { if(num >= (GRAPHICS_WIDTH/8) (GRAPHICS_HEIGHT/8)) return 1; int i, x, y; for(i=0; i<num; i++) { do { x = rand() % (GRAPHICS_WIDTH/8); y = rand() % (GRAPHICS_HEIGHT/8); }while(cells[0][x][y]); cells[0][x][y] = 1; } return 0; } void GrowCells(Uint8 flip) { Uint32 x, y; Uint8 sum; for(y=0; y<Y_CELL; y++){ for(x=0; x<X_CELL; x++) { sum = (y > 0 && x > 0)? cells[flip][x-1][y-1]: 0; //UL sum += (y > 0)? cells[flip][x][y-1]: 0; //U sum += (y > 0 && x < X_CELL-1)? cells[flip][x+1][y-1]: 0; //UR sum += (x < X_CELL-1)? cells[flip][x+1][y]: 0; //R sum += (x < X_CELL-1 && y < Y_CELL-1)? cells[flip][x+1][y+1]: 0;//DR sum += (y < Y_CELL-1)? cells[flip][x][y+1]: 0; //D sum += (y < Y_CELL-1 && x > 0)? cells[flip][x+1][y-1]: 0; //DL sum += (x > 0)? cells[flip][x-1][y]: 0; //L switch(sum) { case 0: cells[flip^1][x][y]=0; break; case 1: cells[flip^1][x][y]=0; break; case 2: cells[flip^1][x][y]=cells[flip][x][y]; break; case 3: cells[flip^1][x][y]=1; break; default: cells[flip^1][x][y]=0; break; } }} } void DrawCell(Uint32 start_x, Uint32 start_y) { Uint8 ptr = screen->pixels+(start_yGRAPHICS_WIDTH8)+(start_x8); Uint32 x, y; for(y=0; y<8; y++) { for(x=0; x<8; x++, ptr++) ptr = cellpix[x][y]; ptr += GRAPHICS_WIDTH-8; } } void DrawCells(Uint8 flip) { Uint32 x, y; for(y=0; y<GRAPHICS_HEIGHT/8; y++) for(x=0; x<GRAPHICS_WIDTH/8; x++) if(cells[flip][x][y])DrawCell(x, y); } void ItoA(chars, int n){int i=n,p=0;while(i>0)i/=10,p++; for(i=1;i<=p;i++)s[p-i]=n%10+'0',n/=10;s[p]='\0';} void FPS(Uint32 elapsed, Uint64 fcount) { static unsigned fps; static unsigned next_fps_time; if(SDL_GetTicks() > next_fps_time) { elapsed+=1; fcount +=fps; next_fps_time = SDL_GetTicks()+1000; char frame_rate[10]="0"; char title[25]; strcpy(title, "Automatons\tFPS:"); ItoA(frame_rate, fps); strcat(title, frame_rate); SDL_WM_SetCaption(title, NULL); fps=0; } fps++; } Uint8 ScanInput() { while(SDL_PollEvent(&event)) if(event.type==SDL_KEYDOWN) return 1; return 0; } /*********************** MAIN *****************************/ int main(int argc, char argv[]) { srand(time(NULL)); memset(cells, 0, 2X_CELLY_CELL); screen = SDL_SetVideoMode(GRAPHICS_WIDTH, GRAPHICS_HEIGHT, 8, SDL_SWSURFACE); Uint32 flip=0; SDL_Rect clr; clr.x=0; clr.y=0; clr.w=GRAPHICS_WIDTH; clr.h=GRAPHICS_HEIGHT; Uint64 fcount = 0; Uint32 elapsed=-1; InitCells(SEED_VAL); int counter =0; while(1) { SDL_FillRect(screen, &clr, 0); DrawCells(flip); GrowCells(flip); flip ^= 1; SDL_Flip(screen); if(ScanInput()) break; SDL_Delay(100); FPS(&elapsed, &fcount); if(++counter > 30) { InitCells(SEED_VAL);; counter=0; } } printf("Ran for %u seconds\n", elapsed); if(elapsed) printf("Average FPS: %llu\n", fcount/elapsed); SDL_Quit(); return 0; } --v
Wed, 11 Jun 2008, 16:23
Orion Pax	Hey mike_G how about compiling that for those of us that wouldnt have a bloody idea how....
Wed, 11 Jun 2008, 17:14
mike_g	Sure I'll post again when I have an exe uploaded. Don't get your hopes up; its not very exciting
Wed, 11 Jun 2008, 18:24
Orion Pax	Neither was mine but I still like it...its almost tranguil. Wish I had a video card to use it myself...lol!
Thu, 12 Jun 2008, 11:08
mike_g	Ok Heres a download link. Its not much of a screensaver really, and I just noticed this was last weeks challenge, lol.
Thu, 12 Jun 2008, 18:27
Orion Pax	Well you only missed it by 1 day...lol.... Hey jay...why dont I have a WW linky under my namey?
Thu, 12 Jun 2008, 23:55
shroom_monk	I don't think he's uploaded the entries yet (see post at start of this week's topic). -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!

#154 - The Screensaver Challenge

The Challenge

The Time

The Rules

Last Week