Hi I have a new script i am working on if someone can plz help with this i will credit ...
It doesnt need much but i got most of it done i just need alittle bit someone plz just help me...
Simba Code:
program GeYewCuttingScript;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
{SMART Setup Constants}
WORLD = 0; // Set a world, if you'd like. Leave 0 to choose a random world.
MEMBERS = False; // Are you Members or Free-To-Play? False for F2P, True for P2P.
SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
Author = 'Oreokilla';
Name = 'OreosyewKilla';
Version = '1.0';
{---------------------------}
procedure DeclarePlayers; //This declares the players to be used in the script.
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your Runescape username
Players[0].Pass := ''; //Your Runescape password
Players[0].Nick := ''; //3 or 4 lowercase letters from your Runescape username. Used as a Nickname.
Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
end;
procedure SetupScript;
begin;
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('Hope you enjoy this oak cutting script.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('I made this My self.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure AntiBan;
begin
case random(50) of
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('woodcutting', False);
4: SetAngle(SRL_ANGLE_HIGH);
end;
end;
procedure Chopyews;
var x, y: integer;
begin
SetAngle(SRL_ANGLE_HIGH);
repeat
WriteLn('Looking for ew to chop.');
if FindObj(x, y, 'ew', 4937570, 5) then
WriteLn('Cuttingyews.');
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
wait(3000+random(1000));
Until not IsUpText('ew') or (InvFull);
end;
Procedure WalkToBank;
Var
myPath:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6'];
myPath := [Point(4644, 2623), Point(4553, 2724)];
SPS_WalkPath(myPath);
end;
function Bank: Boolean;
Var
x, y: integer;
begin
if (InvFull) then
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if(FindColorSpiral(x, y, 3745323, 547, 206, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
end;
CloseBank;
Wait(150 + random (278));
end;
end;
Procedure WalkToYews;
Var
myPath:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6'];
myPath := [Point(4553, 2720), Point(4648, 2624)];
SPS_WalkPath(myPath);
end;
Begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
SetupScript;
declarePlayers;
LoginPlayer;
antiban;
ChopYews;
WalkToBank;
Bank;
walkToYews;
repeat
//Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.
until AllPlayersInactive; //This stops the script completely once your player has failed. e.g. Gotten into a random event, died (almost impossible) or failed to find a tree.
end.