Failpailirl
12-04-2010, 07:08 PM
Can someone please make a crayfish and bank. as it would be extremely good f2p junk. and i would like to transfer a little money from my main to my pure.
lol bro there's already a post for this on this exact same page O_o.... I made one and posted it I believe. It may get stuck though (only temporarily) until it sees the fishing spot again.
Luke-
edit: You're a SRL junior member, doesn't that mean you can script XD? It's probably one of the easiest types of scripts to make o-0
Failpailirl
12-04-2010, 07:59 PM
nah. just means i have over 200 posts. havent even attempted to make a script
but i think ti would be an amazing way to transfer / junk trade
Could you test this out for me? I just took out a fairly large part of coding and replaced it without testing at all lol. It's bound to fail but if you can tell me what it doesn't do I can fix it.
P.S you need to find the ID of the crayfish tiles for it to work O_o.. Dunno if it'll be on google or something.
program Crayfish;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i Reflection\Reflection.simba}
const
DebugOn = true; //true to display extra debugging
MinWaitTime = 2000; //Minimum time to wait between performing antiban (in ms)
{---SMART Setup Constants---}
WORLD = 32;
MEMBERS = false;
SIGNED = true;
{---------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // How many players declared?
CurrentPlayer := 0; // Number of player to start with.
NumberOfPlayers(HowManyPlayers);
with Players[0] do //copy/paste to add more players
begin
Name := ''; // Characters full RS username.
Pass := ''; // Characters RS password.
Nick := ''; // 3 non-caps letters of char's RS username.
Integers[0] := 0; //Loads to do. 0 will go until the player is inactive (i.e. fails a random, gets lost)
Booleans[0] := true; //true for caging false for harpooning
Active := True;
end;
end;
var
ABTime: integer;
procedure AntiBan(percent: integer);
begin
if (TimeFromMark(ABTime) < MinWaitTime) then
exit;
if (Random(99) < (percent - 1)) then
begin
MarkTime(ABTime);
case Random(7) of
0: BoredHuman;
1: BoredHuman;
2: RandomMovement;
3: PickUpMouse;
4: HoverSkill('fishing', false);
5: RandomRClick;
6: ExamineInv;
7: RandomAngle(1);
end;
end;
GameTab(tab_Inv);
MarkTime(ABTime);
end;
Function Bank:Boolean;
var
Shrimp, Anch, Sardine, Herring, Crayfish:Integer;
fished: Integer;
begin
Crayfish := R_CountItemID(13435);
Result := R_OpenBankBooth('db');
if not result then
FindBank('db');
R_DepositAllButIDEx([13431, 303, 307, 313]);
CloseBank;
fished:= fished+27;
WriteLn('[ Total Number of Crayfish caught: ' + (IntToStr(fished)) + ']');
end;
function Banking: TPointArray;
begin
SetLength(Result, 7);
WriteLn('Walking to bank');
if not(WalkPath([
Tile(3168, 3264), Tile(3156, 3259), Tile(3142, 3260),
Tile(3130, 3263), Tile(3116, 3263), Tile(3105, 3252),
Tile(3094, 3244) ]))
then
end;
function Fishing: TPointArray;
begin
SetLength(Result, 7);
WriteLn('Walking to pond');
if not(WalkPath([
Tile(3092, 3244), Tile(3105, 3252), Tile(3116, 3263),
Tile(3130, 3263), Tile(3142, 3260), Tile(3156, 3259),
Tile(3168, 3264)
]))
then
end;
function IsNotFishing: boolean;
var
Me: TMe;
Anim: integer;
begin
case Players[CurrentPlayer].Booleans[0] of
true: anim := 619;
false: anim := 618;
end;
Me := GetMe;
if (Me.Animation <> anim) then
Result := true;
end;
function FindSpotRef: TPoint;
var
Spots: TNPCArray;
i, ii: integer;
Action: string;
begin
case Players[CurrentPlayer].Booleans[0] of
true: Action := 'Cage';
false: Action := 'Harpoon';
end;
Spots := SortNPCs(GetNPCs);
for i := 0 to High(Spots) do
begin
if (Spots[i].Name = 'Fishing spot') then
for ii := 0 to High(Spots[i].Actions) do
begin
if (Spots[i].Actions[ii] = Action) then
Result := TileToMSEx(Spots[i].Tile, 0.5, 0.5, 0);
end;
end;
end;
function CheckOBJ: TTile;
var
Spot: TRSObject;
i, IDHERE : Integer;
begin
if not LoggedIn then
Exit;
Spot := GetObjectByID (IDHERE, OBJECT_TYPE_INTERACTABLE, 52);
if high(Spot) > -1 then
begin
for i:=0 to high(Spot) do // Fixed!
begin
if (Spot.ID = IDHERE) then
begin
result := Spot.Tile;
end;
end;
end;
end;
function FindSpot: Boolean;
var
CTS, I, x, y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Action: string;
SpotPoint, SpotPos w: TPoint;
Key : Byte;
B : Boolean;
begin
case Players[CurrentPlayer].Booleans[0] of
true: Action := 'age';
false: Action := '';
end;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.37, 1.68);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 11378070, MSX1, MSY1, MSX2, MSY2, 2);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 3, 3);
For I := 0 to High(ATPA) do
begin
WriteLn('Fishing');
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 2, 2);
If(IsUpTextMultiCustom(['pot'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Result := ChooseOption(Action);
end;
end;
if not(Result) then
begin
SpotPoint := FindSpotRef;
Mouse(SpotPoint.X, SpotPoint.Y, 3, 3, false);
Result := R_ChooseOption(Action);
end;
WriteLn('Could not find spot! Searching..');
if((not(TileOnMS(CheckOBJ, 0)))) then
begin
writeln('Attempting to find fishing spot.');
SpotPos := TileToMM(CheckOBJ);
Mouse(SpotPos.x, SpotPos.y, 4, 4, True);
if(R_FlagExists)then
R_Flag;
end;
end;
procedure WaitToFish;
begin
repeat
repeat
AntiBan(8);
FindNormalRandoms;
if InvFull then break;
Wait(RandomRange(3000,4000));
if IsNotFishing then
FindSpot;
until (InvFull);
until (InvFull);
end;
procedure Fish;
begin
if (not(LoggedIn)) then Exit;
if InvFull then Exit;
repeat
FindSpot;
WaitToFish;
until InvFull;
end;
procedure ScriptSetup;
var
Log: boolean;
begin
Smart_Members := MEMBERS;
Smart_Server := WORLD;
Smart_Signed := SIGNED;
SetupSRL;
SetupReflectionEx(true);
DeclarePlayers;
end;
begin
ScriptSetup;
LogInPlayer;
SetAngle(true);
Wait(RandomRange(4000,8000));
repeat
repeat
Fish;
Banking;
if not(Bank) then
WriteLn('couldnt do bank');
Fishing;
until not LoggedIn;
NextPlayer(Players[CurrentPlayer].Active);
until(AllPlayersInactive);
end.
Edit:
Here's a list of IDs
42 Fishing spot I can see fish swimming in the water.
678 Fishing spot I see fish.
679 Fishing spot I can see fish swimming in the water.
2026 Fishing spot I can see fish swimming in the water.
2027 Fishing spot I can see fish swimming in the water.
2028 Fishing spot I can see fish swimming in the water.
2029 Fishing spot I can see fish swimming in the water.
2030 Fishing spot I can see fish swimming in the water.
2031 Fishing spot I can see fish swimming in the water.
3032 Fishing spot I can see fish swimming in the water.
8986 Fishing spot I can see fish swimming in the water. Well, they sort of look like fish...
It's one of those hopefully :P
Failpailirl
12-04-2010, 09:07 PM
begin
case Players[CurrentPlayer].Booleans[0] of
true: Action := 'Cage';
false: Action := 'Harpoon';
end;
trust me. ive never even attempted a script
but wouldnt it be:
true: Action := 'Crayfish cage';
false: Action := 'Net';
nah, 'Cage' will work just fine. It doesn't search for an exact match. Just containing.
The harpoon bit is just because that script is a mix and match of various other scripts (Was my first script which I put together for myself to catch crayfish)
Luke-
ps. dont worry about it being false := harpoon. It doesn't affect it as it's already set to true, so unless you set it to false it wont ever look for harpoon :)
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.