Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Wretchedlout

Pages: 1 ... 3 4 [5]
61
Humour and Jokes / Re: 9001 signs you're addicted to calcs and Omni
« on: April 08, 2012, 04:58:06 pm »
2634: Except when you're hungry.
2635: you think that lobsters taste best with a peanut sauce.
Don't you mean peanut soup?

62
Humour and Jokes / Re: 9001 signs you're addicted to calcs and Omni
« on: April 08, 2012, 01:27:44 pm »
2633. You have never harmed a lobster.

63
Art / Re: Type this code into your calc and get a surprise!
« on: April 07, 2012, 07:10:33 pm »
What's 2 commas? (2nd line)
That means I messed up.
The end should probably be ,30

64
TI-BASIC / Re: Strange/Rnd domain err.
« on: April 07, 2012, 03:40:01 pm »
Code: [Select]
:" "→Str1
:Str1→Str2
:Str1→Str3
:Str1→Str4
:Str1→Str5
:Str1→Str6
:Str1→Str7
:Str1→Str8
:
:
:
:ClrHome
:Output(1,1,"RUSSIAN ROULETTE                PRESS ENTER TO        FIRE
:For(A,0,1750
:End
:Lbl AA
:ClrHome
:Output(2,1,"HOW MANY PEOPLE?(1≤X≤8)
:Input "=",X
:If X<1:Goto AA
:If X>8:Goto AA
:Lbl AB
:ClrHome
:Output(2,1,"HOW MANY        CHAMBERS?       (>0)
:Input "=",Y
:If Y<1:Goto AB
:
:ClrHome
:Output(1,1,"PLAYER NAMES
:For(θ,0,750
:End
:ClrHome
:Input "1=",Str1
:If X>1:Input "2=",Str2
:If X>2:Input "3=",Str3
:If X>3:Input "4=",Str4
:If X>4:Input "5=",Str5
:If X>5:Input "6=",Str6
:If X>6:Input "7=",Str7
:If X>7:Input "8=",Str8
:
:ClrHome
:Output(1,3,Str1
:Output(2,3,Str2
:Output(3,3,Str3
:Output(4,3,Str4
:Output(5,3,Str5
:Output(6,3,Str6
:Output(7,3,Str7
:Output(8,3,Str8
:DelVar ∟ALIVE
:8→dim(∟ALIVE
:For(θ,1,X
:¦ 1→∟ALIVE(θ)
:End
:
:
:While 1
:¦ For(θ,1,X
:¦ ¦ If ∟ALIVE(θ)=0:End
:¦ Output(θ,1,"*
:¦ Pause
:¦ randInt(1,Y)→Q

:¦ :If Q=1:Then
:¦ ¦ ClrDraw:RecallPic 2:For(W,0,1750):End:Output(θ,1," ":Output(θ,11,"(DEAD)":0→∟ALIVE(θ):
:¦ ¦
:¦ ¦ :If ∟ALIVE(1)+∟ALIVE(2)+∟ALIVE(3)+∟ALIVE(4)+∟ALIVE(5)+∟ALIVE(6)+∟ALIVE(7)+∟ALIVE(8)=1:Goto H:End


:¦ If Q≠1:Then:Output(θ,11,"(MIS)":For(W,0,1750):End:Output(θ,1," ":Output(θ,11,"     "
:¦ End
:End
:End
:
:Lbl H
:
:For(θ,1,8
:¦ If ∟ALIVE(θ)=1:Goto G
:End
:
:
:Lbl G
:ClrHome
:If θ=1:Output(1,1,Str1
:If θ=2:Output(1,1,Str2
:If θ=3:Output(1,1,Str3
:If θ=4:Output(1,1,Str4
:If θ=5:Output(1,1,Str5
:If θ=6:Output(1,1,Str6
:If θ=7:Output(1,1,Str7
:If θ=8:Output(1,1,Str2
:Output(2,1,"WINS
:Pause

(or attached file)
and btw: I know the code is all over the place :)

(the error is line 61)

65
TI-BASIC / Re: Strange/Rnd domain err.
« on: April 07, 2012, 02:45:42 pm »
Well, I changed it to
Code: [Select]
Input "people",XBut it still dosen't work :(

66
Art / Re: Type this code into your calc and get a surprise!
« on: April 07, 2012, 02:18:34 pm »
Window range
-47
47
1
-31
31
1

67
Art / Re: Type this code into your calc and get a surprise!
« on: April 07, 2012, 01:51:44 pm »
Lol, my ram was cleared but I still had this price of paper with that on it. So.. I guess I could type it all out again?

Oh, nvm :D

68
TI-BASIC / Strange/Rnd domain err.
« on: April 07, 2012, 01:47:43 pm »
So my friend wanted a game on his calc for Russian roulette so I made it easy. It asks for how many people, chambers, and names, then you can play.
But sometimes when I run it I get err: domain. When I goto, it takes me to an output which makes no sense.
I basically have

Lbl A
Input "",X
If x<1 or x>8: goto A

For Q,1,X
Output(Q,1,"*
End


What is more weird is that it works for 2-4 rounds but then suddenly comes up with domain err.

69
Art / Type this code into your calc and get a surprise!
« on: April 07, 2012, 01:34:17 pm »
I know it is crazy long but, if you work hard you will be rewarded :D.
If something has 3 comas, it's line(x,y,x,y
If it only has 1 coma, it's a pt-on(x,y

text(0,1,"bear
-11,30,-10
11,30,15,30   (line)
16,29            (pt-on)
13,29
10,29
-9,29
-12,29
-13,28
-8,28
9,28
11,28,14,28
17,28
17,27
15,27,10,27
8,27
-7,27,-8,27
-11,27,-12,27
-14,27
-14,26,-11,26
-9,26,-6,26
4,26,9,26
11,26,15,26
17,26
17,25
13,25,12,25
4,25,-10,25
-12,25,-15,25
-15,24,-14,24
-11,24,-5,24
3,24
-12,24,13,24

16,24,17,24
17,23,16,23
14,23,11,23
8,23,7,23
2,23,-1,23
-9,23,-12,23
-15,23
-15,22,-10,22
-2,22,3,22
5,22,12,22
14,22,17,22
18,21,5,21
3,21,-7,21
-11,21,-15,21
-15,20,-12,20
-8,29,-6,20
-3,20,3,20
6,20,18,20
18,19,7,19
4,19,-4,19
-8,19
-13,19,-16,19
-17,18,-14,18
-5,18,4,18
7,18,18,18
18,17,6,17
4,17,-5,17
-14,17,-15,17
-17,17
-17,16
-15,16,-14,16
-5,16


-3,16,5,16
7,16,18,16
18,15,-3,15
-17,15
-17,14
-8,14
-4,14,18,14
18,13,-4,13
-7,13,-9,13
-14,13,-15,13
-17,13
-18,12
-15,12,-14,12
-10,12,-6,12
-3,12,19,12
19,11,-3,11
-6,11,-11,11
-14,11,-15,11
-18,11,-19,11
-20,10,-17,10
-14,10,-13,-10
-11,10,-7,10
-4,10,19,10
19,9,-4,9
-6,9,-14,9
-17,9
-20,9
-20,8
-17,8
-14,8,-5,8
-3,8
-1,8,19,8

19,7,-1,7
-3,7
-5,7,-14,7
-20,7
-20,6
-14,6,-5,6
0,6,1,6
4,6,19,6
19,5,4,5
-4,5,-14,5
-16,5,-17,5
-20,5
-20,4
-17,4,-4,4
-2,4,20,4
20,3,-2,3
-4,3,-17,3
-17,2,20,2
20,1,-19,1

I hope I wrote all the PT.s and wrote them correctly, :D


70
Introduce Yourself! / Re: Hello :D
« on: April 07, 2012, 01:25:30 am »
I heard you just put your calculator under the nozzle and rub the soup into your keys it will make coding faster.

71
Introduce Yourself! / Re: Hello :D
« on: April 07, 2012, 01:18:24 am »
Thanks, these will make excellent peanut soup.

72
Introduce Yourself! / Hello :D
« on: April 07, 2012, 12:57:25 am »
 :w00t:
Well hello there!
I have been coding on my ti-84 plus SILVER for about a year and a half (ish). I am to say the least good at programming BASIC but just started Axe, which I would like to learn a lot. I haven't made any "games" games (other than small short prgms) but am currently working on a fairly large one person project I call AFFINITY (in BASIC). But other than that I hope to become a regular member of this here fourm/website.

Pages: 1 ... 3 4 [5]