All that is man
2009-07-06 04:36:14
How Long have You Played Runescape?
4 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
SCAR, very very little java
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
4 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
SCAR, very very little java
Are you a member of any other communities?
No
Tell us about yourself…
From: All that is man
My name is Brian, i'm 14 years old. I love to play on my computer and xbox 360, i play basketball and baseball.
Please show us one (or multiple) of your scripts.
program new;
{.Include SRL\SRL\Misc\Smart.Scar}
{.include srl/srl.scar}
{.include srl/srl/reflection/reflection.scar}
var
Loads, trips, totalLoads, ms: integer;
procedure multiplayer; forward;
procedure moveFishingSpots; forward;
procedure proggy; forward;
procedure DeclarePlayers;
begin
HowManyPlayers := 2 ;
NumberOfPlayers(HowManyPlayers) ;
CurrentPlayer := 0 ;
Players[0].Name :='' ;
Players[0].Pass :='' ;
Players[0].Nick :='' ;
Players[0].Loc :='' ;//fish or bank
Players[0].integers[0] := 3 ;//Amount of loads to do
Players[0].integers[1] := 25 ;//Amount of times to do the amount of loads to do
Players[0].integers[2] := 0 ;//LEAVE 0!
Players[0].Active:=True ;
Players[1].Name :='' ;
Players[1].Pass :='' ;
Players[1].Nick :='' ;
Players[1].Loc :='' ;//fish or bank
Players[1].integers[0] := 3 ;//Amount of loads to do
Players[1].integers[1] := 25 ;//Amount of times to do the amount of loads to do
Players[1].integers[2] := 0 ;//LEAVE 0!
Players[1].Active:=True ;
{Players[0].Name :='' ;
Players[2].Pass :='' ;
Players[2].Nick :='' ;
Players[2].Loc :='' ;//fish or bank
Players[2].integers[0] := 5 ;//Amount of loads to do
Players[2].integers[1] := 5 ;//Amount of times to do the amount of loads to do
Players[2].integers[2] := 0 ;//LEAVE 0!
Players[2].Active:=True ;}
end;
procedure W(Time, RandomTime: integer);
begin
Wait(Time+random(RandomTime));
end;
procedure CM;
begin
repeat
w(10, 10);
until(not(charactermoving))
end;
function RM: integer;
begin
result := (1+random(6));
end;
procedure PreparingOpening;
begin
SetupSRL;
SetupReflection;
{$IFDEF srl_SMART}
Smart_Server:=80;
Smart_Members:=false;
Smart_Signed:=true;
Smart_SuperDetail:=False;
{$ENDIF}
w(2500, 2500);
Disguise('Barb Fisher And Banker');
ClearDeBug;
DeclarePlayers;
LoginPlayer;
w(1000, 500);
SetAngle(true);
makeCompass('n');
end;
procedure AntiBan;
begin
case random(9) of
0: begin
RandomRClick;
W(500, 500);
R_FindRandoms;
FindNormalRandoms;
end;
1: begin
BoredHuman;
W(500, 500);
R_FindRandoms;
FindNormalRandoms;
end;
2: begin
Makecompass('random');
W(1, 1000);
MakeCompass('n');
R_FindRandoms;
FindNormalRandoms;
end;
3: begin
PickUpMouse;
W(1, 1000);
end;
4: begin
hoverskill('fishing', false);
w(1000, 1000);
gametab(4);
end;
5: begin
case random(2) of
0: begin
RM;
gameTab(rm);
w(1000, 500);
gameTab(rm);
w(500, 1000);
gameTab(4);
end;
1: begin
rm;
gameTab(rm);
w(500, 500);
gameTab(4);
end;
end;
end;
end;
end;
function ToBank: Tpointarray;
begin
SetRun(true);
SetLength(result, 7);
result[0] := Point(3097, 3436);
result[1] := Point(3094, 3450);
result[2] := Point(3089, 3458);
result[3] := Point(3083, 3465);
result[4] := Point(3080, 3479);
result[5] := Point(3086, 3490);
result[6] := Point(3093, 3490);
end;
function ToFish: Tpointarray;
begin
SetRun(true);
SetLength(result, 8);
result[0] := Point(3087, 3489);
result[1] := Point(3079, 3482);
result[2] := Point(3081, 3473);
result[3] := Point(3087, 3465);
result[4] := Point(3094, 3453);
result[5] := Point(3093, 3443);
result[6] := Point(3104, 3434);
result[7] := Point(3109, 3433);
end;
procedure PathWalker(PathToWalk: TPointArray);
var
I: Integer;
Path: TPointArray;
begin
Path := PathToWalk;
for i := 0 to High(Path) do
begin
WalkToTile(Path[i], 1, 2);
w(500, 500);
CM;
FindNormalRandoms;
case Random(4) of
0: AntiBan;
end;
end;
W(500, 500);
end;
function findFishingSpot: boolean;
var
FP: tnpc;
begin
if (FindNPC('Fishing Spot', FP)) then
begin
if(TileOnMS(Fp.tile, 10))then
begin
result := true;
end else
begin
result := false;
end;
end;
end;
procedure Bank;
var
Trout, Salmon, x, y: integer;
begin
Trout := DTMFromString('78DA634C6462606066644006BB366C603002D' +
'220D1FF40C0980354F385010D302291403A19A8868D11BF9A60A0' +
'1A6E026A40EEF981DF2E00373F0A48');
Salmon := DTMFromString('78DA63EC6462606065644006476BF3198C803' +
'448F43F1030D601D5F0A0AA81C8C24820DD0D54F38301BF9AE940' +
'35DF18089BC385DF2E004B1F0AB8');
R_OpenBankBooth('eb');
repeat
wait(10);
until(BankScreen)
w(100, 500);
if FindDtm(trout, x, y, Mix1, Miy1, Mix2, Miy2) then
begin
Mouse(x, y, 5, 5, false);
w(500, 1000);
R_ChooseOption('eposit-All');
w(100, 500);
if FindDtm(salmon, x, y, Mix1, Miy1, Mix2, Miy2) then
begin
Mouse(x, y, 5, 5, false);
w(500, 1000);
R_ChooseOption('eposit-All');
w(100, 500);
end;
end;
CloseBank;
Loads := Loads + 1;
totalLoads := totalLoads + 1;
inc(players[currentplayer].integers[2]);
Multiplayer;
end;
function RodAndFeathers: boolean;
var
a: integer;
begin
if InventoryContainsMultiEx([310, 315], a) then
begin
result := true;
end else
begin
Writeln('Can''t find your rod or feathers, please get them');
Disguise('Terminated');
proggy;
TerminateScript;
end;
end;
function fishing: boolean;
var
playerstuffs : tme;
begin
playerstuffs := getme;
if (playerstuffs.Animation = 623) then
begin
result := true;
end;
end;
procedure Fish;
var
FP: TNPC;
FishPoint: Tpoint;
begin
repeat
if invfull then PathWalker(ToBank);
if not findFishingSpot then moveFishingSpots;
if (FindNPC('Fishing Spot', FP)) then
begin
R_FindRandoms;
FindNormalRandoms;
Fishpoint := TileToMS(FP.Tile, Random(0));
if not findFishingSpot then moveFishingSpots;
Mouse(FishPoint.x, FishPoint.y, 2, 2, false);
R_ChooseOption('ure');
if not (FindNPC('Fishing Spot', FP)) then moveFishingSpots;
w(3500, 2000);
if fishing then
begin
repeat
if not (FindNPC('Fishing Spot', FP)) then moveFishingSpots;
case random(3) of
0: w(2000, 2000);
1: AntiBan;
2: w(2000, 2000);
end;
R_FindRandoms;
FindNormalRandoms;
until not (fishing)
end;
end;
until((invfull)or(not(findFishingSpot)))
end;
procedure MoveFishingSpots;
var
playerposlol: integer;
PlayerPosition, FS1, FS2: Tpoint;
begin
FS1 := Point(3109, 3432);
FS2 := Point(3103, 3424);
PlayerPosition := GetMyPos;
playerposlol := 0;
if PointInBox(PlayerPosition, IntToBox(3103, 3437, 3114, 3428)) then
begin
playerposlol := 1;
end else
begin
setRun(true);
case playerposlol of
0: begin
WalkToTile(FS2, 1, 2);
w(10000, 5000);
Ms:=ms+1;
end;
1: begin
WalkToTile(FS1, 1, 2);
w(10000, 5000);
MS:=Ms+1;
end;
end;
end;
fish;
end;
procedure Multiplayer;
begin
if ((players[currentplayer].integers[0]) <= (Loads)) then
begin
Loads := 0;
inc(players[currentplayer].integers[1]);
if ((players[currentplayer].integers[1]) <= (trips)) then
begin
Nextplayer(false);
end else
begin
NextPlayer(true);
end;
end;
end;
procedure proggy;
var
i: integer;
begin
Writeln('All that is man''s Barb fisher/Banker');
Writeln('Current Player: ' + Players[currentplayer].name);
Writeln('Time Ran: ' + TimeRunning + '.');
for i := 0 to high(players) do
Writeln('Player: ' + players[i].name + ' - Fish caught: ' + intToStr(players[i].integers[2] * 26) + ' - Banked: ' + intToStr(players[i].integers[2]) + ' times.');
end;
procedure MainLoop;
var
loop: integer;
begin
preparingOpening;
if(Players[currentplayer].Loc='fish')then loop := 1;
if(Players[currentplayer].Loc='bank')then loop := 2;
case loop of
1: begin
repeat
fish;
pathWalker(toBank);
bank;
proggy;
pathWalker(toFish);
until(allplayersinactive)
end;
2: begin
repeat
if invfull then bank;
proggy;
pathWalker(toFish);
Fish;
pathWalker(toBank);
until(allPlayersInActive)
end;
end;
end;
begin
MainLoop;
end.
All that is man's Barb fisher/Banker
Time Ran: 24 Minutes and 6 Seconds.
Banked: 7 times.
Fished: 182 fish.
MovedSpots: 1 times.
All that is man's Barb fisher/Banker
Current Player: ****
Time Ran: 9 Minutes and 16 Seconds.
Player: **** - Fish caught: 78 - Banked: 3 times.
Player: **** - Fish caught: 26 - Banked: 1 times.