B.A.A - Blanko's Attempt (at) A.N.N.A

[Blankothe3rd]

hey guise, hope u liek

Save as BlankoAnna.scar

{
//////////////////////////////////B.A.A///////////////////////////////////////
Program: Blanko`s attempt (at) A.N.N.A [B.A.A]
________________________________________________________________________________
Version: Test
________________________________________________________________________________
Description: An automatic responder, read below for more info.
________________________________________________________________________________
Check on script: All the time.
________________________________________________________________________________
Class of script: Auto-Responder
________________________________________________________________________________
Notes:
________________________________________________________________________________
This script is based off of:
     Basicut - GMKs coolness with everything, even letting me make a fork
     A.N.N.A - A robot program written in tons of languages
     Cake Theiver - took an antiban from it and modded it, soz NCDS
________________________________________________________________________________
Copyright Info:
          This script is Copyright Creative Commons
          Attribution-Share Alike 3.0 United States
          you may add procedures into your script,
          as long as you credit "GMK, Blankothe3rd,
          and NCDS".
          
          Source: http://creativecommons.org/licenses/by-sa/3.0/us/
________________________________________________________________________________}
program BlankoAnna;
{.include SRL/SRL.scar}

var
x,y:integer;
l,lo:integer;
anti:integer;
rep,tal,spl:integer;
notyet,gow:boolean;
posx,posxx:integer;
posy:integer;
flagg,toomuch:integer;

procedure DeclarePlayers;// fill this out below
begin
  HowManyPlayers := 1;//keep it at 1
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';//name of your character
  Players[0].Pass := '';//password of your character
  Players[0].Nick := '';//nickname of your character, 3 or four characters from your name.
  Players[0].Active := True;
end;

procedure comp; // compiles the script
begin
LoadNPCArray;
l:=0
lo:=0
cleardebug;
wait(10)
writeln('/////////////////////////////////////////')
writeln('Blanko <3s A.N.N.A)')
writeln('It`s the end of the world as we know it!')
writeln('/////////////////////////////////////////')
ActivateClient;
wait(1000)
end;

procedure Load;
begin
flagg := BitmapFromString(17, 18, 'beNr7/3+AAQNDrLEgSepJ' +
       '0wJWT4IWmHpitSCpJ0oLqnrCWjDUkxxi//8fC2MZ1TIIteAEAPN7K' +
       'IQ=');
end;


procedure autorespond; //
begin
if InChat('hi')=true then
TypeSend(AddMistakes('Hello', 20));
if InChat('bot')=true then
TypeSend(AddMistakes('No im not you noob', 20));
if InChat('Newb')=true then
TypeSend(AddMistakes('No u', 20));
if InChat('Nub')=true then
TypeSend(AddMistakes('yo mom', 20));
if InChat('****')=true then
TypeSend(AddMistakes('watch your language', 20));
if InChat('do you want')=true then
TypeSend(AddMistakes('nty', 20));
if InChat('asl?')=true then
TypeSend(AddMistakes('Gtfo creep', 20));
if InChat('WHY DONT YOU')=true then
TypeSend(AddMistakes('How about you have a seat over there instead? lol', 20));
if InChat('what are you doing')=true then
TypeSend(AddMistakes('Do not disturb my circles! - Archimedes', 20));
if InChat('what are u doing')=true then
TypeSend(AddMistakes('Do not disturb my circles! - Archimedes', 20));


end;

Procedure Talkk; // talking antiban procedure.
begin
tal:=tal+1
Anti:= Random(7);
case Anti of
1:TypeSend(AddMistakes('Hi!', 20));
2:TypeSend(AddMistakes('Im really bored', 20));
3:TypeSend(AddMistakes('*yawn*', 20));
4:TypeSend(AddMistakes('Im tired of woodcutting!', 20));
5:TypeSend(AddMistakes('Sw33tn3ss!', 20));
6:TypeSend(AddMistakes('this sucks, I cant wait till I start cutting yews', 20));
7:TypeSend(AddMIstakes('too much sauce', 20));

end;
end;

procedure antiban; // talks to an anti?
begin
if lo=5 then
begin
wait(100 + random(1337))
lo:=0
Anti:= Random(6);
case Anti of
1:Talkk;
end;
end;
end;

Procedure Randoms;// runs away from aggressive randoms (you pussy)
begin
Findnormalrandoms;
if FindFight=true then
RunAway('n',true,1,9000)
end;

function RandomsFS: Boolean; // failsafe of Randoms if it fails to detect a fight

begin
  if HpPercent < 50 then
  begin
    WriteLn('running from aggressive NPC');
    RunAway('n', True, 1, 12000) Result:= True;
  end;
end;


begin // Don't mess with this unless you added a procedure!
tal:=0
rep:=0
spl:=0
SetupSRL;
comp;
DeclarePlayers;
repeat
rep:=rep+1
lo:=lo+1
wait(100 + random(50))
wait(10+random(5))
Pickupmouse;
autorespond;
Randoms;
RandomsFS;
wait(10+random(5))
antiban;
Talkk;
until(false)
end.

bugs: none jotted down

extra notes: its database is very small, you can test this program with a friend if you want

 

[Jethr0x]

Try making a 100% working quick chat responder

 

[C_Town_Hero]

i used to auto =/
I should start up again lol.

 

[Blankothe3rd]

Try making a 100% working quick chat responder

I believe it does work Jethr0x, but it's a test, go try it with your friend or something.

C_Town: Now is not the best time to auto, due to the recent increase on bot bannings.

Remember everyone you can make your own versions of the bot under the following conditions:

They must be compatible with Creative Commons Attribution v3 or similar

You must credit the 3 original authors: GMK, Blankothe3rd, and NCDS.

You cannot any version as your own, even I can't mate, however you can name the script "YourName's Attempt At Anna"

 

[cazax]

AddMistakes? That function isn't included in SRL

 

[Blankothe3rd]

AddMistakes? That function isn't included in SRL

I've tried removing that part but it only gives me problems. Again, if you have a problem and you think you can fix it, go ahead and post your version here

 

[cazax]

TypeSend is enough, unless you think it's necessary to have it.