Support Forum / Форум поддержки

Code: Select all

'Maze Automata
'mod by Mr.K
is=5! bs=10
xs=int(screen_width()/bs)
ys=int(screen_height()/bs)
dim p(xs,ys)
graphics
shadow on

FOR x=xs/2-is TO xs/2+is
  FOR y=ys/2-is TO ys/2+is
    p(x,y)=rnd(2)
    NEXT y
  NEXT x

loop:change=0
FOR x=1 TO xs-2
  FOR y=1 TO ys-2
    n=p(x-1,y-1) + p(x,y-1) + p(x+1,y-1) + p(x-1,y) + p(x+1,y) + p(x-1,y+1) + p(x,y+1) + p(x+1,y+1)
    IF p(x,y)=1 AND (n<1 OR n>4) THEN
      p(x,y)=0
      change=1
      continue y
    END IF
    IF p(x,y)=0 AND n=3 THEN
      p(x,y)=1
      change=1
    END IF
    NEXT y
  NEXT x

graphics lock
graphics clear
for x=1 to xs-2
  for y=1 to ys-2
    x1=x*bs! y1=y*bs! x2=x1+bs! y2=y1+bs
    if p(x,y) then fill rect x1,y1 to x2,y2
    next y
  next x
graphics unlock

IF change THEN loop