Plz helpme i dont know how to make my own scripts and i really want to make a good yew cutter/banker for edge ville. plz tell me how to get started, and the basics
ty
Plz helpme i dont know how to make my own scripts and i really want to make a good yew cutter/banker for edge ville. plz tell me how to get started, and the basics
ty
hi, its great that your trying to learn, but first try reading through some tuts, then i would suggest getting any simple script out of the srl free scripts section and reading through it to understand how things work!
then see if you can rewrite the script and maybe make it better!
any problems you get, you can just post on here and get some help from other people to understand!
p.s
personally the tuts dont do anything for me, as i found them too confusing, but just read and understand as much as you can!
**EDIT**
to be honest your best to try and write a simple powerchopper first, with all the randoms and some antibans, if you achieve that then you could simply add the walking procedurs etc
honestly, drigers scar tutorial helped me out big time, if u have a high speed connection i seriously suggest that u get this, as it helped me,
http://www.villu-reborn.com/showthread.php?t=1155
and i dont know about modifying a script thats allready in existance, that would sound pretty hard and pretty overwhealming for a begginning scripter, id say try to do something that involves very little walking and you should be fine.
edit:: oh and look through the srl manual after u get done with drigers tut, bunch of stuff in there that works way better then scars origional functions, and much ezier :-) good luck
see part 1 of my FAQ (link in sig)
Ok thnx guys ill see what i can do. hopefully ill get better
.
How do i fix this so it will bank the yews?
Procedure WalktoBank;
begin
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,2,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'bank')))then
begin
Mouse(789,173,2,1,true)
wait(10000);
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,2,1)
Mouse(x,y,2,1,true)
end
end
end;
Plz post back if u can help. Thnx again:wink: .
i dont agree because he could find a very good powerChopper or Woodcutter/banker, and find out how it all works... and even with the script writers permission he could take snipets of it and put into his own script if you see what i mean?i dont know about modifying a script thats allready in existance, that would sound pretty hard and pretty overwhealming for a begginning scripter
just keep trying to learn and you will soon be making great scripts
p.s if you need any help, just PM me because in the past week ive been on here quite alot and will help you as much as i can.
HTYA
Hey well thnx for sticking up for me. But ii would like some help on this script im editing and im going to test it soon so plz help with this part(banking)and post back if u can help thnx and i hope u all do post back
![]()
Ok i think this is a good edit ive done but i still cant make it bank the yews :/. So look at this and tell me what u think andreport any errors to me plz.
{
~~~~~~~Fetheroth~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
~ Fetheroths Edgeville Yew Cutter!
~ Edited by me, Fetheroth.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95
Instructions:
Setup Account
Stand in Edgeville bank in the southmost booth
Watch it once to make sure that all is well
Enjoy!
Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
}
program _Fetheroths_Edgeville_Yew_Cutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}
var
Trips:integer;
///////Set Wieldaxe! Don't Touch Version #//////
const //
WieldAxe = 2; //1 for wielding, 2 for no //
Tripstodo = 0; // # of trips for each player //
VersionNumber = ' 1.3'; //Don't Touch! //
/////////////////////////////
Procedure DeclarePlayers; //
begin //
HowManyPlayers :=6; // Set Number of Players here. //
NumberOfPlayers(HowManyPlayers); // Leave alone //
CurrentPlayer:=0; // The blue # of the player wanted //
//
Players[0].Name :=''; // Your RS Name //
Players[0].Pass :=''; // Your RS Password //
Players[0].Nick :=''; // The first 3 lowercase letters of your name //
// eg. If your name is Zezima, put in ezi. //
Players[0].Loc :='Loc1'; //Not needed //
Players[0].Skill:=''; //Not needed //
Players[0].Active:=True; //Leave at true //
//
Players[1].Name :=''; //
Players[1].Pass :=''; //
Players[1].Nick :=''; //
Players[1].Loc :='Loc1'; //
Players[1].Skill:=''; //
Players[1].Active:=True; //
//
Players[2].Name :=''; //
Players[2].Pass :=''; //
Players[2].Nick :=''; //
Players[2].Loc :='Loc1'; //
Players[2].Skill:=''; //
Players[2].Active:=True; //
//
Players[3].Name :=''; //
Players[3].Pass :=''; //
Players[3].Nick :=''; //
Players[3].Loc :='Loc1'; //
Players[3].Skill:=''; //
Players[3].Active:=True; //
//
Players[4].Name :=''; //
Players[4].Pass :=''; //
Players[4].Nick :=''; //
Players[4].Loc :='Loc1'; //
Players[4].Skill:=''; //
Players[4].Active:=True; //
//
Players[5].Name :=''; //
Players[5].Pass :=''; //
Players[5].Nick :=''; //
Players[5].Loc :='Loc1'; //
Players[5].Skill:=''; //
Players[5].Active:=True; //
//
//
//
writeln(inttostr(HowManyPlayers)+'1'); //
///////////////////////////////////////////////////////////////////////////
end;
function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;
procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
//-----------------------------------------------//
Procedure Setup;
begin
SetupSRL;
ActivateClient;
ChatsOff;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
//-----------------------------------------------//
Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('= You Are Using =');
Writeln('= =');
Writeln('= The Fetheroth Edgeville =');
Writeln('= =');
Writeln('= YEW CUTTER! =');
Writeln('= =');
WriteLn('= Version ' + VersionNumber + ' =');
Writeln('= =');
Writeln('= ' + inttostr(Trips) + ' Trips done =');
Writeln('= =');
Writeln('= Happy Cutting =');
Writeln('===============================');
end;
//-----------------------------------------------//
Procedure WalktoTrees;
begin
If (FindSymbol(x,y, 'rare trees')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
wait(10000)
end
If (not(FindSymbol(x,y, 'rare trees')))then
begin
SetRun(true)
Mouse(747,280,1,1,true)
wait(5000)
If (FindSymbol(x,y, 'rare trees')) then
begin
Mouse(x,y,1,1,true)
wait(10000)
end
end
end;
//-----------------------------------------------//
Procedure ChoptheTrees;
begin
repeat
if (FindMSColor(x,y,3438704))or
(FindMSColor(x,y,3887184))or
(FindMSColor(x,y,1925200))then
MMouse(x,y,1,1)
If IsUpText('Chop') then
Mouse(x,y,1,1,true)
wait(5000+Random(5000)+Random(5000)+Random(5000))
until (invfull = true)
if (invfull = true) then
Trips := Trips + 1;
end;
//-----------------------------------------------//
Procedure WalktoBank;
begin
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'bank')))then
begin
Mouse(789,173,1,1,true)
wait(10000);
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end
end;
//-----------------------------------------------//
Procedure BanktheLogs;
begin
OpenBank;
If WieldAxe = 1 then
begin
DepositAll;
end
If WieldAxe = 2 then
begin
Deposit(2,27,2);
end
end;
//-----------------------------------------------//
Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
FindNormalRandoms;
FindAxeHeadColor;
AttachHead;
DontBanMe(2);
If (FindEnt (3438704)) then
begin
Logout;
Wait(30000)
LoginPlayer;
end
end;
//-----------------------------------------------//
begin
DeclarePlayers;
Setup;
repeat
repeat
ProgReport;
WalktoTrees;
ChoptheTrees;
WalktoBank;
BanktheLogs;
AntiRandomsandAntiBan;
until (trips = Tripstodo);
If (trips = Tripstodo) then
Logout;
Nextplayer(true);
until (false);
end.
please use the SCAR button when showing scripts and codes etc
ok.. where is that?
SCAR Code:{
~~~~~~~Fetheroth~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
~ Fetheroths Edgeville Yew Cutter!
~ Edited by me, Fetheroth.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95
Instructions:
Setup Account
Stand in Edgeville bank in the southmost booth
Watch it once to make sure that all is well
Enjoy!
Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
}
program _Fetheroths_Edgeville_Yew_Cutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}
var
Trips:integer;
///////Set Wieldaxe! Don't Touch Version #//////
const //
WieldAxe = 2; //1 for wielding, 2 for no //
Tripstodo = 0; // # of trips for each player //
VersionNumber = ' 1.3'; //Don't Touch! //
/////////////////////////////
Procedure DeclarePlayers; //
begin //
HowManyPlayers :=6; // Set Number of Players here. //
NumberOfPlayers(HowManyPlayers); // Leave alone //
CurrentPlayer:=0; // The blue # of the player wanted //
//
Players[0].Name :=''; // Your RS Name //
Players[0].Pass :=''; // Your RS Password //
Players[0].Nick :=''; // The first 3 lowercase letters of your name //
// eg. If your name is Zezima, put in ezi. //
Players[0].Loc :='Loc1'; //Not needed //
Players[0].Skill:=''; //Not needed //
Players[0].Active:=True; //Leave at true //
//
Players[1].Name :=''; //
Players[1].Pass :=''; //
Players[1].Nick :=''; //
Players[1].Loc :='Loc1'; //
Players[1].Skill:=''; //
Players[1].Active:=True; //
//
Players[2].Name :=''; //
Players[2].Pass :=''; //
Players[2].Nick :=''; //
Players[2].Loc :='Loc1'; //
Players[2].Skill:=''; //
Players[2].Active:=True; //
//
Players[3].Name :=''; //
Players[3].Pass :=''; //
Players[3].Nick :=''; //
Players[3].Loc :='Loc1'; //
Players[3].Skill:=''; //
Players[3].Active:=True; //
//
Players[4].Name :=''; //
Players[4].Pass :=''; //
Players[4].Nick :=''; //
Players[4].Loc :='Loc1'; //
Players[4].Skill:=''; //
Players[4].Active:=True; //
//
Players[5].Name :=''; //
Players[5].Pass :=''; //
Players[5].Nick :=''; //
Players[5].Loc :='Loc1'; //
Players[5].Skill:=''; //
Players[5].Active:=True; //
//
//
//
writeln(inttostr(HowManyPlayers)+'1'); //
///////////////////////////////////////////////////////////////////////////
end;
function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;
procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
//-----------------------------------------------//
Procedure Setup;
begin
SetupSRL;
ActivateClient;
ChatsOff;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
//-----------------------------------------------//
Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('= You Are Using =');
Writeln('= =');
Writeln('= The Fetheroth Edgeville =');
Writeln('= =');
Writeln('= YEW CUTTER! =');
Writeln('= =');
WriteLn('= Version ' + VersionNumber + ' =');
Writeln('= =');
Writeln('= ' + inttostr(Trips) + ' Trips done =');
Writeln('= =');
Writeln('= Happy Cutting =');
Writeln('===============================');
end;
//-----------------------------------------------//
Procedure WalktoTrees;
begin
If (FindSymbol(x,y, 'rare trees')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
wait(10000)
end
If (not(FindSymbol(x,y, 'rare trees')))then
begin
SetRun(true)
Mouse(747,280,1,1,true)
wait(5000)
If (FindSymbol(x,y, 'rare trees')) then
begin
Mouse(x,y,1,1,true)
wait(10000)
end
end
end;
//-----------------------------------------------//
Procedure ChoptheTrees;
begin
repeat
if (FindMSColor(x,y,3438704))or
(FindMSColor(x,y,3887184))or
(FindMSColor(x,y,1925200))then
MMouse(x,y,1,1)
If IsUpText('Chop') then
Mouse(x,y,1,1,true)
wait(5000+Random(5000)+Random(5000)+Random(5000))
until (invfull = true)
if (invfull = true) then
Trips := Trips + 1;
end;
//-----------------------------------------------//
Procedure WalktoBank;
begin
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'bank')))then
begin
Mouse(789,173,1,1,true)
wait(10000);
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end
end;
//-----------------------------------------------//
Procedure BanktheLogs;
begin
OpenBank;
If WieldAxe = 1 then
begin
DepositAll;
end
If WieldAxe = 2 then
begin
Deposit(2,27,2);
end
end;
//-----------------------------------------------//
Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
FindNormalRandoms;
FindAxeHeadColor;
AttachHead;
DontBanMe(2);
If (FindEnt (3438704)) then
begin
Logout;
Wait(30000)
LoginPlayer;
end
end;
//-----------------------------------------------//
begin
DeclarePlayers;
Setup;
repeat
repeat
ProgReport;
WalktoTrees;
ChoptheTrees;
WalktoBank;
BanktheLogs;
AntiRandomsandAntiBan;
until (trips = Tripstodo);
If (trips = Tripstodo) then
Logout;
Nextplayer(true);
until (false);
end.
when inserting scripts always have them in between the scar script tags!
p.s I thought you said that you was new at scripting!!!!
**EDIT**
what part of the banking are you haivng problems with?
I am i was editing this script is it good?
when i tested it, it would just go on the square and not bank it. so.. i dont know what the problem is.
i just had a quick try and it didnt even get into the bank :P
try using a different banking procedure... and also a different procedure to find and get into the bank!
look man just go to the tut island and read some guides it will really help you progress in scripting if you still have problems with scripting then post her ebut dont go on here and say i need help i dont noe anythin all u had to do was read a guide
im back----took a long break away but im back and im gonna get into scripting
ok this is the part im having trouble with on the banking part
Procedure WalktoBank;
begin
If (FindSymbol(x,y,'4047310'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'4047310')))then
begin
Mouse(789,173,1,1,true)
wait(10000);
If (FindSymbol(x,y,'4047310'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end
end;
i changed 'bank' to 4047310 for the symbol color
and your having trouble with it because ... whats happening??
Ok this is whats happening, when it goes to the bank it find a tile (square) in the bank and just moves around on it and wont find the booth or the guy behind it plz helpand im trying this atm.
Procedure walktothebank;
begin
If GetColor('4047310');//////////dont mess with this
Then MoveMouse('1,1');////////////dont mess with this
If GetColor('540244');////////dont mess with this
Then MoveMouse('1,1');////////dont mess with this eatheir
end;
do u think this will work?![]()
yo yo lol i don't no just make your own skript i'm going to make a wood cutting one for starters
There are currently 1 users browsing this thread. (0 members and 1 guests)