Don't have an account? Register now to chat, post, use our tools, and much more.
Online Users
There are 138 users online: 3 members, 101 guests and 34 bots.
Members: CalebHansberry, HOMER-16.
Bots: Alexa (1), Spinn3r (1), Magpie Crawler (3), VoilaBot (10), Googlebot (19).
SAX
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
 » Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next
Author Message
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 08 Jun 2009 06:32:50 am    Post subject: Without going off-topic to much, I like how you put someone else their codes up your list too! Respect! Here's my code I actually uploaded somewhere else: Code: ```Whack A Mole! :Delvar C :Output(1,1,"+--------------+!(xx)x(xx)x(xx)!!x)(xxx)(xxx)(x!!(xx)x(xx)x(xx)!!x)(xxx)(xxx)(x!!(xx)x(xx)x(xx)!+--------------+!Score:xxxxxxxx! // x = space :Starttimer->D :Lbl 0 :Output(8,8,C :int(9rand->X :int(1+X/3->A :X-3A+3->B :Output(2A,3+5B,"{} :Repeat A-1=iPart(Ans) and B=10fPart(Ans :.1(getkey-72 :If 30=Checktimer(D :Goto 1 :End :Output(2A,3+5B,"xx // x = space :C+1->C :Goto 0 :Lbl 1 :Output(8,13,"WIN :Pause``` Can only be played on a ti84+. This is not the anti-cheat version, I lost that one so...
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 08 Jun 2009 08:25:56 am    Post subject: I have Whack A Mole! Our versions are very different. Mine works on a 83 and is on the graphscreen. His is nice too. :) Code: ```FnOff AxesOff GridOff ClrDraw 0->Xmin:1->ΔX 0->Ymin:1->ΔY Text(-1,20,62,"WHACK Text(-1,29,74,"A Text(-1,38,65,"MOLE {54,44,41,31,28,18,15,5->L2 {55,45,40,30,25,15->L1 For(A,1,5,2 For(B,1,7,2 Line(L1(A),L2(B),L1(A),L2(B+1 Line(L1(A+1),L2(B),L1(A+1),L2(B+1 Line(L1(A),L2(B),L1(A+1),L2(B Line(L1(A),L2(B+1),L1(A+1),L2(B+1 End End DelVar L1DelVar L2DelVar SDelVar M250->T Text(3,64,"TIME: Text(10,60,"SCORE: While T>0 If not(M Then 1+iPart(4rand->A 1+iPart(3rand->B Text(13A-3,15B+3,"* 1->M End 1+B+10(A+6 If getKey=Ans Then Text(13A-3,15B+3,"     //5 spaces DelVar MS+1->S End T-1->T If T=99 or T=9 Text(3,82,"           //11 spaces Text(3,82,T Text(10,82,S End Text(-1,51,63,"TIME! ``` Use the number pad, [0], [.], and [-] to Whack the Mole. My high score is 55. (On a 83+) Edit: @nitacku- Thanks for putting my reflex program on your list! :) Edit from 6.5 hours later: @nitacku again- NO WAY!!!!!! You're the person who made AI Checkers! I never knew that. Can you explain the AI?Last edited by Guest on 08 Jun 2009 02:59:00 pm; edited 1 time in total
dxfan101010

Member

Joined: 31 Mar 2008
Posts: 194

 Posted: 08 Jun 2009 10:31:15 pm    Post subject: Ok Here is my version of pig Its pretty short 504(bytes) But its not fully optimized Code: ```[color=#0000FF]Delvar CDelvar PDelvar XDelvar D 0/->/T ClrHome Repeat P>100 or C>100 If T=0:Then Output(1,4,"CPU Turn //1 space Output(2,3,"Roll: Output(7,1,"CPU Randint(1,6/->/R Output(2,9,R If R=1:Then 1/->/T Delvar XDelvarR Output(2,9,"  //2 spaces Output(6,1,"   //3 spaces 1/->/T End End End If T=1 Output(1,4,"Your Turn Output(7,14,"You Getkey/->/K If k=105 Randint(1,6/->/R Output(2,9,R If R=1:Then 0/->/T 0/->/X 0/->/R Output(2,9,"  //2 spaces Output(6,14,"   //3 spaces End If R>1:Then X+R/->/X Outut(6,14,X End End If K=21 And T=0:Then 0/->/T P+X/->/X Delvar X Output(8,14,P Output(6,14,"   //3 spaces End End ClrHome If C>100:Then For(X,1,100 Output(4,4,You loose End End If P>100:Then For(X,1,100 Output(4,4,You Win End End ClrHome "[/color]``` If you find any glitches or ways to cheat please tell me so i can fix them if you cant figure out how to play enter rolls and 2nd stopsLast edited by Guest on 09 Jun 2009 03:27:26 pm; edited 1 time in total
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

Posted: 09 Jun 2009 08:37:50 am    Post subject:

GLITCH!!!!!!!!!!!!!!!!!!!!!!!!!!

 dxfan101010 wrote: Output(2,9,R Randint(1,6/->/R If you find any glitches or ways to cheat please tell me so i can fix them if you cant figure out how to play enter rolls and 2nd stops

The RandInt and Output lines need to be swapped. (RandInt then Output)

Last edited by Guest on 09 Jun 2009 08:38:35 am; edited 1 time in total
dxfan101010

Member

Joined: 31 Mar 2008
Posts: 194

Posted: 09 Jun 2009 03:26:12 pm    Post subject:

 ztrumpet wrote: GLITCH!!!!!!!!!!!!!!!!!!!!!!!!!! The RandInt and Output lines need to be swapped. (RandInt then Output)

ooops ok i fixed that and also This
IF K=21:Then

should be

IF K=21 And T=0 :Then
Steelersfan1693

Newbie

Joined: 04 Dec 2008
Posts: 32

 Posted: 16 Oct 2009 12:24:19 pm    Post subject: Thank you that was vey generous!
Steelersfan1693

Newbie

Joined: 04 Dec 2008
Posts: 32

Posted: 16 Oct 2009 12:49:31 pm    Post subject:

 ztrumpet wrote: I have Whack A Mole! Our versions are very different. Mine works on a 83 and is on the graphscreen. His is nice too. Code: ```FnOff AxesOff GridOff ClrDraw 0->Xmin:1->ΔX 0->Ymin:1->ΔY Text(-1,20,62,"WHACK Text(-1,29,74,"A Text(-1,38,65,"MOLE {54,44,41,31,28,18,15,5->L2 {55,45,40,30,25,15->L1 For(A,1,5,2 For(B,1,7,2 Line(L1(A),L2(8),L1(A),L2(B+1 Line(L1(A+1),L2(8),L1(A+1),L2(B+1 Line(L1(A),L2(8),L1(A+1),L2(B Line(L1(A),L2(B+1),L1(A+1),L2(B+1 End End DelVar L1DelVar L2DelVar SDelVar M250->T Text(3,64,"TIME: Text(10,60,"SCORE: While T>0 If not(M Then 1+iPart(4rand->A 1+iPart(3rand->B Text(13A-3,15B+3,"* 1->M End 1+B+10(A+6 If getKey=Ans Then Text(13A-3,15B+3,"     //5 spaces DelVar MS+1->S End T-1->T If T=99 or T=9 Text(3,82,"           //11 spaces Text(3,82,T Text(10,82,S End Text(-1,51,63,"TIME! ``` Use the number pad, [0], [.], and [-] to Whack the Mole. My high score is 55. (On a 83+) Edit: @nitacku- Thanks for putting my reflex program on your list! :) Edit from 6.5 hours later: @nitacku again- NO WAY!!!!!! You're the person who made AI Checkers! I never knew that. Can you explain the AI?
GloryMXE7
Puzzleman 3000

Active Member

Joined: 02 Nov 2008
Posts: 604

 Posted: 16 Oct 2009 03:18:22 pm    Post subject: I don't see how you thought it was necessary to quote that and not even add anything to it, but I guess it doesn't matter.Last edited by Guest on 16 Oct 2009 03:19:00 pm; edited 1 time in total
Weregoose
Authentic INTJ

Super Elite (Last Title)

Joined: 25 Nov 2004
Posts: 3976

 Posted: 16 Oct 2009 06:00:44 pm    Post subject: And double posting, no less. Steelersfan1693, remember what the moderator's reactions were to this last time? ;) Just try to be a little more formal. This isn't like a YIM session in here, exactly.Last edited by Guest on 16 Oct 2009 06:02:57 pm; edited 1 time in total
Steelersfan1693

Newbie

Joined: 04 Dec 2008
Posts: 32

Posted: 20 Oct 2009 10:30:31 am    Post subject:

 Weregoose wrote: And double posting, no less. Steelersfan1693, remember what the moderator's reactions were to this last time? ;) Just try to be a little more formal. This isn't like a YIM session in here, exactly.

Whats Yim
Weregoose
Authentic INTJ

Super Elite (Last Title)

Joined: 25 Nov 2004
Posts: 3976

 Posted: 20 Oct 2009 11:30:59 am    Post subject: Protip: In the time that I spent writing this reply, you could have already found your answer. Try Google and/or Wikipedia.Last edited by Guest on 20 Oct 2009 11:31:09 am; edited 1 time in total
dxfan101010

Member

Joined: 31 Mar 2008
Posts: 194

Posted: 20 Oct 2009 02:07:43 pm    Post subject:

...赵辉
kinkoa

Member

Joined: 28 Jul 2009
Posts: 103

 Posted: 18 Nov 2009 01:58:15 pm    Post subject: i made two programs textapp and textapp2 that are calc linking programs, very easy to code and fast here it is textapp program:textapp :clrhome :output(1,1,"to send a message type it after pressing [2nd] and [alpha] and press enter, to exit press [2nd] and [mode] :pause :clrhome :lbl 1 :input "msg: ",str0 :getcalc(str8 :disp str8 :goto 1 and textapp2 program:textapp :clrhome :output(1,1,"to send a message type it after pressing [2nd] and [alpha] and press enter, to exit press [2nd] and [mode] :pause :clrhome :lbl 1 :input "msg: ",str8 :getcalc(str0 :disp str0 :goto 1 run textapp on one calc and textapp2 on the other and it works very quickly but it has some flaws such as if you send multiple messages they will only see the last one and the other flaw is that if you send multiple messages you will get the same message back repeatedly if they have not pressed enterLast edited by Guest on 01 Jul 2010 10:17:07 am; edited 1 time in total
TI-newb

Member

Joined: 24 Dec 2008
Posts: 158

 Posted: 18 Nov 2009 10:09:22 pm    Post subject: Im very happy this thing is still being posted on =D. U know what? i think il post 1 prgm soon.
Weregoose
Authentic INTJ

Super Elite (Last Title)

Joined: 25 Nov 2004
Posts: 3976

 Posted: 23 Nov 2009 04:32:52 am    Post subject: Nothing too spectacular. Insert any arrangement of logical operations on two variables to receive a simplified result: :Input Str1:0 :For(A,0,1 :For(B,0,1 :Ans+expr(Str1)10^(2A+B :End:End :sub("0░░░not(A or BB░░░B or not(AA and not(Bnot(B░░A or B░1░░░A and B░not(A …xor BB and not(Anot(A░░A░░░A or not(BA xor B░not(A and B",1+64fPart(Ans/16),4 "A xor not(B or not(A" outputs the equivalent "A and B," and the classic "not(A) and not(B)" returns "not(A or B." The last line of the program should look like this in the editor: :sub("0´´´not(A or BB´´´B or not (AA and not(Bnot (B´´A or B 1´´´A ´and B not(A xor ´BB and not(Anot (A´´A´´´A or not (BA xor B not(A and B",1+64fPart (Ans/16),4 Last edited by Guest on 01 Jul 2010 10:17:23 am; edited 1 time in total
Galandros

Active Member

Joined: 29 Aug 2008
Posts: 565

Posted: 23 Nov 2009 04:36:51 am    Post subject:

 Weregoose wrote: Nothing too spectacular. Insert any arrangement of logical operations on two variables to receive a simplified result: :Input Str1:0 :For(A,0,1 :For(B,0,1 :Ans+expr(Str1)10^(2A+B :End:End :sub("0░░░not(A or BB░░░B or not(AA and not(Bnot(B░░A or B░1░░░A and B░not(A …xor BB and not(Anot(A░░A░░░A or not(BA xor B░not(A and B",1+64fPart(Ans/16),4 "A xor not(B or not(A" outputs the equivalent "A and B," and the classic "not(A) and not(" returns "not(A or B." The last line of the program should look like this in the editor: :sub("0´´´not(A or BB´´´B or not (AA and not(Bnot (B´´A or B 1´´´A ´and B not(A xor ´BB and not(Anot (A´´A´´´A or not (BA xor B not(A and B",1+64fPart (Ans/16),4

This is actually useful... xor is rarely used in TI-BASIC mostly because it is hard to see when it can be used. Apart from toggling a variable that serves as a flag, I almost don't use it anywhere else.

Last edited by Guest on 01 Jul 2010 10:18:26 am; edited 1 time in total
Flofloflo

Member

Joined: 07 Nov 2007
Posts: 120

 Posted: 23 Nov 2009 06:27:30 am    Post subject: [quote name='TI-newb' post='131990' date='Mar 15 2009, 04:53 PM']i just read my own post, and i didn't get what i was trying to say... so lemme repeat it's like a Getkey, this Program... actually it is, so it uses Getkeys instead of the Input "..:",A and so i get the Value of what im typing down right away instead of Typine it down on Input and then pressing Enter.. But i think i have given up on it anyways...[/quote] I once made that for a 'braintrain' game where you'd get random equations to solve ("5+7=?, 9/3=?") so it could keep track of how much time you'd take for solving something like, 20 equations. It's fun to make, and probably can be useful... To do so, you need to make a formula that converts the keypress values of the numbers into 1,2,3,4,5,6,7,8,9, that formula is probably somewhere among the brainteasers . I guess its not that hard to think of some games that utilise it actualy I might try that again sometime...
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

Posted: 23 Nov 2009 03:59:07 pm    Post subject:

 Galandros wrote: xor is rarely used in TI-BASIC mostly because it is hard to see when it can be used. Apart from toggling a variable that serves as a flag, I almost don't use it anywhere else.

I've used xor numerous times. The two main times I think I use it are:
1: Draw a checkerboard pattern. Like this:
:For(A,1,16
:For(B,1,8
:Output(B,A,sub("8O",1+not(fpart(A/2) xor fpart(B/2)),1
:End
:End

2: The second is just for optimization. The most recent time I used it was in the Sort code for Oasis, as it determines if it sorts for All or Mirage Programs.

Last edited by Guest on 01 Jul 2010 10:16:49 am; edited 1 time in total
GloryMXE7
Puzzleman 3000

Active Member

Joined: 02 Nov 2008
Posts: 604

 Posted: 23 Nov 2009 06:27:00 pm    Post subject: I also use Xor alot when using xlib.
TI-newb

Member

Joined: 24 Dec 2008
Posts: 158

 Posted: 23 Nov 2009 07:23:40 pm    Post subject: FloFloFlo, thanks for the idea =D(I think i might work on making that into a SubPrgm). And heres for my Post: I am currently doing Graphing in Math, and i figured finding the Length (Distance between the two points), Midpoint and Slope anoying. So, i decided to make a Prgm that takes your two points (X,Y,X,Y) into the stuff. (Its not done yet, ive only had about 15 mins to work on this, so i still need to finish "Length") !!!- BTW!! When you RUN THE PRGM and get to the Input part that asks.. X,Y,X,Y:... You have to type down "{" (Because this prgm uses the List to store the coordinates, the input has to start off as "{".. So for example.. X,Y,X,Y:{5,3,10,13) :ClrHome :Input "X,Y,X,Y:",L1 :ClrHome :Disp L1 //Just to remind you about the coordinates you put down, and for me to see if the prgm is working correctly.. :Output(2,1,"GRAPH INFO:(5 Spaces)SLOPE:(10 Spaces)MIDPOINT:X=(14spaces)Y=(5 Spaces)LENGTH:" :Output(4,13,(L1(1)+L1(3))/2 :Output(5,13,(L1(2)+L1(4))/2 :Output(3,13,(L1(4)-L1(2))/L1(3)-L1(1)) =D. If you find any problems in this prgm, tell me, and il just Breakdown whats the prgm doing now (For the people who are currently Starting prgming..) Input"X,Y,X,Y:" //gets the X and Y coordinates into the List L1. Disp L1 //shows the Coordinates you have placed into L1 Output(2,1"Graphinfo Ect..) // I just figured i would do this instead of putting down alot of Output( functions.. Output(4,13 Ect.. // Displays the Midpoint Between X1, and X2 Output(5,13 Ect.. // Displays the Midpoint Between Y1 and Y2 Output(3,13 Ect.. // Displays the Slope of the coordinates.Last edited by Guest on 23 Nov 2009 07:25:11 pm; edited 1 time in total
 Display posts from previous: All Posts Oldest FirstNewest First
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.

»
 » Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next Page 5 of 7 » All times are GMT - 5 Hours

© Copyright 2000-2013 Cemetech & Kerm Martian :: Page Execution Time: 0.035128 seconds.