Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / A Simple Screensaver

Author

Message

5867Dude

18

Years of Service

User Offline

Joined: 26th Jun 2006

Location:

Posted: 27th Jun 2006 19:23

I have made a Screensaver for you to use in only 6 Lines of Code

Do
text$="Message Here"
Text rnd(640),rnd(480),text$
Wait 1000
cls
Loop

Back to top

Profile PM Email

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 27th Jun 2006 20:32 Edited at: 27th Jun 2006 20:33

let me shorten tht with the text i added

Do :Text rnd(640),rnd(480),"Look at my awesome screensaver it's 1 line!" :Wait 1000: cls :Loop

Well there is a 20 liners board but still

Stunt man 2 http://forum.thegamecreators.com/?m=forum_view&t=79827&b=8&p=0
WHITEKNUCKLE IS BACK! Check the wip boards for more info

Back to top

Profile PM Website

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 29th Jun 2006 01:22

use this for better speeds

sync on 
sync rate 0

text$="Message Here"
time=1000

Do
inc time

if time=1000
Text rnd(640),rnd(480),text$
time=0
endif

sync
Loop

compressed:

rem why Im doing this sh*t?? oO
sync on : sync rate 0 : text$="Message Here" : time=1000 : Do : inc time : if time=1000 : Text rnd(640),rnd(480),text$ : time=0 : endif : sync : Loop

[/center]
Desert Dead Screenshots

Back to top

Profile PM Email Website

5867Dude

18

Years of Service

User Offline

Joined: 26th Jun 2006

Location:

Posted: 29th Jun 2006 10:19

Thanks for your suggestions. They are very useful. Keep on Upgrading it!

Back to top

Profile PM Email

Back to top

Login to post a reply

Server time is: 2024-11-23 03:16:15
Your offset time is: 2024-11-23 03:16:15