SCAR Code:
program Autofighter3000;
{.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 Declareplayers;
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( a few letters from playername)
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 MoveCamera;
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 DontBanMe;
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.