С мира по нитке

[yurka]

Привет, скрипты не мои, по этому извиняюсь если повторяются или это именно ваш скрипт. Сам пишу не сложные, учусь.Здесь буду вылаживать всё что есть(почти)).

capcha and back to spot



procedure backtospot;
function CheckStatus: Boolean;
begin
Result:=true;
if User.Dead then begin
Delay(1000);
Engine.FaceControl(0,false);
Engine.GoHome;
Delay(10000);
end;
Result:=false;
end;


begin
while true do begin
delay(150);
CheckStatus;
if user.inrange(-178392, 153384, 2488,350) then begin
engine.settarget(32734);
engine.dlgopen;
engine.dlgsel(1);
end;


if user.inrange(-180216, 185825, -10560,500) then begin
Engine.MoveTo(-178952, 187048, -10704);
Engine.MoveTo(-178904, 187096, -10704);
Engine.MoveTo(-179016, 187768, -10712);
Engine.MoveTo(-178696, 188088, -10744);
Engine.MoveTo(-180184, 181816, -15096);




end;


if user.inrange(-180184, 181816, -15096, 300) then begin
engine.facecontrol(0,true);
end;
end;
end;


begin


uses sysutils,classes;
var
tOldDlg,txt:string;


function SetForegroundWindow(hwnd: integer) : Boolean; stdcall; external 'user32.dll';

Procedure OnFree;
begin
Engine.FaceControl(0,False);
Engine.Msg('Adrenalin5.ru','Спасибо за использование наших скриптов с ув. команда Adrenalin5.ru',200);
end;


procedure Captcha;
begin
while true do
begin
delay(300);
if Engine.Status = lsOnline then
begin
if tOldDlg<>engine.dlgtext then
//if pos('captcha',engine.dlgtext)>0 then//По тексту
begin
tOldDlg:=engine.dlgtext;
Engine.BlinkWindow;//Мигание окошка
SetForegroundWindow(Engine.GameWindow);//развернет окно
PlaySound(exepath + '\sounds\sirena.wav', False);//Музычка
end;
delay(300);
end;
end;
end;




begin
Script.NewThread(@Captcha);
//любой скрипт код ниже
end.
Спам в чат

var s:string;
begin
s:='!';
while true do begin
Engine.Say(' ваш текст',1,s);
delay(10000); //ждём 10 секунд и спамим заново
end;
end.


спам

анти

ег кач

раш

снять баф

кто в этих не разобрался пишите помогу

 

[yurka]

лсы с релогом

 

[yurka]

это к ЛСам прога, хотя использовал даже для вставки атт

 

[yurka]

полный скрипт на ноблес для буржуйской фришки талес-картель. 1.71анг версия бота для других серверов минимальные изменения

 

[rio]

крутые скрипты, спс что поделились

 

[AlexApache]

@yurka, а в нубл квесте все 3 части? + проверки и случаи смерти?

 

[FullTork]

Полезно!) жаль что не все рабочие

 

[yurka]

@FullTork,
все рабочие, но нужно настроить или под перса/серв. В чём нужно разобраться пиши

 

[imsrl]

Так все эти скрипты есть в шаре. Да и на сайте этом есть.

Хотя мб датой ошибаюсь я.

 

[SARCAZM]

snyat buf za 1 seky do konca.txt Количество загрузок: 10

Этот скрипт совсем добил. Смысл от него?)

 

[yurka]

@SARCAZM,
если играл на ГоД то должин знать, что цел хилов снимаеш и можно юзать опять цел, дебаф не ложиться который запрещает повторный юз скила
да и с ним можно много придумать, например снимать шилку с бп только выставить не 1 сек а 58 не???? ??????????????????????????????????????????????????????????????логика хз

 

[FlyWind]

antiBS; holdtarget; antidiasrm.txt как запустить этот скрипт?) выдает ошибку)

 

[SARCAZM]

@FlyWind какую ошибку? на какой строке? скрин?

 

[FlyWind]

@SARCAZM вот

 

[SARCAZM]

@FlyWind SettingsModule у тебя пропущен.
Нужно положить в папку со скриптом (либо с адреналином) этот файл
Посмотреть вложение SettingsModule.txt

 

[FlyWind]

@SARCAZM это основа для всех скриптов?) ты где его взял? или я ослеп?

 

[SARCAZM]

@FlyWind это скрипты от @iRevThis . Он их выложил в сеть и все они требуют модуля для настроек

 

[fleeky]

эх, репки на нобл скрипт не хватает

 

[ZedKei]

А зачем нужно снимать баф за секунду до конца?

 

[iambelik]

timer := EncodeDate(2014, 12, 22);
if (AbDateTimeToUnixTime(timer) < AbDateTimeToUnixTime(now)) then
begin
print('Test time fired');
print('Developer ICQ - 670465907');
exit;
end;


а это для чего?