SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
a little C

Other Communitys


How Long have You Played Runescape
1.5 years

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

i am a semi experienced scripter. i have recently been learning radila road walk (although it's not in this script) and have been using it in another script to be released. i also experimented with forms in this script (yes i know RSN made alot of those procedures but i edited and added on) i feel that i should be a member because i have been helping out alot (recently i have been studying a lot for school finals) and will continue to help in the future.

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

program Mantheiver;
{.include Srl\Srl.scar}
{  _____________________________________________
  / V.05  Auto thiever by Jhildy                \
 / Run, Setup players and click more setup       \
 | Setup eating and what to thieve               |
 |                                               |
 | ADDED MOUSESPEED AND FORM                     |
 | Please give me more ideas for this script     |
 | such as what i could add to thieve and eat.   |
 |                                               |
  \_____________________________________________/ }
procedure setupform; forward;

var TimesEaten,SuccessfulPickpockets,UnsuccessfulPickPockets,
Thievinglvlstart,Thievinglvlend,thievinglvlsgained,xp,
mancolor1,mancolor2,mancolor3,hptoeat,foodcolor: integer;
var name: string;
var food: boolean;
var MgoretoPickpocket: extended;
var
  cuser : integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label8 : TLabel;
  lbluser : Tlabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  ComboBox1 : TComboBox;
  Edit4 : TEdit;
  GroupBox1 : TGroupBox;
  ButtonBack : TButton;
  ButtonDelete : TButton;
  ButtonCreate : TButton;
  ButtonNext : TButton;
  ButtonSetup : TButton;
var
  frmDesign2 : TForm;
  LabelTitle : TLabel;
  LabelAuthor : TLabel;
  LabelEat : TLabel;
  LabelHP : TLabel;
  LabelMouse : TLabel;
  ComboBoxPick : TComboBox;
  ComboBoxEat : TComboBox;
  CheckBox1 : TCheckBox;
  EditHp : TEdit;
  EditMouse : TEdit;
  ButtonBacktosetup : TButton;
  ButtonStart : TButton;
  Memo1 : TMemo;

procedure AddUser;
begin
  SetArrayLength(Players, GetArrayLength(Players) + 1);
  Players[GetArrayLength(Players) - 1].Name := 'New Name';
  Players[GetArrayLength(Players) - 1].Pass := 'New Pass';
  Players[GetArrayLength(Players) - 1].Nick := 'New Nick';
  Players[GetArrayLength(Players) - 1].Active := True;
  Players[GetArrayLength(Players) - 1].Loc := 'New Location';
end;

procedure Inititate(Sender: TObject);
begin
  lblUser.Caption := IntToStr(cUser);
  Players[cUser].Nick := edit3.Text;
  Players[cUser].Name := edit1.Text;
  Players[cUser].Pass := edit2.Text;
  Players[cUser].integer1 := (strtoint(edit4.Text));
   if (combobox1.Text = 'True') then
    Players[cUser].Active := True
    else;
  if (combobox1.Text = 'False') then
  begin
    Players[cUser].Active := False;
  end;
  cUser := GetArrayLength(Players) - 1;
end;

procedure CreateUser(Sender: TObject);
begin
  Players[cUser].Nick := edit3.text;
  Players[cUser].Name := edit1.Text;
  Players[cUser].Pass := edit2.Text;
  Players[cUser].integer1 := (strtoint(edit4.Text));
   if (combobox1.Text = 'True') then
    Players[cUser].Active := True
    else;
  if (combobox1.Text = 'False') then
  begin
    Players[cUser].Active := False;
  end;
  AddUser;
  cUser := GetArrayLength(Players) - 1;
  lblUser.Caption := IntToStr(cUser);
  edit4.Text := inttostr(Players[cUser].integer1);
  edit3.text := Players[cUser].Nick;
  edit1.Text := Players[cUser].Name;
  edit2.Text := Players[cUser].Pass;
  if (Players[cUser].Active) then
    combobox1.Text := 'True'
  else;
  if (Players[cUser].Active= false) then
    combobox1.Text := 'False';
end;

procedure ForwardUser(Sender: TObject);
begin
  Players[cUser].Nick := edit3.Text;
  Players[cUser].Name := edit1.Text;
  Players[cUser].Pass := edit2.Text;
  Players[cUser].integer1 := strtoint(edit4.Text);
  if (combobox1.Text = 'True') then
    Players[cUser].Active := True
    else;
  if (combobox1.Text = 'False') then
  begin
    Players[cUser].Active := False;
  end;
  if (cUser + 1 > GetArrayLength(Players) - 1) then
    cUser := 0
  else
    cUser := cUser + 1;
  lblUser.Caption := IntToStr(cUser);
  edit4.Text := inttostr(Players[cUser].integer1);
  edit3.Text := Players[cUser].Nick;
  edit1.Text := Players[cUser].Name;
  edit2.Text := Players[cUser].Pass;
  if (Players[cUser].Active) then
    combobox1.Text := 'True'
    else;
  if (Players[cUser].Active= false) then
    combobox1.Text := 'False';
end;

procedure BackUser(Sender: TObject);
begin
  Players[cUser].Nick := edit3.Text;
  Players[cUser].Name := edit1.Text;
  Players[cUser].Pass := edit2.Text;
  Players[cUser].integer1 := strtoint(edit4.Text);
  if (combobox1.Text = 'True') then
    Players[cUser].Active := True
    else;
  if (combobox1.Text = 'False') then
  begin
    Players[cUser].Active := False;
  end;
  if (cUser - 1 < 0) then
    cUser := GetArrayLength(Players) - 1
  else
    cUser := cUser - 1;
  lblUser.Caption := IntToStr(cUser);
  edit4.Text := inttostr(Players[cUser].integer1);
  edit3.Text := Players[cUser].Nick;
  edit1.Text := Players[cUser].Name;
  edit2.Text := Players[cUser].Pass;
  if (Players[cUser].Active) then
    combobox1.Text := 'True'
  else
    combobox1.Text := 'False';
end;

procedure DeleteUser(Sender: TObject);
var
  lo, na, ni: string;
  ac: Boolean;
begin
  lo := Players[GetArrayLength(Players) - 1].Loc;
  na := Players[GetArrayLength(Players) - 1].Name;
  ni := Players[GetArrayLength(Players) - 1].Nick;
  ac := Players[GetArrayLength(Players) - 1].Active;
  Players[cUser].Loc := lo;
  Players[cUser].Name := na;
  Players[cUser].Nick := ni;
  Players[cUser].Active := ac;
  SetArrayLength(Players, GetArrayLength(Players) - 1);
  if (cUser + 1 > GetArrayLength(Players) - 1) then
    cUser := 0
  else
    cUser := cUser + 1;
  lblUser.Caption := IntToStr(cUser);
  edit4.Text := inttostr(Players[cUser].integer1);
  edit3.Text := Players[cUser].Nick;
  edit1.Text := Players[cUser].Name;
  edit2.Text := Players[cUser].Pass;
  if (Players[cUser].Active) then
    combobox1.Text := 'True'
  else
    combobox1.Text := 'False';
end;

procedure Start(Sender: TObject);
begin
  lblUser.Caption := IntToStr(cUser);
  edit4.Text := inttostr(Players[cUser].integer1);
  edit3.Text := Players[cUser].Nick;
  edit1.Text := Players[cUser].Name;
  edit2.Text := Players[cUser].Pass;
  if (Players[cUser].Active) then
    combobox1.Text := 'True'
  else
    combobox1.Text := 'False';
end;

Procedure Backtoform(sender: Tobject);
begin
  Loadus;
  frmDesign2.Modalresult:= mrOK;
  setupform;
  saveus;
end;

Procedure Eatbox;
begin
  if checkbox1.checked=true then
  food:=true
  if checkbox1.checked=false then
  food:=false;
end;

procedure Eatingat;
begin
  hptoeat:=strtoint(edithp.text);
end;

Procedure StartScript(sender: Tobject);
begin
  frmDesign2.Modalresult:= Mrok;
end;

Procedure ColorofPick;
begin
  case Comboboxpick.Text of
  'Man': begin
         mancolor1:= 7736695;
         mancolor2:= 7313605;
         mancolor3:= 14194830;
         name:= 'an';
         writeln('Man picked');
         end;
  'Guard':begin
          mancolor1:= 234;
          mancolor2:=2342;
          mancolor3:=453453;
          name:= 'uard';
          writeln('Guard picked');
          end;
  'Al-Kharid Warriors': begin
                       mancolor1:=1818072;
                       mancolor2:=8588932;
                       mancolor3:=4484245;
                       name:='harid'
                       writeln('Al-Kharid Warrior picked');
                       end;
  'Farmer': begin
            mancolor1:=14802398
            mancolor2:=8092539
            mancolor3:=593480
            name:='armer';
            writeln('Farmer picked');
            end;
  'Master Farmer':begin
                  mancolor1:=7378883;
                  mancolor2:=3367022;
                  mancolor3:=8554380;
                  name:='aster'
                  writeln('Master Farmer picked');
                  end;
  end;
end;

procedure Foodcombo;
begin
  case comboboxeat.text of
  'Lobster':foodcolor:=1798611;
  'Swordfish':foodcolor:=11888809;
  'Cake':foodcolor:=1385903;
  'Tuna':foodcolor:=10856901;
  end;
end;

procedure initform2;
begin
frmDesign2 := CreateForm;
frmDesign2.Left := 254;
frmDesign2.Top := 142;
frmDesign2.Width := 433;
frmDesign2.Height := 299;
frmDesign2.Caption := 'frmDesign2';
frmDesign2.Color := clBlack;
frmDesign2.Font.Color := clRed;
frmDesign2.Font.Height := -11;
frmDesign2.Font.Name := 'MS Sans Serif';
frmDesign2.Font.Style := [];
frmDesign2.Visible := false;
frmDesign2.PixelsPerInch := 96;
LabelTitle := TLabel.Create(frmDesign2);
LabelTitle.Parent := frmDesign2;
LabelTitle.Left := 185;
LabelTitle.Top := 8;
LabelTitle.Width := 108;
LabelTitle.Height := 24;
LabelTitle.Caption := 'Auto Thiever';
LabelTitle.Font.Color := clRed;
LabelTitle.Font.Height := -20;
LabelTitle.Font.Name := 'MS Sans Serif';
LabelTitle.Font.Style := [];
LabelTitle.ParentFont := False;
LabelAuthor := TLabel.Create(frmDesign2);
LabelAuthor.Parent := frmDesign2;
LabelAuthor.Left := 185;
LabelAuthor.Top := 32;
LabelAuthor.Width := 44;
LabelAuthor.Height := 13;
LabelAuthor.Caption := 'By: Jhildy';
LabelEat := TLabel.Create(frmDesign2);
LabelEat.Parent := frmDesign2;
LabelEat.Left := 50;
LabelEat.Top := 94;
LabelEat.Width := 22;
LabelEat.Height := 13;
LabelEat.Caption := 'Eat?';
LabelHP := TLabel.Create(frmDesign2);
LabelHP.Parent := frmDesign2;
LabelHP.Left := 30;
LabelHP.Top := 115;
LabelHP.Width := 56;
LabelHP.Height := 13;
LabelHP.Caption := 'Hp to eat at';
LabelMouse := TLabel.Create(frmDesign2);
LabelMouse.Parent := frmDesign2;
LabelMouse.Left := 30;
LabelMouse.Top := 155;
LabelMouse.Width := 66;
LabelMouse.Height := 13;
LabelMouse.Caption := 'Mouse Speed';
CheckBox1 := TCheckBox.Create(frmDesign2);
CheckBox1.Parent := frmDesign2;
CheckBox1.Left := 30;
CheckBox1.Top := 92;
CheckBox1.Width := 18;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Eat?';
CheckBox1.TabOrder := 15;
ComboBoxPick := TComboBox.Create(frmDesign2);
ComboBoxPick.Parent := frmDesign2;
ComboBoxPick.Left := 30;
ComboBoxPick.Top := 60;
ComboBoxPick.Width := 145;
ComboBoxPick.Height := 21;
ComboBoxPick.ItemHeight := 13;
ComboBoxPick.TabOrder := 8;
ComboBoxPick.Text := 'What to Pickpocket';
ComboBoxPick.Items.Add('Man');
ComboBoxPick.Items.Add('Guard');
ComboBoxPick.Items.Add('Master Farmer');
ComboBoxPick.Items.Add('Farmer');
ComboBoxPick.Items.Add('Al-Kharid Warriors');
ComboBoxEat := TComboBox.Create(frmDesign2);
ComboBoxEat.Parent := frmDesign2;
ComboBoxEat.Left := 80;
ComboBoxEat.Top := 90;
ComboBoxEat.Width := 145;
ComboBoxEat.Height := 21;
ComboBoxEat.ItemHeight := 13;
ComboBoxEat.TabOrder := 9;
ComboBoxEat.Text := 'What to Eat';
ComboBoxEat.Items.Add('Cake');
ComboBoxEat.Items.Add('Lobster');
ComboBoxEat.Items.Add('Swordfish');
ComboBoxEat.Items.Add('Tuna');
EditHp := TEdit.Create(frmDesign2);
EditHp.Parent := frmDesign2;
EditHp.Left := 30;
EditHp.Top := 130;
EditHp.Width := 121;
EditHp.Height := 21;
EditHp.TabOrder := 10;
EditHp.Text := '15';
EditMouse := TEdit.Create(frmDesign2);
EditMouse.Parent := frmDesign2;
EditMouse.Left := 30;
EditMouse.Top := 170;
EditMouse.Width := 121;
EditMouse.Height := 21;
EditMouse.TabOrder := 11;
EditMouse.Text := '12';
ButtonBacktosetup := TButton.Create(frmDesign2);
ButtonBacktosetup.Onclick :=@Backtoform;
ButtonBacktosetup.Parent := frmDesign2;
ButtonBacktosetup.Left := 74;
ButtonBacktosetup.Top := 200;
ButtonBacktosetup.Width := 126;
ButtonBacktosetup.Height := 25;
ButtonBacktosetup.Caption := 'Back to Player Setup';
ButtonBacktosetup.TabOrder := 13;
ButtonStart := TButton.Create(frmDesign2);
ButtonStart.Onclick :=@StartScript;
ButtonStart.Parent := frmDesign2;
ButtonStart.Left := 269;
ButtonStart.Top := 200;
ButtonStart.Width := 74;
ButtonStart.Height := 25;
ButtonStart.Caption := 'Start';
ButtonStart.TabOrder := 14;
Memo1 := TMemo.Create(frmDesign2);
Memo1.Parent := frmDesign2;
Memo1.Left := 230;
Memo1.Top := 70;
Memo1.Width := 189;
Memo1.Height := 99;
Memo1.Lines.Add('Thanks for using Jhildy'#39's Auto Thiever.');
Memo1.Lines.Add('Besure to post progress reports on the');
Memo1.Lines.Add('website if you want this to continue to');
Memo1.Lines.Add('improve.');
Memo1.Lines.Add('');
Memo1.Lines.Add('Happy autoing.');
Memo1.TabOrder := 15;
end;

procedure safeinitform2;
var
  c: TVariantArray;
begin
  setarraylength(c, 0);
  ThreadSafeCall('initform2', c);
end;

procedure ShowFormModal2;
begin
  frmDesign2.ShowModal;
end;

procedure SafeShowFormModal2;
var
  c: TVariantArray;
begin
  setarraylength(c, 0);
  ThreadSafeCall('ShowFormModal2', c);
end;

Procedure Moresetup(sender: TObject);
begin
  frmdesign.ModalResult:= mrOk;
  Safeinitform2;
  safeShowformmodal2;
end;

procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 254;
frmDesign.Top := 83;
frmDesign.Width := 568;
frmDesign.Height := 341;
frmDesign.Caption := 'Auto Thiever';
frmDesign.Color := clBlack;
frmDesign.Font.Color := clRed;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
frmDesign.OnShow := @Start;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 252;
Label1.Top := 10;
Label1.Width := 108;
Label1.Height := 24;
Label1.Caption := 'Auto Thiever';
Label1.Font.Color := clRed;
Label1.Font.Height := -20;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 252;
Label2.Top := 34;
Label2.Width := 44;
Label2.Height := 13;
Label2.Caption := 'By: Jhildy';
Label2.Font.Color := clRed;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 78;
Label3.Top := 57;
Label3.Width := 48;
Label3.Height := 13;
Label3.Caption := 'Username';
Label3.Font.Color := clRed;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 78;
Label4.Top := 103;
Label4.Width := 46;
Label4.Height := 13;
Label4.Caption := 'Password';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 78;
Label5.Top := 149;
Label5.Width := 22;
Label5.Height := 13;
Label5.Caption := 'Nick';
lbluser := TLabel.Create(frmDesign);
lbluser.Parent := frmDesign;
lbluser.Left := 497;
lbluser.Top := 27;
lbluser.Width := 32;
lbluser.Height := 13;
lbluser.Caption := IntToStr(cUser);
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 78;
Label6.Top := 195;
Label6.Width := 51;
Label6.Height := 13;
Label6.Caption := 'How Many?';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 78;
Label8.Top := 241;
Label8.Width := 36;
Label8.Height := 13;
Label8.Caption := 'Active?';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 78;
Edit1.Top := 73;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.Font.Color := clRed;
Edit1.Font.Height := -11;
Edit1.Font.Name := 'MS Sans Serif';
Edit1.Font.Style := [];
Edit1.ParentFont := False;
Edit1.TabOrder := 0;
Edit1.Text := 'Username';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 78;
Edit2.Top := 119;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 1;
Edit2.Text := 'Password';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 78;
Edit3.Top := 165;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 2;
Edit3.Text := 'Nick';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 78;
ComboBox1.Top := 255;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.Hint := 'Player Active?';
ComboBox1.DropDownCount := 2;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 3;
ComboBox1.Text := 'Active';
ComboBox1.Items.Add('True');
ComboBox1.Items.Add('False');
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 78;
Edit4.Top := 211;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 4;
Edit4.Text := 'How Many to Pick';
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 313;
GroupBox1.Top := 84;
GroupBox1.Width := 234;
GroupBox1.Height := 92;
GroupBox1.Caption := 'Player Control';
GroupBox1.TabOrder := 5;
ButtonBack := TButton.Create(GroupBox1);
ButtonBack.OnClick :=@BackUser;
ButtonBack.Parent := GroupBox1;
ButtonBack.Left := 11;
ButtonBack.Top := 46;
ButtonBack.Width := 35;
ButtonBack.Height := 25;
ButtonBack.Caption := '<=';
ButtonBack.TabOrder := 0;
ButtonDelete := TButton.Create(GroupBox1);
ButtonDelete.Onclick :=@DeleteUser;
ButtonDelete.Parent := GroupBox1;
ButtonDelete.Left := 50;
ButtonDelete.Top := 46;
ButtonDelete.Width := 70;
ButtonDelete.Height := 25;
ButtonDelete.Caption := 'Delete Player';
ButtonDelete.TabOrder := 1;
ButtonCreate := TButton.Create(GroupBox1);
ButtonCreate.OnClick := @Createuser;
ButtonCreate.Parent := GroupBox1;
ButtonCreate.Left := 123;
ButtonCreate.Top := 46;
ButtonCreate.Width := 70;
ButtonCreate.Height := 25;
ButtonCreate.Caption := 'Create Player';
ButtonCreate.TabOrder := 2;
ButtonNext := TButton.Create(GroupBox1);
ButtonNext.OnClick :=@Forwarduser;
ButtonNext.Parent := GroupBox1;
ButtonNext.Left := 196;
ButtonNext.Top := 46;
ButtonNext.Width := 35;
ButtonNext.Height := 25;
ButtonNext.Caption := '=>';
ButtonNext.TabOrder := 3;
ButtonSetup := TButton.Create(frmDesign);
ButtonSetup.OnClick :=@moresetup;
ButtonSetup.Parent := frmDesign;
ButtonSetup.Left := 325;
ButtonSetup.Top := 255;
ButtonSetup.Width := 136;
ButtonSetup.Height := 25;
ButtonSetup.Caption := 'More Setup';
ButtonSetup.TabOrder := 6;
end;

procedure SafeInitForm;
var
  c: TVariantArray;
begin
  setarraylength(c, 0);
  ThreadSafeCall('InitForm', c);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

Procedure Setupform;
begin
  if (GetArrayLength(Players) = 0) then
    AddUser;
  Safeinitform;
  Safeshowformmodal;
end;

procedure sig;
begin
  cleardebug;
  writeln('        __   __   __   _______   __        ___         ');
  writeln('       |  | |  | |  | |__   __| |  |      |    \       ');
  writeln('       |  | |  |_|  |    | |    |  |      |     \      ');
  writeln('  __   |  | |  |_|  |    | |    |  |      | |\  |     ');
  writeln(' |  \--/  | |  | |  |  __| |__  |  |____  | |/  |     ');
  writeln('  \_______| |__| |__| |_______| |_______| |_____/      ');
end;

function findjail: boolean;
var dacage,x,y: integer;
begin
  dacage:=Createbitmapmaskfromtext('da cage',upchars);
  if findname=true then
  begin
    if findbitmapmasktolerance(dacage,x,y,3,3,515,336,0,40) then
    Result:=true;
    nextplayer(false);
  end;
end;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 9 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;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
      9:  if findjail then
          result:=true;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  if findfight then
  runawaydirection('S');
  wait(10000+random(3000));
  runback;
end;

function waituntil(what: boolean;repeated: integer): boolean;
var i: integer;
begin
  i:=0;
  repeat
    i:=i+1;
    begin
      wait(1);
    end;
  until(what = true) or (i=repeated);
  result:=true;
end;

function GetLastChatTextblack(chat: string): Boolean;//changed to any color
var
  textx, texty: Integer;
begin
  if (IsTextInAreaEx(40, 415, 130, 415, textx, texty, '.', 0, smallchars, False,
   True, 0, 0, 0)) then
  begin
    chat := LowerCase(Trim(GetTextAtEx(textx + 8, 415, 0, SmallChars, False,
     False, 0, 1, 0, 40, False, tr_allChars)));
    Result := True;
  end;
end;

function FindPopUp(Option: string): Boolean;//i just edited it so it wouldnt click
var
  Top, Bottom: TPoint;
  dtmTop, dtmBottom, x, y: Integer;
begin
  dtmTop := DTMFromString('78DA63146464606801622C0026CA28006435A' +
    '3AA890D7147552345841A90393D04D4880259DD04D4880359ED04' +
    'D4280059AD04FC2504644DC4AF06000DC909E0');
  dtmBottom := DTMFromString('78DA635CCCC8C070198891406C883B9886893' +
    '22E02B22EA1AA8101B89A8540D64522CCB948843984EC02B9F910' +
    '01BBA610E1AF6944D80572F311026AE6005967F0DB05007BD4134' +
    '5');
  if (FindDTM(dtmTop, Top.x, Top.y, 10, 10, 764, 502) and FindDTM(dtmBottom,
    Bottom.x, Bottom.y, Top.x, Top.y, 764, 502)) then
    if (FindText(x, y, Option, upchars, 0, 0, Bottom.x, Bottom.y)) then
    begin
      Result := True;
      Wait(150 + Random(200));
    end else
      if (FindText(x, y, 'Cancel', upchars, Top.x, Top.y, Bottom.x, Bottom.y))
        then
        Mouse(x + 3, y + 2, 4, 3, True);
  FreeDTM(dtmTop);
  FreeDTM(dtmBottom);
end;

function pickpocketsmaster: boolean;
var v,b,r: integer;
begin
  r:= createbitmapmaskfromtext('Cor blimey',upchars);
  if Findbitmapmasktolerance(r,v,b,0,0,700,700,5,60) or
     (getlastchattextblack('I can')) then
  begin
    result:=false;
  end else;
  if getlastchattextblack('You steal') then
  begin
    result:=true;
  end;
  freebitmap(r);
end;


function pickpockets: boolean;
var v,b,r: integer;
begin
  r:= createbitmapmaskfromtext('What do you think',upchars);
  if Findbitmapmasktolerance(r,v,b,0,0,700,700,5,60) or
     (getlastchattextblack('I can')) then
  begin
    result:=false;
  end else;
  if getlastchattextblack('You pick the') then
  begin
    result:=true;
  end;
  freebitmap(r);
end;

Procedure Autorespond;
begin
  if FindChattext('Thieving lvl') or FindChattext('Thieving level')
  or FindChattext('Thieve lvl') or FindChattext('Thieve level') or
     FindChattext('Theiving lvl') then
  begin
    case random(3) of
    1: typesend(inttostr(getskilllevel('thieving'))+' u');
    2: typesend(inttostr(getskilllevel('thieving')));
    3: typesend('my thieving is '+(inttostr(getskilllevel('thieving'))));
    end;
  end;
end;

procedure antiban;
begin
  case random(30) of

    1: Hoverskill('thieving',false);

    2: Pickupmouse;

    3: begin
         hoverskill('random',true);
         wait(1000+random(500));
         CloseWindow;
       end;

    4: almostlogout;

    5: Hoverskill('thieving',false);
  end;
end;

Function Findandpickpocket(x, y, Color1, color2, color3: integer; name1: string): boolean;
var i,v,b,man: integer;
begin
  man:= Createbitmapmaskfromtext(name1,upchars);
  i:=0;
  i:=i+1;
  if findcolortolerance(x,y,color1,1,1,700,700,2) or
     findcolortolerance(x,y,color2,1,1,700,700,2) or
     findcolortolerance(x,y,color3,1,1,700,700,2) then
  begin
    Mouse(x,y,0,0,false);
    if findpopup(name1) or
    (findbitmapmasktolerance(man,v,b,0,0,516,39,5,50)) then
    begin
      Popup('ickpock');
      wait(1000+random(1000));
    end;
    if comboboxpick.text = 'Master Farmer' then
    begin
      if (pickpocketsMaster=true) then
      begin
        findrandoms;
        result:=true;
        DisguiseScar('successful');
        wait(2000+random(1000));
        DisguiseScar('Trying again');
        successfulPickpockets:=successfulPickpockets+1;
        disguisescar(inttostr(successfulpickpockets-1)+' sucess '+
        inttostr(unsuccessfulpickpockets)+' unsuccess');
      end else;
      if (pickpockets=false) then
      begin
        findrandoms;
        Result:=false;
        UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
        disguisescar(inttostr(successfulpickpockets-1)+' success '+
        inttostr(unsuccessfulpickpockets)+' unsuccess');
      end;
    end else;
    if (pickpockets=true) then
    begin
      findrandoms;
      result:=true;
      DisguiseScar('successful');
      wait(2000+random(1000));
      DisguiseScar('Trying again');
      successfulPickpockets:=successfulPickpockets+1;
      disguisescar(inttostr(successfulpickpockets-1)+' sucess '+
      inttostr(unsuccessfulpickpockets)+' unsuccess');
    end else;
    if (pickpockets=false) then
    begin
      findrandoms;
      Result:=false;
      UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
      disguisescar(inttostr(successfulpickpockets-1)+' success '+
      inttostr(unsuccessfulpickpockets)+' unsuccess');
    end;
  end;
end;

Function checkHp(Eatat: integer): boolean;
var l: integer;
Begin
  Gametab(2);
  l:=getHp;
  if l <= Eatat then
  begin
    result:=false;
  end else;
  result:=true;
end;

function eat(coloroffood: integer): boolean;
var x,y: integer;
begin
  Findcolortolerance(x,y,coloroffood,1,1,700,700,3);
  wait(50+random(30));
  MMouse(x,y,0,0);
  if isuptext('at') then
  begin
    Mouse(x,y,0,0,true);
    result:=true;
  end else;
  result:=false;
end;

procedure rotate;
begin
  case random(4) of

    1: makecompass('w');

    2: makecompass('s');

    3: makecompass('n');

    4: makecompass('e');
  end;
end;

procedure eating;
begin
  if (food = true) then
  begin
    if (checkhp(Hptoeat) = false) then
    begin
      eat(foodcolor);
      Timeseaten:=timeseaten+1;
    end;
  end else;
end;

function pickpocket: boolean;
begin
  begin
    if Findandpickpocket(x,y,mancolor1,mancolor2,mancolor3,name) = false then
    begin
      result:=false;
      rotate;
      autorespond;
      antiban;
      eating;
    end else;
    if Findandpickpocket(x,y,mancolor1,mancolor2,mancolor3,name) = true then
    begin
      result:=true;
      autorespond;
    end;
  end;
end;

Procedure Progress;
begin
  cleardebug;
  Thievinglvlsgained:=(thievinglvlstart-thievinglvlend);
  Xp:=Xptilnextlevel('thieving',false);
  Mgoretopickpocket:=(xp/8);
  Writeln('Auto Thiever By: Jhildy');
  Writeln(Inttostr(successfulpickpockets)+' sucessful pickpockets');
  writeln(inttostr(unsuccessfulpickpockets)+' unsucessful pickpockets');
  Writeln('Gained '+inttostr(thievinglvlsgained)+' thieving levels');
  Writeln('ate '+inttostr(timeseaten)+' times');
  writeln(inttostr(Xp)+' xp till next thieving level');
  writeln(Floattostr(Mgoretopickpocket)+' more men to pickpocket until next level');
  writeln('ran for '+timerunning);
end;


procedure main;
begin
  SetupSRL;
  sig;
  LoadUs;
  Cuser:=0
  setupform;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  SaveUs;
  Eatbox;
  Eatingat;
  writeln('Eating: '+booltostr(food));
  writeln('Eating at: '+inttostr(hptoeat)+' hp');
  Colorofpick;
  activateClient;
  sig;
  Mousespeed:=strtoint(Editmouse.text);
  writeln('Mouse speed: '+Editmouse.text);
  loginplayer;
  repeat
    SuccessfulPickpockets:=1;
    unSuccessfulPickpockets:=0;
    SetRun(true);
    ThievinglvlStart:=GetSkillLevel('thieving');
    pickpocket;
    ThievingLvlend:=getSkilllevel('thieving');
    Progress;
  until(players[currentplayer].integer1<=successfulpickpockets)
  Nextplayer(true);
end;

begin
main;
SRLRandomsReport;
end.

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

You didn't wait a month before re-applying…

wow sorry i didnt notice that i thought it had been a month

Edit: i misunderstood what Boreas tutorial on how to be a noob meant. i thought it wouldn't let me post if it hadn't been a month wow i'm so sorry everyone.

Ehh close enough. I'll see what other people say first.

just out of curiosity what would you say to this

I'm not sure, but I found a problem. On the loadDTM procedure, it's not loading a DTM. It's storing it temporarily in a variable. Once that procedure is over, it's nothing. But other than that, I can't find anything wrong. I'm kind of stuck in the middle though…

I voted yes.

I like the form, some nice functions.

  if findfight then
  runawaydirection('S');
  wait(10000+random(3000));
  runback;

Should be:

 
if findfight then
begin 
  runawaydirection('S');
  wait(10000+random(3000));
  runback;
end;

Shouldn't it? I'll hold my vote for now :x

Doesn't matter because it only happens if it finds a fight so you want all that to happen but I suppose if for some reason it didn't run away it would do the things anyways but I don't know why it wouldn't run away.

For the vote, I'm not sure yet. I will hold my vote off for a little but and see what other people vote.

Hmm… Tough one..

ty for the replys sorry for that 1 month thing…

Sweet forms…although I like mine more…;)

I'll vote yes…nothing not to vote for…

Yes

thanks everyone so much!
how long do they wait until they make members out of these. 24 hours?

About a week or two, sorry :(
EDIT: The poll shows one week from today.

so next thursday i will know man im leaving for florida at 2

Looks like a cool script.

I don't like that so many people seem to be using massive forms these days (adduser, forwarduser, I think I've seen those maany times)… BUT, the script is nice and you're quite active so.. YES :)

Actually, not many people have used it…only me, MOB and jhildy. I'd like to know how he knew about it though…:p

Yes I must confess, my forms are very big.

well i think big forms make the script look neater and more user friendly

If only everyone agreed…

Yea.. I just don't like it when there's like +1k lines of forwarding players and such :p But I said yes..

well i had to get it done somehow i couldnt really shorten it that much but thanks for voting yes

There's like, No walking. None! Sure great form, but that + stuff that isn't yours is over 70% of the script. I like the form, don't get me wrong.
You need to have some radial walking in there, some color finding in there. Walking is about the hardest thing to do, because so many things can go wrong.
I need to see how you handle what happens if the road color changes, or if you can't find the symbol, etc. I think that this script is too simple, there isn't really anything that can go wrong.
(Other than the randoms that srl takes care of.. and eating)
And what about banking (the reason most scripts have to walk) what happens if you have a full inventory of herbs? Ok, i know that this script would be unable to be so diverse if you included that in, but I would like to see some more.
Sorry If it sound's like I am being harsh, I dont mean to, once again, you do have a really good script. I would just like you to demonstrate your ability a little bit more.

well even if you voted no i thank you for your reply i like to get feedback even if it isnt good.

Now that's the attitude I like!

I havent givven out a yes in a while, so yes. =)

phew i keep getting nervous and then i come back and theres more yesses. thanks all.

From: YoHoJo
I havent givven out a yes in a while, so yes. =)

You gave me a yes…which was like 1 week ago…Lmao…

From: SantaClause
If only everyone agreed…

I think forms are nice. Another yes to add to your jar? lols.

From: lordgreggreg1
There's like, No walking. None! Sure great form, but that + stuff that isn't yours is over 70% of the script. I like the form, don't get me wrong.
You need to have some radial walking in there, some color finding in there. Walking is about the hardest thing to do, because so many things can go wrong.
I need to see how you handle what happens if the road color changes, or if you can't find the symbol, etc. I think that this script is too simple, there isn't really anything that can go wrong.
(Other than the randoms that srl takes care of.. and eating)
And what about banking (the reason most scripts have to walk) what happens if you have a full inventory of herbs? Ok, i know that this script would be unable to be so diverse if you included that in, but I would like to see some more.
Sorry If it sound's like I am being harsh, I dont mean to, once again, you do have a really good script. I would just like you to demonstrate your ability a little bit more.

just as a heads up, walking isn't required for an application but it is a big booster

yea i know but i cant think of a way to put walking in this script.

your waituntil procedure wouldn't work. The variable will always be True/False after being entered.

From: jhildy
yea i know but i cant think of a way to put walking in this script.

Well, I do know that putting in walking for all of the options you have would be nearly impossible. You could make another simple script, or you could add in walking/banking herbs for the farmer one.

Also, I'm not saying that I'm turning down your aplication just because it didn't have walking or banking. It's just because I havn't seen enough demonstration on some of the more tricky parts of scripting.

It's still a great application, I'm just wanting a little bit more is all.

From: The_Rs_Monkey
your waituntil procedure wouldn't work. The variable will always be True/False after being entered.

worked for me

my bad…

From: jhildy
ok not to double post but how come dan cardin applied like 3 days after me and he became a member before me

Then use the edit button ?!?
No Offense, but common sense should answer your question for you ?
Probably because he applied with a better script or demonstrated a better understanding of the principles….
There is no set rules on acceptance as a member, some are accepted on the first day of their 1 st application, some people it takes several tries….

As far as yours…I'm not a fan of forms or impatient people….

Good Luck,

~RAM

Once its clear that their are more yeses than no's and an Admin comes around you will be accepted.

because mine was so amazing that people voted faster:p

its a good script…but i think walking and banking would be nice(not that it would really work, but maybe add another simple script with them?)

iim voting yes

No!!! I wont let you be a member!!!
I have 13 autoed SRL Member accounts. Thats right, my script makes them make intelegent posts, while working on a script that folows the most recent tutorials in the background. They don't even have to have PM's turned off!
Be prepared for 13 NO's wha ha hahahaahahahahaahahaha

lol, um not really. Anyhows, good luck. Sometimes if an admin feels like the race is a little too close to call, they may let it run for a few more days to see what happens.

again i apologise i am very tense right now a cop drove me home because i was walking at night and im nervous at what my parents are going to do(even though i technically did nothing wrong) and u no i just saw that and freaked out.

From: dan cardin
because mine was so amazing that people voted faster:p

its a good script…but i think walking and banking would be nice(not that it would really work, but maybe add another simple script with them?)

iim voting yes

Woah their partner, Don't let your ego get to carried away, you do have some talet, but it wasn't an amazing application, as evidenced by the amout of Nos you recieved…Also, maybe you can read over this when you get a chance ;) …….. http://www.villavu.com/forum/showthread.php?t=1288

i sense sarcasm in dan's voice.

From: RAM_RUNE
Woah their partner, Don't let your ego get to carried away, you do have some talet, but it wasn't an amazing application, as evidenced by the amout of Nos you recieved…Also, maybe you can read over this when you get a chance ;) …….. http://www.villavu.com/forum/showthread.php?t=1288

Not when he gets a chance, before he votes he needs to read that even if he was sarcastic.

well i don't know what it is so sorry.

its tells you how to vote good reasons to vote yes and no and stuff like that

No. Did you even test it with multiple players?

two i cant get a hold of many member accounts.

Oops I forgot. Add an little f2p script with proper playerswitching and you're in.

Awww…Ram Rune's a mod!

From: Boreas
Oops I forgot. Add an little f2p script with proper playerswitching and you're in.

well that sucks, cux i'm not sure if he's gonna get the message cuz he's leaving

Leaving…? Going where?

going to florida in 3.5 hours ok im going to try real hard because id like to know that im in before i leave.

k it may not be good but it switches players and im leaving soon wont be back for 9 days so bye.

program New;
{.include SRL/SRL.scar}
{.include SRL/SRl/Skill/Mining.scar}
var RocksMined,loads: integer;
var Mined: boolean;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.


  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';//3-4 letters of username
  Players[0].Active := True;
  Players[0].Integer1 := 1;// how many loads to mine
  Players[0].Integer2 := 8224392;// color of rock

  Players[1].Name := '';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'sern';
  Players[1].Active := false;
  Players[1].Integer1 := 10;
  Players[1].Integer2 := ;// color

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;
  Players[2].Integer1 := 1;
  Players[2].Integer2 := ;// color

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;
  Players[3].Integer1 := 1;
  Players[3].Integer2 := ;// color

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;
  Players[4].Integer1 := 1;
  Players[4].Integer2 := ;// color

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;
  Players[5].Integer1 := 1;
  Players[5].Integer2 := ;// color
end;

function FindPopUp(Option: string): Boolean;//i just edited it so it wouldnt click
var
  Top, Bottom: TPoint;
  dtmTop, dtmBottom, x, y: Integer;
begin
  dtmTop := DTMFromString('78DA63146464606801622C0026CA28006435A' +
    '3AA890D7147552345841A90393D04D4880259DD04D4880359ED04' +
    'D4280059AD04FC2504644DC4AF06000DC909E0');
  dtmBottom := DTMFromString('78DA635CCCC8C070198891406C883B9886893' +
    '22E02B22EA1AA8101B89A8540D64522CCB948843984EC02B9F910' +
    '01BBA610E1AF6944D80572F311026AE6005967F0DB05007BD4134' +
    '5');
  if (FindDTM(dtmTop, Top.x, Top.y, 10, 10, 764, 502) and FindDTM(dtmBottom,
    Bottom.x, Bottom.y, Top.x, Top.y, 764, 502)) then
    if (FindText(x, y, Option, upchars, 0, 0, Bottom.x, Bottom.y)) then
    begin
      Result := True;
      Wait(150 + Random(200));
    end else
      if (FindText(x, y, 'Cancel', upchars, Top.x, Top.y, Bottom.x, Bottom.y))
        then
        Mouse(x + 3, y + 2, 4, 3, True);
  FreeDTM(dtmTop);
  FreeDTM(dtmBottom);
end;

procedure equipifpossible;
begin
  if equippick = false then
  begin
    MMouseitem(1);
    wait(100+random(50));
    if isuptext('Wield') then
    begin
      Mouseitem(1,true);
      wait(100+random(50));
      if findblackchatmessage('ou need to') then
      begin
        writeln('unable to wield pick');
      end;
    end else;
    writeln('no pick in inventory');
  end else;
  writeln('pick wielded');
end;

function Pickwielding: boolean;
var nopick: boolean;
begin
  findpickheadcolor;
  wait(40+random(30));
  if equippick=false then
  begin
    writeln('Pick is not equipped');
    equipifpossible;
  end;
  if equippick=true then
  begin
    writeln('Pick is equipped');
  end;
  if findpickheadcolor=false then
  begin
    Disguisescar('Error, No pickaxe');
    nopick:=true;
    result:=false;
  end else;
  begin
    disguisescar('Found Pickaxe');
    nopick:=false;
    result:=true;
  end;
end;

procedure randoms;
begin
  if findgas(x,y) then
  runawaydirection('n');
  FindnormalRandoms;
end;

procedure FindRocks;
begin
  Mined:=false;
  if (not(loggedin)) then
  exit
  else;
  repeat
    if FindColortolerance(x,y,players[currentplayer].integer2,MSX1,MSY1,MSX2,MSY2,10)  then
    begin
      wait(60+random(60));
      Mouse(x,y,1,1,false);
      randoms;
      wait(100+random(100));
      if  findpopup('Mine') then
      begin
        popup('Mine');
        Mined:=true;
        randoms;
      end;
    end;
  until(Mined=true);
end;

function waituntil(what: boolean;repeated: integer): boolean;
var i: integer;
begin
  i:=0;
  repeat
    i:=i+1;
    wait(1);
  until(what = true) or (i=repeated);
  result:=true;
end;

procedure antiban;
begin
  case random(10) of
  1: hoverskill('Mining',false);
  2: hoverskill('Random',false);
  end;
end;

Procedure Mine;
begin
  if (not(loggedin)) then exit;
  repeat
    repeat
      Findrocks;
      antiban;
      waituntil(Findblackchatmessage('manage'),10000);
    until(invfull);
    if equippick=true then
    dropall
    else; 
    dropto(2,28);
    loads:=loads+1;
    randoms;
  until(players[currentplayer].integer1>=loads);
  nextplayer(true);
end;



begin
activateclient;
setupsrl;
setupsrlmining;
declareplayers;
loginplayer;
if (Pickwielding=false) then
nextplayer(false)
else;
repeat
Mine;
until(false);
end.

That's not quite right either, but then again there isn't a good tut on it. I'll let you in for now, but when I write a tut on playerswitching make sure you read it.

From: Boreas
That's not quite right either, but then again there isn't a good tut on it. I'll let you in for now, but when I write a tut on playerswitching make sure you read it.

Hey. My tut owns on player switching! :p (Learning the things to become a SRL member)

@ iloveit8 and JAD: I should have said there isn't a complete tut.