turbobk
2008-02-02 23:26:11
<!– BEGIN TEMPLATE: formanswers –>
turbobk - SRL Member Application Form
turbobk
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, SCAR
Other Communitys
None, SRL is the best of them all.
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello my name is Luke,
I'm 17 year's old and am currently in year 12.
Some of my hobbies include:
1. BMXing.
2. Hanging with mates.
3. Go-Karting.
4. SCAR Scripting.
5. I do a little HTML sometime's for a mates website (Im not that good).
6. Photoshopping people Sig's
7. Helping the newbie's
I have been learning SCAR & SRL for about 4 week's now,
but don't let that put you off. I consider myself a quick learner
and have learnt a fair amount in the 4 weeks.
I have currently made an Anti-Ban using SCAR & SRL, it is over 900 lines,
work's great and doesn't lag. It's one of the most, If not the Elitest Anti-Ban's around.
I have also made a HighAlcher, it was originally for private use because I always high alched yew long's so I thought I'll make a SCAR Script to do it for me. Well anyway's I thought I would release it to the public so I added in a few little things and made it public. It alch's over 700 long's an hour :o I think that's pretty good for my first working script..
Also I'm currently working on a Power Chopper which will include my Anti-Ban.. :D It will be good so you'll just have to wait.
Well that's about it, I hope you consider me for SRL Member's.
Thank's for your time.
Sincerely,
TurboBk. :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
My Anti-Ban link to where it's posted:
http://www.villavu.com/forum/showthread.php?t=25066
My High Alcher link to where it's posted:
http://www.villavu.com/forum/showthread.php?t=25194
I was trying to attach them at the bottom but it told me I do not have sufficient privledge's.
Thanks,
TurboBk
——————————————————
<!– END TEMPLATE: formanswers –>
turbobk - SRL Member Application Form
turbobk
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, SCAR
Other Communitys
None, SRL is the best of them all.
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello my name is Luke,
I'm 17 year's old and am currently in year 12.
Some of my hobbies include:
1. BMXing.
2. Hanging with mates.
3. Go-Karting.
4. SCAR Scripting.
5. I do a little HTML sometime's for a mates website (Im not that good).
6. Photoshopping people Sig's
7. Helping the newbie's
I have been learning SCAR & SRL for about 4 week's now,
but don't let that put you off. I consider myself a quick learner
and have learnt a fair amount in the 4 weeks.
I have currently made an Anti-Ban using SCAR & SRL, it is over 900 lines,
work's great and doesn't lag. It's one of the most, If not the Elitest Anti-Ban's around.
I have also made a HighAlcher, it was originally for private use because I always high alched yew long's so I thought I'll make a SCAR Script to do it for me. Well anyway's I thought I would release it to the public so I added in a few little things and made it public. It alch's over 700 long's an hour :o I think that's pretty good for my first working script..
Also I'm currently working on a Power Chopper which will include my Anti-Ban.. :D It will be good so you'll just have to wait.
Well that's about it, I hope you consider me for SRL Member's.
Thank's for your time.
Sincerely,
TurboBk. :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
My Anti-Ban link to where it's posted:
http://www.villavu.com/forum/showthread.php?t=25066
{***************************************************************************************************
***************************************************************************************************
|| ||
|| _____________________ ____ __. _____ __ .____________ ||
|| \__ ___/\______ \ |/ _| / _ \ _____/ |_|__\______ \_____ ____ ||
|| | | | | _/ < / /_\ \ / \ __\ || | _/\__ \ / \ ||
|| | | | | \ | \/ | \ | \ | | || | \ / __ \| | \ ||
|| |____| |______ /____|__ \____|__ /___| /__| |__||______ /(____ /___| / ||
|| \/ \/ \/ \/ \/ \/ \/ © ||
|| ||
|| 2008 - 2011© ||
|| __________ __ ____ ||
|| \______ \ _____/ |______ ___ _/_ | ||
|| | | _// __ \ __\__ \ \ \/ /| | ||
|| | | \ ___/| | / __ \_ \ / | | ||
|| |______ /\___ >__| (____ / \_/ |___| ||
|| \/ \/ \/ ||
|| ||
***************************************************************************************************
***************************************************************************************************}
var
i, NumMistakes : Integer;
s, FText, RSUser, RSSUser, OldMsg : String;
Deg : Extended;
{*************************************************************************************************
Function TypeSend2(Text: String; PercentPerfect, PercentMistake, MaxMistakes: Integer): Boolean;
By: FrÕzÑ_§ÕµL.
Description: Types Text Human-like, pressing random keys around the original. Results True if
mistake is made.
PercentPerfect = Chance of no errors (Normal TypeSend).
PercentMistake = Chance of making an error.
MaxMistakes = Highest number of mistakes to make. Will break loop if reached.
*************************************************************************************************}
Function TypeSend2(Text: String; PercentPerfect, PercentMistake, MaxMistakes: Integer): Boolean;
Begin
Trim(Text);
if Random(101) <= PercentPerfect then
Begin
TypeSend(Text);
Exit;
end;
for i := 1 to Length(Text) do
Begin
if NumMistakes >= MaxMistakes + Random(2) then Break;
if Random(101) <= PercentMistake then
Begin
Inc(NumMistakes);
Result := true;
s := Copy(Text, i, 1);
case LowerCase(s) of
'a' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('q', Text, i);
1: Insert('s', Text, i);
2: Insert('z', Text, i);
3: Insert('w', Text, i);
4: Insert('as', Text, i);
5: Insert('sa', Text, i);
end;
end;
'b' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('v', Text, i);
1: Insert('g', Text, i);
2: Insert('h', Text, i);
3: Insert('n', Text, i);
4: Insert('bn', Text, i);
5: Insert('bv', Text, i);
end;
end;
'c' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('x', Text, i);
1: Insert('d', Text, i);
2: Insert('f', Text, i);
3: Insert('v', Text, i);
4: Insert('cv', Text, i);
5: Insert('cx', Text, i);
end;
end;
'd' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('s', Text, i);
1: Insert('e', Text, i);
2: Insert('r', Text, i);
3: Insert('f', Text, i);
4: Insert('c', Text, i);
5: Insert('x', Text, i);
6: Insert('ds', Text, i);
7: Insert('df', Text, i);
end;
end;
'e' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('w', Text, i);
1: Insert('3', Text, i);
2: Insert('4', Text, i);
3: Insert('r', Text, i);
4: Insert('d', Text, i);
5: Insert('s', Text, i);
6: Insert('ew', Text, i);
7: Insert('er', Text, i);
end;
end;
'f' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('d', Text, i);
1: Insert('r', Text, i);
2: Insert('t', Text, i);
3: Insert('g', Text, i);
4: Insert('v', Text, i);
5: Insert('c', Text, i);
6: Insert('fd', Text, i);
7: Insert('fg', Text, i);
end;
end;
'g' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('f', Text, i);
1: Insert('t', Text, i);
2: Insert('y', Text, i);
3: Insert('h', Text, i);
4: Insert('b', Text, i);
5: Insert('v', Text, i);
6: Insert('gf', Text, i);
7: Insert('gh', Text, i);
end;
end;
'h' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('g', Text, i);
1: Insert('y', Text, i);
2: Insert('u', Text, i);
3: Insert('j', Text, i);
4: Insert('n', Text, i);
5: Insert('b', Text, i);
6: Insert('hg', Text, i);
7: Insert('hj', Text, i);
end;
end;
'i' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('u', Text, i);
1: Insert('8', Text, i);
2: Insert('9', Text, i);
3: Insert('o', Text, i);
4: Insert('k', Text, i);
5: Insert('j', Text, i);
6: Insert('iu', Text, i);
7: Insert('io', Text, i);
end;
end;
'j' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('h', Text, i);
1: Insert('u', Text, i);
2: Insert('i', Text, i);
3: Insert('k', Text, i);
4: Insert('m', Text, i);
5: Insert('n', Text, i);
6: Insert('jh', Text, i);
7: Insert('jk', Text, i);
end;
end;
'k' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('j', Text, i);
1: Insert('i', Text, i);
2: Insert('o', Text, i);
3: Insert('l', Text, i);
4: Insert(',', Text, i);
5: Insert('m', Text, i);
6: Insert('kj', Text, i);
7: Insert('kl', Text, i);
end;
end;
'l' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('k', Text, i);
1: Insert('o', Text, i);
2: Insert('p', Text, i);
3: Insert(';', Text, i);
4: Insert('.', Text, i);
5: Insert(',', Text, i);
6: Insert('lk', Text, i);
7: Insert('l;', Text, i);
end;
end;
'm' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('n', Text, i);
1: Insert('j', Text, i);
2: Insert('k', Text, i);
3: Insert(',', Text, i);
4: Insert('mn', Text, i);
5: Insert('m,', Text, i);
end;
end;
'n' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('b', Text, i);
1: Insert('h', Text, i);
2: Insert('j', Text, i);
3: Insert('m', Text, i);
4: Insert('nb', Text, i);
5: Insert('nm', Text, i);
end;
end;
'o' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('i', Text, i);
1: Insert('9', Text, i);
2: Insert('0', Text, i);
3: Insert('p', Text, i);
4: Insert('l', Text, i);
5: Insert('k', Text, i);
6: Insert('oi', Text, i);
7: Insert('op', Text, i);
end;
end;
'p' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('o', Text, i);
1: Insert('0', Text, i);
2: Insert('-', Text, i);
3: Insert('[', Text, i);
4: Insert(';', Text, i);
5: Insert('l', Text, i);
6: Insert('po', Text, i);
7: Insert('p[', Text, i);
end;
end;
'q' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('1', Text, i);
1: Insert('2', Text, i);
2: Insert('w', Text, i);
3: Insert('s', Text, i);
4: Insert('a', Text, i);
5: Insert('qw', Text, i);
end;
end;
'r' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('e', Text, i);
1: Insert('4', Text, i);
2: Insert('5', Text, i);
3: Insert('t', Text, i);
4: Insert('f', Text, i);
5: Insert('d', Text, i);
6: Insert('re', Text, i);
7: Insert('rt', Text, i);
end;
end;
's' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('a', Text, i);
1: Insert('w', Text, i);
2: Insert('e', Text, i);
3: Insert('d', Text, i);
4: Insert('x', Text, i);
5: Insert('z', Text, i);
6: Insert('sa', Text, i);
7: Insert('sd', Text, i);
end;
end;
't' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('r', Text, i);
1: Insert('5', Text, i);
2: Insert('6', Text, i);
3: Insert('y', Text, i);
4: Insert('g', Text, i);
5: Insert('f', Text, i);
6: Insert('tr', Text, i);
7: Insert('ty', Text, i);
end;
end;
'u' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('y', Text, i);
1: Insert('7', Text, i);
2: Insert('8', Text, i);
3: Insert('i', Text, i);
4: Insert('j', Text, i);
5: Insert('h', Text, i);
6: Insert('uy', Text, i);
7: Insert('ui', Text, i);
end;
end;
'v' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('c', Text, i);
1: Insert('f', Text, i);
2: Insert('g', Text, i);
3: Insert('b', Text, i);
4: Insert('vc', Text, i);
5: Insert('vb', Text, i);
end;
end;
'w' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('q', Text, i);
1: Insert('2', Text, i);
2: Insert('3', Text, i);
3: Insert('e', Text, i);
4: Insert('s', Text, i);
5: Insert('a', Text, i);
6: Insert('wq', Text, i);
7: Insert('we', Text, i);
end;
end;
'x' : Begin
Delete(Text, i, 1);
case Random(6) of
0: Insert('z', Text, i);
1: Insert('s', Text, i);
2: Insert('d', Text, i);
3: Insert('c', Text, i);
4: Insert('xz', Text, i);
5: Insert('xc', Text, i);
end;
end;
'y' : Begin
Delete(Text, i, 1);
case Random(8) of
0: Insert('t', Text, i);
1: Insert('6', Text, i);
2: Insert('7', Text, i);
3: Insert('u', Text, i);
4: Insert('h', Text, i);
5: Insert('g', Text, i);
6: Insert('yt', Text, i);
7: Insert('yu', Text, i);
end;
end;
'z' : Begin
Delete(Text, i, 1);
case Random(7) of
0: Insert('a', Text, i);
1: Insert('s', Text, i);
2: Insert('x', Text, i);
3: Insert('z ', Text, i);
5: Insert('zx', Text, i);
6: Insert('', Text, i);
end;
end;
end;
i := i + random(3) + 2;
end;
end;
TypeSend(Text);
end;
//---------------------------------------------------------------------------\\
Function PosArray(SubStr : Array of String; S : String) : Boolean;
Begin
for i := 0 to GetArrayLength(SubStr) - 1 do
Begin
Result := Pos(SubStr[i], Lowercase(S)) > 0;
if Result then exit;
end;
end;
//---------------------------------------------------------------------------\\
procedure CompassPos;
begin // The Compass Movement.
Deg := (rs_GetCompassAngleDegrees);
for i := 0 to 3 do
case i of
0 : if not(InRange(round(Deg), 315, 45)) then
MakeCompass('N');
1 : if not(InRange(round(Deg), 45, 135)) then
MakeCompass('E');
2 : if not(InRange(round(Deg), 135, 225)) then
MakeCompass('S');
3 : if not(InRange(round(Deg), 225, 315)) then
MakeCompass('W');
end;
MakeCompass(FloatToStr(Deg));
end;
{*************************************************************************************************
Function TBKAntiBan(Talk, Respond : Boolean);
By: TurboBk.
Description: Does the AntiBan + additional 'RandomTalking' & 'Automatic Responding').
Talk = Randomly talks sometimes.
Respond = Automatic Responding.
USE = TBKAntiBan(True, True); This setup will randomly talk and respond.
TBKAntiBan(False, False); This setup will just do the AntiBan.
Talk, Respond
*************************************************************************************************}
procedure TBKAntiBan(Talk, Respond : Boolean);
begin // The Anti-Ban.
if (not(LoggedIn)) then Exit;
MouseSpeed := (14);
case Random(6000) of
0: MouseSpeed := (10 + random(7));
10: BoredHuman;
20: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
30: BoredHuman;
40: HoverSkill('random', false);
50: RandomMovement;
60: AlmostLogout;
70: ArrangeInv;
80: GameTab(1 + random(13));
90: FixChat;
100: Hitkeys(true);
110: ArrangeInv;
120: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
130: CompassPos;
140: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
150: CompassPos;
160: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
170: if (ExistsItem(1)) then
DragItem(1, 2);
180: case random(3) of
0: SetRun(true);
1: SetRun(false);
2: PickupMouse;
end;
190: MouseSpeed := (10 + random(7));
200: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
210: PickupMouse;
220: BoredHuman;
230: HoverSkill('random', false);
240: RandomMovement;
250: MouseSpeed := (10 + random(7));
260: ArrangeInv;
270: GameTab(1 + random(13));
280: FixChat;
290: Hitkeys(true);
300: ArrangeInv;
310: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
320: CompassPos;
330: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
340: CompassPos;
350: CompassPos;
360: if (ExistsItem(1)) then
DragItem(1, 2);
370: case random(4) of
0: SetRun(true);
1: SetRun(false);
2: PickupMouse;
3: MouseSpeed := (10 + random(7));
end;
380: DoEmote(1 + random(36));
390: case random(4) of
0: SetBar('Volume', 4);
1: SetBar('Volume', 2);
2: SetBar('Volume', 1);
3: SetBar('Volume', 3);
end;
400: GameTab(1 + random(13));
500: PickupMouse;
550: CompassPos;
560: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
570: CompassPos;
580: CompassPos;
590: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
600: BoredHuman;
700: AlmostLogout;
end;
begin // The Random Talking.
if (Talk = False) then Exit;
case random(8000) of
0: TypeSend2('.', 100, 0, 0);
30: begin
SendText('white:wave2: ');
Wait(50 + random(50));
TypeSend2('..', 100, 0, 0);
end;
60: TypeSend2('...', 100, 0, 0);
90: begin
SendText('red:wave2: ');
Wait(50 + random(50));
TypeSend2(':)', 100, 0, 0);
end;
120: TypeSend2(':(', 100, 0, 0);
150: begin
SendText('cyan:wave2: ');
Wait(50 + random(50));
TypeSend2('=]', 100, 0, 0);
end;
180: TypeSend2('=[', 100, 0, 0);
210: TypeSend2('X[)', 100, 0, 0);
240: TypeSend2('o.0', 100, 0, 0);
270: TypeSend2('(>.<)', 100, 0, 0);
300: TypeSend2('=P', 100, 0, 0);
330: TypeSend2('=D', 100, 0, 0);
360: TypeSend2(';-)', 100, 0, 0);
390: TypeSend2(';-O', 100, 0, 0);
420: TypeSend2('lol', 100, 0, 0);
450: TypeSend2('lool', 100, 0, 0);
480: begin
SendText('purple:wave2: ');
Wait(50 + random(50));
TypeSend2('l0ll13s', 80, 5, 1);
end;
510: TypeSend2('lawl', 80, 5, 1);
540: TypeSend2('Hmm', 80, 5, 1);
570: begin
SendText('green:wave2: ');
Wait(50 + random(50));
TypeSend2('Hmmmmm', 80, 5, 1);
end;
600: TypeSend2('?', 100, 0, 0);
630: TypeSend2('??', 100, 0, 0);
660: TypeSend2('=S', 100, 0, 0);
690: TypeSend2('Hi', 100, 0, 0);
720: begin
SendText('glow1:wave2: ');
Wait(50 + random(50));
TypeSend2('Hello', 80, 5, 1);
end;
750: TypeSend2('Sup', 80, 5, 1);
780: TypeSend2('Yo', 80, 5, 1);
810: TypeSend2('Ey', 80, 5, 1);
840: TypeSend2('Hey', 80, 5, 1);
870: TypeSend2('Im bored', 80, 5, 1);
900: TypeSend2('So boring!', 80, 5, 1);
930: TypeSend2('Booooooooring', 80, 5, 1);
960: begin
SendText('glow2:wave2: ');
Wait(50 + random(50));
TypeSend2('Runescape is fun', 80, 5, 1);
end;
990: TypeSend2('Go Runescape Go!', 80, 5, 1);
1020: TypeSend2('qwerty', 100, 0, 0);
1050: TypeSend2('qwertyuiop[]', 99, 1, 1);
1080: TypeSend2('1234567890', 100, 0, 0);
1110: TypeSend2('Im hungry', 80, 5, 1);
1140: TypeSend2('Im thirsty', 80, 5, 1);
1170: begin
SendText('glow3:wave2: ');
Wait(50 + random(50));
TypeSend2('Omg.. Im so bored.', 80, 5, 1);
end;
1200: TypeSend2('str lvls?', 80, 5, 1);
1230: TypeSend2('strength lvls?', 80, 5, 1);
1260: TypeSend2('atk lvls?', 80, 5, 1);
1290: TypeSend2('att lvls?', 80, 5, 1);
1320: TypeSend2('attack levels?', 80, 5, 1);
1350: TypeSend2('prayer levels?', 80, 5, 1);
1380: TypeSend2('prayer lvls?', 80, 5, 1);
1410: TypeSend2('total lvls?', 80, 5, 1);
1540: TypeSend2('total levels?', 80, 5, 1);
1570: TypeSend2('wc lvls?', 80, 5, 1);
1600: TypeSend2('woodcutting levels?', 80, 5, 1);
1630: TypeSend2('mining lvls?', 80, 5, 1);
1660: TypeSend2('minin levels?', 80, 5, 1);
1690: TypeSend2('summoning is too expensive!', 80, 5, 1);
1720: TypeSend2('summoning lvls?', 80, 5, 1);
1750: TypeSend2('whats ur highest lvl?', 80, 5, 1);
1780: TypeSend2('highest lvls?', 80, 5, 1);
1810: TypeSend2('def lvls?', 80, 5, 1);
1840: TypeSend2('defence lvls?', 80, 5, 1);
1870: TypeSend2('def levels?', 80, 5, 1);
1900: TypeSend2('lol at my dog', 80, 5, 1);
1930: TypeSend2('my dog is fluffy', 80, 5, 1);
1960: begin
SendText('cyan:wave2: ');
Wait(50 + random(50));
TypeSend2('hahahahaha', 80, 5, 1);
end;
1990: TypeSend2('lawlskiies', 80, 5, 1);
2020: begin
SendText('flash1:scroll: ');
Wait(50 + random(50));
TypeSend2('roflcakes', 80, 5, 1);
end;
2050: TypeSend2('uhmmm', 80, 5, 1);
2070: begin
SendText('flash2:wave2: ');
Wait(50 + random(50));
TypeSend2('w0ot wo0t', 99, 1, 1);
end;
2100: TypeSend2('yesss', 80, 5, 1);
2130: TypeSend2('nooooo', 80, 5, 1);
2160: TypeSend2('yum food yum', 80, 5, 1);
2190: TypeSend2('coca cola', 80, 5, 1);
2220: TypeSend2('mmm hamburgers', 80, 5, 1);
2250: TypeSend2('my cats on the roof >.<', 80, 5, 1);
2280: TypeSend2('chingy chingy', 80, 5, 1);
2310: TypeSend2('boww oww', 80, 5, 1);
2340: TypeSend2('Im da bomb', 80, 5, 1);
2370: TypeSend2('you got pwnt', 80, 5, 1);
2400: begin
SendText('flash3:wave2: ');
Wait(50 + random(50));
TypeSend2('snapt!', 99, 1, 1);
end;
2430: TypeSend2('omg nearly lvld!', 80, 5, 1);
2460: TypeSend2('who loves the simpsons?', 80, 5, 1);
2490: TypeSend2('who likes hotdogs?', 80, 5, 1);
2520: TypeSend2('what are peeps up 2?', 80, 5, 1);
2550: TypeSend2('cant wait till my bday! =)', 80, 5, 1);
2580: TypeSend2('Weeeeeeeee!', 80, 5, 1);
2610: TypeSend2('Doof Doof Doof!', 80, 5, 1);
2640: TypeSend2('Siik Bruh', 80, 5, 1);
2670: TypeSend2('I got a Catdog irl', 80, 5, 1);
2700: TypeSend2('chingy boww ow', 80, 5, 1);
2730: begin
SendText('cyan:shake: ');
Wait(50 + random(50));
TypeSend2('I s2 killing stuff', 80, 5, 1);
end;
2760: TypeSend2('What?!', 99, 1, 1);
2790: begin
SendText('red:wave: ');
Wait(50 + random(50));
TypeSend2('R.I.P Player Killing.', 80, 5, 1);
end;
2820: TypeSend2('R.I.P Pking', 80, 5, 1);
2850: TypeSend2('RIP Pkin', 80, 5, 1);
2880: TypeSend2('Wish pkin would come back :(', 80, 5, 1);
2910: begin
SendText('flash3:wave: ');
Wait(50 + random(50));
TypeSend2('P.W.N.T!', 99, 1, 1);
end;
2940: begin
SendText('flash2:wave2: ');
Wait(50 + random(50));
TypeSend2(''+Players[CurrentPlayer].Name+' is teh best', 99, 1, 1);
end;
2970: TypeSend2('I am the one, the only, '+Players[CurrentPlayer].Name+'!', 99, 5, 1);
3000: begin
SendText('white:scroll: ');
Wait(50 + random(50));
TypeSend2('.:.:.:.', 99, 1, 1);
end;
end;
end;
begin // The Automatic Responder.
if (Respond = False) then Exit;
begin
GetLastChatText(FText);
if OldMsg = FText then Exit;
OldMsg := FText;
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
end;
begin
if not PosArray(['bored','borin','hungr','food','drink','hi','hello','hey','sup','yo','cya','bye','odbye','ciao','lol','lawl','hah','rofl','lmao','att l','atk l','attack l','attk l','atak l','str l','strength l','def l','fence l','pry l','pray l','rayer l','agic le','mage l','agic lv','hp l','tpoints l','tpoint l','ining l','mine l','fish l','shing l','cook l','oking l','fm l','making l','wc l','tting l','woodcu','oning l','smn l'], FText) then Exit;
FixChat;
LastChatter(RSSUser);
if PosArray(['bored','borin'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(6) of
0: TypeSend2('omg same!', 80, 5, 1);
1: TypeSend2('Im bored aswell. =[', 80, 5, 1);
2: TypeSend2('were all bored lol', 80, 5, 1);
3: TypeSend2('so bored', 80, 5, 1);
4: TypeSend2('yah.. Im so tired', 80, 5, 1);
5: TypeSend2('Im bored like '+(RSSUser)+'.', 80, 5, 1);
end;
end;
end;
begin
FixChat;
if PosArray(['hungr','food','drink'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(6) of
0: TypeSend2('Mmm, thinking of food makes me hungry', 80, 5, 1);
1: TypeSend2('yummy food', 80, 5, 1);
2: TypeSend2('Im thirsty', 80, 5, 1);
3: TypeSend2('yay food', 80, 1, 1);
4: TypeSend2('I want chips!', 80, 5, 1);
5: TypeSend2('little peckish are we?', 80, 5, 1);
end;
end;
end;
begin
FixChat;
LastChatter(RSSUser);
if PosArray(['hi','hello','hey','sup','yo'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(7) of
0: TypeSend2('Hey', 99, 1, 1);
1: TypeSend2('Hi', 99, 0, 0);
2: TypeSend2('Sup', 99, 1, 1);
3: TypeSend2('Hello', 99, 1, 1);
4: TypeSend2('Yo', 99, 0, 0);
5: TypeSend2('Why hello '+(RSSUser)+'', 80, 5, 1);
6: TypeSend2('how are you, '+(RSSUser)+'.', 80, 5, 1);
end;
end;
end;
begin
FixChat;
if PosArray(['cya','bye','odbye','ciao'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('Bye!', 100, 0, 0);
1: TypeSend2('Laters', 80, 5, 1);
2: TypeSend2('Catchya!', 80, 5, 1);
3: TypeSend2('Cya', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['lol','lawl','hah','rofl','lmao'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(8) of
0: TypeSend2('lol', 99, 1, 1);
1: begin
case random(3) of
0: TypeSend2('hah', 99, 1, 1);
1: TypeSend2('haha', 89, 2, 1);
2: TypeSend2('hahah', 79, 3, 1);
3: TypeSend2('hahaha', 69, 4, 1);
4: TypeSend2('hahahaha!', 59, 5, 1);
end;
end;
2: TypeSend2('lawl', 80, 5, 1);
3: TypeSend2('rofl', 80, 5, 1);
4: TypeSend2('lmao', 80, 5, 1);
5: TypeSend2('whats so funneh?', 80, 5, 1);
6: TypeSend2('Whatd I miss? :o', 80, 5, 1);
7: TypeSend2('Umm.. righteo', 80, 5, 1);
end;
end;
end;
begin
FixChat;
if PosArray(['att l','atk l','attack l','attk l','atak l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('attack', false))+' attack.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('attack', false))+' att', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('attack', false))+' atk', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('attack', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['str l','strength l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('strength', false))+' strength.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('strength', false))+' str', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('strength', false))+' str', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('strength', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['def l','fence l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('defence', false))+' defence.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('defence', false))+' def', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('defence', false))+' def', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('defence', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['pry l','pray l','rayer l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('prayer', false))+' prayer.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('prayer', false))+' pry', 80, 5, 1);
2: TypeSend2('Im, '++IntToStr(GetSkillInfo('prayer', false))+' pray', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('prayer', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['agic le','mage l','agic lv'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('magic', false))+' magic.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('magic', false))+' mage', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('magic', false))+' magic', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('magic', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['hp l','tpoints l','tpoint l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('hitpoints', false))+' hitpoints.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('hitpoints', false))+' hp', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('hitpoints', false))+' health', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('hitpoints', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['ining l','mine l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('mining', false))+' mining.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('mining', false))+' minin', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('mining', false))+' mining', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('mining', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['fish l','shing l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('fishing', false))+' fishing.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('fishing', false))+' fish', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('fishing', false))+' fishn', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('fishing', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['cook l','oking l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('cooking', false))+' cooking.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('cooking', false))+' cookin', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('cooking', false))+' cookn', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('cooking', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['fm l','making l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('firemaking', false))+' firemaking.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('firemaking', false))+' firemakin', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('firemaking', false))+' fm', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('firemaking', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['wc l','tting l','woodcu'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('woodcutting', false))+' woodcutting.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('woodcutting', false))+' wc', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('woodcutting', false))+' woodcuttin', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('woodcutting', false))+'', 100, 0, 0);
end;
end;
end;
begin
FixChat;
if PosArray(['oning l','smn l'], FText) then
begin
LastChatter(RSUser);
if Lowercase(Trim(RSUser)) = Lowercase(Players[CurrentPlayer].Name) then Exit;
case random(4) of
0: TypeSend2('I am level, '+IntToStr(GetSkillInfo('summoning', false))+' summoning.', 80, 5, 1);
1: TypeSend2('Im '+IntToStr(GetSkillInfo('summoning', false))+' smnin', 80, 5, 1);
2: TypeSend2('Im, '+IntToStr(GetSkillInfo('summoning', false))+' summonin', 80, 5, 1);
3: TypeSend2(''+IntToStr(GetSkillInfo('summoning', false))+'', 100, 0, 0);
end;
end;
end;
end;
end;
//----------------------------------------------------------------------------\\
// TBKAntiBan 2008-2011© Made By: TurboBk \\
// Please do not edit this code without permission, Thanks. \\
//----------------------------------------------------------------------------\\My High Alcher link to where it's posted:
http://www.villavu.com/forum/showthread.php?t=25194
program TBKAlcher;
{.include SRL/SRL.scar}
{*******************************************************************************
********************************************************************************
_____________________ ____ __. _____ .__ .__
\__ ___/\______ \ |/ _| / _ \ | | ____ | |__ ___________
| | | | _/ < / /_\ \| | _/ ___\| | \_/ __ \_ __ \
| | | | \ | \/ | \ |_\ \___| Y \ ___/| | \/
|____| |______ /____|__ \____|__ /____/\___ >___| /\___ >__|
\/ \/ \/ \/ \/ \/ ©
Use: Anywhere!
For SCAR Divi 3.14 - SRL Rev. #11
Made By: TurboBk
********************************************************************************
********************************************************************************
SETUP: 1. Set the 'const' below.
2. Make sure your Runescape brightness is set to maximum.
3. Setup your character anywhere!
4. Have the Yew longbow's noted in Inventory Slot 1.
5. Have nature runes/fire runes/money in the bottom 3 InvSlots.
6. Drag crosshair onto the Runescape window.
7. Minimize SCAR.
8. Press (Ctrl + Alt + R).
9. Start Script logged in or out doesn't matter.
...............................................................................}
var
x, y, xx, yy, a, Logged, Alched,
YewExp, GoToSleep, FoundFight,
FoundMod : Integer;
Longs : Boolean;
//----------------------------------------------------------------------------\\
// SETUP BELOW ||
//----------------------------------------------------------------------------// ||
const
UseAntiBan = True; // 'True', if you want Script to use the AntiBan (Recommended).
// 'False', if you DO NOT want Script to use the AntiBan.
//
SetTheChats = True; // 'True', to set the chats to the Recommended Settings (Recommended).
// 'False', script will NOT change the chats.
//
DoSleep = True; // 'True', Script will logout and sleep (Recommended).
// 'False', Script will NOT logout and sleep.
//
RunDir = 'N'; // 'N', 'S', 'E', 'W'. Direction to run, if found a fight.
//
TimeToSleep = 3600000; // How long to play until go to sleep in Milliseconds.
// '3600000' will play for 1hour (Recommended).
RTimeToSleep = 1800000; // Extra random time until sleep.
// '1800000' will play from 0 - 30 minutes longer (Recommended).
//
HowLongToSleep = 900000; // How long to sleep for once logged out.
// '900000' will sleep for 15 minutes (Recommended).
RHowLongToSleep = 900000; // Extra random time to sleep for once logged out.
// '900000' will sleep from 0 - 15 minutes longer (Recommended).
//
TimesToAlch = 100; // How many longbow's do you want to Alch?
StartPlayer = 0; // DO NOT Touch!
NumOfPlayers = 1; // DO NOT Touch!
Version = '1.1'; // DO NOT Touch!
procedure DeclarePlayers;
begin
NumberOfPlayers(NumOfPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='Username'; // Runescape Username.
Players[0].Pass :='Password'; // Runescape Password.
Players[0].Nick :='sern'; // 3 - 4 letter of your Username (NOT CAPITALS).
Players[0].Active:=True; // DO NOT Touch!
end;
//----------------------------------------------------------------------------\\
// END OF SETUP ||
//----------------------------------------------------------------------------//
{*******************************************************************************
function FindDaRS: Boolean;
By: RsN
Description: Finds RS Window
*******************************************************************************}
function FindDaRS: Boolean;
begin
Result := FindWindowBySize(766, 504);
end;
//----------------------------------------------------------------------------\\
// SETCHAT PROCEDURE ||
//----------------------------------------------------------------------------//
procedure DoChats;
begin
if (SetTheChats = False) then Exit;
begin
SetChat('on', 1);
SetChat('on', 1);
SetChat('off', 2);
SetChat('off', 2);
SetChat('on', 3);
SetChat('on', 3);
SetChat('off', 4);
SetChat('off', 4);
SetChat('off', 5);
SetChat('off', 5);
end;
end;
//----------------------------------------------------------------------------\\
// PROGGY PROCEDURE ||
//----------------------------------------------------------------------------//
procedure Report;
begin
WriteLN('---------------------------------------');
WriteLN(' TBKAlcher v1.0');
WriteLN('');
WriteLN(' You have logged in and out '+IntToStr(Logged)+' time''s.');
WriteLN('');
WriteLN(' You have alched, '+IntToStr(Alched)+' Long''s.');
WriteLN('');
WriteLN(' You have gained around '+IntToStr(YewExp)+' magic exp.');
WriteLN('');
WriteLN(' Found '+IntToStr(FoundFight)+' fighting random''s.');
WriteLN('');
WriteLN(' Found '+IntToStr(FoundMod)+' moderator''s.');
WriteLN('');
WriteLN(' Script running for '+(TimeRunning)+'.');
WriteLN('');
WriteLN(' ThankYou for using TBKAlcher v1.0');
WriteLN('---------------------------------------');
end;
//----------------------------------------------------------------------------\\
// LOL! CBF TYPING Wait(100 + random(100)); LOTS.. ||
//----------------------------------------------------------------------------//
procedure TBKWait(TimeInMS, RandomTimeInMS : Integer);
begin
Wait(TimeInMS + random(RandomTimeInMS));
end;
//----------------------------------------------------------------------------\\
// LOGIN PROCEDURE ||
//----------------------------------------------------------------------------//
procedure LogMeIn;
begin
if LoggedIn then
begin
WriteLN('User: '+Players[0].Name+' is already logged in.');
Exit;
end;
begin
if not LoggedIn then
if FindDaRS then
begin
WriteLN('Logging in user: '+Players[0].Name+'.');
LoginPlayer;
Logged := Logged + 1;
TBKWait(3000, 2000);
end;
end;
end;
//----------------------------------------------------------------------------\\
// SETUP INTEGERS PROCEDURE ||
//----------------------------------------------------------------------------//
procedure SetupIntegers;
begin
MouseSpeed := 15 + random(3);
Logged := 0;
YewExp := 0;
Alched := 0;
FoundMod := 0;
FoundFight := 0;
end;
//----------------------------------------------------------------------------\\
// ALCHING PROCEDURE ||
//----------------------------------------------------------------------------//
procedure Alch;
begin
GameTab(7);
TBKWait(100, 200);
MouseBox(707, 328, 723, 342, 3);
TBKWait(200, 200);
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
TBKWait(100, 100);
FindNormalRandoms; // Random Checking..
begin
MouseBox(567, 216, 589, 240, 3);
GetMousePos(xx, yy);
TBKWait(200, 100);
if not IsUpTextMulti('yew','long','bow') then
begin
WriteLN('----------------------');
WriteLN('No more long''s to Alch.');
Logout;
Report;
WriteLN('**Script Terminated**');
TerminateScript;
end;
end;
begin
Mouse(xx, yy, 0, 0, true);
Alched := Alched + 1;
Disguise('Alched: '+IntToStr(Alched)+' longs.');
YewExp := YewExp + 65;
TBKWait(1800, 200);
end;
end;
//----------------------------------------------------------------------------\\
// IF TALKED TO PROCEDURE (More AntiBan!) ||
//----------------------------------------------------------------------------//
procedure IfTalkedTo;
begin
FixChat;
if not InChat(Players[CurrentPlayer].Nick) then Exit;
begin
case random(4) of
0 : TypeSend('.');
1 : TypeSend('..');
2 : TypeSend('...');
3 : TypeSend('....');
end;
end;
begin
Alch;
Alch;
Alch;
end;
begin
case random(4) of
0 : TypeSend('?');
1 : TypeSend('??');
2 : TypeSend('???');
3 : TypeSend('Righteo..');
end;
end;
end;
//----------------------------------------------------------------------------\\
// CHECKS FOR YEW LONG'S IN INVSLOT 1 ||
//----------------------------------------------------------------------------//
procedure CheckForLongs;
begin
GameTab(4);
TBKWait(200, 400);
MouseBox(567, 216, 589, 240, 3);
TBKWait(100, 1500);
if IsUpTextMulti('yew','long','bow') then
begin
Longs := True;
WriteLN('Found yew longbow''s!');
end;
begin
if not IsUpTextMulti('yew','long','bow') then
begin
Longs := False;
WriteLN('Can''t find any longbow''s in InvSlot 1, Check and restart Script.');
TerminateScript;
end;
end;
end;
//----------------------------------------------------------------------------\\
// CHECKS THAT THE 'HIGH ALCH' SYMBOL ISN'T GREYED OUT ||
//----------------------------------------------------------------------------//
procedure CheckIfCanAlch;
begin
CheckForLongs;
if (Longs = True) then
begin
GameTab(7);
TBKWait(400, 200);
if not FindColorTolerance(x, y, 849658, 704, 332, 725, 345, 10) then
begin
WriteLN('You don''t have the runes OR level 55 magic to High Alch, Check and restart the script');
TerminateScript;
end;
end;
end;
//----------------------------------------------------------------------------\\
// ANTI-BAN PROCEDURE ||
//----------------------------------------------------------------------------//
procedure AntiBannage;
begin
if LoggedIn then
if (UseAntiBan = False) then Exit;
a := 401;
case random(a) of
0: HoverSkill('magic', false);
40: case random(3) of
0: MakeCompass('N');
1: MakeCompass('S');
2: MakeCompass('E');
3: MakeCompass('W');
end;
80: HoverSkill('magic', false);
120: BoredHuman;
160: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
200: HoverSkill('magic', false);
240: PickupMouse;
280: GameTab(1 + random(13));
320: HoverSkill('magic', false);
360: MMouse(MSX1, MSY1, MSX2 + random(15), MSY2 + random(15));
400: PickupMouse;
end;
end;
//----------------------------------------------------------------------------\\
// SLEEP PROCEDURE ||
//----------------------------------------------------------------------------//
procedure Sleepy;
begin
if (DoSleep = False) then Exit;
if not TimeFromMark(GoToSleep) <= (TimeToSleep + Random(RTimeToSleep)) then Exit;
begin
WriteLN('Logged out player, '+Players[CurrentPlayer].Name+'.');
WriteLN('Sleeping..');
Disguise('Sleeping..');
Logout;
Logged := Logged + 1;
TBKWait(HowLongToSleep, RHowLongToSleep);
LogMeIn;
MarkTime(GoToSleep);
CheckIfCanAlch;
Alch;
end;
end;
//----------------------------------------------------------------------------\\
// RANDOMS PROCEDURE ||
//----------------------------------------------------------------------------//
procedure Randoms;
begin
FindTalk;
begin
if not FindFight then Exit;
begin
if FindFight then
begin
RunAway(RunDir, True, 1, 15000 + random(10000));
WriteLN('**IN A FIGHT**');
WriteLN('Running Away');
Disguise('**IN A FIGHT**');
FoundFight := FoundFight + 1;
end;
end;
end;
begin
if not FindMod then Exit;
begin
if FindMod then
begin
Logout;
WriteLN('Found a Mod - Waiting about 5 minutes');
FoundMod := FoundMod + 1;
TBKWait(300000, 120000);
LogMeIn;
CheckIfCanAlch;
Alch;
end;
end;
end;
end;
//----------------------------------------------------------------------------\\
// MAIN LOOP PROCEDURE ||
//----------------------------------------------------------------------------//
procedure MainLoop;
begin
SetupSRL;
DeclarePlayers;
SetupIntegers;
LogMeIn;
MarkTime(GoToSleep);
DoChats;
CheckIfCanAlch;
repeat
Randoms;
Alch;
IfTalkedTo;
AntiBannage;
Sleepy;
until(Alched = TimesToAlch);
Logout;
Report;
end;
begin
MainLoop;
end.
//----------------------------------------------------------------------------\\
// Made By: TurboBk | Please do NOT edit/steal part's from this script. ||
//----------------------------------------------------------------------------//I was trying to attach them at the bottom but it told me I do not have sufficient privledge's.
Thanks,
TurboBk
——————————————————
<!– END TEMPLATE: formanswers –>