PauseClrHomeStopITTY-BITTY SNAKE

[Science-Boy]

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

 

[Science-Boy]

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!

 

[Science-Boy]

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 there's 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 there's 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
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

 

[Science-Boy]

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

 

[Science-Boy]

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