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.

TI-Basic => TI-BASIC
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
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.
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 projectLast edited by Guest on 17 Nov 2009 11:32:48 pm; edited 1 time in total
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
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?
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
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
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
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
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.
kinkoa

Member

Joined: 28 Jul 2009
Posts: 103

 Posted: 23 Nov 2009 10:41:42 am    Post subject: ok thanks
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
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
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 togetherLast edited by Guest on 23 Nov 2009 06:33:51 pm; edited 1 time in total
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. This will work again-The attachment didn't make it thru the server change.
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
 Display posts from previous: All Posts Oldest FirstNewest First
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.

»
 Page 1 of 1 » All times are UTC - 5 Hours