Here's a programme to write a screen title one word at a time in random order.
do
randomize timer()
dim randomseries(8)
hide mouse
wait 1000
gosub eightrandomnumbers
set text font "arial"
set text size 21
set text to bold
th=text height("arial")
ink rgb(255,217,128),1
for order=1 to 8
if randomseries(order)>=1 and randomseries(order)<=3
a$="The Game Creators"
down=190
else
a$="The Home of Dark Basic"
down=211
endif
if randomseries(order)=1
pos=1:length=4
across=235
gosub getsubstring
endif
if randomseries(order)=2
pos=5:length=9
across=273
gosub getsubstring
endif
if randomseries(order)=3
pos=10:length=17
across=330
gosub getsubstring
endif
if randomseries(order)=4
pos=1:length=4
across=215
gosub getsubstring
endif
if randomseries(order)=5
pos=5:length=9
across=253
gosub getsubstring
endif
if randomseries(order)=6
pos=10:length=12
across=310
gosub getsubstring
endif
if randomseries(order)=7
pos=13:length=17
across=332
gosub getsubstring
endif
if randomseries(order)=8
pos=18:length=22
across=377
gosub getsubstring
endif
next order
hide mouse
a$="Press any key to re-run"
center text 320,440,a$
wait key
cls
loop
end
` ---------------------------------------------------
` Subroutine to get part message to write to screen
` ---------------------------------------------------
getsubstring:
sub$=""
for n=pos to length
sub$=sub$+mid$(a$,n)
next n
show mouse
position mouse across+(text width(sub$)/2),down+(th/2)
wait 500
text across,down,sub$
return
` -----------------------------------------------------------
` Subroutine to generate numbers from 1 to 8 in random order
` -----------------------------------------------------------
eightrandomnumbers:
for nextnumber = 1 to 8
repeat
x=rnd(7)+1
alreadyfound=0
for j=1 to nextnumber
if randomseries(j)=x
alreadyfound=1
exit
endif
next j
until alreadyfound=0
randomseries(nextnumber)=x
next nextnumber
return
Been done before? Maybe but I haven't seen it in TGC forums
**** EDIT ****
To finish it off, after
if randomseries(order)=8
pos=18:length=22
across=377
gosub getsubstring
endif
next order
hide mouse
insert
delete
insert
tw=text width(a$)
across=320-tw/2:down=440
pos=1:length=6
gosub getsubstring
pos=7:length=10
across=across+text width(sub$)
gosub getsubstring
pos=11:length=14
across=across+text width(sub$)
gosub getsubstring
pos=15:length=17
across=across+text width(sub$)
gosub getsubstring
pos=18:length=23
across=across+text width(sub$)
gosub getsubstring
hide mouse
The Wizard
If responsibility was a drug, I wonder how many would be addicted?
