Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Помогите переписать скрипт с кликера на пилот, Нужно помочь переписать скрипт с кликера чтоб работал так же само на п
Progresiv
сообщение 27.5.2020, 22:02
Сообщение #1


*

Registred
Сообщений: 3
Регистрация: 26.5.2020
Группа: Пользователи
Наличность: 0
Пользователь №: 19.653
Возраст: 21



Ребята с толкнулся с проблемой мой скрипт устарел знакомый скилу скрипт под кликер, можно его переписать под пилот?
$picture="Uron.bmp" // имя картинки со статом
$stat=30 // минимальное количество стата


// ДЛЯ БОЛЬШИНСТВА ВЕРХНИХ ДВУХ СТРОК ДОСТАТОЧНО
// НИЖЕ - НАСТРОЙКИ. НЕ УВЕРЕН - НЕ ЛЕЗЬ

// Дополнительные настройки:
$flag=0 // 0 - сумма всех статов. 1 - один лучший стат
$zoom=100 // увеливение раб. стола в виндовс в процентах, по умолчанию 100
$time=1500 // настройка задержки для своевременного попадания по кнопке "оценка". +-500, надо регулировать


// Запись лога
$log=1 // 0 - не вести лог
// 1 - писать в файл log.txt историю найденных статов
// 2 - то же, что и 1, но перезаписывать лог при запуске
$min_l=0 // минимальная сумма, которую писать в лог
$min_n=0 // минимальное количество статов, которые писать в лог


// Дополнительный учет при оценке статов ШК/ШУК/ШМХ
$picture2="shk.bmp" // картинка на шк/шук/шмх
$num=0 // сколько максимум искать доп статов
$stat2=7 // сколько стоит 1 шк/шук/шмх в эквиваленте основного стата



// Отладочная секция

// если почему-то не определяет одну из кнопок или расположение статов
// то вписать вручную: (на разрешениях ниже 1280х720 не работает)
$coord_x=0 // координата Х верхнего левого угла оценки (замок над "Базовые")
$coord_y=0 // координата У верхнего левого угла оценки

$otc_x=0 // координата Х кнопки "оценка"
$otc_y=0 // координата У кнопки "оценка"

$otm_x=0 // координата Х кнопки "отмена (которая слева)"
$otm_y=0 // координата У кнопки "отмена (которая слева)"

// отладочная секция закончилась, дальше лучше не лезть



if (($coord_x = 0) and ($coord_y = 0))
getscreen
colormode(8)
if_picture_in(0,0,int($_xmax/2),$_ymax,"base.bmp")
$coord_x=$_return1
$coord_y=$_return2
end_if
end_if

if (($coord_x = 0) and ($coord_y = 0))
$low_res=1
if_picture_in(0,0,int($_xmax/2),$_ymax,"base_low.bmp")
$coord_x=$_return1
$coord_y=$_return2
end_if
end_if

if (($otc_x = 0) and ($otc_y = 0))
getscreen
colormode(8)
if_picture_in(0,0,int($_xmax/2),$_ymax,"but.bmp")
$otc_x=int(($_return1+290)/$zoom*100)
$otc_y=int(($_return2+10)/$zoom*100)
end_if
end_if
if (($otc_x = 0) and ($otc_y = 0))
if_picture_in(0,0,int($_xmax/2),$_ymax,"but_low.bmp")
$otc_x=int(($_return1+275)/$zoom*100)
$otc_y=int(($_return2+10)/$zoom*100)
end_if
end_if

if (($otm_x = 0) and ($otm_y = 0))
getscreen
colormode(8)
if_picture_in(0,0,int($_xmax/2),$_ymax,"but.bmp")
$otm_x=int(($_return1+200)/$zoom*100)
$otm_y=int(($_return2+45)/$zoom*100)
end_if
end_if
if (($otm_x = 0) and ($otm_y = 0))
if_picture_in(0,0,int($_xmax/2),$_ymax,"but_low.bmp")
$otm_x=int(($_return1+190)/$zoom*100)
$otm_y=int(($_return2+45)/$zoom*100)
end_if
end_if

if (($coord_x*$coord_y = 0))
$k=dialogbox("Не подходят шрифты, и это странно",0)
halt
end_if

if (($otc_x*$otc_y*$otm_x*$otm_y) = 0))
$k=dialogbox("Не найдены кнопки, введи коорды вручную",0)
halt
end_if

logclear
if ($log=2)
tfclear("log.txt")
end_if
if ($log>0)
strwriteln("log.txt","")
strwriteln("log.txt",strconcat($_time_h,":",$_time_m,":",$_time_s," Начата оценка"))
strwriteln("log.txt",strconcat(" Минимальная сумма статов: ",$stat))
end_if
if ($low_res=1)
print("Переключаемся на низкое разрешение")
else
print("Работаем с высоким разрешением")
end_if
print("Область оценки и кнопки определены")
print("Минимальная сумма статов: ",$stat)
print("")
if ($num=0)
print("Поиск доп. стата не задан")
else
print("Задан поиск доп. стата")
print("Цена доп. стата: ",$stat2)
print("Макс. количество доп. стата: ",$num)
end_if
print("")

if ($low_res=0)
for ($i=0,$i<10)
$pic[$i]=strconcat($i,".bmp")
end_cyc
else
for ($i=0,$i<10)
$pic[$i]=strconcat($i,"_low.bmp")
end_cyc
end_if

$shmh=0

retry:
waitms(10)
LCLICK($otc_x,$otc_y)
waitms(1000)
getscreen
colormode(8)

$k=0
$k_tmp=0
$k2=0
$stcnt=0

if ($num > 0)
scanpicture($var, $coord_x,$coord_y, ($coord_x+215),($coord_y+215), $picture2, -1,98)
$k2=arrsize($var)/2
undefine($var)
end_if


scanpicture($var, $coord_x,$coord_y, ($coord_x+215),($coord_y+215), $picture, -1,98)
while (arrsize($var) > 0)
$y = arrpop($var)
$x = arrpop($var)
inc($stcnt)
for ($n=0, $n < 10)
scanpicture($tmp,($x+5),($y-2),($x+180),($y+10),$pic[$n],-1,99)
while (arrsize($tmp) > 0)
$z1=arrpop($tmp)
$z2=arrpop($tmp)
arrpush($arr1,$z2)
arrpush($arr2,$n)
end_cyc
end_cyc

if (arrsize($arr2)=0)
inc($shmh)
for ($n=0, $n < 10)
if ($low_res=0)
scanpicture($tmp,($coord_x),($y+17),($coord_x+180),($y+29),$pic[$n],-1,99)
else
scanpicture($tmp,($coord_x),($y+14),($coord_x+180),($y+26),$pic[$n],-1,99)
end_if
while (arrsize($tmp) > 0)
$z1=arrpop($tmp)
$z2=arrpop($tmp)
arrpush($arr1,$z2)
arrpush($arr2,$n)
end_cyc
end_cyc

end_if

if (arrsize($arr2)=0)
inc($k_tmp)
end_if

$cnt_last=2000
for ($i1=0, $i1 < arrsize($arr1))
$cnt=0

for ($i=0, $i < arrsize($arr1))
if (($arr1[$i]>$cnt) and ($arr1[$i]<$cnt_last))
$cnt=$arr1[$i]
$n1=$arr2[$i]
end_if
end_cyc

arrpush($end,$n1)
$cnt_last=$cnt
end_cyc

for ($i=0, $i < arrsize($end))
$k_tmp=$k_tmp+($end[$i]*pow(10,$i))
end_cyc


if ($flag = 1)
if ($k_tmp > $k)
$k=$k_tmp
end_if
$k_tmp=0
else
$k=$k_tmp
end_if

undefine($arr1)
undefine($arr2)
undefine($end)

end_cyc

if ($shmh=1)
print("Кажется, мы ищем ШМХ!")
print("")
end_if

if ($k>0)
if ($flag = 1)
print("Лучший стат: ", $k)
else
print("Сумма статов: ", $k,", всего статов: ",$stcnt)
end_if

if (($log>0) and ($min_l<$k) and ($min_n<$stcnt))
strwriteln("log.txt",strconcat($_time_h,":",$_time_m,":",$_time_s," найдено основных статов на сумму: ",$k,", количество статов: ",$stcnt))
if($k2>0)
strwriteln("log.txt",strconcat($_time_h,":",$_time_m,":",$_time_s," найдено доп. статов: ",$k2))
end_if
end_if
else
print("Статы не найдены")
end_if

if ($k2>$num)
$k2=$num
end_if

if ($num > 0)
if ($k2>0)
print("Доп стат ",$k2," шт. Итог: ",($k2*$stat2+$k))
else
print("Доп стат не найден")
end_if
end_if

$k=$k+$k2*$stat2
waitms($time)

if ($k < $stat)
goto(retry)
else
waitms(5000)
LCLICK($otm_x,$otm_y)
halt
end_if
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 28.5.2020, 1:09
Сообщение #2


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26540
Пользователь №: 16.971
Возраст: 29



Сомневаюсь что кто-то знает синтаксис и пилота, и кликермана. Ещё и захочет переписать не маленький скрипт, не зная что вообще этот скрипт делает.
Проще новый написать, чем что-то переписывать.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Progresiv
сообщение 28.5.2020, 4:51
Сообщение #3


*

Registred
Сообщений: 3
Регистрация: 26.5.2020
Группа: Пользователи
Наличность: 0
Пользователь №: 19.653
Возраст: 21



Цитата(cirus @ 28.5.2020, 1:09) *

Сомневаюсь что кто-то знает синтаксис и пилота, и кликермана. Ещё и захочет переписать не маленький скрипт, не зная что вообще этот скрипт делает.
Проще новый написать, чем что-то переписывать.

Да я уже это понял, но что-то не выходит, юпилот не видит нужное фото


Прикрепленные файлы
Прикрепленный файл  Da___poisk.txt ( 2,57 килобайт ) Кол-во скачиваний: 144
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 28.5.2020, 11:03
Сообщение #4


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26540
Пользователь №: 16.971
Возраст: 29



Нарушена структура скрипта. В меню нажмите 'Скрипт'. 'Форматировать'. Количество end_if больше чем if.
end_repeat не может быть в теле блоке if. Должно быть так:
Код
repeat
    if

    else
        if

        else

        end_if
    end_if
end_repeat

Цитата
юпилот не видит нужное фото

Код
set #a findimage (0, 0, 1920, 1080  (\777.bmp) %arr 2 80 -1 5)
log #a
if #a > 0
    move %arr[1 1] %arr[1 2]
end_if
end_script

Что в лог выводит?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Progresiv
сообщение 28.5.2020, 16:06
Сообщение #5


*

Registred
Сообщений: 3
Регистрация: 26.5.2020
Группа: Пользователи
Наличность: 0
Пользователь №: 19.653
Возраст: 21



Цитата(cirus @ 28.5.2020, 11:03) *

Нарушена структура скрипта. В меню нажмите 'Скрипт'. 'Форматировать'. Количество end_if больше чем if.
end_repeat не может быть в теле блоке if. Должно быть так:
Код
repeat
    if

    else
        if

        else

        end_if
    end_if
end_repeat


Код
set #a findimage (0, 0, 1920, 1080  (\777.bmp) %arr 2 80 -1 5)
log #a
if #a > 0
    move %arr[1 1] %arr[1 2]
end_if
end_script

Что в лог выводит?

Пишет что - 4


Цитата(Progresiv @ 28.5.2020, 15:57) *

Пишет что 0

Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 29.5.2020, 1:12
Сообщение #6


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26540
Пользователь №: 16.971
Возраст: 29



Цитата
Пишет что - 4

Значит файл картинки не найден.
Цитата
Пишет что 0

Подбирайте параметры поиска, точность и отклонение в цвете.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 28.3.2024, 12:03
Designed by Nickostyle