Перейти к содержимому

Фотография
- - - - -

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



  • Авторизуйтесь для ответа в теме
Сообщений в теме: 27

#1
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

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

 

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.

спам


анти


ег кач


раш


снять баф


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


  • 5

#2
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

лсы с релогом

Прикрепленные файлы


  • 0

#3
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

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

Прикрепленные файлы


  • 1

#4
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

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

 

Скрытый текст
Написать 15 сообщений и набрать 3 балла репутации (15 осталось)

Прикрепленные файлы


Сообщение отредактировал SARCAZM: 29 Октябрь 2015 - 15:08

  • 5

#5
rio

rio
  • 13
    0
    Все круто
    • Lvl 10
    • Пользователь

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


  • 0

#6
AlexApache

AlexApache

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


  • 0

#7
FullTork

FullTork
  • 2
    0
    Не выбрано
    • Гремлин
Полезно!) жаль что не все рабочие
  • 0

#8
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

FullTork,

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


  • 0

#9
n373rg173up

n373rg173up

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


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


  • 0

#10
SARCAZM

SARCAZM

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

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


  • 0

#11
yurka

yurka
  • 45
    15
    В страхе
    • Lvl 24
    • Пользователь
    ВКонтакте
    VContakte

SARCAZM,

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

да и с ним можно много придумать, например снимать шилку с бп только выставить не 1 сек а 58 не???? ??????????????????????????????????????????????????????????????логика хз


  • 0

#12
FlyWind

FlyWind

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


  • 0

#13
SARCAZM

SARCAZM

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


  • 0

#14
FlyWind

FlyWind

@SARCAZM вот  :wtf:

Прикрепленные изображения

  • ядцп.png

  • 0

#15
SARCAZM

SARCAZM

@FlyWind SettingsModule  у тебя пропущен.

Нужно положить в папку со скриптом (либо с адреналином) этот файл

Прикрепленный файл SettingsModule.txt


  • 1

#16
FlyWind

FlyWind

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


  • 0

#17
SARCAZM

SARCAZM

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


  • 0

#18
fleeky

fleeky

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


  • 2

#19
ZedKei

ZedKei
  • 48
    13
    Новогоднее
    • Lvl 25
    • Пользователь
    ВКонтакте
    ZedKei
    Skype
    Zaic69
    Город
    Moskva

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


  • 0

#20
iambelik

iambelik
  • 26
    0
    Горит!
    • Lvl 17
    • Пользователь
  timer := EncodeDate(2014, 12, 22);
  if (AbDateTimeToUnixTime(timer) < AbDateTimeToUnixTime(now)) then
  begin
    print('Test time fired');
    print('Developer ICQ - 670465907');
    exit;
  end;
 
 
а это для чего?

  • 0



Темы с аналогичным тегами Наработки

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.su - Сделано с для игроков.