Что нового

[Мышь, клавиатура] Текущие временные баны в EVE Online и как с ними бороться

worldmen

Новичок
Сообщения
14
Репутация
1
У меня уже давно работают несколько акков используя скрипт. И пришло такое время, когда разработчики прислали сообшение о том что меня забанили на 2 недели из-за использования скрипта.
Интересно то, что на одном ПК работало 4 аккаунта, а забанили пока одного.
Интересно второе, что забанен один из молодых аккаунтов, а постарше пока работают, хотя используют тотже скрипт.
Вопрос: как CCP начало определять акки исользующие скрипты? Может что-то новое?

Минусы моего скрипта: используется прямолинейное перемещение мыши и нажатие клавиш мыши на одном и томже месте.

PS: у моего друга тоже сразу забанили 2 акка, а потом и всех остальных. Видимо каких-то результатов ССР добилось (или мне кажется) в обнаружении нас. Или так было всегда ?
Боты работают 20 ч. в сутки. Думаю из-за этого тоже попал на крючок
 

DJ_Tommy

Продвинутый
Сообщения
235
Репутация
57
1. рандомные тайминги
2. уменьши онлайн
3. мой бот еще в чате что нить пишет и на выходные сам улетает в другие системы ставить производство
4. часто банят по стуку - когда прилетают в твою сису а ты там постоянно онлайн и куча вреков
5. Возможно тебя конвал ГМ а ты не ответил
....
n.

Вывод - чары под ботов это расходный материал, если длятебя это бизнес поступи следущим образом: как только чар докачался до возможности использования ботом - создавай еще одного. Как только второй чар прокачался - первого продавай или прокачивай ему еще скилов на продажу и продавай вместе с игровым аком и почтовым аком.
 

mornere

Знающий
Сообщения
22
Репутация
8
Вопрос нуба, сделал перемещения мышки по кривым безье, тайминги рандомные (правда сомневаюсь про рандом, надо как-то проверить, ну по крайней мере при пуске бота рандомизируются), онлайн стабильный около 18 часов, НО
боты в ганге (ибо лидершип), насколько это опасно? Мне осталось около 20 дней юзать, хочу просто накопить мейну бабла. Потом чисто с компа будут боты под ВМ, или через проксю или как, я так понимаю после этого вообще лучше мейном даже не входить с него? Копаю в импе.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 591
Репутация
938
Логи на сервере хранятся 2 месяца, спустя 2 месяца чистой игры или не активности вообще - ты чист, твой акк чист. Инфа достоверная на 2009 год, с тех пор со стороны шпиенов в рядах ццп инфы не поступало.
 

usrman

Новичок
Сообщения
13
Репутация
0
2 Belfigor.
По поводу того как CCP вычисляет. Может быть они палят auto-it на компе?
 

zlo-kazan

Скриптер
Сообщения
374
Репутация
100
usrman сказал(а):
Может быть они палят auto-it на компе?
Хм...
1. Думаю AutoIt не единственный язык на котором создаются боты.
2. Наличие AutoIt не говорит, о том, что работает бот и т.д. так бы программистов использующих AutoIt и т.д. всех забанили уже давно..
3. AutoIt и т.д. часто пользуются провайдеры для автоматической диагностики подключения, настройки (TCP/IP, PPPoE, proxy) и т.д.
4. Еще думаю проще отслеживать по OS... (виртуальные машины и т.д., но и это не повод... м.б. я просто под линуксом запускаю...)
 

Lexx98

Продвинутый
Сообщения
272
Репутация
73
А ещё некоторые компилируют автоитовские скрипты и запускают готовые exe-шники, и никакого автоита в процессах не отображается.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 591
Репутация
938
usrman сказал(а):
2 Belfigor. По поводу того как CCP вычисляет. Может быть они палят auto-it на компе?
То как может вычислять ццп вроде давным давно было выяснено опытным путем и составлен приблизительный свод рекомендаций желательных к исполнению в том случае, когда ботовод хочет понизить шанс бана со стороны разработчика.
 

Frostnord

Новичок
Сообщения
13
Репутация
1
Люди добрые скажите что я делаю не так.Забанили уже 3 акк
после каждого бана вроде норм ,допилю слипы маусмувы рандомные -потом недели через 2 опять бан
Код:
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2)
Opt ("MouseClickDelay", Random(10,20));интенсивность кликания
#include "c:\pass.au3"
#include <Date.au3>
HotKeySet("{f9}", "_Exit")
HotKeySet ("{\}","_pause")

Global $Win = "EVE"
winactivate($Win) ;Делает окно EVE активным
winwaitactive($Win)
Global $dockBotton;проверка на космос
Global $beltcheck ;поиск бцквы а в слове астеройд
Global $OverKUB
Global $Belt[2] = [1, 18]
Global $AB="Off";состояние аб
Global $hp="хп в норме"; состояние хп
Global $LootCount=0
Global $Status="#"
Global $discon1
Global $discon2
Global $loading1
Global $loading2
Dim $Hour, $Mins, $Secs
Global $CicleTime;переменная полного цикла
Global $iDiff;переменная преобразованного формата времени
Global $pause
Global $minetime
Global $user
Global $TargetArrey
Global $RndStrp
Global $popitki=0 ;пер-я попыток войти в док около станции
Global $DT1,$DT2
Global $conLost1
Global $conLost2
Global $map
Global $coord ;координаты белого треугольника инвентаря
Global $LockTray=0; проб залочить на случай если залочен не тот белт
AdlibRegister("Status",500)
While 1
   winactivate($Win) ;Делает окно EVE активным
   winwaitactive($Win)
  
   Telo()
WEnd
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Func Telo()   
   
   Hp()
      
Select
   Case process ()="нет процесса"
	  $status="жду процесс"
	  Sleep(random(3000,4000)))
	  winactivate($Win)
   Case Check ()="EVEScreen"
	  $status="EveScreen- жму ентер"
	  Send("{Enter}")
	  Sleep(Random(3000,4000))
	  if Check ()="EVEScreen" Then
		 Send("{Enter}")
	  EndIf			
	  Sleep(random(4000,5000))
   Case check ()="не вижу карту"  
	  Send("{f10}")
	  Sleep(Random(3000,4000))
  ;Case location()="DT"                                                            ;-------------ПРАВИТЬ 1
	  ;MouseClick("left",random(512,532),Random(439,444),1,Random(50,80))
	  ;Send("{Enter}")
   Case Check()="logScreen"
	  _Then("Pass")
   Case location()="в варпе" Or location()="докаюсь" Or location()="загрузка"   Or  process ()="нет процесса"         ;в варпе
	  Sleep(4000)
   Case Cargo()="карго пуст" And location()="космос-вижу белт" And target()="Влоке" And dist()="достаю" 
	  _Then("mine")
   Case location()="около станции" And Cargo()="карго пуст";пустой у станции
	  $Status="пустой варпаю в белт"
	  $CurBelt = Random($Belt[0], $Belt[1], 1)  
	  OpenMenu(2, $CurBelt, 1) ;Варпаем в белт
   Case location()="в доке" And Cargo()="карго полон"
	  _Then("Otgruz")
   Case Cargo()="карго полон" And location()="космос-вижу белт" ;карго полон вижу белт лечу в док
	  $Status="в белте карго полон лечу в док"
	  OpenMenu(5,1,4)
   Case Cargo()="карго пуст" And location()="космос-вижу белт" And target()="не Влоке" 
	  _Then("lock")
   Case Cargo()="карго пуст" And location()="космос-вижу белт" And target()="Влоке" And dist()="не Достаю" 
	  _Then("aproch")	  
   Case Cargo()="карго полон" And location()="около станции"
	  if $popitki=3 Then ;попытки захода
		 OpenMenu(5,1,4)
		 $popitki=0
	  Else		 
		 OpenMenu(5,1,3)
		 $popitki=$popitki+1
	  EndIf
   Case Cargo()="карго пуст" And location()="в доке"
	  _Then("Undock")
EndSelect
EndFunc

Func Check();-----------------------------------check
   PixelSearch(63,94,109,170,0xfefefe,20);--------------------карту
   If not @error Then
	  $status="вижу карту"
	  $map="вижу карту"
   Else
	  $status="не вижу карту"
	  $map="не вижу карту"
   EndIf
   
   PixelSearch(12,9,25,10,0xe6e5e5,20);------------------------поиск белых полосок над портретом слево
   If not @error Then
	  $status="вижу полоски"
	  $poloski="вижу полоски"
   Else
	  $status="не вижу полоски"
	  $poloski="не вижу полоски"
   EndIf
   
   PixelSearch(397, 679, 401, 686, 0x999999, 20);user
   if @error Then 
	  $status="невижу юзер"
	  $user="невижу юзер"
   Else
	  $status="вижу юзер"
	  $user="вижу юзер"
   EndIf
   
    PixelSearch(397, 679, 401, 686, 0x999999, 20);connect
   if @error Then 
	  $status="не вижу коннект"
	  $connect="не вижу коннект"
   Else
	  $status="вижу коннект"
	  $connect="вижу коннект"
   EndIf
   $EVE1= PixelGetColor(447,70)
   $EVE2= PixelGetColor(563,72)
   
Select
   Case $map="не вижу карту" And $poloski="вижу полоски"
	  Return "не вижу карту"
   Case $poloski="вижу полоски"And $user="не вижу юзер" And $connect="не вижу коннект"
	  $status="noLogScreen"
	  Return "nologScreen"
   Case $poloski="не вижу полоски"And $user="вижу юзер" And $connect="вижу коннект"
	  $status="LogScreen"
	  Return "logScreen"
   Case $EVE1 = 0xffffff And $EVE2 =0xffffff
	  $status="EVEScreen"
	  Return "EVEScreen"
   Case Else 
	  Return "нехрена невижу"
EndSelect 
   
EndFunc

Func process ()
   if ProcessExists("ExeFile.exe") Then
	  $status="есть процесс"
	  Return "есть процесс"
   Else
	  $status="нет процесса"
	  Return "нет процесса"
   EndIf
EndFunc


Func location()
PixelSearch(531,313,531,313,0xbfbfbf,10); буква l в слове соннектион лост
   If  Not @error Then
	  $conLost1="вижу l"
   Else
	  $conLost1="не вижу l"
   EndIf
PixelSearch(408,325,408,325,0x00498c,5); cиний цвет в  слове соннектион лост
   If  Not @error Then
	  $conLost2="вижу синий"
   Else
	  $conLost2="не вижу синий"
   EndIf   
PixelSearch(463,310,463,310,0xbfbfbf,10); буква Д в слове шутдавн ин прогресс
   If  Not @error Then
	  $DT2="вижу д"
   Else
	  $DT2="не вижу д"
   EndIf
PixelSearch(521,310,521,310,0xbfbfbf,10); буква i в слове шутдавн ин прогресс
   If  Not @error Then
	  $DT1="вижу и"
   Else
	  $DT1="не вижу и"
   EndIf
   
PixelSearch(394,397,395,411,0x7f7f7f,20);полоска загрузки
   If  Not @error Then
	  $loading1="Вижу загрузку1"
   Else
	  $loading1="не Вижу загрузку1"
   EndIf
PixelSearch(397,397,398,411,0x7f7f7f,20);полоска загрузки
   If  Not @error Then
	  $loading2="Вижу загрузку2"
   Else
	  $loading2="не Вижу загрузку2"
   EndIf
PixelSearch(547,318,548,330,0xbfbfbf);буква l в слове lost
   If Not @error Then
	  $discon1="Вижу л"
   Else
	  $discon1="не Вижу л"
   EndIf
PixelSearch(581,318,582,330,0xbfbfbf);буква t в слове lost
   If Not @error Then
	  $discon2="Вижу т"
   Else
	  $discon2="не Вижу т"
   EndIf
PixelSearch(483,505,484,508,0xc3c4c5,50);буква д в слове варп драйв
   If Not @error Then
	  $warp1="вижу д"
   Else
	  $warp1="не вижу д"
   EndIf
PixelSearch(583,504,584,508,0xc3c4c5,50);буква I в слове активайт
   If Not @error Then
	  $warp2="вижу и"
   Else
	  $warp2="не вижу и"
   EndIf
PixelSearch(476,504,478,508,0xc3c4c5,50);буква д в слове докинг
   If Not @error Then
	  $docking1="вижу д"
   Else
	  $docking1="не вижу д"
   EndIf
PixelSearch(524,504,526,508,0xc3c4c5,50);буква и в слове докинг
   If Not @error Then
	  $docking2="вижу и"
   Else
	  $docking2="не вижу и"
   EndIf   
$OverKUB=PixelSearch(754,119,775,158,0xcccdcd,20);поиск пикселя кубика овервью   
   If Not @error Then
	  ;$OverKUB="вижу куб"
		 PixelSearch($OverKUB[0]+98,$OverKUB[1]+59,$OverKUB[0]+125,$OverKUB[1]+67, 0xdad7d7, 50);белта
		 if Not @error Then
			$beltcheck="вижу белт"
		 Else
			$beltcheck="не вижу белт"
		 EndIf		 
   Else
	  $OverKUB="не вижу куб"
   EndIf
PixelSearch(8, 718, 31, 735, 0xd5b237, 50);проверка на космос   
   If Not @error Then
	  $dockBotton="вижу кн.док"
   Else
	  $dockBotton="не вижу кн.док"
   EndIf
   
Select
Case $DT1="вижу и" And $DT2="вижу д" 
   $Status="DT"
   Return "DT"
Case $loading1="Вижу загрузку1" And $loading2="Вижу загрузку2"
   $Status="загрузка"
   Return "загрузка"	  
Case $warp1="вижу д" And $warp2="вижу и";варп чек
   $Status="в варпе"
   Return "в варпе"
Case $docking1="вижу д" And $docking2="вижу и"; 
   $Status="докаюсь"
   Return "докаюсь"
Case $OverKUB="не вижу куб" and $dockBotton="вижу кн.док"
   $Status="в доке"
   Return "в доке"
Case $dockBotton="не вижу кн.док" And $beltcheck="не вижу белт"	   
   $Status="около станции"
   Return "около станции"
Case $dockBotton="не вижу кн.док" And $beltcheck="вижу белт"
   $Status="космос-вижу белт"
   Return "космос-вижу белт"  
EndSelect	

EndFunc

Func Cargo()		;--------------------------cargo ()
   WinActivate($Win)
   PixelSearch(12,9,25,10,0xe6e5e5,20)
   If not @error Then
	  ;OpenCargo()
	  PixelSearch(62, 347, 74, 399, 0xffffff, 10);поиск треугольника карго
	  if Not @error Then 
		 $Status="трюм открыт"
	  Else
			Send("{altdown}")
			Sleep(Random(100,500))
			Send("{c}")
			Sleep(Random(100,500))
			Send("{altup}")	  
		 $Status="трюм закрыт"
	  Sleep(2000)
	  EndIf
   EndIf
	  	  $coord=PixelSearch(62, 347, 74, 399, 0xffffff, 10)
   If Not @error Then
	  PixelSearch($coord[0]+179,$coord[1]-3,$coord[0]+187,$coord[1]+3,0x004c62, 20)
	  If @error Then
			$Status="карго пуст"
			Return "карго пуст"
	  Else
			$Status="карго полон"
			Return "карго полон"
	  EndIf
   EndIf
	  
  EndFunc
   
Func HP()
    PixelSearch(508,600,510,504, 0xff2222, 10)	 
	  If @error Then
	   $Status="хп в норме"
	   $hp="хп в норме"
	Else
        $Status="мало хп"
	   $hp="мало хп"
	EndIf
	
   Select
   Case $hp="мало хп" 
	  PixelSearch(639, 692,639, 692,0x000000,50)
	  if Not @error Then
			Send("{altdown}")
			Sleep(Random(100,500))
			Send("{f1}")
			Sleep(Random(100,500))
			Send("{altup}")			
	  EndIf		 
   Case $hp="хп в норме" 
	  PixelSearch(639, 692,639, 692,0x000000,50)
	  if @error Then
			Send("{altdown}")
			Sleep(Random(100,500))
			Send("{f1}")
			Sleep(Random(100,500))
			Send("{altup}")
	  EndIf
		 
   EndSelect
EndFunc
		 
Func target();Залочина ли цель
   PixelSearch(12,9,25,10,0xe6e5e5,20)
   if not @error Then
   PixelSearch($OverKUB[0],$OverKUB[1]+59,$OverKUB[0]+8,$OverKUB[1]+67,0xffffff, 10)
			   if Not @error Then
					 $Status="Влоке"
					 Return "Влоке"
				  Else
					 $Status="не Влоке"
					 Return "не Влоке"
			   EndIf
   EndIf				  
EndFunc


Func Dist();досигаемость
   if $OverKUB= @error Then
	  $status="error"
   Else
 		 PixelSearch($OverKUB[0]+81,$OverKUB[1]+59,$OverKUB[0]+81,$OverKUB[1]+67,0xc9c9c9, 50);поиск дистанции
			If Not @error Then		  
					 $Status="не Достаю"
					 Return "не Достаю"					
			Else						
					 $Status="достаю"
					 Return "достаю"
			EndIf   
   EndIf		 
EndFunc					 			   
			   
Func _Then ($case)
   Select
   Case $case="pass"
		 MouseClick("left",472,707,2)
		 ;Send("^a")
		 Sleep(Random(500,1000))
		 Send($pass)
		 Sleep(Random(500,1000))
		 Send("{Enter}")
		 ToolTip("Логинимся",0,0)
		 Sleep(Random(5000,6000))
   ;Case $case="restart"
	  ;Send("{Enter}")
	  ;MouseClick("left",random(474,515),Random(483,499),1,Random(50,80))
	  _pause()
   Case $case="WarpToBelt"
	  $CurBelt = Random($Belt[0], $Belt[1], 1)  
	  OpenMenu(2, $CurBelt, 1) ;Варпаем в рандомный белт
   Case $case="WarpToDock"
	  OpenMenu(5,1,4)
   Case $case="lock"
	  if $LockTray<=10 Then
		 Send("{ctrldown}")
		 Sleep(Random(500,1000))
		 MouseClick("left",Random($OverKUB[0]+5,$OverKUB[0]+59),Random($OverKUB[1]+59,$OverKUB[1]+67),1,Random(20,80))
		 Sleep(Random(500,1000))
		 Send("{ctrlup}")
		 Sleep(Random(500,1000))
		 $LockTray=$LockTray+1
	  Else
		 $CurBelt = Random($Belt[0], $Belt[1], 1)
		 OpenMenu(2, $CurBelt, 1)
		 $LockTray=0
	  EndIf
   Case $case="aproch"
	  MouseClick("left",Random($OverKUB[0]+5,$OverKUB[0]+59),Random($OverKUB[1]+59,$OverKUB[1]+67),2,Random(20,80));дабл клинк в рандомной части относительно куба
		 Sleep(Random(500,1000))
		 If $AB="Off" Then			
			Send("{altdown}")
			Sleep(Random(100,500))
			Send("{f2}")
			Sleep(Random(100,500))
			Send("{altup}")
			Sleep(Random(100,500))
			$AB="On"
		 EndIf
		 Sleep(Random(4000,6000))
   Case $case="mine"
		 PixelSearch(542, 714,542, 714,0x538fc2,5)
		 If Not @error Then                    
			   $Status="тормозим"
			   Send("{ctrldown}")
			   Sleep(Random(100,500))
			   Send("{SPACE}");тормазим
			   Sleep(Random(100,500))
			   Send("{ctrlup}")                    
		 EndIf
	
		 Sleep(Random(500,1000))
		 if $AB="On" Then
			Send("{altdown}")
			Sleep(Random(100,500))
			Send("{f2}")
			Sleep(Random(100,500))
			Send("{altup}")
			$AB="Off"
		 EndIf
		 ;==================================стриппы
		 $RndStrp1=Random(30000,35000)
		 $RndStrp2=Random(30000,35000)
		 $RndStrp3=Random(30000,35000)
		 PixelSearch(614, 648,614, 648,0x000000,50);проверка активности 1го стрипа
		 If Not @error Then  
			   $Status="стрип 1 - активирую..."
			   Send ("{f1}")			   
			   $minetime=TimerInit()
			   Sleep(Random(500,1000))
		 Else
			   If  TimerDiff($minetime)>=$RndStrp1 Then
				  Send ("{f1}")
				  Sleep(random(1000,1500))
			   EndIf
		 EndIf
		 Sleep(Random(1000,2000))	   
		 PixelSearch(665, 648,665, 648,0x000000,50)
		 If Not @error Then 
			   
			   $Status="стрип 2 - активирую...";проверка активности 2го стрипа                    
			   Send ("{f2}")
			   Sleep(Random(500,1000))
		 Else
			   If  TimerDiff($minetime)>=$RndStrp2 Then
				  Send ("{f2}")
				  Sleep(random(1000,1500))
			   EndIf			   
		 EndIf
		 Sleep(Random(1000,2000))	
		 PixelSearch(716, 648,716, 648,0x000000,50);проверка активности 3го стрипа
		 If Not @error Then            
                   $Status="стрип 3 не включился - активирую..."                   
                    Send ("{f3}")
		 Else
			   If  TimerDiff($minetime)>=$RndStrp3 Then
				  Send ("{f3}")
				  Sleep(random(1000,1500))
			   EndIf              
		 EndIf 			   
   Case $case="Otgruz";----------------------------------otgruz
	  if $coord= @error Then
		 $status="error"
	  Else
		 Sleep(Random(3000,5000))
		 MouseClickDrag("left",$coord[0]+Random(233,250),$coord[1]+Random(133,143),$coord[0]+Random(124,134),$coord[1]+Random(42,52),Random(40,80))
		 Sleep(Random(1000,1500))
		 MouseClickDrag("left",$coord[0]+Random(124,134),$coord[1]+Random(42,52),$coord[0]+Random(37,47),$coord[1]+Random(69,73),Random(40,80))
		 Sleep(Random(1000,2000))
			if Cargo()="карго пуст" Then
			  _TicksToTime(Int(TimerDiff($CicleTime)), $Hour, $Mins, $Secs)
			   $iDiff = StringFormat("%02d:%02d:%02d", $Mins, $Secs)
			$LootCount=$LootCount+1
			EndIf
	  EndIf
   Case $case="Undock"
			WinActivate($Win)
			MouseClick("left", Random(9,31), Random(713,726), 1)
			$CicleTime = TimerInit()
			EndSelect
EndFunc
		
Func _Exit()
	Exit
 EndFunc
 
 Func OpenMenu($L1, $L2, $L3) ;за модуль спс Belfigor
	$L1 = $L1-1
	$L2 = $L2-1
	$L3 = $L3-1
	Local $x=Random(53,65), $y=Random(32,42)
	MouseClick("left", $x, $y, 1, Random(15,70))
	Sleep(500)
	Local $var = PixelSearch($x, $y+8+15*$L1, $x+400, $y+8+15*$L1, 0xCDCDCD, 5);Ищим треугольник справа от строки на которую хотим ткнуть
	If Not @error Then ;если нашли
		MouseMove($var[0], $var[1], Random(15,70)) ;наводим на него мышь и тем самым открываем второй уровень меню
		Sleep(Random(500,1500))
		Local $var1 = PixelSearch($var[0]+50, $var[1]+15*$L2, $var[0]+600, $var[1]+15*$L2, 0xCDCDCD, 5) ;а5 ищим треугольник справа от строки на которую хотим ткнуть
		If Not @error Then ;если нашли
			MouseMove($var1[0], $var1[1], Random(15,70)) ;наводим на него мышь и тем самым открываем третий уровень меню
			Sleep(Random(500,1500))
			MouseClick("Left", $var1[0]+Random(50,90), $var1[1]+15*$L3, 1, Random(15,70)) ;Ну и таки жмакаем на команду на  которую хотели. Я буду работать только со строками варп в 0 и док, так что Warp to with in, изголяться и добавлять работу с 4-м уровнем меню я не стал
		Else
			;SetError(2) ;Если мы ошиблись на 2-м уровне - возвращаем Еррор = 2 
		EndIf
	Else
		;SetError(1) ;Если ошиблись на первом уровне возвращаем Еррор = 1
   EndIf
Sleep(Random(3000,5000))
 EndFunc
 
 Func Status()
    ToolTip("время цикла="&$iDiff&" \отгрузов="&$LootCount&" \Статус="&$Status,0,0)
EndFunc 

Func _pause()
    $pause=$pause+1
while $pause=1
   Sleep(100)
    $Status="Пауза..."
WEnd
$Status="Снята пауза..."
Sleep(200)
$pause=0
EndFunc


блин даж руки опустились так рад был когда он так бодро бегал- ножками стучал и тут неизвестно почему..
 

mousekey

вот он какой, серверный олень
Сообщения
8
Репутация
5
У тебя там в одном месте есть вроде клик по точным координатам, но насколько я понял это до логина.
MouseClick("left",472,707,2)
Имхо тайминги слишком короткие, в некоторых местах - по 500мс разница. Сядь сам и пройдись по белтам, позасекай за какое время ты сам все это делаешь "без задротства", с нормальной скоростью.
Плюс можешь попробовать сделать в скрипте случайные перерывы минут по 10-20 раз в час-два. Сам скрипт дольше 5-8 часов лучше не запускать.

Возможно, ты еще пропускаешь попытки ГМ-а пообщаться с тобой - ты вообще такое дело палишь как-нибудь?

Еще вполне вероятно, что тебя палят по не изменившемуся IP, MAC-адресу, названию машины (типа компьютер васи пупкина) - оно передается на сервак. Еще, кто тебя знает, может быть ты акки с одного почтового адреса регистрируешь...
Плюс пиши в техподдержку гневные письма в виде "что происходит, пощаму вы мну зобанеле, ироды?!!111", ну как они проболтаются :smile:
 
Верх