This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's
TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.
TI-Basic =>
TI-BASIC
| Author |
Message |
|
Babyboy
Advanced Member
Joined: 11 Jun 2003
Posts: 499
|
 Posted: 01 Sep 2003 03:34:51 pm Post subject: |
|
|
hi again! 
this is my source code, my charecter won't move, this is an experiment i did with quick walk code, the program cycles thru but i wont move plz help
Code:
Lbl A
RecallPic 1
Text(A,B,"8"
Text(A,B-1," "
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
Text(A+6,B," "
If K=21
Then
ClrHome
Menu("Pause ","Resume",RE,"Save and quit",SQ
Lbl RE
If Z=1
Goto A
If Z=2
Goto B
If Z=3
Goto C
End
If Z=1
Then
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
If A=10 and B<37
11üA
If A=16 and B<37
15üA
If A÷10 and B=37
38üB
If Aù16 and B=37
38üB
If B=40
Goto 2üZ
If A=11 and B=9
Goto W1
If A=11 and B=26
Goto TA
Goto A
End
If Z=2
Then
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
If B÷40
1üZ
If Aù16 and B=47
46üB
If A÷10 and B=47
46üB
If A=10 and Bù48
11üA
If A=11 and B=61
Goto IT
If A=24 and B=46
Goto IN
If A=11 and B=85
goto MA
If A=2 and B=42
Goto B1
Goto A
End
If Z=3
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
Then
If A=23
24üA
If A=34
35üA
If K
Then
randInt(1,5üF
If F=5
Goto BA
End
If A=24 and B=46
Goto IN
Goto A
End
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
Goto A
|
|
| Back to top |
|
|
JesusFreak
JesusFreak
Active Member
Joined: 17 Jun 2003
Posts: 537
|
| Posted: 01 Sep 2003 05:10:24 pm Post subject: |
|
|
Code:
B+(K=26)-(K=24)üB
A+(K=34)-(K=25)üA
that is in there twice,
also get rid of that other junk, and just do the walking code, and see if that works, then slowly add some of the other code
just noticed, the untimate DUH!!!
Code:
getkey->K
you forgot that
Last edited by Guest on 01 Sep 2003 05:12:06 pm; edited 1 time in total |
|
| Back to top |
|
|
Ben Trettel
Member
Joined: 17 Jul 2003
Posts: 153
|
| Posted: 01 Sep 2003 05:32:41 pm Post subject: |
|
|
| Use actual loops like While or Repeat to make your program faster. |
|
| Back to top |
|
|
Babyboy
Advanced Member
Joined: 11 Jun 2003
Posts: 499
|
| Posted: 01 Sep 2003 07:33:38 pm Post subject: |
|
|
AHHHHHH!!!   HOW COULD I HAVE MISSED !THAT!
Last edited by Guest on 01 Sep 2003 07:39:29 pm; edited 1 time in total |
|
| Back to top |
|
|
|
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.
»
Go to Registration page
