« previous next »
Pages: [1]

Author Topic: Помогите сценарий склеит для браузерной рпг  (Read 1317 times)

0 Members and 2 Guests are viewing this topic.

Alecoq

  • Зашел в гости
  • *
  • Posts: 11
    • View Profile
Помогите сценарий склеит для браузерной рпг
« on: March 23, 2018, 03:20:28 PM »
Есть два сценария по оделности все работает,вмести работает толко первый
1Авто заявка на бой
Code: (clickermann) [Select]
GETSCREEN
WHILE(PXL (206,171) ! 255)
      WAITMS (100)
      GETSCREEN
END_CYC
     
      $S_CORR = 0
     
      waitms(8 + $S_CORR)
      move(808,254)
      waitms(731 + $S_CORR)
      move(808,252)
      waitms(11 + $S_CORR)
      move(807,251)
      waitms(4 + $S_CORR)
      move(807,250)
      waitms(11 + $S_CORR)
      move(807,249)
      waitms(16 + $S_CORR)
      move(807,248)
      waitms(13 + $S_CORR)
      move(807,247)
      waitms(85 + $S_CORR)
      move(807,246)
      waitms(6 + $S_CORR)
      move(807,245)
      waitms(17 + $S_CORR)
      move(807,244)
      waitms(14 + $S_CORR)
      move(807,243)
      waitms(16 + $S_CORR)
      move(807,242)
      waitms(16 + $S_CORR)
      move(807,241)
      waitms(8 + $S_CORR)
      move(807,240)
      waitms(8 + $S_CORR)
      move(807,239)
      waitms(19 + $S_CORR)
      move(808,239)
      waitms(1 + $S_CORR)
      move(808,238)
      waitms(3 + $S_CORR)
      move(808,237)
      waitms(7 + $S_CORR)
      move(809,236)
      waitms(9 + $S_CORR)
      move(810,236)
      waitms(7 + $S_CORR)
      move(810,235)
      waitms(8 + $S_CORR)
      move(811,234)
      waitms(6 + $S_CORR)
      move(811,233)
      waitms(7 + $S_CORR)
      move(812,232)
      waitms(9 + $S_CORR)
      move(813,231)
      waitms(7 + $S_CORR)
      move(814,229)
      waitms(9 + $S_CORR)
      move(814,228)
      waitms(8 + $S_CORR)
      move(815,226)
      waitms(17 + $S_CORR)
      move(816,225)
      waitms(5 + $S_CORR)
      move(817,223)
      waitms(12 + $S_CORR)
      move(818,222)
      waitms(4 + $S_CORR)
      move(818,220)
      waitms(10 + $S_CORR)
      move(820,218)
      waitms(5 + $S_CORR)
      move(822,215)
      waitms(9 + $S_CORR)
      move(825,212)
      waitms(6 + $S_CORR)
      move(827,209)
      waitms(7 + $S_CORR)
      move(831,206)
      waitms(9 + $S_CORR)
      move(834,203)
      waitms(8 + $S_CORR)
      move(838,201)
      waitms(8 + $S_CORR)
      move(842,198)
      waitms(25 + $S_CORR)
      move(844,196)
      waitms(1 + $S_CORR)
      move(846,193)
      waitms(1 + $S_CORR)
      move(849,191)
      waitms(4 + $S_CORR)
      move(851,189)
      waitms(6 + $S_CORR)
      move(852,188)
      waitms(9 + $S_CORR)
      move(852,187)
      waitms(7 + $S_CORR)
      move(853,187)
      waitms(8 + $S_CORR)
      move(338,315)
      waitms(14 + $S_CORR)
      move(338,316)
      waitms(170 + $S_CORR)
      move(339,316)
      waitms(30 + $S_CORR)
      move(340,317)
      waitms(37 + $S_CORR)
      move(341,317)
      waitms(32 + $S_CORR)
      move(341,318)
      waitms(250 + $S_CORR)
      lDown(341,318)
      waitms(136 + $S_CORR)
      lUp(341,318)
      waitms(3706 + $S_CORR)
      // deleted
      waitms(1 + $S_CORR)
      // deleted
      waitms(318 + $S_CORR)
      // deleted
      waitms(20 + $S_CORR)
      keyUp(17)
      waitms(0 + $S_CORR)
      keyUp(83)
      waitms(0 + $S_CORR)
      keyUp(162)
   END_IF
END_CYC2 Авто БОЙ
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"priem.bmp")
 LCLICK($_return1, $_return2)
 WAIT(2)
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"ok.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"boi.bmp")
 LCLICK($_return1, $_return2)
 WAIT(4)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa2.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"obnova.bmp")
 LCLICK($_return1, $_return2)
 WAIT(10)
END_IF
можно это в один сценарий превратить?
« Last Edit: March 23, 2018, 08:38:30 PM by Oraven »
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помогите сценарий склеит для браузерной рпг
« Reply #1 on: March 23, 2018, 08:37:35 PM »
В обоих сценариях ошибки, лишние или недостающие окончания.

Code: (clickermann) [Select]
GETSCREEN
IF(PXL(206,171) = 255) // Авто заявка на бой
   LCLICK(341,318)
   WAIT(1)
   
   // Авто БОЙ
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"priem.bmp")
         LCLICK($_return1, $_return2)
         WAIT(2)
      END_IF
     
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"ok.bmp")
         LCLICK($_return1, $_return2)
         WAIT(1)
      END_IF
     
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"boi.bmp")
         LCLICK($_return1, $_return2)
         WAIT(4)
      END_IF
     
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa.bmp")
         LCLICK($_return1, $_return2)
         WAIT(1)
      END_IF
     
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa2.bmp")
         LCLICK($_return1, $_return2)
         WAIT(1)
      END_IF
     
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"obnova.bmp")
         LCLICK($_return1, $_return2)
         WAIT(10)
      END_IF
      WAITMS (100)
   END_CYC
   
ELSE
   WAITMS (50)
END_IF
Если хочешь чтобы цикл автобоя сам завершился, нужно вставить определение окончание боя
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"end.bmp")
     $check = 1 // разрешаем выход из цикла
     WAIT(2)
END_IF
Logged

Alecoq

  • Зашел в гости
  • *
  • Posts: 11
    • View Profile
Re: Помогите сценарий склеит для браузерной рпг
« Reply #2 on: March 23, 2018, 08:56:04 PM »
Спасибо второй день с программой разбираюсь ша попробуем
Logged

Alecoq

  • Зашел в гости
  • *
  • Posts: 11
    • View Profile
Re: Помогите сценарий склеит для браузерной рпг
« Reply #3 on: March 23, 2018, 09:34:27 PM »
Code: [Select]
     
          GETSCREEN
          IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa2.bmp")
             LCLICK($_return1, $_return2)
             WAIT(1)
          END_IF
     
          GETSCREEN
          IF_PICTURE_IN(0,0,$_xmax,$_ymax,"obnova.bmp")
             LCLICK($_return1, $_return2)
             WAIT(10)
          END_IF
          WAITMS (100)
       END_CYC
       
    ELSE
           GETSCREEN
           IF_PICTURE_IN(0,0,$_xmax,$_ymax,"end.bmp")
             $check = 1 // ðàçðåøàåì âûõîä èç öèêëà
             WAITMS(100)
           END_IF
       WAITMS (50)
    END_IF

так выход из цикла добавить?
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помогите сценарий склеит для браузерной рпг
« Reply #4 on: March 23, 2018, 10:12:18 PM »
Вот это цикл
Code: (clickermann) [Select]
WHILE($check = 0)

END_CYC
В него нужно добавить условие.
Code: (clickermann) [Select]
WHILE($check = 0)
   
   GETSCREEN
   IF_PICTURE_IN(0,0,$_xmax,$_ymax,"end.bmp")
      $check = 1 // разрешаем выход из цикла
      WAITMS(100)
   END_IF
   WAITMS(50)
END_CYC
Logged
Pages: [1]
« previous next »