more crappy text commands:
sync on
sync rate 60
do
cls rgb( 250, 223, 133 )
ink rgb(255,255,255),0
text 10, 10, "Normal Text"
text_outline( 10, 25, "Outlined Text" )
text_shadow( 10, 40, "Shadow Text" )
text_underline( 10, 55, "Underlined Text" )
text_overstroke( 10, 70, "Overstroke Text" )
text_flc( 10, 85, "First letter colored")
text_colorfade( 10, 100, "Text fade color to color", rgb(255, 0, 0), rgb(0,0,255) )
text_to_sucky_lang( 10, 115, "Text to sucky language" )
text_reversed( 10, 130, "Reversed Text" )
text_circle( 300, 300, "Text in a circle", 100 )
text_wave( 10, 150, "Text in a wave", 10 )
sync
loop
function text_outline( xpos, ypos, string$ )
ink 0,0
text xpos+1, ypos, string$
text xpos, ypos+1, string$
text xpos, ypos-1, string$
text xpos-1, ypos, string$
ink rgb(255,255,255),0
text xpos, ypos, string$
endfunction
function text_shadow( xpos, ypos, string$ )
ink 0,0
text xpos+2, ypos+1, string$
ink rgb(255,255,255),0
text xpos+1, ypos, string$
endfunction
function text_underline( xpos, ypos, string$ )
text xpos, ypos, string$
siz=text width(string$)
line xpos, ypos+text height(string$), xpos+siz, ypos+text height(string$)
endfunction
function text_overstroke( xpos, ypos, string$ )
text xpos, ypos, string$
siz=text width(string$)
line xpos, ypos+(text height(string$)/2), xpos+siz, ypos+(text height(string$)/2)
endfunction
function text_flc( xpos, ypos, string$ )
Ink rgb(0, 128, 255),0
text xpos, ypos, left$( string$, 1 )
ink rgb(255,255,255),0
text xpos+(text width(left$(string$,1))), ypos, right$(string$,(len(string$)-1))
endfunction
function text_colorfade( xpos, ypos, string$, c as dword, e as dword )
er=rgbr(e):eg=rgbg(e):eb=rgbb(e)
cr=rgbr(c):cg=rgbg(c):cb=rgbb(c)
sr=rgbr(c):sg=rgbg(c):sb=rgbb(c)
neg=text width(left$(string$,1))
for x = 1 to len(string$)
char$=mid$(string$,x)
Ink rgb(cr,cg,cb),0
text xpos-neg+(text width(left$(string$,x))), ypos, char$
cr = ((((100*(len(string$)-x))/len(string$))*sr)/100)+((((100*x)/len(string$))*er)/100)
cg = ((((100*(len(string$)-x))/len(string$))*sg)/100)+((((100*x)/len(string$))*eg)/100)
cb = ((((100*(len(string$)-x))/len(string$))*sb)/100)+((((100*x)/len(string$))*eb)/100)
next
endfunction
function text_to_sucky_lang( xpos, ypos, string$ )
ink rgb(255,255,255),0
neg=text width(left$(string$,1))
for x = 1 to len(string$)
m$=lower$(mid$(string$,x))
if m$="i" then m$="1"
if m$="r" then m$="2"
if m$="e" then m$="3"
if m$="a" then m$="4"
if m$="s" then m$="5"
if m$="g" then m$="6"
if m$="t" then m$="7"
if m$="b" then m$="8"
if m$="o" then m$="0"
if x# > 1 then x#=0:m$=upper$(m$)
text xpos-neg+(text width(left$(string$,x))), ypos, m$
inc x#,0.35
next x
endfunction
function text_reversed( xpos, ypos, string$ )
for x = len(string$) to 1 step -1
reversed$ = reversed$ + mid$(string$,x)
next x
text xpos, ypos, reversed$
endfunction
function text_circle( xpos, ypos, string$, radius )
total=len(string$)
for x = 1 to total
char$=mid$(string$,x)
xp = xpos+ (Sin((radius/total)*(x*3.14))*radius)
yp = ypos- (Cos((radius/total)*(x*3.14))*radius)
text xp, yp, char$
next
endfunction
function text_wave( xpos, ypos, string$, seed )
for x = 1 to len(string$)
xp=xpos-(text width(left$(string$,1)))+(text width(left$(string$,x)))
yp=ypos+sin(-x*314)*seed
text xp, yp, mid$(string$,x)
next x
endfunction
new: wave, circle, reversed.
fix: color to color fade
Lets see who can write the coolest text effect
(I just lost)
