SuperStrict

Const ps:Byte = 3
Const mxs:Int = 600/ps
Const mys:Int = 600/ps
Const w:Int = 800
Const h:Int = 600

Graphics w, h, 1, 32
SetClsColor 20, 22, 20
SetBlend ALPHABLEND

Global hud:TImage = LoadImage("Data/hud.png")

Global pixmap:TPixmap
Global img:TImage = CreateImage(mxs, mys)
Global map:Byte[mxs, mys]

Global time:Float
Global start:Float = MilliSecs()
Global rtime:Float
Global otime:Float
Global dtime:Float
Global break:Byte = True


Repeat
   Cls
   
   uinput()
   render()
   clock()
   
   Flip 0
Until KeyHit(KEY_ESCAPE) Or AppTerminate()
End


Function drawpixel(x:Byte, y:Byte, r:Byte = 255, g:Byte = 255, b:Byte = 255, a:Byte = 255, img:TImage = Null)
   If img <> Null
      pixmap = LockImage(img)
   End If
   
   WritePixel pixmap, x, y, a*$1000000 + r*$10000 + g*$100 + b
   
   If img <> Null
      pixmap = Null
      UnlockImage(img)
      GCCollect()
   End If
End Function


Function uinput()
   Local mx:Int = MouseX()
   Local my:Int = MouseY()
   
   If break = True
      If mx-100 > 2 And mx-100 < mxs*ps-3 And my > 2 And my < mys*ps-3
         If MouseDown(1)  map[(mx-100)/ps, my/ps] = 1
         If MouseDown(2)  map[(mx-100)/ps, my/ps] = 0
      End If
   End If
   
   If break = False And KeyHit(KEY_SPACE)
      break = True
   ElseIf break = True And KeyHit(KEY_SPACE)
      break = False
   End If
End Function


Function render()
   If rtime = 0
      pixmap = LockImage(img)
      For Local x:Int = 0 To mxs-1
         For Local y:Int = 0 To mys-1
            If map[x, y] = 1
               drawpixel(x, y, 255, 255, 255)
            ElseIf map[x, y] = 0
               drawpixel(x, y, 0, 0, 0)
            End If
         Next
      Next
      pixmap = Null
      UnlockImage(img)
      GCCollect()
   End If
   
   SetScale ps, ps
   SetColor 255, 255, 255
   DrawImage(img, 100, 1)
   GCCollect()
   
   SetScale 1, 1
   DrawImage(hud, 0, 0)
   DrawText Int(dtime), 10, 10
End Function

Function clock()
   time = MilliSecs()-start
   
   If rtime = 0 And break = False
      cells()
   End If
   
   If break = False
      rtime:+time-otime
      dtime:+(time-otime)
   ElseIf break = True
      rtime = 0
   End If
   
   If rtime >= 9
      rtime = 0
   End If
   
   otime = time
End Function

Function cells()
   For Local x:Int = 1 To mxs-2
      For Local y:Int = 1 To mys-2
         Local ncnt:Byte
         If map[x-1, y] = 1  ncnt:+1
         If map[x+1, y] = 1  ncnt:+1
         If map[x, y-1] = 1  ncnt:+1
         If map[x-1, y-1] = 1  ncnt:+1
         If map[x+1, y+1] = 1  ncnt:+1
         If map[x, y+1] = 1  ncnt:+1
         If map[x-1, y+1] = 1  ncnt:+1
         If map[x+1, y-1] = 1  ncnt:+1
         
         If map[x, y] = 0
            If ncnt = 3  map[x, y] = 1
         Else
            If ncnt < 2 map[x, y] = 0
            If ncnt > 3 map[x, y] = 0
         End If
      Next
   Next
End Function