как сюда докрутить чтобы он при команде Bless! кастовал только Bless?
procedure OnSpeech(Text, SenderName: String; SenderID: Cardinal);
Code: Select all
begin
if (not Casting) and (Text = 'Cast!') then begin
for i := 0 to Length(Friends) - 1 do begin
if i >= Length(Friends) then Break;
if SenderID = Friends[i] then begin
Casting := True;
DoCast(SenderID);
Casting := False;
Break;
end;
end;
end;
end;
Code: Select all
begin
if (not Casting) and (Text = 'Cast!') then begin
for i := 0 to Length(Friends) - 1 do begin
if i >= Length(Friends) then Break;
if SenderID = Friends[i] then begin
Casting := True;
DoCast(SenderID);
Casting := False;
Break;
end;
end;
end;
if (not Casting) and (Text = 'Bless!') then begin
for i := 0 to Length(Friends) - 1 do begin
if i >= Length(Friends) then Break;
if SenderID = Friends[i] then begin
Casting := True;
DoBless(SenderID);
Casting := False;
Break;
end;
end;
end;
end;