Author Topic: Помогите довести до ума Скрипт для 999dice.com  (Read 1907 times)

0 Members and 1 Guest are viewing this topic.

Viktor

  • Зашел в гости
  • *
  • Posts: 5
    • View Profile
Code: (clickermann) [Select]
INC($num,1)// наращиваем номер строки
IF($num > TFCOUNT("11.txt"))
   LOGWRITE("строки закончились")
   BEEP(800,200)
   HALT
END_IF
$str = TFREAD("11.txt", $num)  // в цикле, читаем строки из файла
STRSEPARATE($str, "   ", $arr)// разбираем строку в массив по разделителям ENTER ?
FOR($a=0,$a<ARRSIZE($arr))// в цикле читаем массив, копируем в буфер и вставляем
   WAITMS(300)
   
   LOGWRITE ("окно вставки")
   DBLCLICK($r_st_x,$r_st_y)
   WAITMS(300)
   TOCLIP($arr[$a])
   WAITMS(50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS(300)
   
   
END_CYC
UNDEFINE($arr) // удаляем массив

LOGWRITE ("Нажимаем кнопку ")
LCLICK($hide_x,$hide_y)
WAIT(3)

GETSCREEN
IF_PIXEL_IN($green_x1,$green_y1,$green_x2,$green_y2, $green_color)
   
   LOGWRITE ("вылезла зеленая надпись  ")
   WAITMS(300)
   INC($count,1)
   IF($count = 10) // 10 повторов скрипта
      HALT // стоп
   END_IF
   
   $num=0  //начать чтение файла с начала
   
ELSE
   WAITMS(300)
   GETSCREEN
   IF_PIXEL_IN($green_x1,$green_y1,$green_x2,$green_y2, $green_color1)
     
      LOGWRITE ("вылезла красная надпись")
      WAITMS(300)
     
   END_IF
   
END_IF
« Last Edit: February 17, 2019, 12:41:03 AM by Viktor »

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Помогите довести до ума Скрипт для 999Dict
« Reply #1 on: November 29, 2017, 09:59:10 PM »
дак это ж один из лохотронов 999dice.com. принцип как и у всех остальных, по началу немного дает.... и сливает.

я тебе помогу слить твои накопления  ;D

Code: (clickermann) [Select]
INC($num,1)// наращиваем номер строки
IF($num > TFCOUNT("ставки.txt"))
   $num = 1    // я так понял, что после переборки всех строк, возвращаемся к первой
END_IF




$str = TFREAD("ставки.txt", $num)  // в цикле, читаем строки из файла

STRSEPARATE($str, " ", $arr)// разбираем строку в массив по разделителям ENTER . не ENTER, а пробел, скорее всего.


FOR($a=0,$a<ARRSIZE($arr))// в цикле читаем массив, копируем в буфер и вставляем
   
   WAIT(1)
   LOGWRITE ("Открываем   браузер")
   LCLICK($browser_x1,$browser_Excel_y)
   WAITMS(300)
   
   
   LOGWRITE ("окно Размер ставоки")
   DBLCLICK($r_st_x,$r_st_y)
   WAITMS(300)
   TOCLIP($arr[$a])
   WAITMS(50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#ENTER)
   WAIT(1)
   
   LOGWRITE ("Нажимаем кнопку Больше")
   LCLICK($hide_x,$hide_y) //кнопка Больше     - Bet High
   WAIT(1)
   
   GETSCREEN
   IF_PIXEL_IN($green_x1,$green_y1,$green_x2,$green_y2, $green_color)
     
      LOGWRITE ("вылезла зеленая надпись")
      WAIT(1)
      UNDEFINE($arr)// типа выиграл, удаляем массив, тем самым выходим из цикла
      // и читаем следующую строку
   ELSE
      //проигрыш, новая ставка из строки
      WAITMS(1000)
      GETSCREEN
      IF_PIXEL_IN($red_x1,$red_y1,$red_x2,$red_y2,$red_color)
         LOGWRITE ("вылезла красная надпись")
         WAIT(1)
      END_IF
   END_IF
END_CYC


не совсем понятно что у тебя в файле "ставки", и что должно произойти, если в строке закончатся подстроки ставок. ну тебе видней. по коду выше, если ставки в строке закончатся, то переход к новой строке, тем самым к минимальной ставке (ну или что там у тебя в строках).
сайт хорош тем, что не требуется регистрация и прочих формальностей.