SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
bobson - SRL Member Application Form
bobson

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
visual basics

Other Communitys
fagex , sythe . rsunlocked . rscheats

How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Been around here quite a it , wonna further my experience in slr.
Want to try and make some realy expert scripts.thats bout it.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program KarmFisher; 
{.include SRL/SRL.scar} 

var 
  FishingSpot: Integer; 

procedure DeclarePlayers; 
begin 
  HowManyPlayers := 1; 
  NumberOfPlayers(HowManyPlayers); 
  CurrentPlayer := 0; 
  Players[0].name := (''); 
  Players[0].pass := (''); 
  Players[0].nick := (''); 
end; 

procedure Fish; 
begin 
  FishingSpot := DTMFromString('78DA63E467646078CD80021232DAC1342394C' + 
    'F280C64DD415513109183AA860DC8FA88AA2622A315558D3890F5' + 
    '1E4D4D4233A6390F50D5788464A2A8010008AA0AC4'); 
  if (InvFull) then 
    DropTo(2, 28); 
  FindNormalRandoms; 
  HandleWhirlPool; 
  if (FindDTM(FishingSpot, x, y, MSX1, MSY1, MSX2, MSY2)) then 
    MMouse(x, y, 5, 5); 
  if (IsUpText('Cage Fishing')) then 
    Mouse(x, y, 5, 5, True); 
  FindNormalRandoms; 
  HandleWhirlPool; 
end; 

begin 
  SetupSRL; 
  DeclarePlayers; 
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); 
  repeat 
    FindNormalRandoms; 
    HandleWhirlPool; 
    Fish; 
    FindNormalRandoms; 
    HandleWhirlPool; 
    FTWait(20) 
  until (False) 
end.  

——————————————————
<!– END TEMPLATE: formanswers –>

U know visual basics? :p Script is too simple.

It's way too simple sorry.

I'm not sorry. No failsafes or multiplayer.

Try furthering you knowlede of SRL before you apply as this will get you the best chance of getting accepted.

That's mine :P.

[php]
program KarmFisher;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/fishing.scar}

var
FishingSpot: Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].name := ('');
Players[0].pass := ('');
Players[0].nick := ('ezim');
end;

procedure Fish;
begin
FishingSpot := DTMFromString('78DA63E467646078CD80021232DAC1342394C' +
'F280C64DD415513109183AA860DC8FA88AA2622A315558D3890F5' +
'1E4D4D4233A6390F50D5788464A2A8010008AA0AC4');
if (InvFull) then
DropTo(2, 28);
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
if (FindDTM(FishingSpot, x, y, MSX1, MSY1, MSX2, MSY2)) then
MMouse(x, y, 5, 5);
if (IsUpText('Cage Fishing')) then
Mouse(x, y, 5, 5, True);
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
end;

begin
SetupSRL;
DeclarePlayers;
SetupSRLFishing;
FindFishingEquipmentColor
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
Fish;
FindNormalRandoms;
FindFishingEquipment;
HandleWhirlPool;
FTWait(20)
until (False)
end.
[/php]

Silly Goose!

http://forum.scar-scripts.com/showthread.php?t=1305
SILLY GOOSE

Lol, it's posted to here, and i got it before you :).

Yoho got beat by 4 minutes lol. Copy, Copy, Copy. What are we going to do?

From: bobson

—————————————————–
Please write down a paragraph about Yourself.

Been around here quite a it , wonna further my experience in slr.
Want to try and make some realy expert scripts.thats bout it.

——————————————————

I know he got it before me.
I just posted a link.
Most people like links better.
And only reason he beat was because it was his script :P
Otherwise id be all mine
owe..

Yea and it is innocent 'til proven guilty right? and yoyoyo provided the proof so I think he gets the bust.