Приветствую !
На ноуте виста, там кликер работает замечательно.
Дома ХР, ранее кликер там работал, теперь же запускается и при выполнении сценария зависает.
Выключить можно только снятием задачи.
На что следует в первую очередь обратить внимание при устранении этой бяки ?
Вот начало кода, может быть что то некорректно написано ?
// Äëÿ ïðàâèëüíîãî îïðåäåëåíèÿ ïîëîæåíèÿ ïðè¸ìîâ â áîþ
// â Óìåíèÿ - Ïðè¸ìû, ïåðâûì äîëæåí ñòîÿòü - Ïðèçðà÷íàÿ çàùèòà
// , ïîñëåäíèì - Óäà÷íûé óäàð.
$vib_boy = 0
$err_tm = 0
$kritnum = 0
$topornum = 0
$tanknum = 0
$uvnum = 0
$magnum = 0
$prot = "((()))"
LOGSHOW (1, 944, 601)
LOGCLEAR
//LOGWRITE("Ïåðåìåííàÿ: ")
//qwer: 390 34
//goto (obn_okno)
start:
$vib_boy = 0
$err_tm = 0
$kritnum = 0
$uvnum = 0
$fuv = 0
$fkrit = 0
$ftopor = 0
$topornum = 0
KEYPRESS (116)
waitms (3000)
obn_okno:
$err_cp = 60
$err_tm = $_time_t
$in = "Îáí.îêíà (F5)"
obn_okno2:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "îáí_îêíî.bmp")
waitms (1000)
goto (obn_okno1)
else
waitms (2000)
goto (obn_okno2)
END_IF
obn_okno1:
$err_cp = 10
$err_tm = $_time_t
$in = "Ñäâèã ÷àòà"
sdvigchat2:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "ñäâèã÷àò.bmp")
ldown ($_return1, $_return2)
waitms (200)
lup ($_return1, $_ymax - 200)
waitms (210)
else
waitms (RND(200,400))
goto (sdvigchat2)
END_IF
//goto (sdvigchat2)
$err_cp = 180
$err_tm = $_time_t
$in = "Ïîëîìêà âåùåé"
konboy:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, int ($_xmax/3), $_ymax, "ïîëîìîê_íåò.bmp")
goto (hp1)
else
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "âáîþ.bmp")
waitms (1000)
goto (udar)
else
waitms (1000)
END_IF
goto (konboy)
END_IF
hp1:
$err_cp = 400
$err_tm = $_time_t
$in = "Âîññòàíîâëåíèå ÍÐ"
hp:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, int ($_xmax/3), int ($_ymax/3), "fullhp.bmp")
goto (tr_os1)
else
//HINTPOPUP ("Õèëèìñÿ.")
waitms (10000)
goto (hp)
END_IF
tr_os1:
$err_cp = 60
$err_tm = $_time_t
$in = "Òðàâìà èëè îñëàá"
tr_os:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, int ($_xmax/3), int ($_ymax/3), "òð_îñë_íåò.bmp")
goto (gt)
else
//HINTPOPUP ("Òðàâìà\Îñëàá.")
waitms (200)
goto (tr_os)
END_IF
gt:
$err_cp = 60
$err_tm = $_time_t
$in = "Æä¸ì êí. - Ïîåäèíêè"
gt1:
GOSUB (err_cont)
move (0, 0)
waitms (200)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "ïîåäèíêè.bmp")
lclick ($_return1 +3 , $_return2 +3)
waitms (RND(1000,1400))
else
waitms (RND(200,400))
//LOGWRITE("Æä¸ì êíîïêó - Ïîåäèíêè")
goto (gt1)
END_IF
haot:
$err_cp = 60
$err_tm = $_time_t
$in = "Æä¸ì êí. - Õàîòè÷íûå"
haot1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "õàîòè÷íûå.bmp")
lclick ($_return1, $_return2)
waitms (RND(1000,1400))
else
waitms (RND(200,400))
goto (haot1)
END_IF
sdvigchat:
$err_cp = 60
$err_tm = $_time_t
$in = "Ñäâèã ÷àòà"
sdvigchat1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "ñäâèã÷àò.bmp")
ldown ($_return1, $_return2)
waitms (200)
lup ($_return1, $_ymax - 200)
waitms (210)
else
waitms (RND(200,400))
goto (sdvigchat1)
END_IF
neizv_11_11:
$err_cp = 600
$err_tm = $_time_t
$in = "Ïîèñê çàÿâêè (11-11)"
neizv_11_11_2:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "íåèçâ_11-11.bmp")
move ($_return1, $_return2)
waitms (200)
$vib_boy = $_return2 + 24
$f_boy = 0
else
waitms (RND(1000,2000))
obn_zay:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "îáí_çàÿâê.bmp")
lclick ($_return1 + RND (20, 60), $_return2 + RND (3, 8))
ELSE
waitms (RND(2000,5000))
goto (obn_zay)
END_IF
waitms (RND(2000,5000))
goto (neizv_11_11_2)
END_IF
$err_cp = 60
$err_tm = $_time_t
$in = "Ïîèñê ñàìîé íèæíåé çàÿâêè (11-11)"
neizv_11_11_1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($_return1, $vib_boy, $_return1 + 200, $vib_boy + 5 , "íåèçâ_11-11.bmp")
move ($_return1, $_return2)
$f_boy = $f_boy + 1
$vib_boy = $_return2 + 24
goto (neizv_11_11_1)
ELSE
IF ($f_boy = 0)
waitms (200)
lclick ($_return1 - 61, $_return2)
goto(en_n_11_11)
END_IF
waitms (200)
lclick ($_return1 - 61, $_return2)
END_IF
en_n_11_11:
$err_cp = 60
$err_tm = $_time_t
$in = "Æì¸ì - Ïðèíÿòü ó÷àñòèå â ìÿñîðóáêå"
en_n_11_11_3:
GOSUB (err_cont)
waitms (RND(500,1000))
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "ïðèí_ó÷_ìÿñ.bmp")
move ($_return1 + RND (0, 100), $_return2 + RND (0, 2))
waitms (200)
lclick ($_return1 + RND (0, 100), $_return2 + RND (0, 2))
else
waitms (RND(500,1000))
goto (en_n_11_11_3)
END_IF
waitms (1000)
$err_cp = 30
$err_tm = $_time_t
$in = "Æä¸ì íàäïèñü - Îæèäàåì íà÷àëà ãðóïïîâîãî áîÿ"
og_nac_boy:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "îæ_íà÷_áîé.bmp", 1, 90)
//HINTPOPUP ("Îæèäàíèå íà÷àëà áîÿ")
goto (ogidboy)
else
goto (og_nac_boy)
END_IF
END_IF
ogidboy:
$err_cp = 330
$err_tm = $_time_t
$in = "Îæèäàåì íà÷àëà ãðóïïîâîãî áîÿ"
ogidboy1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (int($_xmax/2), int($ymax/2), $_xmax, $_ymax, "ïðèçðàê.bmp")
$x_pr = ($_return1 - 10)
$y_pr = ($_return2 - 10)
HINTPOPUP ("Ïðîñêî÷èëè â áîé, x - ",$x_pr,", y - ",$y_pr)
else
waitms ( RND(5000, 7000))
GETSCREEN
IF_PICTURE_IN (int($_xmax/2), 0, $_xmax, int ( $_ymax/2), "îáí_çàÿâê.bmp", 1, 90)
$x = ($_return1 + RND (10, 50))
$y = ($_return2 + RND (3, 10))
move ($_return1, $_return2)
waitms (200)
lclick ($x, $y)
move (0, 0)
goto (ogidboy1)
END_IF
END_IF
//goto (ogidboy1)
boy:
$krit = 0
$uvorot = 0
$topor = 0
$tank = 0
$mag = 0
$scprop = 0
$psh = 0
$kritnum = 0
$uvnum = 0
$fuv = 0
$fkrit = 0
$ftopor = 0
$topornum = 0
$ftank = 0
$tanknum = 0
$fmag = 0
$magnum = 0
$err_cplop = 20
$err_cp = 60
$err_tm = $_time_t
$in = "Ïîèñê çíà÷êà - Èíôà"
boy1:
GOSUB (err_cont)
move (0,0)
GETSCREEN
IF_PICTURE_IN (int($_xmax/2), 0, $_xmax, int($_ymax/4), "èíôà.bmp", 1, 90) //Ïîèñê ëåâîé âåðõíåé êîîðäèíàòû èçîáðàæåíèÿ îðóæèÿ ïðîòèâíèêà.
$orx = ($_return1 + 11)
$ory = ($_return2 + 97)
$orx2 = ($_return1 + 79)
$ory2 = ($_return2 + 163)
else
waitms (50)
IF_PICTURE_IN (int($_xmax/2), 0, $_xmax, int($_ymax/2), "íåâèäèìêà.bmp")
goto (boy2)
ELSE
$err_cplop = $err_cplop - 1
IF ($err_cplop < 2)
HINTPOPUP ("Íå íàéäåí.")
goto (boy2)
END_IF
END_IF
goto (boy1)
END_IF
boy2:
waitms (250)
GOSUB (sh)
//Ïðîñìàòðèâàåì îðóæèå ó ïðîòèâíèêà
$var = 0
//GETSCREEN
for($var, $var < 18)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("òîïîðû\t", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Òîïîð-", $var))
$topor = $topor + 1
GOSUB (kltopor)
END_IF
end_cyc
$var = 0
for($var, $var < 15)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("íîæè\n", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Íîæ-", $var))
$uvorot = $uvorot + 1
GOSUB (kluv)
END_IF
end_cyc
$var = 0
for($var, $var < 13)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("äóáèíû\d", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Äóáèíà-", $var))
$tank = $tank + 1
GOSUB (kltank)
END_IF
end_cyc
$var = 0
for($var, $var < 19)
IF_PICTURE_IN ($orx, $ory, $orx2, $ory2, StrConcat ("ìå÷è\m", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Ìå÷-", $var))
$krit = $krit + 1
GOSUB (klkrit)
END_IF
end_cyc
$var = 0
for($var, $var < 13)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("ëóêè\l", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Ëóê-", $var))
$uvorot = $uvorot + 1
GOSUB (kluv)
END_IF
end_cyc
$var = 0
for($var, $var < 14)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("àðáàëåòû\a", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Àðáàëåò-", $var))
$tank = $tank + 1
GOSUB (kltank)
END_IF
end_cyc
$var = 0
for($var, $var < 23)
IF_PICTURE_IN ( $orx, $ory, $orx2, $ory2, StrConcat ("ïîñîõè\p", $var , ".bmp"))
HINTPOPUP (StrConcat("Áîåö (", $tex,"), Ïîñîõ-", $var))
$mag = $mag + 1
GOSUB (klmag)
END_IF
end_cyc
IF_PICTURE_IN ($_orx,$_ory,($_orx+70),($_ory+70), StrConcat ("pustslot.bmp")
HINTPOPUP ("Ïóñòîé ñëîò")
END_IF
LOGCLEAR
logwrite (StrConcat("Òàíêè\Àðáû - ", $tank, ", áîéöû - ", $tanknum,"(",$ftank,")"))
logwrite (StrConcat("Óâîð\Ëóêè - ", $uvorot, ", áîéöû - ", $uvnum,"(",$fuv,")"))
logwrite (StrConcat("Êðèòîâèêè - ", $krit, ", áîéöû - ", $kritnum,"(",$fkrit,")"))
logwrite (StrConcat("Ìàãè - ", $mag, ", áîéöû - ", $magnum,"(",$fmag,")"))
logwrite (StrConcat("Òîïîðû - ", $topor, ", áîéöû - ", $topornum,"(",$ftopor,")"))
//logwrite ("-----------------")
//logwrite ( "Óðîâåíü æèçíè - ",$_hp )
//goto (boy1)
$topori = 0
$uvoroti = 0
$kriti = 0
$tanki = 0
if (( $tank > $uvorot) & ( $tank > $krit) & ( $tank > $topor))
$tanki = 1
//logwrite ("Ïðåîáëàäàþò àòàêè òàíêîâ.")
END_IF
if (( $krit > $uvorot) & ( $krit > $tank) & ( $krit > $topor))
$kriti = 1
//logwrite ("Ïðåîáëàäàþò àòàêè êðèòîâ.")
END_IF
if (( $uvorot > $tank) & ( $uvorot > $krit) & ( $uvorot > $topor))
$uvoroti = 1
//logwrite ("Ïðåîáëàäàþò àòàêè óâîðîòîâ.")
END_IF
if (( $topor > $uvorot) & ( $topor > $krit) & ( $topor > $tank))
$topori = 1
//logwrite ("Ïðåîáëàäàþò àòàêè òîïîðùèêîâ.")
END_IF
vih:
$err_cp = 10
$err_tm = $_time_t
$in = "Ïîèñê êîîðä. ïðè¸ìîâ"
priemi:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN (0, 0, $_xmax, $_ymax, "êîîðïðè.bmp")
$x_pr = ($_return1 - 101)
$y_pr = ($_return2 + 10)
$x2_pr = ($_return1 + 322)
$y2_pr = ($_return2 + 65)
ELSE
IF ($err_tmgs > 5)
END_IF
END_IF
//$x_pr = 415
//$y_pr = 376
//$x2_pr = 852
//$y2_pr = 438
$prsov = 70 // ïðîöåíò ñîâïàäåíèÿ êàðòèíêè
$paus = RND (50, 100)
$och = 0
$zadosh = 60 //êîëè÷åñòâî ïîâòîðåíèé äî îñòàíîâà ïî òàéìàóòó
ochist:
//GETSCREEN
//IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "î÷èñòèòüñÿ.bmp",1,$prsov)
//logwrite ("Î÷èñòèòüñÿ.")
// IF ($mag > 0)
// lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
// waitms ($paus)
// $och = $och + 1
// IF ($och > 2)
// goto (magzash)
// END_IF
// goto (ochist)
// END_IF
//END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Ìàãçàùèòà"
magzash:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ìàãçàù.bmp",1,$prsov)
IF_PICTURE_IN (0, 0, int($_xmax/3), int($_ymax/3), "ìàã_çàù_âñ.bmp",1,$prsov)
HINTPOPUP ("Ìàã.çàù.ñòîèò.")
goto (putshit)
END_IF
//logwrite ("Ìàã çàùèòà.")
IF ($mag > 0 )
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
waitms ($paus)
goto (magzash)
END_IF
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Ïóòü ùèòà"
$pshf = 0
putshit:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ïóòüùèòà.bmp",1,$prsov)
//logwrite ("Ïóòü ùèòà.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
IF ($pshf = 0)
$psh = $psh + 1
$pshf = 1
END_IF
//move (0,0)
waitms ($paus)
goto (putshit)
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Ñòîéêîñòü"
stoika:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ñòîéêîñòü.bmp",1,$prsov)
//logwrite ("Ñòîéêîñòü.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
//move (0,0)
waitms ($paus)
goto (stoika)
END_IF
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ïðèçðàê.bmp",1,$prsov)
//logwrite ("Ïðèçðàê.")
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðîâåðêà - Âûæèòü"
vigit1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "âûæèòü.bmp",1,$prsov)
$x = ($_return1 + RND (0, 5))
$y = ($_return2 + RND (0, 5))
IF_PICTURE_IN (0, 0, int ($_xmax/3), int ($_ymax/3), "êðàñíûåíð.bmp")
lclick ($x, $y)
waitms ($paus)
goto (vigit1)
END_IF
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðîâåðêà - Ïóòü ùèòà õ 3"
gluhaya:
GOSUB (err_cont)
GETSCREEN
IF ($psh > 2)
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Ãëóõàÿ çàùèòà"
gluhaya1:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ãëóõàÿ.bmp",1,$prsov)
//logwrite ("Ãëóõàÿ.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
move (0,0)
waitms ($paus)
goto (gluhaya1)
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Àêòèâíàÿ çàùèòà"
aktzash:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "àêòçàù.bmp",1,$prsov)
//logwrite ("Àêòèâíàÿ çàùèòà.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
//move (0,0)
waitms ($paus)
goto (aktzash)
END_IF
END_IF
otmenit:
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "îòìåíèòü.bmp",1,$prsov)
//logwrite ("Îòìåíèòü.")
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - ßðîñòü"
yarost:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "ÿðîñòü.bmp",1,$prsov)
//logwrite ("ßðîñòü.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
//move (0,0)
waitms ($paus)
goto (yarost)
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Óäà÷íûé óäàð"
uudar:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "óóäàð.bmp",1,$prsov)
//logwrite ("Óäà÷íûé óäàð.")
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
//move (0,0)
waitms ($paus)
goto (uudar)
END_IF
//Åñëè åù¸ íå ñäåëàëè N ðàçìåíîâ, ïðîôèëüíóþ çàù. íå ñòàâèì.
IF ($scprop < 5)
goto (proppri)
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Çàùèòà îò êðèòà"
zkrit:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "çàùêðèò.bmp",1,$prsov)
IF ($kriti = 1)
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
waitms ($paus)
goto (zkrit)
END_IF
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Çàùèòà îò óâîðîòà"
zuvorot:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "çàùóâ.bmp",1,$prsov)
IF ($uvoroti = 1)
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
waitms ($paus)
goto (zuvorot)
END_IF
//logwrite ("Çàù óâîðîò.")
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Çàùèòà îò òîïîðà"
ztopor:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "çàùòîï.bmp",1,$prsov)
IF ($topori = 1)
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
waitms ($paus)
goto (ztopor)
END_IF
//logwrite ("Çàù òîïîð.")
END_IF
$err_cp = $zadosh
$err_tm = $_time_t
$in = "Ïðè¸ì - Çàùèòà îò òàíêà"
ztank:
GOSUB (err_cont)
GETSCREEN
IF_PICTURE_IN ($x_pr, $y_pr, $x2_pr, $y2_pr, "çàùòàíê.bmp",1,$prsov)
IF ($tanki = 1)
lclick ($_return1 + RND (0, 5), $_return2 + RND (0, 5))
waitms ($paus)
goto (ztank)
END_IF