[Создание] Чекер /gnews - Форум Cheat-Master.ru

  • Страница 1 из 1
  • 1
Модератор форума: tumkin, Junger  
Форум » Программирование » AHK Программирование » [Создание] Чекер /gnews
[Создание] Чекер /gnews
SanMartinДата: Воскресенье, 21.08.2016, 13:42 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 13
Статус: Offline
Доброго времени суток, читеры и умельцы создавать годные скрипты. Сам я совсем не шарю в скриптах, решил обратиться сюда. Интересует АНК, который чекал бы последние гос.новости и, соответственно, показывал прошедшее после них время.
Если может быть у кого есть/сможете создать, отпишитесь пожалуйста happy


Господин

Сообщение отредактировал SanMartin - Воскресенье, 21.08.2016, 13:42
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Воскресенье, 21.08.2016, 17:02 | Сообщение # 2
В рядах СМ.
Группа: Заблокированные
Сообщений: 344
Статус: Offline
Могу, но не бесплатно, решай сам. Если хочешь то пиши в личку

Помогаю новичкам!
По всем вопросам в ЛС!
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Понедельник, 22.08.2016, 13:29 | Сообщение # 3
Боец
Группа: Заблокированные
Сообщений: 294
Статус: Offline
Разбирайся сам: (Скрипт не мой, автора не знаю)
Код
StringCaseSense, Locale
Connected := 0
GN3Im := 0
GN1Im := 0
global usdacha := 0
global uprov := 0
global varnext := 0
script_version := "1.4"
url_script := "https://drive.google.com/open?id=0BwfYrU5QBG26VUY3U09QbWltNGc"
url_version := "https://drive.google.com/uc?id=0BwfYrU5QBG26ZWRDaUFWV29LVEE&export=download"
SetTimer GetLastVersionSoftUp, 200
IniRead, EditN1, config.ini, Setup, GNews31, [Фракция] | Строка 1
IniRead, EditN2, config.ini, Setup, GNews32,  [Фракция] | Строка 2
IniRead, EditN3, config.ini, Setup, GNews33,  [Фракция] | Строка 3
IniRead, EditGN1, config.ini, Setup, GNews1,  [Фракция] | Короткая строка
IniRead, IntGN3, config.ini, Setup, GNews3Int, 10
IniRead, IntGN1, config.ini, Setup, GNews1Int, 3
IniRead, IntBstr, config.ini, Setup, GNewsIntBstr, 1000
Gui, Add, Button, x60 y300 w80 h43 gGO Default, Управление
Gui, Add, Button, x400 y300 w80 h43 gAbout, Об авторе
Gui, Add, Text, x10 y10, Gnews 3 строки:
Gui, Add, Text, x10 y40, Строка 1
Gui, Add, Edit, x80 y40 w430 vEditN1, %EditN1%
Gui, Add, Text, x10 y70 , Строка 2
Gui, Add, Edit, x80 y70 w430 vEditN2, %EditN2%
Gui, Add, Text, x10 y100 , Строка 3
Gui, Add, Edit, x80 y100 w430 vEditN3, %EditN3%
Gui, Add, Text, x10 y140, Gnews 1 строка:
Gui, Add, Edit, x80 y160 w430 vEditGN1, %EditGN1%
Gui, Add, Text, x310 y200 h20 , Автоматическое время подачи
Gui, Add, Text, x310 y215 h20 ,    Часы:  Минуты: Cекунды:
Gui, Add, Edit, x310 y230 w30 h20 vtHour number, %A_Hour%
Gui, Add, Edit, x350 y230 w30 h20 vtMin number, %A_Min%
Gui, Add, Edit, x390 y230 w30 h20 vtSec number, 00
Gui, Add, Text, x10 y200, Интервал между 3 строками:
Gui, Add, Text, x250 y200, (мин.)
Gui, Add, Edit, x200 y200 w40 vIntGN3 number, %IntGN3%
Gui, Add, Text, x10 y230, Интервал между 1 строкой:
Gui, Add, Text, x250 y230, (мин.)
Gui, Add, Edit, x200 y230 w40 vIntGN1 number, %IntGN1%
Gui, Add, Text, x10 y260, Интервал между строками:
Gui, Add, Text, x250 y260, (мсек.)
Gui, Add, Edit, x200 y260 w40 vIntBstr number, %IntBstr%
Gui, Show, w530 h370, Leader + Gnews Diamond RP %script_version%
FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Stringhelp := "Напоминалка и автоматическая подача GNews для Diamond RP`n`nF1 - Включение\отключение автоматического GNews`n Ctrl + F1 - Подача 1 строки `n Ctrl + F2 - Подача 3 строк"
loop
{
lastline := GetNewLine(FileCLog)
if RegExMatch( lastline, "Connected. Joining the game\.\.\.")
Connected := 0
if RegExMatch( lastline, "i).*\[Гос\.Новости\] \w+ \[\d+\]:")
{
Gui, Submit, NoHide
IntGN1 := %IntGN1% * 60 * 1000
IntGN3 := %IntGN3% * 60 * 1000
STime:=% A_Hour ""A_Min ""A_Sec
if (NHPTime<STime)
{
NHPTime:=% A_Hour ""A_Min ""A_Sec
NHPTime:=NHPTime+10
GNewsRep:=1
SetTimer, Updategnews, %IntGN1%
}
else
{
GNewsRep:=GNewsRep + 1
if (GNewsRep >= 3)
SetTimer, Updategnews3, %IntGN3%
}
if (GNewsRep >= 3)
addChatMessage("{FFff00}Таймер GNews на 3 строки запущен.")
else
if (GNewsRep = 1)
addChatMessage("{aaff00}Таймер GNews на 1 строку запущен.")
}
if !Connected
{
Gui, Submit, NoHide
IntGN1 := IntGN1 * 60 * 1000
IntGN3 := IntGN3 * 60 * 1000
if RegExMatch( lastline, "i).*Добро пожаловать на Diamond Role Play!") or lastline
{
addChatMessage("Таймеры GNews запущены!")
Connected := 1
SetTimer, Updategnews3, %IntGN3%
SetTimer, Updategnews, %IntGN1%
}
}
if (varnext = 3) and (GN1Im = 1)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
Gui, Submit, NoHide
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
if (varnext = 2) and (GN3Im = 1)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
Gui, Submit, NoHide
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
}
UpdateGnews3:
Gui, Submit, NoHide
if !GN3Im
{
addChatMessage("{FF0000}3 Строки {00FF00} GNews Свободна")
GN3Im := 1
}
if Usdacha or GN3Im
{
if (varnext = 0)
{
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
else if (varnext = 2)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
SendChat("/time")
SendChat("/gnews " EditN1)
Sleep %IntBstr%
SendChat("/gnews " EditN2)
Sleep %IntBstr%
SendChat("/gnews " EditN3)
Send {F8}
Usdacha := 0
GN3Im := 0
}
}
SetTimer, Updategnews3, Off
return
UpdateGnews:
Gui, Submit, NoHide
if !GN1Im
{
addChatMessage("{FF0000}1 Строка {00FFFF} GNews Свободна")
GN1Im := 1
}
if uprov or GN1Im
{
if (varnext = 1)
{
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
else if (varnext = 3)
if (A_Hour = tHour) and (A_Min => tMin) and (A_Sec >= tSec)
{
SendChat("/time")
SendChat("/gnews " EditGN1)
ustav := 0
Send {F8}
GN1Im := 0
}
}
SetTimer, Updategnews, Off
return
^F1::
GN1Im := 1
Gosub, UpdateGnews
return
^F2::
GN3Im := 1
Gosub, UpdateGnews3
Return
F1::
Gui, Submit, NoHide
if ustav
{
if (usdacha = 1)
if (varnext = 0) or (varnext = 2)
{
addChatMessage("Подача 3 строки: Выключена")
usdacha:=0
}
if (uprov = 1)
if (varnext = 1) or (varnext = 3)
{
uprov:=0
addChatMessage("Подача 1 строки: Выключена")
}
ustav := 0
if (varnext < 3)
{
varnext +=1
}
else
varnext :=0
}
else
{
if (usdacha = 0) and (varnext = 0)
{
addChatMessage("Автоматическая подача 3 строки по интервалу: {FFAA00}Включена")
usdacha:=1
}
if (uprov = 0) and (varnext = 1)
{
uprov:=1
addChatMessage("Автоматическая подача 1 строки по интервалу: {FFAA00}Включена")
}
if (usdacha = 0) and (varnext = 2)
{
addChatMessage("Автоматическая подача 3 строки по времени (Не раньше " tHour ":" tMin ":" tSec "): {FFAA00}Включена")
usdacha:=1
}
if (uprov = 0) and (varnext = 3)
{
uprov:=1
addChatMessage("Автоматическая подача 1 строки по времени (Не раньше " tHour ":" tMin ":" tSec "): {FFAA00}Включена")
}
ustav := 1
}
return
GO:
MsgBox, 48,,%Stringhelp%
return
About:
Gui, 2:Add, Text,,Другие полезные скрипты для Diamond RP:
UrlAHKLinks  := "https://drive.google.com/uc?id=0BwfYrU5QBG26UGRpSVllRHh3U1U&export=download"
URLDownloadToFile, %UrlAHKLinks%, %A_Temp%/UrlAHKLinks
Loop, read, %A_Temp%/UrlAHKLinks
{
if A_LoopReadLine
Gui, 2:Add, Link,,%A_LoopReadLine%
}
Gui, 2:Add, Text,,Версия %script_version%
Gui, 2:Add, Text,,        By Godarck
Gui, 2:Show
return
GuiClose:
Gui, Submit, NoHide
IniWrite, %EditN1%, config.ini, Setup, GNews31
IniWrite, %EditN2%, config.ini, Setup, GNews32
IniWrite, %EditN3%, config.ini, Setup, GNews33
IniWrite, %EditGN1%, config.ini, Setup, GNews1
IniWrite, %IntGN3%, config.ini, Setup, GNews3Int
IniWrite, %IntGN1%, config.ini, Setup, GNews1Int
IniWrite, %IntBstr%, config.ini, Setup, GNewsIntBstr
MsgBox, 48, Успешно, Настройки сохранены.
ExitApp
return
GetNewLine(filename)
{
static old
static new
if !old
{
FileGetSize, old, %filename%
new := old
}
while old = new
{
sleep 100
FileGetSize, new, %filename%
}
old := new
Loop, read, %filename%
if A_LoopReadLine
{
global lastline11:= last
last := A_LoopReadLine
}
return last
}
GetLastVersionSoftUp:
URLDownloadToFile, %url_version%, %A_Temp%/79124
FileRead, Last_Version, %A_Temp%/79124
FileDelete, %A_Temp%/79124
if (script_version < last_version)
{
MsgBox, 4 ,Новая версия, Обнаружена новая версия программы! %last_version%`nНажмите "Yes" для перехода к скачиванию.
IfMsgBox Yes
{
Run, %url_script%
ExitApp
}
}
SetTimer GetLastVersionSoftUp,off
return


https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
McFree_Дата: Понедельник, 22.08.2016, 15:17 | Сообщение # 4
В рядах СМ.
Группа: Заблокированные
Сообщений: 344
Статус: Offline
RellaX, код слишком жестокий. у меня все гораздо проще, нажимешь F2 и выдает инфу в диалоге опоследней новости (Автор, ID, Время, разница во времени и сам текст). Никаких гуи даже не нужно



Помогаю новичкам!
По всем вопросам в ЛС!


Сообщение отредактировал McFree_ - Понедельник, 22.08.2016, 15:25
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
ASTAKH[CM]Дата: Понедельник, 22.08.2016, 15:32 | Сообщение # 5
♥TOP CHEATER♥
Группа: Заблокированные
Сообщений: 215
Статус: Offline
Отлично
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
RellaXДата: Понедельник, 22.08.2016, 19:23 | Сообщение # 6
Боец
Группа: Заблокированные
Сообщений: 294
Статус: Offline
McFree_, Полностью согласен. Бесплатное должно быть хуже платного)

https://vk.com/zatkap
Последние товары с игрового магазина:
Найти еще что-нибудь в магазине:
Форум » Программирование » AHK Программирование » [Создание] Чекер /gnews
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшие пользователи Новые пользователи
Раздача WOT [earl111]

Продам аккаунт Advance-RP [Balanda]

[Diamond-RP] Бот дальнобо... [cover]

(Все_отлично) [VIPshot]

[1915287] Rollcase |... [Marsellka1337]

CКУПКА ПРОДАЖА АККАУНТОВ ... [[СМ]Masik]

Кто нить знает это? [Kardan[CM]]

[Статья] Кидалы и все о н... [JetMan]

Где можно пофармить на ре... [Saibot]

[DRP] [UPD: 12.04.18] Hou... [NiceSmoth]

[SAMP] TaskKiller [iliayu]

Кнопка БАБЛО всего за 500... [unbear]

[1]>[0.3z][RUS] S0beit modified by MishaN [10001]

[2]>Курилка [10000]

[3]>Поиск CLEO скриптов | Вопросы по клео скриптам [9988]

[4]>Флудильная [9936]

[5]>Курилка [9688]

[6]>Курилка [9614]

[7]>RakBot - Качай аккаунты не напрягаясь! [9583]

[8]>Общение читеров [CM] [9546]

[9]>S0beit - pr9n project for samp 0.3.7 [9490]

[10]>Часто задаваемые вопросы... [8224]

[11]>Скуплю Advance по 300р за 1кк и DIamond по 250р [7624]

[12]>Вопросы и ответы [6466]

[1]>АК_47 [30861]

[2]>GеNius [7005]

[3]>romka619 [5400]

[4]>[CM]Russel [5193]

[5]>[CM]AGRESSOR [4653]

[6]>Сэс [4430]

[7]>Snake_Firm [4372]

[8]>Artem_Buero [4177]

[9]>[CM]Durman [3272]

[10]>sky_Woker [2997]

[11]>iMaddy [2871]

[12]>[CM]Рафаэль [2767]

[13]>Sa1nteD [2693]

[14]>Ch0c0Cube [2453]

[15]>BY [2331]

artemlongvich [26.04.2018|07:57]

ricardo_rivers123 [26.04.2018|07:37]

EASYFLEX [26.04.2018|06:16]

xXXArizonaXXx [26.04.2018|05:08]

PozParen [26.04.2018|04:53]

scandalker32 [26.04.2018|04:22]

Tigeror [26.04.2018|03:55]

flyguard1337 [26.04.2018|02:04]

Tom_Blackberry [26.04.2018|01:47]

Tailies [26.04.2018|01:42]

Jegors20 [26.04.2018|01:20]

Meneros [26.04.2018|00:45]

MrRedDevil [26.04.2018|00:28]

kitsunexd3211 [26.04.2018|00:21]

pleaseduke [26.04.2018|00:03]


CM Team © 2009-2018 Администрация не несёт ответственности за размещённые материалы. Условия пользования
Все материалы предоставлены в ознакомительных целях и администрация предлагает удалить их после ознакомления.

Положение о защите персональных данных на сайте, Пользовательское соглашение, Договор оказания услуг.