Pipe Puzzle
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.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Pipe Puzzle
United-TI Archives -> TI-Basic
 
    »
» View previous topic :: View next topic  
Author Message
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 17 Nov 2009 10:00:46 pm    Post subject:
[attachment=2916:PipePuzzScreenShot.gif]


Code:
:ClrHome
:Output(1,1,"GENERATING .
:12→W
:iPart((1/3)([D]+abs(randM(8,12→[C]
:0→[C](1,1
:Output(1,13,".
:For(A,2,8
:[C](A,1→C
:2(C>1→[C](A,1
:End
:Output(1,14,".
:For(A,2,12
:[C](1,A→C
:(C>1→[C](1,A
:End
:Output(1,12,"   
:For(A,1,8
:For(B,1,12
:[C](A,B→C
:0→[C](A,B
:If C=1 or C=3
:Then
:4+[C](A,B-1→[C](A,B-1
:1+[C](A,B→[C](A,B
:End
:If C>1
:Then
:8+[C](A-1,B→[C](A-1,B
:2+[C](A,B→[C](A,B
:End
:End
:If W≠15
:Output(1,W,"."
:If W=15
:Output(1,12,"   
:W+(W≠15)-3(W=15→W
:End
:{0,1,1,2,1,3,2,4,1,2,3,4,2,4,4,5→L1
:0→R
:Output(1,1,"SCRAMBLING
:For(A,1,8
:For(B,1,12
:1+[C](A,B→D
:L1(D→C
:If not(C
:0→[E](A,B
:If C=1
:2^(randInt(0,3→[E](A,B
:If C=2
:3randInt(1,4→[E](A,B
:If C=3
:5randInt(1,2→[E](A,B
:If C=5
:15→[E](A,B
:If C=4
:15-2^randInt(0,3→[E](A,B
:If [E](A,B)=[C](A,B
:R+1→R
:End
:If W≠15
:Output(1,W,".
:If W=15
:Output(1,12,"   
:W+1-4(W=15→W
:End
:real(2,4,0,0,12,8,0,12,0,8,6,0,0,1
:real(1,0,0,1,8,6,4,8,3,0,1
:{0,2,4,6,8,10,9,11,1,12,5,13,3,14,7,15→L1
:0→X:0→Y
:DelVar KWhile K≠45 and R≠96
:getKey→K
:X+8((K=26)-(K=24→A
:Y+8((K=34)-(K=25→B
:If X≠A or Y≠B
:Then
:real(1,X,Y,1,8,6,4,8,3,0,0
:real(1,A,B,1,8,6,4,8,3,0,1
:A→X
:B→Y
:End
:If K=105
:Then
:1+(X/8→B
:1+(Y/8→A
:If [E](A,B)=[C](A,B
:R-1→R
:1+[E](A,B→C
:L1(C→[E](A,B
:real(2,4,0,0,12,8,0,12,0,8,6,0,0,0
:real(1,X,Y,1,8,6,4,8,3,0,1
:If [E](A,B)=[C](A,B
:1+R→R
:End
:End


Last edited by Guest on 17 Nov 2009 10:22:00 pm; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976
Posted: 17 Nov 2009 10:21:08 pm    Post subject:
Flipping awesome.
Back to top
dxfan101010


Member


Joined: 31 Mar 2008
Posts: 194
Posted: 17 Nov 2009 11:27:50 pm    Post subject:
Makes me wish my sister would let me use her cable. my one comment is mabey have a level with less pipes or just take out the little squars cause the screen is just a little cluttered now you have 2 games i want but cant have :(

Would this be the unnanounced project

Last edited by Guest on 17 Nov 2009 11:32:48 pm; edited 1 time in total
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 18 Nov 2009 06:51:14 am    Post subject:
nope this only took me a less than a day
my unannounced project is on a much bigger scale
Back to top
kinkoa


Member


Joined: 28 Jul 2009
Posts: 103
Posted: 18 Nov 2009 09:33:53 am    Post subject:
looks nice is that the full code?
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 18 Nov 2009 02:34:49 pm    Post subject:
no I have been working on the program some today i post the changes when I get on my laptop
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 18 Nov 2009 05:20:02 pm    Post subject:
Nice!

Is this like this? http://tibasicdev.wikidot.com/archives:spider
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 18 Nov 2009 05:24:41 pm    Post subject:
sort of but the goal is to connect pipes until no pipe section is unconnected
Back to top
kinkoa


Member


Joined: 28 Jul 2009
Posts: 103
Posted: 23 Nov 2009 09:49:07 am    Post subject:
GloryMXE7 wrote:
no I have been working on the program some today i post the changes when I get on my laptop

what i meant was could i put the code into my calculator and be able to play it
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 23 Nov 2009 10:37:58 am    Post subject:
no you need X-Lib and the sprite map, ive added a 6x4 mode and wrap mode. and if i have time I can post a downloadable program for you.
Back to top
kinkoa


Member


Joined: 28 Jul 2009
Posts: 103
Posted: 23 Nov 2009 10:41:42 am    Post subject:
ok thanks
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 23 Nov 2009 06:15:22 pm    Post subject:
and here it is [attachment=2931:PIPEPUZZ.8xg]
still having trouble with attaching xlib so youll have to get it yourself
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 23 Nov 2009 06:31:42 pm    Post subject:
Here's xLib and Celtic III.

Last edited by Guest on 27 Nov 2009 11:18:07 am; edited 1 time in total
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 23 Nov 2009 06:32:42 pm    Post subject:
thanks trumpet
howd you get them together

Last edited by Guest on 23 Nov 2009 06:33:51 pm; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 27 Nov 2009 11:19:11 am    Post subject:
I made my own zip with both of them in it. Smile
This will work again-The attachment didn't make it thru the server change.
Back to top
GloryMXE7
Puzzleman 3000


Active Member


Joined: 02 Nov 2008
Posts: 604
Posted: 04 Jan 2010 10:13:33 pm    Post subject:
[attachment=3004:PIPEPUZZ.8xg]
Bump
Back to top
Display posts from previous:   
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.

» Go to Registration page
Pipe Puzzle
    »
» View previous topic :: View next topic  
Page 1 of 1 » All times are UTC - 5 Hours

 

Advertisement