« previous next »
Pages: [1]

Author Topic: Помогите упростить скрипт!  (Read 1729 times)

0 Members and 1 Guest are viewing this topic.

lopux

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Помогите упростить скрипт!
« on: May 02, 2017, 04:00:39 PM »
Здравствуйте все нужна помощь по написанию макроса для скрипта, вообще мне нужна его урезать он вышел аж на 1000 столбика в поэтому нудна урезать Начнем с самого макроса

Code: (clickermann) [Select]
// RECORDED SCRIPT 27/04/2017
// waitms correction
$S_CORR = 900
$S1_CORR = 100
$y = 560
$z = 473
$y1 = 773
$z1 = 418

waitms(700 + $S_CORR)
move(525,749)

move($y,$z)
waitms($S1_CORR + $S_CORR)
lDown($y,$z)
waitms($S1_CORR + $S_CORR)
lUp($y,$z)
waitms($S1_CORR + $S_CORR)
move($y,$z)

move($y1,$z1)
waitms($S1_CORR + $S_CORR)
lDown($y1,$z1)
waitms($S1_CORR + $S_CORR)
lUp($y1,$z1)
waitms($S1_CORR + $S_CORR)
move($y1,$z1)

move(810,240)
waitms($S1_CORR + $S_CORR)
lDown(810,240)1
waitms($S1_CORR + $S_CORR)
lUp(810,240)
waitms($S1_CORR + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)1
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(55) 705
waitms(200 + $S_CORR)
keyUp(55)
waitms(200 + $S_CORR)
keyDown(48)
waitms(200 + $S_CORR)
keyUp(48)
waitms(200 + $S_CORR)
keyDown(53)
waitms(200 + $S_CORR)
keyUp(53)
waitms(600 + $S_CORR)
move(812,239)

move(861,234)
waitms(600 + $S_CORR)
lDown(861,234)
waitms(600 + $S_CORR)
lUp(861,234)
waitms(600 + $S_CORR)
move(861,235)

move(861,236)
waitms(600 + $S_CORR)
keyDown(8)
waitms(600 + $S_CORR)
keyUp(8)
waitms(600 + $S_CORR)
keyDown(8)
waitms(400 + $S_CORR)
keyUp(8)
waitms(500 + $S_CORR)

waitms(400 + $S_CORR)
keyDown(50) 20
waitms(500 + $S_CORR)
keyUp(50)
waitms(400 + $S_CORR)
keyDown(48)
waitms(500 + $S_CORR)
keyUp(48)
waitms(999 + $S_CORR)
move(861,242)

move(757,569)
waitms(600 + $S_CORR)
lDown(757,569)
waitms(600 + $S_CORR)
lUp(757,569)
waitms(1480 + $S_CORR)
move(758,569)

move(521,265)
waitms(600 + $S_CORR)
lDown(521,265)
waitms(600 + $S_CORR)
lUp(521,265)
waitms(600 + $S_CORR)
move(522,264)

move(996,347)
waitms(900 + $S_CORR)
lDown(996,347)
waitms(999 + $S_CORR)
move(996,346)
waitms(999 + $S_CORR)
lUp(996,346)
waitms(911 + $S_CORR)
move(997,346)

move(62,419)
waitms(600 + $S_CORR)
lDown(62,419)
waitms(600 + $S_CORR)
lUp(62,419)

move($y,$z)
waitms($S1_CORR + $S_CORR)
lDown($y,$z)
waitms($S1_CORR + $S_CORR)
lUp($y,$z)
waitms($S1_CORR + $S_CORR)
move($y,$z)

move($y1,$z1)
waitms($S1_CORR + $S_CORR)
lDown($y1,$z1)
waitms($S1_CORR + $S_CORR)
lUp($y1,$z1)
waitms($S1_CORR + $S_CORR)
move($y1,$z1) вот этот кусок макроса постоянна повторяется можно ли его как нибудь сделать на подобие вот этой функций


$S_CORR = 900
$S1_CORR = 100
$y = 560
$z = 473
$y1 = 773
$z1 = 418

эта же постоянна меняющие координаты с 2 ячеек их надо вынести в отдельный текстовый файл, а сюда лишь вставить адрес к каждой координате

move(810,240)
waitms($S1_CORR + $S_CORR)
lDown(810,240)1
waitms($S1_CORR + $S_CORR)
lUp(810,240)
waitms($S1_CORR + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)1
keyDown(8)
waitms(200 + $S_CORR)
keyUp(8)
waitms(200 + $S_CORR)
keyDown(55)                                                         705
waitms(200 + $S_CORR)
keyUp(55)
waitms(200 + $S_CORR)
keyDown(48)
waitms(200 + $S_CORR)
keyUp(48)
waitms(200 + $S_CORR)
keyDown(53)
waitms(200 + $S_CORR)
keyUp(53)
waitms(600 + $S_CORR)
move(812,239)

move(861,234)
waitms(600 + $S_CORR)
lDown(861,234)
waitms(600 + $S_CORR)
lUp(861,234)
waitms(600 + $S_CORR)
move(861,235)

move(861,236)
waitms(600 + $S_CORR)
keyDown(8)
waitms(600 + $S_CORR)
keyUp(8)
waitms(600 + $S_CORR)
keyDown(8)
waitms(400 + $S_CORR)
keyUp(8)
waitms(500 + $S_CORR)

waitms(400 + $S_CORR)
keyDown(50)                                                       20
waitms(500 + $S_CORR)
keyUp(50)
waitms(400 + $S_CORR)
keyDown(48)
waitms(500 + $S_CORR)
keyUp(48)
waitms(999 + $S_CORR)
move(861,242)
Как это сделать? кто подскажет?
« Last Edit: May 03, 2017, 07:17:53 AM by Oraven »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Помогите упростить скрипт!
« Reply #1 on: May 02, 2017, 04:43:42 PM »
Code: (clickermann) [Select]
$S_CORR = 900
$S1_CORR = 100
$y = 560
$z = 473
$y1 = 773
$z1 = 418

SUB(cl, $xx, $yy, $ww)
    move($xx, $yy)
    waitms($ww + $S_CORR)
    lDown($xx, $yy)
    waitms($ww + $S_CORR)
    lUp($xx, $yy)
    waitms($ww + $S_CORR)
END_SUB

SUB(key, $item, $ww)
    keyDown($item)
    waitms($ww + $S_CORR)
    keyUp($item)
    waitms($ww + $S_CORR)
END_SUB

waitms(700 + $S_CORR)
move(525,749)

cl($y, $z, $S1_CORR)
cl($y1, $z1, $S1_CORR)
cl(810, 240, $S1_CORR)

FOR($i=0, $i < 4)
    key(8, 200)
END_CYC

key(55, 200)
key(48, 200)
key(53, 200)

waitms(400)
move(812,239)

cl(861,234, 600)

move(861,236)
waitms(600 + $S_CORR)

FOR($i=0, $i < 2)
    key(8, 500)
END_CYC

key(50, 500)
key(48, 500)
waitms(500)

move(861,242)
//  и так далее ...
Если есть более крупные куски действий их так же в подпрограммы или циклы.

Logged

Pages: [1]
« previous next »