Here is a little marquee utility / demo.
Lt and Rt Arrow Keys: Change direction.
Up and Down Arrow Keys: Speed.
+ and - Keys: Widen or shorten window width.
Tab Key: Toggle between text and object.
B Key: Rebound effect. Text or object reverses when it hits a margin. Key must be pressed when entire text or object is visible on the screen.
W Key: Toggle wraps / unwraps object.
T Key: Write your own text.
Esc Key: End.
I was thinking about adding a saucer to my Mini Space Invaders WIP, but put this together as a routine that could also be used in other applications.
Pete
Lt and Rt Arrow Keys: Change direction.
Up and Down Arrow Keys: Speed.
+ and - Keys: Widen or shorten window width.
Tab Key: Toggle between text and object.
B Key: Rebound effect. Text or object reverses when it hits a margin. Key must be pressed when entire text or object is visible on the screen.
W Key: Toggle wraps / unwraps object.
T Key: Write your own text.
Esc Key: End.
Code: (Select All)
Width 60, 20
Do
_Font 16: Cls
Dim Object As String
If Object = "" Then
Object = "ÎÃÒåўÒÐÃËÃÌÂÍÓÑžÀÓÒžÑÒÃÔåўÈÓÑÒž¿Ë¿ØÇÌÅ"
new$ = "": For i = 1 To Len(Object): x$ = Mid$(Object, i, 1): new$ = new$ + Chr$(Asc(x$) - 126): Next
Object = new$
End If
LtMargin = 1: RtMargin = _Width: x = 0: y = 3: If speed = 0 Then speed = .075
GoSub info
Do
_Limit 60
If Abs(z - Timer) > speed Then
z = Timer
MarqueeLIB Object, LtMargin, RtMargin, way, y, x, wrapper, rebound, AllowOffScrn, OffScrn
If OffScrn = 1 Then Sound 700, .5: Sleep
End If
GoSub keyboard: If OffScrn = -1 Then Exit Do
Loop
Loop
keyboard:
b$ = InKey$
If Len(b$) Then
Select Case b$
Case Chr$(0) + "M": way = 1
Case Chr$(0) + "K": way = -1
Case Chr$(0) + "H": If speed > 0 Then i = speed * 1000: speed = (i - 10) / 1000
Case Chr$(0) + "P": If speed < .2 Then i = speed * 1000: speed = (i + 10) / 1000
Case "b", "B": If cnt = j And x + j <= RtMargin Then rebound = 1 - rebound Else Sound 100, 1
Case Chr$(9): OffScrn = -1: If Object <> "-é-" Then Object = "-é-": OffScrn = -1: Else Object = ""
Case "+", "=": If RtMargin < 150 Then OffScrn = -1: RtMargin = RtMargin + 1: Width RtMargin, 20
Case "-", "_": If RtMargin > 1 Then OffScrn = -1: RtMargin = RtMargin - 1: Width RtMargin, 20
Case "t", "T": Cls: Line Input "Text Line: "; Object: OffScrn = -1
Case "w", "W": wrapper = 1 - wrapper
Case "a", "A": AllowOffScrn = 1 - AllowOffScrn
Case Chr$(27): _Delay 1.5: System
Case Else: Return
End Select
GoSub info
End If
Return
info:
If _Width > 59 Then
View Print _Height - 1 To _Height: Cls 2: View Print
Locate _Height - 1: Print " Way:"; way; " Delay: "; LTrim$(Str$(speed)); " Wrap:"; wrapper; " Rebound:"; rebound; " Pause OffScrn"; AllowOffScrn;
End If
Return
Sub MarqueeLIB (Object As String, LtMargin, RtMargin, way, y, x, wrapper, rebound, AllowOffScrn, OffScrn)
Static cnt, j, k, wmaskx, wmasklen
If way = 0 Then way = 1
If OffScrn Then OffScrn = 0: cnt = 0: j = 0: k = 0: x = 0 ' Clears static variables and resets x.
If j = 0 Then
j = Len(Object): k = 0: wmaskx = 0: wmasklen = 0: x = (RtMargin - RtMargin * way) \ 2
If way = -1 Then cnt = j Else cnt = 0
End If
If wrapper Then If RtMargin - LtMargin + 1 < j Then Cls: Print "Object too long.": End
If x > 0 And x <= RtMargin Then Locate y, x: Print Space$(k);
If way < 0 And wrapper <> 0 And x = RtMargin And cnt = j Then x = RtMargin + 1 - j
If way < 0 And cnt = 1 And wrapper = 0 Then cnt = j: x = RtMargin + 1: If AllowOffScrn Then OffScrn = 1 ' Exit left enter right.
If way > 0 And cnt = j And x = RtMargin Then ' Exit right enter left.
x = LtMargin - 1: If wrapper = 0 Then cnt = 0: If AllowOffScrn Then OffScrn = 1
End If
If OffScrn = 1 Then Exit Sub Else OffScrn = 0
If cnt < j And way > 0 Then ' Left to right text is still developing.
x = LtMargin
Else ' Either direction but left to right is at or past 1st column.
If x < RtMargin Or way < 0 Then ' Left to right but not at right margin or all right to left.
If x + way > LtMargin - 1 Then ' Right to left once entire object is visable and Left to right until object begins going off left side.
x = x + way
Else
If way > 0 Then
x = LtMargin
Else ' Left to right decreasing off left margin.
If rebound = 0 Then
cnt = cnt + way
Else ' Rebound changes direction to right.
way = 1: x = x + way
End If
End If
End If
End If
End If
If way > 0 And cnt < j Then cnt = cnt + way
If rebound And way > 0 And x + j > RtMargin Then way = -1
k = RtMargin - x + 1: If cnt < k Then k = cnt
x$ = Mid$(Object, j + 1 - cnt, k)
If wmasklen Then Locate y, wmaskx: Print Space$(wmasklen);
wmaskx = 0: wmasklen = 0
Locate y, x: Print x$;
If wrapper Then
If way < 0 Then
If j = cnt And k < j Then
wmaskx = LtMargin: wmasklen = j - k
If wmasklen Then Locate y, wmaskx: Print Mid$(Object, k + 1);
If cnt = 0 Then x = RtMargin: cnt = j: k = 1 ' For mask only. See wrapper statement after mask to reposition x.
Else
If cnt < j Then
wmaskx = RtMargin + 1 - (j - cnt): wmasklen = j - cnt
Locate y, wmaskx: Print Mid$(Object, 1, j - cnt);
If cnt = 0 Then x = RtMargin: cnt = j: k = 1
End If
End If
Else ' way > 0
If cnt < j Then
wmaskx = RtMargin + 1 - (j - cnt): wmasklen = (j - cnt)
Locate y, wmaskx: Print Mid$(Object, 1, wmasklen);
Else
If k < j Then
wmaskx = LtMargin: wmasklen = j - k
Locate y, wmaskx: Print Mid$(Object, k + 1);
End If
End If
End If
End If
End SubI was thinking about adding a saucer to my Mini Space Invaders WIP, but put this together as a routine that could also be used in other applications.
Pete