Stealth Client Forum

Code: Select all

Program Peacemaking;
var t:integer;
Begin
SetARStatus(true);{Включаем реконнектор}
while true do {Зацикливаем скрипт}
 begin
  if Connected then
  begin
    for t := 0 to 30 do
    begin
        WaitTargetSelf; 
        UseSkill('Peacemaking'); {Юзаем скилл писмейкинг}
        Wait(5000);
        AddToSystemJournal('Peacemaking'); {В системном журнале пишем что скрипт нормально работает}
        Wait(6000);
        end;
    
end;
end;
End.

Code: Select all

11:49:23:875 [Aaa(ELF)]: Character xxxxxxxx Connected.
11:49:24:937 [Aaa(ELF)]: Compiling
11:49:25:359 [Aaa(ELF)]: Compiler: [Error] ( at 360:8):  "end" expected but "Cast" found ;
Error line is: "     Cast ('Summon Familiar'); "
11:49:25:359 [Aaa(ELF)]: Compiling failed
11:49:25:359 [Aaa(ELF)]: Script 00_a_wither_h_tim+sh.sc stopped successfuly

Code: Select all

procedure SummonFamiliar;
begin
    for i:= 0 to GetGumpsCount-1 do 
        begin
            if IsGumpCanBeClosed(i) then
                CloseSimpleGump(i);
        end;
    WaitGump('2')
    Cast ('Summon Familiar');
end;

Code: Select all

procedure SummonFamiliar;
begin
    for i:= 0 to GetGumpsCount-1 do 
        begin
            if IsGumpCanBeClosed(i) then
                CloseSimpleGump(i);
        end;
    WaitGump('2'); <======
    Cast('Summon Familiar');
end;