Screensaver Problem

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Neo Genesis10

At the moment all you have there is a skeleton program. To make it actually DO something, you'll need to add your code into the individual functions. You may also want additional declarations such as models loading and camera's etc. Of course, what actually gets added to each function and to the declarations depends entirely on what your screensaver does.

;* * 
;Declarations 

AppTitle "ScreenSaver" 
ChangeDir SystemProperty$("appdir") ;This line is important when running as a Screensaver in Windows. 
;Disable it while testing in Blitz (because the "appdir" of Blitz is "\bin"...) 
If CommandLine$() = "" Or Left$(CommandLine$(),2) = "/C" Or Left$(CommandLine$(),2) = "/c" Then ConfigScreensaver 
If CommandLine$() = "/S" Or CommandLine$() = "/s" Then ExecuteScreensaver 
End 

;--------------------------------------- 

Function ConfigScreensaver() 
	;!!PUT YOUR CONFIG CODE HERE!!

	End 
End Function 

;--------------------------------------- 

Function ExecuteScreensaver() 
	;Graphics mode (fullscreen), double buffering command(s) and loading of images, meshes, sounds... 
	FlushKeys 
	FlushMouse 
	MoveMouse 0,0 
	Repeat 
	;!!PUT YOUR CODE HERE!!

	Until MouseX() <> 0 Or MouseY() <> 0 Or GetKey() <> 0 Or GetMouse() <> 0 
	End 
End Function