Что нового

Майнер бот. Эволюция от примитивного до умного.v2.5

KsenZ

Новичок
Сообщения
10
Репутация
1
Re: Нубский Майнер Бот(замкнутая вермишель)

hikki сказал(а):
прозрачность интерфейсов убивается выставлением значения 255 ползунком TRANSP. в закладке general settings.

Спасибо, а я на в кладке видео настроек копался...

yaodnako сказал(а):
To Ksenz:
пробовал щелкнуть f10,затем отдалить карту и подвинуть в любую сторону,чтобы весь экран стал черным? Если нет - то это то что тебе нужно сделать,цвета перестанут меняться.Без этого мой бот вообще работать не будет :smile: вроде на скрине видно,что экран у меня весь черный.
единственное что придется таки сделать,это изменить некоторые координаты.

Черный экран я у тебя видел, но я думал, что это в целях конспирации, так же как и ник затерт, и место положения и т.д.

Какие будут предложения по GUI для этого бота? Что в него включить?
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: Нубский Майнер Бот(замкнутая вермишель)

Для начала, возможность остановить работу бота после старта, путем, отличным от закрытия его через трей. Тобишь возможность нажать старт, в любой момент когда приспичит нажать стоп, и далее не перезапуская бота по новой снова нажать старт
evil.png
 

KsenZ

Новичок
Сообщения
10
Репутация
1
Re: Нубский Майнер Бот(замкнутая вермишель)

Belfigor сказал(а):
Для начала, возможность остановить работу бота после старта, путем, отличным от закрытия его через трей. Тобишь возможность нажать старт, в любой момент когда приспичит нажать стоп, и далее не перезапуская бота по новой снова нажать старт
evil.png

Может я чего то еще не знаю (еще не все доки прочитал :smile: ), но это сделать проблематично, т.к. бот постоянно перехватывает управление мышкой и активным окном, и нажать стоп практически не возможно :smile:
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

Паузу?...можно попробовать так...

Код:
HotKeySet ("{\}","_pause")
Global $z

Func _pause()
	$z=$z+1
	while $z=1
		ToolTip("Пауза...",0,0)
		Sleep (200)
	WEnd
	$z=0
	ToolTip("Пауза...канэц",0,0)
EndFunc
 

KsenZ

Новичок
Сообщения
10
Репутация
1
Re: Нубский Майнер Бот(замкнутая вермишель)

yaodnako сказал(а):
Паузу?...можно попробовать так...

Немного те то... Смысл в том чтобы в GUI интерфейсе для бота, нажать на кнопку "Stop" и бот прекратил свою работу. После нажатия "Start" бот начал ботать :smile:
А проблема в том что когда бот перехватывает управление мышью и активным окном нажать на кнопку стоп становится проблематично, т.к. бот мешает...
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

Это я в ответ на сообщение Бельфа.А стоп уже есть! просто нажми кнопку "`" тильда под ескейпом во время работы скрипта и он прекратит работу :smile:))

Пауза очень удобна кстати,Бельф спасибо:smile:.руки не доходили паузу сделать...
а гуи тут не нужен на этом боте :smile: хоткеев вполне достаточно...
 

KsenZ

Новичок
Сообщения
10
Репутация
1
Re: Нубский Майнер Бот(замкнутая вермишель)

yaodnako сказал(а):
Это я в ответ на сообщение Бельфа.А стоп уже есть! просто нажми кнопку "`" тильда под ескейпом во время работы скрипта и он прекратит работу :smile:))

Пауза очень удобна кстати,Бельф спасибо:smile:.руки не доходили паузу сделать...
а гуи тут не нужен на этом боте :smile: хоткеев вполне достаточно...

Немного не внимательно прочитал сообщение Бельфа... Но суть понятна, про управление мышью во время работы бота.
Ну а гуи так для удобства, например указать количество букмарков на белты, конечно понятно что это правится в течении 30 секунд, но все же... Еще можно указать слипы например, отличные от стандартных, ну и окошечко лога, чтоб можно было следить, что было, не открывая при этом лог файл...
Понятно что это все баловство, но т.к. я только изучаю, это будет хорошей практикой. Я так же научился ботов писать на php и на uopilot ...
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

Я думаю, что лучшей практикой будет написание бота с нуля :whistle: Ну если тебе именно в кайф написать дополнительно что-то - то не вопрос.Но если у тебя цель именно научится - то все таки думаю оптимально писать с нуля,продумав перед этим концепцию бота - каким он будет,что будет делать и.т.д.А потом открывать справку или примеры ботов и писать...
Я ,например,нисколько не жалею что написал этого бота,хоть и понимаю,что можно было сделать нечто гораздо более совершенное.Я ведь учусь! Офигительно видеть,что бот сделанный тобой делает все именно так как ты задумывал!
 

Lexx98

Продвинутый
Сообщения
272
Репутация
73
Re: Нубский Майнер Бот(замкнутая вермишель)

yaodnako, читай подпись. ;D
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: Нубский Майнер Бот(замкнутая вермишель)

Нееееет, я имел ввиду именно возможность не поставить на паузу а выключить и включить бота через кнопку GUI, ну например в любой из моментов когда бот в слипе что-то ожидает :laugh:. Например я изменил какую-то из настроек, к примеру количество белтов в которых нужно рыть боту, дабы не перезапускать файл по новой, чтобы я просто перестартовал саму логику и она начала рыть с другими настройками :smile:.
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

Какая там у вермишели логика :shok: ?
Там же один модуль :smile: нет логики :whistle: .действие - проверка,не выполнена еще раз пробуем пока не выполним и так до самого конца.
Если я и сделаю рестарт,то именно всего бота.
Можно ,конечно,сделать рестарт всего бота и паузу на гуи,но зачем? хоткеи отлично справляются! :beer:
Или может я что-то неправильно понял?
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: Нубский Майнер Бот(замкнутая вермишель)

Неееет, суть именно в решении поставленной задачи. Возможность перезапустить МейнЛуп вермишели не перезапуская всего бота :3
 

hikki

Продвинутый
Сообщения
233
Репутация
99
Re: Нубский Майнер Бот(замкнутая вермишель)

Например у меня значения в GUI опрашиваются перед непосредственным их использованием, тоесть ставлю на паузу бота хоткеем, меняю что надо в гуе, снимаю с паузы. Можно и без паузы, но тогда бот будет вырывать мышку)). Да, опрашивается каждый раз, возможно это неэффективно с точки зрения производительности, но работает и работает хорошо.
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

Таки костыли растут и растут :smile:
Что нового:
1.Прикрутил майнерских дронов.
2.В прошлой версии бота - слипы слишком занизил в нек.местах и поэтому часто стала срабатывать противофаза стрипов(т.е. вместо 45 сек майна и 2 сек простоя,наоборт 2 сек майнил и простаивал 45 сек.) - слипы поправил.Сделал проверку,если стрипы включились или выключились когда не нужно - поправить их работу.при срабатывании поправки пишется лог.
3. в лог теперь пишется сколько работал бот,добавил паузу.+мелкие поправки.
скрин не буду вставлять - все осталось прежним,1024х768,русский интерфейс,окно дронов расположил под овервью.

Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\icons\иконки устройств\1013.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Date.au3>
Opt("TrayIconDebug", 1)
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
Opt ("MouseClickDelay", 20);Задаем интенсивность нажатия мыши.
Opt ("SendKeyDownDelay", 100)
HotKeySet ("{`}","_exit");задаем горячую клавишу остановки скрипта
HotKeySet ("{\}","_pause")
WinMove("EVE", "", -3, -25)
;----------------------------------------------Ниже основа ------------
Global $DrChk
Global $pause
Global $timer = TimerInit()
Dim $hour,$min,$sec
Global $y=133
Global $x
checkbeltnum()
IniWrite("D:\eve.ini","Script", @MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec,"Start,Belt №" & $x)
IniWrite("D:\eve.ini","Mined", "=-------------------","")
IniWrite("D:\eve.ini","Status","=-------------------","")
#cs
справка по белтам цифра - значение $y`
1-133 2-149 3-165
4-181 5-197 6-213
7-229 8-245 9-261
10-277 11-293 12-309
#ce
while $y<454
WinActivate("EVE")
WinWaitActive("EVE");активируем окно с евой,чтобы покорить еву ботством...:)
Undock();андокаемся - пока не пройдет проверка повторяем...
Sleep (1000)
checkbeltnum()
If ConvoCheck()=1 Or ConvoCheck2()=1 Or ConvoCheck3()=1 Then ;3 проверки на конво,если вдруг срабатывает принтскрин и загрузка громкой мелодии :)
	ShellExecute ("D:\Autoit\proekts\1.mp3")
		;_exitgame()
		;_exit()
EndIf
WarpToBelt();плывем к белту - ломимся,пока не пройдут проверки.
Sleep (500)
If ConvoCheck()=1 Or ConvoCheck2()=1 Or ConvoCheck3()=1 Then;снова проверка на конво
	ShellExecute ("D:\Autoit\proekts\1.mp3")
		;_exitgame()
		;_exit()
EndIf
Mine();здесь процесс добычи с проверками на заполненность трюма,лока,конво.
sleep (300)
Dock();летим домой
OreToHome();сбрасываем руду;проверка осталось ли че? :) Если осталось - повторить.
If ConvoCheck()=1 Or ConvoCheck2()=1 Or ConvoCheck3()=1 Then
	ShellExecute ("D:\Autoit\proekts\1.mp3")
		;_exitgame()
		;_exit()
EndIf
Wend
_exitgame()
_exit()
;--------------------------------------------Конец основы---------------

;--------------------------------------------------
Func _exit();завершение работы скрипта
	ToolTip("Завершение скрипта",0,0)
	Sleep(200)
	$TimeDiff=TimerDiff($timer)
	_TicksToTime(Int($TimeDiff),$hour,$min,$sec)
	$ScriptWorked=$hour&":"&$min&":"&$sec
	IniWrite("D:\eve.ini","Script", @MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec,"Stop,Belt №" & $x &" -- "& "Время работы: "& $ScriptWorked)
	Exit
EndFunc

Func _pause()
	$pause=$pause+1
while $pause=1
	ToolTip("Пауза...",0,0)
	Sleep(200)
WEnd
ToolTip("продолжаем...",0,0)
Sleep(200)
$pause=0
EndFunc
;--------------------------------------------------
Func WarpToBelt();функция полета на белт
	Do
	ToolTip ("Пытаемся варпнутся к белту",0,0)
	MouseClick ("left",62, 47,1,20);клик на треугольник
	MouseMove(120, 52,20);плавно ведем мышь по меню
	MouseMove(120, 133,20)
	MouseMove(240, 133,20)
	;доводим до списка бук белтов - эти первые 3 операции с мышью
	;для всех белтов одинаковы
	MouseMove(240, $y,20);доводим до 1го белта в списке(разница в 16 пикселей)
	MouseClick("left",340, $y,1,20);
	
	PixelSearch(839, 7,847, 15,0x868686,10);проверка на активацию схемы солнечной системы,если активировалась - убрать.на всякий сделал проверку.
	If Not @error Then
		Send("{F11}")
	EndIf
	
	Sleep (8000) ;летим ждем надпись "Гипердрайв активен"
	Until CheckWarp()=0;повторяем попытки улететь на белт,пока не пройдет проверка на варп к белту

	WinActivate("EVE")
	WinWaitActive("EVE")

	Do
		Sleep(100)
		ToolTip ("летим к белту",0,0)
	Until CheckWarp()=1;повторяем надпись,пока не пройдет проверка на окончание варпа.
	Sleep(4000);необходим,чтобы успели отсортироваться астеры,иначе улетит с белта.
	$DrChk=0
EndFunc
;-----------------------------------------------
Func CheckWarp() ;функция проверки окончания варпа
	PixelSearch (425, 527,425, 527,0xBCBCBC,10);проверяется левый верхний пиксель буквы Г в слове Гиперпрыжок :)пока он есть мы в гиперпрыжке.
	If @error Then
	Return 1
	Else
	Return 0
	EndIf
EndFunc

;----------------------------------------------
Func _exitgame();если белты с дистанцией менее 10км к астероиду кончились - выйти из игры.
	WinActivate("EVE")
	WinWaitActive("EVE")
	Dock()
	OreToHome()
	Send ("{esc}")
	sleep (4000)
	MouseClick ("left",851, 606,1,20)
	IniWrite("D:\eve.ini","Game Exit - кончились буки", @MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec,"Stop,Belt №" & $x)
	Return
EndFunc

;------------------------------------------------
Func Dock() ;Полет домой если заполнен трюм
	WinActivate("EVE")
	WinWaitActive("EVE")

Send ("!{2}");забираем дрончегов
Sleep (35000);примерное время возврата дронов с макс дистанции 10 км. минус 4-6 сек(это время сбросил на разгон отварпа и клики по меню).

	;если трюм заполнился - летим домой
Do
	MouseClick ("left",62, 47,1,20);клик на треугольник`
	MouseMove (123, 56,20);аккуратно ведем мышь
	MouseMove (123, 157,20);дом
	MouseMove (223, 157,20);додвигаем до начала меню дом
	MouseClick ("left",223, 207,1,20);4й пункт 1й буки
	sleep (6000);примерное время до появления надписи "Гипердрайв активен"
	ToolTip ("Начинаю варпаться домой",0,0)
	Sleep(200)
Until CheckWarp()=0;повторяем процедуру,пока не пройдем проверку на процесс варпа

Do
ToolTip ("Варп домой",0,0)
Until CheckWarp()=1

Do
ToolTip ("Лечу в док...",0,0)
Until CheckSpace()=0

ToolTip ("Мы дома",0,0)
Sleep(200)

EndFunc
;----------------------------------------------------------
Func Undock();вылет со станции.
	WinActivate("EVE")
	WinWaitActive("EVE")
	Do
	ToolTip("Вылетаем ботить :)",0,0)
	MouseClick("left",17, 735);щелчок на андок
	Sleep(200)
	ToolTip ("я на станции!",0,0)
	Until CheckSpace()=1;спамить андок и показывать надпись каждую секунду,пока не появимся в космосе.
EndFunc
;-----------------------------------------------
Func CheckSpace();проверка на космос
		WinActivate("EVE")
		WinWaitActive("EVE")
		PixelSearch(737, 122,737, 122,0xCFCFCF,10);ищем треугольник овервью
		if not @error Then                     ;- мы находимся в космосе.
		ToolTip ("я в космосе",0,0)
		Sleep(200)
		return 1
		Else
		return 0
		EndIf
EndFunc
;------------------------------------------------
Func Mine();включить лазеры для добычи если дистанция ближе 10км
	Minestage1()

While CargoCheck()=0;пока не заполниться карго бурим,тут проверки на лок,конво.
	WinActivate("EVE")
	WinWaitActive("EVE")
	While LockCheck()=1;проверка на лок
	ToolTip("Атаке!" & "|" & "Белт " & $x,0,0)
	Send ("{f1}")
	Send ("{f2}")
	Send ("{f3}")
	Sleep (3500)
		PixelSearch(612, 650,612, 650,0x000000)
		If Not @error Then
			ToolTip ("стрипы не включились - активирую...",0,0)
			IniWrite("D:\eve.ini","Error",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "противофаза - не включились стрипы" & " Бука №" & $x)
			Send ("{f1}")
			Send ("{f2}")
			Send ("{f3}")
			Sleep (2500)
		EndIf
	$stripwork=random (45000,47000)
	Sleep ($stripwork)
	WinActivate("EVE")
	WinWaitActive("EVE")
	Send ("{f1}")
	Send ("{f2}")
	Send ("{f3}")
	ToolTip ("ждем пока не заполнится трюм",0,0)
	sleep (2500)
		PixelSearch(612, 650,612, 650,0x000000)
		If @error Then
			ToolTip ("стрипы не выключились - выключаю...",0,0)
			IniWrite("D:\eve.ini","Error",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "противофаза - не выключились стрипы" & " Бука №" & $x)
			Send ("{f1}")
			Send ("{f2}")
			Send ("{f3}")
			Sleep (2500)
		EndIf
	ToolTip ("проверка конво",0,0)
		If ConvoCheck()=1 Or ConvoCheck2()=1 Or ConvoCheck3()=1 Then
		ShellExecute ("D:\Autoit\proekts\1.mp3")
		;_exitgame()
		;_exit()
		EndIf
		If CargoCheck()=1 Then
		ExitLoop
		EndIf
	WEnd
WEnd
EndFunc
;------------------------------------------------
Func Minestage1() ;проверка на

#comments-start
	Do
		Sleep (100)
		SelItemCheck();проверка на выбор объекта(selected item).
		ToolTip("Подлетаю к метеору ближе 10 км",0,0)
	Until DistanceCheck()=1;повторяем цикл,пока дистанция не станет ближе 10км

#comments-end

	Distforbelt()
	MouseClick ("left",880, 74);жмем кнопку лока цели
	ToolTip("Лочу цель",0,0)
	;ждем окончания лока
	If $DrChk=0 Then
		MouseClick ("right",779, 628);меню дронов
		sleep(500)
		MouseClick ("left",806, 654);запустить дронов
		Sleep (3000)
		MouseClick ("right",779, 648);меню дронов
		sleep(500)
		MouseClick ("left",808, 695);непрерывно разрабатывать
		sleep(100)
		$DrChk=$DrChk+1
	Else
		MouseClick ("right",779, 648);меню дронов
		sleep(2500)
		MouseClick ("left",808, 695);непрерывно разрабатывать
		sleep(100)
	EndIf
EndFunc


;------------------------------------------------
Func LockCheck();проверка цели на лок
	PixelSearch(621, 80,636, 80,0x404040,10)
	If not @error Then
		Return 1
	Else
		ToolTip("Сбился лок - начинаю поиск ближайшего метеора",0,0)
		Sleep (600)
		;если лок сбился начинаем процедуру лока и бурения,как будто только прилетели на белт.
		Minestage1()
		return 0
	EndIf
EndFunc

;------------------------------------------------
Func CargoCheck();проверка на заполненность трюма
	;WinActivate("EVE")
	Sleep (200)
	PixelSearch (280, 617,280, 617,0x005067,10);проверка на наличие синего цвета.если есть,то заполнен.
	If Not @error Then
	ToolTip("Трюм наполнился",0,0)
	Sleep(200)
	Return 1
	Else
	Return 0
	EndIf
EndFunc
;-----------------------------------------------



;----------кусок сброса лута---------------
Func OreToHome();функция сбрасывания руды на станцию
	sleep (3000)
	Do
		ToolTip("Cбрасываю добычу",0,0)
		Sleep(200)
		MouseClick("left",150, 597,1,20);иногда происходит лаг и вся руда не вытаскивается,поэтому решил воткнуть костылик
		Send ("^a")
		MouseClickDrag ("left",63, 665,83, 366,20)
		Sleep (2000)
	Until FullEmptyCheck()=1
IniWrite("D:\eve.ini","Mined",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "сброшен лут" & " Бука №" & $x)
EndFunc
;--------------------------------------------------
Func FullEmptyCheck();проверка - сброшен лут или нет.
	PixelSearch (186, 618,186, 618,0x041115,10)
	If @error Then
	ToolTip ("лут еще есть!",0,0)
	Sleep(200)
	Else
	ToolTip ("лут сброшен...",0,0)
	Sleep(200)
	return 1
	EndIf
EndFunc
;-----------------------------------------------------
Func Distforbelt();проверка на дистанцию - меньше или больше 10км - усовершенствовал - теперь определяет астероиды ближе 100 м адекватно.
	WinActivate("EVE")
	WinWaitActive("EVE")
	MouseClick("left",774, 183,1,20)
	Sleep (1200)
	PixelSearch (828, 40,830, 44,0x8F8F8F,10);проверка диапазона пикселей между 2х значным XX числом километров и слова км.на наличие серого оттенка цвета(цвет чисел).
	If not @error Then;PixelSearch (836, 40,840, 44,0x8F8F8F,10) если появился нужный цвет в диапазоне,значит мы уже ближе 10км и представление цифр изменилось на XXXX м.
		ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
		Sleep (600)
		Return
	Else
		PixelSearch (943, 74,951, 87,0x8E8E8E,10)
		If @error Then
		ToolTip("Белт пустой!Летим дальше.",0,0)
		Sleep (500)
		Else
		PixelSearch (836, 40,840, 44,0x8F8F8F,10)
		If @error Then
		ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
		Sleep (600)
		Return
		EndIf
		EndIf
	 $y=$y+16
	 ToolTip("нет астероидов ближе 10км - меняю белт № " & $x & " на белт №" & ($x+1),0,0)
	 Sleep(600)
	 Send ("!{2}")
	 Sleep (35000)
	If $y>454 Then
		_exitgame()
		_exit()
	EndIf
	WarpToBelt()
	checkbeltnum()
	IniWrite("D:\eve.ini","Status",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "Warp to belt №" & $x)
	Distforbelt()
	Return
	EndIf
EndFunc

;-------------------------------------------
Func checkbeltnum();узнаем номер белта по текущей координате y
	Select
		Case $y=133
			$x=1
		Case $y=149
			$x=2
		Case $y=165
			$x=3
		Case $y=181
			$x=4
		Case $y=197
			$x=5
		Case $y=213
			$x=6
		Case $y=229
			$x=7
		Case $y=245
			$x=8
		Case $y=261
			$x=9
		Case $y=277
			$x=10
		Case $y=293
			$x=11
		Case $y=309
			$x=12
		Case $y=325
			$x=13
		Case $y=341
			$x=14
		Case $y=357
			$x=15
		Case $y=373
			$x=16
		Case $y=389
			$x=17
		Case $y=405
			$x=18
		Case $y=421
			$x=19
		Case $y=437
			$x=20
		Case $y=453
			$x=21
		
	EndSelect
EndFunc
;---------------------------

Func ConvoCheck()
	PixelSearch (303, 172,819, 581,0xFFA600,10)
	If Not @error Then
		IniWrite("D:\eve.ini","Convo",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "АААА конво был бляяяя!!!сработала проверка 1")
		Send ("{PRINTSCREEN}")
		Return 1
	Else
		Return 0
	EndIf
EndFunc

Func ConvoCheck2()
	PixelSearch (303, 172,819, 581,0x6284AF,10)
	If Not @error Then
		IniWrite("D:\eve.ini","Convo",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "АААА конво был бляяяя!!!сработала проверка 2")
		Send ("{PRINTSCREEN}")
		Return 1
	Else
		Return 0
	EndIf
EndFunc

Func ConvoCheck3()
	PixelSearch (303, 172,819, 581,0x0064C0,10)
	If Not @error Then
		IniWrite("D:\eve.ini","Convo",@MDAY & "\" & @MON & " " & @HOUR & ":" & @Min & ":" & @Sec, "АААА конво был бляяяя!!!сработала проверка 3")
		Send ("{PRINTSCREEN}")
		Return 1
	Else
		Return 0
	EndIf
EndFunc


p.s. как показал тест бота - слишком маленькие слипы выставил для возврата дронов.полет дронов 10км от астероида занимает около 27 секунд.файл также перелил.
Добавлен файл без дронов - не прокаченные дроны не выгодно использовать - потери времени на возрат в отсек дронов и постоянная активация после сброса лока - очень велики.возможно позже придумаю более оптимальную работу с дронами - так как потери около 50 секунд за цикл майна 15 минут(10.5к трюма,без учета варпов туда-обратно) - многовато.+иногда дроны не успевают принести лут после сброса лока и происходит их реактивация - т.е. дроны заного летят майнить ,непонятно куда похерив предидущее намайненное добро.Скорее всего буду делать слежение за цветом статуса дронов,чтобы оптимально использовать время и получать наибольшую прибыль...
10.09.10 - тест показал,что даже 30сек.таймаут ожидания возврата дронов,не достаточен.Если все дроны остаются на белте,то бот открывает меню звездной карты и схему солнечной системы(F11).И конечно после этого не работает адекватно.
пробую на 35 секундах.+доработал схему активации дронов и теперь бот не делает лишних кликов.перезалил файл и обновил сам скрипт.
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

версия 2.15
- Порылся в коде.Совсем не понравилась реализация возврата дронов.Переделал ее - теперь существенно экономится время.Неважно сколько возвращаются дроны - слипы вычислять не нужно.теперь возврат проверяется автоматически.Т.е.теперь если дроны прямо у корабля,их возврат будет почти мгновенным.
-Вставил проверку - иногда дроны по горячей клавише возврата просто прилетают к кораблю со статусом - не используется.Если такое происходит,сочетание клавиш посылается снова.Я думаю,что именно из за этой ерунды у меня бот терял дронов и именно поэтому слип любой длительности ожидания дронов не мог решить проблему.
- Переделал функцию проверки стрипов - теперь проверяется активность каждого стрипа.Если не включился или не выключился вовремя один из них - бот автоматически вернет как нужно на данном этапе.

Для того чтобы дроны адекватно возвращались - нужно забиндить в настройках евы - всем дронам: вернуться в отсек дронов на - alt+2.и не разворачивать меню статуса дронов - бот все сделает сам.
Чтобы работала проверка конво, вам нужно либо убрать строки с ShellExecute и раскомментить _exitgame и _exit,чтобы бот сразу закрыл игру,когда злой админ пытается бросить конво.Либо прописать свой путь mp3 файла - чтобы, когда будет проверка, вас оповестил файл mp3 об этом.Или дописать что-либо свое :blum:.+Нужно заблокировать возможность другим игрокам бросать вам конво - чтобы не срабатывали проверки когда не нужно :smile:
Скрин расположения интерфейса в конце поста в спойлере.

Огромное спасибо Бельфу :beer:.До сих пор копаюсь в его хантботе и нахожу интересные для себя вещи.

Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\icons\иконки устройств\1013.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Date.au3>
Opt("TrayIconDebug", 1)
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
Opt ("MouseClickDelay", 20);Задаем интенсивность нажатия мыши.
Opt ("SendKeyDownDelay", 100)
HotKeySet ("{`}","_exit");задаем горячую клавишу остановки скрипта
HotKeySet ("{\}","_pause")
WinMove("EVE", "", -3, -25)


;+++ Шапка +++
Global $LootCount=0;счетчик количества сбросов лута за время работы бота.
Global $DrChk;счетчик для вычисления кликов мышью.если только прилетели на белт полный набор кликов для запуска дронов и активации майна ими.
Global $pause
Global $timer = TimerInit();таймер
Dim $hour,$min,$sec
Global $y=133;координата Y в меню бук.
Global $x;Номер буки
checkbeltnum()
IniWrite("D:\eve.ini","Script", _NowCalc(),"Start,Belt №" & $x)
IniWrite("D:\eve.ini","Mined",_NowCalc(),"начало работы")
IniWrite("D:\eve.ini","Status",_NowCalc(),"начало работы")
IniWrite("D:\eve.ini","Error",_NowCalc(), "начало работы")
#cs
справка по белтам цифра - значение $y`
1-133 2-149 3-165
4-181 5-197 6-213
7-229 8-245 9-261
10-277 11-293 12-309
#ce
;===================================



;;++++++++++ Ниже основа ;++++++++++ 
while $y<454
WinActivate("EVE")
WinWaitActive("EVE");активируем окно с евой,чтобы покорить еву ботством...:)
Undock();андокаемся - пока не пройдет проверка повторяем...
Sleep (1000)
checkbeltnum()
ConvoCheck()
WarpToBelt();плывем к белту - ломимся,пока не пройдут проверки.
Sleep (500)
ConvoCheck()
Mine();здесь процесс добычи с проверками на заполненность трюма,лока,конво.
sleep (300)
Dock();летим домой
OreToHome();сбрасываем руду;проверка осталось ли че? :) Если осталось - повторить.
ConvoCheck()
Wend
_exitgame()
_exit()
;============================Конец основы================================



;++++++++++ завершение работы скрипта + время работы скрипта
Func _exit()
	ToolTip("Завершение скрипта",0,0)
	Sleep(200)
	_TicksToTime(Int(TimerDiff($timer)),$hour,$min,$sec)
	$ScriptWorked=StringFormat("%02d:%02d:%02d", $hour,$min,$sec)
	IniWrite("D:\eve.ini","Script",_NowCalc(), "Stop,Belt №" & $x &" -- "& "Время работы: "& $ScriptWorked)
	IniWrite("D:\eve.ini","Mined",_NowCalc(), "конец работы, " & "всего сброшено лута: " & $LootCount)
	IniWrite("D:\eve.ini","Status",_NowCalc(), "конец работы")
	IniWrite("D:\eve.ini","Error",_NowCalc(), "конец работы" )
	Exit
EndFunc
;=================================


;++++++++++ пауза
Func _pause()
	$pause=$pause+1
while $pause=1
	ToolTip("Пауза...",0,0)
	Sleep(200)
WEnd
ToolTip("продолжаем...",0,0)
Sleep(200)
$pause=0
EndFunc
;=================================


;++++++++++ функция полета на белт
Func WarpToBelt()
	Do
	ToolTip ("Пытаемся варпнутся к белту",0,0)
	MouseClick ("left",62, 47,1,20);клик на треугольник
	MouseMove(120, 52,20);плавно ведем мышь по меню
	MouseMove(120, 133,20)
	MouseMove(240, 133,20)
	;доводим до списка бук белтов - эти первые 3 операции с мышью
	;для всех белтов одинаковы
	MouseMove(240, $y,20);доводим до 1го белта в списке(разница в 16 пикселей)
	MouseClick("left",340, $y,1,20);
	
	PixelSearch(839, 7,847, 15,0x868686,10)
	If Not @error Then
		Send("{F11}")
	EndIf
	
	Sleep (8000) ;летим ждем надпись "Гипердрайв активен"
	Until CheckWarp()=0;повторяем попытки улететь на белт,пока не пройдет проверка на варп к белту

	WinActivate("EVE")
	WinWaitActive("EVE")

	Do
		Sleep(100)
		ToolTip ("летим к белту",0,0)
	Until CheckWarp()=1;повторяем надпись,пока не пройдет проверка на окончание варпа.
	Sleep(4000);необходим,чтобы успели отсортироваться астеры,иначе улетит с белта.
	$DrChk=0
EndFunc
;=============================


;++++++++++ функция проверки окончания варпа
Func CheckWarp() 
	PixelSearch (425, 527,425, 527,0xBCBCBC,10);проверяется левый верхний пиксель буквы Г в слове Гиперпрыжок :)пока он есть мы в гиперпрыжке.
	If @error Then
	Return 1
	Else
	Return 0
	EndIf
EndFunc

;=============================


;++++++++++ выход из игры - до этого док и сброс лута.
Func _exitgame();если белты с дистанцией менее 10км к астероиду кончились - выйти из игры.
	WinActivate("EVE")
	WinWaitActive("EVE")
	Dock()
	OreToHome()
	Send ("{esc}")
	sleep (4000)
	MouseClick ("left",851, 606,1,20)
	IniWrite("D:\eve.ini","Game Exit - кончились буки",_NowCalc(),"Stop,Belt №" & $x)
	Return
EndFunc

;======================================


;++++++++++ Полет домой если заполнен трюм
Func Dock() 
	WinActivate("EVE")
	WinWaitActive("EVE")
	Dronecontrol()
	;если трюм заполнился - летим домой
Do
	MouseClick ("left",62, 47,1,20);клик на треугольник`
	MouseMove (123, 56,20);аккуратно ведем мышь
	MouseMove (123, 157,20);дом
	MouseMove (223, 157,20);додвигаем до начала меню дом
	MouseClick ("left",223, 207,1,20);4й пункт 1й буки
	sleep (6000);примерное время до появления надписи "Гипердрайв активен"
	ToolTip ("Начинаю варпаться домой",0,0)
	Sleep(200)
Until CheckWarp()=0;повторяем процедуру,пока не пройдем проверку на процесс варпа

Do
ToolTip ("Варп домой",0,0)
Until CheckWarp()=1

Do
ToolTip ("Лечу в док...",0,0)
Until CheckSpace()=0

ToolTip ("Мы дома",0,0)
Sleep(200)

EndFunc
;======================================


;++++++++++ вылет со станции.
Func Undock()
	WinActivate("EVE")
	WinWaitActive("EVE")
	Do
	ToolTip("Вылетаем ботить :)",0,0)
	MouseClick("left",17, 735);щелчок на андок
	Sleep(200)
	ToolTip ("я на станции!",0,0)
	Until CheckSpace()=1;спамить андок и показывать надпись каждую секунду,пока не появимся в космосе.
EndFunc
;======================================


;++++++++++ проверка на космос
Func CheckSpace()
		WinActivate("EVE")
		WinWaitActive("EVE")
		PixelSearch(737, 122,737, 122,0xCFCFCF,10);ищем треугольник овервью
		if not @error Then                     ;- мы находимся в космосе.
		ToolTip ("я в космосе",0,0)
		Sleep(200)
		return 1
		Else
		return 0
		EndIf
EndFunc
;======================================

;++++++++++ включить лазеры для добычи если дистанция ближе 10км
Func Mine()
	Minestage1()

While CargoCheck()=0;пока не заполниться карго бурим,тут проверки на лок,конво.
	WinActivate("EVE")
	WinWaitActive("EVE")
	While LockCheck()=1;проверка на лок
		ToolTip("Атаке!" & "|" & "Белт " & $x,0,0)
		Send ("{f1}")
		Send ("{f2}")
		Send ("{f3}")
		Sleep (3500)
		StripChk("On")
		$stripwork=random (25000,30000)
		Sleep ($stripwork)
		WinActivate("EVE")
		WinWaitActive("EVE")
		Send ("{f1}")
		Send ("{f2}")
		Send ("{f3}")
		ToolTip ("ждем пока не заполнится трюм",0,0)
		sleep (2000)
		StripChk("Off")
		ToolTip ("проверка конво",0,0)
		ConvoCheck()
		If CargoCheck()=1 Then
			ExitLoop
		EndIf
	WEnd
WEnd
EndFunc
;=================================================


;++++++++++ стадия майна 1 - лок,ссылка на проверку расстояния+активация дронов
Func Minestage1() 

#comments-start
	Do
		Sleep (100)
		SelItemCheck();проверка на выбор объекта(selected item).
		ToolTip("Подлетаю к метеору ближе 10 км",0,0)
	Until DistanceCheck()=1;повторяем цикл,пока дистанция не станет ближе 10км

#comments-end

	Distforbelt()
	MouseClick ("left",880, 74);жмем кнопку лока цели
	ToolTip("Лочу цель",0,0)
	;ждем окончания лока
	If $DrChk=0 Then
		MouseClick ("right",779, 628);меню дронов
		sleep(500)
		MouseClick ("left",806, 654);запустить дронов
		Sleep (3000)
		MouseClick ("right",779, 648);меню дронов
		sleep(500)
		MouseClick ("left",808, 695);непрерывно разрабатывать
		sleep(100)
		$DrChk=$DrChk+1
	Else
		MouseClick ("right",779, 648);меню дронов
		sleep(2500)
		MouseClick ("left",808, 695);непрерывно разрабатывать
		sleep(100)
	EndIf
EndFunc
;===========================


;++++++++++ проверка цели на лок
Func LockCheck()
	PixelSearch(621, 80,636, 80,0x404040,10)
	If not @error Then
		Return 1
	Else
		ToolTip("Сбился лок - начинаю поиск ближайшего метеора",0,0)
		Sleep (600)
		;если лок сбился начинаем процедуру лока и бурения,как будто только прилетели на белт.
		Minestage1()
		return 0
	EndIf
EndFunc
;===============================


;++++++++++ проверка на заполненность трюма
Func CargoCheck()
	;WinActivate("EVE")
	Sleep (200)
	PixelSearch (279, 617,279, 617,0x005067,10);проверка на наличие синего цвета.если есть,то заполнен.
	If Not @error Then
	ToolTip("Трюм наполнился",0,0)
	Sleep(200)
	Return 1
	Else
	Return 0
	EndIf
EndFunc
;==================================


;++++++++++ кусок сброса лута
Func OreToHome();функция сбрасывания руды на станцию
	sleep (3000)
	Do
		ToolTip("Cбрасываю добычу",0,0)
		Sleep(200)
		MouseClick("left",150, 597,1,20);иногда происходит лаг и вся руда не вытаскивается,поэтому решил воткнуть костылик
		Send ("^a")
		MouseClickDrag ("left",63, 665,83, 366,20)
		Sleep (2000)
	Until FullEmptyCheck()=1
IniWrite("D:\eve.ini","Mined",_NowTime(5), "сброшен лут" & " Бука №" & $x)
$LootCount=$LootCount+1
IniWrite("D:\eve.ini","Loot","Count",$LootCount)
EndFunc
;================================


;++++++++++ проверка - сброшен лут или нет.
Func FullEmptyCheck()
	PixelSearch (186, 618,186, 618,0x041115,10)
	If @error Then
	ToolTip ("лут еще есть!",0,0)
	Sleep(200)
	Else
	ToolTip ("лут сброшен...",0,0)
	Sleep(200)
	return 1
	EndIf
EndFunc
;=================================


;++++++++++ проверка на дистанцию - меньше или больше 10км - усовершенствовал - теперь определяет астероиды ближе 100 м адекватно.
Func Distforbelt()
	WinActivate("EVE")
	WinWaitActive("EVE")
	MouseClick("left",774, 183,1,20)
	Sleep (1200)
	PixelSearch (828, 40,830, 44,0x8F8F8F,10);проверка диапазона пикселей между 2х значным XX числом километров и слова км.на наличие серого оттенка цвета(цвет чисел).
	If not @error Then;PixelSearch (836, 40,840, 44,0x8F8F8F,10) если появился нужный цвет в диапазоне,значит мы уже ближе 10км и представление цифр изменилось на XXXX м.
		ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
		Sleep (600)
		Return
	Else
		PixelSearch (943, 74,951, 87,0x8E8E8E,10)
		If @error Then
		ToolTip("Белт пустой!Летим дальше.",0,0)
		Sleep (500)
		Else
		PixelSearch (836, 40,840, 44,0x8F8F8F,10)
		If @error Then
		ToolTip("Ближе 10км есть астероиды - майню на Белте " & $x & " дальше.",0,0)
		Sleep (600)
		Return
		EndIf
		EndIf
	 $y=$y+16
	 ToolTip("нет астероидов ближе 10км - меняю белт № " & $x & " на белт №" & ($x+1),0,0)
	 Sleep(600)
	 Dronecontrol()
	If $y>454 Then
		_exitgame()
		_exit()
	EndIf
	WarpToBelt()
	checkbeltnum()
	IniWrite("D:\eve.ini","Status",_NowTime(5), "Warp to belt №" & $x)
	Distforbelt()
	Return
	EndIf
EndFunc
;==========================================


;++++++++++ узнаем номер белта по текущей координате y
Func checkbeltnum()
	Select
		Case $y=133
			$x=1
		Case $y=149
			$x=2
		Case $y=165
			$x=3
		Case $y=181
			$x=4
		Case $y=197
			$x=5
		Case $y=213
			$x=6
		Case $y=229
			$x=7
		Case $y=245
			$x=8
		Case $y=261
			$x=9
		Case $y=277
			$x=10
		Case $y=293
			$x=11
		Case $y=309
			$x=12
		Case $y=325
			$x=13
		Case $y=341
			$x=14
		Case $y=357
			$x=15
		Case $y=373
			$x=16
		Case $y=389
			$x=17
		Case $y=405
			$x=18
		Case $y=421
			$x=19
		Case $y=437
			$x=20
		Case $y=453
			$x=21
		
	EndSelect
EndFunc
;======================


;++++++++++ функции проверки конво
Func ConvoCheck()
	If Check1()=1 Or Check2()=1 Or Check3()=1 Then ;3 проверки на конво,если вдруг срабатывает любая- принтскрин и загрузка громкой мелодии :)
		ShellExecute ("D:\Autoit\proekts\1.mp3")
		;_exitgame()
		;_exit()
	EndIf
EndFunc
	
	Func Check1()
		PixelSearch (303, 172,819, 581,0xFFA600,10)
		If Not @error Then
			IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 1")
			Send ("{PRINTSCREEN}")
			Return 1
		Else
			Return 0
		EndIf
	EndFunc

	Func Check2()
		PixelSearch (303, 172,819, 581,0x6284AF,10)
		If Not @error Then
			IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 2")
			Send ("{PRINTSCREEN}")
			Return 1
		Else
			Return 0
		EndIf
	EndFunc

	Func Check3()
		PixelSearch (303, 172,819, 581,0x0064C0,10)
		If Not @error Then
			IniWrite("D:\eve.ini","Convo",_NowCalc(), "АААА конво был бляяяя!!!сработала проверка 3")
			Send ("{PRINTSCREEN}")
			Return 1
		Else
			Return 0
		EndIf
	EndFunc
;========================


;++++++++++ контроль возврата дронов
Func Dronecontrol()
Send ("!{2}")
;PixelSearch(1009, 644,1009, 644,0x010203,5);проверка открыто ли меню.когда не раскрыто - в этом пикселе точка черного цвета.
;If Not @error Then
MouseClick ("left",779, 648);раскрыть меню для анализа состояния
;	sleep(100)
;EndIf

While 1
Sleep (1000)
PixelSearch(938, 666,959, 669,0x404040)
	If @error Then
		ExitLoop
	EndIf
ToolTip("Ждем дрончегов!",0,0)

PixelSearch(844, 664,920, 671,0x00DC00,10)
;иногда после нажатия назначенной комбинации клавиш для возврата дронов,они просто прилетают к кораблю со статусом - не используется.проверяем.
	If Not @error Then
		ToolTip("сцуко зависли!",0,0)
		Sleep(2000)
		Send ("!{2}");если дроны висят,вместо того,чтобы возвратиться - послать команду еще раз.
	EndIf
WEnd

ToolTip("Дроны вернулись!",0,0)
MouseClick ("left",779, 648);закрыть меню.можно раскомментить вначале функции проверку на раскрытость.проще просто закрыть.
Sleep (600)
EndFunc
;================


;++++++++++ контроль стрипов
Func StripChk($StrStatus)
Select
	Case $StrStatus = "On"
		PixelSearch(612, 650,612, 650,0x000000);проверка активности 1го стрипа
			If Not @error Then
				ToolTip ("стрип 1 не включился - активирую...",0,0)
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не включился" & " Бука №" & $x)
				Send ("{f1}")
				Sleep (500)
			EndIf
		PixelSearch(664, 650,664, 650,0x000000)
			If Not @error Then
				ToolTip ("стрип 2 не включился - активирую...",0,0);проверка активности 2го стрипа
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не включился" & " Бука №" & $x)
				Send ("{f2}")
				Sleep (500)
			EndIf
		PixelSearch(714, 650,714, 650,0x000000);проверка активности 3го стрипа
			If Not @error Then
				ToolTip ("стрип 3 не включился - активирую...",0,0)
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не включился" & " Бука №" & $x)
				Send ("{f3}")
				Sleep (500)
			EndIf
	Case $StrStatus = "Off"
		PixelSearch(612, 650,612, 650,0x000000);проверка на выключение 1го стрипа
			If @error Then
				ToolTip ("стрип 1 не выключился - выключаю...",0,0)
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 1 не выключился" & " Бука №" & $x)
				Send ("{f1}")
				Sleep (500)
			EndIf
		PixelSearch(664, 650,664, 650,0x000000)
			If @error Then
				ToolTip ("стрип 2 не выключился - выключаю...",0,0);проверка на выключение 2го стрипа
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 2 не выключился" & " Бука №" & $x)
				Send ("{f2}")
				Sleep (500)
			EndIf
		PixelSearch(714, 650,714, 650,0x000000);проверка на выключение 3го стрипа
			If @error Then
				ToolTip ("стрип 3 не выключился - выключаю...",0,0)
				IniWrite("D:\eve.ini","Error",_Nowtime(5), "противофаза - стрип 3 не выключился" & " Бука №" & $x)
				Send ("{f3}")
				Sleep (500)
			EndIf
EndSelect
EndFunc
;=======================


Внутри спойлера скрин расположения элементов в клиенте евы.
42cf8da6765f.jpg
 

Lexx98

Продвинутый
Сообщения
272
Репутация
73
Re: Нубский Майнер Бот(замкнутая вермишель)

Прикол в том, что когда с тобой на связь выходит ГМ, у тебя не спрашивают, хочешь ты с ним поговорить или нет. Сразу открывается ещё одно окно чата. (Сам не проверял, но слышал так)
И даже автореджект приглашений от него не спасёт. Зато спасёт от всех прочих левых товарищей.
 

hikki

Продвинутый
Сообщения
233
Репутация
99
Re: Нубский Майнер Бот(замкнутая вермишель)

С дронами какаято непонятная проблема, если забирать по хоткею то они могут подвиснуть и тупить, еслиже пользоватся контекстным меню и забирать мышью то никаких подвисаний никогда не бывает.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: Нубский Майнер Бот(замкнутая вермишель)

Всю жисть только хоткеем пользовался, ни разу не подвисали о_О. Мб потому что я по 10 раз жму? :smile:
 
Автор
yaodnako

yaodnako

Продвинутый
Сообщения
120
Репутация
78
Re: Нубский Майнер Бот(замкнутая вермишель)

SirMaksFromEho
Если так буду думать еще проверки.возможно 1 из 3 проверок сработает.я думал,что как раз приходит с вопросом окно,как от игрока.Про то,что автореджект не спасает от гм - знаю.это как раз для спасения от игроков :smile:

hikki
Ага.мне просто повезло - дроны повисли именно тогда,когда я писал адекватный модуль возврата :smile:.Если б не повисли - до сих пор бы не понял что-твориться...повторный хоткей решает дело.

Belfigor
Бельф как всегда все с запасом делает :smile: Именно поэтому проблема и не возникала.

Бельф - а тебе конво приходило от ГМа? если приходило - то есть ли окно подтверждения как при приходе от игрока?или сразу окно чата появляется?

---в параллельной теме Archy26 писал ,что:
Окошко диалога "оповещения о конво" ГМа - самое обычное. Там нет ничего отличающегося. Написание ника как обычно. Однако когда открывается сам чат, называется он "alone". И вот там уже написание ника и сообщений ГМа идут красным системным текстом (точно таким же, как пишется в локале оповещение о смены звёздной системы).
значит-таки есть это самое окно подтверждения?
--------------
Как показал ночной тест бота - из-за всех оптимизаций удалось сократить цикл майна с 16-17 минут до 14-15(иногда даже 13 минут) ! это прорыв:smile: ! +52.5к дополнительно трюма за ночь(10 часов)!
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Re: Нубский Майнер Бот(замкнутая вермишель)

Лично мне нет. Поэтому я попросил Арчибальда отписаться по этому вопросу в соседней теме :smile:
 
Верх