Сообщения без ответов | Активные темы Текущее время: Чт сен 20, 2018 7:20 pm



Ответить на тему  [ Сообщений: 2 ] 
БД + СвС настройка выхода из пати 
Автор Сообщение
Куда я попал

Зарегистрирован: Чт май 21, 2015 11:55 pm
Сообщений: 43
Сообщение БД + СвС настройка выхода из пати
Наваял скрипт когда бот чекает по последнему сонгу наличие и раздает песнепляски,
стоит задача выкидывать бд на сонг Свса и наоборот. Подскажите как по уму реализовать, что бы не просирать всю ману, например если бд застанят на момент последнего дэнса.
Код:
const  BD='NameBD';
const SWS='NameSwS';
var
ChanT: Tl2Control;
 NPC: TL2Char;
function SongTime: boolean;
var Song: TL2Buff;
 
  begin
 if (User.Buffs.Byid(268, Song))
 and (Song.EndTime>0) then Result:=true
 else Result:=false;
end;

  begin
 while SongTime=false do begin
 ChanT:=GetControl(BD);
 ChanT.FaceControl(0,false);
 ChanT.useskill(274);
 delay(100);
 ChanT.useskill(271);
 delay(100);
 ChanT.useskill(275);
 delay(100);
 ChanT.useskill(276);
 delay(100);
 ChanT.FaceControl(0, true);
 ChanT:=GetControl(SWS);
 ChanT.FaceControl(0,false);
 ChanT.useskill(269);
 delay(500);
 ChanT.useskill(268);
 delay(500);
 ChanT.FaceControl(0, true);
 end;
delay(5000);
  end.


Вс сен 09, 2018 11:24 am
Профиль
Куда я попал

Зарегистрирован: Чт май 21, 2015 11:55 pm
Сообщений: 43
Сообщение Re: БД + СвС настройка выхода из пати
выше херню написал) там без цикла
Код:
const  BD='BDName';
const SWS='SwSName';
var
 ChanT: Tl2Control;
 NPC: TL2Char;
function SongTime: boolean;
var Song: TL2Buff;
begin
 if (User.Buffs.Byid(268, Song))
 and (Song.EndTime>0) then Result:=true
 else Result:=false;
end;

begin
ChanT:=GetControl(BD);
 ChanT.FaceControl(0,false);
 ChanT.useskill(274);
 delay(500);
 ChanT.useskill(271);
 delay(500);
 ChanT.useskill(275);
 delay(500);
 ChanT.useskill(276);
 delay(500);
 ChanT.FaceControl(0, true);
 ChanT:=GetControl(SWS);
 ChanT.FaceControl(0,false);
 ChanT.useskill(269);
 delay(500);
 ChanT.useskill(268);
 delay(500);
 ChanT.FaceControl(0, true);
  while 1=1 do begin
 if SongTime=false then begin
 
 end;
delay(5000);
  end;
end.


Вс сен 09, 2018 11:32 am
Профиль
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 2 ] 

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Разработано: g-yar.
Русская поддержка phpBB