Vinyl Scratch
2012-02-04 14:23:19
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
no
What is your general programming knowledge?
Pascal, A little bit of Javascript.
Are you a member of any other communities?
Stickpage Forums.
SRL forums.
Tell us about yourself…
Please show us one (or multiple) of your scripts.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
no
What is your general programming knowledge?
Pascal, A little bit of Javascript.
Are you a member of any other communities?
Stickpage Forums.
SRL forums.
Tell us about yourself…
From: xXTrollXx
I enjoy programming, i learned pascal, and this community is Great. I wanted to learn to code because i thought it would be fun, and it is.. I'm sill learning, but who isn't? I enjoy helping out whenever I can. I want to share my knowledge with everyone that
I can.
Please show us one (or multiple) of your scripts.
First REAL working script.
[simba]program Trolls_Yew_PowerChopper;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
{$ENDIF}
{$i SRL/SRL.simba}
{$i SRL/SRL/Misc/Paintsmart.simba}
const
SRLStats_Username = ''; //SRL Stats User
SRLStats_Pass = ''; //SRL Stats Pass
BreakEvery = '60'; //Break Every Log, Or Never.
BreakFor = '7'; //Break For How long, Now?
Version = '1.0'; // Don't Touch. You'll Break.
NumbOfPlayers = 1; //Number of Players That You Will Be using.
StartPlayer = 0; //Start Which Player?
procedure DeclarePlayers;
var i: Integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
var
X, Y, TreesChopped: integer;
StartingXP: integer;
//==================Anything after this point DON'T TOUCH!====================\\
//............................................................................\\
procedure StatsGuise(Stats:String);
begin
Status(stats);
Disguise(stats);
end;
function CheckAndClick(UpText, Option:string; X,Y:Integer; RClick:Boolean) :Boolean;
begin
MMouse (x, y, 5, 5);
if WaitUpText(UpText, 2300+random(400)) then
begin
Result:=True;
GetMousePos(x, y);
if RClick then
begin
Mouse(X, Y, 0, 0, False);
Result:= WaitOption (Option, 2000);
if Result then FFlag(0);
end else
begin
Mouse(x, y, 0, 0,True);
wait(230+random(70));
FFlag(0);
end;
end;
end;
procedure AntiBan;
begin
case Random(250) of
0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Woodcutting', false) GameTab(28); end;
1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
3: begin StatsGuise('AntiBan') RandomAngle(1); end;
end;
end;
Procedure ProgressReport;
var Exp: integer;
begin
Exp := (GetXPBarTotal - StartingXP);
writeLn('================================');
writeLn('=======Trolls PowerChopper======');
writeLn('=======Time Running: ' + TimeRunning);
writeLn('=======Logs: ' + IntToStr(TreesChopped));
writeLn('=======Exp: ' + IntToStr(EXP));
writeLn('================================');
end;
procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
end;
Procedure Chop;
var X, Y, PlusOne, TreeCounter: Integer;
begin
//if FindObjCustom(x, y, ['Chop', 'Down'], [4937570, 4344918], 5) Then
X:=MSCX
Y:=MSCY
if FindObjTPA(X, Y, 4937570, 15, 1, 20, 60, 600, ['Chop']) then
begin
StatsGuise('Tree! Cutting.....')
GetMousePos(X, Y);
case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 250);
end;
end;
Flag;
repeat
Marktime(TreeCounter);
AntiBan;
wait(100);
if InvCount=PlusOne then
WriteLn ('Got That Tree!');
until (InvCount=PlusOne) or (TimeFromMark(TreeCounter) > 15000)
end;
end;
procedure Drop;
var
X, Y, LogDTM, I:Integer;
SlotBox: TBox;
LogPattern:TIntegerArray;
begin
LogDTM := DTMFromString('m1gAAAHic42JgYEhnZmCIguIkIM4G4kIgLgXiVCAuAOIcIA5nBMoDcRgQBwCxLxAHAnEcECcDcQIQJwKxmzEX0FQmIjBxgJFIjAAAi5QIYA==');
LogPattern :=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28];
for I:=0 to 27 do
begin
SlotBox:=InvBox(LogPattern[I]);
if FindDTM(LogDTM, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) then
begin
MouseItem(LogPattern[I], Mouse_Right);
ChooseOption('Dro');
end;
end;
end;