SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
none

Other Communitys
none

How Long have You Played Runescape
about 5 years (stopped for 1 year)

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

I have now been scripting (for myself) for a couple of months,
and posted my very first script in the forums somewhere.
Of course, i had absoloutly no idea back then, but now i am
capable of many scripts. I am not as good as Hypersecret, Tarajunky, or Fakwai, but i hope i am good enough to be a member and part of the scripting and macroing communitiy :)

Thanks,

Willoworker :)

(even though my only willoworker is a failure lol)

There is also a wizard tower demon hallyer i have posted below.

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

:cartman: :eek: :eek: :D

//Willoworker's Demonworker
Const
FightStyle=3;          //1 controlled, 2 slash, 3 defence (default defence)
DemonColor=924026;     //Demon Color on Main Screen
Tol=10;                //Tolerance for demon color
Ladder=2873;           //Ladder Color
DoorColor=3095624;     //Color of door in demon rooom

Procedure ReportIn(Doing: String);
Begin
     ClearReport;
     Begin
     AddToReport('{++++++Demon Fighter++++++}');
     AddToReport('Currently: '+ Doing);
     AddToReport('Faught: '+inttostr(faught)+' Time[s]');
     If(Ran>0)Then
     Begin
     AddToReport('Ran: '+inttostr(Ran)+' Time[s]');
     End Else
     AddToReport('Ran: Nil Runs');
     AddToReport('{+++++++++By Chop+++++++++}');
     End;
End;

Procedure ModeFight;
Begin
GameTab(1);
    Begin
    Case FightStyle of
    1: Mouse(599,284,5,5,true);
    2: Mouse(599,325,5,5,true);
    3: Mouse(599,362,5,5,true);
    End;
    Wait(500+random(500));
    End;
End;

Function OpenDoor:boolean;  //by stupid3ooo
Begin
ClickMSColor(DoorColor,false);
If(ChooseOption('Open'))then
  Begin
  result:=true;
  Flag;
  End;
End;

Procedure RunAway;         //by stupid3ooo
Begin
OpenDoor;
Begin
ReportIn('Running Away!');
ClickMMColor(Ladder);
Flag;
FindObjRay('Climb',-5,0);
Mouse(x,y,r,r,true);
wait(8000+random(2000));
FindObjRay('Climb',-5,0);
Mouse(x,y,r,r,false);
ChooseOption('up');
Repeat
wait(500);
Until(FindMMColor(13199698))
If(OpenDoor)Then
  Begin
  Mouse(660,89,r,r,true);
  Flag;
  End
Else
  Begin
  Mouse(671,86,r,r,true);
  Flag;
  End;
End;
End;

Function FindColorObject(ObjectText: String; Color, Ax, Ay, Bx, By, Tol, SearchTimes: Integer): Boolean;
Var
A, B, C, X, Y: Integer;
Begin
A:= 15;
B:= 5;
LoadChars('');
        Begin
        Repeat
        A:= A+15;
        B:= B+5;
        C:= C+1;
        X:= 100+Random(A);
        Y:= 100+Random(B);
            If(FindColorSpiralTolerance(x,y,Color,Ax,Ay,Bx,By,Tol))Then
            MoveMouseSmooth(x,y);
            Wait(100+Random(500));
            If(A>415)Then A:= 15;
            If(B>237)Then B:= 5;
        Until(IsTextAt2(9,9,ObjectText,100)or(C>SearchTimes));
        If(IsTextAt2(9,9,ObjectText,100))Then
        Begin
        Result:= True;
        End Else
        Result:= False;
        End;
End;

Procedure CheckPlant;
var x,y,z:integer;
Begin
If(FindColorSpiralTolerance(x,y,617298,190,125,336,210,20))Then
   Begin
   MoveMouseSmooth(648,188);
   Wait(1000);
   ClickMouse(648,188,true);
   If(FindColorObject('Pick',617298,190,125,336,210,20,50))Then
   Begin
   GetMousePos(x,y);
   Wait(10);
   Z:=0;
   Repeat
   Z:=Z+1;
   ClickMouse(x,y,true);
   Wait(1000+random(1000));
   Until(FindColorSpiralTolerance(x,y,12479894,560,210,736,461,10)or(Z>20));
   End;
   End;
End;


Procedure CheckHealth;
Begin
GAttacked:= False;
   Begin
   If(FindColor(x,y,65280,215,130,300,165)or(FindColor(x,y,255,215,130,300,165)))Then
      Begin
      GAttacked:= True;
      RunAway;
      End;
   End;
End;


Procedure Randoms;
Begin
FindNormalRandoms;
FindBox;
CheckHealth;
CheckPlant;
If(GAttacked)Then
   Begin
   RunAway;
   Ran:=Ran+1;
   End;
End;

Procedure AttackIt;
Begin
Attacking:= False;
     Begin
     ReportIn('Waiting For Demon.');
     If(FindColorSpiralTolerance(dx,dy,DemonColor,1,117,515,337,Tol))Then
        Begin
        Wait(10);
        Mouse(dx,dy,5,5,False);
        Wait(50+random(100));
        If(FindBitmap(AttackW,x,y)or(FindBitmap(AttackY,x,y)))Then
           Begin
           Mouse(x+10,y,0,0,True);
           Attacking:= True;
           ReportIn('Attacking Demon');
           Flag;
           Faught:=Faught+1;
           Wait(1000+random(500));
           End Else
           Begin
           MMouse(558,185,10,10);
           End;
           While (Attacking= True) And (FindColor(x,y,65280,2,160,515,337)or(FindColor(x,y,255,2,160,515,337))) Do
               Begin
               MoveIt:= Random(5);
               Wait(1000+Random(500));
               Randoms;
               ReportIn('Fighting Demon.');
               If(MoveIt=0)Then MMouse(200,130,100,100);
               End;
        End;
     End;
End;

Procedure Script;
Begin
AttackIt;
If(Attacking=false)and(not(FindColor(x,y,65280,2,160,515,337)or(FindColor(x,y,255,2,160,515,337))))Then
Repeat
Wait(1000+random(1000));
Randoms;
Until(FindColorSpiralTolerance(dx,dy,DemonColor,1,117,515,337,Tol));
End;


Procedure LoadBmps;
Begin
AttackW := BitmapFromString(27, 4, 'z78DA33753135313177C30' +
       '14CC1B2A644AB2155A52959B61B6000CAD590672F7E93F1FB1497' +
       '1AFC6182A9973C33297121316148AA0B0128FD9898');
AttackY := BitmapFromString(29, 6, 'z78DA3375313531317703' +
       '020303080901A6607164921835B42321F662BA0499C4E55A5C6A4' +
       '85549AAEDB8C20D1950AE869810C00588712D252901575861EA25' +
       'D54CEABA9698B01DCCAE254F1C97C9009CE9E87F');
End;

Procedure DoItAll;
Begin
ActivateClient;
SetupSSi;
LoadBmps;
ChangeReportWidth(280);
ReportIn('Starting The Script!');
ChatsOff;
SetRun(True);
ModeFight;
Faught:=0;
Ran:=0;
End;

Begin
DoItAll;
Repeat
Script;
Until(false);
end.

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

Thank you everyone!:eek: :D

SetupSSi;

Uhm, busted ftw?

SSi doesn't even exist anymore! Its DEAD! BITCH GOT BUSTED!!!!! :)

I hope im a member!

You aren't gonna be a member because you copied another person's script..

:sasmokin: oh it is? what could i use?:cartman: :( :mad: :duh: :confused:

no i didn't

Make your own script? The app cleary says use your own work.

AddToReport('{+++++++++By Chop+++++++++}');

noob.

Report posted. I swear, nobody will get away with copying.

Proof:

Willowworker - SRL Member Application Form

AddToReport('{++++++Demon Fighter++++++}');
AddToReport('Currently: '+ Doing);
AddToReport('Faught: '+inttostr(faught)+' Time');
If(Ran>0)Then
Begin
AddToReport('Ran: '+inttostr(Ran)+' Time');
End Else
AddToReport('Ran: Nil Runs');
AddToReport('{+++++++++By Chop+++++++++}');

You're going down…

-Knives

Man I love idiots :)

http://www.scar-scripts.com/view/216