Data update

Task/Mastermind/EasyLang/mastermind.easy

@@ -1,3 +1,5 @@
+# Mastermind:w90
+#
 col[] = [ 802 990 171 229 950 808 ]
 len code[] 4
 len guess[] 4
@@ -46,7 +48,7 @@ proc next_row . .
    linewidth 11
    move 17 row * 11.5 + 7.5
    line 60 row * 11.5 + 7.5
-   call draw_guess
+   draw_guess
    move 73.5 row * 11.5 + 7.5
    color 310
    circle 5.0
@@ -77,28 +79,28 @@ proc rate . .
          .
       .
    .
-   call draw_rate row black white
+   draw_rate row black white
    color 531
    linewidth 12
    move 17 row * 11.5 + 7.5
    line 60 row * 11.5 + 7.5
-   call draw_guess
+   draw_guess
    row += 1
    if black = 4
       row = 8
    .
    if row = 8
-      call show_code
+      show_code
       timer 2
    else
-      call next_row
+      next_row
    .
 .
 on timer
    row = -2
 .
 proc new . .
-   call init_vars
+   init_vars
    for i to 4
       code[i] = random 6
    .
@@ -132,28 +134,28 @@ proc new . .
          move c * 12 + 20 r * 11.5 + 7.5
          circle 2
       .
-      call draw_rate r 0 0
+      draw_rate r 0 0
    .
    guess[1] = 1
    guess[2] = 1
    guess[3] = 2
    guess[4] = 2
-   call next_row
+   next_row
 .
 proc do_move . .
    c = (mouse_x - 15) div 12
    guess[c + 1] = guess[c + 1] mod 6 + 1
-   call draw_guess
+   draw_guess
 .
 on mouse_down
    if row = -2
-      call new
+      new
    elif mouse_y > row * 11.5 + 0.5 and mouse_y < row * 11.5 + 10.5 and row < 8
       if mouse_x > 15 and mouse_x < 61
-         call do_move
+         do_move
       elif mouse_x > 67 and mouse_x < 80
-         call rate
+         rate
       .
    .
 .
-call new
+new