Вернуться   D3Scene.Ru Софт портал игр | Хаки | Проги | Статьи > Основные игры > WarCraft 3 > WarCraft 3 Боты
Присоединяйся к нам

WarCraft 3 Боты Вопросы и обсуждения ботов.



Закрытая тема
 
Опции темы Опции просмотра
Старый 27.02.2008, 13:59   #1
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор Стрелка

Stealth Bot и FaQ по нему


Итак в этой теме я отвечу на любые ваши вопросы связанные со Stealth Bot'oм
Бот лежит [Ссылки скрыты от гостей.]
Если, что-то не понятно или что-то не работает пишем в теме.
Stealth Bot сборки нашего сайта.
Stealth Bot - это программа для эмуллирования входа играка в battle.net и отправки сообщений в чат.
Работает без ошибок и сбоев.
Адаптирован для патча 1.21б.
Установлены скрипты:
1) Автоприглашалка в клан
2) Тривия(Викторина)
3) Матбан
4) Маткик
5) Скрипт игры мафия... его можно найти в папке с ботом
Для нормальной работы нужно перед установкой нашего бота установить бота с сайта [Ссылки скрыты от гостей.].
[Ссылки скрыты от гостей.]

[Ссылки скрыты от гостей.]
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?

Последний раз редактировалось UnDeaDRoCUser; 29.07.2010 в 18:33.
  Наверх
Старый 27.02.2008, 14:18   #2
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор Смех

Гыг обновление: добавлен антиспам...
Просто файл в аттаче скопировать в папку с ботом
Вложения
Тип файла: txt script.txt (75.6 Кб, 295 просмотров)
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?
  Наверх
Старый 02.03.2008, 02:24   #3
- - - - avp]@94 - - - -
 
Аватар для dog94
 
Регистрация: 01.03.2008
Сообщений: 49
Репутация: 29
Отправить сообщение для dog94 с помощью ICQ
По умолчанию

альф ето тот же бот что на blizza.net был?
  Наверх
Старый 02.03.2008, 06:24   #4
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор По умолчанию

Этот поправлен + антиспам скрипт и ваще это бот d3scene.ru терь я так захотел и Evol :)
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?
  Наверх
Старый 09.03.2008, 18:58   #5
Освоившийся
 
Аватар для Ilya89
 
Регистрация: 09.03.2008
Адрес: Москва, Россия
Сообщений: 703
Репутация: 470
Отправить сообщение для Ilya89 с помощью ICQ
По умолчанию

народ всем привет, случайно наткнулся на ваш сайт, скажите а вы что-нибудь знаете о судьбе blizza.net, чё там Альфадог и Файбер не поделили ! ! !

Добавлено через 5 минут
ой чуваки спс вам за бота я его искал не знаю скока времени просто слов нет спасибо вам огромное, P.s. ссори если флуд просто избыток чувств =))

Последний раз редактировалось Ilya89; 09.03.2008 в 19:04. Причина: Добавлено сообщение
  Наверх
Старый 09.03.2008, 19:11   #6
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор По умолчанию

Ilya, я альфа фэйбер мудила забей.... теперь тут я...
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?
  Наверх
Старый 09.03.2008, 19:18   #7
Освоившийся
 
Аватар для Ilya89
 
Регистрация: 09.03.2008
Адрес: Москва, Россия
Сообщений: 703
Репутация: 470
Отправить сообщение для Ilya89 с помощью ICQ
По умолчанию

аа ясно тада не буду больше лишних вопросов задавать всё понял, я вот тока хотел спросить ключ который в боте он у всех кто скачал этот бот, и если все по не му будут заходить то че будет :)

Добавлено через 27 минут
слушай догг, извечный вопрос как выключить команду .join всё перепробовал и в acscess прописал join=1 и в скрипте дела joindisable ниче не помогает, т.е я имею ввиду чтобы бот ваще на эту команду никак не реагировал, скажи плиззз
__________________
[Ссылки скрыты от гостей.]
[Ссылки скрыты от гостей.]

Последний раз редактировалось Ilya89; 09.03.2008 в 19:45. Причина: Добавлено сообщение
  Наверх
Старый 09.03.2008, 21:33   #8
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор По умолчанию

Чорт забудь этот ключик плз :)
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?
  Наверх
Старый 09.03.2008, 23:00   #9
Освоившийся
 
Аватар для Ilya89
 
Регистрация: 09.03.2008
Адрес: Москва, Россия
Сообщений: 703
Репутация: 470
Отправить сообщение для Ilya89 с помощью ICQ
По умолчанию

Цитата:
Сообщение от Zeon Посмотреть сообщение
Чорт забудь этот ключик плз :)
это да тока уже по нему кто подключился помимоменя:biggrin:

Добавлено через 16 часов 33 минуты
догг, ну так как эту долбанную команду .join выключить всётаки*pidurko*
__________________
[Ссылки скрыты от гостей.]
[Ссылки скрыты от гостей.]

Последний раз редактировалось Ilya89; 10.03.2008 в 15:34. Причина: Добавлено сообщение
  Наверх
Старый 13.03.2008, 11:11   #10
Кодер-Дизайнер

 
Аватар для AlfaDogg
 
Регистрация: 24.02.2008
Сообщений: 208
Репутация: 164
Автор По умолчанию

из Script.txt вырезать это:
Цитата:
'================================================= =====================================
' Clan invite script.
'================================================= =====================================
'// Powered by xKLONx =)
'// Variables
Option Explicit
Public Usrname '// Имя пользователя, для которого была использована команда /stats
Public InfoMessage '// Последнее информационное сообщение с battle.net(синее)
Public ErrorMessage '// Последнее сообщение об ошибке с battle.net(красное)
Public TalkMessage '// Последнее сообщение пользователя
Public TalkUsername

'// Тут можно и самим подобрать значания...
Public Const r_solo_lvl = 60
Public Const r_team_lvl = 60
Public Const r_ffa_lvl = 60
Public Const r_solo_stats = 100
Public Const r_team_stats = 100
Public Const r_ffa_stats = 100

Public solopr, solowins, sololosses, soloprocent, ffawins, ffalosses, ffaprocent, teamwins, _
teamlosses, teamprocent, teamlevel, sololevel, ffalevel

Public f_check_stats, counter1

Sub civ_Event_Load()
Timer2_Interval = 1000
addchat vbYellow, "Канальный.Автоприглашалка"
End Sub

Sub civ_Event_ServerInfo(Message)
Dim ladder, ldrlen, lvllen, winlen, lsslen, Level
If f_check_stats Then
If InStr(Message, "- Ladder ") > 0 Then
UserStatArray = Split(Message, " ")
Laddername = UserStatArray(2)
ldrlen = Len(UserStatArray(2))
Select Case Mid(UserStatArray(2), 1, ldrlen)
Case "SOLO,"
ladder = "SOLO"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(4))
Level = Left(UserStatArray(4), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(6))
wins = Left(UserStatArray(6), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(8))
losses = Left(UserStatArray(8), lsslen)
End If
Case "TEAM,"
ladder = "TEAM"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(4))
Level = Left(UserStatArray(4), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(6))
wins = Left(UserStatArray(6), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(8))
losses = Left(UserStatArray(8), lsslen)
End If
Case "FFA"
ladder = "FFA"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(5))
Level = Left(UserStatArray(5), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(7))
wins = Left(UserStatArray(7), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(9))
losses = Left(UserStatArray(9), lsslen)
End If
Case Else
ladder = "Unknown": Level = "Unknown": wins = "Unknown": losses = "Unknown"
End Select
End If
wins = Int(wins): losses = Int(losses)
If losses <> 0 And wins <> 0 Then
procent = Int(wins / (wins + losses) * 1000)
procent = procent / 10
End If
Level = Int(Level)
If ladder = "SOLO" Then
sololevel = Level
solowins = wins: sololosses = losses
soloprocent = procent
End If
If ladder = "FFA" Then
ffalevel = Level
ffawins = wins: ffalosses = losses
ffaprocent = procent
End If
If ladder = "TEAM" Then
teamlevel = Level
teamwins = wins: teamlosses = losses
teamprocent = procent
End If
End If
End Sub

Sub civ_Event_ServerError(Message)
ErrorMessage = Message
If InStr(Message, "The invitation failed.") > 0 Then
AddQ "Opps.. the invitation failed. Try again!"
f_check_stats = False
End If
If InStr(Message, "Too many server requests") > 0 Then
AddQ "Sry батла глючит напиши ещё :("
f_check_stats = False
End If
If InStr(Message, "No stats on record") > 0 Then
AddQ Usrname & " ты не подходиш..."
f_check_stats = False
End If
End Sub

Sub Inviter()
f_check_stats = False
If sololevel >= r_solo_lvl And soloprocent >= r_solo_stats Then
ssc.addchat vbYellow, Usrname & " подходит по соло"
Command BotVars.Username, ".invite " & Usrname, 0
Else
If teamlevel >= r_team_lvl And teamprocent >= r_team_stats Then
ssc.addchat vbYellow, Usrname & " подходит по тим"
Command BotVars.Username, ".invite " & Usrname, 0
Else
If ffalevel > r_ffa_lvl And ffaprocent >= r_ffa_stats Then ':)
ssc.addchat vbYellow, Usrname & " подходит по ффа"
Command BotVars.Username, ".invite " & Usrname, 0
Else
ssc.addchat vbRed, Usrname & " не подходит"
ssc.addchat vbRed, "Solo: " & sololevel & " & " & soloprocent & "%. " & "Требования: " & r_solo_lvl & "lvl & " & r_solo_stats & "%"
ssc.addchat vbRed, "Team: " & teamlevel & " & " & teamprocent & "%. " & "Требования: " & r_team_lvl & "lvl & " & r_team_stats & "%"
ssc.addchat vbRed, "FFA: " & ffalevel & " & " & ffaprocent & "%. " & "Требования: " & r_ffa_lvl & "lvl & " & r_ffa_stats & "%"
AddQ Usrname & " ты не подходиш..."
End If
End If
End If
End Sub

Sub civ_Event_UserTalk(Username, Flags, Message, Ping)
Dim myAccess, myFlags, clan
If LCase(Message) = ".join" Then
GetDBentry Username, myAccess, myFlags
clan = GetInternalDataByUsername(Username, 0)
If clan = "" Then
sololevel = 0: teamlevel = 0: ffalevel = 0
solowins = 0: teamwins = 0: ffawins = 0
sololosses = 0: teamlosses = 0: ffalosses = 0
soloprocent = 0: teamprocent = 0: ffaprocent = 0
AddQ "Check stats..."
'ssc.addchat vbRed, "Check stats..."
f_check_stats = True
Usrname = Username
'Usrname = "тестюзверь"
AddQ "/stats " & Usrname & " w3xp"
Else
AddQ Username & " ты должен сначала выйти из " & clan
End If
End If
End Sub

Sub civ_Event_WhisperFromUser(Username, Flags, Message)
If LCase(Message) = "join" Then Event_UserTalk Username, 0, Message, 0
End Sub

Sub civ_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
Dim clan
clan = GetInternalDataByUsername(Username, 0)
If clan = "" And Level > 25 Then AddQ "Хочеш войти в клан просто напиши .join"
End Sub

Sub civ_Timer()
If f_check_stats Then
counter1 = counter1 + 1 ': ssc.addchat vbGreen, counter1
If counter1 = 3 Then Inviter: counter1 = 0: f_check_stats = False
End If
End Sub
__________________
Когда власть любви превзойдет любовь к власти, настанет мир на земле. ©Jimi Hendrix
Я ставлю форумы... особые форумы... кто хочет увидеть не много выбулетиона?
  Наверх
Старый 14.03.2008, 00:09   #11
Освоившийся
 
Аватар для Ilya89
 
Регистрация: 09.03.2008
Адрес: Москва, Россия
Сообщений: 703
Репутация: 470
Отправить сообщение для Ilya89 с помощью ICQ
По умолчанию

всё понял спс ! ! !
__________________
[Ссылки скрыты от гостей.]
[Ссылки скрыты от гостей.]
  Наверх
Старый 16.03.2008, 22:43   #12
Гость_за_инактив
 
Аватар для 70^$VvE6h5
 
Регистрация: 16.03.2008
Сообщений: 1
Репутация: 3
По умолчанию

Не обязательно вырезать.
Нажми CTRL + F, введи join
И каждое найденное слово join замени на любое другое!
  Наверх
Старый 19.03.2008, 18:53   #13
Освоившийся
 
Аватар для Ilya89
 
Регистрация: 09.03.2008
Адрес: Москва, Россия
Сообщений: 703
Репутация: 470
Отправить сообщение для Ilya89 с помощью ICQ
По умолчанию

догг слышь, щас вот зашел в баттл и там ваш бот стоит, как сделать так чтобы у меня так же бот стоял и не вырубался ни за спам ни за прочюю фигню
__________________
[Ссылки скрыты от гостей.]
[Ссылки скрыты от гостей.]
  Наверх
Старый 19.03.2008, 19:09   #14
Местный
 
Аватар для baT
 
Регистрация: 01.03.2008
Адрес: из лесу
Сообщений: 92
Репутация: 53
По умолчанию

acsess измени
__________________
[Ссылки скрыты от гостей.]
  Наверх
Старый 22.03.2008, 09:47   #15
Гость_за_инактив
 
Аватар для Vasiliy
 
Регистрация: 22.03.2008
Сообщений: 1
Репутация: 0
По умолчанию

подскажите где взять прогу для бота которая определяет ранг клана в роке? (warcraft iii ROC)
  Наверх
Закрытая тема

Метки
Bot, FAQ по боту, Help Stealth bot, Stealth, Stealth Bot, Бот, Бот балтун, Вопросы по боту, Помощь с ботом, Стелс Бот


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Powered by vBulletin
Copyright © 2017 vBulletin Solutions, Inc.
Перевод: zCarot | Дизайн: G-A | Верстка: OldEr
Текущее время: 11:34. Часовой пояс GMT +4.