NeWGui:  
Gui, 49: Destroy
...

#Include Samp.ahk  
MainMenu:  
IniRead, KeyS, %A_ScriptDir%\Settings.ini, Main  
Loop, Parse, Keys, `n  
{  
Array := Object()  
StringSplit, Array, A_LoopField, =  
Key%A_Index% := Array1  
Comanda%A_Index% := Array2  
}  
Gui, 50:Add, Hotkey, x12 y40 w110 h20 vKey1, %Key1%  
Gui, 50:Add, Hotkey, x12 y70 w110 h20 vKey2, %Key2%  
Gui, 50:Add, Hotkey, x12 y100 w110 h20 vKey3, %Key3%  
Gui, 50:Add, Hotkey, x12 y130 w110 h20 vKey4, %key4%  
Gui, 50:Add, Hotkey, x12 y160 w110 h20 vKey5, %key5%  
Gui, 50:Add, Hotkey, x12 y190 w110 h20 vKey6, %key6%  
Gui, 50:Add, Hotkey, x12 y220 w110 h20 vKey7, %key7%  
Gui, 50:Add, Hotkey, x12 y250 w110 h20 vKey8, %key8%  
Gui, 50:Add, Hotkey, x12 y280 w110 h20 vKey9, %key9%  
Gui, 50:Add, Hotkey, x12 y310 w110 h20 vKey10, %key10%  
Gui, 50:Add, Hotkey, x12 y340 w110 h20 vKey11, %key11%  
Gui, 50:Add, Hotkey, x12 y370 w110 h20 vKey12, %key12%  
Gui, 50:Add, Hotkey, x12 y400 w110 h20 vKey13, %key13%  
Gui, 50:Add, Edit, x142 y40 w310 h20 vComanda1, %Comanda1%  
Gui, 50:Add, Edit, x142 y70 w310 h20 vComanda2, %Comanda2%  
Gui, 50:Add, Edit, x142 y100 w310 h20 vComanda3, %Comanda3%  
Gui, 50:Add, Edit, x142 y130 w310 h20 vComanda4, %Comanda4%  
Gui, 50:Add, Edit, x142 y160 w310 h20 vComanda5, %Comanda5%  
Gui, 50:Add, Edit, x142 y190 w310 h20 vComanda6, %Comanda6%  
Gui, 50:Add, Edit, x142 y220 w310 h20 vComanda7, %Comanda7%  
Gui, 50:Add, Edit, x142 y250 w310 h20 vComanda8, %Comanda8%  
Gui, 50:Add, Edit, x142 y280 w310 h20 vComanda9, %Comand9%  
Gui, 50:Add, Edit, x142 y310 w310 h20 vComanda10, %Comanda10%  
Gui, 50:Add, Edit, x142 y340 w310 h20 vComanda11, %Comanda11%  
Gui, 50:Add, Edit, x142 y370 w310 h20 vComanda12, %Comanda12%  
Gui, 50:Add, Edit, x142 y400 w310 h20 vComanda13, %Comanda13%  
Gui, 50:Add, Button, x182 y460 w100 h30 gOk, Старт  
Gui, 50:Add, Button, x12 y500 w100 h30 gReloadgui, Перезапустить  
Gui, 50:Add, Button, x122 y500 w100 h30 gSave, Сохранить  
Gui, 50:Add, Button, x232 y500 w100 h30 gMingui, Свернуть  
Gui, 50:Add, Button, x342 y500 w100 h30 gExit, Выход  
Gui, 50:Add, Button, x342 y460 w100 h30 gNeWGui, Доп. Функции  
Gui, 50:Show, w460 h533, 123  
Gui, 50:Add, Text, x12 y20 w110 h20 , Клавиша  
Gui, 50:Add, Text, x142 y20 w310 h20 , Команда  
return  

OK:  

Gui, 50: Submit, HoHide  

Loop 6  
{  
IniRead, Var, Settings.ini, CheckBoxs, %A_Index%  
CB%A_Index% := Var  
}  

If CB1 = 1  
  SetTimer, UseDrugs, 5000  

HotKey, %key1%, Off, UseErrorLevel  
HotKey, %key1%, Active1, On, UseErrorLevel  

HotKey, %key2%, Off, UseErrorLevel  
HotKey, %key2%, Active2, On, UseErrorLevel  

HotKey, %key3%, Off, UseErrorLevel  
HotKey, %key3%, Active3, On, UseErrorLevel  

HotKey, %key4%, Off, UseErrorLevel  
HotKey, %key4%, Active4, On, UseErrorLevel  

HotKey, %key5%, Off, UseErrorLevel  
HotKey, %key5%, Active5, On, UseErrorLevel  

HotKey, %key6%, Off, UseErrorLevel  
HotKey, %key6%, Active6, On, UseErrorLevel  

HotKey, %key7%, Off, UseErrorLevel  
HotKey, %key7%, Active7, On, UseErrorLevel  

HotKey, %key8%, Off, UseErrorLevel  
HotKey, %key8%, Active8, On, UseErrorLevel  

HotKey, %key9%, Off, UseErrorLevel  
HotKey, %key9%, Active9, On, UseErrorLevel  

HotKey, %key10%, Off, UseErrorLevel  
HotKey, %key10%, Active10, On, UseErrorLevel  

HotKey, %key11%, Off, UseErrorLevel  
HotKey, %key11%, Active11, On, UseErrorLevel  

HotKey, %key12%, Off, UseErrorLevel  
HotKey, %key12%, Active12, On, UseErrorLevel  

HotKey, %key13%, Off, UseErrorLevel  
HotKey, %key13%, Active13, On, UseErrorLevel  

return  

Active1:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda1% %id%{enter}  
return  
Active2:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda2% %id%{enter}  
return  
Active3:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda3% %id%{enter}  
return  
Active4:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda4% %id%{enter}  
return  
Active5:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda5% %id%{enter}  
return  
Active6:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda6% %id%{enter}  
return  
Active7:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comand7% %id%{enter}  
return  
Active8:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda8% %id%{enter}  
return  
Active9:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda9% %id%{enter}  
return  
Active10:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda10% %id%{enter}  
return  
Active11:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda11% %id%{enter}  
return  
Active12:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda12% %id%{enter}  
return  
Active13:  
id := getClosestPlayerId()  
Name := getPlayerNameById(id)  
FileRead, IgnoreList, Ignore List.txt  
IfInString, IgnoreList, %Name%  
return  
else  
sendinput {f6}%Comanda13% %id%{enter}  
return  

Выйти:  
Exit:  
ExitApp  

Mingui:  
Gui, Minimize  
return  

Save:  
Gui, 50: Submit, NoHide  
FileDelete, Settings.ini  
FileAppend,,Settings.ini  
Gui, 50: Submit, NoHide  
Loop 13  
{  
Command := Comanda%A_Index%  
HotKey := Key%A_Index%  
If (hotkey<>"") and (command<>"")  
IniWrite, %command%, %A_ScriptDir%\Settings.ini, Main, %hotkey%  
}  
return  

Reloadgui:  
Reload  

GuiClose:  
ExitApp  

NeWGui:  
Gui, 49: Destroy  
Gui, 49:Add, GroupBox, x12 y10 w600 h-40 ,  

Loop 6  
{  
IniRead, Var, Settings.ini, CheckBoxs, %A_Index%  
CB%A_Index% := Var  
}  

Gui, 49:Add, CheckBox, Checked%CB1% x27 y30 w580 h20 vVar1 , 1  
Gui, 49:Add, CheckBox, Checked%CB2% x27 y50 w580 h20 vVar2, 2  
Gui, 49:Add, CheckBox, Checked%CB3% x27 y70 w580 h20 vVar3, 3  
Gui, 49:Add, CheckBox, Checked%CB4% x27 y90 w580 h20 vVar4, 4  
Gui, 49:Add, CheckBox, Checked%CB5% x27 y110 w580 h20 vVar5 , 5  
Gui, 49:Add, CheckBox, Checked%CB6% x27 y130 w580 h20 vVar6 , 6  

Gui, 49:Add, GroupBox, x12 y0 w610 h160 , GroupBox  
Gui, 49:Add, Button,, Назад  
Gui, 49:Show, w300 h200, Дополнительные функции  
return  

49ButtonНазад:  
Gui, 49: Submit  
Loop 6  
{  
Var_Write := Var%A_index%  
IniWrite, %Var_Write%, Settings.ini, CheckBoxs, %A_Index%  
}  
return  

UseDrugs:  
gethp := getPlayerHealth()  
if (gethp < 15)  
sleep 300  
SendChatMessage("/usedrugs cocaine")  
return

UseDrugs:   
gethp := getPlayerHealth()   
if (gethp < 15)   
  SendChatMessage("/usedrugs cocaine")   
sleep 300   
return