CEMETECH
Leading The Way To The Future
Login [Register]
Username:
Password:
Autologin:

Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
Online Users
There are 152 users online: 6 members, 129 guests and 17 bots.
Members: APotato, iTzAnTh504, joewawaw, MateoConLechuga, Molotoviphone, uiouio111.
Bots: MSN/Bing (2), VoilaBot (2), Spinn3r (2), Magpie Crawler (4), VoilaBot (2), Googlebot (5).
RSS & Social Media
SAX
You must log in to view the SAX chat widget
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.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Author Message
jammasterz


Advanced Newbie


Joined: 28 Nov 2011
Posts: 72

Posted: 25 Mar 2012 01:40:08 pm    Post subject:

Hi. I've been making a small multiplayer game called starwars. 2 people connect their calcs with a cable and have a lot of fun on math-lesson Smile. Note that im doing this in Basic because its very easy to debug. After this is done i will convert it to Asm, which will completely delete the lag when for example all 5 bullets are one the screen.

What i made so far:
Rotate calc 90 degrees.


Code:
ClrHome
Asm(prgmRNINDOFF) //Make a new program and type AsmPrgmEF7045C9
4->P
0->C
5->dim(lA) //list A
Output(P,1," ")//space
Lbl B
   While 1
      GetKey
      If Ans = 22: Stop //Mode
      If (Ans = 73 and P != 1) or (Ans = 93 and P != 8):Goto M //!= stands for doesnt equal, keys = 8 and 2
      If Ans = 84 // key = 6
      Goto S
      For (I,1,C)
         If iPart(lA(I)) = 16: Then //list A
            Output (10fPart(lA(I)),iPart(lA(I)), " ")
            For (J, 0, C-I-1) //moving the elements
               lA(I+J+1)->lA(I+J)
            End
            C-1->C
         End
         Output (10fPart(lA(I)),iPart(lA(I)), " ")
         If C != 0:Then// != stands for doesnt equal
            lA(I)+1->lA(I)
            Output (10fPart(Ans),iPart(Ans), "-")
         End
      End
   End
   Lbl M
      Output (P,1," ")
      P+1(Ans = 93)-1(Ans = 73)->P
      Output (P,1,">")
   End
   Lbl S
      If C != 0:Then
         If C = 5 or lA(C) = (P/10+2):Goto B
      End
      (P/10+2)->lA(C+1)
      C+1->C
   End
End //Not needed


Now, my question is if there is a way to request a variable from a connected calc. As far as i know there only is a send option, but it would cause a lot of problems.If there isn't, could you please tell me which port do i have to send my data to, and where goes the data on the other second calculator?


Last edited by Guest on 25 Mar 2012 02:23:14 pm; edited 1 time in total
Back to top
Sven.Thomas0


Active Member


Joined: 19 May 2009
Posts: 520

Posted: 25 Mar 2012 05:40:45 pm    Post subject:

At a Pause, Menu(, Prompt , or Input , the other calc can do, for example, GetCalc(Str2 and it will try to receive the var Str2 from the other calc.

Last edited by Guest on 25 Mar 2012 05:45:06 pm; edited 1 time in total
Back to top
Display posts from previous:   
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
   
View previous topic :: View next topic  
Page 1 of 1 All times are GMT - 5 Hours

 

© Copyright 2000-2014 Cemetech & Kerm Martian :: Page Execution Time: 0.024547 seconds.