Simba Code:
program New;
{$i SRL\SRL.scar}
Const
SRLStats_Username = '';
SRLStats_Password = '';
BreakEvery = 120;
BreakFor = 5;
Version = '.01';
NumbOfPlayers = 1;
StartPlayer = 0;
Procedure Fishy;
var
SeX, SeY: Integer;
Begin
If FindObjCustom(SeX, SeY, ['Cage', 'Fishing'], [7956571, 9998731,9406078], 10) Then
WriteLn('Found Spot!');
Begin
Case Random(2) Of
0:Mouse(SeX,SeY, 5,5, True);
1: Begin
Mouse(SeX,SeY,4,4,False);
WaitOption('Cage',Randomrange(100,300));
End;
End;
End;
End;
Procedure DropFish;
Var
SeX, SeY, CrayDTM, I: Integer;
Slotbox:TBox;
CrayPattern:TIntegerArray;
Begin
CrayDTM := DTMFromString('mggAAAHicY2NgYFBlZGAwAWIlIFYBYhkg1gLiPiDuBuIWIJ4FxDOAuBWIM63lgboYMbAkA3aAqRKCIQAA5I4FMw==');
CrayPattern:= [1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28]
For I:=0 To 27 Do
Begin
SlotBox:=InvBox(CrayPattern[I]);
If FindDtm(CrayDTM, SeX,SeY, Slotbox.X1,Slotbox.Y1,Slotbox.X2,Slotbox.Y2) Then
Begin
MouseItem(CrayPattern[I], False);
ChooseOption('Dro');
End;
End;
End;
Begin
SetupSRL;
Fishy;
DropFish;
End.