zay
19.02.2008, 12:37
set #ves 520
set #proba 5
:main
gosub kopaem
gosub fin
goto main
:kopaem
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub tochka //
end_for
end_for
alarm
stop_script
return
:tochka
set #p 0
:mining
send F11
wait 2000
:proverka
if (lastmsg cb) or (lastmsg -b>) or (lastmsg c40) or (lastmsg >?@>1c9b5)
return
end_if
if wght > #ves
gosub fin
end_if
wait 3000
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return
:fin
alarm
wait 1s
alarm
wait 1s
flash
stop_script
..........Запускаю,, примерно ниже сиредины скрипта выдаёт:
сетевой доступ для клиент3.ехе блокирован, так как его область памяти была изменена другим процессом.
процес уопелот2.10.ехе произвёл запись в область памяти.
и краш клиента.
как сделать так чтоб фаервол не лез куда ему не заказывали?
.... проверил без фаервола, клиент тоже крахается, непонятно почему.
set #proba 5
:main
gosub kopaem
gosub fin
goto main
:kopaem
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub tochka //
end_for
end_for
alarm
stop_script
return
:tochka
set #p 0
:mining
send F11
wait 2000
:proverka
if (lastmsg cb) or (lastmsg -b>) or (lastmsg c40) or (lastmsg >?@>1c9b5)
return
end_if
if wght > #ves
gosub fin
end_if
wait 3000
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return
:fin
alarm
wait 1s
alarm
wait 1s
flash
stop_script
..........Запускаю,, примерно ниже сиредины скрипта выдаёт:
сетевой доступ для клиент3.ехе блокирован, так как его область памяти была изменена другим процессом.
процес уопелот2.10.ехе произвёл запись в область памяти.
и краш клиента.
как сделать так чтоб фаервол не лез куда ему не заказывали?
.... проверил без фаервола, клиент тоже крахается, непонятно почему.