PT Forum

comando 300 Joined: 23rd Nov 2003
Location:

Posted: 24th Jan 2004 4:08

here's a simple code.You enter the any text and text will appear bouncing across the screen

sync on : sync rate 80
x=250
y=250
dirx=0
speed=5
diry=0
input "Enter text:";a$
do
cls
text x,y,a$
if y=&lt;0 then diry=1
if y=&gt;470 then diry=0
if x=&lt;0 then dirx=1
if x=&gt;570 then dirx=0
if diry=1 then inc y,speed
if diry=0 then dec y,speed
if dirx=1 then inc x,speed
if dirx=0 then dec x,speed
sync
loop

Represent Joined: 24th Dec 2003
Location:

Posted: 24th Jan 2004 4:45

Thats pretty cool. Might come in handy.

comando 300 Joined: 23rd Nov 2003
Location:

Posted: 24th Jan 2004 5:11

thanks

MikeS Joined: 2nd Dec 2002
Location: United States

Posted: 25th Jan 2004 23:38

I liked this snippet. Simple and entertaining.

So I modded it a little.

+ Code Snippet

sync on : sync rate 80
x=250
y=250
a=140
b=140

dirx=0
speed=5
diry=0
input "Enter text:";a$
input "Enter text:";b$
do
cls

text x,y,a$
text a,b,b$

if y=&lt;0 then diry=1
if y=&gt;470 then diry=0
if x=&lt;0 then dirx=1
if x=&gt;570 then dirx=0
if diry=1 then inc y,speed
if diry=0 then dec y,speed
if dirx=1 then inc x,speed
if dirx=0 then dec x,speed

if a=&lt;0 then diry=1
if a=&gt;470 then diry=0
if b=&lt;0 then dirx=1
if b=&gt;570 then dirx=0
if diry=1 then inc a,speed
if diry=0 then dec a,speed
if dirx=1 then inc b,speed
if dirx=0 then dec b,speed

sync
loop

comando 300 Joined: 23rd Nov 2003
Location:

Posted: 26th Jan 2004 3:58

I'm gald you like it. And your modification is cool!

<1 >

Sign In