| Author |
Message |
|
Bhaliar
Member
Joined: 16 Nov 2009
Posts: 221
|
 Posted: 06 Feb 2010 08:57:31 pm Post subject: |
|
|
| Sorry for double posting, but no one took notice of my edit. I copied the program, but it wouldn't run for long. it gets domain on the outputs or the track. I did use the one guys different code line. |
|
| Back to top |
|
|
nitacku
Advanced Member
Joined: 23 Aug 2005
Posts: 408
|
| Posted: 14 Feb 2010 04:56:52 pm Post subject: |
|
|
What was the one guy's different code line?
Was it this:
Repeat X≤int(Ans) or X≥int(Ans)+70fPart(Ans
Because that code is wrong.
It needs to be just the way it is posted originally:
Repeat X≤int(Ans) or X≥int(Ans)+10fPart(Ans
It's a 10, not 70 for a reason.
The program is using numbers in base 10, not 70.
Last edited by Guest on 01 Jul 2010 09:51:21 am; edited 1 time in total |
|
| Back to top |
|
|
Bhaliar
Member
Joined: 16 Nov 2009
Posts: 221
|
| Posted: 16 Feb 2010 12:29:12 pm Post subject: |
|
|
| Yeah I replaced your original and it worked fine. Only one thing though. I notice somtimes that the left side wall can be ridden on without getting a crash and end of game. Might just be I messed up. |
|
| Back to top |
|
|
kinkoa
Member
Joined: 28 Jul 2009
Posts: 103
|
| Posted: 20 Feb 2010 11:18:47 pm Post subject: |
|
|
nitacku wrote: ClrHome
For(θ,0,13
Disp " //no space
Output(8,5,"*░░░░░░* //6 spaces
End
SetUpEditor L1 //this is the list
7→dim(L1
Fill(5.7,L1
8→X
5→Y
7→θ
DelVar Z
Repeat X≤int(Ans) or X≥int(Ans)+10fPart(Ans
Z+1→Z
θ-not(fPart(.03Ans→θ
getKey
X+(Ans=26)-(Ans=24→X
Y+int(2-3rand
Ans-(Ans+θ>16)+not(Ans→Y
Disp " //no space
Output(1,X,8
Output(8,Ans,"*
Output(8,Ans+θ,"*
∆List(cumSum(augment(L1,{Ans+.1θ→L1
Ans(1
End
Output(4,1,"Crash! Score:
Output(4,14,Z
i had to make changes to get this to work properly as it didnt work the way that it is also ur code runs off screen and you get a domain error because the ans varible contained decimals
ClrHome
For(θ,0,13
Disp " //no space
Output(8,5,"*░░░░░░* //6 spaces
End
SetUpEditor L1 //this is the list
7→dim(L1
Fill(5.7,L1
8→X
5→Y
7→θ
DelVar Z
While(X≥int(Ans) or X≤int(Ans)+θ
Z+1→Z
θ-not(fPart(.03Ans→θ
getKey
X+(Ans=26)-(Ans=24→X
Y+int(2-3rand
iPart(ans
Ans-(Ans+θ>16)+not(Ans→Y
Disp " //no space
Output(1,X,8
Output(8,Ans,"*
Output(8,Ans+θ,"*
∆List(cumSum(augment(L1,{Ans+.1θ→L1
Ans(1
End
Output(4,1,"Crash! Score:
Output(4,14,Z
the ones in red are the changes it took to get it to work properly i know its not much but it works now
Last edited by Guest on 01 Jul 2010 09:50:44 am; edited 1 time in total |
|
| Back to top |
|
|
meishe91
Newbie
Joined: 06 Dec 2009
Posts: 49
|
| Posted: 28 Mar 2010 03:56:18 am Post subject: |
|
|
So I got bored today and came up with a kind of interesting/pointless program that I thought I would share.
There quite literally isn't a point to this, I just thought someone might enjoy the concept, or something, for it. I don't know.
Anywho, what this does is it asks for you to input something (a name, number, anything really) and it stores it to Str1. It then will take this and convert it all into ASCII (I think that is what you would call it) to look like those characters you entered using those characters, then you can scroll through the whole message.
Example:
Code:
Input of "J" becomes:
_JJJ_
__J__
__J__
__J__
__J__
J_J__
_J___
Hope that makes sense.
Anyways, to the code:
Code:
"_→Str2
Input Str1
For(A,1,length(Str1
Text(-1,0,0,sub(Str1,A,1
For(B,0,6
For(C,0,4
Str2+sub("_"+sub(Str1,A,1),1+pxl-Test(B,C),1→Str2
End
End
End
sub(Str2,2,length(Str2)-1→Str2
ClrHome
DelVar DRepeat K=45
For(A,1,7
Output(A,6,sub(Str2,A5-4+B,5
End
Repeat Ans
getKey→K
End
B+35((Ans=26)-(Ans=24
Ans-35((Ans>length(Str2)-35)-(Ans<0→B
End
Didn't spend any time optimizing so there probably could be some needed. Oh well, it works. Hope some of you enjoy 
Last edited by Guest on 21 Jun 2010 08:53:53 pm; edited 1 time in total |
|
| Back to top |
|
|
Bhaliar
Member
Joined: 16 Nov 2009
Posts: 221
|
| Posted: 31 Mar 2010 04:12:13 pm Post subject: |
|
|
| That's actually really neat. I had an idea, though I don't feel up to it. The premise would be to make a program where a character can enter lines of words that will be speech, or single commands that can represent things or people. It turns em into assembley then. So you could type like A1(Human Guy) BHelloB(Speech) Etc. Not neccesarily like that but you get the idea. |
|
| Back to top |
|
|
meishe91
Newbie
Joined: 06 Dec 2009
Posts: 49
|
| Posted: 01 Apr 2010 04:15:03 am Post subject: |
|
|
Bhaliar wrote: That's actually really neat. I had an idea, though I don't feel up to it. The premise would be to make a program where a character can enter lines of words that will be speech, or single commands that can represent things or people. It turns em into assembley then. So you could type like A1(Human Guy) BHelloB(Speech) Etc. Not neccesarily like that but you get the idea.
Could you possibly explain that again? I don't know if it's 'cause it's three in the morning or what but I couldn't follow all that :/ Sorry. |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 01 Apr 2010 05:03:57 am Post subject: |
|
|
I'm posting this here just so that I can get it off my calc:
FnOff
PlotsOff
ClrDraw
Input Str1
Text(-1,0,0,Str1
ClrHome
For(A,0,6
For(B,0,4
If pxl-Test(A,B
Output(A+2,B+1,Str1
End
End
Last edited by Guest on 21 Jun 2010 08:41:49 pm; edited 1 time in total |
|
| Back to top |
|
|
Xeda112358
Active Member
Joined: 19 May 2009
Posts: 520
|
| Posted: 01 Apr 2010 10:02:09 am Post subject: |
|
|
I tried the program, but it didn't want to work for me after the first char. I got the idea, however, so here is my rendition (note that the " after For(C... has a space following it):
ClrHome
Input Str1
length(Str1→D
For(A,1,D
sub(Str1,A,1→Str2
Text(-1,0,0,Ans
For(B,0,6
For(C,0,4
"
If pxl-Test(B,C
Str2
Str1+Ans→Str1
End
End
End
DelVar Bsub(Str1,D+1,length(Str1)-D→Str1
Repeat A=105
ClrHome
For(A,1,7
Output(A,1,sub(Str1,35B+5A-4,5
End
Repeat Ans
getKey→A
End
B+(A=26)-(A=24→B
If B=D
DelVar B
If B<0
D-1→B
End
Just press enter to exit and use left/right to cycle through the letters. By the way, ASCII refers to the actual hex code for a character, not the pixels it uses. 41h would be A, not:
01110
10001
10001
11111
10001
10001 |
|
| Back to top |
|
|
meishe91
Newbie
Joined: 06 Dec 2009
Posts: 49
|
| Posted: 01 Apr 2010 09:08:18 pm Post subject: |
|
|
ThunderBolt wrote: I tried the program, but it didn't want to work for me after the first char. I got the idea, however, so here is my rendition (note that the " after For(C... has a space following it):
ClrHome
Input Str1
length(Str1→D
For(A,1,D
sub(Str1,A,1→Str2
Text(-1,0,0,Ans
For(B,0,6
For(C,0,4
"
If pxl-Test(B,C
Str2
Str1+Ans→Str1
End
End
End
DelVar Bsub(Str1,D+1,length(Str1)-D→Str1
Repeat A=105
ClrHome
For(A,1,7
Output(A,1,sub(Str1,35B+5A-4,5
End
Repeat Ans
getKey→A
End
B+(A=26)-(A=24→B
If B=D
DelVar B
If B<0
D-1→B
End
Just press enter to exit and use left/right to cycle through the letters. By the way, ASCII refers to the actual hex code for a character, not the pixels it uses. 41h would be A, not:
01110
10001
10001
11111
10001
10001
Who's code are you referring to? If mine then ya, I caught what I typed in wrong. It should work now. Sorry about that. And nice code Goose |
|
| Back to top |
|
|
Omega364
Newbie
Joined: 10 Mar 2009
Posts: 19
|
| Posted: 06 Mar 2011 05:47:47 pm Post subject: |
|
|
Hi there mate i love your programs and the programs posted by other people so i would like to post my own 5 minute program
GuessMe
Code:
6→G
randInt(1,100)→Y
randInt(Y,100)→Y
randInt(1,Y)→Y
ClrHome
Disp "6 GUESSES"
Pause
ClrHome
Lbl A
While G≤0
Disp "LOSER...",Y
prgmGUESSME
End
Input "1->100",X
If X>Y
Goto B
If X<Y
Goto C
If X=Y
Goto D
Lbl B
G-1→G
Disp "LOWER"
Goto A
Lbl C
G-1→G
Disp "HIGHER"
Goto A
Lbl D
Disp "GRATZ"
Pause
prgmGUESSME
Obviously if it's to easy just change what get stored for G or change the limits from -100 to 100 in the randInt part
Code:
randInt(-100,100)→Y
randInt(-100,Y)→Y
randInt(Y,100)→Y
|
|
| Back to top |
|
|
|
TI-Basic => TI-BASIC
