Data update

Task/15-puzzle-game/EasyLang/15-puzzle-game.easy

@@ -3,81 +3,101 @@ background 432
 textsize 13
 len f[] 16
 proc draw . .
-  clear
-  for i = 1 to 16
-    h = f[i]
-    if h < 16
-      x = (i - 1) mod 4 * 24 + 3
-      y = (i - 1) div 4 * 24 + 3
-      color 210
-      move x y
-      rect 22 22
-      move x + 4 y + 6
-      if h < 10
-        move x + 6 y + 6
+   clear
+   for i = 1 to 16
+      h = f[i]
+      if h < 16
+         x = (i - 1) mod 4 * 24 + 3
+         y = (i - 1) div 4 * 24 + 3
+         color 210
+         move x y
+         rect 22 22
+         move x + 4 y + 6
+         if h < 10
+            move x + 6 y + 6
+         .
+         color 885
+         text h
       .
-      color 885
-      text h
-    .
-  .
+   .
 .
 global done .
+proc smiley . .
+   s = 3.5
+   x = 86
+   y = 86
+   move x y
+   color 983
+   circle 2.8 * s
+   color 000
+   move x - s y - s
+   circle s / 3
+   move x + 3.5 y - 3.5
+   circle s / 3
+   linewidth s / 3
+   curve [ x - s y + s x y + 2 * s x + s y + s ]
+.
 proc init . .
-  done = 0
-  for i = 1 to 16
-    f[i] = i
-  .
-  # shuffle
-  for i = 15 downto 2
-    r = random i
-    swap f[r] f[i]
-  .
-  # make it solvable
-  inv = 0
-  for i = 1 to 15
-    for j = 1 to i - 1
-      if f[j] > f[i]
-        inv += 1
+   done = 0
+   for i = 1 to 16
+      f[i] = i
+   .
+   # shuffle
+   for i = 15 downto 2
+      r = random i
+      swap f[r] f[i]
+   .
+   # make it solvable
+   inv = 0
+   for i = 1 to 15
+      for j = 1 to i - 1
+         if f[j] > f[i]
+            inv += 1
+         .
       .
-    .
-  .
-  if inv mod 2 <> 0
-    swap f[1] f[2]
-  .
-  textsize 12
-  call draw
+   .
+   if inv mod 2 <> 0
+      swap f[1] f[2]
+   .
+   textsize 12
+   draw
 .
 proc move_tile . .
-  c = mouse_x div 25
-  r = mouse_y div 25
-  i = r * 4 + c + 1
-  if c > 0 and f[i - 1] = 16
-    swap f[i] f[i - 1]
-  elif r > 0 and f[i - 4] = 16
-    swap f[i] f[i - 4]
-  elif r < 3 and f[i + 4] = 16
-    swap f[i] f[i + 4]
-  elif c < 3 and f[i + 1] = 16
-    swap f[i] f[i + 1]
-  .
-  call draw
-  done = 1
-  for i = 1 to 15
-    if f[i] > f[i + 1]
-      done = 0
-    .
-  .
-  if done = 1
-    clear
-    move 10 30
-    text "Well done!"
-  .
+   c = mouse_x div 25
+   r = mouse_y div 25
+   i = r * 4 + c + 1
+   if c > 0 and f[i - 1] = 16
+      swap f[i] f[i - 1]
+   elif r > 0 and f[i - 4] = 16
+      swap f[i] f[i - 4]
+   elif r < 3 and f[i + 4] = 16
+      swap f[i] f[i + 4]
+   elif c < 3 and f[i + 1] = 16
+      swap f[i] f[i + 1]
+   .
+   draw
+   for i = 1 to 15
+      if f[i] > f[i + 1]
+         return
+      .
+   .
+   done = 1
+   timer 0.5
 .
 on mouse_down
-  if done = 1
-    call init
-  else
-    call move_tile
-  .
+   if done = 0
+      move_tile
+   elif done = 3
+      init
+   .
 .
-call init
+on timer
+   if done = 1
+      smiley
+      done = 2
+      timer 2
+   else
+      done = 3
+   .
+.
+init