...well, sort of
After running this, you'll be hiding behind the sofa every time you use your computer!
Just two Lines!
Set Display Mode 1024, 768, 32 : Font$ = "Arial Unicode MS" : If Screen Width() = 1024 : Set Text Size 35 : endif : If Screen Width() = 800 : Set Text Size 28 : endif : If Screen Width() = 640 : Set Text Size 24 : endif : Set Text Font Font$, 1
Dim text$(9) : Open To Read 1, "DalekQuotes.qpd" : For T = 0 to 9 : Read string 1, Text$(T) : Next t : Do : Var = Rnd(6) : Center text 0.5*Screen Width(), 50, Text$(Var) : wait key : CLS : If Rnd(1000)<500 : Randomize Timer() : endif : Loop
And here it is uncompressed, in case you want to play around with it:
Rem * Title : The DALEKS
Rem * Author : Robert the Robot
Rem * Date : 21/12/07
rem Change this if necessary for your own computer
Set Display Mode 1024, 768, 32
rem Font setting - change this if it isn't on your computer
Font$ = "Arial Unicode MS"
rem Resizes text for screen size
If Screen Width() = 1024 then Set Text Size 35
If Screen Width() = 800 then Set Text Size 28
If Screen Width() = 640 then Set Text Size 24
Set Text Font Font$, 1
Dim text$(9)
Open To Read 1, "DalekQuotes.qpd"
For T = 0 to 9
Read string 1, Text$(T)
Next t
Do
Var = Rnd(6)
Center text 0.5*Screen Width(), 50, Text$(Var)
wait key
CLS
If Rnd(1000)<500 then Randomize Timer()
Loop
Oh, and you'll need the attached data fle in the same directory as the source code!
Best wishes for a very Merry Christmas and the Happiest of New Years!
