SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
none

Other Communitys
none

How Long have You Played Runescape
5 years

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

hey i am long time runescape player and bout couple months
srl guy

ive been working on this script for awhile

ok now a paraqgraph bout my self
well i like to play runescape
and have been wanting to be srl member for long time
umm i like to watch simpsons off topic lol
hmm i am very smart kid at computers
i can pull and replace parts out the computer
i am a b+ student i learn fast when i want to lol
i think that should be enough

hope u like my script

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

{<><><><><><><><><><><><><><><><><><><><><><><><>)
{                                                }
{          [SRL4]AutoTelly 1.1 By hayhay89       }
{        credit to Wizzup's for his Abyss Solver                                         }
{<><><><><><><><><><><><><><><><><><><><><><><><>}

{

  ALL YOU DO IS CLICK PLAY!!!!

}
{
     ++++++++++++++++++++++++++++++++++++++
     ++++++++++++++++++++++++++++++++++++++
     ++++++++++++++++++++++++++++++++++++++
     +++  NO MANUAL SETUP NEEDED!!!!!!  +++
     +++                                +++
     +++  ALL YOU DO IS CLICK PLAY!!!!  +++
     +++                                +++
     +++  post proggie please           +++
     ++++++++++++++++++++++++++++++++++++++
     ++++++++++++++++++++++++++++++++++++++
     ++++++++++++++++++++++++++++++++++++++
}
program AutoTelly;
var
  TeleportsMade : Integer;
  StartingLevel : Integer;
  CurrentLevel : Integer;
  LevelsGained : Integer;
  ProggyDeploy : Integer;
  TheAmountOfPlayers : String;
  TheNumberOfPlayers : Integer;
  NumberOfUsedPlayers : Integer;
  HitCount : Integer;
  FirstPlayerName : String;
  FirstPlayerPass : String;
  FirstPlayerNick : String;
  FirstPlayerTellys : Integer;
  FirstPlayerTelly : String;
  SecondPlayerName : String;
  SecondPlayerPass : String;
  SecondPlayerNick : String;
  SecondPlayerTellys : Integer;
  SecondPlayerTelly : String;
  ThirdPlayerName : String;
  ThirdPlayerPass : String;
  ThirdPlayerNick : String;
  ThirdPlayerTellys : Integer;
  ThirdPlayerTelly : String;
  FourthPlayerName : String;
  FourthPlayerPass : String;
  FourthPlayerNick : String;
  FourthPlayerTellys : Integer;
  FourthPlayerTelly : String;
  FifthPlayerName : String;
  FifthPlayerPass : String;
  FifthPlayerNick : String;
  FifthPlayerTellys : Integer;
  FifthPlayerTelly : String;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  RadioButton1 : TRadioButton;
  RadioButton2 : TRadioButton;
  RadioButton3 : TRadioButton;
  RadioButton4 : TRadioButton;
  RadioButton5 : TRadioButton;
  RadioButton6 : TRadioButton;
  Button1 : TButton;
  Button2 : TButton;

Label
  Redo;

Label
  Passed;

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Magic.scar}

Function RandomsHandler: Boolean;
begin
  HighestAngle;
  if FindLamp ('Magic') then Result := True;
  if FindNormalRandoms then Result := True;
  if (FindFight) then
  begin
    Wait(200 + random(300))
    RunAwayDirection('S');
    Wait(5000 + Random(1000));
    RunBack;
    SetRun(False);
    WriteLn('Handled Fight');
    Result := True
  end;
  if not Result = True then NextPlayer(False);
end;

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
      Result := True;
      Wait(1000);
      ClickToContinue;
      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
              Result := True;
              ClickToContinue;
              Exit;
            end;
          end;
        end;
      end;
      Tries := Tries + 1;
      Tol := Tol + 2;
      if Tol > 20 then Tol := 2;
    until Tries > 50;
  end;
  NextPlayer(false);
  WriteLn('Handled Abyss Random');
end;

Function TeleToDo: String;
begin
  if RadioButton1.Checked = True then Result := 'Varrok Teleport';
  if RadioButton2.Checked = True then Result := 'Lumbrige Teleport';
  if RadioButton3.Checked = True then Result := 'Falador Teleport';
  if RadioButton4.Checked = True then Result := 'Camelot Teleport';
  if RadioButton5.Checked = True then Result := 'Ardougne teleport';
  if RadioButton6.Checked = True then Result := 'Trollheim Teleport';
end;

Procedure Users;
begin
  HowManyPlayers := TheNumberOfPlayers;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  if(HowManyPlayers = 1) then
  begin
    Players[0].Name := FirstPlayerName;
    Players[0].Pass := FirstPlayerPass;
    Players[0].Nick := FirstPlayerNick;
    Players[0].Integers[0] := FirstPlayerTellys;
    Players[0].Strings[0] := FirstPlayerTelly;
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
  end;

  if(HowManyPlayers = 2) then
  begin
    Players[0].Name := FirstPlayerName;
    Players[0].Pass := FirstPlayerPass;
    Players[0].Nick := FirstPlayerNick;
    Players[0].Integers[0] := FirstPlayerTellys;
    Players[0].Strings[0] := FirstPlayerTelly;
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
    
    Players[1].Name := SecondPlayerName;
    Players[1].Pass := SecondPlayerPass;
    Players[1].Nick := SecondPlayerNick;
    Players[1].Integers[0] := SecondPlayerTellys;
    Players[1].Strings[0] := SecondPlayerTelly;
    Players[1].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[1].Nick, UpChars);
  end;

  if(HowManyPlayers = 3) then
  begin
    Players[0].Name := FirstPlayerName;
    Players[0].Pass := FirstPlayerPass;
    Players[0].Nick := FirstPlayerNick;
    Players[0].Integers[0] := FirstPlayerTellys;
    Players[0].Strings[0] := FirstPlayerTelly;
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);

    Players[1].Name := SecondPlayerName;
    Players[1].Pass := SecondPlayerPass;
    Players[1].Nick := SecondPlayerNick;
    Players[1].Integers[0] := SecondPlayerTellys;
    Players[1].Strings[0] := SecondPlayerTelly;
    Players[1].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[1].Nick, UpChars);

    Players[2].Name := ThirdPlayerName;
    Players[2].Pass := ThirdPlayerPass;
    Players[2].Nick := ThirdPlayerNick;
    Players[2].Integers[0] := ThirdPlayerTellys;
    Players[2].Strings[0] := ThirdPlayerTelly;
    Players[2].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[2].Nick, UpChars);
  end;

  if(HowManyPlayers = 4) then
  begin
    Players[0].Name := FirstPlayerName;
    Players[0].Pass := FirstPlayerPass;
    Players[0].Nick := FirstPlayerNick;
    Players[0].Integers[0] := FirstPlayerTellys;
    Players[0].Strings[0] := FirstPlayerTelly;
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);

    Players[1].Name := SecondPlayerName;
    Players[1].Pass := SecondPlayerPass;
    Players[1].Nick := SecondPlayerNick;
    Players[1].Integers[0] := SecondPlayerTellys;
    Players[1].Strings[0] := SecondPlayerTelly;
    Players[1].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[1].Nick, UpChars);

    Players[2].Name := ThirdPlayerName;
    Players[2].Pass := ThirdPlayerPass;
    Players[2].Nick := ThirdPlayerNick;
    Players[2].Integers[0] := ThirdPlayerTellys;
    Players[2].Strings[0] := ThirdPlayerTelly;
    Players[2].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[2].Nick, UpChars);

    Players[3].Name := FourthPlayerName;
    Players[3].Pass := FourthPlayerPass;
    Players[3].Nick := FourthPlayerNick;
    Players[3].Integers[0] := FourthPlayerTellys;
    Players[3].Strings[0] := FourthPlayerTelly;
    Players[3].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[3].Nick, UpChars);
  end;

  if(HowManyPlayers = 5) then
  begin
    Players[0].Name := FirstPlayerName;
    Players[0].Pass := FirstPlayerPass;
    Players[0].Nick := FirstPlayerNick;
    Players[0].Integers[0] := FirstPlayerTellys;
    Players[0].Strings[0] := FirstPlayerTelly;
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);

    Players[1].Name := SecondPlayerName;
    Players[1].Pass := SecondPlayerPass;
    Players[1].Nick := SecondPlayerNick;
    Players[1].Integers[0] := SecondPlayerTellys;
    Players[1].Strings[0] := SecondPlayerTelly;
    Players[1].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[1].Nick, UpChars);

    Players[2].Name := ThirdPlayerName;
    Players[2].Pass := ThirdPlayerPass;
    Players[2].Nick := ThirdPlayerNick;
    Players[2].Integers[0] := ThirdPlayerTellys;
    Players[2].Strings[0] := ThirdPlayerTelly;
    Players[2].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[2].Nick, UpChars);

    Players[3].Name := FourthPlayerName;
    Players[3].Pass := FourthPlayerPass;
    Players[3].Nick := FourthPlayerNick;
    Players[3].Integers[0] := FourthPlayerTellys;
    Players[3].Strings[0] := FourthPlayerTelly;
    Players[3].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[3].Nick, UpChars);

    Players[4].Name := FifthPlayerName;
    Players[4].Pass := FifthPlayerPass;
    Players[4].Nick := FifthPlayerNick;
    Players[4].Integers[0] := FifthPlayerTellys;
    Players[4].Strings[0] := FifthPlayerTelly;
    Players[4].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[4].Nick, UpChars);
  end;
end;

Procedure Proggy;
begin
  CurrentLevel := GetSkillLevel('magic');
  LevelsGained := StartingLevel - CurrentLevel;
  ChangeReportWidth(350);
  ClearReport;
  BoredHuman;
  AddToReport('=========================================');
  AddToReport('=========================================');
  AddToReport('Worked For ' + TimeRunning);
  AddToReport('- - - - - - - - - - - - - - - - - - - - -');
  If TeleportsMade = 1 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Time');
  If TeleportsMade = 0 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Times');
  If TeleportsMade > 1 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Times');
  AddToReport('- - - - - - - - - - - - - - - - - - - - -');
  If LevelsGained = 1 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Level');
  If LevelsGained = 0 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Levels');
  If LevelsGained > 1 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Levels');
  AddToReport('=========================================');
  AddToReport('=========================================');
  ProggyDeploy := 0
end;

Procedure Telly;
begin
TeleportsMade := 0
CurrentLevel := 0
if not(LoggedIn) then LoginPlayer;
StartingLevel := GetSkillLevel('magic');
  Repeat
    if not(LoggedIn) then LoginPlayer;
    HighestAngle;
    MakeCompass('N');
    Begin
      if not cast(Players[CurrentPlayer].Strings[0]) then RandomsHandler;
    end;
    wait(400 + random(400));
    TeleportsMade := TeleportsMade + 1;
    ProggyDeploy := ProggyDeploy + 1
    If(ProggyDeploy = 100 + Random(50)) then Proggy;
  until(TeleportsMade = Players[CurrentPlayer].Integers[0])
  NextPlayer(false);
  GetSelf.WindowState := wsNormal;
  Writeln('Completed Teleporting');
  Exit;
end;

procedure UserSetup;
begin
frmDesign := CreateForm;
frmDesign.Left := 353;
frmDesign.Top := 221;
frmDesign.Width := 561;
frmDesign.Height := 155;
frmDesign.Caption := 'Players';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 8;
Label1.Top := 8;
Label1.Width := 51;
Label1.Height := 13;
if(NumberOfUsedPlayers = 0) then Label1.Caption := 'Player 1:';
if(NumberOfUsedPlayers = 1) then Label1.Caption := 'Player 2:';
if(NumberOfUsedPlayers = 2) then Label1.Caption := 'Player 3:';
if(NumberOfUsedPlayers = 3) then Label1.Caption := 'Player 4:';
if(NumberOfUsedPlayers = 4) then Label1.Caption := 'Player 5:';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -11;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold, fsUnderline];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 16;
Label2.Top := 32;
Label2.Width := 48;
Label2.Height := 13;
Label2.Caption := 'Username';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 152;
Label3.Top := 32;
Label3.Width := 46;
Label3.Height := 13;
Label3.Caption := 'Password';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 288;
Label4.Top := 32;
Label4.Width := 22;
Label4.Height := 13;
Label4.Caption := 'Nick';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 424;
Label5.Top := 32;
Label5.Width := 95;
Label5.Height := 13;
Label5.Caption := 'Amount of Teleports';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 16;
Edit1.Top := 48;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
if(NumberOfUsedPlayers = 0) then Edit1.Text := 'zezima';
if(NumberOfUsedPlayers = 1) then Edit1.Text := 'uloveme';
if(NumberOfUsedPlayers = 2) then Edit1.Text := 'yogosun';
if(NumberOfUsedPlayers = 3) then Edit1.Text := 'green098';
if(NumberOfUsedPlayers = 4) then Edit1.Text := 'cryano74';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 152;
Edit2.Top := 48;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
if(NumberOfUsedPlayers = 0) then Edit2.Text := 'zebra';
if(NumberOfUsedPlayers = 1) then Edit2.Text := 'cow';
if(NumberOfUsedPlayers = 2) then Edit2.Text := 'sheep';
if(NumberOfUsedPlayers = 3) then Edit2.Text := 'koala';
if(NumberOfUsedPlayers = 4) then Edit2.Text := 'seagull';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 288;
Edit3.Top := 48;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 10;
if(NumberOfUsedPlayers = 0) then Edit3.Text := 'ezim';
if(NumberOfUsedPlayers = 1) then Edit3.Text := 'love';
if(NumberOfUsedPlayers = 2) then Edit3.Text := 'ogos';
if(NumberOfUsedPlayers = 3) then Edit3.Text := 'een0';
if(NumberOfUsedPlayers = 4) then Edit3.Text := 'rano';
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 424;
Edit4.Top := 48;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 11;
Edit4.Text := '1000';
RadioButton1 := TRadioButton.Create(frmDesign);
RadioButton1.Parent := frmDesign;
RadioButton1.Left := 16;
RadioButton1.Top := 80;
RadioButton1.Width := 113;
RadioButton1.Height := 17;
RadioButton1.Caption := 'Varrok Teleport';
RadioButton1.TabOrder := 12;
RadioButton2 := TRadioButton.Create(frmDesign);
RadioButton2.Parent := frmDesign;
RadioButton2.Left := 136;
RadioButton2.Top := 80;
RadioButton2.Width := 113;
RadioButton2.Height := 17;
RadioButton2.Caption := 'Lumbrige Teleport';
RadioButton2.TabOrder := 13;
RadioButton3 := TRadioButton.Create(frmDesign);
RadioButton3.Parent := frmDesign;
RadioButton3.Left := 264;
RadioButton3.Top := 80;
RadioButton3.Width := 113;
RadioButton3.Height := 17;
RadioButton3.Caption := 'Falador Teleport';
RadioButton3.TabOrder := 14;
RadioButton4 := TRadioButton.Create(frmDesign);
RadioButton4.Parent := frmDesign;
RadioButton4.Left := 16;
RadioButton4.Top := 96;
RadioButton4.Width := 113;
RadioButton4.Height := 17;
RadioButton4.Caption := 'Camelot Teleport';
RadioButton4.Checked := True;
RadioButton4.TabOrder := 15;
RadioButton4.TabStop := True;
RadioButton5 := TRadioButton.Create(frmDesign);
RadioButton5.Parent := frmDesign;
RadioButton5.Left := 136;
RadioButton5.Top := 96;
RadioButton5.Width := 113;
RadioButton5.Height := 17;
RadioButton5.Caption := 'Ardougne Teleport';
RadioButton5.TabOrder := 16;
RadioButton6 := TRadioButton.Create(frmDesign);
RadioButton6.Parent := frmDesign;
RadioButton6.Left := 264;
RadioButton6.Top := 96;
RadioButton6.Width := 113;
RadioButton6.Height := 17;
RadioButton6.Caption := 'Trollheim Teleport';
RadioButton6.TabOrder := 17;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 392;
Button1.Top := 88;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'OK';
Button1.ModalResult := 1;
Button1.TabOrder := 18;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.Left := 472;
Button2.Top := 88;
Button2.Width := 75;
Button2.Height := 25;
Button2.Caption := 'Cancel';
Button2.ModalResult := 2;
Button2.TabOrder := 19;
NumberOfUsedPlayers := NumberOfUsedPlayers + 1
end;

procedure SafeInitForm;
var
  vl: TVariantArray;
begin
  setarraylength(Vl, 0);
  ThreadSafeCall('UserSetup', vl);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  vl: TVariantArray;
begin
  setarraylength(Vl, 0);
  ThreadSafeCall('ShowFormModal', vl);
end;

procedure Form;
begin
  SafeInitForm;
  SafeShowFormModal;
end;

begin
  SetupSRL;
  ClearDebug;
  ChangeReportWidth(350);
  ClearReport;
  AddToReport('=========================================');
  AddToReport('Worked For ' + TimeRunning);
  AddToReport('- - - - - - - - - - - - - - - - - - - - -');
  If TeleportsMade = 1 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Time');
  If TeleportsMade = 0 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Times');
  If TeleportsMade > 1 then AddToReport('Teleported ' + IntToStr(TeleportsMade) + ' Times');
  AddToReport('- - - - - - - - - - - - - - - - - - - - -');
  If LevelsGained = 1 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Level');
  If LevelsGained = 0 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Levels');
  If LevelsGained > 1 then AddToReport('Gained ' + IntToStr(LevelsGained) + ' Magic Levels');
  AddToReport('=========================================');
  AddToReport('=========================================');
  ProggyDeploy := 0
  NumberOfUsedPlayers := 0;
  HitCount := 0
  TheAmountOfPlayers := ReadLn('How Many Players Do You Wish To Auto With? Up to 5 Players');
  if(TheAmountOfPlayers = '')then TerminateScript;
  TheNumberOfPlayers := StrToInt(TheAmountOfPlayers);
  if(TheNumberOfPlayers < 1) or(TheNumberOfPlayers > 5) then
  begin
    Writeln('Only Handles Up To 5 Players');
    TerminateScript;
  end;
  Redo:
  Form;
  if NumberOfUsedPlayers = 1 then
  begin
    FirstPlayerName := Edit1.Text;
    FirstPlayerPass := Edit2.Text;
    FirstPlayerNick := Edit3.Text;
    FirstPlayerTellys := StrToInt(Edit4.Text);
    FirstPlayerTelly := TeleToDo;
  end;
  if NumberOfUsedPlayers = 2 then
  begin
    SecondPlayerName := Edit1.Text;
    SecondPlayerPass := Edit2.Text;
    SecondPlayerNick := Edit3.Text;
    SecondPlayerTellys := StrToInt(Edit4.Text);
    SecondPlayerTelly := TeleToDo;
  end;
  if NumberOfUsedPlayers = 3 then
  begin
    ThirdPlayerName := Edit1.Text;
    ThirdPlayerPass := Edit2.Text;
    ThirdPlayerNick := Edit3.Text;
    ThirdPlayerTellys := StrToInt(Edit4.Text);
    ThirdPlayerTelly := TeleToDo;;
  end;
  If NumberOfUsedPlayers = 4 then
  begin
    FourthPlayerName := Edit1.Text;
    FourthPlayerPass := Edit2.Text;
    FourthPlayerNick := Edit3.Text;
    FourthPlayerTellys := StrToInt(Edit4.Text);
    FourthPlayerTelly := TeleToDo;
  end;
  if NumberOfUsedPlayers = 5 then
  begin
    FifthPlayerName := Edit1.Text;
    FifthPlayerPass := Edit2.Text;
    FifthPlayerNick := Edit3.Text;
    FifthPlayerTellys := StrToInt(Edit4.Text);
    FifthPlayerTelly := TeleToDo;
  end;
  if(frmDesign.ModalResult = 1) and(TheNumberOfPlayers = 2) then
  begin
    HitCount := HitCount + 1;
    if HitCount = 2 then Goto Passed;
    Goto ReDo;
  end;
  if(frmDesign.ModalResult = 1) and(TheNumberOfPlayers = 3) then
  begin
    HitCount := HitCount + 1;
    if HitCount = 3 then Goto Passed;
    Goto ReDo;
  end;
  if(frmDesign.ModalResult = 1) and(TheNumberOfPlayers = 4) then
  begin
    HitCount := HitCount + 1;
    if HitCount = 4 then Goto Passed;
    Goto ReDo;
  end;
  if(frmDesign.ModalResult = 1) and(TheNumberOfPlayers = 5) then
  begin
    HitCount := HitCount + 1;
    if HitCount = 5 then Goto Passed;
    Goto ReDo;
  end;
  Passed:
  if(frmDesign.ModalResult = 2) then TerminateScript;
  Users;
  if(HowManyPlayers > 5) then
  begin
    writeln('Must Be A Number From 1 To 5');
    exit;
  end;
  if(HowManyPlayers < 1) then
  begin
    writeln('Must Be A Number From 1 To 5');
    exit;
  end;
  GetSelf.WindowState := wsMinimized;
  MouseSpeed := 15 + random(3);
  if not FindRS then
  begin
    GetSelf.WindowState := wsNormal;
    writeln('Runescape Not Found');
    Exit;
  end;
Telly;
GetSelf.WindowState := wsMaximized;
end.

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

You can't use a case and Wizzup's Abyss Solver is copied without crediting.

No from me as cruel as it sounds.

No from me too. 90% of the script is a form…

wat do u reckon
its sposed to be really long
its only a auto teleporter!!!!!!!!!!!!
at least explain y

cmon

saying 90% of it is forms

i think thats pritty good for some 1
at least explain man!!!!

n3ss3 or wat ever your name is i did credit wizzup if u can read!

I hold my vote. it looks very good on some parts. almost to good. Lets see what other people say…

well i got 3 no

for dum reason
1 didnt even say anything
thanks for not voting no with really thinking

Here's your explanation:

From: hayhay89
wat do u reckon
its sposed to be really long
its only a auto teleporter!!!!!!!!!!!!
at least explain y

cmon

saying 90% of it is forms

i think thats pritty good for some 1
at least explain man!!!!

n3ss3 or wat ever your name is i did credit wizzup if u can read!

Lets recap:
1) 90% of it is forms, then there's a certain % which is from Wizzup, that doesn't leave mutch of what is your own work.
2) You said it yourself its only a auto teleporter!!!!!!!!!!!! Same like Autominers, woodcutters, etc… They have less chance of getting in.
3) This is more my own personal viewpoint and mostlikely it's just me, but i think your mainloop is abit hard to read, you could easelly streamline it more into procedures. Again, that's my viewpoint.

Things that are looked for in an application script, i copied it from one of JAD's tutorials:
- Scripting standards.
- DTMs and Bitmaps.
- Anti randoms.
- Anti ban.
- Multi player/player switching.
- Fail safes
- Radial walking ( a huge ++ of your odds of getting accepted).
- Bank Finding, opening and depotising.

It's true, n3s, he did credit Wizzup?, but I still think too much is either form or Wizzup?'s. And you have wasted a lot of space where you declare the players. Big waste of space.

Sorry, it's a no from me.

-Knives

no from me too. it's mostly a form, and most important of all you messed up multiplayer which is one of SRL's main points.

i sugeest you go read about arrays so you don't have to do
if totalplayers = 1
if totalplayers = 2
if totalplayers = 3…

~RM

i dont give a shit all vote no i dont care

Course, attitude is also an important factor.

From: Psychor
Course, attitude is also an important factor.

I second that.

well not like u r gonna vote yes
because laking stuff
just tell dont
just go on for ever bla bla bla bla
i allready lost it 6 no and 0 yes
so blah blah blah
ill try again next month
sorry i wasted your time

dont crush my dreams just say better luck next time
good try or wat ever

From: hayhay89
well not like u r gonna vote yes
because laking stuff
just tell dont
just go on for ever bla bla bla bla
i allready lost it 6 no and 0 yes
so blah blah blah
ill try again next month
sorry i wasted your time

dont crush my dreams just say better luck next time
good try or wat ever

well, with that attitude we have a reason to vote no next time as well eh?

well fine vote no next time
so let me see
lets say i made an awesome script
like so awesome better then all your put to gether
u would vote no
well u do that

Dude whats your problem?

And sorry, I didn't notice since it was on the top.

"If you can read, my name is n3ss3s"


Look, you read the requirements before you come and apply!

You don't come here "well this script can't be complex", NO, you fucking make a complex script!

fuck u
thats gonna make me script and learn fast aint it dick head
go gets a life losers

Well why don't you fucking go to script then?

We dickheads will be waiting for you here, but so will most likely couple instant no:s…

Lesson number one:

You can put many vars on same line like

 var1, var2, var3: String

and u guys admit u r dick heads man thats low

Well, i don't tend to hold grudges, if you have your "awsome" script i'll vote yes.
But i'm also sure that there have been really good scripts that got turned down cause the creator has an "attitude" problem.
I gave you my reason for voting no, i also posted the things that people tend to look for in an application script. I'm sorry if that is crushing your dreams.

Becoming a SRL member isn't just about being a "awsome" scripter, it's also being part of a community. And for some people that's considered being more important that your script when they vote.

Anyways, nice try and better luck next time

Psychor

EDIT: while writing this post you posted those nice names for us, maybe i should reconsider my holding grudges policy

yer well im pisssed of at u guys for making this into a big fussss

Oi Hayhay go fuck your self kid. Dont shit around with SRL Members fucker.

ha ha good 1 fuck u man im so sick of srl member bossing me around
go fuck your selves well i dont have to take shit from no1
losers
fuck u
fuck u
fuck u
fuck

Yer, let the yews speak! xD

yer well im pisssed of at u guys for making this into a big fussss

roflmao, every new app seems to turn out like this, hey, you're the one who told us that we are dickheads lol, and you're making this bigger and bigger all the time :)

Now, if you don't respond to this message maybe we all could view some other threads, thank you.

Kk well go fuck your Registed User tag.

(HayHay)

Whoo got n3s

Oi Hay in Members section thers a 1337 hacking device, we gonna fuck you up good.

Hat hacking device is called BobboHobbo :O

guys just to let u no
im really just joking
ill take all your good respond into my mind
next month when i attepmt to john srl members
ill have a new funky new script that will blow your mind
lol
peace out!

:f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f:

fuck u bobbohobbo or wat ever your name lol just messin bud
oh yo n3ss3 or something when that yew exchange comin out of yours?

From: n3ss3s
roflmao, every new app seems to turn out like this

You sure your not born on friday the 13th, you seem a tad cursed roflmao

If you god damn don't have time to take the shit from us what the fuck are you doing here?!

Go away and do what you were busy at?

Why were you applying if you don't have time?

You thought you just hop in get the scripts and go away.

No.

@XChangeYewCutterThing: Maybe I have other things to do instead of making scripts for assholes like you, who knows, and Im making it with BH by the way.

And also, I can guarantee that it will be for Junior Members only, and no don't start bragging that its a bug that your name ain't light green, because its pretty sure that you get your ass back to reg user if not banned.

You sure your not born on friday the 13th, you seem a tad cursed roflmao

Nah, but yeah, seems xD

EDIT: Maybe the numbers in my name confuse the noobs and frustrate them when they can't read it?

i do wanna join and be a srl member and make scripts
i kinder new and thought the script would pass so sorry

god man
im a good friend of bobbohobbo

Ahahahahahaha!

stfu, will ya? Or bobbo confirm?

ill have a new funky new script that will blow your mind

Its not that easy to blow my mind.

Vote Hayhay to be Banned.
(3) Yes - BobboHobbo, Pixel freind, Pixel freind 1, pixel freind 2.
(0) No

The tribe has spoken, Fawki get the ass down here we need asstiance.

I pmed wizzy like half an hour ago, but hes not logged in =/

EDIT: Hay left lol…

Good that rat needs to get terminated!

Function FindRatAndDestory:boolean;
Begin
  If FindNoobTolerance(x,y,Hayhay89,SRLx1,SRLy1,SRLx2,SRLy2,1) then
   begin
     TerminateRat;
   end else
    TerminateRatanyway;
end;

no obviously, its his birthday + its weekend, family day anyone?

From: hayhay89
guys just to let u no
im really just joking
ill take all your good respond into my mind
next month when i attepmt to john srl members
ill have a new funky new script that will blow your mind
lol
peace out!

:f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f:

fuck u bobbohobbo or wat ever your name lol just messin bud
oh yo n3ss3 or something when that yew exchange comin out of yours?

watch me vote no then :D

im bak baby

Well go fuck yourself!!!

Close Please! + ban

(3) Yes - BobboHobbo, Pixel freind, Pixel freind 1, pixel freind 2.

doesn't that make 4? :p

anyway people just let him talk :/ it's not the first or the last time this will happen and we all know it just ends in a constant voting of no >.> his loss that he opens a big mouth, and we shouldn't really care because we barely know the guy.

hayhay good luck for next time, but instead of spending one month learning how to script i suggest you spend at least a couple of weeks workin on your attitude

~RM

I second that.

just because of the attitude.. I will vote no..

Closed.

oh rly?

-Hy71194 says:
Wizzup ALWAYS FORGETS TO CLOSE STUFF
-Hy71194 says:
He says CLosed.
-Hy71194 says:
then its still open!
-Hy71194 says:
lol

The message you have entered is too short. Please lengthen your message to at least 1 characters.

Yea, it's really weird. Let me explain:

There are 2 buttons both saying 'Submit reply', if I use the upper one, it will not remember any radiobuttons or checkboxes I have checked, I sometimes tend to use to upper one instead of the lower one…