Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Антибот

тут можно задать вопрос по скриптингу
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Антибот

Post by Vizit0r »

не удивлюсь, если админ-разработчик с интересом читает эту тему :)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
messir
Neophyte
Neophyte
Posts: 19
Joined: 12.02.2010 23:36
Location: MSK

Re: Антибот

Post by messir »

Vizit0r wrote:не удивлюсь, если админ-разработчик с интересом читает эту тему :)
Ну тут спорно.. По сути на сервере осталось лишь 2 основные гильдии, воюющие между собой. В среднем постоянно онлайн 2-3 человека с окнами.. к вечеру онлайн поднимается до 10-20. Жестко макросить и усложнять добычу бестолку, так как по сути это будет борьба только с теми, кто увлекается скриптами :)
А те кто увлекается скриптами только рады новым трудностям, так как это значит, что нужно искать новые решения.

Мне пока со скрипом удается вспомнить макросы из-за длительного отсутствия. Еще больше сложней переключиться с синтаксиса инжекта на стелс: вчера убил минут 30, пока понял, что в условиях знак равенства для стелса, это просто "=", а не "==" которые я ставил и не воспринимал в коде как ошибку :(
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: Антибот

Post by drabadan »

Vizit0r wrote:не удивлюсь, если админ-разработчик с интересом читает эту тему :)
я думаю админ стыбрил ето с какогонить портала для уо, всунул подкрутил и работает.
Вообще вот ети все гампы ето какое то оскорбление на самом деле, мол мы будем бороться с макросерами, хотя по факту никому ни руда ни дерево нахер не нужны. Пусть вводят капчи на просто онлайн, пусть будет звонить специальная тетя на номер телефона и спрашивать - "Юра ето точно ты? Дружочек назови кодовое слово и покажи на камеру последние анализы."
Тьфу на них.
nah nah
Developer
Developer
Posts: 414
Joined: 13.07.2011 11:23
Contact:

Re: Антибот

Post by nah nah »

drabadan wrote:поидее "сумма" пути для каждой цифры будет разной и можно посчитать примерно для каждой цифры ету длинну, конечно с учетом мультипликатора который можно найти средним расстоянием между точками откинув уникальные по количеству тыков цифры.
У шестёрки и девятки одинаковая сумма.
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: Антибот

Post by drabadan »

nah nah wrote:
drabadan wrote:поидее "сумма" пути для каждой цифры будет разной и можно посчитать примерно для каждой цифры ету длинну, конечно с учетом мультипликатора который можно найти средним расстоянием между точками откинув уникальные по количеству тыков цифры.
У шестёрки и девятки одинаковая сумма.
если каждое смещение множить на индекс то разные ( первое смещение в 5 пикселей * 1 + второе в 5 пикселей * 2 + третье смещение в 5 пикселей * 3 ... + x * n = sum)
messir
Neophyte
Neophyte
Posts: 19
Joined: 12.02.2010 23:36
Location: MSK

Re: Антибот

Post by messir »

Дабы темы не плодить, спрошу тут...
Как использовать массив переменных и их объявлять...
если объяснить на пальцах:

Code: Select all

var
i : String;
a1, a2, a3, ...., aN : Integer;
дальше в скрипте каким-либо образом они используются, а дальше надо эти переменные перебрать по очереди в цекле типа

Code: Select all

For i := 0 to 10 do
begin
   a[i] := //какая-нибудь задача
end;
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Антибот

Post by Vizit0r »

налицо неправильная постановка задачи.
для чего тебе именно косяк переменных - чем обычный массив не подходит?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
messir
Neophyte
Neophyte
Posts: 19
Joined: 12.02.2010 23:36
Location: MSK

Re: Антибот

Post by messir »

Vizit0r wrote:налицо неправильная постановка задачи.
для чего тебе именно косяк переменных - чем обычный массив не подходит?
Имеешь ввиду

Code: Select all

DIM a[10]
a[1] :=
a[2] :=
...
a[1-0] :=
?
я по этому моменту не смог найти подробного описания и синтаксиса
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Антибот

Post by Vizit0r »

var xxx : array[0..2] of Integer;

устанавливать:

можно
xxx[Z] := 999;
можно
xxx := [777,888,999];

это ж обычный, простейший паскаль.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
messir
Neophyte
Neophyte
Posts: 19
Joined: 12.02.2010 23:36
Location: MSK

Re: Антибот

Post by messir »

Дабы не плодить новых тем, продолжу мной созданную...

Решил с нуля переписать скрипт, по аналогии с инжекта и в процессе возникли некоторые трудности:
1) как сделать шаг для For?
2) Я так понимаю в паскале нет возможности команду return? А как ее заменить? В инже было так:

Code: Select all

for i = 0 to aaa[b] step stp[/b]
      if условие then
         return prm[i]
      endif
   next
   return false
Но временно закрывая такие строки, возникли ошибки при компиляции на GetGlobal и SetGlobal. Ругается на эту строчку

Code: Select all

gg := GetGlobal('stealth','t:'+str(x+cx)+','+str(y+cy));
Compiler: [Error] (Test.sc at 77:49): Invalid number of parameters
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Антибот

Post by Vizit0r »

1)шага в for нет.
Если оно сильно надо, то через while

Code: Select all

while условие do
begin
  i := i + step
  ....
end;
2) Return - это Exit;
Если выйти с возвратом - то
REsult := xxx;
Exit;

3)Тебе надо обычная inttostr
function Str : Integer возвращает STR своего чара. К строкам не относится никак вообще.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
GeeZeR
Apprentice
Apprentice
Posts: 226
Joined: 28.01.2012 19:48

Re: Антибот

Post by GeeZeR »

Так что - решил проблему с гампом? Скрипт в студию!

Шаг в for можно так сделать:

Code: Select all

Program New;

var
i, Step:word;
begin
	Step := 3;
	for i:=0 to 10 do begin	
		AddToSystemJournal(IntToStr(i));
		i:=i+Step-1;
	end;
end.
Stealth 8.10.2 | Клиент: 7.0.13.4
Post Reply