SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
Sythe, Fagex, Uber Brothers (I never go on them)

How Long have You Played Runescape
About 2.5 years

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

i have been working hard on my new script (auto alcher and/or teleporter). i have sent it to wizzup, and he even said he likes the way i script =] so i decided to apply again.

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

{-----------------------------BY DOOFY----------------------------------)

      Do not use anything from this script without my permission!
            Have brightness on V-Bright using low detail
            MUST USE OFFICIAL RUNESCAPE CLIENT
                            Setup 31-65

                            FOR ALCHING:
              Items you want alched (NOTED) anywhere
                        Weild a fire staff

                          FOR TELEPORTING:
               Put player in teleport place for login!
(-----------------------------------------------------------------------}

program DoofyAlcher;
{.include SRL\SRL.scar}
{.include SRL/SRL/skill/Magic.scar}

var
  TotalAlched, DItem, RespondAmount, Note, Teleported, ax, ay, bx, by, Abyss, NOAbyss, AlchNumber: Integer;
  RunFar, Active: Boolean;
///////////////////////////////////////////////////////////////////////////

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

  Players[0].Name := ''; {Username}
  Players[0].Pass := ''; {Password}
  Players[0].Nick := ''; {3 Letters from your name NO CAPS}
  Players[0].Active := True; {No Touch}
  Players[0].Boolean1 := False; {If alching, then True. If teleporting, False.}
  Players[0].Boolean2 := False; {True if in crowded place with lots of talk,False if not}
  Players[0].String1 := 'High'; {Type of alch. If not alching, then just put either type.}
  Players[0].String2 := 'Camelot'; {Where to teleport. If not teleporting, then just put any place.}
  Players[0].String3 := ''; {A common name people call you..like part of your name}
  Players[0].Integer1 := 4; {Number of things to alch. If not alching, put a random number.}
  Players[0].Integer2 := 2; {Number of times to tele. If not teleporting, put a random number.}

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := False;
  Players[1].Boolean1 := False;
  Players[1].Boolean2 := False;
  Players[1].String1 := 'High';
  Players[1].String2 := 'Varrock';
  Players[1].String3 := '';
  Players[1].Integer1 := 50;
  Players[1].Integer2 := 50;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := False;
  Players[2].Boolean1 := True;
  Players[2].Boolean2 := False;
  Players[2].String1 := 'Low';
  Players[2].String2 := 'Falador';
  Players[2].String3 := '';
  Players[2].Integer1 := 50;
  Players[2].Integer2 := 50;

end;
///////////////////////////////////////////////////////////////////////////

procedure SetUpPlayer;
begin
  RespondAmount := 0;
  TotalAlched := 0;
  Teleported := 0;
  case Players[CurrentPlayer].String1 of
  'High' : AlchNumber:=35;
  'Low'  : AlchNumber:=14;
  end;
  if (not (LoggedIn)) then
  begin
    LoginPlayer;
  end;
  SetChat('On', 1);
  SetChat('Off', 2);
  SetChat('Friends', 3);
  SetRun(True);
  HighestAngle;
end;
///////////////////////////////////////////////////////////////////////////

procedure DoofyRespond; {Ideas from BuckleyInDahouse's AutoFighter}
begin
  if (Players[CurrentPlayer].Boolean2 = True) then
  begin
    if (FindChatText('Hp lvls') or
      FindChatText('Hp lvls?') or
      FindChatText('Hitpoint lvls') or
      FindChatText('Hitpoint lvls?') or
      FindChatText('Hitpoints lvls') or
      FindChatText('Hitpoints lvls?') or
      FindChatText('Hitp lvls') or
      FindChatText('Hitp lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Mining lvls') or
      FindChatText('Mining lvls?') or
      FindChatText('Mine lvls') or
      FindChatText('Mine lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Mining')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Wc lvls') or
      FindChatText('Wc lvls?') or
      FindChatText('Woodcut lvls') or
      FindChatText('Woodcut lvls?') or
      FindChatText('Woodcutting lvls') or
      FindChatText('Woodcutting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Attack lvls') or
      FindChatText('Attack lvls?') or
      FindChatText('Atack lvls') or
      FindChatText('Atack lvls?') or
      FindChatText('Attac lvls') or
      FindChatText('Attac lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Defenc lvls') or
      FindChatText('Defenc lvls?') or
      FindChatText('Defence lvls') or
      FindChatText('Defence lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Defence')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Magic lvls') or
      FindChatText('Magic lvls?') or
      FindChatText('Mage lvls') or
      FindChatText('Mage lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Magic')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Cook lvls') or
      FindChatText('Cook lvls?') or
      FindChatText('Cookin lvls') or
      FindChatText('Cookin lvls?') or
      FindChatText('Cooking lvls') or
      FindChatText('Cooking lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Cooking')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Fletch lvls') or
      FindChatText('Fletch lvls?') or
      FindChatText('Fletching lvls') or
      FindChatText('Fletching lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Fletching')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Firemaking lvls') or
      FindChatText('FireMaking lvls?') or
      FindChatText('Fire making lvls') or
      FindChatText('Fire making lvls')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Firemaking')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Craft lvls') or
      FindChatText('Craftt lvls?') or
      FindChatText('Craftin lvls') or
      FindChatText('Crafting lvls?') or
      FindChatText('Crafting lvls') or
      FindChatText('Crafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Crafting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Smelt lvls') or
      FindChatText('Smelt lvls?') or
      FindChatText('Smelting lvls') or
      FindChatText('Smelting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Smelting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Rc lvls') or
      FindChatText('Rc lvls?') or
      FindChatText('Runecraft lvls') or
      FindChatText('Runecraft lvls?') or
      FindChatText('Runecrafting lvls') or
      FindChatText('Runecrafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Runecraft')))
        RespondAmount := RespondAmount + 1;
    end;

    if (FindChatText('Hi') or
      FindChatText('Hey') or
      FindChatText('Hello') or
      FindChatText('Yo')) then
    begin
      case random(4) of
        0: begin
            Typesend('hola...just watchin.');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('sup...im gonna do barrows once im lvl 90');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('wassup');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('hows it goin');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (FindChatText((Players[CurrentPlayer].Name)) or
      FindChatText((Players[CurrentPlayer].String3))) then
    begin
      case random(4) of
        0: begin
            Typesend('im busy leave me alone lol');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('im not talking right now');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('talk to me some other time i dont want to talk now');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (FindChatText('Macroer') or
      FindChatText('Macror') or
      FindChatText('Macro') or
      FindChatText('Macrore')) then
    begin
      case random(4) of
        0: begin
            Typesend('omg im not for the last time stop talking to me');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('everyone thinks i am but im not.. dont even talk');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('lol im not leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('im not! im not talkin to you');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (FindChatText('Autoer') or
      FindChatText('Auoter') or
      FindChatText('Auto') or
      FindChatText('Autor')) then
    begin
      case random(4) of
        0: begin
            Typesend('omg im not leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('im just watching calm down dont talk to me');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('everyone thinks im one...leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('im not! i hate them dont even say anything');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;
  end;
  if (Players[CurrentPlayer].Boolean2 = False) then
  begin
    if (InChat('Hp lvls') or
      InChat('Hp lvls?') or
      InChat('Hitpoint lvls') or
      InChat('Hitpoint lvls?') or
      InChat('Hitpoints lvls') or
      InChat('Hitpoints lvls?') or
      InChat('Hitp lvls') or
      InChat('Hitp lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Mining lvls') or
      InChat('Mining lvls?') or
      InChat('Mine lvls') or
      InChat('Mine lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Mining')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Wc lvls') or
      InChat('Wc lvls?') or
      InChat('Woodcut lvls') or
      InChat('Woodcut lvls?') or
      InChat('Woodcutting lvls') or
      InChat('Woodcutting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Attack lvls') or
      InChat('Attack lvls?') or
      InChat('Atack lvls') or
      InChat('Atack lvls?') or
      InChat('Attac lvls') or
      InChat('Attac lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Defenc lvls') or
      InChat('Defenc lvls?') or
      InChat('Defence lvls') or
      InChat('Defence lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Defence')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Magic lvls') or
      InChat('Magic lvls?') or
      InChat('Mage lvls') or
      InChat('Mage lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Magic')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Cook lvls') or
      InChat('Cook lvls?') or
      InChat('Cookin lvls') or
      Inchat('Cookin lvls?') or
      InChat('Cooking lvls') or
      InChat('Cooking lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Cooking')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Fletch lvls') or
      InChat('Fletch lvls?') or
      InChat('Fletching lvls') or
      InChat('Fletching lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Fletching')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Firemaking lvls') or
      InChat('FireMaking lvls?') or
      Inchat('Fire making lvls') or
      InChat('Fire making lvls')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Firemaking')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Craft lvls') or
      InChat('Craftt lvls?') or
      InChat('Craftin lvls') or
      InChat('Crafting lvls?') or
      InChat('Crafting lvls') or
      InChat('Crafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Crafting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Smelt lvls') or
      InChat('Smelt lvls?') or
      InChat('Smelting lvls') or
      InChat('Smelting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Smelting')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Rc lvls') or
      InChat('Rc lvls?') or
      InChat('Runecraft lvls') or
      InChat('Runecraft lvls?') or
      InChat('Runecrafting lvls') or
      InChat('Runecrafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Runecraft')))
        RespondAmount := RespondAmount + 1;
    end;

    if (InChat('Hi') or
      InChat('Hey') or
      InChat('Hello') or
      InChat('Yo')) then
    begin
      case random(4) of
        0: begin
            Typesend('hola...just watchin.');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('sup...im gonna do barrows once im lvl 90');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('wassup');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('hows it goin');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (InChat((Players[CurrentPlayer].Name)) or
      InChat((Players[CurrentPlayer].String3))) then
    begin
      case random(4) of
        0: begin
            Typesend('im busy leave me alone lol');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('im not talking right now');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('talk to me some other time i dont want to talk now');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (InChat('Macroer') or
      InChat('Macror') or
      InChat('Macro') or
      InChat('Macrore')) then
    begin
      case random(4) of
        0: begin
            Typesend('omg im not for the last time stop talking to me');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('everyone thinks i am but im not.. dont even talk');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('lol im not leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('im not! im not talkin to you');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;

    if (InChat('Autoer') or
      InChat('Auoter') or
      InChat('Auto') or
      InChat('Autor')) then
    begin
      case random(4) of
        0: begin
            Typesend('omg im not leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        1: begin
            Typesend('im just watching calm down dont talk to me');
            RespondAmount := RespondAmount + 1;
          end;
        2: begin
            Typesend('everyone thinks im one...leave me alone');
            RespondAmount := RespondAmount + 1;
          end;
        3: begin
            Typesend('im not! i hate them dont even say anything');
            RespondAmount := RespondAmount + 1;
          end;
      end;
    end;
  end;
end;
///////////////////////////////////////////////////////////////////////////

procedure RandomCompassDirection;
begin
  case Random(2) of
    0: begin
        KeyDown(VK_Left);
        Wait((100) + Random(500));
        KeyUp(VK_Left);
      end;
    1: begin
        KeyDown(VK_Right);
        Wait((100) + Random(500));
        KeyUp(VK_Right);
      end;
  end;
end;
///////////////////////////////////////////////////////////////////////////

procedure DoofyAntiBan;
begin
  if not (LoggedIn) then
  begin
    Logout;
    TerminateScript;
  end;
  case Random(16) of
    0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    1: RandomRClick;
    2: HoverSkill('magic', False);
    3: RandomCompassDirection;
    4: RandomCompassDirection;
    5: PickupMouse;
    6: begin
        DoEmote(1 + Random(20));
        Wait(1500 + random(1000));
        GameTab(4);
      end;
    7: begin
        DItem := 4 + random(14);
        if (ExistsItem(DItem)) then
          DragItem(DItem, 15 + random(10));
      end
      8: begin
        GameTab(1 + random(12));
        wait(1500 + random(500));
        GameTab(4);
      end;
  end;
end;
///////////////////////////////////////////////////////////////////////////
{<-----------------WIZZUP'S----------------------------------------------->}

function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

var
  I, iX, iY: Integer;
begin
  for I := iFrom to ITo do
  begin
    iX := Round(Distance * Sin(I * Pi / 180)) + 648;
    iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
    if GetColor(iX, iY) = 0 then
    begin
      Result := Result + 1;
    end;
  end;
end;

function InAbyss: Boolean;

var
  A: Integer;

begin
  A := ScanMiniMap(0, 359, 50);
  if A = 360 then
  begin
    Result := True;
  end
end;

function GuessAbyssRandom: Boolean;

var
  AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
  WeirdColors: array[0..3] of Integer;
  Operate: TPoint;
begin
  WeirdColors[0] := 13751777;
  WeirdColors[1] := 4953873;
  WeirdColors[2] := 2509833;
  repeat
    case Random(4) of
      0: begin Operate.X := 252; Operate.Y := 150; end;
      1: begin Operate.X := 278; Operate.Y := 170; end;
      2: begin Operate.X := 238; Operate.Y := 200; end;
      3: begin Operate.X := 215; Operate.Y := 166; end;
    end;

    for I := 0 to 2 do
    begin
      Tol := 0;
      repeat
        Tol := Tol + 1;
        iX := MSCX;
        iY := MSCY;
        if FindColorSpiralTolerance(iX, iY, WeirdColors[I], MSX1, MSY1, MSX2, MSY2, Tol) then
        begin
          ChosenColor := WeirdColors[I];
          if (Distance(iX, iY, MSCX, MSCY) < 120) then Break;
        end;
        if ChosenColor <> 0 then Break;
      until Tol > 9;
    end;

    if ChosenColor <> 0 then
    begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      if IsUpText('perate') then
      begin
        GetMousePos(iX, iY);
        Mouse(iX, iY, 0, 0, True);
      end;
    end;

    Wait(5000 + Random(500));
    if not InAbyss then
    begin
      Abyss := Abyss + 1;
      ReportVars[8] := ReportVars[8] + 1;
      Result := True;
      Wait(1000);
      ClickToContinue;
      SRLRandomsReport;
      Exit;
    end;
    Tries := Tries + 1;
    if TimeFromMark(AbyssalMark) > 60000 * 5 then Break;
  until Tries > 30;

  Tries := 0;
  if InAbyss then
  begin
    repeat
      case Random(4) of
        0: begin Operate.X := 252; Operate.Y := 150; end;
        1: begin Operate.X := 278; Operate.Y := 170; end;
        2: begin Operate.X := 238; Operate.Y := 200; end;
        3: begin Operate.X := 215; Operate.Y := 166; end;
      end;
      iX := Operate.X;
      iY := Operate.Y;
      if FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol)
        or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) then
      begin
        if (Distance(iX, iY, MSCX, MSCY) < 80) then
        begin
          MMouse(iX, iY, 0, 0);
          Wait(10);
          if IsUpText('perate') then
          begin
            GetMousePos(iX, iY);
            Mouse(iX, iY, 0, 0, True);
            Wait(5000 + Random(500));
            if not InAbyss then
            begin
              Abyss := Abyss + 1;
              ReportVars[8] := ReportVars[8] + 1;
              Result := True;
              ClickToContinue;
              SRLRandomsReport;
              Exit;
            end;
          end;
        end;
      end;
      Tries := Tries + 1;
      Tol := Tol + 2;
      if Tol > 20 then Tol := 2;
    until Tries > 50;
  end;
  LogOut;
  NOAbyss := NOAbyss + 1;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event.');
end;
{<-----------------WIZZUP'S----------------------------------------------->}
///////////////////////////////////////////////////////////////////////////

procedure DoofyRandoms;
begin
  RunFar := True;
  if (WeAreDead) then
  begin
    Logout;
  end;
  if (InAbyss) then
  begin
    GuessAbyssRandom;
  end;
  FindLamp(LampSkill);
  if (FindFight) then
  begin
    RunTo('S', RunFar);
  end;
  FindNormalRandoms;
  DwarfItem;
  FindForester;
  FindScapeRune;
  SolvePinball;
  FindPlant;
  FindTalk;
  if (NoGameTab) then
  begin
    Logout;
  end;
end;
///////////////////////////////////////////////////////////////////////////

procedure CheckTalkAndRandoms;
begin
  DoofyRespond;
  DoofyRandoms;
  DoofyAntiBan;
end;
///////////////////////////////////////////////////////////////////////////

procedure DoofyProgressReport;
begin
  Writeln('<----------Doofy Progress Report---------->');
  Writeln('Current Player:' + (Players[CurrentPlayer].Name));
  Writeln('Number of Alchs:' + inttostr(TotalAlched));
  Writeln('Number of Teleports:' + inttostr(Teleported));
  Writeln('Times Responded:' + inttostr(RespondAmount));
  Writeln('Time Running:' + (TimeRunning));
  Writeln('POST YOUR PROGGIES FOR GODS SAKE!!!');
  Writeln('<----------------------------------------->');
  SRLRandomsReport;
end;
///////////////////////////////////////////////////////////////////////////

procedure LoadDTMS; {From Uber Brothers' UberAlcher}
begin
  Note := DTMFromString('78DA63B462626078CE800618914820ED0E54F' +
    '391809A50A09A3704D40402D57CC2AF0600A0FE04F2');
end;
///////////////////////////////////////////////////////////////////////////

procedure AlchThatShit;
begin
  case Players[CurrentPlayer].String1 of
  'High' :begin
            ax:= 712;
            ay:= 333;
            bx:= 728;
            by:= 341;
          end;
  'Low'  :begin
            ax:= 712;
            ay:= 260;
            bx:= 728;
            by:= 269;
          end;
  end;
  LoadDTMS; {From Uber Brothers' UberAlcher}
  if (Players[CurrentPlayer].Boolean1 = True) then
  begin
    repeat
      begin
        RotateEvery(1 + Random(2));
        if (LoggedIn) then
        begin
          Wait(100 + random(200));
          CheckTalkAndRandoms;
          Gametab(7);
          Wait(400 + random(500));
          if (FindColor(x,y,3195184,ax,ay,bx,by)){green liquid color} or (FindColor(x,y,849658,ax,ay,bx,by)){coins color} then
           begin
             MMouse(x,y,4,4);
             Wait(100+random(200));
             Mouse(x,y,4,4,true);
             Wait(200 + random(200));
             if (GetCurrentTab = 4) and (IsUpTextMulti((Players[CurrentPlayer].String1), 'evel', 'lchemy')) then
             begin
               if (FindDTM(Note, x, y, 557, 203, 744, 468)) then
                 begin
                   MMouse(x, y, 7, 7);
                   Wait(100 + random(200));
                   Mouse(x, y, 5, 5, true);
                   TotalAlched := TotalAlched + 1;
                   DoofyProgressReport;
                 end else
                 begin
                   Logout;
                 end;
                 end else
                 begin
                  Logout;
                   Writeln('Could not find noted item');
                 end;
           end else
           begin
             Logout;
              Writeln('Could not cast'+(Players[CurrentPlayer].String1)+' Alchemy');
           end;
        end;
      end;
    until (TotalAlched >= (Players[CurrentPlayer].Integer1))
  end;
end;
///////////////////////////////////////////////////////////////////////////

procedure Teleport;
begin
  if (Players[CurrentPlayer].Boolean1 = False) then
  begin
    repeat
      begin
        GameTab(7);
        Wait(300 + random(500));
        Cast((Players[CurrentPlayer].String2) + ' Teleport');
        Wait(1400 + random(800));
        CheckTalkAndRandoms;
        Teleported := Teleported + 1;
        DoofyProgressReport;
      end;
    until (Teleported >= (Players[CurrentPlayer].Integer2))
  end;
end;
///////////////////////////////////////////////////////////////////////////
begin
  SetUpSrl;
  SrlRandomsReport;
  DeclarePlayers;
  if (loggedin = false) then
  begin
    LoginPlayer;
  end;
  repeat
    begin
      SetUpPlayer;
      AlchThatShit;
      Teleport;
      Logout;
      NextPlayer(Active);
    end;
  until ((Players[CurrentPlayer].Active = False))
    TerminateScript;
end.

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

Nice work man.
Extremely well written script.
Has the lot, antiban, multiplayer, antirandoms, standards, complexity, an understanding of SRL.
Good work, yes from me :)

dude thanks so much….make sure to vote in the poll though =]

Only things I can find to fix are:

1. You have TerminateScript; a lot when theres no game tab in the anti randoms and things like that. You should make it switch players there because then it doesn't just stop the script when it could keep autoing.

2. SRLRandomsReport should be with the progress report XD

lol thats about all I can find for problems. Your responder (not 100% sure) May lag a ton because you are checking for all the chat text. For something for like InChat Magic lvls…. all you need is something like if(InChat('agic'))then like that. because it looks for less text, causing less lag.

I'll vote later. You may know I'm tough to please and almost always vote no, but I may have to vote *Gulps* yes on this one XD

lol sry to say, but ur wrong on all three things =]

i have sRLRandomsReport in my proggie, my autorespoinder does not lag (ive used it), and it does swtich players……then when there are no more, it terminates the script

lol please vote YES!!!! lol

Having that muc hautorespoder doesnt show scriptign knowledge, it just makes it harder to go through i think. And after going throug hall of it, there were only 2 procedures you made there and they were both just like 2 clicks. Seems too simple, but you do have failsafes, antiban, and antirandoms. Idk for now, ide just like it better if more of it was pure scripting by you, because like 90% of it is randoms and responder . I will vote later.

EDIT: i noticed you didnt take the time to learn how to make dtm's or bitmaps, you should really use a bitmap or dtm for whatever alc you are doing, and the dtm you used was copied. Im still thinking though.

I toatly hate autoresponders like that.
They look freaking retarded and make me rofl.
I think they are completely useless :p.

I really like the scripts, shows you understand the "SRL-style".

repeat
    begin
      SetUpPlayer;
      AlchThatShit;
      Teleport;
      Logout;
      NextPlayer(Active);
    end;
  until ((Players[CurrentPlayer].Active = False))
    TerminateScript;

Hmm, I think you should rearrange this last bit..

From: Doofy
dude thanks so much….make sure to vote in the poll though =]

procedure DoofyProgressReport;
begin
Writeln('<———-Doofy Progress Report———->');
Writeln('Current Player:' + (Players[CurrentPlayer].Name));
Writeln('Number of Alchs:' + inttostr(TotalAlched));
Writeln('Number of Teleports:' + inttostr(Teleported));
Writeln('Times Responded:' + inttostr(RespondAmount));
Writeln('Time Running:' + (TimeRunning));
Writeln('POST YOUR PROGGIES FOR GODS SAKE!!!');
Writeln('<—————————————–>');
end;

If there is SRLRandomsReport in that, then please point it out because I'm blind. You have it in your randoms procedure I am 99.99999999% sure. And you do have it terminate the script, making it very non multiplayer with things like

if(not(LoggedIn))then
begin
  LogoutPlayer;
  TerminateScript;
end;

So yeah, that will log out the current player, and kill the script even if there were more active users. I don't think I'm going to vote yes, because after looking at it over a few times more thouroughly, this is a very easy script for the stuff you did.. If your not counting the responder, I think at least 25% of the script is wissup?'s.. I think that you should make a power chopper/power miner or something that banks.. and apply again if you don't get in. This is a fairly simple script, a lot of it is wissup?'s/auto responder, and really, auto responders are for no reason if you auto correctly in the first place. and especially if you are doing something like alching in a bank.. or teleporting.

I'm voting no sorry.

EDIT: I just made a few changes on the script ( took out the TerminateSCripts and added SRLRandomsReport to my proggie). the changes are now in the originally posted scirpt.

ok thanks guys but i dont know wat the big deal is with my auto responder!!!!! it is just added material so why is that such a bad thing?!?! JAD, i understand wat u mean now. I thought i took out all the TerminateSCripts (except for at the end), and i thought u meant in the randoms ( i have no idea why). Ive gotten to no that Yohojo especially htes my autorespodner. If you guys think I should take it out and make the script more basic, I will do so, but I think its a good thing. Just think about it. If you were autoing, and someone came up to you and said, "Hey, you autoing?" (yes, ive done this to the yew choppers before). Would you rather not answer and have themn probably report you, or respond with sopmething like "wassup" or something simple like that??i would take the second choice, but thats just me.

BTW: THANKS WIZZUP AND neG and the others who voted yes (and commented my scipt).

Thanks for being so understanding. Your a good scripter, I'm not trying to put you down. Its just that this isn't that complicated of a script to make, and most of the lines of code is by wissup? and an auto responder. So that means, you didn't write too many things that would be hard. Different script would show different strengths in your scripting.

ok….if i dont end up being accepted this time, does anyone have any suggestions for this script?? i might add on to it
and should i leave in the autorespoinder or not??!!?!? everyone makes it seem like it makes my script that much worse.

In!