« previous next »
Pages: 1 2 [3]

Author Topic: Прошу помощи в написании сценария для игры Jungle Heat!  (Read 24570 times)

0 Members and 2 Guests are viewing this topic.

keepsv

  • Освоившийся
  • **
  • Posts: 34
    • View Profile
Re: Прошу помощи в написании сценария для игры Jungle Heat!
« Reply #30 on: November 12, 2014, 09:58:51 AM »
Мне нужно сделать цикл? Если честно понимания о чем речь нет.
Вот мой сценарий.

Code: (clickermann) [Select]
VHOD:
WAITMS(1000)
  $time = $_time_t + 10
  WHILE($time > $_time_t)
   GETSCREEN
    IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ZKR.bmp", -1, 100)
      $time = 0
      WAIT(1)
      LCLICK($_return1+38, $_return2+4)
      WAITMS(500)
      LCLICK($_return1+2, $_return2+2)
      WAITMS(500)
TOCLIP("http://vk.com/") // копируем в буфер
        WAITMS(50)
        KEYDOWN (#CTRL) // Ctrl+V
        WAITMS (50)
        KEYPRESS(#V)
        KEYUP (#CTRL)
        WAITMS(100)
        KEYPRESS(#ENTER) // ввод
        WAITMS (50)       
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
//=============================================
  $time = $_time_t + 10
  WHILE($time > $_time_t)
   GETSCREEN
    IF_PICTURE_IN (0,0, $_xmax,$_ymax, "tel.bmp", -1, 100)
      $time = 0
      WAIT(1)
      LCLICK($_return1-1, $_return2+30)
    ELSE
      WAITMS(50)
   END_IF
 END_CYC
  IF($time ! 0)
   BEEP(1000,1000)
    WAITMS(500)
    HINTPOPUP("НЕ ЗАГРУЗИЛАСЬ СТРАНИЦА ВХОДА")
    GOTO(OUT) //ВЫХОД
  END_IF
//======Обработка логинов и паролей============
IF($count < TFCOUNT("LogPass_OST.txt"))
   INC($count,1)
ELSE
    // здесь можно вставить остановку по достижении полного круга аккаунтов
   $count = 1 // начинаем с начала
END_IF
 
$str = TFREAD ("LogPass_OST.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
LOGWRITE ("Логин: ", $log, " Пароль: ", $pass)
WAITMS(500)
//=============================================
 
TOCLIP($log)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)
WAITMS(100)
KEYPRESS(#TAB)
WAITMS(100)
TOCLIP($pass)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)
WAITMS(500)
KEYPRESS(#ENTER)
//--------
                           JH: //МЕТКА
$time = $_time_t + 20
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "jh.bmp", -1, 100)   
      $time = 0
      LCLICK($_return1+30, $_return2+20)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
 IF($time ! 0)
    BEEP(1000,1000)
    WAITMS(500)
    HINTPOPUP("НЕ НАШЛИ JH")
    GOTO(OUT) //ВЫХОД   
END_IF
WAITMS(2000)
                                       KSH: // МЕТКА   
WAITMS(5000)
$time = $_time_t + 90
WHILE($time > $_time_t)
   GETSCREEN
   COLORMODE(7)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ksh.bmp", -1, 80)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0) 
 GETSCREEN
 IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik.bmp", -1, 100)
     WAITMS(1000)
     LCLICK($_return1, $_return2)
     WAITMS(3000)
     GOTO(KSH)
  ELSE
     WAITMS(2000)
     GOTO(OUT) //ВЫХОД
  END_IF
END_IF
//--------------------------------
                            ARSENAL:
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "arsenal.bmp", -1, 100)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
  IF($time ! 0)
       WAIT(1)
       GOTO(out) //ВЫХОД
       WAIT(1)
  ELSE
       WAITMS(50)
END_IF
//--------------------------------
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "da.bmp", -1, 100)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
  IF($time ! 0)
       WAIT(1)
       GOTO(out)  //ВЫХОД
       WAIT(1)
    ELSE
       WAITMS(50)
  END_IF
//--------------------------------
                             RAZMESTIT:
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "razmestit.bmp", -1, 90)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1+200, $_return2+112)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
  END_IF
//------------тут иногда появляется окно с пушкой.
$time = $_time_t + 10
WHILE($time > $_time_t)
GETSCREEN
 IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pushka.bmp", -1, 100)
     $time = 0
     WAITMS(500)
     LCLICK($_return1, $_return2)
     WAITMS(1000)
     GOTO(da)  //DA
  ELSE
     WAITMS(50)
  END_IF
 END_CYC
IF($time ! 0)
  END_IF
IF($time ! 0)
  END_IF
END_IF
                   poisk://метка
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "poisk.bmp", -1, 100)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1, $_return2)
      WAITMS(800)
      LCLICK($_return1-154, $_return2+1)  // АРСЕНАЛ
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
WAITMS(1000)
GOTO(OUT)     //ВЫХОД
END_IF
         da: //метка
 $time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "da.bmp", -1, 100)
      $time = 0
      WAITMS(1000)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
 IF($time ! 0)
 END_IF
//--------------------------------
 $time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "razmestit.bmp", -1, 90)
      $time = 0
      LCLICK($_return1+200, $_return2+112)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
//--------------------------------
                          MS:
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ms.bmp", -1, 100)
      $time = 0
      WAITMS(100)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
//--------------------------------чистим страницу
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "vrag.bmp", -1, 100)
      $time = 0
      MOVE($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
   beep(1000,1000)
   WAITMS(100)
   HINTPOPUP("ЛИМИТ АЛМАЗОВ ИСЧЕРПАН")
   WAITMS(100)
   GOTO(OUT)  //ВЫХОД
   WAITMS(1000)
END_IF
//--------------------------------
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "udz.bmp", -1, 100)
      $time = 0
      WAITMS(100)
      LCLICK($_return1+2, $_return2+2)
      WAITMS(500)
      LCLICK($_return1+4, $_return2+38)
      WAITMS(500)
      LCLICK($_return1+6, $_return2+74)
      WAITMS(500)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
WAIT(1)
//-------------
                  out:    // метка
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "plag.bmp", -1, 100)
      $time = 0
      WAITMS(100)
      LCLICK($_return1, $_return2)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
//-------------
$time = $_time_t + 25
WHILE($time > $_time_t)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "chistka.bmp", -1, 100)
      $time = 0
      WAITMS(100)
      LCLICK($_return1, $_return2)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
IF($time ! 0)
END_IF
WAITMS(1000)Пытался почитать справку но так и не понял что за цикл, и как его сделать. Был бы благодарен за более детальную подсказку. ) Про Подпрограммы я читал, но применить сначала не получилось, и использовал метки. )
« Last Edit: November 12, 2014, 10:02:42 AM by keepsv »
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Прошу помощи в написании сценария для игры Jungle Heat!
« Reply #31 on: November 12, 2014, 11:35:25 AM »
Приоритеты нужно расставлять в файле "LogPass_OST.txt"

Загнал твой скрипт в подпрограмму которая будет вызываться 100 раз, но счетчик номера строки логпас будет увеличиваться до цикла, поэтому будет 100 раз прилогинивание к одному и тому же акку потом 100 раз ко второму и тд.

Code: (clickermann) [Select]
//==Начало подпрограммы===========================================
SUB(programs)
   VHOD:
   WAITMS(1000)
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ZKR.bmp", -1, 100)
         $time = 0
         WAIT(1)
         LCLICK($_return1+38, $_return2+4)
         WAITMS(500)
         LCLICK($_return1+2, $_return2+2)
         WAITMS(500)
         TOCLIP("http://vk.com/") // копируем в буфер
         WAITMS(50)
         KEYDOWN (#CTRL) // Ctrl+V
         WAITMS (50)
         KEYPRESS(#V)
         KEYUP (#CTRL)
         WAITMS(100)
         KEYPRESS(#ENTER) // ввод
         WAITMS (50)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //=============================================
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "tel.bmp", -1, 100)
         $time = 0
         WAIT(1)
         LCLICK($_return1-1, $_return2+30)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      BEEP(1000,1000)
      WAITMS(500)
      HINTPOPUP("НЕ ЗАГРУЗИЛАСЬ СТРАНИЦА ВХОДА")
      GOTO(OUT) //ВЫХОД
   END_IF
   
   //======Обработка логинов и паролей============
   $str = TFREAD ("LogPass_OST.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   LOGWRITE ("Логин: ", $log, " Пароль: ", $pass)
   WAITMS(500)
   //=============================================
   
   TOCLIP($log)
   WAITMS(50)
   KEYDOWN (#CTRL) // Ctrl+V
   WAITMS (50)
   KEYPRESS(#V)
   KEYUP (#CTRL)
   WAITMS(100)
   KEYPRESS(#TAB)
   WAITMS(100)
   TOCLIP($pass)
   WAITMS(50)
   KEYDOWN (#CTRL) // Ctrl+V
   WAITMS (50)
   KEYPRESS(#V)
   KEYUP (#CTRL)
   WAITMS(500)
   KEYPRESS(#ENTER)
   //--------
   
   $time = $_time_t + 20
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "jh.bmp", -1, 100)
         $time = 0
         LCLICK($_return1+30, $_return2+20)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      BEEP(1000,1000)
      WAITMS(500)
      HINTPOPUP("НЕ НАШЛИ JH")
      GOTO(OUT) //ВЫХОД
   END_IF
   WAITMS(2000)
   KSH: // МЕТКА
   WAITMS(5000)
   $time = $_time_t + 90
   WHILE($time > $_time_t)
      GETSCREEN
      COLORMODE(7)
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ksh.bmp", -1, 80)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik.bmp", -1, 100)
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(3000)
         GOTO(KSH)
      ELSE
         WAITMS(2000)
         GOTO(OUT) //ВЫХОД
      END_IF
   END_IF
   //--------------------------------
   ARSENAL:
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "arsenal.bmp", -1, 100)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      WAIT(1)
      GOTO(out) //ВЫХОД
      WAIT(1)
   ELSE
      WAITMS(50)
   END_IF
   //--------------------------------
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "da.bmp", -1, 100)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      WAIT(1)
      GOTO(out)  //ВЫХОД
      WAIT(1)
   ELSE
      WAITMS(50)
   END_IF
   //--------------------------------
   RAZMESTIT:
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "razmestit.bmp", -1, 90)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1+200, $_return2+112)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //------------тут иногда появляется окно с пушкой.
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pushka.bmp", -1, 100)
         $time = 0
         WAITMS(500)
         LCLICK($_return1, $_return2)
         WAITMS(1000)
         GOTO(da)  //DA
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   
   poisk://метка
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "poisk.bmp", -1, 100)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(800)
         LCLICK($_return1-154, $_return2+1)  // АРСЕНАЛ
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      WAITMS(1000)
      GOTO(OUT)     //ВЫХОД
   END_IF
   da: //метка
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "da.bmp", -1, 100)
         $time = 0
         WAITMS(1000)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //--------------------------------
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "razmestit.bmp", -1, 90)
         $time = 0
         LCLICK($_return1+200, $_return2+112)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //--------------------------------
   MS:
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ms.bmp", -1, 100)
         $time = 0
         WAITMS(100)
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //--------------------------------чистим страницу
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "vrag.bmp", -1, 100)
         $time = 0
         MOVE($_return1, $_return2)
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
      beep(1000,1000)
      WAITMS(100)
      HINTPOPUP("ЛИМИТ АЛМАЗОВ ИСЧЕРПАН")
      WAITMS(100)
      GOTO(OUT)  //ВЫХОД
      WAITMS(1000)
   END_IF
   //--------------------------------
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "udz.bmp", -1, 100)
         $time = 0
         WAITMS(100)
         LCLICK($_return1+2, $_return2+2)
         WAITMS(500)
         LCLICK($_return1+4, $_return2+38)
         WAITMS(500)
         LCLICK($_return1+6, $_return2+74)
         WAITMS(500)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   WAIT(1)
   //-------------
   out:    // метка
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "plag.bmp", -1, 100)
         $time = 0
         WAITMS(100)
         LCLICK($_return1, $_return2)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   //-------------
   $time = $_time_t + 25
   WHILE($time > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "chistka.bmp", -1, 100)
         $time = 0
         WAITMS(100)
         LCLICK($_return1, $_return2)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   IF($time ! 0)
   END_IF
   WAITMS(1000)
END_SUB
//==Конец подпрограммы===========================================

IF($count < TFCOUNT("LogPass_OST.txt"))
   INC($count,1)
ELSE
   $count = 1 // начинаем с начала
END_IF
FOR($a=0,$a<100)
   programs()
END_CYC
Logged

keepsv

  • Освоившийся
  • **
  • Posts: 34
    • View Profile
Re: Прошу помощи в написании сценария для игры Jungle Heat!
« Reply #32 on: November 12, 2014, 11:52:52 AM »
Благодарю, то что нужно!
Logged
Pages: 1 2 [3]
« previous next »