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()
|