SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
vb6, html, php, little c++ and asm

Other Communitys
syher.org

How Long have You Played Runescape
like 5 years

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

dear staff

I'm bram, 17 years of age and I'm from holland
Since a couple years I was intresting myself into scar
In the beginning you couldn't to so much with scar bud since there is SRL you can make beautifull scripts

First I studied scar and SRL for half a year and now I start with making my own scripts.

I've got a couple years of vb6 experience and building webpages.

Since a couple months I started learning C++. It's the most common langue that's used in the programming world.

I also tried to do a little asm, bud It's very hard to studt. I start a education ICT-administrator this year. I hope to learn some more things there.

Well I hope this is enough about myself
I love to join the SRL member community

P.S. I think my english is not perfect bud I think you can understand what I wrote
I'm going on vacation tommorow (2-7-2007) and I'll be back in 3 weeks, so please be not angry If I not response.


many greets

bram

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

this is one of the fist scripts i wrote
I origionally wrote it with scar 2.03 and srl 3.06, bud I edited it for scar divi and srl 3.06 (not tested yet)
I hope u like it :)

{
                         By DoomRider

       ******      ******      ******      ******      ******
       ******      ******      ******      ******      ******
       ******      ******      ******      ******      ******
       ******************************************************
      ********************************************************
     **********************************************************
    ************************************************************
   *************  DoomRider's Bows Stringer v1.02 ***************
  ************************you must do thes************************
 *************************its not for sell*************************
 ********* 1- set-up on line 33-37.                       **********
 ********* 2- amout to do on line 20                      **********
 ********* 3- but the screen resolutin to 1024,768.       **********
 ********* 4- bows (u) somewhere in upperscreen of  bank  **********
 ********* 5- bs somewhere in upperscreen of the bank     **********
 *******************************************************************
 *******************************************************************
 *******************************************************************
 *************** Script runs great in draynour bank ****************
 *******************************************************************
 *******************************************************************

News:
+---------------------------------------------------------------------------+
| v 1.02                                                                    |
|---------------------------------------------------------------------------|
| I've improved the antiban and the random detection methods                |
| It's alot bether now.                                                     |
|                                                                           |
| I also build in a chatback system.                                        |
| IT'S NOT DESIGNED BY ME                                                   |
| all the credits for this goes toe Pentti, he designed the Auto-Responder. |
| It works really great and i love it :P                                    |
|                                                                           |
| The Antiband has been designed by Yakman and edited by me                 |
| All credits go to him for this and I also tnx him!                        |
|                                                                           |                                                        |
|                                                                           |
|                                                                           |
+---------------------------------------------------------------------------+

Features:
 - Fix bugs
 - some things more!


How to use:
- Fill in the setup on line 89 to 98
- Select the Rs window with the tool picker
- Run the script and have fun!



If u have any suggestions or comment please contact me at:
ElectricDoomRider(at)gmail(dot)com
U can add me on msn or email me

  }
program DoomRidersBowStringer;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xAntiBan.scar}
////////////////////////////////////////////

const
  RunAwayDir = 'N';
  BowsToString = 2000;
  Player0 = 0;

var
  UseAntiBan, DebugMode: Boolean;
  AntiBanAmount: integer;
  BowTypeUsing : string;
  BowTypeStringing : string;
  CurrentLoc : string;
  TempExp: Extended;
  TheChatText : string;
  Answers,Responds : Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

            //***player setup***

  Players[0].Name := 'XXXX'; // your user name
  Players[0].Pass := 'XXXX'; //your password
  Players[0].Nick := 'XXX'; // your nick name
  Players[0].String1 := '0912'; //pin
  Players[0].Active := True;
  UseAntiBan := True; // U wanted to use the antiban? (under construction, so its not in use yet)
  AntiBanAmount := 2; // Anti-ban rate (highest is 1, lowest is 5)
  DebugMode := False; //debug mode on or off (true - false)
  BowTypeUsing := 'Yew'; // Normal, Oak, Willow, Mapple, Yew or Magic
  BowTypeStringing := 'Long' //Short or Long
end;


//Please dont edit below this line!!!!!!



var
  bowallreadystringed, bowdtm, frotdtm, fullbowdtm: integer;


procedure LoadDtms;
begin
  bowdtm := DTMFromString('78DA63946260601063400109219C0C46409A1' +
    '188FF0301A31C90218BAAA6AF5608AE0604188581042FAA9ACC18' +
    '4E881C140300F28D079B');

  frotdtm := DTMFromString('78DA63AC676460E0056224D05C11C92009A44' +
    '1A2FF8180B100C8E246555398EE0B5703028C8D4096086E73C06A' +
    'AA812C31FC6A00F4CF0BBF');
  fullbowdtm := DTMFromString('78DA63146260601060400133DB84182481342' +
    '310FF0702466E208313554D660C275C0D08304A01093954357DB5' +
    '42A86AD8810417AA9A9AE26254357C404208B71A66102D0A24A4F' +
    '0AB01003EAA0CB5');
end;

procedure RunAway;
begin
  RunAwayDirection(RunAwayDir);
  Wait(12000 + random(2000));
  RunBack;
end;




function SearchText: string;
begin
  if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallchars,False,True,0,0,0))then
  begin
    TheChatText:=Trim(GetTextAtEx(x+8,415,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars));
    Result:=TheChatText;
  end;
end;


function ChatBoxRespond(TheText,FromText,SayText: string): Boolean;
var
  GetName: string;
begin
  if(FromText='')or(SayText='')Or(Trim(Players[CurrentPlayer].Name)='')then
    Exit;
  if(TheText='')then
    SearchText;
  if(pos(lowerCase(FromText),LowerCase(Trim(TheText)))<>0)then
  begin
    GetName:=GetTextAtEx(20,415,45,SmallChars,False,False,0,2,0,40,True,tr_NormalChars);
    if(pos(LowerCase(Players[Currentplayer].Name),LowerCase(GetName))<>0)then
      Exit;
    Wait(500+random(500));
    TypeSend(SayText);
    Writeln('| - - - - RESPOND - - - - -');
    Writeln('|'+Trim(GetName)+' '+FromText);
    Writeln('|'+Players[CurrentPlayer].Name+': '+SayText);
    Writeln('| - - - - - - - - - - - - -');
    Result:=True;
    Responds:=Responds+1;
    Wait(500+random(1000));
  end;
end;

procedure AutoRespond;
begin
  if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallchars,False,True,0,0,0))then
    TheChatText:=Trim(GetTextAtEx(x+8,415,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars));
  ChatBoxRespond(TheChatText,'wazzup','nothing much');
  ChatBoxRespond(TheChatText,'noob','you are a noob!');
  ChatBoxRespond(TheChatText,'stupid','you are stupid');
  ChatBoxRespond(TheChatText,'idiot','you are an idiot');
  ChatBoxRespond(TheChatText,'where','Somewhere, but not here.');
  ChatBoxRespond(TheChatText,'anybody','Me!');
  ChatBoxRespond(TheChatText,'have','I think i dont have');
  ChatBoxRespond(TheChatText,'funny','Lol, Im funny!');
  ChatBoxRespond(TheChatText,'stole','who stole and what?');
  ChatBoxRespond(TheChatText,'maybe','yea, maybe...');
  ChatBoxRespond(TheChatText,'better','Not sure whats better');
  ChatBoxRespond(TheChatText,'lvl','Look my level on higscores....');
  ChatBoxRespond(TheChatText,'nice','very niice...');
  ChatBoxRespond(TheChatText,'cool','haha, thats really cool!');
  ChatBoxRespond(TheChatText,'offer','im not offering anything');
  ChatBoxRespond(TheChatText,'bot','argh, i hate bots.');
  ChatBoxRespond(TheChatText,'auto','I hate autoers');
  ChatBoxRespond(TheChatText,'macro','I hate macroers.');
  ChatBoxRespond(TheChatText,'need','i dont need...');
  ChatBoxRespond(TheChatText,'huh','dont you get it? "huh" lol.');
  ChatBoxRespond(TheChatText,'want','i dont want....');
  ChatBoxRespond(TheChatText,'free','Can i have anything for free?');
  ChatBoxRespond(TheChatText,'someone','No one I think....');
  ChatBoxRespond(TheChatText,'bank','You going to the bank?');
  ChatBoxRespond(TheChatText,'full','Im full soon too.');
  ChatBoxRespond(TheChatText,'almost','almost here too.');
  ChatBoxRespond(TheChatText,'hack','hackers are stupid!');
  ChatBoxRespond(TheChatText,'talk','Talk what?');
  ChatBoxRespond(TheChatText,'thank','no problem');
  ChatBoxRespond(TheChatText,'welcome','thanks!');
  ChatBoxRespond(TheChatText,'trade','trade what?');
  ChatBoxRespond(TheChatText,'again','not again, lol.');
  ChatBoxRespond(TheChatText,'level','look my levels on highscores');
  ChatBoxRespond(TheChatText,'accept','accept what?');
  ChatBoxRespond(TheChatText,'brb','alright, see you soon.');
  ChatBoxRespond(TheChatText,'wtf','that the f***');
  ChatBoxRespond(TheChatText,'sorry','no problems.');
  ChatBoxRespond(TheChatText,'nope','why not?');
  ChatBoxRespond(TheChatText,'other','other what?');
  ChatBoxRespond(TheChatText,'from','Im from finland, you?');
  ChatBoxRespond(TheChatText,'like','I like too.');
  ChatBoxRespond(TheChatText,'money','I need money!');
  ChatBoxRespond(TheChatText,'follow','where?');
  ChatBoxRespond(TheChatText,'Hi','Hello');
  ChatBoxRespond(TheChatText,'hello','hi');
  ChatBoxRespond(TheChatText,'hey','hi');
  ChatBoxRespond(TheChatText,'win','who wins in what?');
  ChatBoxRespond(TheChatText,'np','thanks');
  ChatBoxRespond(TheChatText,'sell','How many can you sell?');
  ChatBoxRespond(TheChatText,'buy','Sorry, I cant sell them.');
  ChatBoxRespond(TheChatText,'what','I dont know...');
  ChatBoxRespond(TheChatText,'why','You know why....');
  ChatBoxRespond(TheChatText,'yo','wazzuuup?');
  ChatBoxRespond(TheChatText,'sup','just normal');
  ChatBoxRespond(TheChatText,'coin','I need coins, plz.');
  ChatBoxRespond(TheChatText,'lol','Hahaa!');
  ChatBoxRespond(TheChatText,'haha','hehe!');
  ChatBoxRespond(TheChatText,'lmao','lolz!');
  ChatBoxRespond(TheChatText,'many','too many...');
  ChatBoxRespond(TheChatText,'much','not much...');
  ChatBoxRespond(TheChatText,'main','This is my main.');
  ChatBoxRespond(TheChatText,'ish','I dont talk that language, lol.');
  ChatBoxRespond(TheChatText,'this','what?');
  ChatBoxRespond(TheChatText,'how','not telling...');
  ChatBoxRespond(TheChatText,'come','come where?');
  ChatBoxRespond(TheChatText,'you','who? me?');
  ChatBoxRespond(TheChatText,'ok','ye, ok.');
  ChatBoxRespond(TheChatText,'yes','yes, yes...');
  ChatBoxRespond(TheChatText,'can','I cant right now...');
  ChatBoxRespond(TheChatText,'no','yes, no, yes, no');
  ChatBoxRespond(TheChatText,'bar','i have many bars.');
  ChatBoxRespond(TheChatText,'smelt','I smelt my ores, lol.');
  ChatBoxRespond(TheChatText,'doric','yes');
  ChatBoxRespond(TheChatText,'knight','yes');
  ChatBoxRespond(TheChatText,'fish','I like fishes, lol.');
  ChatBoxRespond(TheChatText,'lob','I like lobsters');
  ChatBoxRespond(TheChatText,'cage','I have 3 lobster cages');
  ChatBoxRespond(TheChatText,'net','I have one net in the bank');
  ChatBoxRespond(TheChatText,'rod','I have so many fishing rods');
  ChatBoxRespond(TheChatText,'bait','I need more baits');
  ChatBoxRespond(TheChatText,'feather','need to get more feathers');
  ChatBoxRespond(TheChatText,'salmon','I like salmon');
  ChatBoxRespond(TheChatText,'herring','I like herring');
  ChatBoxRespond(TheChatText,'river','i hate river troll! lol.');
  ChatBoxRespond(TheChatText,'troll','i hate river troll! lol!');
  ChatBoxRespond(TheChatText,'fire','I dont need fire right now.');
  ChatBoxRespond(TheChatText,'food','I like food!');
  ChatBoxRespond(TheChatText,'cook','I love cooking.');
  ChatBoxRespond(TheChatText,'lobster','i wish I could cook lobsters.');
  ChatBoxRespond(TheChatText,'tuna','i like tuna!');
  ChatBoxRespond(TheChatText,'meat','Umm.... i like meat.');
  ChatBoxRespond(TheChatText,'burn','I dont burn my foods');
  ChatBoxRespond(TheChatText,'pizza','Im going to make pizzas soon.');
  ChatBoxRespond(TheChatText,'kill','dont kill mee!!!');
  ChatBoxRespond(TheChatText,'die','Im not going to die');
  ChatBoxRespond(TheChatText,'monster','i can beat all the monsters');
  ChatBoxRespond(TheChatText,'fight','i only fight against the monsters');
  ChatBoxRespond(TheChatText,'goblin','i like to kill goblins');
  ChatBoxRespond(TheChatText,'spider','ill murder every spider i see!!!');
  ChatBoxRespond(TheChatText,'cow','im a cow slaughter!');
  ChatBoxRespond(TheChatText,'chicken','i like to kill chickens and cook them!');
  ChatBoxRespond(TheChatText,'shield','My shield protects me!');
  ChatBoxRespond(TheChatText,'sword','I must get a better sword');
  ChatBoxRespond(TheChatText,'armour','You like my armour?');
  ChatBoxRespond(TheChatText,'boot','Like my boots?');
  ChatBoxRespond(TheChatText,'leg','I like my platelegs');
  ChatBoxRespond(TheChatText,'helm','i need a better helm...');
  ChatBoxRespond(TheChatText,'hit','i can hit better than you.');
  ChatBoxRespond(TheChatText,'hp','I still have almost full hp.');
  ChatBoxRespond(TheChatText,'axe','what axe is the best?');
  ChatBoxRespond(TheChatText,'willow','i like willows!');
  ChatBoxRespond(TheChatText,'yew','...yes are very expensive');
  ChatBoxRespond(TheChatText,'tree','Im going to cut all trees down!');
  ChatBoxRespond(TheChatText,'oak','I dont like oaks');
  ChatBoxRespond(TheChatText,'maple','I which I could chop maple trees');
  ChatBoxRespond(TheChatText,'ent','I hate ents!!!');
  ChatBoxRespond(TheChatText,'addy','is addy axe good?');
  ChatBoxRespond(TheChatText,'rune','is rune axe good?');
  ChatBoxRespond(TheChatText,'bronz','is bronze axe good?');
  ChatBoxRespond(TheChatText,'iron','is iron axe good?');
  ChatBoxRespond(TheChatText,'steel','is steel axe good?');
  ChatBoxRespond(TheChatText,'mithril','is mithril axe good?');
  ChatBoxRespond(TheChatText,'adaman','is addy axe good?');
  ChatBoxRespond(TheChatText,'runit','is rune axe good?');
  ChatBoxRespond(TheChatText,'pick','what pick is the best?');
  ChatBoxRespond(TheChatText,'pickaxe','what pick is the best?');
  ChatBoxRespond(TheChatText,'addy','is addy good?');
  ChatBoxRespond(TheChatText,'rune','is rune good?');
  ChatBoxRespond(TheChatText,'bronz','is bronze good?');
  ChatBoxRespond(TheChatText,'iron','is iron good?');
  ChatBoxRespond(TheChatText,'steel','is steel good?');
  ChatBoxRespond(TheChatText,'mithril','is mithril good?');
  ChatBoxRespond(TheChatText,'adaman','is addy good?');
  ChatBoxRespond(TheChatText,'runit','is rune good?');
  ChatBoxRespond(TheChatText,'copper','i need copper ores');
  ChatBoxRespond(TheChatText,'tin','i need tin ores');
  ChatBoxRespond(TheChatText,'silver','i need silver ores');
  ChatBoxRespond(TheChatText,'clay','i need clay ores');
  ChatBoxRespond(TheChatText,'gold','i need gold ores');
  ChatBoxRespond(TheChatText,'coal','i need coal ores');
  ChatBoxRespond(TheChatText,'ores','i like all kind of ores');
  ChatBoxRespond(TheChatText,'gas','what is gas?');
  ChatBoxRespond(TheChatText,'smoke','can there be smoke in the rock, lol?');
  ChatBoxRespond(TheChatText,'handle','you need pick head to attach the handle to pick');
  ChatBoxRespond(TheChatText,'head','I have my pick head on my pick.');
  ChatBoxRespond(TheChatText,'golem','I hate rock golems!');
end;





Function CalculateXpFromBow: Extended;
begin
      Case Lowercase(BowTypeStringing) of
       'short'  : begin
                      Case Lowercase(BowTypeUsing) of
                      'normal'  : Result := 5;
                      'oak'     : Result := 16.5;
                      'willow'  : Result := 33.3;
                      'mapple'  : Result := 50;
                      'yew'     : Result := 66.5;
                      'magic'   : Result := 83.3;
                      else
                      end;
                  end;



       'long'  : begin

                      Case Lowercase(BowTypeUsing) of
                      'normal'  : Result := 10;
                      'oak'     : Result := 25;
                      'willow'  : Result := 41.5;
                      'mapple'  : Result := 58.3;
                      'yew'     : Result := 75;
                      'magic'   : Result := 91.5;
                      else
                      end;
                 end;
           else
      end;
end;




procedure Report;
begin
     TempExp :=  (CalculateXpFromBow);
  //WriteLn('xp per bow: ' + +FloatToStr(TempExp) + '');
  ClearDebug;
  SRLRandomsReport;
  WriteLn('/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\  ');
    WriteLn('\/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/  ');
    WriteLn('   DoomRiders Bow Stringer     ');
    WriteLn('                                            ');
    WriteLn('  Running Time: ' + (TimeRunning) + '');
    WriteLn('  bow stringed: ' + IntToStr(bowallreadystringed) + '');
    WriteLn('  XP Gained: ' + FloatToStr(bowallreadystringed * CalculateXpFromBow) + '');
    WriteLn('/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\  ');
    WriteLn('\/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/  ');
end;


procedure StopWholeScript;
begin
  Report;
  if (DebugMode = True) then WriteLn('Script stopped, propably because u logged out!');
  Logout;
  TerminateScript;
  Exit;
end;


procedure MouseAntiBan;
begin
  if not (LoggedIn) then StopWholeScript;
  case Random(8) of
    0: IdleTime(1000 + Random(350), 500, 1.0);
    1: IdleTime(1000 + Random(350), 1000, 1.0);
    2: IdleTime(1000 + Random(350), 750, 0.5);
    3: SleepAndMoveMouse(2500 + Random(2500));
    4: SleepAndMoveMouse(1500 + Random(1500));
    5: SleepAndMoveMouse(500 + Random(500));
    6: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    7: MMouse(Random(MSX2), Random(MSY2), 0, 0);
  end
end;

//------------------------------------------------------------------------\\
{                  MyAntiBan - Anti-Ban procedure by Yakman.              ||
\\------------------------------------------------------------------------//}

procedure MyAntiBan; //From Yakman
var
  DItem, DBanMe, AntiBanRatio: Integer;
begin
  if not (LoggedIn) then StopWholeScript;

  AntiBanRatio := 21 + (10 * AntiBanAmount);
  DBanMe := Random(AntiBanRatio);
  case DBanMe of
    0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    1: RandomRClickEvery(2 + Random(13));
    2: HoverSkill('mining', False);
    3: HoverSkill('smithing', False);
    4: RotateEvery(20 + random(10));
    5: LeaveScreenEvery(5 + random(5));
    6: HoverEvery(15 + random(5), 'random');
    7: HoverEvery(15 + random(5), players[currentplayer].skill);
    8: MouseAntiBan;
    9: begin
        DItem := 1 + random(14);
        if (ExistsItem(DItem)) then
          DragItem(DItem, 15 + random(10));
      end
      10: begin
        GameTab(1 + random(12));
        wait(1500 + random(500));
        GameTab(4);
      end;
    11: MMouse(400,10,399,9);
    12: GameTab(3 + Random(2));
    13: RandomRClick;
    14: AlmostLogout;
    15: PickUpMouse;
    16: BoredHuman;
    17: MouseAntiBan;
    18: MouseAntiBan;
    19: MouseAntiBan;
    20: MouseAntiBan;
  end;
end;



function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 12 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
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            CurrentLoc := 'No Gametab';
            Logout;
            Exit;
          end;
        end;
      8: begin
          if InBlack then
          begin
            Result := True;
            CurrentLoc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if (DetectFrogCave) then SolveFrogSwamp;
        end;
      10: begin
          if (FindFight) then
          begin
            RunAwayDirection('W');
            Wait(10000 + Random(2000));
            RunBack;
          end;
        end;
      11: begin
          FindLamp('Prayer');
        end;
      12: begin
          if findname or findtalk then
          begin
            FindNormalRandoms;
          end
        end;
    end;
    Wait(1);
  end;
end;

procedure Antirandoms2;
begin
  Findname;
  Findnormalrandoms;
  FindTalk;
  DwarfItem;
  AutoRespond; // toegevoegd 23-06
end;

procedure Randoms;
begin
  Antirandoms2; // toegevoegd 23-06
  FindFastRandoms;
  FindTalk;
  wait(10)
    FindNormalRandoms;
  if (FindFight) then
    RunAway;
end;

procedure Bank;
var
  x, y, fs, fs2: Integer;
begin
  if not (LoggedIn) then StopWholeScript;
  repeat
    randoms;
    Flag;
    if (FindObj(x, y, 'booth', 607324, 10)) then
      Mouse(x, y, 4, 4, False)
    else
      if (FindObj3(x, y, 'booth', 7243412, 10)) then
        Mouse(x, y, 4, 4, False)
      else
        if (FindObj3(x, y, 'booth', 6324369, 10)) then
          Mouse(x, y, 4, 4, False);
    Wait(250 + random(20));
    if (ClickOption('quickly', 1)) then
    begin
      Flag;
      repeat
        Wait(100 + random(20));
        fs := fs + 1;
      until (BankScreen) or (PinScreen) or (fs >= 50);
      if (PinScreen) then InPin(Players[CurrentPlayer].String1);
    end;
    fs2 := fs2 + 1;
  until (BankScreen) or (PinScreen) or (fs2 > 5);
  if (pinscreen) then InPin(Players[CurrentPlayer].String1);
end;

{
function ClickBar:Boolean;
var WhereX,WhereY:integer;
begin
if FindBitmapMaskTolerance(BarMask, WhereX, WhereY, MIX1, MIY1 ,MIX2, MIY2, 10, 10) then
  begin
  Mouse(WhereX + 8,WhereY+8, 8, 8, True);
  end;
  FTWait(2);
  If FindColor(WhereX,WhereY, 16777215, MIX1, MIY1, MIX2, MIY2) then Result:=True;
end;
       }

procedure TakeBows1;
var
  Number: integer;
begin

  if (DebugMode = True) then WriteLn('Searching for bow dtm');
  if not (FindDTM(bowdtm, x, y, 22, 49, 495, 324)) then
  begin
    if (DebugMode = True) then WriteLn('bow dtm NOT found');
    Exit;
  end;

  if FindDTM(bowdtm, x, y, 22, 49, 495, 324) then
  begin
    Mouse(x, y, 5, 5, false)
      if (DebugMode = True) then WriteLn('bow dtm found');
    Wait(100 + Random(200))
      ClickOption('X', 1);
    Wait(800 + Random(200))
      Number := 14;
    TypeSend(IntToStr(Number));
    Wait(200 + Random(250));
    TypeSend(Chr(13));
    Wait(200 + Random(250));
  end;
end;

procedure TakeBows2;
begin
  if (DebugMode = True) then WriteLn('Searching for bow dtm');
  wait(500 + random(100));
  if not (FindDTM(bowdtm, x, y, 22, 49, 495, 324)) then Exit;
  if FindDTM(bowdtm, x, y, 22, 49, 495, 324) then
  begin
    Mouse(x, y, 3, 3, false)
      if (DebugMode = True) then WriteLn('bow dtm found');
  end;
  Wait(200 + Random(200))
    ClickOption('All', 1);
  Wait(800 + Random(200))
  Wait(500 + Random(250));
end;



procedure TakeStrings1;
begin
  if (DebugMode = True) then WriteLn('Searching for string dtm');
  wait(500 + random(100));
  if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then Exit;
  if FindDTM(frotdtm, x, y, 22, 49, 495, 324) then
  begin
    Mouse(x, y, 3, 3, false)
      if (DebugMode = True) then WriteLn('string dtm found');
  end;
  Wait(200 + Random(200))
    ClickOption('All', 1);
  Wait(800 + Random(200))
  Wait(500 + Random(250));
end;

procedure TakeStrings2;
var
  Number: integer;
begin
  if (DebugMode = True) then WriteLn('Searching for string dtm');
  wait(500 + random(100));

  if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then
  begin
    if (DebugMode = True) then WriteLn('bow dtm NOT found');
    Exit;
  end;
  if FindDTM(frotdtm, x, y, 22, 49, 495, 324) then
  begin
    Mouse(x, y, 3, 3, false)
      if (DebugMode = True) then WriteLn('string dtm found');
    Wait(100 + Random(200))
      ClickOption('X', 1);
    Wait(800 + Random(200))
      Number := 14;
    TypeSend(IntToStr(Number));
    Wait(200 + Random(250));
    TypeSend(Chr(13));
    Wait(200 + Random(250));
  end;

end;

procedure DoShit1;
begin
  if (DebugMode = True) then WriteLn('DoShit Random 1');
  TakeStrings2;
  TakeBows2;
end;

procedure DoShit2;
begin
  if (DebugMode = True) then WriteLn('DoShit Random 1');
  TakeBows1;
  TakeStrings1;
end;

procedure DoShit3;
begin
  if (DebugMode = True) then WriteLn('DoShit Random 1');
  TakeBows1;
  TakeStrings2;
end;

procedure TakeBowsAndStrings;
var rndnumber: integer;
begin
  FixBank;
  rndnumber := Random(3) + 1;
  if (DebugMode = True) then WriteLn('The random Number was: ' + IntToStr(rndnumber) + '');
  case rndnumber of
    1: DoShit1;
    2: DoShit2;
    3: DoShit3;
  end;
  CloseBank;
  bowallreadystringed := bowallreadystringed + 14;
       //Randoms;
end;

procedure MakeBowsReady;
begin
   //Randoms;
  if (DebugMode = True) then WriteLn('Making the bows Ready')
    wait(100 + random(150));
  UseItem((random(14) + 1));
  wait(300 + random(150));
  UseItem((random(14) + 15));
       //wait(100+random(131));
end;

procedure MakeBowsFull;
var FTM: integer;
begin
  if not (LoggedIn) then StopWholeScript;
  if (DebugMode = True) then WriteLn('Stringing the bows...');
  Randoms;
  MakeBowsReady;
  wait(100 + RANDOM(300));
  MMouse(253, 414, 5, 5);
  wait(100 + RANDOM(100));
  Mouse(253, 414, 5, 5, false);
  wait(200 + random(500));
  ClickOption('All', 3);
  MMouse(random(628), random(334), 4, 4);

  MarkTime(FTM);
  repeat
      //wait(500+random(1000));
      //MMouse(628, 334, 10, 10);
      //wait(500+random(1000));
      //MyAntiBan;  //find dtm van volledige afgebouwde boog op
      //inv spot 14
      //MyAntiBan;
       wait(100+random(200));
     GameTab(4);
      Randoms;
  until (TimeFromMark(FTM) > 12000) or (FindDTM(fullbowdtm, x, y, 609, 318, 647, 356))
end;

procedure DeposititAll;
begin
  if (DebugMode = True) then WriteLn('Deposit whole inventory in bank...');
  if not (LoggedIn) then StopWholeScript;
  wait(100 + random(200));
  DepositAll;
  wait(200 + random(120));
      //CloseBank;
end;

procedure BeginIntro;
begin
  Wait(1000);
  WriteLn('   ')
    WriteLn('   ')
  Wait(500);
  WriteLn('/\*************************\/*************************/\')
    Wait(500);
  WriteLn('\/*************************/\*************************\/')
    Wait(500);
  WriteLn('DoomRiderS Bow Stringer')
    Wait(500);
  WriteLn('!!! Straight from srl !!!')
    Wait(500);
  WriteLn('   ')
    Wait(500);
  WriteLn('U got any comment, suggestions or u found a bug ')
    Wait(500);
  WriteLn('please report it!')
    Wait(500);
  WriteLn('   ')
    Wait(500);
  WriteLn('E-Mail: ElectricDoomRider(at)gmail(dot)com')
    Wait(500);
  WriteLn('   ')
    Wait(500);
  WriteLn('Have Fun')
    Wait(500);
  WriteLn('\/*************************/\*************************\/')
    Wait(500);
  WriteLn('/\*************************\/*************************/\')
    Wait(500);
  WriteLn('   ')
    WriteLn('   ')
    WriteLn('   ')
    Wait(3500);
end;

begin
  setupSRL;
  BeginIntro;
  declareplayers;


  CurrentPlayer := Player0;
  activateclient;
  loginplayer;
  LoadDtms;

  repeat
    if not (LoggedIn) then StopWholeScript;
    if not (Bankscreen) then
    begin
      Bank;
      DeposititAll;
    end;

    TakeBowsAndStrings;
    MakeBowsFull;
    wait(1500 + random(20));
    Bank;
    wait(1000 + random(20));
    DeposititAll;
    wait(1000 + random(20));
    report;
  until (bowallreadystringed >= BowsToString);
  if (bowallreadystringed >= BowsToString) then
  begin
    StopWholeScript;
  end;
end.

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

First I want to tell you that you left your name and pass (SRL members wouldnt steal it I think, bit you'd better change them)….

Wait a lil bit till I give some feedback..

Well first about chat box responder, it doesnt work with new RS Engine, until you put it like this:

function SearchText: string;
begin
  if(IsTextInAreaEx(40,415,130,413,x,y,':',0,smallchars,False,True,0,0,0))then
  begin
    TheChatText:=Trim(GetTextAtEx(x+8,413,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars));
    Result:=TheChatText;
  end;
end;

And the Getname mus be like this: GetName:=GetTextAtEx(20,413,45,SmallChars,False,False,0,2,0,40,True,tr_NormalChars);

procedure AutoRespond;
Var
 theChatText:String;
begin
  TheChatText:=SearchText;
  ChatBoxRespond(TheChatText,'wazzup','nothing much');
  ChatBoxRespond(TheChatText,'noob','you are a noob!');
  ChatBoxRespond(TheChatText,'stupid','you are stupid')
//And more...

And in your script:

  if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then Exit;
  if FindDTM(frotdtm, x, y, 22, 49, 495, 324) then

You dont need to find it twice, jsut do like this:

  if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then Exit
else
  begin
 //Your stuff when it has found the dtm

And one small thing:

 if (DebugMode = True) then WriteLn('Searching for bow dtm');

You can do just like this with booleans:

 if (DebugMode) then WriteLn('Searching for bow dtm');

Also script does not have multiplayer, needs maybe some failsafes…
So Im not sure what to vote yet, Ill hold my vote. (and wait for Yohojo)

Anyways nice script! :D

It wasnt my real pass ofcourse bud ty for the tip

and verry ty for the feedback]
I really apriciate it

I'll have a look at it

mh.. it doesnt switch player does it?
if (bowallreadystringed >= BowsToString) then
begin
StopWholeScript;
end;
is not needed… it will stop after that anyways…

Not sure what to vote..I'll wait for others.

This looks prety good to me, i have to leave in a rush, so ill look more later. But i think im guna vote yes.

Oh, you nee to credit on your find fast randoms function. go go!

ty , i apriciate it :)

Sorry doom, but your longtivity is only 1%, and your activity and post count is still very low. Take some time to get to know the community, let the community know you, and then try applying again in a month (if you don't get in this time).

Sorry, but it's a no from me. It's a pretty good script, although most of it is an auto responder, but mostly you just need to get to know the community better.

Good luck!

P.S. Do you know EL_TYCHO? Because your version of FindFastRandoms is exactly the same as his..

http://www.villavu.com/forum/showthread.php?t=1288
Hmm I think someone needs rereading rules.
(1.)1.
(2.)3.
:D

From: Pentti
http://www.villavu.com/forum/showthread.php?t=1288
Hmm I think someone needs rereading rules.
(1.)1.
(2.)3.
:D

Are you talking to me?

If so, then FYI, Boreas, YoHoJo and a LOT of other people are against letting people in that don't know the community.. So I'm not voting completely out of proportion, and I'm not being irrational.

And there was no rule in that list that says I can't vote no for that reason.. And there was no rule in there I didn't abide by.

k, I understand it
Well, I keep going on making my scripts and get in to the community
bud I'm not such a talker

anyway I thank you all ;)

well, if you read number one.

Only vote "no" if you have proof the person is a spammer, liar, or overall bad guy

I think thats kinda crap if you interpret it literally. There are plenty more reason to vote "no" other than that.

Yeah, getting to know the community is really important I think too. Perhaps not enough to vote "no" for alone, but defanitly something to seriously consider.

Edit: oh my… you only have 8 posts, thats really low…
I hope you understand, we have had some crazy people who were banned from srl for some reason trying to be sneaky and get back in on a diferent name. We really need to be able to get to know you better I'm afraid. Just to be safe. Im sure you already kknow we don't want a person who's just going to dl all the scripts and not talk much. Thats leaching, and although you don't have to be talkative, you do need to find ways to contribute.

If my hunches are right I am sure you will. Also, I really like you atitdue, you seem like a really good mature person. I have no doubt you will be in soon, and can't wait to see it.

I'm going to have to think more if I wan't to vote how I want to vote, or if i want to vote how ben want's me to vote…

Edit: Mabey im misinterpretting bens post… mabey he means, If you have proof he is a scammer, you MUST vote "no" no matter what.

instead of, "vote yes unless you know he is a scammer" (How i origonally read it, lol)

I kinda dont know… Ill vote no since its 0 -3

I want to vote yes, but I'm not sure.

From: n3ss3s
I kinda dont know… Ill vote no since its 0 -3

n3ss3s I dont matter u vote no, bud Isn't it a bit crappy reason to vore no "because all others do it". You have to think by yourself (I think)

bud it doesnt matter anyways


ty you all for your advice

I'm going on vacation to Croatia
I'll be back in 3 weeks, so I can't post much (maybey in an internet pub)


cya soon

get to know the community better and be more active.