[draw] draw_text_string_at

//draw_text_string_at(x,y,string,at,text)
var dx, dy, dc, dd, dt, dp;
dx = real(argument0)
dy = real(argument1)
dc = string(argument2)
dd = real(argument3)
dt = string(argument4)
dp = 1

if dd >= string_length(dt) {return draw_text(dx,dy,dt)}

if dd < string_length(dt)
{
do
{
dt = string_insert(dc,dt,dd*dp)
dp += 1
} until(dd*dp >= string_length(dt))
return draw_text(dx,dy,dt)
}

//draw_text_string_at2(x,y,char,at,text)
var dx, dy, dc, dd, dt, dp, dp2;
dx = real(argument0)
dy = real(argument1)
dc = string(argument2)
dd = real(argument3)
dt = string(argument4)
dp = string_length(dt) - dd
dp2 = dp + 1

if dd >= string_length(dt) {return draw_text(dx,dy,dt)}

if dd < string_length(dt)
{
do
{
dt = string_insert(dc,dt,dp2)
dp2 -= dd
} until(dp2 <= 0)
return draw_text(dx,dy,dt)
}