SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
C++,C#,ActionScript,HTML,PHP,DBPro,VB

Other Communitys
TGC Forums

How Long have You Played Runescape
5 Years

Are you affilated in anyway with Jagex LTD?
No, They Make My Life Harder :(
—————————————————–
Please write down a paragraph about Yourself.

Firstly Hello,
You May Remember My Applying Ages Ago, With My Auto Typer, and Now I Know That Was No Where Near The Standerds Of Scripets Of This Comunity. So I Have Been Scripting Using Scar Since The Kenithiks Days (Good Times) But I Have Never Really Released Any Of My Scripts. Over The Past Month Or So My Scripting Has Come On, and My Use Of This Online Community Has Become Ever More So Frequant, and Although I am Actually A Games Designer (C++ and DBpro) I Do Love Using Scar, I Don't Know Why There's Just Something About It, and The Community Has Stood Strongly Behind It. So Hope That Explains, Why I Would Like Membership.

Yours Tv.

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

program Tvs_Farm_Boy;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
Var
RakePosX, RakePosY, BuckPosX, BuckPosY, CanCut : Integer;
Const
SmWorld = 66;
Your_Username = 'I Love IE';
Your_Password = 'But';
Your_Nickname = 'Firefox Is Better';

Procedure TvLogin(UserName,Password,Nickname: string);
begin
Getapplication.minimize;
ActivateClient;
   Begin
    NumberOfPlayers(1);
    Players[0].Name := UserName;
    Players[0].Pass := Password;
    Players[0].nick := Nickname;
    Players[0].Active := True;
    cleardebug;
    clearreport;
    Loginplayer;
    SetAngle(True);
    MakeCompass('n');
    GameTab(4)
   End;
end;

Procedure TvSetup;
begin
  SmartSetupEx(SmWorld, false, true);
  SetTargetDC(SmartGetDC);
  SetupSRL;
end;

Procedure CheckFarm;
Var
Tx,Ty,Rake,Bucket : Integer;
Begin
 If FindSymbol(Tx,Ty,'farming spot')then
  Begin
   Writeln('You Are At The Farming Spot')
  End
Else
  Begin
    If(FindObjCustom(Tx,Ty,['Allotment','ment','otme','Patch','tch'],[746066,812885,2518366,2707802],10))Then
      Begin
        Writeln('You Are At The Farming Spot')
      End
    Else
      Begin
        Writeln('You Are Not At The Farming Spot')
        TerminateScript;
      End;
   End;
 Rake := DTMFromString('78DA632C666160C867644006E5C5F9601A26C' +
       'A980554538CAA06260B579307545346404D11504D390135D54035' +
       '2504D480DC9347404D39504D167E3500C05107C5');
 If(DTMRotated(Rake,Tx,Ty,545,200,738,465))Then
   Begin
     Writeln('Found A Rake By DTM')
     RakePosX := Tx
     RakePosY := Ty
     AddToReport('Rake Position = '+IntToStr(RakePosX)+', '+IntToStr(RakePosY))
   End
 Else
   Begin
    If(FindColorSpiralTolerance(Tx,Ty,7040883,545,200,738,465,3))Then
     Begin
      MMouse(Tx,Ty,4,4)
      Wait(500+random(100))
      If(IsUpText('ake'))Then
      Begin
      Writeln('Found A Rake By Object Search')
      RakePosX := Tx
      RakePosY := Ty
      AddToReport('Rake Position = '+IntToStr(RakePosX)+', '+IntToStr(RakePosY))
      End
     Else
      Begin
       Writeln('Could Not Find A Rake')
       TerminateScript;
      End;
     End
    Else
     Begin
     Writeln('Could Not Find A Rake')
     TerminateScript;
     End;
   End;
 Wait(1000+random(500))
 Bucket := DTMFromString('78DA635CC4C2C090CDC8800C7A4B9CC1344C9' +
       '4712E504D39AA1A982C5CCD4AA09A12026A6603D5C41350B302A8' +
       '2681809A19986E465703001AC107B7');
 If(DTMRotated(Bucket,Tx,Ty,545,200,738,465))Then
  Begin
    Writeln('Found A Bucket By DTM')
    BuckPosX := Tx
    BuckPosY := Ty
    AddToReport('Bucket Position = '+IntToStr(BuckPosX)+', '+IntToStr(BuckPosY))
  End
 Else
  Begin
   If(FindColorSpiralTolerance(Tx,Ty,7040883,545,200,738,465,3))Then
     Begin
      MMouse(Tx,Ty,4,4)
      Wait(500+random(100))
      If(IsUpText('ket'))Then
      Begin
      Writeln('Found A Bucket By Object Search')
      RakePosX := Tx
      RakePosY := Ty
      AddToReport('Bucket Position = '+IntToStr(RakePosX)+', '+IntToStr(RakePosY))
      End;
     End
    Else
     Begin
      Writeln('Could Not Find A Bucket')
      TerminateScript;
     End;
  End;
End;

Procedure CheckRake;
Var
Tx, Ty, RakeHead : Integer;
Begin
   MMouse(RakePosX,RakePosY,4,4)
   wait(500+random(100))
   If(IsUpText('dle'))then
    Begin
      writeln('Rake Is Broken')
      If(FindObjCustom(Tx,Ty,['ake','Rake'],[7764864,6053987,7896450],10))then
       begin
         Wait(500+random(100))
         Mouse(Tx,Ty,4,4,true)
         wait(500+random(100))
         RakeHead := DTMFromString('78DA639CCAC4C0B087910119D4941731FC07D' +
       '220D1FF40C0381BA8662BAA9A207F1F300D1305AB398CAA263E3A' +
       '02554D1F50CD2E54353191A1A86A2600D51C4455D3DDDE88AA661' +
       '6A69BD1ED02005486141B');
         If(DTMRotated(RakeHead,Tx,Ty,0,0,0,0))Then
         Begin
         Mouse(Tx,Ty,4,4,True)
         wait(100+random(500))
         Mouse(RakePosX,RakePosY,4,4,True)
         Wait(1000+random(1000))
         Writeln('Fixed The Rake')
         End
        Else
         Begin
          Writeln('Sorry, Something Went Wrong')
          TerminateScript;
         End;
       end
      else
       begin
        Writeln('Im Afraid I Cant Find The Rake Head')
        TerminateScript;
       end;
    End;
End;

Procedure WeedTheFarm;
Var
Tx,Ty,Ti : Integer;
Begin
Ti:=0
 Repeat
   Wait(1000+random(1000))
   Mouse(RakePosx,RakePosY,4,4,True)
   Wait(500+random(500))
   If(FindObjCustom(Tx,Ty,['ment','otme','Patch','tch'],[2650209,2716772,881504,880476],4))Then
    Begin
     MMouse(Tx,Ty,4,4)
     wait(500+random(100))
     If(IsUpText('ment')or IsUpText('tch'))Then
      Begin
       Mouse(Tx,Ty,2,2,True);
       Wait(2000+random(5000));
       CheckRake;
       Wait(10000+random(5000));
      End
     Else
      Begin
       Wait(1000+random(1000));
        If FindSymbol(Tx,Ty,'farming spot')then
          Begin
            Mouse(Tx,Ty,10,10,True)
            Flag;
            Ti:= Ti+1
            Writeln('Weed Check = '+IntToStr(Ti))
          End
        Else
          Begin
           Wait(1000+random(1000))
          End;
      End;
    End
   Else
    Begin
     Wait(100+random(500))
     Mouse(RakePosX,RakePosY,4,4,True)
     Wait(1000+random(1000));
    End;
   If invfull then Ti:= 10;
 Until(Ti>5);
 Writeln('Weeded All The Patches')
end;

Procedure CompostWeeds;
Var
Tx,Ty,Weed,Tc : Integer;
Begin
  If FindSymbol(Tx,Ty,'farming spot')then
    Begin
     Mouse(Tx,Ty,4,4,True)
     Flag;
    End;
  SetAngle(False);
Weed := DTMFromString('78DA636461616098C9C8800CFCA214C1344C9' +
       '49107A86605AA1A982C5CCD77660686B904D4FC06AAE927A0860B' +
       '68D764026A18806A96E05703006A2B06A7');
Tc:=0;
Repeat
  If(DTMRotated(Weed,Tx,Ty,545,200,738,465))Then
  Begin
    Mouse(Tx,Ty,4,4,True)
    Wait(100+random(100))
    Tc:=1;
  End
Else
  Begin
     If(FindColorSpiralTolerance(Tx,Ty,2053449,545,200,738,465,3))Then
     Begin
      MMouse(Tx,Ty,4,4)
      Wait(500+random(100))
      If(IsUpText('eeds'))Then
       Begin
        Writeln('Found Weeds By Object Search')
        Mouse(Tx,Ty,4,4,True)
        Tc:= 1;
       End
     Else
      Begin
       Writeln('Could Not Find Weeds')
       TerminateScript;
      End;
  End;
  End;
  If(FindObjCustom(Tx,Ty,['Comp','ost','Bin'],[3498352,4022122,5142663],10))Then
  Begin
     Mouse(Tx,Ty,4,4,True)
  End;
 If(FindBlackChatMessage('compost'))Then Tc:= 1;
Until(Tc=1)
Writeln('Compost Filled')
TerminateScript;
End;

Procedure CanCutTrees;
Var
Tx, Ty, EqAxe : Integer;
Begin
   Mouse(675,185,4,4,True)
   Wait(1000+random(500))
   EqAxe := DTMFromString('78DA636C60616058CDC8800C82722AC0344C9' +
       '4B10DA86613AA1A982C5C4D2750CD2A026A6A816A5610505349D8' +
       '2E003C910744');
   If(DTMRotated(EqAxe,Tx,Ty,545,200,738,465))Then
    Begin
     MMouse(Tx,Ty,4,4)
     wait(500+random(100))
     Writeln(GetUpText)
     CanCut:=1;
     AddToReport('You Have An Axe Weilded')
    End
   Else
    Begin
     MMouse(586,305,4,4)
     Wait(500+random(500))
     If(IsUpText('axe'))Then
      Begin
       MMouse(Tx,Ty,4,4)
       wait(500+random(100))
       Writeln(GetUpText)
       CanCut:=1;
       AddToReport('You Have An Axe Weilded')
      End
     Else
      Begin
       CanCut := 0;
       Writeln('No Axe Found')
      End;
    End;
  Mouse(645,185,4,4,True)
  Wait(1000+random(1000))
End;

begin
  TvSetup;
  TvLogin(Your_Username,Your_Password,Your_Nickname);
 Repeat
  CheckFarm;
  CanCutTrees;
  WeedTheFarm;
  CompostWeeds;
 Until(false)
end.

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

Not sure, standards are off =/
holding vote…

Edit:
Well…it's no this time, gl next time.

Sorry.

Make it more complex… and try to include propley working multiplayer(I mean it needs to exit the script or loop when player is false)

Edit: Im not sure, you had lot of work on it, I don't vote:)

no.

Thank You Negaal For Your Feedback, (Rather Than Just No, How Does That Help) and The Latest Version Does Have Multiplayer, but It's Also Really Buggy, lol, So As Soon As I've Ironed Out The Bugs, Ill Be Back :)
Just Watch Me

Thanks Again Tv.

When i read the original thread where you posted this script i was looking forward on seeying the end result. But i think you have rushed it abit to mutch.

True the standards are abit off, but i'm not holding that against you, aslong as my eyes don't start to bleed it's fine.
I don't think a multiplayer is really needed as it's a member script anyway, course some peeps think otherwise so better to add it just to show that you know how it works.

Take your time to finish the script, add the planting, taking care of plants, harvesting, woodcutting part and fletching(hint, hint) and you'll be voted member in no time. We'll still be here, waiting for you :p

Thanks Psychor, I Feel All Loved Now Lol :)
and Don't Worry Seeding Is On The Way, Aswel As W/C :)
and Fletching :) Good Idea :)

Cheers Tv.

wow, finally a farming script. i like the fact that you have originality and tried something new. unlike people who apply with miners/ wcers/ fishers etc.
the standards being off does confuse the hell outta me when i'm reading throught the script, but i saw you have many failsafes for finding your material. it's good that you do, and the script probably works, but i jsut don't find it very complex at all.

you could try diffferent object finding procedures like FindObjTPAMulti (look in object.scar), and build up the woodcutting part up. because farming takes it's time, so unless you have multiplayer to switch between them while you wait or you woodcut to not waste your time the player will be hanging around a lot.

~RM

Thank You Once Agian For The Coments…
Next Month This Will Be The Result :)

*PSST* Fix your standards we love good standards in a script. *end psst*

imo - no its not complex enough, good failsafes though ;)

also your script got a 17/100 from bobbohobbo's srl application checker. :eek:

Result = 17
Sorry, Your script isnt SRL-Members Worthy.

From: Timothegreat
imo - no its not complex enough, good failsafes though ;)

also your script got a 17/100 from bobbohobbo's srl application checker. :eek:

My VEM also got a 17 :o It's outdated though so.. :(


Edit: & Masterkill's VEM:

MainForm compiled in 0 milliseconds!
Result = 31
Sorry, Your script isnt SRL-Members Worthy.
Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
Or ethier UPDATE YOUR SCRIPT! No ClickMouse
and FindFastRandoms PLEASE.
Successfully executed

Lol 0wn3d?

From: NaumanAkhlaq
Lol 0wn3d?

The reason for that score is beacuse this isn't really a walking script… Doesn't have radialwalk ect.

IncludedSRL: Yes
Forms: No
LinearWalk: 0
LinearWalkEx: 0
LinearRoadWalk: 0
RadialWalk: 0
RadialWalkEx: 0
RadialRoadWalk: 0
DTMString: 5
DynamicDTM: 0
FreeDTM: 0
Mouse: 13
MMouse: 8
FFlag: 0
Flag: 2
DTMRotated: 5
FindDTMRotated: 0
FindDTM: 0
BitmapFromString: 0
FreeBitmap: 0
Exit: 0
Break: 0

But, This script has a good idea to it, just needs some better standards. Your multiplayer needs an improvement mainly.

You really should stop posting in that "Really Annoying Caps"

From: Timothegreat
imo - no its not complex enough, good failsafes though ;)

also your script got a 17/100 from bobbohobbo's srl application checker. :eek:

Its out of 50 :)

From: BobboHobbo
Its out of 50 :)

How did Wizzup?'s VEM get a 95 then????????????

From: [-jesus-]
How did Wizzup?'s VEM get a 95 then????????????

50 is so called good for members, but it goes over 140 or something not sure. Sorry if i made it seem like 50 was the highest

I'm afraid you're not getting in this time.
You may try again in one month.
Closed.