//Title: Scrolling Text
//Credit to: Crashed
//Contributed by: Crashed
/*
Scroll your text and make it prettiful!
*/
<dm>
var
queue[]=list()
speaking=0
scrollSpeed=1
proc
speak(text)
if(text)queue+=text
if(speaking)return
speaking=1
while(queue.len)
for(var/i in queue)
for(var/x=1 to length(i))
world<<"[copytext(i,x,x+1)]\..."
sleep(scrollSpeed)
world<<""
queue-=i
speaking=0
///*
//Testing code/sample implementation:
mob/verb/say(t as text)
speak("[key]: [t]")
//*/