FrÕzÑ_§ÕµL
2007-11-02 16:19:24
<!– BEGIN TEMPLATE: formanswers –>
Fr0zn S0ul - SRL Member Application Form
Fr0zn S0ul
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB and HTML
Other Communitys
Last Chaos Bots - blastchaosbots.runboard.com
How Long have You Played Runescape
5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for nearly a year now, and thoroughly enjoy sittting down for hours and writing an awesome script. I also love teaching people how to script, as releasing scripts to the community and teaching people how to make their own is just awesome! Also when SRL 4 came out I got permission from Azzon to release a new version of his GnomeAgilityRunner so that people could continue to use it. The link to this is http://www.villavu.com/forum/showthread.php?t=16551?p=202149.
Lately I have been working on my Tree Cutter (Attached) and my Last Chaos Bots site. I have an awesome thread going with my Tree Cutter (Now at 5 pages) and the users have helped me to make this script really great! This thread can be found at http://www.villavu.com/forum/showthread.php?t=18498?p=231776. This morning I started making a SendText3 (it serves the same purpose as SendText2, except that SendText2 used chr() and that means you can get something like Hamlo instead of Hello. SendText3 presses keys AROUND the original letter, so Hello could be spelled Hgllo. Much less obvious and Human-Like, agreed?
Thanks and I hope you enjoy any of my releases!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Fr0zn S0ul - SRL Member Application Form
Fr0zn S0ul
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB and HTML
Other Communitys
Last Chaos Bots - blastchaosbots.runboard.com
How Long have You Played Runescape
5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for nearly a year now, and thoroughly enjoy sittting down for hours and writing an awesome script. I also love teaching people how to script, as releasing scripts to the community and teaching people how to make their own is just awesome! Also when SRL 4 came out I got permission from Azzon to release a new version of his GnomeAgilityRunner so that people could continue to use it. The link to this is http://www.villavu.com/forum/showthread.php?t=16551?p=202149.
Lately I have been working on my Tree Cutter (Attached) and my Last Chaos Bots site. I have an awesome thread going with my Tree Cutter (Now at 5 pages) and the users have helped me to make this script really great! This thread can be found at http://www.villavu.com/forum/showthread.php?t=18498?p=231776. This morning I started making a SendText3 (it serves the same purpose as SendText2, except that SendText2 used chr() and that means you can get something like Hamlo instead of Hello. SendText3 presses keys AROUND the original letter, so Hello could be spelled Hgllo. Much less obvious and Human-Like, agreed?
Thanks and I hope you enjoy any of my releases!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\ Fr0zn S0ul's Multi-Tree Chopper Banker~Dropper \\//\\//\\//\\}
{//\\//\\//\\// Version: 2.2 //\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Hi, thanks for using my script. If you have any \\//\\//\\//}
{\\//\\//\\// questions, problems or suggestions, feel free to //\\//\\//\\}
{//\\//\\//\\ contact me at SRL Forums. I recommend using mozilla \\//\\//\\//}
{\\//\\//\\// firefox as the script runs much better on it. You //\\//\\//\\}
{//\\//\\//\\ can download it from [url]www.mozilla.com[/url]. \\//\\//\\//}
{\\//\\//\\// Read my instructions and hints carefully! //\\//\\//\\}
{//\\//\\//\\ Make sure you set up the script in lines 82 - 158. \\//\\//\\//}
{\\//\\//\\// Read my instructions and hints carefully! //\\//\\//\\}
{\\//\\//\\// Run RuneScape in your internet browser on low detail.//\\//\\//\\}
{//\\//\\//\\ Do not use clients! \\//\\//\\//}
{\\//\\//\\// Make sure your brightness is set to max. //\\//\\//\\}
{\\//\\//\\// Start script by the tree, not in bank! (View tree //\\//\\//\\}
{\\//\\//\\// locations at this scripts thread on SRL forums) //\\//\\//\\}
{\\//\\//\\// Drag the crosshair on your SCAR toolbar onto the //\\//\\//\\}
{\\//\\//\\// RuneScape login screen. //\\//\\//\\}
{\\//\\//\\// Start player by the tree you wish to cut. //\\//\\//\\}
{\\//\\//\\// I suggest weilding one axe and holding one in inv 1. //\\//\\//\\}
{\\//\\//\\// If Dropping logs then weild one axe, hold one axe in //\\//\\//\\}
{\\//\\//\\// inv 1 and put 1gp in inv slot 2(So you keep gp from //\\//\\//\\}
{\\//\\//\\// random events). //\\//\\//\\}
{\\//\\//\\// If banking willows make sure you are over level 14 //\\//\\//\\}
{\\//\\//\\// or else you will DIE. //\\//\\//\\}
{//\\//\\//\\ Sit back and watch some TV, play Halo 3 or go make \\//\\//\\//}
{\\//\\//\\// yourself a cup of coffee =) //\\//\\//\\}
{//\\//\\//\\ Script was made using SCAR 3.12 and SRL 4. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Fr0zn S0ul \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\// Current Version: 2.2 \\//\\//\\//\\//\\//\\//\\//}
{//\\//\\//\\//\\//\\//\\ *Release Notes* //\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Version 1.0: \\//\\//\\//}
{\\//\\//\\// Release version. //\\//\\//\\}
{//\\//\\//\\ \\//\\//\\//}
{\\//\\//\\// Version 1.1: //\\//\\//\\}
{//\\//\\//\\ Fixed bugs in WorldSwitcher. Adjusted AutoResponder. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 1.2: \\//\\//\\//}
{\\//\\//\\// Created my own AutoResponder. //\\//\\//\\}
{//\\//\\//\\ Changed FindEnt2. Added PosArray function. \\//\\//\\//}
{\\//\\//\\// Revamped Willow Banker. Changed Yew banker tons (it //\\//\\//\\}
{//\\//\\//\\ definitely works now =p). \\\\//\\//\\}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 1.3: \\//\\//\\//}
{\\//\\//\\// Deleted the loops in AutoResponder, which were the //\\//\\//\\}
{//\\//\\//\\ cause of the lag. NO MORE LAG =D \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 1.4: \\\\//\\////}
{\\//\\//\\// Added support for Bank PIN anf fixed LogOutWait. //\\//\\//\\}
{//\\//\\//\\ \\\\//\\////}
{\\//\\//\\// Version 1.5: //\\//\\//\\}
{//\\//\\//\\ Added RunDirection when find fight or ent. Added \\\\//\\////}
{\\//\\//\\// new bankers at draynor for trees and oaks =) (See //\\//\\//\\}
{//\\//\\//\\ script thread at SRL forums for pictures on exactly \\\\//\\////}
{\\//\\//\\// where to cut). WorldSwitcher no longer gets stuck if //\\//\\//\\}
{//\\//\\//\\ NWorld is full. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 2.0: \\//\\//\\//}
{\\//\\//\\// Added AutoChatter. Readjusted AutoResponder. Slightly//\\//\\//\\}
{//\\//\\//\\ modified bankers. General fix up. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 2.1: \\//\\//\\//}
{\\//\\//\\// Just a small but noticible bug that could cause bans //\\//\\//\\}
{//\\//\\//\\ after logging in. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Version 2.2: \\//\\//\\//}
{\\//\\//\\// Fixed WorldSwitcher error cause by SRL rev#6. Sorry //\\//\\//\\}
{//\\//\\//\\ about that guys! \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{//\\//\\//\\//\\//\\//\\// Banking Locations \\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Draynor Trees: \\//\\//\\//}
{\\//\\//\\// North West of the Bank, Near the Trapdoor. //\\//\\//\\}
{//\\//\\//\\ \\//\\//\\//}
{\\//\\//\\// Draynor Oak: //\\//\\//\\}
{//\\//\\//\\ Beside Bank on East Side. \\//\\//\\//}
{\\//\\//\\// //\\//\\//\\}
{//\\//\\//\\ Draynor Willows: \\//\\//\\//}
{\\//\\//\\// Beside Bank on South West Side. //\\//\\//\\}
{//\\//\\//\\ \\//\\//\\//}
{\\//\\//\\// Varrock Yews: //\\//\\//\\}
{//\\//\\//\\ Behind the Castle in a North East Direction from \\//\\//\\//}
{\\//\\//\\// the West Bank (Go to Varrock Center, then North and //\\//\\//\\}
{//\\//\\//\\ Up the West Path Until You See the Two Yews). \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
___________ _______ _______ ________________ .____
\_ _____/______ \ _ \ ________\ \ / _____/\ _ \ __ __| |
| __) \_ __ \/ /_\ \\___ // | \ \_____ \ / /_\ \| | \ |
| \ | | \/\ \_/ \/ // | \ / \\ \_/ \ | / |___
\___ / |__| \_____ /_____ \____|__ /____/_______ / \_____ /____/|_______ \
\/ \/ \/ \/_____/ \/ \/ \/
}
program MultiTreeChopperBankerDropper;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
x, y, mx, my, i, Count, LogCounter, LogOutEvery, LogOutWaitEvery, LogOutWaitFor, LoadsTillLog : Integer;
LevelsGained, XPNextLevel, NextLevel, Tries, Tree_C, Log_C, TimeMarker, Attempts : Integer;
NWorld, OWorld, Total, ActivePlayers, RemoveChatters, LolChatter, RandomChatter : Integer;
VarrockRoadColor, VarrockDirtColor, FreeSlot, TalkEvery : Integer;
Tree, TextFound, Name : String;
LogOutWait, FoundTree : Boolean;
Chatters : Array[0..100] of string;
{.include SRL/SRL/misc/WorldSwitcher.scar}
{.include SRL/SRL/misc/VarrockWestColorFinder.scar}
const
g_ColorTol = 10; //Game screen color tolerance
Knife_C = 538966; //Knife color, don't need yet =p
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
//I recommend using Mozilla FireFox. The script runs much better on it. Get it at [url]www.mozilla.com[/url].
Procedure DeclarePlayers;
begin
HowManyPlayers := 5; //How many players to use.
NumberOfPlayers( HowManyPlayers ); //Leave this.
CurrentPlayer := 0; //Start Player? eg 0 means Players[0].name
SRLID := ''; //Don't have this? Please register at:
SRLPassword := ''; //http://www.stats.srl-forums.com/
LampSkill := 'woodcutting'; //Skill to choose when get a genie lamp.
TalkEvery := 10 + random(5); //Randomly chat every how many minutes?
LogOutEvery := 10; //NextPlayer every how many loads
LogOutWait := false; //Logout for an extra amount of time?
LogOutWaitEvery := 7; //LogOutWait every how many Logouts?
LogOutWaitFor := 5 + random(10); //How many minutes to wait for when LogOutWait is true.
Players[0].Name := 'youruser0'; //Username
Players[0].Pass := 'yourpass0'; //Password
Players[0].Nick := 'urus'; //3-4 chars of name(ie: if .name is 'srlforlife' then set .nick at 'orli').
Players[0].Active := true; //Use this player?
Players[0].Integers[0] := 10000; //How many loads total to do on this player.
Players[0].Strings[0] := 'Willow'; //Tree to cut. Choose from Tree, Oak, Willow, Yew.
Players[0].Strings[1] := 'Bank'; //What to do with logs. Choose from Drop or Bank. Willows, Trees and Oaks bank at draynor. Yews bank at Varrock West. (See Above For Positions)
Players[0].Strings[2] := ''; //Bank PIN number. (If you have one, otherwise leave as '')
Players[0].Strings[3] := 'E'; //Direction to run when FindFight or Ent. (N, NE, E, SE, S, SW, W, NW)
Players[0].Booleans[0] := false; //Are you a member? (Members will use members only worlds, set false to use F2P worlds)
Players[1].Name := 'youruser1';
Players[1].Pass := 'yourpass1';
Players[1].Nick := 'urus';
Players[1].Active := true;
Players[1].Integers[0] := 10000;
Players[1].Strings[0] := 'Willow';
Players[1].Strings[1] := 'Bank';
Players[1].Strings[2] := '';
Players[1].Strings[3] := 'E';
Players[1].Booleans[0] := false;
Players[2].Name := 'youruser2';
Players[2].Pass := 'yourpass2';
Players[2].Nick := 'urus';
Players[2].Active := true;
Players[2].Integers[0] := 10000;
Players[2].Strings[0] := 'Willow';
Players[2].Strings[1] := 'Bank';
Players[2].Strings[2] := '';
Players[2].Strings[3] := 'E';
Players[2].Booleans[0] := false;
Players[3].Name := 'youruser3';
Players[3].Pass := 'yourpass3';
Players[3].Nick := 'urus';
Players[3].Active := true;
Players[3].Integers[0] := 10000;
Players[3].Strings[0] := 'Willow';
Players[3].Strings[1] := 'Bank';
Players[3].Strings[2] := '';
Players[3].Strings[3] := 'E';
Players[3].Booleans[0] := false;
Players[4].Name := 'youruser4';
Players[4].Pass := 'yourpass4';
Players[4].Nick := 'urus';
Players[4].Active := true;
Players[4].Integers[0] := 10000;
Players[4].Strings[0] := 'Willow';
Players[4].Strings[1] := 'Bank';
Players[4].Strings[2] := '';
Players[4].Strings[3] := 'E';
Players[4].Booleans[0] := false;
end;
{*******************************************************************************
function FindWestVarrockRoadColor(var RoadColor : Integer; RX1, RY1, RX2, RY2: Integer) : Boolean;;
By: WT-Fakawi and modified by Ron
Description: Find Varrock West Road Color.
*******************************************************************************}
function FindVarrockDirtRoadColor1(var RoadColor : Integer; RX1, RY1, RX2, RY2: Integer) : Boolean;
var
c, TX, TY, WestVarrockRoad1: Integer;
begin
WestVarrockRoad1 := BitmapFromString(10, 9, 'beNori+suG0UwBABN+Htn');
while (c < 65) do
begin
c := c + 5;
if FindBitmapToleranceIn(WestVarrockRoad1, TX, TY, RX1, RY1, RX2, RY2, c)
then
begin
RoadColor := GetColor(TX, TY);
Result := True;
Break;
end;
end;
if not(Result) then
WriteLn('ERROR: RoadColor NOT Found');
FreeBitmap(WestVarrockRoad1);
end;
function FindVarrockDirtRoadColor2(var RoadColor : Integer; RX1, RY1, RX2, RY2: Integer) : Boolean;
var
c, TX, TY, WestVarrockRoad2: Integer;
begin
WestVarrockRoad2 := BitmapFromString(4, 6, 'beNorjGwrpAYCAHxMH4E=');
while (c < 65) do
begin
c := c + 5;
if FindBitmapToleranceIn(WestVarrockRoad2, TX, TY, RX1, RY1, RX2, RY2, c)
then
begin
RoadColor := GetColor(TX, TY);
Result := True;
Break;
end;
end;
if not(Result) then
WriteLn('ERROR: RoadColor NOT Found');
FreeBitmap(WestVarrockRoad2);
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure WorldSelect;
Begin
OWorld := NWorld;
Repeat
if Players[CurrentPlayer].Booleans[0] = false then
Begin
Repeat
case random(58) of
0: NWorld := 7;
1: NWorld := 8;
2: NWorld := 10;
3: NWorld := 13;
4: NWorld := 14;
5: NWorld := 15;
6: NWorld := 16;
7: NWorld := 17;
8: NWorld := 19;
9: NWorld := 20;
10: NWorld := 21;
11: NWorld := 25;
12: NWorld := 30;
13: NWorld := 33;
14: NWorld := 34;
15: NWorld := 35;
16: NWorld := 37;
17: NWorld := 38;
18: NWorld := 40;
19: NWorld := 41;
20: NWorld := 43;
21: NWorld := 47;
22: NWorld := 55;
23: NWorld := 57;
24: NWorld := 61;
25: NWorld := 62;
26: NWorld := 63;
27: NWorld := 72;
28: NWorld := 74;
29: NWorld := 75;
30: NWorld := 85;
31: NWorld := 86;
32: NWorld := 87;
33: NWorld := 90;
34: NWorld := 93;
35: NWorld := 94;
36: NWorld := 95;
37: NWorld := 96;
38: NWorld := 101;
39: NWorld := 102;
40: NWorld := 105;
41: NWorld := 106;
42: NWorld := 107;
43: NWorld := 108;
44: NWorld := 109;
45: NWorld := 113;
46: NWorld := 117;
47: NWorld := 118;
48: NWorld := 119;
49: NWorld := 125;
50: NWorld := 126;
51: NWorld := 127;
52: NWorld := 128;
53: NWorld := 133;
54: NWorld := 134;
55: NWorld := 135;
56: NWorld := 136;
57: NWorld := 141;
58: NWorld := 142;
end;
until(NWorld <> OWorld);
end else
Begin
Repeat
case random(54) of
0: NWorld := 12;
1: NWorld := 22 ;
2: NWorld := 23;
3: NWorld := 24;
4: NWorld := 26
5: NWorld := 27;
6: NWorld := 28;
7: NWorld := 31;
8: NWorld := 36;
9: NWorld := 39;
10: NWorld := 42;
11: NWorld := 44;
12: NWorld := 45;
13: NWorld := 46;
14: NWorld := 48;
15: NWorld := 54;
16: NWorld := 56;
17: NWorld := 58;
18: NWorld := 59;
19: NWorld := 64;
20: NWorld := 65;
21: NWorld := 66;
22: NWorld := 70;
23: NWorld := 71;
24: NWorld := 76;
25: NWorld := 77;
26: NWorld := 78;
27: NWorld := 79;
28: NWorld := 88;
29: NWorld := 89;
30: NWorld := 91;
31: NWorld := 92;
32: NWorld := 97;
33: NWorld := 98;
34: NWorld := 99;
35: NWorld := 100;
36: NWorld := 103;
37: NWorld := 104;
38: NWorld := 110;
39: NWorld := 111;
40: NWorld := 112;
41: NWorld := 114;
42: NWorld := 115;
43: NWorld := 116;
44: NWorld := 120;
45: NWorld := 121;
46: NWorld := 124;
47: NWorld := 129;
48: NWorld := 130;
49: NWorld := 131;
50: NWorld := 132;
51: NWorld := 137;
52: NWorld := 138;
53: NWorld := 143;
end;
until(Nworld <> OWorld);
end;
until(SelectWorld(NWorld));
ReportVars[1] := ReportVars[1] + 1;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Function PosArray(SubStr : Array of String; S : String) : Boolean;
Begin
for i := 0 to GetArrayLength(SubStr) - 1 do
Begin
Result := Pos(SubStr[i], S) > 0;
if Result then exit;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure AutoRespond;
begin
GetLastChatText(TextFound);
if Not(PosArray(['wc l', 'woodcutting l', 'w/c l', 'wc?', 'wcing l', 'lol', 'haha','hehe','lmao','rofl','hi ','hello',' hey',' yo ','bot ','macro','u noob','u nub','u loser',Players[CurrentPlayer].Name, Left(Players[CurrentPlayer].Name, 4), Right(Players[CurrentPlayer].Name, 4), 'woot','woop'],TextFound)) then exit;
LastChatter(Name);
if Lowercase(Name) = Lowercase(Players[CurrentPlayer].Name) then exit;
if TimeFromMark(RemoveChatters) >= 50000 then
Begin
MarkTime(RemoveChatters);
for i := 0 to FreeSlot - 1 do
Begin
Chatters[i] := ''
end;
FreeSlot := 1;
end;
for i := 0 to FreeSlot - 1do
Begin
if Chatters[i] = Name then exit;
end;
for i := FreeSlot to 100 do
if Chatters[i] = '' then
Begin
Chatters[i] := Name;
FreeSlot := FreeSlot + 1;
Break;
end;
if (PosArray(['wc l','woodcutting l', 'w/c l', 'wc?', 'wcing l'],TextFound)) then
Begin
if (Players[CurrentPlayer].Integers[2] <= 0) then
Begin
Players[CurrentPlayer].Integers[2] := GetSkillLevel('WoodCutting');
end;
Case Random(6) of
0: Typesend(IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
1: Typesend('me ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained) + ' u?');
2: Typesend(IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained) + ' =p');
3: Typesend('I' + chr(39) + 'm ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
4: Typesend(IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained) + '...');
5: Typesend('low =[');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray(['lol','haha','hehe','lmao','rofl'],TextFound)) then
Begin
If TimeFromMark(LolChatter) < 10000 then exit;
MarkTime(LolChatter);
Case Random(10) of
0: Typesend('lol');
1: Typesend('');
2: Typesend('lmao');
3: Typesend('rofl');
4: Typesend('?');
5: Typesend('...');
6: Typesend('haha');
7: Typesend('hehe');
8: Typesend('=]');
9: TypeSend('');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray(['Hi ','Hello',' hey','sup',' yo '],TextFound)) then
Begin
Case Random(12) of
0: Typesend('hi');
1: Typesend('hello');
2: Typesend('hey');
3: Typesend('yo');
4: Typesend('sup');
5: Typesend('wasup');
6: Typesend('g' + chr(39) + 'day');
7: Typesend('good mornin!');
8: Typesend('good aftanoon!');
9: Typesend('good evenin!');
10: Typesend('ohaiyogozaimasu');
11: Typesend('hau');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray(['bot ', 'macro'],TextFound)) then
Begin
Case Random(10) of
0: Typesend('Wat r they?');
1: Typesend('wots the point in gettin sumthin else 2 play 4 u?');
2: Typesend('bots r stupid');
3: Typesend('i h8 bots');
4: Typesend('macros r ruinin rs for us =[');
5: Typesend('?');
6: Typesend('stupid autos r forcing jagex to fight back... wich affects us 2 =[');
7: Typesend('macros made our shop prices rise =[');
8: Typesend('bots r so obvious');
9: Typesend('wots da point banning macros coz there r bots to even make new bots = /');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray(['u noob','u nub','u loser'],TextFound)) then
Begin
Case Random(10) of
0: Typesend('stfu');
1: Typesend('look in da mirror');
2: Typesend('lmao u r');
3: Typesend('...');
4: Typesend('omg...');
5: Typesend('get a life');
6: Typesend('gotta start sumwhea');
7: Typesend('shut up');
8: Typesend('hmph');
9: TypeSend('=[');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray([Players[CurrentPlayer].Name, Left(Players[CurrentPlayer].Name, 4), Right(Players[CurrentPlayer].Name, 4)],TextFound)) then
Begin
Case Random(9) of
0: Typesend('me?');
1: Typesend('wot u want');
2: Typesend('...');
3: Typesend('leave me alone!');
4: Typesend('I' + chr(39) + 'm not in the mood =[');
5: Typesend('ye?');
6: Typesend('yo?');
7: Typesend('uh?');
8: Typesend('shudup');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
if (PosArray(['woot','woop'],TextFound)) then
Begin
Case Random(9) of
0: Typesend('gratz');
1: Typesend('grats');
2: Typesend('...');
3: Typesend('what?');
4: Typesend('huh?');
5: Typesend('wat?');
6: Typesend('wot?');
7: Typesend('uh whatd i miss?');
8: Typesend('');
end;
WriteLn(Players[CurrentPlayer].Name + ': Talked to ' + Name);
talks := talks + 1;
exit;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure AutoChatter;
begin
if TimeFromMark(RandomChatter) < TalkEvery * 60000 then exit;
MarkTime(RandomChatter);
if (Players[CurrentPlayer].Integers[2] <= 0) then
Begin
Players[CurrentPlayer].Integers[2] := GetSkillLevel('WoodCutting');
end;
Case Random(20) of
0: Case Random(11) of
0: Typesend('wc lvls? me ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
1: Typesend('wc lvlz? ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
2: Typesend('woodcuttin lvls? Im ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
3: Typesend('wc levels? ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
4: Typesend('wc lvls? Im ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
5: Typesend('Woodcutting levels? Im ' + IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained));
6: Typesend('wc lvl ' + chatters[0] +'?');
7: Typesend('yo '+ chatters[0] + ' wc lvl?');
8: Typesend('wats ur wc lvl ' + chatters[0] + '?');
9: Typesend('woodcutting lvl ' + chatters[0] + '?');
10: Typesend('wats ur woodcutting lvl ' + chatters[0] + '?');
end;
1: Typesend('Man im bored');
2: Typesend('wc is soo boring!');
3: Typesend('hehe gime dem ' + tree + 's!');
4: Typesend('so sleepy...');
5: Typesend('arg cmon u stupid tree!');
6: Typesend('haha im so nooby');
7: Typesend('woot lvl '+ IntToStr(Players[CurrentPlayer].integers[2] + LevelsGained) + '!');
8: Typesend(tree + 's r all mine!');
9: Typesend('look at all da bots =[');
10: Typesend('yay nerly lvl!');
11: Typesend('sweet only 2k to lvl!');
12: Typesend('im da man!');
13: Typesend('join rabbit pkerz clan chat its awsom!');
14: Typesend('u guys eva been in zezimas chat? u cant here urself think!');
15: Typesend('omg i wish i was a mem...');
16: Typesend('red:shake:mwuahahaha my ' + tree + 's!');
17: Typesend('white: have a good day all of you... =]');
18: Typesend('red:shake: Im goin 2 eat ur souls mwuahahahahahahahahahaha');
19: Typesend('what sorta music yall listen 2?');
end;
talks := talks + 1;
Writeln(Players[CurrentPlayer].Name + ': Auto Chattered');
end;
procedure CheckForRandoms; forward;
{*******************************************************************************
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
By: Sumilion
Description: Will look for an Ent and avoid if found.
*******************************************************************************}
function FindEnt2(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
arUpTextEntColorPoints: TPointArray;
x, y, EntTime, tcts: Integer;
begin
if not(LoggedIn)then
Exit;
GetMousePos(x, y);
if(x <> fx)or(y <> fy)then
MMouse(fx, fy, 0, 0);
if(IsUpText('Chop'))then
begin
tcts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
Result := Length(arUpTextEntColorPoints) > 10;
ColorToleranceSpeed(tcts);
end;
if(Result)then
begin
WriteLn('Ent Found!!');
if(AvoidWhenFound)then
begin
mx := 644;
my := 83;
case Lowercase(Players[CurrentPlayer].Strings[3]) of
'n' : Mouse(mx, my - 15, 0, 0, true);
'ne' : Mouse(mx + 15, my - 15, 0, 0, true);
'e' : Mouse(mx + 15, my, 0, 0, true);
'se' : Mouse(mx + 15, my + 15, 0, 0, true);
's' : Mouse(mx, my + 15, 0, 0, true);
'sw' : Mouse(mx - 15, my + 15, 0, 0, true);
'w' : Mouse(mx - 15, my, 0, 0, true);
'nw' : Mouse(mx - 15, my - 15, 0, 0, true);
end;
Writeln('Waiting for it to go away.');
MarkTime(EntTime);
case random(21) of
0: Typesend('aaaaaaah!');
1: Typesend('stupid ent');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy its scary!');
4: Typesend('hehe it looks weird');
5: Typesend('moving tree!');
6: Typesend('be nice tree!');
7: Typesend('=...[ mommy the tree wipped me!');
8: Typesend('bad tree!');
9: Typesend('ent!');
10: Typesend('omfg those are annoying');
11: Typesend('haha watch em all run...');
12: Typesend('red:it wants to eat ur soul...');
13: Typesend('ys da tree movin?');
14: Typesend('wth is up wit da tree?');
15: Typesend('grr stupid tree');
16: Typesend('im not in the mood ent!');
17: Typesend('ffs');
18: Typesend('');
19: Typesend('');
20: Typesend('');
end;
while(TimeFromMark(EntTime) < 35000)do
if (Random(20) > 15) then
Begin
FindNormalRandoms;
IdleTime(500, 500, 0.4)
end else
Begin
FindNormalRandoms;
Wait(500 + random(250));
end;
EntsAvoided := EntsAvoided + 1;
case Lowercase(Players[CurrentPlayer].Strings[3]) of
'n' : Mouse(mx, my + 15, 0, 0, true);
'ne' : Mouse(mx - 15, my + 15, 0, 0, true);
'e' : Mouse(mx - 15, my, 0, 0, true);
'se' : Mouse(mx - 15, my - 15, 0, 0, true);
's' : Mouse(mx, my - 15, 0, 0, true);
'sw' : Mouse(mx + 15, my - 15, 0, 0, true);
'w' : Mouse(mx + 15, my, 0, 0, true);
'nw' : Mouse(mx + 15, my + 15, 0, 0, true);
end;
Flag;
end;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure TreeSetup;
Begin
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'tree' then
begin
Tree := 'Tree';
Tree_C := 2308923;
Log_C := 3957891 ;
end else
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'oak' then
begin
Tree := 'Oak';
Tree_C := 1665115;
Log_C := 4156040;
end else
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'willow' then
begin
Tree := 'Willow';
Tree_C := 2178873;
Log_C := 1919828;
end else
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'yew' then
begin
Tree := 'Yew';
Tree_C := 3171931;
Log_C := 607323;
end else
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'magic' then
begin
Tree := 'Magic';
Tree_C := 0;
Log_C := 6523539;
end else
Begin
ReadLn('Please enter a valid tree name (Tree, Oak, Willow, Yew)');
Raiseexception(ErCouldNotCallProc, 'Invalid Tree Name');
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure Fr0zn_S0uls_Greeting;
begin
ClearDebug;
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//');
Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ' + ' ()' + (chr(39)) + (chr(39)) + (chr(39)) + '()');
Writeln('\\//\\// I hope you enjoy this script! //\\//\\// ' + ' (' + (chr(39)) + '( 0 0 )' + (chr(39)) +')');
Writeln('//\\//\\ Fr0zN_S0uL \\//\\//\\ ' + ' ( o )');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\// ' + ' (' + (chr(39)) + ')-(' + (chr(39)) + ')');
Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\');
WriteLn('* I recommend using Mozilla FireFox. The script runs much better on it *');
WriteLn('* Get it at [url]www.mozilla.com[/url] *');
WriteLn('');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure PlayerReport;
Begin
if (Players[CurrentPlayer].Integers[2] <= 0) then
Begin
Players[CurrentPlayer].Integers[2] := GetSkillLevel('WoodCutting');
end;
LevelsGained := GetSkillLevel('WoodCutting') - Players[CurrentPlayer].Integers[2];
NextLevel := GetSkillLevel('WoodCutting') + 1;
XPNextLevel := XpTilNextLevel('WoodCutting', false);
Total := 0;
ActivePlayers := 0;
for i := 0 to HowManyPlayers - 1 do
Begin
Total := Total + Players[i].Integers[1];
if (Players[i].Active = true) then
Begin
ActivePlayers := ActivePlayers + 1;
end;
end;
WriteLn('');
WriteLn('() (=================================================)');
WriteLn('() (= Fr0zn S0uls Multi-Tree Chopper Banker~Dropper =)');
WriteLn('() (= ' + Players[CurrentPlayer].Name + chr(39) + 's Report');
WriteLn('() (=================================================)');
WriteLn('() (= Woodcutting Levels Gained: ' + IntToStr(LevelsGained));
Writeln('() (= ' + IntToStr(XPNextLevel) + ' XP To Level ' + IntToStr(NextLevel) + ' Woodcutting');
WriteLn('() (= Done ' + IntToStr(Players[CurrentPlayer].Integers[1]) + ' of ' + IntToStr(Total) + ' Total Loads' + ' (' + IntToStr(ActivePlayers) + ' Players Still Active)');
Writeln('() (= Script Running For: ' + TimeRunning);
WriteLn('() (=================================================)');
WriteLn('');
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
LoadsTillLog := LoadsTillLog - 1;
ReportVars[0] := ReportVars[0] + 1;
SRLRandomsReport;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure InvAmount;
begin
Count := 0;
for i := 1 to 28 do
begin
if (existsItem(i)) then Count := Count + 1;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure LogInSetup;
Begin
if Not(LoggedIn) then LoginPlayer;
MarkTime(RemoveChatters);
MarkTime(RandomChatter);
for i := 0 to FreeSlot - 1 do
Begin
Chatters[i] := '';
end;
FreeSlot := 1;
LoadsTillLog := LogOutEvery + random(2);
tries := 0;
TreeSetup;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, Upchars);
WriteLn(Players[CurrentPlayer].Name + ': Lets Cut Some Trees!');
Players[CurrentPlayer].Integers[2] := GetSkillLevel('WoodCutting');
Mouse(150,486,32,6,true);
SetChat('on', 1);
SetChat('off', 2);
SetRun(true);
MakeCompass('N');
HighestAngle;
FindNormalRandoms;
end;
{*******************************************************************************
function SolveChatRandom: Boolean;
By: Nielsie95
Description: Solves a random when there's found one inchat.
*******************************************************************************}
function SolveChatRandom2: Boolean;
var
Event: string;
begin
if (not SolveChatRandoms) or (not AreTalking) then
Exit;
Event := GetNPCEvent;
case Capitalize(Event) of
'Unknown': Exit;
'Pious Pete': // Candle Lighting
begin
Writeln(Players[CurrentPlayer].Name + ': Stupid Pete =(');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
'Mysterious Old Man': // Maze + Pinball
begin
if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or
((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or
((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and
(GetColor(372, 370) = 128)) then
begin
SolvePinball;
end
Exit;
end;
'Quiz Master': FindQuiz; // Quiz Master
'Prison Pete': // ScapeRune balloons
begin
Inc(ScapeRunes);
Writeln(Players[CurrentPlayer].Name + ': Yay Balloon Animals!');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
'Sergeant Damien': FindDemon; // Camo
'Leo The Gravedigger': // Zombie
begin
Writeln(Players[CurrentPlayer].Name + ': I Don' + chr(39) + 't Want To Dig Any Graves! ');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
'Evil Bob': // ScapeRune island
begin
Inc(ScapeRunes);
Writeln(Players[CurrentPlayer].Name + ': An Evil Cat? What is the World Coming To?!');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
'Freaky Forester': // Lederhosen
begin
Writeln(Players[CurrentPlayer].Name + ': Since When Do Birds Have More Than One Tail...');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
'Mr Mordaut': // Surprise Exam
begin
Writeln(Players[CurrentPlayer].Name + ': School? NO WAY!');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
end;
end;
{*******************************************************************************
function FindNormalRandoms: Boolean;
by: The SRL Developers Team!... all time sexiness by Mutant
Description: Calls the 'normal' random checks.
*******************************************************************************}
function FindNormalRandoms2: Boolean;
var
i: Integer;
begin
for i := 0 to 14 do
begin
case I of
0: if SolveChatRandom2 then
Result := True;
1: if SolveTalkingRandom(Players[CurrentPlayer].Nick) then
Result := True;
2: Respond;
3: if FindTalk then
Result := True;
4: if FindDead then
Begin
Writeln(Players[CurrentPlayer].Name + ': Noooo I died =...(');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
end;
5: if FindMod then
Begin
Writeln(Players[CurrentPlayer].Name + ': Ooh A Moderator!');
Logout;
WorldSelect;
LoginPlayer;
SetRun(true);
MakeCompass('N');
HighestAngle;
Result := True;
end;
6: if FindDemon then
Result := True;
7: if FindMime then
Begin
Writeln(Players[CurrentPlayer].Name + ': Miming?! Why Can' + chr(39) + 't You Just Talk?');
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
end;
8: if FindMaze then
Begin
Writeln(Players[CurrentPlayer].Name + ': Aww Mazes Are Too Hard =(');
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
end;
9: if FindQuiz then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
12: if (FindBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleBox;
end;
13:
begin
if NoGameTab then
begin
Wait(3000 + Random(300));
if SolveChatRandom2 then
begin
Result := True;
Exit;
end;
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
Result := True;
Exit;
end;
end;
14: if RC then
Result := True;
end;
if Result then
Break;
end;
If Not(LoggedIn) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Hey Why Are We Just Sitting Here?');
WorldSelect;
NextPlayer(false);
LogInSetup;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure CheckForRandoms;
begin
FindEnt2(x,y,true);
if (FindFight) then
begin
x := 644;
y := 83;
case Lowercase(Players[CurrentPlayer].Strings[3]) of
'n' : Begin
Mouse(x, y - 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x, y + 50, 0, 0, true);
end;
'ne': Begin
Mouse(x + 50, y - 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x - 50, y + 50, 0, 0, true);
end;
'e' : Begin
Mouse(x + 50, y, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x - 50, y, 0, 0, true);
end;
'se': Begin
Mouse(x + 50, y + 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x - 50, y - 50, 0, 0, true);
end;
's' : Begin
Mouse(x, y + 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x, y - 50, 0, 0, true);
end;
'sw': Begin
Mouse(x - 50, y + 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x + 50, y - 50, 0, 0, true);
end;
'w' : Begin
Mouse(x - 50, y, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x + 50, y, 0, 0, true);
end;
'nw': Begin
Mouse(x - 50, y - 50, 0, 0, true);
case random(10) of
0: Typesend('aaaaaaah!');
1: Typesend('ow ow ow!');
2: Typesend('yikes!');
3: Typesend('waaaaaaaa mommy it hurtz!');
4: Typesend('hey y u hurt me =[');
5: Typesend('meanie!');
6: Typesend('be nice!');
7: Typesend('');
8: Typesend('');
9: Typesend('');
end;
Wait(8500 + random(3500));
Mouse(x + 50, y + 50, 0, 0, true);
end;
end;
end;
FindNormalRandoms2;
FindEnt2(x,y,true);
AutoRespond;
AutoChatter;
FindEnt2(x,y,true);
DwarfItem;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure ChopTree;
begin
if Not(LoggedIn) then exit;
GameTab(4);
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'oak' then
Begin
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'bank' then
MakeCompass('w');
end;
repeat
CheckForRandoms;
if FindObj(x, y, 'down ' + Tree, Tree_C, g_ColorTol) then
Begin
FindEnt2(x,y,true)
Mouse(x, y, 0, 0, true);
Flag;
MarkTime(TimeMarker);
if IsUpText('down ' + Tree) then
Begin
MMouse(x, y, 0, 0);
repeat
CheckForRandoms;
InvAmount;
if (TimeFromMark(TimeMarker) >= 30000 + random(5000)) then
Begin
Mouse(x, y ,0, 0, true);
MarkTime(TimeMarker);
end;
until (Not(IsUpText('down ' + Tree)) or (Count = 28));
tries := 0;
end;
end else Tries := Tries + 1;
CheckForRandoms;
if (tries >= 10) then
begin
if Not(FindSymbol(x,y,'tree')) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find tree. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
exit;
end else
Begin
tries := 0;
Mouse(x + 6, y, 0, 0, true);
end;
end;
GameTab(4);
InvAmount;
until(Count = 28);
Tries := 0;
CheckForRandoms;
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
LoadsTillLog := LoadsTillLog - 1;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure DropLogs;
begin
if Not(LoggedIn) then exit;
GameTab(4);
for i:= 3 to 28 do
begin
DropItem(i);
end;
CheckForRandoms;
PlayerReport;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure VarrockBankLogsY;
Begin
if not(LoggedIn) then exit;
InvAmount;
if not(count = 28) then exit;
FoundTree := false;
tries := 0;
Count := 0;
Attempts := 0;
Begin
SetRun(false);
MakeCompass('w');
PerfectNorth;
HighestAngle;
FindVarrockDirtRoadColor1(VarrockDirtColor,MMX1, MMY1, MMX2, MMY2);
RadialWalk(VarrockDirtColor, 255, 290, 42, 0, 0);
Flag;
RadialWalk(VarrockDirtColor, 176, 220, 64, 0, 0);
Flag;
RadialWalk(VarrockDirtColor, 176, 221, 63, 0, 0);
Flag;
RadialWalk(VarrockDirtColor, 167, 182, 62, 0, 0);
Flag;
RadialWalk(FindVarrockRoadColor, 113, 137, 59, 0, 0);
Flag;
RadialWalk(FindVarrockRoadColor, 193, 211, 66, 0, 0);
Flag;
if FindSymbol(x,y,'water') then
Begin
Mouse(x - 15,y,0,0,true);
Flag;
end else
If FindSymbol(x,y,'staff shop') then
Begin
Mouse(x + 15,y + 25,0,0,true)
Flag;
end else
If FindSymbol(x,y,'fur trader') then
Begin
Mouse(x - 50,y + 16,0,0,true);
flag;
end;
VarrockRoadColor := FindVarrockRoadColor;
RadialWalk(VarrockRoadColor, 204, 295, 68, 0, 0);
Flag;
RadialWalk(VarrockRoadColor, 200, 286, 46,0, 0);
Flag;
tries := 0;
Repeat
if ScanMMColorExact(x,y,0) then
Begin
Mouse(x - 14, y - 14, 0,10, true);
Flag;
OpenBankFast('vwb');
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
if Not(bankScreen) then OpenBankQuiet('vwb');
Flag;
end;
If Not(BankScreen) then
Begin
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y - 6, 6, 3, true);
Flag;
OpenBankFast('vwb');
Flag;
Wait(1000 + random(500));
end else tries := tries + 1;
end;
If (tries >= 3) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Bank. Attemting on another world.');
LogOut;
WorldSelect;
Wait(20000);
LoginPlayer;
CheckForRandoms;
SetRun(true);
Tries := 0;
Attempts := Attempts + 1;
end;
if Attempts >= 3 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Failed to find Bank. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
Attempts := 0;
exit;
end;
wait(500 + random(250));
Until(BankScreen);
Wait(1000 + random(500));
if Not(BankScreen) then
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
if(BankScreen) then
begin
Banks := Banks + 1;
for i := 2 to 28 do
if (ExistsItem(i)) then
begin
MouseItem(i, false);
ChooseOption('ll');
Wait(750 + random(325));
end;
end;
Wait(500 + random(250));
Repeat
MMouse(477, 30, 20, 20);
Wait(500 + random (250));
If IsUpText('lose') then
Begin
GetMousePos(x, y);
ClickMouse(x, y, true);
end;
Wait(1000 + random (500));
if (BankScreen) then
Begin
If FindObj(x, y, 'lose', 4282212, G_ColorTol) then
Begin
Mouse(x, y, 0, 0, true);
wait(500 + random(250));
end;
end;
until not(BankScreen);
PlayerReport;
SetRun(true);
HighestAngle;
MakeCompass('e');
PerfectNorth;
RadialWalk(FindVarrockRoadColor, 193, 224, 41, 0, 0);
Flag;
RadialWalk(FindVarrockRoadColor, 75, 114, 60, 0, 0);
Flag;
RadialWalk(FindVarrockRoadColor, 22, 60, 38, 0, 0);
Flag;
FindVarrockDirtRoadColor2(VarrockDirtColor,MMX1, MMY1, MMX2, MMY2);
Wait(250);
RadialWalk(VarrockDirtColor, 322, 354, 62, 0, 0);
Flag;
RadialWalk(VarrockDirtColor, 319, 357, 62, 0, 0);
Flag;
FindVarrockDirtRoadColor2(VarrockDirtColor,MMX1, MMY1, MMX2, MMY2);
Wait(250);
RadialWalk(VarrockDirtColor, 334, 373, 62, 0, 0);
Flag;
FindVarrockDirtRoadColor2(VarrockDirtColor,MMX1, MMY1, MMX2, MMY2);
Wait(250);
RadialWalk(VarrockDirtColor, 329, 368, 62, 0, 0);
Flag;
RadialWalk(VarrockDirtColor, 330, 382, 53, 0, 0);
Flag;
tries := 0;
attempts := 0;
Repeat
if FindSymbol(x, y, 'tree') then
Begin
FoundTree := true;
Mouse(x + 6, y, 0, 0, true);
Wait(500);
Flag;
if(FindObj(x, y, 'down ' + Tree, Tree_C, g_ColorTol)) then
Begin
FindEnt2(x,y,true)
Mouse(x,y,0,0,true);
CheckForRandoms;
end;
end else
Begin
if Tries = 0 then
Begin
RadialRoadWalk(VarrockDirtColor, 30, 79, 44, 0, 0);
Flag;
end else
Begin
tries := tries + 1;
if tries >= 5 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Tree. Attemting on another world.');
LogOut;
WorldSelect;
Wait(20000);
LoginPlayer;
CheckForRandoms;
SetRun(true);
Tries := 0;
Attempts := Attempts + 1;
end;
end;
if Attempts >= 5 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Failed to find Tree. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
Attempts := 0;
exit;
end;
end;
if Not(LoggedIn) then exit;
until(FoundTree = true);
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure DraynorBankLogsW;
begin
if not(LoggedIn) then exit;
InvAmount;
if not(count = 28) then exit;
FoundTree := false;
tries := 0;
Count := 0;
Attempts := 0;
SetRun(false);
MakeCompass('e');
PerfectNorth;
repeat
if FindSymbol(x,y,'fish') then //position averages: x=632, y=102.75
Begin
Mouse(x + 29, y - 58, 0, 0, true);
Flag;
OpenBankFast('db');
Wait(500 + random(250));
Flag;
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
if Not(BankScreen) then OpenBankQuiet('db');
Wait(500 + random(250));
Flag;
end;
If Not(BankScreen) then
Begin
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 0, 0, true);
Flag;
OpenBankFast('db');
Wait(500 + random(250));
Flag;
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
end else tries := tries + 1;
end;
If (tries >= 3) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Bank. Attemting on another world.');
LogOut;
WorldSelect;
Wait(20000);
LoginPlayer;
CheckForRandoms;
SetRun(true);
Tries := 0;
Attempts := Attempts + 1;
end;
if Attempts >= 3 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Failed to find Bank. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
Attempts := 0;
exit;
end;
Wait(1000 + random(500));
Until(BankScreen);
if(BankScreen) then
begin
Banks := Banks + 1;
for i := 2 to 28 do
if (ExistsItem(i)) then
begin
MouseItem(i, false);
ChooseOption('ll');
Wait(500 + random(250));
end;
end;
Wait(500 + random(250));
Repeat
MMouse(477, 30, 20, 20);
Wait(500 + random (250));
If IsUpText('lose') then
Begin
GetMousePos(x, y);
ClickMouse(x, y, true);
end;
Wait(1000 + random (500));
if (BankScreen) then
Begin
If FindObj(x, y, 'lose', 4282212, G_ColorTol) then
Begin
Mouse(x, y, 0, 0, true);
wait(500 + random(250));
end;
end;
until not(BankScreen);
PlayerReport;
SetRun(true);
Mouse(620, 120, 0, 0, true);
HighestAngle;
PerfectNorth;
FFlag(1);
tries := 0;
Repeat
tries := tries + 1;
if(FindObj(x, y, 'down ' + Tree, Tree_C, g_ColorTol)) then
Begin
FindEnt2(x,y,True);
Mouse(x,y,0,0,true);
FoundTree := true;
CheckForRandoms;
end else
Begin
if FindSymbol(x,y,'fish') then
begin
Mouse(x,y,0,0,true);
FFlag(2);
end;
end;
if (tries >= 4) then
begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Tree. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
Break;
end;
until(FoundTree = true);
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure DraynorBankLogsT;
begin
if not(LoggedIn) then exit;
InvAmount;
if not(count = 28) then exit;
FoundTree := false;
tries := 0;
Count := 0;
Attempts := 0;
SetRun(false);
MakeCompass('e');
PerfectNorth;
RadialWalk(FindRoadColor, 163, 212, 68, 0, 0);
Wait(500);
RadialWalk(FindRoadColor, 124, 166, 50, 0, 0);
Wait(500);
repeat
OpenBankFast('db');
Wait(500 + random(250));
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
if Not(BankScreen) then OpenBankQuiet('db');
Wait(500 + random(250));
Flag;
If Not(BankScreen) then
Begin
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 0, 0, true);
Flag;
OpenBankFast('db');
Wait(500 + random(250));
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
end else
if ScanMMColorExactTolerance(x, y, 524325, g_ColorTol) then
Begin
Mouse(x + 15, y + 14, 0, 0, true);
OpenBankFast('db');
Wait(500 + random(250));
end else
Begin
tries := tries + 1;
If (tries >= 3) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Bank. Attemting on another world.');
LogOut;
WorldSelect;
Wait(20000);
LoginPlayer;
CheckForRandoms;
SetRun(true);
Tries := 0;
Attempts := Attempts + 1;
end;
if Attempts >= 3 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Failed to find Bank. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
Attempts := 0;
exit;
end;
end;
Wait(1000 + random(500));
end;
Until(BankScreen);
if(BankScreen) then
begin
Banks := Banks + 1;
for i := 2 to 28 do
if (ExistsItem(i)) then
begin
MouseItem(i, false);
ChooseOption('ll');
Wait(500 + random(250));
end;
end;
Wait(500 + random(250));
Repeat
MMouse(477, 30, 20, 20);
Wait(500 + random (250));
If IsUpText('lose') then
Begin
GetMousePos(x, y);
ClickMouse(x, y, true);
end;
Wait(1000 + random (500));
if (BankScreen) then
Begin
If FindObj(x, y, 'lose', 4282212, G_ColorTol) then
Begin
Mouse(x, y, 0, 0, true);
wait(500 + random(250));
end;
end;
until not(BankScreen);
PlayerReport;
SetRun(true);
PerfectNorth;
RadialWalk(FindRoadColor, 293, 322, 70, 0, 0);
Wait(500);
Mouse(640,13,0,0,true);
Wait(500);
Flag;
tries := 0;
Repeat
if(FindObj(x, y, 'down ' + Tree, Tree_C, g_ColorTol)) then
Begin
FindEnt2(x,y,true)
Mouse(x,y,0,0,true);
FoundTree := true;
CheckForRandoms;
end else
Begin
If FindSymbol(x, y, 'quest') then
Begin
Mouse(x + 5, Y - 47, 0, 0, true);
Flag;
end else
Begin
tries := tries + 1;
if (tries >= 5) then
begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Tree. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
Break;
end;
end;
end;
until(FoundTree = true);
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure DraynorBankLogsO;
begin
if not(LoggedIn) then exit;
InvAmount;
if not(count = 28) then exit;
FoundTree := false;
tries := 0;
Count := 0;
Attempts := 0;
PerfectNorth;
if FindSymbol(x,y,'dungeon') then
Begin
Mouse(590, 105, 0, 0, true);
Flag;
Mouse(642, 102, 0, 0, true);
Flag;
end else
Begin
Mouse(604, 84, 0, 0, true);
Flag;
end;
repeat
OpenBankFast('db');
Wait(500 + random(250));
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
if Not(BankScreen) then OpenBankQuiet('db');
Wait(500 + random(250));
Flag;
If Not(BankScreen) then
Begin
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 0, 0, true);
Flag;
OpenBankFast('db');
Wait(500 + random(250));
if Not(Players[CurrentPlayer].Strings[2] = '') then
Begin
InPin(Players[CurrentPlayer].Strings[2]);
end;
end else
if ScanMMColorExactTolerance(x, y, 524325, g_ColorTol) then
Begin
Mouse(x + 15, y + 14, 0, 0, true);
OpenBankFast('db');
Wait(500 + random(250));
end else
Begin
tries := tries + 1;
If (tries >= 3) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Bank. Attemting on another world.');
LogOut;
WorldSelect;
Wait(20000);
LoginPlayer;
CheckForRandoms;
SetRun(true);
Tries := 0;
Attempts := Attempts + 1;
end;
if Attempts >= 3 then
Begin
Writeln(Players[CurrentPlayer].Name + ': Failed to find Bank. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
tries := 0;
Attempts := 0;
exit;
end;
end;
Wait(1000 + random(500));
end;
Until(BankScreen);
if(BankScreen) then
begin
Banks := Banks + 1;
for i := 2 to 28 do
if (ExistsItem(i)) then
begin
MouseItem(i, false);
ChooseOption('ll');
Wait(500 + random(250));
end;
end;
Wait(500 + random(250));
Repeat
MMouse(477, 30, 20, 20);
Wait(500 + random (250));
If IsUpText('lose') then
Begin
GetMousePos(x, y);
ClickMouse(x, y, true);
end;
Wait(1000 + random (500));
if (BankScreen) then
Begin
If FindObj(x, y, 'lose', 4282212, G_ColorTol) then
Begin
Mouse(x, y, 0, 0, true);
wait(500 + random(250));
end;
end;
until not(BankScreen);
PlayerReport;
SetRun(true);
PerfectNorth;
Mouse(676, 87, 0, 0, true);
Flag;
tries := 0;
MakeCompass('w');
Repeat
if(FindObj(x, y, 'down ' + Tree, Tree_C, g_ColorTol)) then
Begin
FindEnt2(x,y,true)
Mouse(x,y,0,0,true);
FoundTree := true;
CheckForRandoms;
end else
if ScanMMColorExactTolerance(x, y, 532061, g_ColorTol) then
Begin
Mouse(x + 24, y + 40, 0, 0, true);
OpenBankFast('db');
Wait(500 + random(250));
end else
Begin
tries := tries + 1;
if (tries >= 5) then
begin
Writeln(Players[CurrentPlayer].Name + ': Could not find Tree. Next Player.');
LogOut;
WorldSelect;
NextPlayer(False);
LogInSetup;
Break;
end;
end;
until(FoundTree = true);
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure Setup;
begin
SetupSRL;
ScriptID := '355';
ClearDebug;
Disguise('iTunes');
Fr0zn_S0uls_Greeting;
Wait(1500);
ActivateClient;
Wait(250+random(125));
DeclarePlayers;
for i := 0 to (HowManyPlayers - 1) do
Begin
Players[i].Integers[1] := 0;
Players[i].Integers[2] := 0;
end;
LoginPlayer;
NWorld := 0;
LogInSetup;
LogCounter := 0;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Begin
Setup;
Repeat
if Not(LoggedIn) then Exit;
ChopTree;
Case LowerCase(Players[CurrentPlayer].Strings[1]) of
'bank': Begin
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'tree' then
Begin
DraynorBankLogsT;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'oak' then
Begin
DraynorBankLogsO;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'willow' then
Begin
DraynorBankLogsW;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'yew' then
Begin
VarrockBankLogsY;
end;
end;
'drop': DropLogs;
end;
CheckForRandoms;
If (LoadsTillLog <= 0) then
begin
LogOut;
WorldSelect;
Wait(500 + random(250));
if (LogOutWait = true) then
begin
LogCounter := LogCounter + 1;
if (LogOutWaitEvery <= LogCounter) then
begin
LogCounter := 0;
Wait(LogOutWaitFor * 60000);
end;
end;
LoadsTillLog := LogOutEvery + random(2);
NextPlayer(True);
LogInSetup;
end;
if (Players[CurrentPlayer].Integers[1] >= Players[CurrentPlayer].Integers[0]) then
Begin
Writeln(Players[CurrentPlayer].Name + ': Finished Training =).');
Logout;
WorldSelect;
NextPlayer(false);
LogInSetup;
end;
until(ActivePlayers = 0);
WriteLn('Thanks For Using My Script! Have a Nice Day =)');
end.——————————————————
<!– END TEMPLATE: formanswers –>