steth1010
04-28-2007, 01:25 AM
Steth1010's Rimmington Willow Chopper
This is my first script and it works good. It's my first version and will be making more.
__________________________________________________ _______________
It doesn't have to be in rimmington but it's better there because around 5-6 willows and rarely people there, also in my last version i'll be making it sell to the store (in rimmington)
EDIT: I releaded out Version 1.7! Fixed some of the problems you guys said I was having
Now for dropping uses DTM's and is a lil laggier there but either than that works great. This is just a simple woodcutter don't expect much. Works well though
EDIT2: Version 1.7 fixed. Made way less repedative. Only 1 chop procedure new randoms, anti ban, working on walk to store + sell.
Version 1.0(Released)
* Chopping Willows
* AntiBan
* Uses FindColor
* Uses DropTo(2,28);
* Progress Report
* Multipul Players
* SRL Random Report
* Basic Randoms
Version 1.5(Released)
Added
* Better Anti Randoms
* Better Progress Report
* Logs out after how ever many loads
* Finds Bird Nests
* Runs from Fights
Version 1.7(Released)
Added
* Better AntiRandoms + Ban
* Better Drop
* AutoResponder
Version 2.0(Not Released)
Adding
* DTM's
* Sell at Store
Would perfer version 1.7 but doesn't matter (In version 2.0-Last Version - will have Walk to and sell at store - )
Please post your proggy reports and comments of how the script works, also suggestions are needed (Remeber first script)
Version 1.0:
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
var
Clicks, Loads:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Chooper<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did Aprox ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure Chop;
begin
writeln('Found Willow Color, Now chopping');
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(1000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
end;
Procedure Ban;
Begin
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
AntiBan;
findtalk;
findnormalrandoms;
end;
procedure Chop2;
begin
repeat
MakeCompass('N')
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
RotateEvery(4+random(3));
wait(500+Random(200));
MakeCompass('N');
RandomRClickEvery(2+random(3));
FindBirdsNest;
EnglishWords;
Ban;
AntiBan;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
if(InvFull)then
DropTo(2,28);
Loads:=Loads+1;
end;
procedure Login;
begin
loginplayer;
end;
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
procedure LogsOut;
begin
Logout;
end;
procedure Report;
begin
SRLRandomsReport;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
Chop;
Ban;
Chop2;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Version 1.5
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
var
Clicks, Loads:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
procedure Chop;
begin
writeln('Found Willow Color, Now chopping');
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(1000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
end;
Procedure Ban;
Begin
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
AntiBan;
findtalk;
findnormalrandoms;
FindFastRandoms;
If (FindFight) then
begin
RunawayDirection('w');
Wait(3000+random(750));
RunBack;
end;
end;
procedure Chop2;
begin
repeat
MakeCompass('N')
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
RotateEvery(4+random(3));
wait(500+Random(200));
MakeCompass('N');
RandomRClickEvery(2+random(3));
FindBirdsNest;
EnglishWords;
Ban;
AntiBan;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
if(InvFull)then
DropTo(2,28);
Loads:=Loads+1;
end;
procedure Login;
begin
loginplayer;
end;
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
procedure LogsOut;
begin
If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
begin
Logout;
end;
end;
procedure Report;
begin
SRLRandomsReport;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
Chop;
Ban;
Chop2;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Version 1.7
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
Responder = True;//Do You Want To AutoTalk
var
Clicks, Loads, Talked:Integer;
//////////////////////////////////////////////////////////////////////
///////////////////////////Players///////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=False;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=False;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
///////////////////////////Proggy Report/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Auto Responder////////////////////////////
////////////////////////////////////////////////////////////////////
procedure AutoResponder;
Var
Talked: integer;
begin
if(Responder = True)then
begin
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
Talked:= Talked + 1;
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
Talked:= Talked + 1;
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
Talked:= Talked + 1;
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
Talked:= Talked + 1;
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
Talked:= Talked + 1;
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
Talked:= Talked + 1;
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
Talked:= Talked + 1;
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
Talked:= Talked + 1;
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
Talked:= Talked + 1;
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
Talked:= Talked + 1;
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
Talked:= Talked + 1;
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
Talked:= Talked + 1;
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
Talked:= Talked + 1;
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
Talked:= Talked + 1;
end;
if (InChat(Players[CurrentPlayer].Name)) then
begin
TypeSend('Yeah?')
Talked:= Talked + 1;
end;
if (InChat('lol') or
InChat('lmao') or
InChat('rofl') or
InChat('haha'))then
begin
TypeSend('lolz')
Talked:= Talked + 1;
end;
if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
InChat('Hey' + (Players[CurrentPlayer].Name)) or
InChat('Hello' + (Players[CurrentPlayer].Name))) then
begin
TypeSend('Hi')
Talked:= Talked + 1;
end;
end;
if(not(Responder = True))then
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Chop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Chop;
begin
repeat
if(FindColorTolerance(x,y,WillowColor,0,0,600,600, 3)) then
writeln('Found Willow Color, Now chopping');
wait(1000+random(200));
MMouse(x,y,0,0);
wait(2000+random(200));
Mouse(x,y,0,0,true);
wait(2000+random(200));
if(FindColorTolerance(x,y,WillowColor,0,0,600,600, 3)) then
wait(2000+random(200));
MMouse(x,y,0,0);
wait(2000+random(200));
Mouse(x,y,0,0,true);
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
FindFastRandoms;
AutoResponder;
until(InvFull);
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Drop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Drop;
begin
if(InvFull)then
DropAllLogs;
Clicks:=Clicks+27;
Loads:=Loads+1;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player In/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Login;
begin
loginplayer;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Arrange Angle/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player Out////////////////////////////
////////////////////////////////////////////////////////////////////
procedure LogsOut;
begin
If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
begin
Logout;
end;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Random Report/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Report;
begin
SRLRandomsReport;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Repeat Script/////////////////////////////
////////////////////////////////////////////////////////////////////
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
FindFastRandoms;
Chop;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Next script is a Nature Rune Crafter + Zanaris Banker :) Working well so far.
My nature script so far. If have any suggestions or want to help just tell me under your post
program Nature_RuneCrafter;
{ Nature Rune Crafter
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start at Zanaris Bank
2)Start Logged out
3)Have Pouches or not and the staff for fairy rings weilded
4)Setup lines
5)Set detail low and V-Bright on
6)Turn P-Chat,Trade,Pub-Chat off
**Routine**
1)Starts at bank
2)Takes out pure ess and puts in pouches if have any
3)Turns run on
4)Runs to fairy ring
5)Does Code walks to Crafter
6)Makes nats, Takes pure ess out of pouches, makes nats
7)Walks to bank, repeats
**Includes**
1)Randoms
2)Anti Ban
3)Proggy Report
4)FindColorTolerance
5)Multipul Players
6)Forms
7)Autotalk/Respond
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines ///////////////////////////////
Const
BankSymbol= 0;//Bank Symbol on MiniMap
FairyRingSymbol= 0;//Fairy Ring on MiniMap
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Banked Aprox ' + IntToStr(Loads) + ' Times' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Made Aprox ' + IntToStr(Clicks) + ' Natures' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
Procedure Bank;
begin
I don't know if you will like it. It's my first script so please give some suggestions. Thanks
This is my first script and it works good. It's my first version and will be making more.
__________________________________________________ _______________
It doesn't have to be in rimmington but it's better there because around 5-6 willows and rarely people there, also in my last version i'll be making it sell to the store (in rimmington)
EDIT: I releaded out Version 1.7! Fixed some of the problems you guys said I was having
Now for dropping uses DTM's and is a lil laggier there but either than that works great. This is just a simple woodcutter don't expect much. Works well though
EDIT2: Version 1.7 fixed. Made way less repedative. Only 1 chop procedure new randoms, anti ban, working on walk to store + sell.
Version 1.0(Released)
* Chopping Willows
* AntiBan
* Uses FindColor
* Uses DropTo(2,28);
* Progress Report
* Multipul Players
* SRL Random Report
* Basic Randoms
Version 1.5(Released)
Added
* Better Anti Randoms
* Better Progress Report
* Logs out after how ever many loads
* Finds Bird Nests
* Runs from Fights
Version 1.7(Released)
Added
* Better AntiRandoms + Ban
* Better Drop
* AutoResponder
Version 2.0(Not Released)
Adding
* DTM's
* Sell at Store
Would perfer version 1.7 but doesn't matter (In version 2.0-Last Version - will have Walk to and sell at store - )
Please post your proggy reports and comments of how the script works, also suggestions are needed (Remeber first script)
Version 1.0:
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
var
Clicks, Loads:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Chooper<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did Aprox ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure Chop;
begin
writeln('Found Willow Color, Now chopping');
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(1000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
end;
Procedure Ban;
Begin
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
AntiBan;
findtalk;
findnormalrandoms;
end;
procedure Chop2;
begin
repeat
MakeCompass('N')
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
RotateEvery(4+random(3));
wait(500+Random(200));
MakeCompass('N');
RandomRClickEvery(2+random(3));
FindBirdsNest;
EnglishWords;
Ban;
AntiBan;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
if(InvFull)then
DropTo(2,28);
Loads:=Loads+1;
end;
procedure Login;
begin
loginplayer;
end;
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
procedure LogsOut;
begin
Logout;
end;
procedure Report;
begin
SRLRandomsReport;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
Chop;
Ban;
Chop2;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Version 1.5
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
var
Clicks, Loads:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
procedure Chop;
begin
writeln('Found Willow Color, Now chopping');
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(1000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
end;
Procedure Ban;
Begin
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
AntiBan;
findtalk;
findnormalrandoms;
FindFastRandoms;
If (FindFight) then
begin
RunawayDirection('w');
Wait(3000+random(750));
RunBack;
end;
end;
procedure Chop2;
begin
repeat
MakeCompass('N')
wait(3000+random(200));
if(FindColor(x,y,WillowColor,0,0,600,600)) then
wait(3000+random(200));
MMouse(x,y,0,0);
wait(3000+random(200));
Mouse(x,y,0,0,true);
wait(3000+random(200));
RotateEvery(4+random(3));
wait(500+Random(200));
MakeCompass('N');
RandomRClickEvery(2+random(3));
FindBirdsNest;
EnglishWords;
Ban;
AntiBan;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
if(InvFull)then
DropTo(2,28);
Loads:=Loads+1;
end;
procedure Login;
begin
loginplayer;
end;
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
procedure LogsOut;
begin
If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
begin
Logout;
end;
end;
procedure Report;
begin
SRLRandomsReport;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
Chop;
Ban;
Chop2;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Version 1.7
program Steth1010_Willow_Chopper;
{ Rimmington Willow + Dropper
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start in Rimminton at Willows
2)Start Loggout
3)Axe in first Inv spot
4)Setup lines 28-61
5)Watch no tree ent Random Yet
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////
const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
Responder = True;//Do You Want To AutoTalk
var
Clicks, Loads, Talked:Integer;
//////////////////////////////////////////////////////////////////////
///////////////////////////Players///////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=False;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=False;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
///////////////////////////Proggy Report/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Chopped Aprox ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Auto Responder////////////////////////////
////////////////////////////////////////////////////////////////////
procedure AutoResponder;
Var
Talked: integer;
begin
if(Responder = True)then
begin
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
Talked:= Talked + 1;
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
Talked:= Talked + 1;
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
Talked:= Talked + 1;
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
Talked:= Talked + 1;
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
Talked:= Talked + 1;
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
Talked:= Talked + 1;
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
Talked:= Talked + 1;
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
Talked:= Talked + 1;
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
Talked:= Talked + 1;
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
Talked:= Talked + 1;
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
Talked:= Talked + 1;
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
Talked:= Talked + 1;
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
Talked:= Talked + 1;
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
Talked:= Talked + 1;
end;
if (InChat(Players[CurrentPlayer].Name)) then
begin
TypeSend('Yeah?')
Talked:= Talked + 1;
end;
if (InChat('lol') or
InChat('lmao') or
InChat('rofl') or
InChat('haha'))then
begin
TypeSend('lolz')
Talked:= Talked + 1;
end;
if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
InChat('Hey' + (Players[CurrentPlayer].Name)) or
InChat('Hello' + (Players[CurrentPlayer].Name))) then
begin
TypeSend('Hi')
Talked:= Talked + 1;
end;
end;
if(not(Responder = True))then
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Chop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Chop;
begin
repeat
if(FindColorTolerance(x,y,WillowColor,0,0,600,600, 3)) then
writeln('Found Willow Color, Now chopping');
wait(1000+random(200));
MMouse(x,y,0,0);
wait(2000+random(200));
Mouse(x,y,0,0,true);
wait(2000+random(200));
if(FindColorTolerance(x,y,WillowColor,0,0,600,600, 3)) then
wait(2000+random(200));
MMouse(x,y,0,0);
wait(2000+random(200));
Mouse(x,y,0,0,true);
RotateEvery(4+random(3));
wait(500+Random(200));
RandomRClickEvery(2+random(3));
FindFastRandoms;
AutoResponder;
until(InvFull);
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Drop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Drop;
begin
if(InvFull)then
DropAllLogs;
Clicks:=Clicks+27;
Loads:=Loads+1;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player In/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Login;
begin
loginplayer;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Arrange Angle/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Angle;
begin
HighestAngle;
MakeCompass('N');
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player Out////////////////////////////
////////////////////////////////////////////////////////////////////
procedure LogsOut;
begin
If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
begin
Logout;
end;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Random Report/////////////////////////////
////////////////////////////////////////////////////////////////////
procedure Report;
begin
SRLRandomsReport;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////Repeat Script/////////////////////////////
////////////////////////////////////////////////////////////////////
begin
SetupSRL;
repeat
DeclarePlayers;
Login;
Angle;
FindFastRandoms;
Chop;
Drop;
ProgressReport;
Report;
LogsOut;
until(false);
end.
Next script is a Nature Rune Crafter + Zanaris Banker :) Working well so far.
My nature script so far. If have any suggestions or want to help just tell me under your post
program Nature_RuneCrafter;
{ Nature Rune Crafter
This script is made by Steth1010
************************************************** *****************
INSTRUCTIONS
__________________________________________________ _________________
1)Start at Zanaris Bank
2)Start Logged out
3)Have Pouches or not and the staff for fairy rings weilded
4)Setup lines
5)Set detail low and V-Bright on
6)Turn P-Chat,Trade,Pub-Chat off
**Routine**
1)Starts at bank
2)Takes out pure ess and puts in pouches if have any
3)Turns run on
4)Runs to fairy ring
5)Does Code walks to Crafter
6)Makes nats, Takes pure ess out of pouches, makes nats
7)Walks to bank, repeats
**Includes**
1)Randoms
2)Anti Ban
3)Proggy Report
4)FindColorTolerance
5)Multipul Players
6)Forms
7)Autotalk/Respond
Anti-Ban/Randoms
Anti-ban Rotates screen abit then makes north. Also Talks
Uses Basic Randoms
__________________________________________________ _________________
************************************************** *****************
}
//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines ///////////////////////////////
Const
BankSymbol= 0;//Bank Symbol on MiniMap
FairyRingSymbol= 0;//Fairy Ring on MiniMap
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Your Name
Players[0].Pass :='';//Your Password
Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
Players[0].Integer1 := 2;//Loads For Player
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Integer1 := 2;
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Integer1 := 5;
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Integer1 := 5;
Players[3].Active:=True;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]========================================[]');
Writeln('---------------->Willow Proggy<----------------');
Writeln(' Banked Aprox ' + IntToStr(Loads) + ' Times' + ' ');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Made Aprox ' + IntToStr(Clicks) + ' Natures' + ' ');
Writeln('[]========================================[]');
end;
//------------------------------------------------------------------------\\
{ FindFastRandoms - By WT-Fakawi. ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab then
Result := True;
8: If InBlack then
Result := True;
9: If FindTalk then
Result := True;
end;
wait(1);
end;
end;
Procedure Bank;
begin
I don't know if you will like it. It's my first script so please give some suggestions. Thanks