]#Persistent
#SingleInstance FORCE
#MaxThreads
#MaxHotkeysPerInterval 200
#Include sampudf.ahk

SetTimer, TakeGun  , 1000
SetTimer, UnloadGun  , 950

SetBatchLines, -1
global var := 1

Sex := "Мужской"

IniRead, EditK, config.ini, Setup, TegK,[]
IniRead, EditHello, config.ini, Setup, FHello,Здравствуйте
IniRead, EditPhone, config.ini, Setup, FPhone,Номер
IniRead, Profil, %A_WorkingDir%\config.ini, Main, Profile

loop 27
{
IniRead, Profil, %A_WorkingDir%\config.ini, Main, Profile
IniRead, HK%A_Index%, config.ini, HotKey, SetupHK%A_Index%,
if HK%A_Index%
Hotkey,% HK%A_Index%, Active%A_Index%, On, UseErrorlevel

}

Gui, Font, S8 CDefault, Arial
Gui, Show,, Pane Family
Gui, Add, Edit, x2 y40 w150 h20 vEditK, %EditK%
Gui, Add, Edit, x2 y0 w150 h20 +Number vEditPhone, %EditPhone%
Gui, Add, Edit, x2 y20 w150 h20 vEditHello, %EditHello%
Gui, Add, Text, x152 y0 w220 h20 , Номер игрового мобильного тел.
Gui, Add, Text, x152 y20 w220 h20 , Приветствие
Gui, Add, Button, x2 y80 w100 h20 gGO, Возможности
Gui, Add, Button, x102 y80 w140 h20 gActives, Клавиши
Gui, Add, Button, x242 y80 w120 h20 gInfos, Информация
Gui, Add, Button, x363 y80 w100 h20 gSmtr,, Обновить
Gui, Add, Edit, x2 y100 w480 h60 vMyEdit1 ReadOnly,
Gui, Add, Text, x152 y40 w220 h20 , Тег в рацию /k
;Gui, Add, ComboBox, x382 y10 w70 h60 , Мужской|Женский
;Gui, Add, Text, x352 y10 w30 h20 , Пол
Gui, Show, x472 y181 h164 w484,

Smtr:
FileRead, string, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
GuiControl ,,MyEdit1,%string%
return

Actives:
Gui, 2:Destroy
Gui, 2:Add, Tab, x-8 y0 w440 h340 , Страница 1|Страница 2|Биндер
Gui, 2:Add, Hotkey, x512 y210 w-250 h-80 ,
Gui, 2:Tab, Страница 1
Gui, 2:Add, Hotkey, x2 y30 w90 h20 vHK1 gActive, %HK1%
Gui, 2:Add, Text, x102 y30 w240 h20 , Приветствие

Gui, 2:Add, Hotkey, x2 y60 w90 h20 vHK2 gActive, %HK2%
Gui, 2:Add, Text, x102 y60 w240 h20 , Показать перстень "Pane"

Gui, 2:Add, Hotkey, x2 y90 w90 h20 vHK3 gActive, %HK3%
Gui, 2:Add, Text, x102 y90 w240 h20 , Показать средний палец

Gui, 2:Add, Hotkey, x2 y120 w90 h20 vHK4 gActive, %HK4%
Gui, 2:Add, Text, x102 y120 w240 h20 , Закрыть/открыть авто
Gui, 2:Add, Hotkey, x2 y150 w90 h20 vHK5 gActive, %HK5%
Gui, 2:Add, Text, x102 y150 w240 h20 , Дать визитку
Gui, 2:Add, Hotkey, x2 y180 w90 h20 vHK6 gActive, %HK6%
Gui, 2:Add, Text, x102 y180 w240 h20 , Употребить наркотики
Gui, 2:Add, Hotkey, x2 y210 w90 h20 vHK7 gActive, %HK7%
Gui, 2:Add, Text, x102 y210 w240 h20 , Местонахождение в /k
Gui, 2:Add, Hotkey, x2 y240 w90 h20 vHK8 gActive, %HK8%
Gui, 2:Add, Text, x102 y240 w240 h20 , Позвать кого-то
Gui, 2:Add, Hotkey, x2 y270 w90 h20 vHK9 gActive, %HK9%
Gui, 2:Add, Text, x102 y270 w240 h20 , /time
Gui, 2:Add, Button, x162 y290 w100 h30 gSave, Сохранить
Gui, 2:Tab, Страница 2
Gui, 2:Add, Hotkey, x2 y30 w90 h20 vHK10 gActive, %HK10%
Gui, 2:Add, Text, x102 y30 w250 h20 , рация /k
Gui, 2:Add, Hotkey, x2 y60 w90 h20 vHK11 gActive, %HK11%
Gui, 2:Add, Text, x102 y60 w250 h20 , Отключить метку
Gui, 2:Add, Hotkey, x2 y90 w90 h20 vHK12 gActive, %HK12%
Gui, 2:Add, Text, x102 y90 w250 h20 , /healme
Gui, 2:Add, Hotkey, x2 y120 w90 h20 vHK13 gActive, %HK13%
Gui, 2:Add, Text, x102 y120 w250 h20 , Поднять руки
Gui, 2:Add, Hotkey, x2 y150 w90 h20 vHK14 gActive, %HK14%
Gui, 2:Add, Text, x102 y150 w250 h20 , FacePalm
Gui, 2:Add, Hotkey, x2 y180 w90 h20 vHK15 gActive, %HK15%
Gui, 2:Add, Text, x102 y180 w250 h20 , Text
Gui, 2:Add, Hotkey, x2 y210 w90 h20 vHK16 gActive, %HK16%
Gui, 2:Add, Text, x102 y210 w250 h20 , Text
Gui, 2:Add, Hotkey, x2 y240 w90 h20 vHK17 gActive, %HK17%
Gui, 2:Add, Text, x102 y240 w250 h20 , Text
Gui, 2:Add, Hotkey, x2 y270 w90 h20 vHK18 gActive, %HK18%
Gui, 2:Add, Text, x102 y270 w250 h20 , Text
Gui, 2:Add, Button, x152 y290 w100 h30 gSave, Сохранить

loop, 10
{
Gui, Font, norm,
Ypos := 30
loop, 9
{
MenuNum++
Gui, 2:Tab, Биндер
Gui, 2:Add, Hotkey, x2 y%Ypos% w90 h20 vHot%MenuNum%,
Gui, 2:Add, Edit, x102 y%Ypos% w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y30 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y30 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y60 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y60 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y90 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y90 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y120 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y120 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y150 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y150 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y180 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y180 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y210 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y210 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y240 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y240 w290 h20 vBind%MenuNum%,
;Gui, 2:Add, Hotkey, x2 y270 w90 h20 vHot%MenuNum%,
;Gui, 2:Add, Edit, x102 y270 w290 h20 vBind%MenuNum%,
Gui, 2:Add, Button, x162 y290 w110 h30 gSaveBind, Сохранить
Gui, 2:Show, x322 y134 h330 w431, Клавиши
Ypos := Ypos + 30

}
}
Goto, LoadProfil

Delete::
RPgunCheck := !RPgunCheck
addChatMessage("{00FF00}RP оружие " (RPgunCheck ? "{B22222}[включено]" : "{B22222}[отключено]"))
return

FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

GO:
MsgBox,48,,[F5] - Помощь (в игре)`n`nПриветсвие с автовводом ника`n Определение местонахождения по маркеру для семьи`n Взаимодействие с игроками(ПКМ+ALT, нужно нацелиться)`nОтыгровка /smoke`n/руки [id] /анруки [id]`nЧастичное музыкальное сопровождение`n`n
return

LoadProfil:
GuiControlGet, Drop
if Drop=
{
GuiControl, ChooseString, Drop, Биндер
Goto, AutoBind
}
if (Drop = "Биндер")
Goto, AutoBind
return

SaveBind:
Gui, 2:Submit, Nohide
GuiControlGet, Drop
if (Drop = "Биндер")
Goto, SaveAutoBind

SaveAutoBind:
loop 100
{
IniWrite, % Hot%A_Index%, %A_WorkingDir%\Profiles\Биндер, Key, HotKey%A_Index%
IniWrite, % Bind%A_Index%, %A_WorkingDir%\Profiles\Биндер.profile, Key, Bind%A_Index%
}
return

AutoBind:
loop 100
{
IniRead, VarHot%A_Index%, %A_WorkingDir%\Profiles\Биндер.profile, Key, HotKey%A_Index%, %A_Space%
IniRead, VarBind%A_Index%, %A_WorkingDir%\Profiles\Биндер.profile, Key, Bind%A_Index%, %A_Space%

GuiControl,, Hot%A_Index%, % varHot%A_Index%
GuiControl,, Bind%A_Index%, % varBind%A_Index%
}
Goto, BinderActive
return

Infos:
Gui, 3:Add, Text,,Специально для Pane Family | Diamond RP
Gui, 3:Add, Link,,<a href="http://vk.com/33filin">F1lin</a>
Gui, 3:Add, Text,,Версия %VersionBot%
Gui, 3:Add, Text,, Charles Pane
Gui, 3:Show
return

Save:
Gui, 2:Submit, NoHide
;return
IniWrite, %HK1%, config.ini, HotKey, SetupHK1
IniWrite, %HK2%, config.ini, HotKey, SetupHK2
IniWrite, %HK3%, config.ini, HotKey, SetupHK3
IniWrite, %HK4%, config.ini, HotKey, SetupHK4
IniWrite, %HK5%, config.ini, HotKey, SetupHK5
IniWrite, %HK6%, config.ini, HotKey, SetupHK6
IniWrite, %HK7%, config.ini, HotKey, SetupHK7
IniWrite, %HK8%, config.ini, HotKey, SetupHK8
IniWrite, %HK9%, config.ini, HotKey, SetupHK9
IniWrite, %HK10%, config.ini, HotKey, SetupHK10
IniWrite, %HK11%, config.ini, HotKey, SetupHK11
IniWrite, %HK12%, config.ini, HotKey, SetupHK12
IniWrite, %HK13%, config.ini, HotKey, SetupHK13
IniWrite, %HK14%, config.ini, HotKey, SetupHK14
IniWrite, %HK15%, config.ini, HotKey, SetupHK15
IniWrite, %HK16%, config.ini, HotKey, SetupHK16
IniWrite, %HK17%, config.ini, HotKey, SetupHK17
IniWrite, %HK18%, config.ini, HotKey, SetupHK18

return

Active:
;tooltip, Active
If %A_GuiControl% in +,^,!,+^,+!,^!,+^!
return
num := SubStr(A_GuiControl,3)
If (savedHK%num%) {
Hotkey,% savedHK%num%, Active%num%, Off
savedHK%num% .= " OFF"
}
If (%A_GuiControl% = "") {
TrayTip, Active%num%,% savedHK%num%, 27
savedHK%num% =
return
}
Gui, Submit, NoHide
If CB%num%
%A_GuiControl% := "#" %A_GuiControl%
If StrLen(%A_GuiControl%) = 1
%A_GuiControl% := "~" %A_GuiControl%
Hotkey,% %A_GuiControl%, Active%num%, On
TrayTip, Active%num%
,% %A_GuiControl% " ON`n" savedHK%num%, 27
savedHK%num% := %A_GuiControl%
return

ShowClose:
ExitApp

MyHotKey:
Gui, Submit, NoHide
Hotkey, %MyHotKey%, key, on, useerrorlevel
return

GuiClose:
Gui, Submit, NoHide
IniWrite, %EditK%, config.ini, Setup, TegK
IniWrite, %EditHello%, config.ini, Setup, FHello
IniWrite, %EditPhone%, config.ini, Setup, FPhone
ExitApp

key:
Gui, Submit, NoHide
MsgBox,%MyHotKey%
Hotkey, %MyHotKey%, key, off, useerrorlevel
return

Active1:
NameExPlayer := getPlayerNameById(getClosestPlayerId())
NameExPlayer := RegExReplace(NameExPlayer,"_"," ")
SendInput {f6}%EditHello%, %NameExPlayer% {Enter}
Return
Active2:

SendChat("/oldanim 54")
Sleep 400
SendChat("/me показал(а) перстень 'Pane' ")
Return
Active3:
SendChat("/oldanim 25")
Return
Active4:

SendChat("/lock")
Return
Active5:

SendChat("/me достал визитную карточку")
Sleep 2100
SendInput {f6}/do 'Maconnerie' Номер телефона:%EditPhone% {enter}
Return
Active6:
SendChat("/me засунул руку в карман")
Sleep 2100
SendChat("/me осмотрелся по сторонам")
Sleep 2100
SendChat("/me вспотел")
Sleep 2100
SendChat("/me достал из кармана 'Orbit'")
Sleep 2100
SendChat("/me засунул конфетку 'Orbit' в рот")
Sleep 500
SendInput {f6}/usedrugs 1 {enter}
return
Active7:
getPlayerPos(X,Y,Z)
mark := CoordsFromRedmarker()
SendChat("/k Координаты: |" x "|" y "|" z "| " calculateZone(x,y,z))
return
Active8:
SendChat("/oldanim 41")
Sleep 400
SendChat("Иди сюда.")
Sleep 1400
SendChat("Подойди.")
return
Active9:
SendChat("/time")
return
Active10:
SendInput {f6}/k %EditK% {Space}
return
Active11:
AddChatMessage("Метка отключена")
disableCheckpoint()
return
Active12:
SendChat("/healme")
return
Active13:
SendChat("/oldanim 19")
return
Active14:
SendChat("/oldanim 63")
return
Active15:
return
Active16:
return
Active17:
return
Active18:
return

BinderActive:
loop 100
{
Hotkey, % Hot%A_Index%, Off, UseErrorLevel
}

Gui, 2:Submit, NoHide

loop 100
{
Hotkey, % Hot%A_Index%, Activ%A_Index%, On, UseErrorLevel
}
return

Activ1:
if EnterOn1 > 0
{
SendInput, {f6}%Bind1%{enter}
}
Else
{
SendInput, {f6}%Bind1%
}
Return

Activ2:
if EnterOn2 > 0
{
SendInput, {f6}%Bind2%{enter}
}
Else
{
SendInput, {f6}%Bind2%
}
Return

Activ3:
if EnterOn3 > 0
{
SendInput, {f6}%Bind3%{enter}
}
Else
{
SendInput, {f6}%Bind3%
}
Return

Activ4:
if EnterOn4 > 0
{
SendInput, {f6}%Bind4%{enter}
}
Else
{
SendInput, {f6}%Bind4%
}
Return

Activ5:
if EnterOn5 > 0
{
SendInput, {f6}%Bind5%{enter}
}
Else
{
SendInput, {f6}%Bind5%
}
Return

Activ6:
if EnterOn6 > 0
{
SendInput, {f6}%Bind6%{enter}
}
Else
{
SendInput, {f6}%Bind6%
}
Return

Activ7:
if EnterOn7 > 0
{
SendInput, {f6}%Bind7%{enter}
}
Else
{
SendInput, {f6}%Bind7%
}
Return

Activ8:
if EnterOn8 > 0
{
SendInput, {f6}%Bind8%{enter}
}
Else
{
SendInput, {f6}%Bind8%
}
Return

Activ9:
if EnterOn9 > 0
{
SendInput, {f6}%Bind9%{enter}
}
Else
{
SendInput, {f6}%Bind9%
}
Return

vk74::
showDialog(0, "Помощь:", "[F5] - Помощь (в игре)`n`n[Del]/[Dellete] - включить/выключить RP отыгровку оружия`nПриветствие с автовводом никнейма`n Определение местонахождения по маркеру для семьи`n Взаимодействие с игроками(ПКМ+ALT, нужно нацелиться)`nОтыгровка /smoke`n/руки [id] /анруки [id]`nЧастичное музыкальное сопровождение`n`n","Ок")
return

TakeGun:
if (!RPgunCheck)
return
w := getPlayerWeaponId()
if (w == 24) and (nw != 2) ; Дигл
{
nw := 2
if (Sex == "Мужской")
SendChat("/me резким движением правой руки открыл кобуру и вытащил от туда Desert Eagle")
if (Sex == "Женский")
SendChat("/me резким движением правой руки открыла кобуру и вытащила от туда Desert Eagle")
}
if (w == 25) and (nw != 3) ; Шот Ган
{
nw := 3
if (Sex == "Мужской")
SendChat("/me снял дробовик с правого плеча")
if (Sex == "Женский")
SendChat("/me сняла дробовик с правого плеча")
}
if (w == 34) and (nw != 4) ; Снайпа
{
nw := 4
if (Sex == "Мужской")
SendChat("/me снял снайперскую винтовку с левого плеча")
if (Sex == "Женский")
SendChat("/me сняла снайперскую винтовку с левого плеча")
}
if (w == 30) and (nw != 5) ; АК-47
{
nw := 5
if (Sex == "Мужской")
SendChat("/me снял с плеча АК-47 и приготовил его к стрельбе")
if (Sex == "Женский")
SendChat("/me сняла с плеча АК-47 и приготовила его к стрельбе")
}
if (w == 31) and (nw != 6) ; Эмка пив пав :)
{
nw := 6
if (Sex == "Мужской")
SendChat("/me снял с плеча М4А1 и приготовил его к стрельбе")
if (Sex == "Женский")
SendChat("/me сняла с плеча М4А1 и приготовила его к стрельбе")
}
if (w == 29) and (nw != 7) ; МП-5
{
nw := 7
if (Sex == "Мужской")
SendChat("/me снял пистолет-пулемет MP5 с правого плеча")
if (Sex == "Женский")
SendChat("/me сняла пистолет-пулемет MP5 с правого плеча")
}
if (w == 23) and (nw != 9) ; сайлент пистол
{
nw := 9
if (Sex == "Мужской")
SendChat("/me резким движением правой руки открыл кобуру и вытащил от туда пистолет с глушителем")
if (Sex == "Женский")
SendChat("/me резким движением правой руки открыла кобуру и вытащила от туда пистолет с глушителем")
}
return

UnloadGun:
if (!RPgunCheck)
return
w := getPlayerWeaponId()
if (w != 24) and (nw == 2)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки убрал Desert Eagle в кобуру")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки убрал Desert Eagle в кобуру")
}
if (w != 25) and (nw == 3)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки повесил дробовик на правое плечо")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки повесила дробовик на правое плечо")
}
if (w != 34) and (nw == 4)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки повесил снайперскую винтовку на левое плечо")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки повесила снайперскую винтовку на левое плечо")
}
if (w != 30) and (nw == 5)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки повесил автомат AK-47 на плечо")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки повесила автомат AK-47 на плечо")
}
if (w != 31) and (nw == 6)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки повесил карабин М4А1 на плечо")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки повесила карабин М4А1 на плечо")
}
if (w != 29) and (nw == 7)
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки повесил пистолет-пулемет MP5 на правое плечо")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки повесила пистолет-пулемет MP5 на правое плечо")
}
if (w != 23) and (nw == 9) ; сайлент пистол
{
nw := 0
if (Sex == "Мужской")
SendChat("/me аккуратным движением руки убрал пистолет с глушителем в кобуру")
if (Sex == "Женский")
SendChat("/me аккуратным движением руки убрал пистолет с глушителем в кобуру")
}
return

$~WheelDown::
$~WheelUp::
SetTimer, TakeGun  , Off
SetTimer, UnloadGun    , Off
SetTimer, TakeGun  , 1000
SetTimer, UnloadGun    , 950
return