SCAR Code:
//-----------------------------------------------------------------\\
{ Talk(When: string); - Talks based on the string ||
{ By: Hy71194 ||
\\-----------------------------------------------------------------//}
procedure Talk(When: string);
begin
if (RandomTalkk = False) then
Exit;
case Lowercase(When) of
'join clan':
begin
//TypeByte(191);
Spam('helloclan');
end;
'always':
begin
case Random(1000) of
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17: Spam('random');
end;
end;
'login':
Spam('hello');
'leave clan':
begin
if FindColorTolerance(clx,cly,6619135,610,234,680,239,3) then
begin
//TypeByte(191);
Spam('byeclan');
end;
end;
else begin
WriteLn('Invalid Talk Mode! Notify Hy71194 ASAP! '+(When)+'...');
end;
end;
end;
