Скрипт для ввода от 0000 до 9999

[gvidion]

Ребята суть такая, есть игра там есть сейфы и цель их открыть) можно вводить в ручную ну очень долго , может кто знает как сделать что бы скрипт сам вводил , алгоритм такой что бы нажималось E(русская У) и вводило на цифрах 0000 E 0001 E 0002 E   и так до 9999 , тоесть скрипт нажимает E вводит на цифрах число , окошко закрывается , он опять нажимает Е и вводит

[Oraven]

Code: (clickermann) [Select]

IF($gen > 9999)
   HALT
END_IF

DEFINE($gen, 0) // начальное число
$len = STRLEN($gen)
IF($len < 1)
   $gen2 = STRCONCAT ("0000", $gen)
Else
   IF($len < 2)
      $gen2 = STRCONCAT ("000", $gen)
   Else
      IF($len < 3)
         $gen2 = STRCONCAT ("00", $gen)
      Else
         IF($len < 4)
            $gen2 = STRCONCAT ("0", $gen)
         Else
            $gen2 = $gen
         END_IF
      END_IF
   END_IF
END_IF
INC($gen,1)

KEYPRESS(#E)
WAITMS(50)
KEYSTRING($gen2)
WAITMS(100)

[Vint]

Да, этот перебор даже не второй раз просят.
Вот ещё вариант

Code: (clickermann) [Select]

DEFINE($gen, 0) // начальное число

FOR($i=$gen, $i < 10000)
   $t = $i
   FOR($k=0, $k < (4-STRLEN($t)))
      $t = STRCONCAT("0", $t)
   END_CYC

   KEYPRESS(#E)
   WAITMS(150)
   LOGWRITE ($t)
   KEYSTRING($t, 20)
   WAITMS(50)
END_CYC
HALT
Вот он же был на CASE

Code: (clickermann) [Select]

FOR($i=0, $i < 10000)
   KEYPRESS(#E)
   WAITMS(150)
   
   SWITCH(STRLEN($i))
   CASE(1)
      $t = STRCONCAT("000", $i)
   CASE(2)
      $t = STRCONCAT("00", $i)
   CASE(3)
      $t = STRCONCAT("0", $i)
   CASE(4)
      $t = $i
   END_SWITCH
   
   
   LOGWRITE ($t)
   KEYSTRING($t, 20)
   WAITMS(50)
   KEYPRESS(#ENTER)
   WAITMS(50)
//   LCLICK(10,10)  // клик по Ok
//   WAITMS(50)
END_CYC

[дед иван]

как игра называетса то?