Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Большая просьба помочь со скриптом на баф

Рег
19 Апр 2017
Сообщения
4
Реакции
0
Скрипт на баф с книжки. Возможно ошибка синтаксиса, но я ее в упор не вижу, пожалуйста помогите разобраться..

uses sysutils;
var o: TL2Buff; id2: integer; np: TL2Npc; bstr: boolean;
procedure singleBuff(name,forx:string);
var cmd: string; id: cardinal;
begin
Case name of

//Конь
'GiftofSeraphim' :
begin
id := 1203981; id2 := 4703;
end;

//Резисты
'ResistAqua' :
begin
id := 302595; id2 := 1182;
end;
'ResistShock' :
begin
id := 322308; id2 := 1268;
end;
'ElementalProtection' :
begin
id := 346113; id2 := 1352;
end;
'DivineProtection' :
begin
id := 346369; id2 := 1353;
end;
'SongofFlameGuard' :
begin
id := 78337; id2 := 306;
end;
'SongofStormGuard' :
begin
id := 78849; id2 := 308;
end;
'DanceofAqua' :
begin
id := 78593; id2 := 307;
end;

// Селфы
'Shield' :
begin
id := 266243; id2 := 1040;
end;
'GreaterMight' :
begin
id := 355331; id2 := 1388;
end;
'Empower' :
begin
id := 271107; id2 := 1059;
end;
'GreaterShield' :
begin
id := 355587; id2 := 1389;
end;
'BerserkerSpirit' :
begin
id := 271874; id2 := 1062;
end;
'ProphecyofWater' :
begin
id := 346881; id2 := 1355;
end;
'Might' :
begin
id := 273411; id2 := 1068;
end;
'ProphecyofFire' :
begin
id := 347137; id2 := 1356;
end;
'Focus' :
begin
id := 275715; id2 := 1077;
end;
'ProphecyofWind' :
begin
id := 347393; id2 := 1357;
end;
'Concentration' :
begin
id := 275974; id2 := 1078;
end;
'MagnusChant' :
begin
id := 361729; id2 := 1413;
end;
'Acumen' :
begin
id := 277763; id2 := 1085;
end;
'VictoryofPaagrio' :
begin
id := 2631169; id2 := 10278;
end;
'WindWalk' :
begin
id := 308226; id2 := 1204;
end;
'ChantofVictory' :
begin
id := 2631425; id2 := 10279;
end;
'WildMagic' :
begin
id := 333570; id2 := 1303;
end;
'VampiricRage' :
begin
id := 324612; id2 := 1268;
end;
'MagicBarrier' :
begin
id := 265218; id2 := 1036;
end;
'BlessedBody' :
begin
id := 267526; id2 := 1045;
end;
'BlessedSoul' :
begin
id := 268294; id2 := 1048;
end;
'Haste' :
begin
id := 278018; id2 := 1086;
end;
'Guidance' :
begin
id := 317443; id2 := 1240;
end;
'DeathWhisper' :
begin
id := 317955; id2 := 1242;
end;
'HolyWeapon' :
begin
id := 267009; id2 := 1043;
end;
'MentalShield' :
begin
id := 264964; id2 := 1035;
end;
'Clarity' :
begin
id := 357635; id2 := 1397;
end;
'DanceofFire' :
begin
id := 70145; id2 := 274;
end;
'SongofWarding' :
begin
id := 68353; id2 := 267;
end;
'Invigor' :
begin
id := 264195; id2 := 1032;
end;
'DanceofLight' :
begin
id := 70913; id2 := 277;
end;
'SongofWind' :
begin
id := 68609; id2 := 268;
end;
'KissofEva' :
begin
id := 274690; id2 := 1073;
end;
'DanceofInspir' :
begin
id := 69633; id2 := 272;
end;
'SongofHunter' :
begin
id := 68865; id2 := 269;
end;
'Regeneration' :
begin
id := 267267; id2 := 1044;
end;
'DanceofMystic' :
begin
id := 69889; id2 := 273;
end;
'SongofLife' :
begin
id := 67841; id2 := 265;
end;
'Agility' :
begin
id := 278275; id2 := 1087;
end;
'DanceofCon' :
begin
id := 70657; id2 := 276;
end;
'SongofEarth' :
begin
id := 67585; id2 := 264;
end;
'DecreaseWeight' :
begin
id := 321795; id2 := 1257;
end;
'DanceofWarrior' :
begin
id := 69377; id2 := 271;
end;
'SongofWater' :
begin
id := 68097; id2 := 266;
end;
'DanceofFury' :
begin
id := 70401; id2 := 275;
end;
'SongofVitality' :
begin
id := 77825; id2 := 304;
end;
'DanceofVampire' :
begin
id := 79361; id2 := 310;
end;
'SongofMeditation' :
begin
id := 92929; id2 := 363;
end;
'SirensDance' :
begin
id := 93441; id2 := 365;
end;
'SongofRenewal' :
begin
id := 89345; id2 := 349;
end;
'SongofChampion' :
begin
id := 93185; id2 := 364;
end;
end;
if (forx = 'me') then
cmd := 'sb_r_b_p' else
begin
cmd := 'sb_r_b_s';
if (id=355331)or(id=355587)or(id=346881)or(id=347137)or(id=347393)or(id=361729)or(id=2631169)or(id=2631425)or(id=93441)or(id=89345)or(id=93185)
then id := 0; //not allowed for pet
end;
if (id > 0) then
begin
while user.InCombat do
delay(100);
if bstr then
begin
engine.bypasstoserver('sb_r_d_p#9516');
delay(600+random(300));
bstr := false;
end;
while not user.buffs.byid(id2,o) and not user.dead do
begin
engine.bypasstoserver(cmd+'?id='+inttostr(id)+'#9516');
delay(600+random(300));
end;
end;

begin
singleBuff;
end.
 
Назад
Сверху