Это для книги рекордов , надеюсь, они так никуда не поехали

Настоящая мастерица организации детского транспорта! Удивительно и впечатляюще!

Меня удивляет другое: как она их родила?

Да напихала как кильку в банку

82 17 9 д назад 26:39Смотреть СТАЯ ЗАЛЕТЕЛА В БАРБЕРШОП! РЕНАТКО ПОБРИЛ БОРОДУ Iris882 41 9 д назад 0:29Смотреть Кто это кинул? Anysha96 69 9 д назад 12:25Смотреть РАВШАН ПРО НОВЫЙ МЕРС! Iris882 15 9 д назад 13:38Смотреть Нарезка из тик тока часть 20 xeir13 20 9 д назад 20:07Смотреть СТАЯ НАВОДИТ СУЕТУ В ТЦ! Iris882

Видимо, автобусы в Узбекистане слишком дорогие!

Хм, похоже, в Узбекистане водительские права на детей!

Она прямо как гениальная автобусная компания в одной машине!

Какой кошмар! Она их украла?

Она барышня на все руки, водительская школа в следующем!

_start() For $i = 1 To 47 _lol() Next Mouseclick("left", 542, 238) For $i = 1 To 43 _fly() Next EndFunc Func _lol() _like() _com() RandomLetter() Local $randomLength = Random(1, 8) Local $randomCombination = "" For $i = 1 To $randomLength $randomCombination &= RandomLetter() Next Local $textEntry = "abcedefghijklmnopqrstuvwxyz" Sleep(100) Send($randomCombination, 1) Send("{ENTER}") sleep(700) _scip() sleep(2000) EndFunc Func _start() Opt("MouseCoordMode", 2) ; Устанавливаем режим координат по окну (относительно окна) WinActivate("IncognitonBrowser") ; Активируем окно браузера "IncognitonBrowser" Sleep(2000) ; Приостанавливаем выполнение программы на 2 секунды, чтобы дать приложению время на реакцию MouseMove(540, 560, 0) Sleep(300) ; Приостанавливаем выполнение программы на 0,3 секунды, чтобы позволить курсору прижаться MouseClick("left", 540, 560, 1, 0) Sleep(2000) MouseMove(680, 200, 0) Sleep(300) MouseClick("left", 680, 200, 1, 0) Sleep(200) MouseMove(656, 474) MouseClick("Left", 656, 474) MouseMove(689, 688) MouseClick("Left", 656, 474) Sleep(250) EndFunc Func _like() $found = False For $x = 648 To 660 For $y = 455 To 463 $color = PixelGetColor($x, $y) If $color = 0x21E021 or $color = 0x346F5D Then MouseClick("left", $x, $y, 1) $found = True ExitLoop EndIf Next If $found = True Then ExitLoop Next EndFunc Func _com() $found = False For $x = 626 To 630 For $y = 630 To 900 $color = PixelGetColor($x, $y) If $color = 0x000303 or $color = 0x000404 or $color = 0x000505 Then MouseClick("left", $x, $y, 1) local $pos = MouseGetPos () local $newx = $pos[0] + 40 local $newy = $pos[1] Mouseclick ("left", $newx, $newy, 1) Send('+{INS}') $found = True ExitLoop EndIf Next If $found = True Then ExitLoop Next EndFunc ; Функция для генерации случайной буквы Func RandomLetter() Local $letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ; список всех букв Local $randomIndex = Random(0, StringLen($letters) - 1) ; выбираем случайный индекс Return StringMid($letters, $randomIndex + 1, 1) ; возвращаем случайную букву EndFunc Func _scip() MouseClick("left", 957, 400, 1) ; Нажатие на координаты (957, 400) при старте sleep(500) Local $startTime = TimerInit() While True If TimerDiff($startTime) > 11000 Then MouseClick("left", 1140, 430, 1) ; Нажатие на координаты (1140, 430) ; Прошло 8 секунд, выходим из цикла ExitLoop EndIf $color = PixelGetColor(840, 267) If $color = 0xFFFFFF Then MouseClick("left", 1140, 430, 1) ; Нажатие на координаты (1140, 430) ExitLoop EndIf Sleep(100) ; Пауза 100 миллисекунд перед повторной проверкой WEnd EndFunc func _fly() $startTime = TimerInit() $currentMouseX = MouseGetPos(0) $currentMouseY = MouseGetPos(1) $prevMouseX = $currentMouseX $prevMouseY = $currentMouseY While True If $currentMouseX = $prevMouseX And $currentMouseY = $prevMouseY And TimerDiff($startTime) >= 6000 Then MouseClick("left", 1030, 435) ExitLoop EndIf $color = PixelGetColor(848, 266) If $color 0xFFFFFF Then mousemove(955, 400) sleep(100) MouseClick("left", 955, 400, 1) exitloop EndIf Sleep(100) ; Пауза 100 миллисекунд перед повторной проверкой WEnd While True $color = PixelGetColor(970, 399) If $color = 0xFFFFFF Then MouseClick("left", 1040, 430, 1) ; Нажатие на координаты (1040, 430) ExitLoop EndIf If TimerDiff($startTime) >= 4000 Then ExitLoop EndIf Sleep(100) WEnd EndFuncDXNXN