possibly useless function for most people
but please try it out if you have the time
`%ProjectTitle%
`======================
`©%Author%
`======================
`Main Source File
make object sphere 1,1
sync on:sync rate 60
chatxt_init(20)
chatxt_add("new line1")
chatxt_add("new line2")
chatxt_add("new line3")
chatxt_add("new line4")
do
if mouseclick() = 1 then chatxt_add("new line")
chatxt(100,100,2000)
sync
loop
function chatxt_init(lineno)
dim txt$(lineno)
dim txtimer(0)
txtimer(0) = timer()
`fill with empty strings
for t = 0 to lineno
txt$(t) = ""
next t
endfunction
function chatxt_add(new$)
`empty strings dont count and you're not supposed to input them
if new$ <> ""
for t = 0 to array count(txt$(0))
if txt$(t) = ""
txt$(t) = new$
t = array count(txt$(0))
endif
next t
endif
endfunction
`time is how often the oldest message/string will be gotten rid of
function chatxt(x,y,time)
lineno = array count(txt$(0))
avheight = text height("Q")
`slowly getting rid of oldest msg/string
if timer() - txtimer(0) > time
for t = 0 to (lineno-1)
txt$(t) = txt$(t+1)
next t
txt$(lineno) = ""
txtimer(0) = timer()
endif
for lines = 0 to lineno
text x,y+avheight*lines,txt$(lines)
next lines
endfunctionA study done by William Speyer, who was a victim of prison rape in 1989, shows that 34% of [prison] rape victims released from prison become child molestors.
