SCAR Code:
function AutoResponce:Boolean;
var Responce, Lvl: String;
Reply: Integer;
begin
if AutoRespond then
if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
if (InChat(Players[CurrentPlayer].Name)) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('yea');
1: Responce := ('wat');
2: Responce := ('what');
3: Responce := ('yeah');
4: Responce := ('ya');
5: Responce := ('??');
6: Responce := ('yep that''s me');
7: Responce := ('yes');
8: Responce := ('hhmmm?');
9: Responce := ('yep');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('lol', 'lawl', 'haha')) or
(InChatMulti('haha', 'rofl', 'lmfao')) or
(InChatMulti('lmoa', 'funny', 'hehe')) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('lol');
1: Responce := ('rofl');
2: Responce := ('lawl');
3: Responce := ('lmao');
4: Responce := ('lmfao');
5: Responce := ('haha');
6: Responce := ('haha');
7: Responce := ('hehe');
8: Responce := ('geez lol');
9: Responce := ('roflmfao');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('str', 'strength', 'str')) then
begin
Lvl := IntToStr(GetSkillLevel('strength'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My str lvl is '+ Lvl);
3: Responce := (Lvl +' is my str lvl');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('att', 'attack', 'att')) then
begin
Lvl := IntToStr(GetSkillLevel('attack'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My att lvl is '+ Lvl);
3: Responce := (Lvl +' is my att lvl');
end;
TypeSend(Responce);
Responds := Responds + 1;
Result := True;
end;
Result := False;
end;