- [TI 84+CSE] Flow free
- 29 Aug 2015 09:49:16 am
- Last edited by PT_ on 29 Aug 2015 10:31:39 am; edited 2 times in total
I always love the game "Flow free" (Flow free), and because I wanted to start a new *big* project for my color calc, I decided to make it.
Things to do:
- Add a BUNCH of levels, I think 10*150 = 1500 ehmm
- Make the possibility to do a level
- Save levels
- Time trial
The goal is to connect the matching colors with pipe, and fill the whole board with pipe. But watch out, pipes will break if they cross or ovelap! This seems easy, but what if you get a 12x12 board with 15 different colors?
I hope I can finish this soon, and upload it to the Archives.
Here is a screenshot of what I got so far:
As you can see, it uses DoorsCSE for the awesome graphics, so it is not compatible with the CE. And for the curious one: here is my code so far:
Code:
I hope you will enjoy it, and I do my best to finish it!
EDIT: I get the fake levels ready
EDIT2: here is the level completion per level. It gets the values from an appvar.
Things to do:
- Add a BUNCH of levels, I think 10*150 = 1500 ehmm
- Make the possibility to do a level
- Save levels
- Time trial
The goal is to connect the matching colors with pipe, and fill the whole board with pipe. But watch out, pipes will break if they cross or ovelap! This seems easy, but what if you get a 12x12 board with 15 different colors?
I hope I can finish this soon, and upload it to the Archives.
Here is a screenshot of what I got so far:
As you can see, it uses DoorsCSE for the awesome graphics, so it is not compatible with the CE. And for the curious one: here is my code so far:
Code:
:DCS
"33333333333333333888333333222666388832222222266638883233332226663383323333AAA36333833233AAAAA36333833233A3AAA3633383323AAA3333633383323AAA3666633383323AAA363333338322233336355533832223666635553383222363333555338388866655535333888886665555533333888666555333
If 80>det([[20
Then
Disp "Get DoorsCSE to run this:","http://dcs.cemetech.net
Return
End
real(0,1,1
real(8,1,not(real(8,0
Lbl 1
real(0,3,4,0
{224,34,16,231->L1
"flow->Str1
For(F,1,4
sub(Str1,F,1
real(6,0,56+8F,20,L1(F),33
End
"free play!about!more games!quit
real(6,0,48,40,255,33
0->A
real(7,10,45,40+8A,90,8
Repeat K=105
Repeat Ans
getKey
End
Ans->K
real(7,10,45,40+8A,90,8
max(0,min(3,A+sum(DeltaList(K={25,34->A
real(7,10,45,40+8A,90,8
End
If A=3
Then
real(0,3,4,255
real(0,1,0,1
Return
End
If A
real(7,9,45,40,90,48,0
If A=2
"LaserGame CSE! tinyurl.com/p2voalw!Tic Tac Toe! tinyurl.com/pnjesme
If A=1
"Drag to connect !matc\hing colors with !p\ipe, creating a !flow.!Pair all colors, and !cover the entire !board with p\ipe !to solve each !puzzle.
If A
Then
real(6,0,0,40,255,33
Pause
Else
real(0,3,4,0
{224,34,16,231,227,224->L1
"levels->Str1
For(F,1,6
sub(Str1,F,1
real(6,0,48+8F,20,L1(F),33
End
"Regular Pack!Bonus Pack!Bridges Pack!6x6 Mania!7x7 Mania!8x8 Mania!9x9 Mania!Extreme Pack!Extreme Pack 2!Rainbow Pack
real(6,0,0,40,255,33
Pause
End
Goto 1
I hope you will enjoy it, and I do my best to finish it!
EDIT: I get the fake levels ready
EDIT2: here is the level completion per level. It gets the values from an appvar.