Author Topic: Animations  (Read 8767 times)

0 Members and 2 Guests are viewing this topic.

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Animations
« Reply #15 on: October 29, 2010, 04:11:12 pm »
A wave animation, I'll do a sea wave animation right away hahah.
My code for that one:
Code: [Select]
:ClrHome
:For(A,1,7
:Disp " // Nothing after the quote
:End
:DelVar A1->B // A is Current X location, B is Variable to track movement
:Repeat getKey
:Disp " // Again, nothing after the quote
:Output(8,1,sub("..........         ",10-A,10  // 10 periods followed by 9 spaces
:A+B->A
:If Ans=9 or not(Ans
:-B->B // That's the negative sign, not minus
:End
« Last Edit: October 29, 2010, 04:14:06 pm by ztrumpet »

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Animations
« Reply #16 on: October 29, 2010, 04:36:11 pm »
try this if the one ztrumpet posted doesn't work:

Code: [Select]
:Clrhome
:For(A,1,8
:Disp "
:End
:"(7 spaces).(7 spaces)->Str1
:Delvar TWhile 1
:T+1->T
:Disp sub(Str1,T,8
:If T=8
:Delvar T
:End

the Delvar stuff is intentional.  ;)
« Last Edit: October 29, 2010, 05:35:59 pm by yunhua98 »

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Animations
« Reply #17 on: October 29, 2010, 05:32:03 pm »
Did you try to test your yunhua? :)

If T does not equal 8, it will skip the End. :(
Also, T+->T doesn't quite work either. :(

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Animations
« Reply #18 on: October 29, 2010, 05:34:26 pm »
oops.  :-[  fixing.  :P

done.  ;)
« Last Edit: October 29, 2010, 05:36:25 pm by yunhua98 »

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Animations
« Reply #19 on: October 29, 2010, 05:35:30 pm »
I prefer to do:

T + 1 -> T

:)

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Animations
« Reply #20 on: October 29, 2010, 05:37:11 pm »
yeah, that was a mistake.  :P

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Animations
« Reply #21 on: October 29, 2010, 05:38:02 pm »
See prgmI13A included with Illusiat 13 game. It contains 54 magic animations in under 2 KB BASIC code. I don't exactly remember which variable need to be initialized before running it, though. You may have to check prgmI13C too. I would post the code but SourceCoder messes it up extremly bad...
« Last Edit: October 29, 2010, 05:38:26 pm by DJ Omnimaga »
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Animations
« Reply #22 on: October 29, 2010, 05:44:22 pm »
I made a virus effect image, the only way to shut the program is by clicking "On", is there a way to change this?

Thanks ^^

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Animations
« Reply #23 on: October 29, 2010, 05:45:39 pm »
you can use Onblock, an Assembly program which blocks the On button.  btw, I see you got Wabbit working.  :D

EDIT: link
http://www.ticalc.org/archives/files/fileinfo/330/33039.html
« Last Edit: October 29, 2010, 05:46:12 pm by yunhua98 »

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Animations
« Reply #24 on: October 29, 2010, 06:28:29 pm »
Huh, interesting. I had programs that did the wave effects, though when I went back and looked at them they were not optimized at all :P (made when I was just getting back into programing and such :P).

With Pure TI-BASIC, no, unfortunately you can't disable the [ON] break but with Hybrid TI-BASIC and, or as yunhua98 said, assembly you can.
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Animations
« Reply #25 on: October 29, 2010, 07:31:25 pm »
That gave me a syntax error, though, can't tell which line for now, WabbitEmu.

What line did it point to?




Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Animations
« Reply #26 on: October 29, 2010, 07:51:48 pm »
A wave animation, I'll do a sea wave animation right away hahah.
My code for that one:
Code: [Select]
:ClrHome
:For(A,1,7
:Disp " // Nothing after the quote
:End
:DelVar A1->B // A is Current X location, B is Variable to track movement
:Repeat getKey
:Disp " // Again, nothing after the quote
:Output(8,1,sub("..........         ",10-A,10  // 10 periods followed by 9 spaces
:A+B->A
:If Ans=9 or not(Ans
:-B->B // That's the negative sign, not minus
:End

You can actually shave off ten bytes by having this:

Code: [Select]
For(A,1,7
Disp "
End
1→A
Ans→B
Repeat getKey
Disp "
Output(8,1,sub("..........",1,A
A+B→A
If max(Ans={1,10
-B→B
End

The reason it works is because Disp works the same as pushing [ENTER] on the homescreen. If you enter a string it will display it on the left side but if it's a number it will display on the right. Therefore, there is no need to accommodate :)
« Last Edit: October 29, 2010, 07:59:50 pm by meishe91 »
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Animations
« Reply #27 on: October 29, 2010, 10:59:49 pm »
Wow, I can't believe I did it the way I did.  Thanks for pointing it out! ;D  * ZTrumpet feeds himself to the lobster. ^-^

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Animations
« Reply #28 on: October 29, 2010, 11:11:56 pm »
No problem :) Simple mistake to make though so no worries :)
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Animations
« Reply #29 on: October 30, 2010, 04:59:10 am »
Ok, I made it working, I did (-B) -> B, and it worked :)

Yeah it is faster, but I could never do something like that :(

Code: [Select]
:ClrHome
:For(A,1,500
:Output(1,1,"DELETING RAM
:2→A
:Output(A,1,".
:rand(15
:Output(A,2,".
:rand(15
:Output(A,3,".
:rand(15
:Output(A,4,".
:rand(15
:Output(A,5,".
:rand(15
:Output(A,6,".
:rand(15
:Output(A,7,".
:rand(15
:Output(A,8,".
:rand(15
:Output(A,9,".
:rand(15
:Output(A,10,".
:rand(15
:Output(A,11,".
:rand(15
:Output(A,12,".
:rand(15
:Output(A,13,".
:rand(15
:Output(A,14,".
:rand(15
:Output(A,15,".
:rand(15
:Output(A,16,".
:rand(15
:Output(3,1,"RAM DELETED
:A+2→A
:Output(A,1,".
:rand(15
:Output(A,2,".
:rand(15
:Output(A,3,".
:rand(15
:Output(A,4,".
:rand(15
:Output(A,5,".
:rand(15
:Output(A,6,".
:rand(15
:Output(A,7,".
:rand(15
:Output(A,8,".
:rand(15
:Output(A,9,".
:rand(15
:Output(A,10,".
:rand(15
:Output(A,11,".
:rand(15
:Output(A,12,".
:rand(15
:Output(A,13,".
:rand(15
:Output(A,14,".
:rand(15
:Output(A,15,".
:rand(15
:Output(A,16,".
:rand(15
:Output(5,1,"DESTROYING
:A+2→A
:Output(A,1,".
:rand(15
:Output(A,2,".
:rand(15
:Output(A,3,".
:rand(15
:Output(A,4,".
:rand(15
:Output(A,5,".
:rand(15
:Output(A,6,".
:rand(15
:Output(A,7,".
:rand(15
:Output(A,8,".
:rand(15
:Output(A,9,".
:rand(15
:Output(A,10,".
:rand(15
:Output(A,11,".
:rand(15
:Output(A,12,".
:rand(15
:Output(A,13,".
:rand(15
:Output(A,14,".
:rand(15
:Output(A,15,".
:rand(15
:Output(A,16,".
:rand(15
:Output(7,1,"VIRUS FINISH
:A+2→A
:Output(A,1,".
:rand(15
:Output(A,2,".
:rand(15
:Output(A,3,".
:rand(15
:Output(A,4,".
:rand(15
:Output(A,5,".
:rand(15
:Output(A,6,".
:rand(15
:Output(A,7,".
:rand(15
:Output(A,8,".
:rand(15
:Output(A,9,".
:rand(15
:Output(A,10,".
:rand(15
:Output(A,11,".
:rand(15
:Output(A,12,".
:rand(15
:Output(A,13,".
:rand(15
:Output(A,14,".
:rand(15
:Output(A,15,".
:rand(15
:Output(A,16,".
:rand(15
:End
« Last Edit: October 30, 2010, 04:59:46 am by ScoutDavid »