Screensavers...?

Blitz3D Forums/Blitz3D Programming/Screensavers...?

elseano(Posted 2004) [#1]
Is it possible to create screensavers in Blitz? I think you can, but how would I set it as my screensaver in windows 2000?


Sveinung(Posted 2004) [#2]
Change the the name of the file from ****.exe to *****.scr,
and move it to the system32 folder under winnt....

This should work

Regards
Sveinung


CodeD(Posted 2004) [#3]
you need to have the proper command line code in your program or it won't work. There is a screensaver tutorial at www.blitzcoder.com that explains everything you need to do which is pretty simple.

the saver doesn't have to be in the sys32 folder but, you should specify your app path within the program, and you will have to rigth click on the .scr file you've renamed and select install.

this is basically ssaver tut with a little photocube code inserted

AppTitle "PhotoCube ScreenSaver 1.0 by CRAPSOFT"    ; The Name of your Screensaver

ChangeDir SystemProperty$("appdir") ; IMPORTANT
                                    

; Checking Parameters that Windows uses for handling Screensavers 

If CommandLine$() <> "" Then                                ; If Parameter is present then 
  If Upper(Left$(CommandLine$(),2)) = "/C" Then Configure() ;  check if Screensaver Configuration shall be executed
  If Upper(Left$(CommandLine$(),2)) = "/S" Then Start()     ;  or Screensaver itself should be started  
EndIf ; <> ""

End   ; End program... bye bye 


Function Configure()
Graphics 640, 480
Print "Welcome to PhotoCube Screensaver Version 1.0 by Crapsoft!"
Print "Written by Richard Colletta 2/15/2004"
Print ""
Print "DEFAULT & ONLY SETTINGS ARE:"
Print "800 * 600 RES"
Print "to use your own picture rename any .jpg pic to photocube"
Print "and replace the one in the windows/system32 directory"
Print "or the directory you have this installed in"
Print "Boo-Yah!"
Print "_----_----_----_----_----_----_----_----_----_----_----_"
Print "Hit Escape to Exit"
While Not KeyHit(1)
Wend
End Function                       ; of Configure()



Function Start()
; -------------------------------------------------------------------------------------------- 
Graphics3D 800, 600
	FlushKeys()                   ; clean keyboardbuffer
	FlushMouse()                  ; clean mousebuffer  
	MoveMouse 0,0                 ; move mouse to 0,0 for later check
SetBuffer BackBuffer()
light=CreateLight()
AmbientLight 0, 0, 0
camera=CreateCamera()
CameraViewport camera,0,0,800,600
cube = CreateCube()
cubemap = LoadTexture("photocube.jpg")
EntityTexture cube, cubemap
FreeTexture cubemap
PositionEntity cube, 0,0,5
	Repeat                        ; Main loop for your Screensaver Code 

       ;main Program Code
TurnEntity cube, 0.4,0.5,0.6
RenderWorld
Flip
       Delay 1                       ; secure that the CPU usage is not 100% all time!	 	
	Until GetMouse() <> 0 Or MouseX() <> 0 Or MouseY() <> 0 Or GetKey() <> 0 ; check if user makes a move :)

End Function                      ; of Start() 



elseano(Posted 2004) [#4]
ok thanks...=D