Помощь в написании скриптов - Страница 2 - Форум Cheat-Master.ru
Модератор форума: Admin_Bot, Admin_Bot2, Admin_Bot3, Admin_Bot4  
Помощь в написании скриптов
ENOT_1337 Дата: Среда, 01.07.2015, 23:55 | Сообщение # 16
Новичок
Сообщений: 6
Статус: Offline
Клавиша для активации: любая
Описание скрипта\макроса: Нужно сделать чтобы в диалог вводило цифры от 000000 до 999999 и при этом он на каждое число жал enter, пример: 000000{ENTER} 000001{ENTER}
Формат (txt\exe\ahk): AHK
Дополнительная информация (если нужно): -
Demy Дата: Четверг, 02.07.2015, 14:39 | Сообщение # 17
Бывалый
Сообщений: 422
Статус: Offline
Lockry,
Код
#include samp.ahk     

IniRead, KeyS, 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,     
Gui, 50:Add, Hotkey, x12 y160 w110 h20 vKey5,     
Gui, 50:Add, Hotkey, x12 y190 w110 h20 vKey6,     
Gui, 50:Add, Hotkey, x12 y220 w110 h20 vKey7,     
Gui, 50:Add, Hotkey, x12 y250 w110 h20 vKey8,     
Gui, 50:Add, Hotkey, x12 y280 w110 h20 vKey9,     
Gui, 50:Add, Hotkey, x12 y310 w110 h20 vKey10,     
Gui, 50:Add, Hotkey, x12 y340 w110 h20 vKey11,     
Gui, 50:Add, Hotkey, x12 y370 w110 h20 vKey12,     
Gui, 50:Add, Hotkey, x12 y400 w110 h20 vKey13,     
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,     
Gui, 50:Add, Edit, x142 y160 w310 h20 vComanda5,     
Gui, 50:Add, Edit, x142 y190 w310 h20 vComanda6,     
Gui, 50:Add, Edit, x142 y220 w310 h20 vComanda7,     
Gui, 50:Add, Edit, x142 y250 w310 h20 vComanda8,     
Gui, 50:Add, Edit, x142 y280 w310 h20 vComanda9,     
Gui, 50:Add, Edit, x142 y310 w310 h20 vComanda10,     
Gui, 50:Add, Edit, x142 y340 w310 h20 vComanda11,     
Gui, 50:Add, Edit, x142 y370 w310 h20 vComanda12,     
Gui, 50:Add, Edit, x142 y400 w310 h20 vComanda13,     
Gui, 50:Add, Button, x182 y430 w100 h30 gOK, Старт     
Gui, 50:Add, Button, x12 y470 w100 h30 gReloadgui, Перезапустить     
Gui, 50:Add, Button, x122 y470 w100 h30 gSave, Сохранить     
Gui, 50:Add, Button, x232 y470 w100 h30 gMingui, Свернуть     
Gui, 50:Add, Button, x342 y470 w100 h30 gExit, Выход     
Gui, 50:Show, w460 h503, 123     
Gui, 50:Add, Text, x12 y20 w110 h20 , Клавиша     
Gui, 50:Add, Text, x142 y20 w310 h20 , Команда     
return     

OK:     
Gui, 50: Submit, NoHide
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
IfNotInString, IgnoreList, %Name%, sendinput {f6}%Comanda1% %id%{enter}        
return
Active3:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda3% %id%{enter}     
return     
Active4:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda4% %id%{enter}     
return     
Active5:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda5% %id%{enter}     
return     
Active6:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda6% %id%{enter}     
return     
Active7:     
id := getClosestPlayerId()     
sendinput {f6}%Comand7% %id%{enter}     
return     
Active8:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda8% %id%{enter}     
return     
Active9:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda9% %id%{enter}     
return     
Active10:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda10% %id%{enter}     
return     
Active11:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda11% %id%{enter}     
return     
Active12:     
id := getClosestPlayerId()     
sendinput {f6}%Comanda12% %id%{enter}     
return     
Active13:     
id := getClosestPlayerId()     
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 ; 13 - число пар для сохранения     
{     
Command := Comanda%A_Index%     
HotKey := Key%A_Index%     
If (hotkey<>"") and (command<>"")    
     IniWrite, %command%, Settings.ini, Main, %hotkey%    
}    
return    

Reloadgui:     
Reload  


Добавлено (02.07.2015, 13:55)
---------------------------------------------
ENOT_1337, сейчас сделаю... Тесты много времени занимают :d

Добавлено (02.07.2015, 14:39)
---------------------------------------------
ENOT_1337, сделал. Остановка на Shift (нужно подержать пару секунд; работает кривовато остановка). При активации скрипта будет звук. Работает около 25 минут...
Код
!1::
SoundPlay *48
Loop 999999
{
    if GetKeyState("Shift")=1
     break
    C := A_Index
    While StrLen(C) != 6
     c = 0%c%
    SendInput %c%{enter}
    if GetKeyState("Shift")=1
     break
}
exit


AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1

У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ


Сообщение отредактировал Demy - Четверг, 02.07.2015, 18:49
Lockry Дата: Четверг, 02.07.2015, 15:08 | Сообщение # 18
Боец
Сообщений: 88
Статус: Offline
Demy, не работает. Всё равно к примеру пишет /frisk и ид игрока который в Ignore list.txt

Сообщение отредактировал Lockry - Четверг, 02.07.2015, 15:10
Demy Дата: Четверг, 02.07.2015, 18:26 | Сообщение # 19
Бывалый
Сообщений: 422
Статус: Offline
Lockry, пробуй...
Код
Active1:   
id := getClosestPlayerId()       
Name := getPlayerNameById(id)   
FileRead, IgnoreList, Ignore List.txt
IfInString, IgnoreList, %Name%
  return
else
  msgbox sendinput {f6}%Comanda1% %id%{enter}      
return


AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1

У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
soso4ik Дата: Четверг, 02.07.2015, 18:31 | Сообщение # 20
Новичок
Сообщений: 6
Статус: Offline
такая же проблема

Сообщение отредактировал soso4ik - Четверг, 02.07.2015, 18:35
Lockry Дата: Четверг, 02.07.2015, 19:57 | Сообщение # 21
Боец
Сообщений: 88
Статус: Offline
Demy, Спасибо огромное! Всё отлично работает. smile

Добавлено (02.07.2015, 19:57)
---------------------------------------------
Demy, Вот у меня есть ещё один пример скрипта с checkbox

Код
#include samp.ahk
#IfWinActive GTA:SA:MP
Gui, Add, CheckBox, x92 y40 w100 h30 glowHP, CheckBox
Gui, Show, w326 h151, 123
return
lowHP:
gethp := getPlayerHealth()   
if (gethp < 15)   
  sleep 300
SendChatMessage("/usedrugs cocaine")   
return
GuiClose:
ExitApp

Но он почему-то не работат. Работает тогда, когда я поставлю галочку на CheckBox'e и только один раз.
Demy Дата: Четверг, 02.07.2015, 20:10 | Сообщение # 22
Бывалый
Сообщений: 422
Статус: Offline
Lockry, занят сейчас. Но вроде CheckBox не так работает.
Gui, Add, CheckBox, x92 y40 w100 h30 vLowHP, CheckBox
Потом Submit
и если LowHp = 1 - то галка стоит, иначе переменная равна нулю


AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1

У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
kostya6431 Дата: Четверг, 02.07.2015, 20:30 | Сообщение # 23
Новичок
Сообщений: 9
Статус: Offline
Клавиша для активации: удержание E
Описание скрипта\макроса: Нужно чтобы при удержании кнопки E, поочередно и быстро нажимались Y,N,Y,N,Y,N и т.д
Формат (txt\exe\ahk): ahk
Дополнительная информация (если нужно):
[CM]Pupsya Дата: Четверг, 02.07.2015, 21:14 | Сообщение # 24
Боец
Сообщений: 91
Статус: Offline
Клавиша для активации: F3 *
Описание скрипта\макроса: Нужно что бы ТПшился на метки и нажимал F ( С ног ) *
Формат (txt\exe\ahk): ank или cleo.cs *
Дополнительная информация (если нужно): *


Принимаю аккаунты 3+ ARP, SRP, DRP писать в ЛС

Мои темы:

Мой пиар - http://cheat-master.ru/forum/83-474439-1
Мои раздачи - http://cheat-master.ru/forum/188-485159-1
Баг на шахте - http://cheat-master.ru/forum/146-484419-1
Скупка аккаунтов http://cheat-master.ru/forum/96-489009-1


Сообщение отредактировал [CM]Pupsya - Четверг, 02.07.2015, 21:14
Lockry Дата: Четверг, 02.07.2015, 23:01 | Сообщение # 25
Боец
Сообщений: 88
Статус: Offline
Цитата Demy ()
Lockry, занят сейчас. Но вроде CheckBox не так работает.
Gui, Add, CheckBox, x92 y40 w100 h30 vLowHP, CheckBox
Потом Submit
и если LowHp = 1 - то галка стоит, иначе переменная равна нулю

Ну как освободишься, то помоги пожалуйста)

Добавлено (02.07.2015, 23:01)
---------------------------------------------

Цитата kostya6431 ()
Клавиша для активации: удержание E
Описание скрипта\макроса: Нужно чтобы при удержании кнопки E, поочередно и быстро нажимались Y,N,Y,N,Y,N и т.д
Формат (txt\exe\ahk): ahk
Дополнительная информация (если нужно):

Код
vk45::
sendinput {vk59}
sendinput {vk4e}
return
Demy Дата: Четверг, 02.07.2015, 23:21 | Сообщение # 26
Бывалый
Сообщений: 422
Статус: Offline
kostya6431,
Код
$у::
sleep 500
while GetKeyState("У","P")
send {VK59 Down}{VK59 Up}{VK4E Down}{vk4E Up}
return


[CM]Pupsya, тебе в клео раздел...

Добавлено (02.07.2015, 23:21)
---------------------------------------------
Lockry, выделил синим то, что вставил, разбирайся. Так, если галка стоит, после нажатия "Старт" заводится таймер, который каждый раз переходит к метке UseDrugs, а там, если hp меньше 15 юзается нарко..


AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1

У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ


Сообщение отредактировал Demy - Четверг, 02.07.2015, 23:22
Lockry Дата: Четверг, 02.07.2015, 23:56 | Сообщение # 27
Боец
Сообщений: 88
Статус: Offline
Demy, Нет. Я хотел чуть по другому. Ну типо нажал кнопку Доп. функции и там галки.
Код
Gui, 50:Add, Button, x342 y460 w100 h30 gNeWGui, Доп. Функции

NewGui:
Gui, Add, GroupBox, x12 y10 w600 h-40 ,   
Gui, Add, CheckBox, x27 y30 w580 h20 , 1
Gui, Add, CheckBox, x27 y50 w580 h20 , 2
Gui, Add, CheckBox, x27 y70 w580 h20 , 3
Gui, Add, CheckBox, x27 y90 w580 h20 , 4
Gui, Add, CheckBox, x27 y110 w580 h20 , 5
Gui, Add, CheckBox, x27 y130 w580 h20 , 6
Gui, Add, GroupBox, x12 y0 w610 h160 , GroupBox
Gui, Show, w638 h176, Дополнительные функции

Ах да как сделать чтобы 1-е окно сворачивалось когда я нажимал на кнопку Доп. функции.


Сообщение отредактировал Lockry - Пятница, 03.07.2015, 00:01
ENOT_1337 Дата: Пятница, 03.07.2015, 00:40 | Сообщение # 28
Новичок
Сообщений: 6
Статус: Offline
Цитата Demy ()
ENOT_1337, сделал. Остановка на Shift (нужно подержать пару секунд; работает кривовато остановка). При активации скрипта будет звук. Работает около 25 минут...
Код
!1::
SoundPlay *48
Loop 999999
{
    if GetKeyState("Shift")=1
     break
    C := A_Index
    While StrLen© != 6
     c = 0%c%
    SendInput %c%{enter}
    if GetKeyState("Shift")=1
     break
}
exit

Поставь задержку в 2сек перед каждым нажатием
Demy Дата: Пятница, 03.07.2015, 01:02 | Сообщение # 29
Бывалый
Сообщений: 422
Статус: Offline
Теперь работать будет оочень долго...
Код
!1::  
SoundPlay *48  
Loop 999999  
{  
     if GetKeyState("Shift")=1  
      break  
     C := A_Index  
     While StrLen(с) != 6  
      c = 0%c%  
     sleep 2000
     SendInput %c%{enter}  
     if GetKeyState("Shift")=1  
      break  
}  
exit

Добавлено (03.07.2015, 01:02)
---------------------------------------------
Lockry, Gui, 50: Cancel \ Gui, 50: Hide Для восстановления: Gui, 50: Show . Но зачем тебе сворачивать, если можно новое окно создать, Gui, 49 там..


AutoReporter / http://cheat-master.ru/forum/150-486717-1
Finder / http://cheat-master.ru/forum/160-497245-1
DLQ Binder / http://cheat-master.ru/forum/150-594163-1

У ТЕБЯ ЕСТЬ ИДЕЯ ДЛЯ ПРОГРАММЫ, НО САМ ТЫ НЕ МОЖЕШЬ НАПИСАТЬ КОД? ПИШИ МНЕ
Lockry Дата: Пятница, 03.07.2015, 01:15 | Сообщение # 30
Боец
Сообщений: 88
Статус: Offline
Demy, Сделал как ты сказал. Только как я закрыл окно доп функций и опять открваю выдаёт ошибку ahk
P.s я делал так..

Код
OK:
Gui, 50: Submit, HoHide
If LowHp = 1   
SetTimer, UseDrugs, 5000  

NeWGui:
Gui, 49:Add, GroupBox, x12 y10 w600 h-40 ,
Gui, 49:Add, CheckBox, x27 y30 w580 h20 vlowHP, 1
Gui, 49:Add, CheckBox, x27 y50 w580 h20 , 2
Gui, 49:Add, CheckBox, x27 y70 w580 h20 , 3
Gui, 49:Add, CheckBox, x27 y90 w580 h20 , 4
Gui, 49:Add, CheckBox, x27 y110 w580 h20 , 5
Gui, 49:Add, CheckBox, x27 y130 w580 h20 , 6
Gui, 49:Add, GroupBox, x12 y0 w610 h160 , GroupBox
Gui, 49:Show, w638 h176, Дополнительные функции
return
UseDrugs:
gethp := getPlayerHealth()
if (gethp < 15)
sleep 300
SendChatMessage("/usedrugs cocaine")
return


Сообщение отредактировал Lockry - Пятница, 03.07.2015, 01:16
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7210]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
parecnevkirill5 [14:21]

flybro1337 [22:50]

amerikasdfghjkl [20:32]

umarmagonedov21 [12:03]

vlabsbd [03:43]

jeffreycollman [23:06]

infait228_aye [20:43]

uradzordan5 [16:32]

Donater192814 [16:30]

ivanpro777ooo [22:18]

FoxyMix [21:38]

pororo39084723 [21:21]

Visionseh [20:29]