Goku123
2012-02-10 18:22:32
program MyWoodcutter;
{$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;
loadcount = 50;
var
count: integer;
{---------------------------}
{--------Script Info--------}
//Author = 'SuperSaiyanGoku';
//Name = 'MyWoodcutter';
//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 Yew 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 WalkToBank;
Var
ToBank:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6','11_7'];
ToBank:= [Point(3828, 3360), Point(3845, 3297), Point(3845, 3226), Point(3847, 3191), Point(3867, 3196), Point(3867, 3209)];
SPS_WalkPath(ToBank);
end;
procedure ChopTree; //This chops your trees.
var x, y: integer;
begin
repeat
FindNormalRandoms;
ToggleXPBar(true);
WriteLn('ChopTree procedure activated! Finding tree.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
if FindObjCustom(x,y, ['ew','hop','own'], [3097151, 4675164],5) then//This finds the object, records the X and Y values, and tells the script to find the option "Tree".
begin
WriteLn('Tree found! Clicking option.');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Mouse(x, y, 0, 0, true);
ChooseOption('ew'); //This tells the script to left-click on the object and select "Yew".
end;
repeat
Wait(RandomRange(2000, 3000))
AntiBan;
Until not IsUpText('ew') or (InvFull);
Until (InvFull);
writeLn('Banking');
end;
Procedure Bank;
begin
if not LoggedIn then
Exit;
repeat
SetAngle(srl_angle_high);
OpenBanknpc;
Wait(Random(700));
until BankScreen or PinScreen;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;
begin
if Players[CurrentPlayer].Booleans[0] then
DepositAll else
Deposit(2 ,28 ,true);
CloseBank;
stats_IncVariable('Times Banked',1);
end
Writeln('Bout to bank these logs');
End;
Procedure WalkToYews;
Var
ToYews:TPointArray;
Begin
SetupSRL;
SPS_Areas := ['11_6','11_7'];
ToYews := [Point(3873, 3213), Point(3847, 3273), Point(3842, 3338), Point(3819, 3375), Point(3878, 3346), Point(3898, 3341)];
SPS_WalkPath(ToYews);
end;
Begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
SetupScript;
declarePlayers;
LoginPlayer;
begin
WalkToBank;
Bank;
WalkToYews;
repeat
Antiban;
ChopTree;
WalkToBank;
Bank;
walkToYews;
Inc(count);
until (count=loadcount)
end;
end.
//Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.
//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.
==========================================================================================
For all you Faggots like KeepBotting when you post the full code on a Open Source Website in a form post especially a Woodcutting Script the most basic form of Bot for runescape when there are thousands of Simba and Java Scripts out there for this skill, and the most common form of Script for people to learn from there is something in Plagiarism called "Fair Use".
Copyright Disclaimer Under Section 107 of the Copyright Act 1976, allowance is made for "fair use" for purposes such as criticism, comment, news reporting, teaching, scholarship, and research. Fair use is a use permitted by copyright statute that might otherwise be infringing. Non-profit, educational or personal use tips the balance in favor of fair use.
If the copy is used for teaching at a non-profit institution, distributed without charge, and made by a teacher or students acting individually, then the copy is more likely to be considered as fair use. In addition, an interpretation of fair use is more likely if the copy was made spontaneously, for temporary use, not as part of an "anthology" and not as an institutional requirement or suggestion.
http://www-sul.stanford.edu/cpyright.html
1. This is a Non Profit Institution.
2. The original Script was distributed without charge
3. I am considered a Student asking a Simple Fucking question here to learn
4. This was for Temporary use HOW AM I TO LEARN IF I DON'T POST THE WHOLE MODIFY SCRIPT ESPECIALLY IF I DONT KNOW WHAT OR WHERE THE PROBLEM IS?
Plagiarism is defined in dictionaries as the "wrongful appropriation," "close imitation," or "purloining and publication" of another author's "language, thoughts, ideas, or expressions," and the representation of them as one's own original work. I NEVER CLAIMED THIS SCRIPT WAS ORIGINAL MINE AND STILL DON'T