1
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
$Start = 0
WHILE($Start = 0) // Получаю начало координат х и у
GETSCREEN (15,590, 145,615)
COLORMODE(8, 15,590, 145,615)
IF_PICTURE_IN (15,590, 145,615, "Коры\x.bmp")
$Sx = $_return1+15
$Sy = $_return2
IF_PICTURE_IN (15,590, 145,615, "Коры\y.bmp")
$Start = 1
$Sx2 = $_return1+15
$Sy2 = $_return2
WAITMS(10)
ELSE
WAITMS(10)
LOGWRITE ("нет координат")
END_IF
END_IF
END_CYC
// Сканирую цифры по х
UNDEFINE($arr)
$Stop = 0
WHILE($Stop = 0)
FOR($No = 0, $No <= 10)
IF_PICTURE_IN ($Sx,$Sy, $Sx+7,$Sy+11, STRCONCAT("Коры\",$No,".bmp"))
IF($No = 10)
$Stop = 1
ELSE
ARRPUSH($arr, $No)
END_IF
$No = 777
END_IF
END_CYC
INC($Sx,7)
END_CYC
$x = ""
FOR($a=0,$a<ARRSIZE($arr))
$x = STRCONCAT($x,$arr[$a])
END_CYC
// Сканирую цифры по у
UNDEFINE($arr)
$Stop = 0
WHILE($Stop = 0)
FOR($No = 0, $No <= 10)
IF_PICTURE_IN ($Sx2,$Sy2, $Sx2+7,$Sy2+11, STRCONCAT("Коры\",$No,".bmp"))
IF($No = 10)
$Stop = 1
ELSE
ARRPUSH($arr, $No)
END_IF
$No = 777
END_IF
END_CYC
INC($Sx2,7)
END_CYC
$y = ""
FOR($a=0,$a<ARRSIZE($arr))
$y = STRCONCAT($y,$arr[$a])
END_CYC
LOGWRITE ($x," - ", $y)
halt
SUB(Клавиша, $par)
postmessage($Okno, 0x0100, $par, 0) // нажать
postmessage($Okno, 0x0101, $par, 0) // отпустить
END_SUB
$Okno = wndfind("Paint")
wndgetinfo($Okno, $o_x, $o_y, $r_g, $r_v)
$Clik_x = ROUND($r_g/2,0)
$Clik_y = ROUND($r_v/2,0)
Клавиша(#1)
// То что ниже, как отправить окну?
LDOWN($Clik_x, $Clik_y) // Зажать в центре окна
WAITMS(200)
LUP($Clik_x + 200, $Clik_y) // Переместить на 200 пикселей отпустить
HALT
SUB(Сумка)
$Sumka = 0
WHILE($Sumka = 0)
GETSCREEN(130,10, 1700,600)
COLORMODE(7, 130,10, 1700,600)
IF_PICTURE_IN (130,10, 1700,600, "..\Нарезка\Сумка.bmp")
$Sumka = 1
$x = $_return1
$y = $_return2
LOGWRITE ("коры ", $x, " x ", $y)
// = Сейф ==
$KLD_x = $x - 90
$KLD_y = $y + 30
// = Востанов ==
$VOS_x = $x - 10
$VOS_y = $y + 30
// = Разбор ===
$RAZ_x = $x + 15
$RAZ_y = $y + 30
// = Удалить ===
$UDL_x = $x + 35
$UDL_y = $y + 30
// = Экипиров ===
$EKP_x = $x + 210
$EKP_y = $y + 170
// = Зелья ===
$BUT_x = $x + 210
$BUT_y = $y + 205
// = Прочее ===
$YWK_x = $x + 210
$YWK_y = $y + 270
// = Удал/Раз ===
$COM_x = $x - 210
$COM_y = $y + 460
ELSE
KEYPRESS(#a) // Открыть сумку
WAITMS(300)
END_IF
END_CYC
WAITMS(100)
END_SUB
Сумка()
LCLICK($KLD_x,$KLD_y) // Открыть сейф
Сейф (1)
FOR($Varr = 1, $Varr < 21)
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, STRCONCAT($Varr, ".bmp"), -1, 100)
$scan_size = ARRSIZE($ARR_SCAN)
FOR($ARR_NUM=0, $ARR_NUM < $scan_size, 2)
$X = $ARR_SCAN[$ARR_NUM]
$Y = $ARR_SCAN[$ARR_NUM+1]
LCLICK($X + 3, $Y + 3)
WAITMS(100)
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(50)
END_CYC
LOGWRITE ($Varr)
FOR($Varr=1, $Varr < 30)
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, STRCONCAT($Varr, ".bmp"), -1, 100)
$scan_size = ARRSIZE($ARR_SCAN)
FOR($ARR_NUM=0, $ARR_NUM < $scan_size, 2)
$X = $ARR_SCAN[$ARR_NUM]
$Y = $ARR_SCAN[$ARR_NUM+1]
LCLICK($X + 3, $Y + 3)
WAITMS(100)
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(50)
END_CYC
hwnd - HWND окна // Это понятно
message - сообщение окну (*) // Это понятно
wParam, lParam - параметры сообщения // А вот это совсем не понятно, где их брать?
// поиск окна
$h = wndfind("comp2")
postmessage($h, 0x31, ==, ==)
halt
$check4 = 0
WHILE($check4 = 0)
GETSCREEN
COLORMODE(7)
$con2 = PXLCOUNT ($korwx - 128,$korwy + 388, $korwx - 95,$korwy + 421, 8355711)
IF($con2 = 1156)
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
WAITMS(100)
LCLICK($korwx + RND(120,150), $korwy + RND(455,466))
LOGWRITE ("Пусто")
ELSE
LOGWRITE ("поиск атаки")
IF_PICTURE_IN ($korwx - 142,$korwy + 340, $korwx - 82,$korwy + 440, "куба.bmp", -1, 100)
LOGWRITE ("атака")
DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
WAITMS(100)
DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
WAITMS(100)
ELSE
LOGWRITE ("поиск защиты")
IF_PICTURE_IN ($korwx - 142,$korwy + 340, $korwx - 82,$korwy + 440, "кубз.bmp", -1, 100)
LOGWRITE ("защита")
DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
WAITMS(100)
DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
WAITMS(100)
DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
WAITMS(100)
ELSE
LOGWRITE ("поиск 10+")
IF(PXL($korwx + 217, $korwy + 119) = 16777215)
$check4 = 1
WAITMS(200)
ELSE
IF_PIXEL_IN($korwx + 232,$korwy + 116, $korwx + 243,$korwy + 125, 8355839)
$check4 = 1
WAITMS(200)
ELSE
LOGWRITE ("добиваем")
WAITMS(500)
DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
WAITMS(400)
LCLICK($korwx + RND(120,150), $korwy + RND(455,466))
WAITMS(1900)
END_IF
END_IF
END_IF
END_IF
END_IF
END_CYC
IF($first = 0)
$first = 1
$count = INPUTBOX("Кол-во проходов:", "1", 999)
$count2 = $count + INPUTBOX("Кол-во проходов:", "1", 999)
$count3 = $count2 + $count + INPUTBOX("Кол-во проходов:", "1", 999)
IF($count = "")
HALT
END_IF
END_IF
// Тут мой скрипт
LOGWRITE ("скрипт")
INC($count,-1)
IF($count = 0)
LOGWRITE ("закрыть 1 окна")
END_IF
INC($count2,-1)
IF($count = 0)
LOGWRITE ("закрыть 2 окна")
END_IF
INC($count3,-1)
IF($count = 0)
LOGWRITE ("закрыть 3 окна")
halt
END_IF
$check = 0
WHILE($check = 0)
GETSCREEN(393,178, 411,187)
COLORMODE(6, 393,178, 411,187)
IF_PIXEL_IN(393,178, 401,180, 4145023, 4145087)
$check = 1
LOGWRITE ("1")
WAITMS(100)
ELSE
IF_PIXEL_IN(370,179, 373,185, 16777215, 12566463)
$check = 1
LOGWRITE ("2")
WAITMS(100)
ELSE
WAITMS(200)
DBLCLICK(368,156)
LOGWRITE ("Добиваем")
WAITMS(200)
LCLICK(285,521)
WAITMS(1400)
END_IF
WAITMS(50)
END_IF
END_CYC
IF_PIXEL_IN(393,178, 401,180, 4145023, 4145087) | (370,179, 373,185, 16777215, 12566463)
$check = 1