Код:
$~NumpadEnter::
$~Enter::
if (isInChat() && !isDialogOpen())
{
Sleep 250
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
if (RegExMatch(chatInput, "^/r\s(.*)", out))
{
temp := Trim(out1)
if (temp == "")
addChatMessageEx(0xFF8CA6, "Используйте ""/r текст""")
else
{
if (!RegExMatch(temp, "\(\(\s.*\s\)\)"))
Sleep, 100
SendChat("/me сняв с пояса рацию передал сообщение")
}
}
else if RegExMatch(chatInput, "^/settag\s(.*)", out)
{
IniWrite, %out1%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\setting.ini, Setup, Tag
addChatMessageEx(0xFF8CA6, "Установлен новый тэг: " out1)
}
}
if (menu==1)
{
punk:="label"+a
Gosub, %punk%
menu:=0
}
return
Numpad2::
IniRead, NickEng2, Setting.ini, INFO, Info2
IniRead, zvanie2, Setting.ini, INFO, Info3
IniRead, Tag2, Setting.ini, INFO, Info5
IniRead, TagD2, Setting.ini, INFO, Info7
IniRead, Razdel2, Setting.ini, INFO, Info9
IniRead, NickRus2, Setting.ini, INFO, Info11
IniRead, Lekcia2, Lekcia.ini, TEXT, Text-1
a:=1
menu:=1
ShowDialog("2", "{800000}[AHK] {BDBDBD}Организация - {A0522D}МО:", "{FFFFFF}1. {FAEBD7}Показать уодостовирение`n{FFFFFF}2. {FAEBD7}Доклад об выезде на поставки {D2B48C}[Фура полная].`n{FFFFFF}3. {FAEBD7}Доклад об выезде на базу {D2B48C}[Фура пустая].`n{FFFFFF}4. {FF0000}Объявите об ЧС на базе!`n{FFFFFF}5. {FAEBD7}Сообщить об построении на Базе.`n{FFFFFF}6. {FAEBD7}Прочитать Лекцию №1.`n{FFFFFF}7. {FAEBD7}Прочитать Лекцию №2.`n{FFFFFF}8. {FAEBD7}Доклад об вылете на поставки {D2B48C}[Вертолёт полный]`n{FFFFFF}9.{FAEBD7} Доклад об вылете на базу {D2B48C}[Вертолёт пустой]`n{FFFFFF}10. {FAEBD7}Доклад с поста {D2B48C}[КПП-1]`n{FFFFFF}11. {FAEBD7}Доклад с поста {D2B48C}[КПП-2]`n{FFFFFF}12. Уволить Бойца{FAEBD7}`n{FFFFFF}13. Принять новобранца{FAEBD7}","Отмена")
return
~UP::
if a>1
{
a:=a-1
}
return
~Down::
if a<b
{
a:=a+1
}
return
label1:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/do В правом кармане брюк у " NickEng2 " лежит удостоверение.")
Sleep 2500
SendChat("/me опустил правую руку в карман и нащупал удостоверение")
Sleep 2500
SendChat("/me лёгким движением руки вытащил руку из кармана")
Sleep 2500
SendChat("/do " NickEng2 " держит удостовирение в правой руке.")
Sleep 2500
SendChat("/me раскрыл удостоверение и показал его человеку напротив")
Sleep 2500
SendChat("/todo Вот...Смотрите.*показывая удостоверение")
Sleep 2500
SendChat("/do В удостовирении - Имя: " NickEng2 " - Дожность: " zvanie2 " - Подразделение: " Razdel2 ".")
Sleep 15000
SendChat("/me лёгким движением руки закрыл удостоверение и спрятал его в карман")
Sleep 2500
SendChat("/do Удостовирение лежит в правом кармане брюк у " NickEng2 ".")
Sleep 2500
return
label2:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Загурзился. Выезжаю на поставки!")
return
label3:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Разгурзился, выезжаю на базу!")
return
label4:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Черезвычайная ситуация! Нападение ОПГ!")
return
label5:
addChatMessageEx(0xBDBDBD, "{FF52A4}[AHK]: {BDBDBD}По - Для продолжения нажмите {ffffff}F2")
KeyWait, vk71, D
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/b " Tag2 ": Всеобщее постраение на плацу. У вас 3 минуты! Кого не будет - Выговор.")
Sleep 60000
SendChat("/b " Tag2 ": Всеобщее постраение на плацу. У вас 2 минуты! Кого не будет - Выговор.")
Sleep 60000
SendChat("/b " Tag2 ": Всеобщее постраение на плацу. У вас 1 минута! Кого не будет - Выговор.")
Sleep 60000
SendChat("/b " Tag2 ": Время ожидания завершено. Начинаю проверять по спискам.")
return
label6:
addChatMessageEx(0xBDBDBD, "{FF52A4}[AHK]: {DDA0DD}Лекция №1 - Для продолжения нажмите {ffffff}F2")
KeyWait, vk71, D
SendMessage, 0x50,, 0x4190419,, A
Sleep, 100
SendChat("/r " Tag2 ": Бойцы, минуту внимания!")
Sleep, 1500
SendChat("/r " Tag2 ": Я " zvanie2 " " NickRus2 " хочу прочитать лекцию...")
Sleep, 1500
SendChat("/r " Tag2 ": На тему - 'Суббординация'.")
Sleep, 1500
SendChat("/r " Tag2 ": В Армии нету таких слов как: 'Привет', 'Как дела?', 'Поговорить можно?' и т.д")
Sleep, 1500
SendChat("/r " Tag2 ": Обращаться строго на 'Вы' и только на 'Вы'.")
Sleep, 1500
SendChat("/r " Tag2 ": Например: Здравия желаю " zvanie2 " " NickRus2 ".")
Sleep, 1500
SendChat("/r " Tag2 ": Покинуть Территорию военной базы можно только по Разрешению.")
Sleep, 1500
SendChat("/r " Tag2 ": Незнание правил, не освобождает от ответсвенности!")
Sleep, 1500
SendChat("/r " Tag2 ": Всем спасибо за внимание. Желаю продуктивной работы!")
Sleep, 100
SendChat("/time")
Sleep, 100
SendInput {F8}
return
label7:
addChatMessageEx(0xBDBDBD, "{FF52A4}[AHK]: {DDA0DD}Лекция №2{BDBDBD} - Для продолжения нажмите {ffffff}F2")
KeyWait, vk71, D
SendMessage, 0x50,, 0x4190419,, A
Sleep, 100
SendChat("/r " Tag2 ": Бойцы, минуту внимания!")
Sleep, 1500
SendChat("/r " Tag2 ": Я " zvanie2 " " NickRus2 " хочу прочитать лекцию... ")
Sleep, 1500
SendChat("/r " Tag2 ": На тему - 'Тир'.")
Sleep, 1500
SendChat("/r " Tag2 ": В связи с низкими показателями огневой подготовки... ")
Sleep, 1500
SendChat("/r " Tag2 ": Было принято решение Ввести 'Тир'.")
Sleep, 1500
SendChat("/r " Tag2 ": Перед тем как уйти в тир...")
Sleep, 1500
SendChat("/r " Tag2 ": Вам нужно спросить Разрешения Офицеров.")
Sleep, 1500
SendChat("/r " Tag2 ": Посещения Тира не по графику - увольнение.")
Sleep, 1500
SendChat("/r " Tag2 ": Незнание правил, не освобождает от ответсвенности!")
Sleep, 1500
SendChat("/r " Tag2 ": Всем спасибо за внимание. Желаю продуктивной работы!")
Sleep, 1500
SendChat("/time")
Sleep, 1000
SendInput {F8}
return
label8:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Вертолёт - пуст. Вылетаю на загрузку.")
return
label9:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Загрузился, вылетаю на поставки!")
return
label10:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("/r " Tag2 ": Докладывает: " NickRus2 ". Пост: КПП-1. Состояние: Стабильное.")
return
label11:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
if IsPlayerInRangeOfPoint(-15.2274,2064.5266,17.4922,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: КПП-1 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(30.2605,2081.4258,21.8328,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: ПН-1 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(138.8696,1947.4816,19.3666,10)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: КПП-2 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(284.2646,1818.4513,17.6406,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: КПП-3 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(145.3336,1963.9907,35.3681,10)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: Вышка-2 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(105.4034,1901.6055,33.8984,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: Вышка-3 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(162.1265,1930.5018,33.8984,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: Вышка-4 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(-1527.8147,479.7747,7.1875,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: КПП | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(-1509.0648,460.8551,7.1875,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: Цех | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(-1319.3743,458.6777,7.1875,25)
{
SendInput, {F6}/r %Tag2% Докладывает: %NickRus2% | Пост: Ангары | Состояяние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(-1366.7013,500.8507,11.1953,15)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: Нижняя палуба | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(2720.8381,-2401.1711,13.4609,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: КПП-1 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(2729.1423,-2392.3945,29.5937,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: Вышка-1 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(27221.1350,-2493.4453,13.4869,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: КПП-2 | Состояние: .{left 1}
log1 := 1
}
if IsPlayerInRangeOfPoint(2728.5686,-2493.4453,29.5937,30)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: Вышка-2 | Состояние: .{left 1}
log1 := 1
}
if isPlayerInRangeOfPoint(2761.7837,-2562.9265,13.6328,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: Лодочная | Состояние: .{left 1}
log1 := 1
}
if isPlayerInRangeofPoint(2796.2126,-2555.4270,29.5937,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: Вышка-4 | Состояние: .{left 1}
log1 := 1
}
if isPlayerInRangeofPoint(2735.0659,2558.9087,29.5937,10)
{
SendInput, {F6}/r %Tag2% | Докладывает: %NickRus2% | Пост: вышка-5 | Состояние: .{left 1}
log1 := 1
}
return
label12:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendChat("Привет, моё имя " NickRus2)
return
label16:
SendMessage, 0x50,, 0x4190419,, A
Sleep 100
SendInput {F6} Привет {enter}
return
return
returnПри нажатии на Enter выдаёт и другие отыгровки. Как исправить?
