Data update

Task/Snake/EasyLang/snake.easy

@@ -16,28 +16,53 @@ clear
 color 997
 text "SNAKE"
 textsize 5
-move 10 40
-text "Arrow keys for controlling"
-move 10 30
-text "Press space to to start"
+move 6 40
+text "Keys or mouse for controlling"
+move 6 30
+text "Space or click to to start"
 #
 on key
-   if keybkey = "ArrowUp" and dir <> 3
-      dir = 1
-   elif keybkey = "ArrowRight" and dir <> 4
-      dir = 2
-   elif keybkey = "ArrowDown" and dir <> 1
-      dir = 3
-   elif keybkey = "ArrowLeft" and dir <> 2
-      dir = 4
-   elif keybkey = " " and game = 0
+   if game = 0 and keybkey = " "
       start
+      return
+   .
+   if dir mod 2 = 1
+      if keybkey = "ArrowRight"
+         dir = 2
+      elif keybkey = "ArrowLeft"
+         dir = 4
+      .
+   else
+      if keybkey = "ArrowUp"
+         dir = 1
+      elif keybkey = "ArrowDown"
+         dir = 3
+      .
+   .
+.
+on mouse_down
+   if game = 0
+      start
+      return
+   .
+   if dir mod 2 = 1
+      if mouse_x < sx
+         dir = 4
+      else
+         dir = 2
+      .
+   else
+      if mouse_y < sy
+         dir = 3
+      else
+         dir = 1
+      .
    .
 .
 on timer
    clear
    color 997
-   move 2 96
+   move 2 95
    text "Score: " & 10 * len sx[] - 50
    color 966
    move rx ry
@@ -93,6 +118,6 @@ on timer
    else
       color 997
       move 10 10
-      text "Press space for new game"
+      text "Space or click new game"
    .
 .