' Flow Control

' Mambazo@gmail.com

' Ideas:
'
' Warp hole. Sand goes in one node, comes out the other ;)
'
' More Sand Types


Option Explicit

#DEFINE ScrW 800
#DEFINE ScrH 600

Const VOID = 0
Const WATER = 1
Const WATERRIGHT = 2
Const WATERLEFT = 3
Const SAND = 4
Const SANDRIGHT = 5
Const SANDLEFT = 6
Const WALL = 7
Const CURSOR = 10
Const LIGHTBOX = 11
Const DARKBOX = 12
Const LIGHTKILLER = 13
Const DARKKILLER = 14

Const B_Size = ScrW * ScrH

SCREENRES ScrW, ScrH, 8,3',&h1

Palette 1, 255,255,255
Palette 2, 255,255,255
Palette 3, 255,255,255
Palette 4, 100,100,100
Palette 5, 100,100,100
Palette 6, 100,100,100
Palette 10, 255,0,0
Palette 7, 155,100,40
Palette 11, 255,255,255
Palette 12, 100,100,100
Palette 13, 70,70,70
Palette 14, 205,205,205

Randomize Timer

Dim As String in
Dim As Integer i, j, Boff, MouseX, MouseY, Buttons, _
                                Wheel, TotalWater, ButtonHold, _
                                MouseXo, MouseYo, PenSize, Wheelo, _
                                ScoreLight, GoalLight, ScoreDark, GoalDark, RandX, RandY, _
                                Grains, GrainToggle, seconds

Dim As Byte pixel
Dim As Double t, Rand, tsec

start:
Cls

Boff = 1

SETMOUSE ,,0

Print "Press any key to begin!"
Sleep

SCREENSET 2,1
Cls
Dim Buffer As Byte Ptr
Buffer = SCREENPTR


Grains = 3000
PenSize = 2

ScoreDark = 0
ScoreLight = 0
GoalLight = 500
GoalDark = 500

' Fixed Level
For i = 0 To 6
        RandX = Int(Rnd*(ScrW-20))
        RandY = Int(Rnd*(ScrH-180))+80
        Line (RandX,RandY)-(RandX+20,RandY+20),DARKKILLER,BF
        RandX = Int(Rnd*(ScrW-20))
        RandY = Int(Rnd*(ScrH-180))+80
        Line (RandX,RandY)-(RandX+20,RandY+20),LIGHTKILLER,BF
Next i

tsec = Timer
seconds = 1
Do
        Boff = (Boff + 1) Mod 2
        If Timer > tsec + 1 Then seconds += 1: tsec = Timer
       
        t = Timer
       
        in = Inkey$
         MouseXo = MouseX: MouseYo = MouseY: Wheelo = Wheel
         GETMOUSE MouseX, MouseY, Wheel, Buttons
        
        SCREENLOCK
       
        If Grains > 0 Then
                If GrainToggle = 0 Then GrainToggle = 1 Else GrainToggle = 0
                If GrainToggle = 0 Then Pset (ScrW/2+Int(Rnd*8),8),WATER
                If GrainToggle = 1 Then Pset (ScrW/2+Int(Rnd*8),8),SAND
                Grains -= 1
        End If
       
        If Buttons And MouseX > -1 Then
                If (Buttons And 4) And ButtonHold = 0 Then
                        ButtonHold = 1
                        PenSize = (PenSize * 2) Mod 32
                        If PenSize < 2 Then PenSize = 2
                End If
                If (Buttons) And ButtonHold = 0 Then
                        ButtonHold = 1
                        MouseXo = MouseX: MouseYo = MouseY
                End If
               
                If (buttons And 2) And ButtonHold = 1 Then
                        For i = 0 To PenSize
                                For j = 0 To PenSize
                                        Line (MouseXo+i,MouseYo+j)-(MouseX+i,MouseY+j),0
                                Next j
                        Next i
                End If
                If (buttons And 1) And ButtonHold = 1 Then
                        For i = 0 To PenSize
                                For j = 0 To PenSize
                                        Line (MouseXo+i,MouseYo+j)-(MouseX+i,MouseY+j),7
                                Next j
                        Next i
                End If               
        Else
                ButtonHold = 0
        End If
           
                ' GOALS!           
            Circle (20,ScrH -20),10,LIGHTBOX,,,,F
                Circle (ScrW-20,ScrH -20),10,DARKBOX,,,,F

           
                For i = (B_Size - Boff - 1) To 1 Step -2
                        pixel = Buffer[i]
                       
                        If Buffer[i+ScrW] = DARKBOX And (pixel = SAND Or pixel = SANDRIGHT Or pixel = SANDLEFT)Then
                                ScoreDark += 1
                                Buffer[i] = VOID
                        End If
                        If Buffer[i+ScrW] = LIGHTBOX And (pixel = WATER Or pixel = WATERRIGHT Or pixel = WATERLEFT)Then
                                ScoreLight += 1
                                Buffer[i] = VOID
                        End If
                        If Buffer[i+ScrW] = LIGHTBOX And (pixel = SAND Or pixel = SANDRIGHT Or pixel = SANDLEFT)Then
                                ScoreLight -= 10
                                Buffer[i] = VOID
                        End If
                        If Buffer[i+ScrW] = DARKBOX And (pixel = WATER Or pixel = WATERRIGHT Or pixel = WATERLEFT)Then
                                ScoreDark -= 10
                                Buffer[i] = VOID
                        End If
            If Buffer[i+ScrW] = DARKKILLER And (pixel = SAND Or pixel = SANDRIGHT Or pixel = SANDLEFT)Then
                                Buffer[i] = VOID
                                Buffer[i+ScrW] = VOID
                        End If
                        If Buffer[i+ScrW] = LIGHTKILLER And (pixel = WATER Or pixel = WATERRIGHT Or pixel = WATERLEFT)Then
                                Buffer[i] = VOID
                                Buffer[i+ScrW] = VOID
                        End If

                        pixel = Buffer[i]                       
                       
                        ' Handle Water
                        If pixel = WATER Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID And Buffer[i+1] = VOID And Buffer[i-1] = VOID Then
                                                Buffer[i] = VOID
                                                Buffer[i+ScrW] = WATER
                                        Else
                                                Rand = Rnd
                                                If Rand < .5 Then Buffer[i] = WATERRIGHT
                                                If Rand > .5 Then Buffer[i] = WATERLEFT
                                        End If                         
                                End If
                        End If
                        If pixel = WATERLEFT Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID Then
                                                Buffer[i] = VOID
                                                Rand = Rnd
                                                If Rand <.5 Then Buffer[i+ScrW] = WATERRIGHT
                                                If Rand >.5 Then Buffer[i+ScrW] = WATER
                                        Else
                                                If (Buffer[i-1] = VOID) Then
                                                        Buffer[i] = VOID
                                                        Buffer[i-1] = WATERLEFT
                                                   Else
                                                           Buffer[i] = WATERRIGHT
                                                   End If
                                        End If                         
                                End If
                               
                        End If
                        If pixel = WATERRIGHT Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID Then
                                                Buffer[i] = VOID
                                                Rand = Rnd
                                                If Rand <.5 Then Buffer[i+ScrW] = WATERLEFT
                                                If Rand >.5 Then Buffer[i+ScrW] = WATER
                                        Else
                                                If (Buffer[i+1] = VOID) Then
                                                        Buffer[i] = VOID
                                                        Buffer[i+1] = WATERRIGHT
                                                   Else
                                                           Buffer[i] = WATERLEFT
                                                   End If
                                        End If                         
                                End If
                        End If

                        ' Handle Sand
                        If pixel = SAND Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID And Buffer[i+1] = VOID And Buffer[i-1] = VOID Then
                                                Buffer[i] = VOID
                                                Buffer[i+ScrW] = SAND
                                        Else
                                                Rand = Rnd
                                                If Rand < .5 Then Buffer[i] = SANDRIGHT
                                                If Rand > .5 Then Buffer[i] = SANDLEFT
                                        End If                         
                                End If
                        End If
                        If pixel = SANDLEFT Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID Then
                                                Buffer[i] = VOID
                                                Rand = Rnd
                                                If Rand <.5 Then Buffer[i+ScrW] = SANDRIGHT
                                                If Rand >.5 Then Buffer[i+ScrW] = SAND
                                        Else
                                                If (Buffer[i-1] = VOID) Then
                                                        Buffer[i] = VOID
                                                        Buffer[i-1] = SANDLEFT
                                                   Else
                                                           Buffer[i] = SANDRIGHT
                                                   End If
                                        End If                         
                                End If
                               
                        End If
                        If pixel = SANDRIGHT Then
                                If i < (B_Size - ScrW) Then
                                        If Buffer[i+ScrW] = VOID Then
                                                Buffer[i] = VOID
                                                Rand = Rnd
                                                If Rand <.5 Then Buffer[i+ScrW] = SANDLEFT
                                                If Rand >.5 Then Buffer[i+ScrW] = SAND
                                        Else
                                                If (Buffer[i+1] = VOID) Then
                                                        Buffer[i] = VOID
                                                        Buffer[i+1] = SANDRIGHT
                                                   Else
                                                           Buffer[i] = SANDLEFT
                                                   End If
                                        End If                         
                                End If
                        End If
                Next i
       
        SCREENCOPY 2,1
        SCREENSET 1,2
       
        Line (MouseX,MouseY)-(MouseX+PenSize,MouseY+PenSize),10,B
        Locate 1,1: Print "Seconds Elapsed: "; seconds
        Locate 2,1:Print "Pen Size:"; PenSize
        Locate 3,1:Print "Light Sand:"; ScoreLight; " /"; GoalLight
        Locate 4,1:Print "Dark Sand:"; ScoreDark; " /"; GoalDark
        SCREENSET 2,1
       
        SCREENUNLOCK
       
        While Timer < t + 0.005: Sleep 1: Wend
Loop Until in = Chr$(27) Or (ScoreLight >= GoalLight And ScoreDark >= GoalDark)

SCREENSET 1,1
Color 15: Print "You scored:"; (ScoreLight+ScoreDark)-(seconds)
Print "Play Again? Y/N"

Do
in = Inkey$
If in = "y" Then Goto start
Loop Until in="n"


SETMOUSE ,,1