why isnt this working???
SCAR Code:
Procedure AutoTalking;
var
autotalk, L: integer;
begin
autotalk :=random(5)
if (L = 1) then
begin
autotalk :=random(10);
Case autotalk of
1:TypeSend('i am a noob...');
2:TypeSend('...');
3:TypeSend('*sigh*');
4:TypeSend('zzz');
5:TypeSend('this beats mining any day!');
6:TypeSend('konichiwa');
7:TypeSend('*yawn*');
8:TypeSend('im bored');
9:TypeSend('hello everyone');
10:TypeSend('ni huo');
end;
end;
end;
Procedure AutoResponder;
begin
SetChat ('On',1);
if(InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
Typesend('45 i think')
end;
if(InChat('Hi' + (Players[CurrentPlayer].Name))or
InChat('Hello' + (Players[CurrentPlayer].Name))or
InChat('Whats up' + (Players[CurrentPlayer].Name)))then
begin
Typesend('oh... hi')
end;
if(InChat('your a loser') or
InChat('your a noob') or
InChat('your a froob')) then
begin
Typesend('you are too!')
end;
end;
i spent forever on this and it isnt working???