Sorry your browser is not supported!

FUNCTION df_Scroll$(SourceString as STRING, CharactersForwardOrBackwards as INTEGER)
	result as string
	result = SourceString
	slen as integer
	slen = Len(SourceString)
	ch as integer
	ch = CharactersForwardOrBackwards
	if slen < 1
		exitfunction result
	endif
	if ch = 0
		exitfunction result
	endif
	result = ""
	//ch = df_BoxedInteger(ch,0-slen,slen)
	if ch = (0-slen) or ch = slen
		result = SourceString
		exitfunction result
	Endif
	if ch < 0
		ch = slen - Abs(ch)
	ENDIF
	if ch < 1
		ch = 1
	ENDIF
	if ch > slen
		ch = slen
	ENDIF
	xp as integer
	xp = ch
	count as integer
	count = 1
	result = ""
	repeat
		result = result + Mid(SourceString,xp,1)
		xp = xp + 1
		if xp > slen
			xp = 1
		endif
		count = count + 1
	UNTIL count > slen
ENDFUNCTION result

FUNCTION df_ABS(IntegerSumToSwitchNegativeToPositive as INTEGER)
	result as INTEGER
	result = ABS(IntegerSumToSwitchNegativeToPositive)
ENDFUNCTION result

FUNCTION df_BoxedInteger(OriginalInteger as INTEGER, MinimumValue as INTEGER, MaximumValue as INTEGER)
result as integer
result = OriginalInteger
if MinimumValue > MaximumValue
	MinimumValue = MaximumValue
Endif
If MaximumValue < MinimumValue
	MaximumValue = MinimumValue
Endif
If result < MinimumValue
	result = MinimumValue
Endif
If result > MaximumValue
	result = MaximumValue
Endif
ENDFUNCTION result

// in game loop
textString = df_scroll$(textString,-1)
SetTextString(textId,textString)

//.... commands then sync ofcourse :D

// Grab the last character
lastChar$ = right(yourString$ , 1)

// Cut the left side of the string
stringLength = len(yourString$)
left$ = left(yourString$ , stringLength - 1 )

// Update the string
yourString$ = lastChar$ + left$

// repeat

setVirtualResolution(640,480)

Type ScrollParams
    offsetX as integer
    offsetY as integer
    timestamp as integer
EndType

GLOBAL _ScrollParams as ScrollParams


// Create a text object to scroll
TextToScroll = createText("This is a scrolling example.")
setTextSize(TextToScroll, 18)


// Initialize the scrolling box
setTextScrollBox(textToScroll, 100, 10, 200, 18)


do

    // show viewable scrollable area
    drawBox(100, 10, 200, 18, 255,255,255)


    // scroll the text
    scrollText(textToScroll, 100, 10, 200, 18, 10, -1, 0)

    sync()
loop


function setTextScrollBox(txtId, x, y, width, height)
    setTextPosition(txtId, x, y)
    setTextScissor(txtId, x, y, x+width, y+height)
endfunction


function scrollText(txtId, x, y, width, height, delay, horizontal, vertical)
    if _ScrollParams.timestamp + delay < getMilliseconds()
        tx = getTextX(txtId)+horizontal
        ty = getTextY(txtId)+vertical

        if tx+getTextTotalWidth(txtId) < x then tx = x + width
        if tx > x+width then tx = x - getTextTotalWidth(txtId)

        if ty > y+height then ty = y - getTextTotalHeight(txtId)
        if ty < y-getTextTotalHeight(txtId) then ty = y + height

        setTextPosition(txtId, tx, ty)

        _ScrollParams.timestamp = getMilliseconds()
    endif
endfunction



function drawBox(x, y, width, height, r, g, b)
    drawLine(x, y, x+width, y, r,g,b)
    drawLine(x, y+height, x+width, y+height, r,g,b)
    drawLine(x, y, x, y+height, r,g,b)
    drawLine(x+width, y, x+width, y+height, r,g,b)
endfunction

setVirtualResolution(640,480)

Type ScrollParams
    offsetX as integer
    offsetY as integer
    timestamp as integer
EndType

GLOBAL _ScrollParams as ScrollParams


// Create a text object to scroll
TextToScroll = createText("This is a scrolling example.")
setTextSize(TextToScroll, 18)


scrollWidth = 200
scrollHeight = 100

// Initialize the scrolling box
setTextScrollBox(textToScroll, 100, 10, scrollWidth, scrollHeight)


do

    // show viewable scrollable area
    drawBox(100, 10, scrollWidth, scrollHeight, 255,255,255)


    // scroll the text
    scrollText(textToScroll, 100, 10, scrollWidth, scrollHeight, 10, sx#, sy#)



    drawBox(300, 300, 100, 100, 255,255,255)
    mx = getrawmousex()
    my = getrawmousey()

    if mx < 300 then mx = 300
    if mx > 400 then mx = 400
    if my < 300 then my = 300
    if my > 400 then my = 400
    drawLine(350,350, mx, my,255,255,255)


    sx# = (mx - 350) / 50.0
    sy# = (my - 350) / 50.0



    sync()
loop


function setTextScrollBox(txtId, x, y, width, height)
    setTextPosition(txtId, x, y)
    setTextScissor(txtId, x, y, x+width, y+height)
endfunction


function scrollText(txtId, x, y, width, height, delay, horizontal, vertical)
    if _ScrollParams.timestamp + delay < getMilliseconds()
        tx = getTextX(txtId)+horizontal
        ty = getTextY(txtId)+vertical

        if tx+getTextTotalWidth(txtId) < x then tx = x + width
        if tx > x+width then tx = x - getTextTotalWidth(txtId)

        if ty > y+height then ty = y - getTextTotalHeight(txtId)
        if ty < y-getTextTotalHeight(txtId) then ty = y + height

        setTextPosition(txtId, tx, ty)

        _ScrollParams.timestamp = getMilliseconds()
    endif
endfunction



function drawBox(x, y, width, height, r, g, b)
    drawLine(x, y, x+width, y, r,g,b)
    drawLine(x, y+height, x+width, y+height, r,g,b)
    drawLine(x, y, x, y+height, r,g,b)
    drawLine(x+width, y, x+width, y+height, r,g,b)
endfunction

function TextScroll$(SourceString as string)
    lastChar$ = right(SourceString$ , 1)
    stringLength = len(SourceString$)
    left$ = left(SourceString$ , stringLength - 1 )
    SourceString$ = lastChar$ + left$
    result as string
    result$ = SourceString$
endfunction result