SRL Archive - Archive

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

What is the meaning to life?
42

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


Programming Knowledge
no

Other Communitys
not in months

How Long have You Played Runescape
2 years

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

A whloe paragraph?I dont know that much about myself. no really
im 18, work in a shop as a mechanic(just passed my a.s.e. certification tests) Ive been building computers(hardware not software) for a few years now. I'm just getting into scripting and programming, i find it's a nice way to relax.(i used to play RS to relax, now it's more fun to cheat than to play the game)
although im still learning to script,I learn more everyday. hobbies and interests
are racing(on track not in street)computers and bikes, that about says it all.

PS: manage attachments wont allow me to attach a file, it says i don't have permission.

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

{.Script Info:
# ScriptName  = ArdyNatStealerver
# Author      = Geerhedd
# Description = Steals Nature Runes from upstairs Ardougne chest
# Version     = 4.2
# Date        =
# Comments    =
/Script Info}
program ArdyNatStealer;
//---------    This Script is an old one i found at a script dump, i dont--------//
//---------know who origanaly wrote it, or where it came from, it simply------//
//---------opened the Nature chest in ardougne,the only thing remaining -----//
//---------from the original script is the bitmap from image.nothing else-------//
//---------i have added PlayerLogin, AntiBan, AntiRandom,ect. all these-------//
//---------came from Fakawis goblin scheduler ------------------------------//
//--------(some slightly modded by me.)others came from different scripts,----//
//--------most of this stuff is pretty widely used,I simply found the coding,----//
//---------put it together and made it compile, if anyone has problems with me//
//---------using their coding,and or procedures, i apologize, contact me and---//
//---------I will be happy to give credit,(or pull script, whichever) but it-------//
//---------does work well and i would to share it with the scar community.----//
//--------------------------------------------------------------------------//
//----------------------------------------------thank you Sincerely----------//
//-------------------------------------------------------GEERHEDD----------//
//----------------------------------------------------------------------------//
//antirandoms work better, added escape from fight,steals faster,and a few----//
//more changes(now deals with poison gas better)------------------------------//
//next version will have prog report and hopefully more-----------------------//
//****************************************************************************//
//****************************************************************************//
//-------------MUST BE AT NATURE CHEST UPSTAIRS IN ARDOUGNE-------------------//
//--------------------Player Setup limes 71-77--------------------------------//
{.include SRL/SRL.scar}
const
chestcolor = 4018280;
StartPlayer = 0;
escapecolor=4276288;  // color of stairs
escapecolor2= 4276304; //color of downstairs
VersionNumber  = 'ArdyNatStealerver4.2';
var
traps: integer;
Theivin: integer;
ProgSwitch:integer;
SST1, SST2,  FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
Function ProgTog:Boolean; Forward;
procedure loadbmps;
begin
traps := BitmapFromString(31, 8, 'z78DA33304000371CC0000310' +
       'AF92BAEA89770F7E35F414C70F88D7457C9890E7424AE2885435B' +
       '40E5BF252C2F0703925A98592BC4F6ACAA71C0C94BD83D9E50010' +
       'C54578');
end;
 //----------------------------------------------------------------------------//
procedure ProgressReport;

       //This is not mine, but i see it in a lot of scripts,..so
 begin           //   i used it(slightly modded
  WriteLn(' ');
  WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
  writeln('Worked for '+ TimeRunning);
  writeln('opened'   + IntToStr(Theivin)+ ' chests');
  SRLRandomsReport;
  ProgSwitch:=ProgSwitch-12;
  Writeln('');
   Wait(10000+random(500));
 end;

//----------------------------------------------------------------------------//

Procedure DeclarePlayers;
begin
     HowManyPlayers:=1;
     NumberOfPlayers(HowManyPlayers);
     Players[0].Name     :='';
     Players[0].Pass     :='';
     Players[0].Nick     :='';
     Players[0].Active   := True;
     NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;

//----------------------------------------------------------------------------//

Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Off', 2);
  SetChat('Off', 2);
  SetChat('Off', 3);
  SetChat('Off', 3);
End;
//----------------------------------------------------------------------------//

Procedure MyAntiBan;  //ANTIBAN----  WT FAKAWI
 var
 DBanMe : Integer;
  begin
   if ( not ( LoggedIn )) then Exit;
   DBanMe:= Random(50);
    case DBanMe of

     1:  hoverskill('random', false);
     2:  RandomChatEvery(10 + Random(5));
     3:  RotateEvery(20 + Random(10));
     4:  LeaveScreenEvery(5 + Random(5));
     5:  HoverEvery(15 + Random(5),'Theiving');
     6:  PickUpMouse;
     7:  BoredEvery(9 + Random(24));
     8: if ExistsItem ( 1 ) then
           DragItem(1, 1+Random(18));
     11: GameTab(1 + Random(12));
     12: DoEmote(1 + Random(20));

   end;
end;
//----------------------------------------------------------------------------//
Function ProgTog:Boolean;

begin
   result:=false;
   If ProgSwitch > 15 then  result:=true
end;
//----------------------------------------------------------------------------//
Function Hitpoints:Boolean;

begin
   result:=false;
   if HPPercent < 50 then   result:=true
end;
//----------------------------------------------------------------------------//
procedure GetOut;

 begin
     FindColorTolerance(x, y, Escapecolor, 285, 113, 326, 119, 3);
     mouse(x,y,5,5,True);
     Wait(35000 + Random(500));
     If (HitPoints=true) then
   begin
     SetChat('Off', 1);
     Logout;
     writeln('Hitpoints low, logging out')
     exit;
   end;
     MakeCompass('N');
     FindColorTolerance(x, y, Escapecolor2, 214, 97, 257, 150,3);
     mouse(x,y,5,5,True);
     Wait(2000 + Random(50));
     MakeCompass('E');
 end;


//----------------------------------------------------------------------------//

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 8 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then   //antirandoms ----- WT FAKAWI
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             if(not(LoggedIn))then
             Exit;
           end;
         end;

     8: begin
           if FindFight then
           begin
             GetOut;
           end;
         end;
    end;
    wait(1);
   end;
end;

//----------------------------------------------------------------------------//
//---> Waits while Checking for Randoms;
//----------------------------------------------------------------------------//

Procedure FTWaitAll(Time:Integer);
var T: integer;
  begin
    For T := 1 to Time do
    begin
      if not LoggedIn then exit;  //FTWAIT -----WT FAKAWI
      Wait(200 + Random(50));
      FindTalk;
      RC;
    end;

    FindTalk;
    MarkTime(FindNorMalRandomsTime);
    if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
      begin
        FindNorMalRandoms;
        MarkTime(SST1);
      end;

    MarkTime(FindFastRandomsTime);
    if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
      begin
        FindFastRandoms;
        MarkTime(SST2);
      end;
end;
//----------------------------------------------------------------------------//
procedure theiving;
begin
    Findfight; if (FindFight = true) then
   begin
      GetOut;
   end;
   FTWaitall(1)
    Wait(4050+random(500));
    SleepAndMoveMouse(4000 + random(500));
    findcolorspiral(x,y,chestcolor,5,5,515,336);
    findtalk;
    Wait(3967+random(500));
    mouse(x,y,5,5,false);
    findtalk;
    findbitmap(traps,x,y);
    Wait(157 + Random(50));
    mouse(x,y,5,5,true);
    FTwaitall(1)
    Wait(3000+random(500));
    findtalk;
      Wait(3000+random(500));
    Theivin:=Theivin+1;
    ProgSwitch:=ProgSwitch+1;
    If (Progtog=true) then
   begin
     ProgressReport;
     Progswitch:=ProgSwitch-15;
   end;
    if(not(LoggedIn))then
    Exit;

end;


//----------------------------------------------------------------------------//

begin
  setupsrl;
  BenMouse:= True;
  loadbmps;
  ClearReport;
  MarkTime(SST1); // global timers for FTWaitAll;
  MarkTime(SST2);
  DeclarePlayers;
  LoginPlayer;
  MakeCompass('E');
  HighestAngle;
  //SendArrowWait(2, 600);  // 0 = up, 1 = right, 2 = down, 3 = left. (just to remind myself).
  DoChats;
  Wait(600 + Random(50));
  SetRun(True);
  repeat
  Theiving;
  MyAntiBan;


  until(false)
end.

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

No, adding stuff from fakawi's script to a script you found in a dump isnt gonna get a yes from anybody

Edit: Scar tags?

traps := BitmapFromString(31, 8, 'z78DA33304000371CC0000310' +
'AF92BAEA89770F7E35F414C70F88D7457C9890E7424AE2885 435B' +
'40E5BF252C2F0703925A98592BC4F6ACAA71C0C94BD83D9E5 0010' +
'C54578');
end; "the only thing remaining from the original script"

Yes, but everything else is still taken from other peoples script and slightly edited by you. I still vote no. And you still haven't put the script in scar tags.

Sorry, I voted no. First off you're kinda new :/ Second, the scar tags :/ And thirdly you got 1 script, which for me isn't enough sorry :(


-Ashur

Meh, first use scar tags =)
The script is very basic and can use improvemnts
Also you should learn scripting standards (indents)
Read this:
http://www.villavu.com/forum/showthread.php?t=5195?t=6042&highlight=scripting+standards

You still have a lot of advanced things to learn.
Try making a more complex script that can run for lets say.. 30 mins with better code and failsafes.

You could try using the
IsUpText
function to make sure that you are clicking the chest every time.

Something like:

Procedure Theif;
Begin
  If findcolorspiral(x,y,chestcolor,5,5,515,336) Then
  Begin
    MMouse(x,y,4,4)
    If IsUpText('Chest') Then
    Mouse(x,y,0,0,True)
  End Else
    Writeln('Chest Not Found');
End;

We are happy that you actually applied with a good app but I think that you need some more learning before you become SRL member.

First off thank you all, the script was indented but when i copied and pasted it into box it no longer is, it allowed me to attach a file this time, so anyways here is what it looks like before copy and paste.

You still havent put scar tags…..