Log in

View Full Version : Anoying Errors in my projects


Hasslarn
09-23-2007, 01:49 PM
I get error when i turn on my autofisher or autofighter

Here is the error for autofisher

Line 27: [Error] (14476:1): Unknown identifier 'Fish' in script

Here is the error for Autofighter

Line 76: [Error] (14525:46): Close round expected in script

And in Hypersecrets Autofighter i get this problem

Line 33: [Error] (14886:1): Duplicate identifier 'x' in script





Hypersecrets autofighter code

{Thanks to Smartzkid for all the help and looking over of my script}
{.Script Info:
-=ScriptName=- = SecretFighter
-=Author=- = HyperSecret
-=Description=- = Kills Any Monster
-=Version=- = 0.50
-=Comments=- = SRL 4+

(C) 2007 Rip-It Productions

/Script Info}
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
// *
// * NAME : SecretFighter
// * WRITER : HyperSecret
// * CATEGORY : Fighting
// * DESCRIPTION : Kills Any Monster
//
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
// Took script info setup from Fawaki\\

program HSAutoFighter;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}

var
Killed, Killed2: integer;
CharacterStartTime: integer;
Anchovie, Herring, Lobster, Pike, Salmon, Sardine, Shrimp, SwordFish, Trout, Tuna: Integer;
FoodToEat: integer;

var
x, y: integer;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\


const Color1 = 858228;//1st color of monster
const Color2 = 858759;//2nd color of monster
const Color3 = 857453;//3rd color of monster
const MonsterName = 'Chicken';//name of the monster (case sensative)
const KillMonsterFor = 10;//time in minutes you want each player to run b4 logging out
const eatfood = 'no';//yes or no, for if you want to eat food
const eathp = 70;//Hp you want your guy to eat at
const runhp = 65;//HP you want your guy to run at
const RunDirection = 'e';//n,s,e,w which way you want to run when hp get to runhp
const MySRLID = '';// Stats ID.
const MySRLPassword = '';//<-Your SRL Password here if you want to have yout stats logged

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

SRLID := MySRLID;
SRLPassword := MySRLPassword;

Players[0].Name :=''; //Character name
Players[0].Pass :=''; //Character PAss
Players[0].Nick :=''; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not
Players[0].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[0].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[0].Integers[0] := 0;
Players[0].Integers[1] := 0;

Players[1].Name :=''; //Character name
Players[1].Pass :=''; //Character PAss
Players[1].Nick :=''; //Nickname 3 Letter of char name
Players[1].Active:=True; //True if you want this player to be ran in the script, false if not
Players[1].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[1].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[1].Integers[0] := 0;
Players[1].Integers[1] := 0;

Players[2].Name :=''; //Character name
Players[2].Pass :=''; //Character PAss
Players[2].Nick :=''; //Nickname 3 Letter of char name
Players[2].Active:=True; //True if you want this player to be ran in the script, false if not
Players[2].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[2].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[2].Integers[0] := 0;
Players[2].Integers[1] := 0;

Players[3].Name :=''; //Character name
Players[3].Pass :=''; //Character PAss
Players[3].Nick :=''; //Nickname 3 Letter of char name
Players[3].Active:=True; //True if you want this player to be ran in the script, false if not
Players[3].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[3].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[3].Integers[0] := 0;
Players[3].Integers[1] := 0;

Players[4].Name :=''; //Character name
Players[4].Pass :=''; //Character PAss
Players[4].Nick :=''; //Nickname 3 Letter of char name
Players[4].Active:=True; //True if you want this player to be ran in the script, false if not
Players[4].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[4].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[4].Integers[0] := 0;
Players[4].Integers[1] := 0;

WriteLn('Using '+ IntToStr(HowManyPlayers) +' Players');
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HyperSecretTAG;
begin
ClearDebug;
Writeln(' _ _ _____ _ ');
Writeln('| | | | / ___| | | ');
Writeln('| |_| |_ _ _ __ ___ _ __\ `--. ___ ___ _ __ ___| |_');
Writeln('| _ | | | | ''_ \ / _ \ ''__|`--. \/ _ \/ __| ''__/ _ \ __|');
Writeln('| | | | |_| | |_) | __/ | /\__/ / __/ (__| | | __/ |_ ');
Writeln('\_| |_/\__, | .__/ \___|_| \____/ \___|\___|_| \___|\__|');
Writeln(' __/ | | ');
Writeln(' |___/|_| ');
Writeln('HyperSecret''s AutoFighter!');
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=0 to 7 do
begin
case I of
0: if SolveChatRandom then
Result := True;
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: RC;
end;
wait(1);
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HSAntiBAN;
begin
if(not(LoggedIn))then
Exit;
case Random(20) of

0: PickUpMouse;

1: PickUpMouse;

5: PickUpMouse;

6: case Random(4) of
0: TypeSend('Combat Lvl?');
1: TypeSend('Str Lvl?');
2: TypeSend('Att Level?');
3: TypeSend('D Level?');
end;
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

function HSFindRandoms: boolean;
begin
if FindFastRandoms or
FindNormalRandoms then
begin
result := true;
end else
begin
result := false;
end;
FindTalk
HSAntiBan;
SRLRandomsReport;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure LoadFoodDTM;
begin
Anchovie := DTMFromString('78DA6314646060106540018A2A560CFF813 42' +
'310FF07024625204388010D302291409A1548081050C30D24 E408' +
'A89102123244A8E1C2AD86058801723A0682'); {anchovie}

Herring := DTMFromString('78DA6314606060106740019D79990CFF813 42' +
'310FF07024679208393010D302291405A0948881050C30724 E408' +
'A8610312D204D4F0020921FC6A002366075E'); {herring}

Lobster := DTMFromString('78DA631465606000612470268D81E13F906 60' +
'4E2FF40C0A80C647032A001462412484B020936026AA48184 0201' +
'350240429A801A76202145400D379010C0AF06000AEF0759' ); {lobster}

Pike := DTMFromString('78DA63146660601065400131B5E10CFF813 42' +
'310FF0702463920839D010D302291405A1148F0115003B247 9680' +
'1A5E20214F400D2B909023A006E41621026A407EE7C6AF060 0156' +
'B077E'); {pike}

Salmon := DTMFromString('78DA631464606010674001678C1918FE036 94' +
'620FE0F048CF2400607031A60442281B41290E027A0461448 C813' +
'50C307241408A86123C21C905B8409A81101123CF8D50000E AB20' +
'75B'); {salmon}

Sardine := DTMFromString('78DA6314646060106340019D79990CFF813 42' +
'310FF070246903C0F031A60442281B42C901024A046084848 1250' +
'C30D24A408A8E10712C2F8D500001BEE0756'); {sardine}

Shrimp := DTMFromString('78DA63146660601061400133D31818FE036 94' +
'620FE0F048CD2400617031A60442281B412901026A0460248 C813' +
'50C34B841A564C3763A801B9971BBF1A00DE490721'); {shrimp}

SwordFish := DTMFromString('78DA63146160601060400133D36632FC07D 28' +
'C40FC1F081859800C450634C0884402693E20C147408D3090 6023' +
'A0461A48F01050A304244408A89101125204D408010951FC6 A006' +
'8A107E3'); {swordfish}

Trout := DTMFromString('78DA63146260601067400179F1D10CFF813 42' +
'310FF07024679208383010D302291405A0948F01350230A24 E409' +
'A86123428D0890E0C1AF0600FB85072F'); {trout}

Tuna := DTMFromString('78DA6314616060906240019D79990CFF813 42' +
'310FF0702467920838B010D302291405A1948881350230A24 1408' +
'A8610312F204D48810E11E4E2021865F0D0041A40798'); {tuna}
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure AutoRetaliate(Retaliate:Boolean); //thx to fawaki for autoretaliate
begin
GameTab(1);
if Retaliate then
begin
If not FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(666, 381, 8, 8, True);
end;
end;
if not Retaliate then
begin
If FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(666, 381, 8, 8, True);
end;
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure ChooseSkill(skill:string); //pure idea from tara
begin
Writeln('Choosing Skill To Train...');
case skill of
'pure': begin
if Players[CurrentPlayer].level[2]<15 then skill:='strength' else
if Players[CurrentPlayer].level[1]<30 then skill:='attack' else
if Players[CurrentPlayer].level[2]<25 then skill:='strength' else
if Players[CurrentPlayer].level[1]<40 then skill:='attack' else
skill:='strength';
end;
'even': begin
if Players[CurrentPlayer].level[1]>Players[CurrentPlayer].level[2] then
begin
if Players[CurrentPlayer].level[2]>Players[CurrentPlayer].level[3] then
skill:='defense' else skill:='strength';
end else
begin
if Players[CurrentPlayer].level[1]>Players[CurrentPlayer].level[3] then
skill:='defense' else skill:='attack';
end;
end;
end;
case skill of
'attack': SetFightMode(1);
'strength': SetFightMode(2);
'defense': SetFightMode(4);
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HSChooseSkill;
begin
if (not(LoggedIn)) then Exit;
GameTab(1);
begin
ChooseSkill(lowercase(Players[CurrentPlayer].Skill));
end;
if (HSFindRandoms = true) then
begin
nextplayer(true);
end;
AutoRetaliate(True);
SetChat('off', 1);
SetChat('off', 2);
SetChat('off', 3);
SetChat('off', 4);
SetRun(True);
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HSHighestAngle;
begin
KeyDown(38);
Wait(3000 + random(100));
KeyUp(38);
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure StatsDePlayer;

var Active: string;
var i: Integer;
begin
if Players[CurrentPlayer].Active=True then
Active:='In Use'
else
Active:='Not In Use';
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' Player Name : '+ Players[CurrentPlayer].Name);
AddToReport(' Player Number : '+inttostr(CurrentPlayer));
AddToReport(' Active : '+ Active);
if ( Players[CurrentPlayer].Worked > 0 ) then
AddToReport(' Worked : '+ inttostr(Players[CurrentPlayer].Worked) +' min.');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
GetAllLevels;

for i := 0 to HowManyPlayers - 1 do
begin
if Players[i].Active = True then Active:='T' else Active:='F';
AddToReport( ' ' + Inttostr (I) + ' : Nick : ' + Players[i].Nick + ' = ' + Active
+'. - Lvl : '
+' '+inttostr(Players[i].level[1])+
+' '+inttostr(Players[i].level[2])+
+' '+inttostr(Players[i].level[3])+
+' '+inttostr(Players[i].level[8])+'. '
+'W : '+IntToStr(Players[i].Worked)+' min. '
+'K : '+ IntToStr(Players[i].integers[0]) +' '+ MonsterName +'s. '
+'Ate : '+ IntToStr(Players[i].integers[1]) +' '+ Players[i].strings[0] +'. ');
end
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

Procedure ReportDeProgress;

begin
ClearReport;
SRLRandomsReport;
AddToReport(' ');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' -= AutoFighter v0.10 -Progress Report- By : HyperSecret =-');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' Worked for '+ TimeRunning);
AddToReport(' Killed Total of '+inttostr(Killed2)+' '+ MonsterName +'s.');
StatsDePlayer;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure WhereIsTheMonster;
var
i: Integer;
dir: string;
begin
if (not(InFight)) then
begin
case Random(4) + 1 of
1: dir := 'nswe';
2: dir := 'wens';
3: dir := 'sewn';
4: dir := 'ewns';
end;
for i := 1 to 4 do
MakeCompass(StrGet(dir, i));
Writeln('Rotating Compass, Looking For Monster...');
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure FoodEating;
begin
case lowercase(Players[CurrentPlayer].Strings[0]) of
'anchovie': FoodToEat := Anchovie;
'herring': FoodToEat := Herring;
'lobster': FoodToEat := Lobster;
'pike': FoodToEat := Pike;
'salmon': FoodToEat := Salmon;
'sardine': FoodToEat := Sardine;
'shrimp': FoodToEat := Shrimp;
'swordfish': FoodToEat := SwordFish;
'trout': FoodToEat := Trout;
'tuna': FoodToEat := Tuna;
end;
if (not(LoggedIn)) then Exit;

if (FindDTM(FoodToEat, x, y, 548, 205, 734, 461)) then
begin
MMouse(x, y, 0, 0);
GetMousePos(x, y);
if FindColorTolerance(x, y, 3703002, 42, 8, 120, 21, 70) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('at');
end else
Exit;
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HSHpCheck;
var
TimeToEat: integer;

begin
MarkTime(TimeToEat);
begin
if (eatfood = 'yes') then
begin
gethp;
if (gethp <= eathp) then
GameTab(4);
begin
FoodEating;
begin
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;
begin
if (gethp < runhp) then
begin
Status('Running Because Low HP');
RunAwayDirection(RunDirection);
begin
nextplayer(false);
end;
end;
HSFindRandoms;
end;
end;
end;
end;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

function HSFighting(Name: string; color, maxtol, maxtime: integer): boolean;
var
box: TBoxArray;
tolerance, time: integer;
begin
result := false;
MarkTime(time);
if(FindColorSkipBoxArrayTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance, box)) then
begin
MMouse(x, y, 0, 0);
wait(50 + random(250));
if(IsUpText(Name))then
begin
result := true;
GetMousePos(x, y);
case Random(2) of
0: begin
Mouse(x, y, 0, 0, false);
ChooseOption('ttack');
Exit;
end;

1: begin
Mouse(x, y, 0, 0, true);
Exit;
end;
end;
end else
begin
SetLength(box, Length(box) + 1);
box[Length(box) - 1].X1 := x - 5;
box[Length(box) - 1].Y1 := y - 5;
box[Length(box) - 1].X2 := x + 5;
box[Length(box) - 1].Y2 := y + 5;
Exit;
end;
end else
tolerance := tolerance + 1;
wait(50);
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure HSAttack;
var
MonsterColors: array[0..2] of integer;
i: Integer;
TimeToKill: Integer;

begin
if (not (LoggedIn)) then
Exit;
MonsterColors[0] := color1;
MonsterColors[1] := color2;
MonsterColors[2] := color3;

MarkTime(TimeToKill);
Killed := 0;
repeat
if (InFight) then
Exit;
for i := 0 to 2 do
begin
if(HSFighting(MonsterName, MonsterColors[i], 5, 2000))then
begin
Wait(1000 + random(500));
OutFight;
Killed := Killed + 1;
Killed2 := Killed2 + 1;
ReportVars[0] := ReportVars[0] + 1;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + 1;
end;
end;
wait(10);
if (HSFindRandoms = true) then
begin
nextplayer(true);
end;
if (eatfood = 'yes') then
begin
HSHpCheck;
end;
until (((Getsystemtime-CharacterStartTime)/1000)>(KillMonsterFor * 60));
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure SetUp;
begin
SetupSRL;
ScriptID := '269';
HyperSecretTAG;
Wait(100);
LoadFoodDTM;
DeclarePlayers;
if(not(loggedin))then LoginPlayer;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

procedure SetUp2;
begin
HSChooseSkill;
HSHighestAngle;
end;

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

begin
SetUp;
Killed2 := 0;
repeat
CharacterStartTime:=GetSystemTime;
if(not(loggedin))then LoginPlayer;
SetUp2;
HSAttack;
WhereIsTheMonster;
If (((Getsystemtime-CharacterStartTime)/1000)>(KillMonsterFor * 60)) then
begin
Wait(5000 + random(1000));
nextplayer(true);
end;
ReportDeProgress;
until(false);
end.





Here is code for my autofighter

{.Script Info:
# ScriptName = Hasslarn Autofighter v0.1 BETA
# Author = Hasslarn
# Description = This is a Autofighter
# Version = v0.1 BETA
# Date = 21/9 2007 22:13
# Comments = This is good try it!
/Script Info}
program Autofighter;
{.include srl/srl.scar}


var
a: integer;

const
m1= 2177097;//color of the monster 1
m2= 4539721;//color of the monster 2
m3= 4737101;//color of the monster 3
m4= 594529;//color of the monster 4
LampSkill2= 'Attack';//Genie Lamp Skill Choice
publicchat= 'On';//Sets the chat
privatechat= 'Friends';//Sets the private chat
trade= 'off';//sets the trade
Monsterstokill=500;//how many monsters to kill
MonsterName='Guard';//Name of the monster your fighting


procedure PlayerOptions;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name :='USERNAME HERE'; //PlayerName
Players[0].Pass :='PASSWORD HERE'; //Password
Players[0].Nick :='NICK NAME HERE';//Players nick name(Take 3-5 letters from you're name)
Players[0].Loc :=''; //leave this alone
Players[0].Active:=True;// Leave this alone 2
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;


procedure FindRandoms;
begin
FindNormalRandoms;
FindLamp(LampSkill2);
end;

procedure InvRandoms;
begin
if (Random(4) = 0) then
begin
Wait(1);
FindNewBox
Wait(1);
end;
end;

procedure CameraView;
begin
SendArrowSilentWait(Random(4)+1, 810+Random(122));
end;

procedure Attack;
begin
If (loggedIn) then
begin
setchat(publicchat,1);
setchat(privatechat,2);
setchat(trade,3);
end;
if (findcolorspiral(x,y,m1,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m2,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m3,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m4,MSX1,MSY1,MSX2,MSY2) then
begin
AutoTalker: Boolean;
Findrandoms;
invrandoms;
mouse(x,y,4,4);
if (istextup('Attack'+monstername)) then
begin
wait(10+random(30));
AutoTalker: Boolean;
mouse(x, y, 3, 3, true);
a: a + 1;
FindRandoms;
INVRandoms;
AutoTalker: Boolean;
wait(timetokill*1000+random(2500));
DontBanMe;
end;
if (findcolorspiral(x,y,m1,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m2,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m3,MSX1,MSY1,MSX2,MSY2) or
(findcolorspiral(x,y,m4,MSX1,MSY1,MSX2,MSY2) = False then
movecamera;
AutoTalker: Boolean;
wait(2000+random(1000));
Dontbannme;
end;
end;




Procedure AntiBann;
DBanMe:= Random(14); (*1 over so it will do nothing sometimes*)
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: hoverskill('random', false);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5),'random');
6: MessageFriendEvery;
7: PickUpMouse;
8: BoredEvery(9 + Random(24));
9: DragItem(1, 1+Random(18));
10: GameTab(1 + Random(12));
11: DoEmote(1 + Random(20));
12: PolyGlotTalk;
end;
end;




procedure Report;
begin
cleardebug;
writeln('Buckleyindahouse Progress Report 2000');
writeln('');
writeln('You been running this Autofighter for' + TimeRunning);
writeln('The time right now is: ' +TheTime);
Writeln('You have killed'+ InToStr(a) + 'monsters');
end;


{----------------------------------------------------------------------}
{ Function: AutoTalker }
{ Author: Da Der Der }
{ Description: Will talk to other people in game only if they start }
{ talking to you first. Has many different phrases. }
{ Great for not getting banned! }
{----------------------------------------------------------------------}

Function AutoTalker: Boolean;
Var
Messege, Level: String;
AutoResponce: Integer;
Begin

OldLine:= TheLine;
TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
NewLine:= TheLine;

If(GetChatName(Players[CurrentPlayer].Name))then
Begin
Exit;
End

If(OldLine=NewLine)then
Begin
Exit;
End

If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(10)+1;
Case (AutoResponce) of
0 : Messege:= ('?');
1 : Messege:= ('what');
2 : Messege:= ('yes');
3 : Messege:= ('yep');
4 : Messege:= ('what do you want');
5 : Messege:= ('me?');
6 : Messege:= ('Yah?');
7 : Messege:= ('who? me?');
8 : Messege:= ('whasup?');
9 : Messege:= ('huh');
10 : Messege:= ('???');
11 : Messege:= ('sup?');
12 : Messege:= ('yer');
13 : Messege:= ('Yessum?');
14 : Messege:= ('yezzer?');
15 : Messege:= ('thats muh name =]');
End
TypeSend(Messege+' '+Name);
Result:= True;
End

If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessge('rofl')) or (GetChatMessage('haha')) or GetChatMessage('hehe'))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(24)+1;
Case (AutoResponce) of
0 : Messege:= ('lolz');
1 : Messege:= ('hah');
2 : Messege:= ('bwaha');
3 : Messege:= ('....');
4 : Messege:= ('funny..');
5 : Messege:= ('heh');
6 : Messege:= ('lololol');
7 : Messege:= ('ha ha!');
8 : Messege:= ('haaaa!');
9 : Messege:= ('lmao');
10 : Messege:= ('Whats so funny?');
11 : Messege:= ('Ur funny lol');
12 : Messege:= ('Hillarious');
13 : Messege:= ('*Giggles*');
14 : Messege:= ('rofllll');
15 : Messege:= ('Gahhaa');
16 : Messege:= ('*laughing* haha');
17 : Messege:= ('tehehe');
18 : Messege:= ('psht');
19 : Messege:= ('uh..ya');
20 : Messege:= ('ya i bet');
21 : Messege:= ('funny lil critter...');
22 : Messege:= ('think thats funny?');
23 : Messege:= ('funny funny');
24 : Messege:= ('*snorts as i laugh*');
25 : Messege:= ('funy');
26 : Messege:= ('if i was in a good mood i would laugh..');
27 : Messege:= ('pretty pretty funny);
28 : Messege:= ('=p');
29 : Messege:= ('X[)');
30 : Messege:= ('roflmao!');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('do')) or (GetChatMessage('do you')) or (GetChatMessage('can')) or (GetChatMessage('can i'))
And
(GetChatMessage('buy')) or (GetChatMessage('have')) or (GetChatMessage('see')) or (GetChatMessage('like'))Then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(24)+1;
Case (AutoResponce) of
0 : Messege:= ('no');
1 : Messege:= ('nah');
2 : Messege:= ('naw');
3 : Messege:= ('huh uh');
4 : Messege:= ('ya, nah im jk lol');
5 : Messege:= ('nope');
6 : Messege:= ('nooo');
7 : Messege:= ('naaahhh');
8 : Messege:= ('me? nope');
9 : Messege:= ('naaaaw');
10 : Messege:= ('no dude');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('agility')) or (GetChatMessage('agil'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' agility here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' agility');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' agility');
5 : Messege:= ('my agility is '+Level);
6 : Messege:= ('agility = '+Level);
7 : Messege:= (+Level+' agility');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('construction')) or (GetChatMessage('con'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('construction'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' construction here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' construction');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' con');
5 : Messege:= ('my con lvl is '+Level);
6 : Messege:= ('construction = '+Level);
7 : Messege:= (+Level+' construction');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('cooking')) or (GetChatMessage('cookin')) or (GetChatMessage('cook'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('cooking'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' cookin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' cooking');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' cooking');
5 : Messege:= ('my cookn is '+Level);
6 : Messege:= ('cooking = '+Level);
7 : Messege:= (+Level+' cookin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('crafting')) or (GetChatMessage('craft')) or (GetChatMessage('craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('crafting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' craftin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' crafting');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' crafting');
5 : Messege:= ('my craftin is '+Level);
6 : Messege:= ('crafting = '+Level);
7 : Messege:= (+Level+' craftin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('farming')) or (GetChatMessage('farm')) or (GetChatMessage('farmin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('farming'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' farmin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' farming');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' farmn');
5 : Messege:= ('my farmin is '+Level);
6 : Messege:= ('farming = '+Level);
7 : Messege:= (+Level+' farming');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fire')) or (GetChatMessage('firemakin')) or (GetChatMessage('firemaking'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('firemaking'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fm here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' firemakin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' firemaking');
5 : Messege:= ('my fire lvl is '+Level);
6 : Messege:= ('firemaking = '+Level);
7 : Messege:= (+Level+' fire');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fishin')) or (GetChatMessage('fishing'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fishing'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fishn here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fishing');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fishin');
5 : Messege:= ('my fishin is '+Level);
6 : Messege:= ('fishing = '+Level);
7 : Messege:= (+Level+' fishing');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fletch')) or (GetChatMessage('fletching')) or (GetChatMessage('fletchin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fletching'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fletch here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fletching');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fletchn');
5 : Messege:= ('my fletching is '+Level);
6 : Messege:= ('fletching = '+Level);
7 : Messege:= (+Level+' fletchin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('herb')) or (GetChatMessage('herblore')) or (GetChatMessage('herby')) or (GetChatMessage('herblaw'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' herby here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' herblore');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' herblaw');
5 : Messege:= ('my herby is '+Level);
6 : Messege:= ('herblore = '+Level);
7 : Messege:= (+Level+' herby');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('magic')) or (GetChatMessage('mage'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' magic here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' magic');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' magee');
5 : Messege:= ('my magic is '+Level);
6 : Messege:= ('mage = '+Level);
7 : Messege:= (+Level+' magic');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('mining')) or (GetChatMessage('minin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('mining'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' minin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' mining');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' mining');
5 : Messege:= ('my mining is '+Level);
6 : Messege:= ('mining = '+Level);
7 : Messege:= (+Level+' minin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('pray')) or (GetChatMessage('prayer'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('prayer'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' pray here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' prayuh');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' prayer');
5 : Messege:= ('my prayer is '+Level);
6 : Messege:= ('prayer = '+Level);
7 : Messege:= (+Level+' prayer');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('range')) or (GetChatMessage('rangin')) or (GetChatMessage('ranging'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' range here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' range');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' rangin');
5 : Messege:= ('my range is '+Level);
6 : Messege:= ('ranging = '+Level);
7 : Messege:= (+Level+' rangin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('runecrafting')) or (GetChatMessage('rc')) or (GetChatMessage('rune crafting')) or (GetChatMessage('rune craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('runecrafting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' rc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' runecraft');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' runecrafting');
5 : Messege:= ('my rc is '+Level);
6 : Messege:= ('runecraftin = '+Level);
7 : Messege:= (+Level+' rc');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('slayer')) or (GetChatMessage('slay'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('slayer'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' slayer here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' slaying');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' slayer');
5 : Messege:= ('my slayer is '+Level);
6 : Messege:= ('slayer = '+Level);
7 : Messege:= (+Level+' slayer');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('smithing')) or (GetChatMessage('smithin')) or (GetChatMessage('smith'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('smithing'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' smithing here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' smithin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' smith');
5 : Messege:= ('my smithin is '+Level);
6 : Messege:= ('smithing = '+Level);
7 : Messege:= (+Level+' smithn');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('thieving')) or (GetChatMessage('thievin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('thieving'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' thieving here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' theiving');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' thieving');
5 : Messege:= ('my thievin is '+Level);
6 : Messege:= ('thieving = '+Level);
7 : Messege:= (+Level+' thieving');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) or (GetChatMessage('wc')) or (GetChatMessage('wood cutting')) or (GetChatMessage('wood cuttin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('woodcutting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' wc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' wc');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' woodcutting');
5 : Messege:= ('my wood cuttin is '+Level);
6 : Messege:= ('wc = '+Level);
7 : Messege:= (+Level+' wc');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
And
(GetChatMessage('doing')) or (GetChatMessage('doin'))then
Begin
WriteLv(''+ChatName+': '+Chat);
AutoResponce:= Random(9)+1;
Case (AutoResponce) of
0 : Messege:= ('nuttin');
1 : Messege:= ('nothing');
2 : Messege:= ('nothin');
3 : Messege:= ('eh, nothin');
4 : Messege:= ('being bored');
5 : Messege:= ('bored');
6 : Messege:= ('bored, you?');
7 : Messege:= ('chillin');
8 : Messege:= ('chilling, you?');
9 : Messege:= ('chilling');
10 : Messege:= ('playing runescape haha');
11 : Messege:= ('nothin, im sick =[');
12 : Messege:= ('talkin to you =]');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= random(9)+1;
Case RandomReply of
0 : Messege:= ('hello');
1 : Messege:= ('hi');
2 : Messege:= ('hey');
3 : Messege:= ('sup dude');
4 : Messege:= ('watsup');
5 : Messege:= ('yo bro');
6 : Messege:= ('hi');
7 : Messege:= ('hey man');
8 : Messege:= ('*waves*');
9 : Messege:= ('how ya doin');
10 : Messege:= ('good day');
11 : Messege:= ('wat it dooooo');
12 : Messege:= ('helloooooo');
13 : Messege:= ('heya');
14 : Messege:= ('hiiyaaa');
15 : Messege:= ('heeeyyyyy');
End
TypeSend(Messege);
Result:= True;
End

End;



begin
SetupSRL;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
AutoTalker: Boolean;
If(not(loggedin)) then
loginplayer;
AutoTalker: Boolean;
activateclient;
attack;
AutoTalker: Boolean;
until (a = monsterstokill)
progressreport;
end.





And here is autofisher my

{.Script Info:
# ScriptName = Hasslarn AutoFisher V0.1 BETA
# Author = Hasslarn
# Description = An Autofisher that works!
# Version = v0.1 BETA
# Date = 22/9 09:08
# Comments = This is a werry good cheat try it
/Script Info}
program AutoFisher;
{.include SRL/SRL.scar}

const
FishPlace = 15780000;

procedure AutoFisher;
begin
if(FindColorSpiral(x,y,FishPlace,0,0,1,1))then
Wait(500 + random(250));
MMouse(x,y,0,0);
end;


Begin
SetupSRL;
repeat
Fish;
until(false)
end.

Function AutoTalker: Boolean;
Var
Messege, Level: String;
AutoResponce: Integer;
Begin

OldLine:= TheLine;
TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
NewLine:= TheLine;

If(GetChatName(Players[CurrentPlayer].Name))then
Begin
Exit;
End

If(OldLine=NewLine)then
Begin
Exit;
End

If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(10)+1;
Case (AutoResponce) of
0 : Messege:= ('?');
1 : Messege:= ('what');
2 : Messege:= ('yes');
3 : Messege:= ('yep');
4 : Messege:= ('what do you want');
5 : Messege:= ('me?');
6 : Messege:= ('Yah?');
7 : Messege:= ('who? me?');
8 : Messege:= ('whasup?');
9 : Messege:= ('huh');
10 : Messege:= ('???');
11 : Messege:= ('sup?');
12 : Messege:= ('yer');
13 : Messege:= ('Yessum?');
14 : Messege:= ('yezzer?');
15 : Messege:= ('thats muh name =]');
End
TypeSend(Messege+' '+Name);
Result:= True;
End

If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessge('rofl')) or (GetChatMessage('haha')) or GetChatMessage('hehe'))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(24)+1;
Case (AutoResponce) of
0 : Messege:= ('lolz');
1 : Messege:= ('hah');
2 : Messege:= ('bwaha');
3 : Messege:= ('....');
4 : Messege:= ('funny..');
5 : Messege:= ('heh');
6 : Messege:= ('lololol');
7 : Messege:= ('ha ha!');
8 : Messege:= ('haaaa!');
9 : Messege:= ('lmao');
10 : Messege:= ('Whats so funny?');
11 : Messege:= ('Ur funny lol');
12 : Messege:= ('Hillarious');
13 : Messege:= ('*Giggles*');
14 : Messege:= ('rofllll');
15 : Messege:= ('Gahhaa');
16 : Messege:= ('*laughing* haha');
17 : Messege:= ('tehehe');
18 : Messege:= ('psht');
19 : Messege:= ('uh..ya');
20 : Messege:= ('ya i bet');
21 : Messege:= ('funny lil critter...');
22 : Messege:= ('think thats funny?');
23 : Messege:= ('funny funny');
24 : Messege:= ('*snorts as i laugh*');
25 : Messege:= ('funy');
26 : Messege:= ('if i was in a good mood i would laugh..');
27 : Messege:= ('pretty pretty funny);
28 : Messege:= ('=p');
29 : Messege:= ('X[)');
30 : Messege:= ('roflmao!');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('do')) or (GetChatMessage('do you')) or (GetChatMessage('can')) or (GetChatMessage('can i'))
And
(GetChatMessage('buy')) or (GetChatMessage('have')) or (GetChatMessage('see')) or (GetChatMessage('like'))Then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(24)+1;
Case (AutoResponce) of
0 : Messege:= ('no');
1 : Messege:= ('nah');
2 : Messege:= ('naw');
3 : Messege:= ('huh uh');
4 : Messege:= ('ya, nah im jk lol');
5 : Messege:= ('nope');
6 : Messege:= ('nooo');
7 : Messege:= ('naaahhh');
8 : Messege:= ('me? nope');
9 : Messege:= ('naaaaw');
10 : Messege:= ('no dude');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('agility')) or (GetChatMessage('agil'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' agility here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' agility');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' agility');
5 : Messege:= ('my agility is '+Level);
6 : Messege:= ('agility = '+Level);
7 : Messege:= (+Level+' agility');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('construction')) or (GetChatMessage('con'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('construction'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' construction here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' construction');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' con');
5 : Messege:= ('my con lvl is '+Level);
6 : Messege:= ('construction = '+Level);
7 : Messege:= (+Level+' construction');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('cooking')) or (GetChatMessage('cookin')) or (GetChatMessage('cook'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('cooking'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' cookin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' cooking');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' cooking');
5 : Messege:= ('my cookn is '+Level);
6 : Messege:= ('cooking = '+Level);
7 : Messege:= (+Level+' cookin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('crafting')) or (GetChatMessage('craft')) or (GetChatMessage('craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('crafting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' craftin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' crafting');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' crafting');
5 : Messege:= ('my craftin is '+Level);
6 : Messege:= ('crafting = '+Level);
7 : Messege:= (+Level+' craftin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('farming')) or (GetChatMessage('farm')) or (GetChatMessage('farmin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('farming'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' farmin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' farming');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' farmn');
5 : Messege:= ('my farmin is '+Level);
6 : Messege:= ('farming = '+Level);
7 : Messege:= (+Level+' farming');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fire')) or (GetChatMessage('firemakin')) or (GetChatMessage('firemaking'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('firemaking'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fm here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' firemakin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' firemaking');
5 : Messege:= ('my fire lvl is '+Level);
6 : Messege:= ('firemaking = '+Level);
7 : Messege:= (+Level+' fire');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fishin')) or (GetChatMessage('fishing'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fishing'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fishn here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fishing');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fishin');
5 : Messege:= ('my fishin is '+Level);
6 : Messege:= ('fishing = '+Level);
7 : Messege:= (+Level+' fishing');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('fletch')) or (GetChatMessage('fletching')) or (GetChatMessage('fletchin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fletching'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fletch here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fletching');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fletchn');
5 : Messege:= ('my fletching is '+Level);
6 : Messege:= ('fletching = '+Level);
7 : Messege:= (+Level+' fletchin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('herb')) or (GetChatMessage('herblore')) or (GetChatMessage('herby')) or (GetChatMessage('herblaw'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' herby here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' herblore');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' herblaw');
5 : Messege:= ('my herby is '+Level);
6 : Messege:= ('herblore = '+Level);
7 : Messege:= (+Level+' herby');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('magic')) or (GetChatMessage('mage'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' magic here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' magic');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' magee');
5 : Messege:= ('my magic is '+Level);
6 : Messege:= ('mage = '+Level);
7 : Messege:= (+Level+' magic');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('mining')) or (GetChatMessage('minin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('mining'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' minin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' mining');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' mining');
5 : Messege:= ('my mining is '+Level);
6 : Messege:= ('mining = '+Level);
7 : Messege:= (+Level+' minin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('pray')) or (GetChatMessage('prayer'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('prayer'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' pray here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' prayuh');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' prayer');
5 : Messege:= ('my prayer is '+Level);
6 : Messege:= ('prayer = '+Level);
7 : Messege:= (+Level+' prayer');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('range')) or (GetChatMessage('rangin')) or (GetChatMessage('ranging'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' range here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' range');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' rangin');
5 : Messege:= ('my range is '+Level);
6 : Messege:= ('ranging = '+Level);
7 : Messege:= (+Level+' rangin');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('runecrafting')) or (GetChatMessage('rc')) or (GetChatMessage('rune crafting')) or (GetChatMessage('rune craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('runecrafting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' rc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' runecraft');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' runecrafting');
5 : Messege:= ('my rc is '+Level);
6 : Messege:= ('runecraftin = '+Level);
7 : Messege:= (+Level+' rc');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('slayer')) or (GetChatMessage('slay'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('slayer'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' slayer here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' slaying');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' slayer');
5 : Messege:= ('my slayer is '+Level);
6 : Messege:= ('slayer = '+Level);
7 : Messege:= (+Level+' slayer');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('smithing')) or (GetChatMessage('smithin')) or (GetChatMessage('smith'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('smithing'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' smithing here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' smithin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' smith');
5 : Messege:= ('my smithin is '+Level);
6 : Messege:= ('smithing = '+Level);
7 : Messege:= (+Level+' smithn');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('thieving')) or (GetChatMessage('thievin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('thieving'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' thieving here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' theiving');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' thieving');
5 : Messege:= ('my thievin is '+Level);
6 : Messege:= ('thieving = '+Level);
7 : Messege:= (+Level+' thieving');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) or (GetChatMessage('wc')) or (GetChatMessage('wood cutting')) or (GetChatMessage('wood cuttin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('woodcutting'));
AutoResponce:= Random(5)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' wc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' wc');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' woodcutting');
5 : Messege:= ('my wood cuttin is '+Level);
6 : Messege:= ('wc = '+Level);
7 : Messege:= (+Level+' wc');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
And
(GetChatMessage('doing')) or (GetChatMessage('doin'))then
Begin
WriteLv(''+ChatName+': '+Chat);
AutoResponce:= Random(9)+1;
Case (AutoResponce) of
0 : Messege:= ('nuttin');
1 : Messege:= ('nothing');
2 : Messege:= ('nothin');
3 : Messege:= ('eh, nothin');
4 : Messege:= ('being bored');
5 : Messege:= ('bored');
6 : Messege:= ('bored, you?');
7 : Messege:= ('chillin');
8 : Messege:= ('chilling, you?');
9 : Messege:= ('chilling');
10 : Messege:= ('playing runescape haha');
11 : Messege:= ('nothin, im sick =[');
12 : Messege:= ('talkin to you =]');
End
TypeSend(Messege);
Result:= True;
End


If(GetChatMessage('hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= random(9)+1;
Case RandomReply of
0 : Messege:= ('hello');
1 : Messege:= ('hi');
2 : Messege:= ('hey');
3 : Messege:= ('sup dude');
4 : Messege:= ('watsup');
5 : Messege:= ('yo bro');
6 : Messege:= ('hi');
7 : Messege:= ('hey man');
8 : Messege:= ('*waves*');
9 : Messege:= ('how ya doin');
10 : Messege:= ('good day');
11 : Messege:= ('wat it dooooo');
12 : Messege:= ('helloooooo');
13 : Messege:= ('heya');
14 : Messege:= ('hiiyaaa');
15 : Messege:= ('heeeyyyyy');
End
TypeSend(Messege);
Result:= True;
End

End;
Procedure AntiBann;
DBanMe:= Random(14); (*1 over so it will do nothing sometimes*)
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: hoverskill('random', false);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5),'random');
6: MessageFriendEvery;
7: PickUpMouse;
8: BoredEvery(9 + Random(24));
9: DragItem(1, 1+Random(18));
10: GameTab(1 + Random(12));
11: DoEmote(1 + Random(20));
12: PolyGlotTalk;
end;
end;

procedure Report;
begin
cleardebug;
writeln('Hasslarn Progress Report 2000');
writeln('');
writeln('You been running this Autofighter for' + TimeRunning);
writeln('The time right now is: ' +TheTime);

end.