Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

TI-83+ Games and Programs

Tags:
  1. Dec 22, 2008 #1
    This game is where you try to hit a target on the ground, very simple but addicting.
    Called Arcshot, I did not make this, I found it on the web and though it was fun so i put it here for others.
    Key: -> is Sto
    < or > is less than or more than
    * is times
    ^ is a carrot
    If you can't find some of these keys then go to 2nd then press 0... I think it will say catalog, it has every key in the calculator. I will be posting more games if I find them or some that I made.
    ARCSHOT
    :0->Xmin
    :94->Xmax
    :1->Ymin
    :63->Ymax
    :PlotsOff
    :CoordOff
    :AxesOff
    :GridOff
    :FnOff
    :Lbl A
    :0->B
    :randInt(10,85)->C
    :ClrDraw
    :ClrHome
    :Line(C,1,C+5,1
    :Line(C+1,2,C+4,2
    :For(A,1,500)
    :End
    :Lbl B
    :ClrDraw
    :Input "SHOT POWER=",S
    :B+1->B
    :(1/S)->S
    :Line(C,1,C+5,1
    :Line(C+1,2,C+4,2
    :For(X,0,95,.25
    :(-S(X^2)+63)->Y (Make this negative S)
    :Y->Z
    :Pt-On(X,Y)
    :If Z<0 or Z=0
    :Goto C
    :End
    :Lbl C
    :1->M
    :If X>(C-1) and X<(C+6)
    :Then
    :2->M
    :X->K
    :Line(K,1,K-8,3
    :Line(K,1,K+8,3
    :Line(K,1,K-6,8
    :Line(K,1,K+6,8
    :Line(K,1,K-2,6
    :Line(K,1,K+2,6
    :End
    :For(A,1,200)
    :End
    :If M=2
    :Then
    :ClrHome
    :If B=1
    :Then
    :For(I,1,3)
    :Output(4,4,"FIRST TRY!"
    :For(A,1,100)
    :End
    :Output(4,4,"__________" (10 spaces)
    :For(A,1,100)
    :End
    :End
    :Output(4,4,"FIRST TRY!:"
    :End
    :If B>1
    :Then
    :Output(4,4,B
    :Output(4,8,"SHOTS"
    :End
    :Pause
    :ClrHome
    :Goto D
    :End
    :ClrHome
    :Disp "SHOOT AGAIN:"
    :Goto B
    :Lbl D
    :ClrHome
    :Menu("PLAY AGAIN?","YES",A,"NO",E
    :Lbl E
    :ClrHome
    :Stop
     
  2. jcsd
  3. Dec 22, 2008 #2
    Once I get a TI-83 to PC link cable I will be releasing a "Game Pack" so to speak of some calculator games that I have made or found on the web, This one will take up around 4000 of your RAM. It will include Arcshot and more!!!
     
  4. Jan 6, 2009 #3
    OK Since I didn't find this on the web and I made it myself but on my calculator it took me a little longer to put this in for you guys. If anyone finds any bugs please e-mail me at samuelwilderwatkins@yahoo.com. This includes random numbers to Arithmetic sequence formulas. and a better way to do math. Hope you enjoy this, i did, also it should take about 1200 memory.
    LOOK AT THE KEY IT IS VERY IMPORTANT
    Key:
    -> Store button
    /= Not equal to
    o is an O 0 is a zero
    -0 is ALPHA 3
    OK Here goes nothing
    / / don't type in just me telling you stuff

    /Program ti-83/
    /By Sam W/

    :Lbl -0
    :Menu("ALGEBRA","Arithmetic seq.",B,"Mathmatics",C,"Random Numbers",R,"Funned-up math",M,"Leave",L) /only click ENTER if the line starts with a :/
    :Lbl B
    :Clrhome
    :Disp "1, 2, 3,... Nth"
    :Disp " "A1, A2, A3, An" /You can do lower case letters if you have Mirage OS click ALPHA and do misc./
    :Disp "an=a1+(n-1)d
    :Prompt A
    :Prompt D
    :Prompt N
    :Disp A1+(N-1)D
    :Pause
    :Goto -0
    :End
    :Lbl C
    :Menu("MATHMATICS","Addition",D,"Subtraction",C,"Multiplecation",F,"Division",G,"Go back",-0) /If it gives you a SYNTAX its probably because you didn't put a comma (,) or a "
    :Lbl D
    :Clrhome
    :Disp "A+B+C=???"
    :Prompt A
    :Prompt B
    :Prompt C
    :Disp A+B+C /Remeber, this time after Disp theres no ""/
    :Pause
    :Goto C
    :End
    :Lbl E
    :ClrHome
    :Disp "A-B-C=???"
    :Prompt A
    :Prompt B
    :Prompt C
    :Disp A-B-C
    :Pause
    :goto C
    :End /I'm going to stop using capitol letters, it uses to much time/
    :lbl f
    :clrhome
    :disp "a*d*c=???"
    :prompt a
    :prompt b
    :prompt c
    :disp "a*b*c=???"
    :pause
    :goto c
    :end
    :lbl G
    :clrhome
    :disp "a/b/c=???"
    :prompt a
    :prompt b
    :prompt c
    :disp a/b/c /If theres no third number in any of these just put a 1 on the C/
    :pause
    :goto c
    :end
    :lbl L
    :normal /press mode or 2nd zoom/
    :float
    :Radian
    :clrdraw
    :clrhome
    :stop
    :end
    :lbl r
    :Menu(RANDOM NUMBERS","50-100",3,"100-200",4,"200-300",5,"300-400",6,"400-500",7,"100-500",8,"Quit",-0)
    :clrhome
    :lbl 3
    :randint(50,1000->Q /THIS IS NEVER ENDING.... ONLY WAY TO STOP IT IS TO PRESS ON/
    :disp Q /DON'T TAKE OUT YOUR BATTERIES/
    :goto 3
    :clrhome
    :end
    :clrhome
    :lbl 4
    :randint(100,200)->Q
    :disp Q
    :goto 4
    :clrhome
    :end
    :clrhome
    :lbl 5
    :randint(200,300)->Q
    :disp Q
    :goto 5
    :clrhome
    :end
    :clrhome
    :lbl 6
    :randint(300,400)->Q
    :disp Q
    :goto 6
    :clrhome
    :end
    :clrhome
    :lbl 7
    :randint(400,500)->Q
    :disp Q
    :goto 7
    :clrhome
    :end
    :clrhome
    :lbl 8
    :randint(100,500)->Q
    :disp Q
    :goto 8
    :clrhome
    :end
    :clrhome
    :lbl M
    :Menu("FUN MATH","Better Math",W," Invsible Answer",P,"Go back",-0)
    :lbl W
    :clrhome
    :lbl 42 /42 is the answer to everything/
    :0->a /remeber... O is and O and 0 is zero/
    :while a/=1337
    :while a=1337
    :else
    :lbl 43
    :input"",a /theres two " /
    :A+randint(-50,50)->B /you can make it more random by putting in bigger numbers than 50/
    :disp b
    :end
    :goto 43
    :end
    :lbl P
    :eek:utput(1,1,"Invisible answers"
    :Pause 3
    :pause 2
    :pause 1
    :pause 0
    :Full
    :clrhome
    :Axesoff
    :lbl 99
    :a+a=x
    :input "",a
    :a->x
    :if a=x
    :A=X->A
    :goto 99
    :end
    :lbl U
    :clrhome
    :prompt X
    :lbl 53
    :Input "",A
    :A->X
    :Disp X
    :goto 53
    :end

    took me around 30 or 45 mins to type this in.. trust me my fingers hurt, I made all these in class and since i don't have a TI-83 to PC link cable i combined them all thanks to the amazing "Menu( " option. Any bugs... E-mail them to me at samuelwilderwatkins@yahoo.com
    If anyone has any ideas for games let me know... i'll see what I can do, I'm not a very good programmer, mostly I make pretty basic prgrams compared to others but most of them are fun. Science_Boy out
     
  5. Jan 6, 2009 #4
    This is a Fake Virus called Quads and a game called ESCAPE... the games name says it all.
    Escape isn't by me but quads is
    /Prgrm: Quads/
    /someone I don't know/
    Clrhome
    For(A,0,50)
    Output(1,1,"Executing"
    Output(2,1,"QuadraticsVRS.EXE"
    End
    For(A,50,100
    Output(4,1,"Clearing memory" /go to MIRAGE OS click ALPHA and go to misc. lower case letters option there/
    End
    for(A,100,150
    Output(6,1,"Corrupting files"
    End
    for(A,150,200
    Output(8,13,"Done"
    Pause
    Clrhome
    clrDraw
    Lbl S
    Input "",N
    N->A
    If N=A
    Then
    N+randint(-100,1000->A
    Disp A
    End /sometimes the End won't work os just don't put it there/
    goto S
    Its Dinner time here so i'll include Escape in my next post
     
  6. Jan 8, 2009 #5
    OK Guys, I found this game called "ITTY-BITTY SNAKE" It essentially was pretty bad but I amped it up a bit, the area is bigger and better score keeping... Also!!! LOTS of the Labels and goto's were missing so I had to like RE-create around half of it, lots of errors and bugs but not NOW! If you don't understand some of the things look at my Key in the 1st and 2nd posts. HERE WE GO!!!!!!: ClrHome
    AxesOff
    ClrDraw
    FnOff
    PlotsOff
    Disp "ITTY-BITTY SNAKE
    ZStandard
    Line(-3,-3,-3,3
    Line(-3,3,3,3
    Line(3,3,3,-3
    Line(3,-3,-3,-3
    3->L
    4->H
    34->I
    1->dim(LSNAH ;LSNAH comes with a little L located in (2nd x-1 or MATRIX all te way down
    100->dim(L1 ;The L1 variable can be found under [2nd][STAT]
    100->dim(L2 ;[2nd][STAT]
    0->L1(1
    0->L1(2
    0->L2(1
    0->L2(2
    24->X
    35->Y
    X->L1(3
    Y->L2(3
    1->E
    Goto 22
    If pxl-Test(x,y
    Lbl 1
    Goto 3
    L1(E->J
    L2(e->K
    Pxl-On(X,Y
    Pxl-Off(J,K
    X->L1(H
    Y->L2(H
    getKey
    If Ans
    Ans->I
    X-(I=25)+(I=34)->X
    Y-(I=24)+(I=26)->Y
    1+H->H
    H-L->E
    If H=101
    1->H
    If E<=0 ; <= is Less than or equal to (2nd MATH)
    100+E->E
    If (X=F)(Y=G
    Goto 2
    Goto 1
    Lbl 2
    Pxl-Off(F,G
    Lbl 22
    randInt(24,38->F
    randInt(35,59->G
    L+1->L
    If pxl-Test(F,G
    Goto 22
    Pxl-On(F,G
    Goto 1
    Lbl 3
    ClrDraw
    AxesOn
    Disp "YOUR SCORE:
    Disp L-3
    While L-3>LSNAH(1 ;LSNAH is 2nd x-1 or in yellow MATRIX, all the way down
    L-3->LSNAH(1
    Disp "NEW HIGH SCORE!
    Input "Name:",Str7 ;String variables are under the [VARS] button
    0->L
    End
    Disp "HIGHSCORE:
    Disp Str7
    Output(5,10,LSNAH(1
    Disp "GAME OVER
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Have something to add?