Results 1 to 11 of 11

Thread: Cut,String & alch

  1. #1
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Cut,String & alch

    i didnt want to be a leacher so i made a script, i know there are a couple errors if anyone could help it would be MUCH appreciated. Please don't dl it and complain stuff doesnt work its unhelpful and i already know there are small errors.
    1. When Stringing just 1 bow it will withdraw 1 bow(u) and 1 string (which it should) then will try withdraw all.
    2. Will not autowithdraw knife at start ( have not put in code yet will sort later)
    3. Bank opener is not very good - i dont know which is best to use for this


    Anyway hope someone will find useful, have learnt a lot making it so enjoy and post useful critcism please.

    SCAR Code:
    {
    Put logs in first bank slot, bow strings in second
    Have atleast one bow(u) in slot 3 (or just place holder if just alching/cutting)
    have nats in slot 4 and in slot 5 have a finished bow(atleast one)
    or the item you wish to alch

    Have knife in inv slot 1 if you are cutting

    have fun:)


    author: Moggy
    }

    program StringAndAlch;
    {.include SRL\SRL.scar}
      var
        NumCut,NumStrung,NumAlched: Integer;
        NumToTake,NumToTakeS: Integer;
        NumToCut,WhichType: String;
        DoingNow: Integer;
        Sleepy1,Sleepy2,Sleepy3: Integer;
        HighAlch, LowAlch: Integer; //DTM
        CanAlch: Boolean;
        x3,y3: Integer;
        frmDesign : TForm;
        Label1 : TLabel;
        Label2 : TLabel;
        Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label10 : TLabel;
        Edit1 : TEdit;
        Edit2 : TEdit;
        Edit3,Edit4,Edit5,Edit6,Edit7 : TEdit;
        Button1 : TButton;
        Username,Password,Nick,pin : String;
        ComboBox1,ComboBox2,ComboBox3 : TComboBox;
        DoAlching,DoStringing,DoCutting : Boolean;
        MaxCut,MaxString,MaxAlch : Integer;



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

        Players[0].Name := Username;
        Players[0].Pass := Password;
        Players[0].Nick := Nick;
        Players[0].Active :=True;
    end;

    Procedure Setup;
      begin
        ActivateClient;
        SetUpSRL;
        DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
        Username := Edit1.Text;
        Password := Edit2.Text;
        Nick := Edit3.Text;
        MaxCut := StrToInt(Edit4.Text);
        MaxString := StrToInt(Edit5.Text);
        MaxAlch := StrToInt(Edit6.Text);
        pin := Edit7.Text;
         case ComboBox1.Text of
          'Shorts' :
            begin
              DoCutting := True;
              WhichType := 'Shorts';
            end;
          'SLongs' :
            begin
              DoCutting := True;
              WhichType := 'Longs';
            end;
          'Stocks' :
            begin
              DoCutting := True;
              WhichType := 'Stocks';
            end;
          'False' : DoCutting := False;
         end;

         case ComboBox2.Text of
          'True' : DoStringing := True;
          'False' : DoStringing := False;
         end;

         case ComboBox3.Text of
          'True' : DoAlching := True;
          'False' : DoAlching := False;
         end;
        DeclarePlayers;
        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      end;

    Procedure RandomExamine;
      var
        x2,y2: Integer;

      begin
        MouseBox(9,10,504,322,2);
        Wait(700+Random(350));
        ChooseOption(x2,y2, 'xamine');
        Wait(100+Random(350));
      end;

    procedure Spin;
      var
        SpinArray : Array[0..3] of Char;
          begin
            SpinArray[0] := 'n';
            SpinArray[1] := 'e';
            SpinArray[2] := 's';
            SpinArray[3] := 'w';
              MakeCompass(SpinArray[Random(4)]);
            MakeCompass('n');
          end;

    procedure SpinR;
      begin
        KeyDown(40);
        Sleep(1000 +Random(421)+Random(123));
        KeyDown(39);
        Sleep(1000 +Random(421)+Random(123));
          case Random(2) of
            0:
              Begin
                KeyUp(39);
                Wait(10+random(19));
                KeyUp(40);
                Wait(random(100));
              end;
            1:
              Begin
                KeyUp(40);
                Wait(10+random(19));
                KeyUp(39);
                Wait(random(100));
              end;
        end;
      end;

    procedure SpinLU;
      begin
        KeyDown(37);
        Sleep(1000 +Random(421)+Random(123));
        KeyDown(38);
        Sleep(1000 +Random(421)+Random(123));
          case Random(2) of
            0:
              Begin
                KeyUp(37);
                Wait(10+random(19));
                KeyUp(38);
                Wait(random(100));
              end;
            1:
              Begin
                KeyUp(38);
                Wait(10+random(19));
                KeyUp(37);
                Wait(random(100));
              end;
        end;
      end;

    procedure BoredTalk;
      begin
        case Random(9) of
          0: TypeSend('Doooodeeedoooo');
          1: TypeSend('why is this so boring *cries*');
          2: TypeSend('BawChikaWahwaahh');
          3: TypeSend('Come on you stunts let''s have some aphex acid!');
          4: TypeSend('What is the world coming too?');
          5: TypeSend('Le''mme alone, i dont wanna trade with you');
          6: TypeSend('Shut up');
          7: TypeSend('come on ailine');
          8: TypeSend('Dance!');
        end;
       end;

    function OpenBank6: Boolean; //modded from one in SRL by Stupid3ooo  / Mutant Squirrle
      var
      c: Integer;
      begin
        MakeCompass('n');
        if (FindObj(x, y, 'Use Bank', 539728, 10)) then
        begin
          Mouse(x, y, 1, 1, False);
            if (ChooseOption(x, y, 'quickly')) then
              begin
                Flag;
              repeat
                Wait(100);
                c := c + 1
              until (BankScreen) or (c >= 50) or PinScreen;
            end;
        end;

      if BankScreen then
        Begin
          Result := True;
        end;

      if PinScreen then
        Begin
          Result := True;
          Writeln('Pin entered');
          InPin(pin);
        end;
    end;

    procedure DepositCuts;
      begin
        OpenBank6;
        Wait(500+random(230));
        MouseItem(2,false);
        Wait(700+random(230));
        ChooseOption(x,y,'Store All');
      end;



    procedure Boredom;
      begin
        case Random(9) of
          0:
          begin
            case DoingNow of
            1:
              begin
                SleepAndMoveMouse(7568 + random(1425));
                HoverSkill('Fletching', false);
                SleepAndMoveMouse(Sleepy3);
              end;
            2:
              begin
                SleepAndMoveMouse(7568+random(1425));
                HoverSkill('Fletching', false);
                Wait(1500+Random(150));
                HoverSkill('Random', false);
                SleepAndMoveMouse(Sleepy3);
              end;
            3:
              begin
                SleepAndMoveMouse(100+random(142));
                HoverSkill('Magic', false);
                Wait(1500+Random(150));
                HoverSkill('Random', false);
                SleepAndMoveMouse(Sleepy3);
              end;
          end;
        end;
          1:
            begin
              BoredTalk;
              SleepAndMoveMouse(Sleepy1);
            end;

          2:
            begin
              Spin;
              SleepAndMoveMouse(Sleepy2);
            end;
          3:
            begin
              SpinR;
              SleepAndMoveMouse(Sleepy2);
            end;
          4:
            begin
              SpinLU;
              Sleep(Sleepy2);
            end;
          5:
            begin
              PickUpMouse;
              SleepAndMoveMouse(Sleepy1);
            end;

          6: SleepAndMoveMouse(Sleepy1);

          7: SleepAndMoveMouse(Sleepy1);

          8:
            begin
              RandomExamine;
              SleepAndMoveMouse(Sleepy1);
            end;

        end;
      end;

     


    Procedure FindRandoms;
    begin
      FindNormalRandoms;
     
    end;

    procedure chop;
      var
        x,y: Integer;

          begin
            FixBank;
            Withdraw(1,1,NumToTake);
            CloseBank;
            UseItem(1);
            UseItem(2);
              case WhichType of
                'shorts':
                  begin
                    MouseBox(58,381,145,439,2);
                  end;
                'longs':
                  begin
                    MouseBox(213,376,301,429,2);
                  end;
                'stocks':
                  begin
                    MouseBox(379,383,448,428,2);
                  end;
          end;
            Wait(500+Random(160));
            ChooseOption(x, y, 'Make X');
            Wait(500+Random(160));
            TypeSend(NumToCut);
            Wait(100+Random(150));
            FindRandoms;
            Wait(100+Random(150));
            Boredom;
            Wait(100+Random(150));
            FindRandoms;
            Wait(100+Random(150));
            DepositCuts;
            Wait(15+Random(20));
            CloseBank;
      end;

    procedure LoadDTMs;   //made by WhoCares357
    begin
      HighAlch := DTMFromString('78DA63E4666060E0674001BFBEF130FC02D28' +
           'C40FC1F081885800C2E0634C08844026990194C04D4B001091E02' +
           '6A9830DD83A106E46661026A448184007E3500757D07B4');

      LowAlch := DTMFromString('78DA63E46760601064400106070D187E01694' +
           '620FE0F048C0240063B031A60442281B43090E027A04608488810' +
           '50C305242408A8610612A204D4B063FA0B430D0761BB00CAA8072' +
           '0');
    end;

    Procedure Cutting;
      begin
        DoingNow := 1;
        Writeln('Now begining to cut ' +IntToStr(MaxCut)+' '+WhichType);
        NumCut := 0;
        MouseBox(570,215,593,236,0);
        Wait(1000+random(500));
      repeat
        if (LoggedIn) and IsUpTextMulti('Kni','nif','ife') then
          if (MaxCut-NumCut)> 27 then
            begin
              Sleepy1 := 48000+random(8000);
              Sleepy2 := 45000+random(3000);
              Sleepy3 := 40000+random(3000);
              NumToTake := 27;
              NumToCut := '27';
              Wait(1000+Random(500));
              OpenBank6;
              Wait(1000+Random(500));
              Chop;
              NumCut := NumCut+27;
            end
          else
            begin
              NumToTake := MaxCut-NumCut;
              NumToCut := IntToStr(NumToTake);
              Sleepy1 := 2000*NumToTake+random(4000);
              Sleepy2 := 2000*NumToTake+random(2000);
              Sleepy3 := 2000*NumToTake+Random(2000);
              Wait(1000+Random(500));
              OpenBank6;
              Wait(1000+Random(500));
              Chop;
              NumCut := NumCut+(MaxCut-NumCut);
            end
        else LogOut;

      Until(NumCut >= MaxCut) or not(LoggedIn) ;
        ClearDebug;
        Writeln('I have cut ' +IntToStr(NumCut)+ ' '+WhichType);

      end;

    Procedure StringThem;
      begin
        Wait(10+random(25));
        OpenBank6;
        Wait(100+random(250));
        FixBank;
        Wait(100+random(250));
        Withdraw(2,1,1);
        Wait(600+random(250));
        Withdraw(3,1,1);
        Wait(600+random(250));
        Withdraw(2,1,NumToTakeS-1);
        Wait(500+random(250));
        Withdraw(3,1,NumTotakeS-1);
        Wait(500+random(250));
        CloseBank;
        Wait(10+random(25));
        UseItem(1);
        Wait(10+random(25));
        UseItem(2);
        Wait(10+random(25));
        MouseBox(213,376,301,429,2);
        Wait(100+random(250));
        ChooseOption(x,y,'Make All');
        Wait(100+random(250));
        FindRandoms;
        Wait(100+random(250));
        Boredom;
        Wait(100+random(250));
        FindRandoms;
        Wait(100+random(250));
        OpenBank6;
        Wait(1000+random(250));
        DepositAll;
        Wait(1000+random(250));
        CloseBank;
        Wait(300+random(250));
     end;

    Procedure Stringing;
      Begin
        DoingNow := 2;
        Writeln('Now begining to string ' +IntToStr(MaxString)+' '+WhichType);
        Wait(1000+random(500));
        if not InvEmpty then
          begin
            OpenBank6;
            Wait(10+random(25));
            FixBank;
            Wait(100+random(250));
            DepositAll;
            Wait(10+random(25));
            CloseBank;
          end;
          repeat
            if (LoggedIn) then
              if (MaxString-NumStrung)> 14 then
                begin
                  Sleepy1 := 18000+Random(3500);
                  Sleepy2 := 16000+Random(3500);
                  Sleepy3 := 10000+Random(2500);
                  NumToTakeS := 14;
                  Wait(1000+Random(500));
                  StringThem;
                  NumStrung := NumStrung+14;
                end
              else
                 if (MaxString-NumStrung)< 14 then
                 begin
                  Sleepy1 := ((MaxString-NumStrung)*1500)+Random(3500);
                  Sleepy2 := ((MaxString-NumStrung)*1500)+Random(3500);
                  Sleepy3 := ((MaxString-NumStrung)*1300)+Random(500);
                  NumToTakeS := MaxString-NumStrung;
                  Wait(1000+Random(500));
                  StringThem;
                  NumStrung := NumStrung+(MaxString-NumStrung);
                end
            else TerminateScript;
          Until(NumStrung = MaxString) or not(LoggedIn) ;
      end;


    Procedure Alching;
      Begin
        Sleepy1 := 3000+random(500);
        Sleepy2 := 2500+random(500);
        Sleepy3 := 2000+random(500);
        LoadDTMs;
        NumAlched := 0;
        DoingNow := 3;
        Writeln('Now begining to Alch ' +IntToStr(MaxAlch)+' '+WhichType);
        OpenBank6;
        Wait(1000+random(500));
        DepositAll;
        Wait(1000+random(500));
        CloseBank;
        if InvEmpty then
          begin
            Wait(1000+random(500));
            OpenBank6;
            FixBank;
            Wait(1000+random(500));
            MouseBox(371,305,448,318,1);
            Withdraw(4,1,MaxAlch);
            Wait(1000+random(500));
            Withdraw(5,1,MaxAlch);
            Wait(1000+random(500));
            CloseBank;
            Wait(400+random(150));
              if GetSkillLevel('Magic')<21 then
              begin
                CanAlch := False;
              end
              else
              begin
                CanAlch := True;
              end;
            if CanAlch = True then
            GameTab(7);
              repeat
                 begin
                 GameTab(7);
                    if FindDTM(HighAlch, x3, y3, 558, 210, 738, 446) then
                      begin
                      Mouse(x3,y3,2,2,True);
                      Wait(1000+random(100));
                      MouseBox(616,217,634,236,1);
                      Wait(2500+random(100));
                      NumAlched := NumAlched+1;
                      end
                    else if FindDTM(LowAlch, x3, y3, 710, 249, 733, 276) then
                      begin
                      Mouse(x3,y3,2,2,True);
                      Wait(1000+random(100));
                      MouseBox(616,217,634,236,1);
                      Wait(2500+random(100));
                      NumAlched := NumAlched+1;
                      end
                    else
                      begin
                        writeln('Logging out');
                        LogOut;
                      end;
                   FindRandoms;
                end;
              until not (LoggedIn) or (NumAlched >= MaxAlch);
      end;
    end;

    procedure Setupmain(sender: TObject);
    begin
     Setup;
     case DoCutting of
       True:
         begin
           case DoStringing of
             True:
               begin
                 case DoAlching of
                   True:
                     begin
                       Cutting;
                       Stringing;
                       Alching;
                     end;
                   False:
                     begin
                       Cutting;
                       Stringing;
                     end;
                 end;
               end;
             False:
               begin
                 case DoAlching of
                   True:
                     begin
                       Cutting;
                       Alching;
                     end;
                   True:
                     begin
                       Cutting;
                     end;
                 end;
               end;
           end;
         end;
         False:
           begin
             case DoStringing of
               True:
                 begin
                   case DoAlching of
                     True:
                       begin
                         Stringing;
                         Alching;
                       end;
                     False:
                       begin
                         Stringing;
                       end;
                   end;
                 end;
               False:
                 begin
                   case DoAlching of
                     True:
                       begin
                         Alching;
                       end;
                     False:
                       begin
                         TerminateScript;
                       end;
                   end;
                 end;
             end;
           end;
         end;
       end;

    procedure InitForm;
      begin
        frmDesign := CreateForm;
        frmDesign.Left := 250;
        frmDesign.Top := 114;
        frmDesign.Width := 300;
        frmDesign.Height := 350;
        frmDesign.Caption := 'frmDesign';
        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 := 22;
        Label1.Top := 24;
        Label1.Width := 46;
        Label1.Height := 22;
        Label1.Caption := 'UserName';
        Label2 := TLabel.Create(frmDesign);
        Label2.Parent := frmDesign;
        Label2.Left := 22;
        Label2.Top := 45;
        Label2.Width := 46;
        Label2.Height := 13;
        Label2.Caption := 'Password';
        Label3 := TLabel.Create(frmDesign);
        Label3.Parent := frmDesign;
        Label3.Left := 22;
        Label3.Top := 66;
        Label3.Width := 46;
        Label3.Height := 13;
        Label3.Caption := 'NickName';
        Label4 := TLabel.Create(frmDesign);
        Label4.Parent := frmDesign;
        Label4.Left := 22;
        Label4.Top := 196;
        Label4.Width := 46;
        Label4.Height := 13;
        Label4.Caption := 'How many to cut?';
        Label5 := TLabel.Create(frmDesign);
        Label5.Parent := frmDesign;
        Label5.Left := 22;
        Label5.Top := 217;
        Label5.Width := 46;
        Label5.Height := 13;
        Label5.Caption := 'How many to string?';
        Label6 := TLabel.Create(frmDesign);
        Label6.Parent := frmDesign;
        Label6.Left := 22;
        Label6.Top := 238;
        Label6.Width := 46;
        Label6.Height := 13;
        Label6.Caption := 'How many to alch?';
        Label7 := TLabel.Create(frmDesign);
        Label7.Parent := frmDesign;
        Label7.Left := 22;
        Label7.Top := 119;
        Label7.Width := 46;
        Label7.Height := 13;
        Label7.Caption := 'Cut Bows?';
        Label8 := TLabel.Create(frmDesign);
        Label8.Parent := frmDesign;
        Label8.Left := 22;
        Label8.Top := 142;
        Label8.Width := 46;
        Label8.Height := 13;
        Label8.Caption := 'String Bows?';
        Label9 := TLabel.Create(frmDesign);
        Label9.Parent := frmDesign;
        Label9.Left := 22;
        Label9.Top := 163;
        Label9.Width := 46;
        Label9.Height := 13;
        Label9.Caption := 'Alch?';
        Label10 := TLabel.Create(frmDesign);
        Label10.Parent := frmDesign;
        Label10.Left := 22;
        Label10.Top := 87;
        Label10.Width := 46;
        Label10.Height := 13;
        Label10.Caption := 'Pin';
        Edit1 := TEdit.Create(frmDesign);
        Edit1.Parent := frmDesign;
        Edit1.Left := 120;
        Edit1.Top := 20;
        Edit1.Width := 121;
        Edit1.Height := 21;
        Edit1.TabOrder := 8;
        Edit1.Text := 'Username';
        Edit1.Text := LoadSetting('UserPassSaver', 'Username');
        Edit2 := TEdit.Create(frmDesign);
        Edit2.Parent := frmDesign;
        Edit2.Left := 120;
        Edit2.Top := 41;
        Edit2.Width := 121;
        Edit2.Height := 21;
        Edit2.TabOrder := 9;
        Edit2.Text := 'Password';
        Edit2.PasswordChar:= '*';
        Edit2.Text := LoadSetting('UserPassSaver', 'Password');
        Edit3 := TEdit.Create(frmDesign);
        Edit3.Parent := frmDesign;
        Edit3.Left := 120;
        Edit3.Top := 62;
        Edit3.Width := 121;
        Edit3.Height := 21;
        Edit3.TabOrder := 9;
        Edit3.Text := 'Nickname';
        Edit3.Text := LoadSetting('UserPassSaver', 'Nick');
        Edit4 := TEdit.Create(frmDesign);
        Edit4.Parent := frmDesign;
        Edit4.Left := 120;
        Edit4.Top := 194;
        Edit4.Width := 121;
        Edit4.Height := 21;
        Edit4.TabOrder := 9;
        Edit5 := TEdit.Create(frmDesign);
        Edit5.Parent := frmDesign;
        Edit5.Left := 120;
        Edit5.Top := 215;
        Edit5.Width := 121;
        Edit5.Height := 21;
        Edit5.TabOrder := 9;
        Edit6 := TEdit.Create(frmDesign);
        Edit6.Parent := frmDesign;
        Edit6.Left := 120;
        Edit6.Top := 236;
        Edit6.Width := 121;
        Edit6.Height := 21;
        Edit6.TabOrder := 9;
        Edit7 := TEdit.Create(frmDesign);
        Edit7.Parent := frmDesign;
        Edit7.Left := 120;
        Edit7.Top := 83;
        Edit7.Width := 121;
        Edit7.Height := 21;
        Edit7.TabOrder := 9;
        Edit7.Text := '0000';
        ComboBox1 := TComboBox.Create(frmDesign);
        ComboBox1.Parent := frmDesign;
        ComboBox1.Left := 120;
        ComboBox1.Top := 116;
        ComboBox1.Width := 121;
        ComboBox1.Height := 21;
        ComboBox1.ItemHeight := 13;
        ComboBox1.TabOrder := 11;
        ComboBox1.Text := 'Cut Logs?';
        ComboBox1.Items.Add('Shorts');
        ComboBox1.Items.Add('Longs');
        ComboBox1.Items.Add('Stocks');
        ComboBox1.Items.Add('False');
        ComboBox2 := TComboBox.Create(frmDesign);
        ComboBox2.Parent := frmDesign;
        ComboBox2.Left := 120;
        ComboBox2.Top := 138;
        ComboBox2.Width := 121;
        ComboBox2.Height := 21;
        ComboBox2.ItemHeight := 13;
        ComboBox2.TabOrder := 11;
        ComboBox2.Text := 'String Bows?';
        ComboBox2.Items.Add('True');
        ComboBox2.Items.Add('False');
        ComboBox3 := TComboBox.Create(frmDesign);
        ComboBox3.Parent := frmDesign;
        ComboBox3.Left := 120;
        ComboBox3.Top := 160;
        ComboBox3.Width := 121;
        ComboBox3.Height := 21;
        ComboBox3.ItemHeight := 13;
        ComboBox3.TabOrder := 11;
        ComboBox3.Text := 'Alch?';
        ComboBox3.Items.Add('True');
        ComboBox3.Items.Add('False');
        Button1 := TButton.Create(frmDesign);
        Button1.Parent := frmDesign;
        Button1.OnClick := @Setupmain;
        Button1.Left := 94;
        Button1.Top := 261;
        Button1.Width := 75;
        Button1.Height := 25;
        Button1.Caption := 'Start!!';
        Button1.TabOrder := 10;
      end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    begin
      SafeInitForm;
      SafeShowFormModal;
      FreeForm(frmDesign);
      LogOut;
      Writeln('I have cut ' +IntToStr(NumCut)+ ' '+WhichType+',');
      Writeln('I have strung' +IntToStr(NumStrung)+ ' '+WhichType+);
      Writeln('and I have Alched' +IntToStr(NumAlched)+ ' items.');
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    New Yawk
    Posts
    943
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this really your script? I think I have cause enough to be skeptical, seeing from your join date and post-count.

    Mods, please copy-check this guy, he has been joined on these forums for only 7 days. To be fair, he has looked(?) through JAD's tut, but I do believe that this script is very well made and complex enough for me to be skeptical about.

    Sorry OP, this isn't standard procedure, but I have outlined my suspicions above. If I am wrong on all counts, I apologize and congratulate you on a well made script.
    I guess the holidays are over - no sig for now.

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Too big for him, its copied prolly


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
      SafeInitForm;
      SafeShowFormModal;
      FreeForm(frmDesign);
      LogOut;
      Writeln('I have cut ' +NumCut+ ' '+WhichType+',');
      Writeln('I have strung' +NumStrung+ ' '+WhichType+);
      Writeln('and I have Alched' +NumAclhed+ ' items.');
    end.

    The mainloop doesn't have SetupMain in it...

    I don't think standards are correct either.

    Oh wait, you've done it using OnClick...weird style but I understand what you did.

    Here you go...standardised:

    SCAR Code:
    {
    Put logs in first bank slot, bow strings in second
    Have atleast one bow(u) in slot 3 (or just place holder if just alching/cutting)
    have nats in slot 4 and in slot 5 have a finished bow(atleast one)
    or the item you wish to alch

    Have knife in inv slot 1 if you are cutting

    have fun:)

    author: Moggy
    }

    program StringAndAlch;
    {.include SRL\SRL.scar}
    var
      NumCut, NumStrung, NumAlched : Integer;
      NumToTake, NumToTakeS : Integer;
      NumToCut, WhichType : string;
      DoingNow : Integer;
      Sleepy1, Sleepy2, Sleepy3 : Integer;
      HighAlch, LowAlch : Integer; //DTM
      CanAlch : Boolean;
      x3, y3 : Integer;
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10 : TLabel;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3, Edit4, Edit5, Edit6, Edit7 : TEdit;
      Button1 : TButton;
      Username, Password, Nick, pin : string;
      ComboBox1, ComboBox2, ComboBox3 : TComboBox;
      DoAlching, DoStringing, DoCutting : Boolean;
      MaxCut, MaxString, MaxAlch : Integer;

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

      Players[0].Name := Username;
      Players[0].Pass := Password;
      Players[0].Nick := Nick;
      Players[0].Active := True;
    end;

    procedure Setup;
    begin
      ActivateClient;
      SetUpSRL;
      DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
      Username := Edit1.Text;
      Password := Edit2.Text;
      Nick := Edit3.Text;
      MaxCut := StrToInt(Edit4.Text);
      MaxString := StrToInt(Edit5.Text);
      MaxAlch := StrToInt(Edit6.Text);
      pin := Edit7.Text;
      case ComboBox1.Text of
        'Shorts' :
          begin
            DoCutting := True;
            WhichType := 'Shorts';
          end;
        'SLongs' :
          begin
            DoCutting := True;
            WhichType := 'Longs';
          end;
        'Stocks' :
          begin
            DoCutting := True;
            WhichType := 'Stocks';
          end;
        'False' : DoCutting := False;
      end;

      case ComboBox2.Text of
        'True' : DoStringing := True;
        'False' : DoStringing := False;
      end;

      case ComboBox3.Text of
        'True' : DoAlching := True;
        'False' : DoAlching := False;
      end;
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure RandomExamine;
    var
      x2, y2 : Integer;

    begin
      MouseBox(9, 10, 504, 322, 2);
      Wait(700 + Random(350));
      ChooseOption(x2, y2, 'xamine');
      Wait(100 + Random(350));
    end;

    procedure Spin;
    var
      SpinArray : array[0..3] of Char;
    begin
      SpinArray[0] := 'n';
      SpinArray[1] := 'e';
      SpinArray[2] := 's';
      SpinArray[3] := 'w';
      MakeCompass(SpinArray[Random(4)]);
      MakeCompass('n');
    end;

    procedure SpinR;
    begin
      KeyDown(40);
      Sleep(1000 + Random(421) + Random(123));
      KeyDown(39);
      Sleep(1000 + Random(421) + Random(123));
      case Random(2) of
        0 :
          begin
            KeyUp(39);
            Wait(10 + random(19));
            KeyUp(40);
            Wait(random(100));
          end;
        1 :
          begin
            KeyUp(40);
            Wait(10 + random(19));
            KeyUp(39);
            Wait(random(100));
          end;
      end;
    end;

    procedure SpinLU;
    begin
      KeyDown(37);
      Sleep(1000 + Random(421) + Random(123));
      KeyDown(38);
      Sleep(1000 + Random(421) + Random(123));
      case Random(2) of
        0 :
          begin
            KeyUp(37);
            Wait(10 + random(19));
            KeyUp(38);
            Wait(random(100));
          end;
        1 :
          begin
            KeyUp(38);
            Wait(10 + random(19));
            KeyUp(37);
            Wait(random(100));
          end;
      end;
    end;

    procedure BoredTalk;
    begin
      case Random(9) of
        0 : TypeSend('Doooodeeedoooo');
        1 : TypeSend('why is this so boring *cries*');
        2 : TypeSend('BawChikaWahwaahh');
        3 : TypeSend('Come on you stunts let''s have some aphex acid!');
        4 : TypeSend('What is the world coming too?');
        5 : TypeSend('Le''mme alone, i dont wanna trade with you');
        6 : TypeSend('Shut up');
        7 : TypeSend('come on ailine');
        8 : TypeSend('Dance!');
      end;
    end;

    function OpenBank6 : Boolean;
    var
      c : Integer;
    begin
      MakeCompass('n');
      if (FindObj(x, y, 'Use Bank', 539728, 10)) then
      begin
        Mouse(x, y, 1, 1, False);
        if (ChooseOption(x, y, 'quickly')) then
        begin
          Flag;
          repeat
            Wait(100);
            c := c + 1
          until (BankScreen) or (c >= 50) or PinScreen;
        end;
      end;

      if BankScreen then
      begin
        Result := True;
      end;

      if PinScreen then
      begin
        Result := True;
        Writeln('Pin entered');
        InPin(pin);
      end;
    end;

    procedure DepositCuts;
    begin
      OpenBank6;
      Wait(500 + random(230));
      MouseItem(2, false);
      Wait(700 + random(230));
      ChooseOption(x, y, 'Store All');
    end;

    procedure Boredom;
    begin
      case Random(9) of
        0 :
          begin
            case DoingNow of
              1 :
                begin
                  SleepAndMoveMouse(7568 + random(1425));
                  HoverSkill('Fletching', false);
                  SleepAndMoveMouse(Sleepy3);
                end;
              2 :
                begin
                  SleepAndMoveMouse(7568 + random(1425));
                  HoverSkill('Fletching', false);
                  Wait(1500 + Random(150));
                  HoverSkill('Random', false);
                  SleepAndMoveMouse(Sleepy3);
                end;
              3 :
                begin
                  SleepAndMoveMouse(100 + random(142));
                  HoverSkill('Magic', false);
                  Wait(1500 + Random(150));
                  HoverSkill('Random', false);
                  SleepAndMoveMouse(Sleepy3);
                end;
            end;
          end;
        1 :
          begin
            BoredTalk;
            SleepAndMoveMouse(Sleepy1);
          end;

        2 :
          begin
            Spin;
            SleepAndMoveMouse(Sleepy2);
          end;
        3 :
          begin
            SpinR;
            SleepAndMoveMouse(Sleepy2);
          end;
        4 :
          begin
            SpinLU;
            Sleep(Sleepy2);
          end;
        5 :
          begin
            PickUpMouse;
            SleepAndMoveMouse(Sleepy1);
          end;

        6 : SleepAndMoveMouse(Sleepy1);

        7 : SleepAndMoveMouse(Sleepy1);

        8 :
          begin
            RandomExamine;
            SleepAndMoveMouse(Sleepy1);
          end;

      end;
    end;

    function FindFastRandoms : Boolean; //By WT-Fakawi.
    var
      i : Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1 : if FindDead then
              Result := True;
          2 : if FindMod then
              Result := True;
          3 : if FindMime then
              Result := True;
          4 : if FindMaze then
              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;
        end;
        wait(1);
      end;
    end;

    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;

    procedure chop;
    var
      x, y : Integer;

    begin
      FixBank;
      Withdraw(1, 1, NumToTake);
      CloseBank;
      UseItem(1);
      UseItem(2);
      case WhichType of
        'shorts' :
          begin
            MouseBox(58, 381, 145, 439, 2);
          end;
        'longs' :
          begin
            MouseBox(213, 376, 301, 429, 2);
          end;
        'stocks' :
          begin
            MouseBox(379, 383, 448, 428, 2);
          end;
      end;
      Wait(500 + Random(160));
      ChooseOption(x, y, 'Make X');
      Wait(500 + Random(160));
      TypeSend(NumToCut);
      Wait(100 + Random(150));
      FindRandoms;
      Wait(100 + Random(150));
      Boredom;
      Wait(100 + Random(150));
      FindRandoms;
      Wait(100 + Random(150));
      DepositCuts;
      Wait(15 + Random(20));
      CloseBank;
    end;

    procedure LoadDTMs; //made by WhoCares357
    begin
      HighAlch := DTMFromString('78DA63E4666060E0674001BFBEF130FC02D28' +
        'C40FC1F081885800C2E0634C08844026990194C04D4B001091E02' +
        '6A9830DD83A106E46661026A448184007E3500757D07B4');

      LowAlch := DTMFromString('78DA63E46760601064400106070D187E01694' +
        '620FE0F048C0240063B031A60442281B43090E027A04608488810' +
        '50C305242408A8610612A204D4B063FA0B430D0761BB00CAA8072' +
        '0');
    end;

    procedure Cutting;
    begin
      DoingNow := 1;
      Writeln('Now begining to cut ' + IntToStr(MaxCut) + ' ' + WhichType);
      NumCut := 0;
      MouseBox(570, 215, 593, 236, 0);
      Wait(1000 + random(500));
      repeat
        if (LoggedIn) and IsUpTextMulti('Kni', 'nif', 'ife') then
          if (MaxCut - NumCut) > 27 then
          begin
            Sleepy1 := 48000 + random(8000);
            Sleepy2 := 45000 + random(3000);
            Sleepy3 := 40000 + random(3000);
            NumToTake := 27;
            NumToCut := '27';
            Wait(1000 + Random(500));
            OpenBank6;
            Wait(1000 + Random(500));
            Chop;
            NumCut := NumCut + 27;
          end
          else
          begin
            NumToTake := MaxCut - NumCut;
            NumToCut := IntToStr(NumToTake);
            Sleepy1 := 2000 * NumToTake + random(4000);
            Sleepy2 := 2000 * NumToTake + random(2000);
            Sleepy3 := 2000 * NumToTake + Random(2000);
            Wait(1000 + Random(500));
            OpenBank6;
            Wait(1000 + Random(500));
            Chop;
            NumCut := NumCut + (MaxCut - NumCut);
          end
        else LogOut;

      until (NumCut >= MaxCut) or not (LoggedIn);
      ClearDebug;
      Writeln('I have cut ' + IntToStr(NumCut) + ' ' + WhichType);

    end;

    procedure StringThem;
    begin
      Wait(10 + random(25));
      OpenBank6;
      Wait(100 + random(250));
      FixBank;
      Wait(100 + random(250));
      Withdraw(2, 1, 1);
      Wait(600 + random(250));
      Withdraw(3, 1, 1);
      Wait(600 + random(250));
      Withdraw(2, 1, NumToTakeS - 1);
      Wait(500 + random(250));
      Withdraw(3, 1, NumTotakeS - 1);
      Wait(500 + random(250));
      CloseBank;
      Wait(10 + random(25));
      UseItem(1);
      Wait(10 + random(25));
      UseItem(2);
      Wait(10 + random(25));
      MouseBox(213, 376, 301, 429, 2);
      Wait(100 + random(250));
      ChooseOption(x, y, 'Make All');
      Wait(100 + random(250));
      FindRandoms;
      Wait(100 + random(250));
      Boredom;
      Wait(100 + random(250));
      FindRandoms;
      Wait(100 + random(250));
      OpenBank6;
      Wait(1000 + random(250));
      DepositAll;
      Wait(1000 + random(250));
      CloseBank;
      Wait(300 + random(250));
    end;

    procedure Stringing;
    begin
      DoingNow := 2;
      Writeln('Now begining to string ' + IntToStr(MaxString) + ' ' + WhichType);
      Wait(1000 + random(500));
      if not InvEmpty then
      begin
        OpenBank6;
        Wait(10 + random(25));
        FixBank;
        Wait(100 + random(250));
        DepositAll;
        Wait(10 + random(25));
        CloseBank;
      end;
      repeat
        if (LoggedIn) then
          if (MaxString - NumStrung) > 14 then
          begin
            Sleepy1 := 18000 + Random(3500);
            Sleepy2 := 16000 + Random(3500);
            Sleepy3 := 10000 + Random(2500);
            NumToTakeS := 14;
            Wait(1000 + Random(500));
            StringThem;
            NumStrung := NumStrung + 14;
          end
          else
            if (MaxString - NumStrung) < 14 then
            begin
              Sleepy1 := ((MaxString - NumStrung) * 1500) + Random(3500);
              Sleepy2 := ((MaxString - NumStrung) * 1500) + Random(3500);
              Sleepy3 := ((MaxString - NumStrung) * 1300) + Random(500);
              NumToTakeS := MaxString - NumStrung;
              Wait(1000 + Random(500));
              StringThem;
              NumStrung := NumStrung + (MaxString - NumStrung);
            end
            else TerminateScript;
      until (NumStrung = MaxString) or not (LoggedIn);
    end;

    procedure Alching;
    begin
      Sleepy1 := 3000 + random(500);
      Sleepy2 := 2500 + random(500);
      Sleepy3 := 2000 + random(500);
      LoadDTMs;
      NumAlched := 0;
      DoingNow := 3;
      Writeln('Now begining to Alch ' + IntToStr(MaxAlch) + ' ' + WhichType);
      OpenBank6;
      Wait(1000 + random(500));
      DepositAll;
      Wait(1000 + random(500));
      CloseBank;
      if InvEmpty then
      begin
        Wait(1000 + random(500));
        OpenBank6;
        FixBank;
        Wait(1000 + random(500));
        MouseBox(371, 305, 448, 318, 1);
        Withdraw(4, 1, MaxAlch);
        Wait(1000 + random(500));
        Withdraw(5, 1, MaxAlch);
        Wait(1000 + random(500));
        CloseBank;
        Wait(400 + random(150));
        if GetSkillLevel('Magic') < 21 then
        begin
          CanAlch := False;
        end
        else
        begin
          CanAlch := True;
        end;
        if CanAlch = True then
          GameTab(7);
        repeat
          begin
            GameTab(7);
            if FindDTM(HighAlch, x3, y3, 558, 210, 738, 446) then
            begin
              Mouse(x3, y3, 2, 2, True);
              Wait(1000 + random(100));
              MouseBox(616, 217, 634, 236, 1);
              Wait(2500 + random(100));
              NumAlched := NumAlched + 1;
            end
            else if FindDTM(LowAlch, x3, y3, 710, 249, 733, 276) then
            begin
              Mouse(x3, y3, 2, 2, True);
              Wait(1000 + random(100));
              MouseBox(616, 217, 634, 236, 1);
              Wait(2500 + random(100));
              NumAlched := NumAlched + 1;
            end
            else
            begin
              writeln('Logging out');
              LogOut;
            end;
            FindRandoms;
          end;
        until not (LoggedIn) or (NumAlched >= MaxAlch);
      end;
    end;

    procedure Setupmain(sender : TObject);
    begin
      Setup;
      case DoCutting of
        True :
          begin
            case DoStringing of
              True :
                begin
                  case DoAlching of
                    True :
                      begin
                        Cutting;
                        Stringing;
                        Alching;
                      end;
                    False :
                      begin
                        Cutting;
                        Stringing;
                      end;
                  end;
                end;
              False :
                begin
                  case DoAlching of
                    True :
                      begin
                        Cutting;
                        Alching;
                      end;
                    True :
                      begin
                        Cutting;
                      end;
                  end;
                end;
            end;
          end;
        False :
          begin
            case DoStringing of
              True :
                begin
                  case DoAlching of
                    True :
                      begin
                        Stringing;
                        Alching;
                      end;
                    False :
                      begin
                        Stringing;
                      end;
                  end;
                end;
              False :
                begin
                  case DoAlching of
                    True :
                      begin
                        Alching;
                      end;
                    False :
                      begin
                        TerminateScript;
                      end;
                  end;
                end;
            end;
          end;
      end;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.Width := 300;
      frmDesign.Height := 350;
      frmDesign.Caption := 'frmDesign';
      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 := 22;
      Label1.Top := 24;
      Label1.Width := 46;
      Label1.Height := 22;
      Label1.Caption := 'UserName';
      Label2 := TLabel.Create(frmDesign);
      Label2.Parent := frmDesign;
      Label2.Left := 22;
      Label2.Top := 45;
      Label2.Width := 46;
      Label2.Height := 13;
      Label2.Caption := 'Password';
      Label3 := TLabel.Create(frmDesign);
      Label3.Parent := frmDesign;
      Label3.Left := 22;
      Label3.Top := 66;
      Label3.Width := 46;
      Label3.Height := 13;
      Label3.Caption := 'NickName';
      Label4 := TLabel.Create(frmDesign);
      Label4.Parent := frmDesign;
      Label4.Left := 22;
      Label4.Top := 196;
      Label4.Width := 46;
      Label4.Height := 13;
      Label4.Caption := 'How many to cut?';
      Label5 := TLabel.Create(frmDesign);
      Label5.Parent := frmDesign;
      Label5.Left := 22;
      Label5.Top := 217;
      Label5.Width := 46;
      Label5.Height := 13;
      Label5.Caption := 'How many to string?';
      Label6 := TLabel.Create(frmDesign);
      Label6.Parent := frmDesign;
      Label6.Left := 22;
      Label6.Top := 238;
      Label6.Width := 46;
      Label6.Height := 13;
      Label6.Caption := 'How many to alch?';
      Label7 := TLabel.Create(frmDesign);
      Label7.Parent := frmDesign;
      Label7.Left := 22;
      Label7.Top := 119;
      Label7.Width := 46;
      Label7.Height := 13;
      Label7.Caption := 'Cut Bows?';
      Label8 := TLabel.Create(frmDesign);
      Label8.Parent := frmDesign;
      Label8.Left := 22;
      Label8.Top := 142;
      Label8.Width := 46;
      Label8.Height := 13;
      Label8.Caption := 'String Bows?';
      Label9 := TLabel.Create(frmDesign);
      Label9.Parent := frmDesign;
      Label9.Left := 22;
      Label9.Top := 163;
      Label9.Width := 46;
      Label9.Height := 13;
      Label9.Caption := 'Alch?';
      Label10 := TLabel.Create(frmDesign);
      Label10.Parent := frmDesign;
      Label10.Left := 22;
      Label10.Top := 87;
      Label10.Width := 46;
      Label10.Height := 13;
      Label10.Caption := 'Pin';
      Edit1 := TEdit.Create(frmDesign);
      Edit1.Parent := frmDesign;
      Edit1.Left := 120;
      Edit1.Top := 20;
      Edit1.Width := 121;
      Edit1.Height := 21;
      Edit1.TabOrder := 8;
      Edit1.Text := 'Username';
      Edit1.Text := LoadSetting('UserPassSaver', 'Username');
      Edit2 := TEdit.Create(frmDesign);
      Edit2.Parent := frmDesign;
      Edit2.Left := 120;
      Edit2.Top := 41;
      Edit2.Width := 121;
      Edit2.Height := 21;
      Edit2.TabOrder := 9;
      Edit2.Text := 'Password';
      Edit2.PasswordChar := '*';
      Edit2.Text := LoadSetting('UserPassSaver', 'Password');
      Edit3 := TEdit.Create(frmDesign);
      Edit3.Parent := frmDesign;
      Edit3.Left := 120;
      Edit3.Top := 62;
      Edit3.Width := 121;
      Edit3.Height := 21;
      Edit3.TabOrder := 9;
      Edit3.Text := 'Nickname';
      Edit3.Text := LoadSetting('UserPassSaver', 'Nick');
      Edit4 := TEdit.Create(frmDesign);
      Edit4.Parent := frmDesign;
      Edit4.Left := 120;
      Edit4.Top := 194;
      Edit4.Width := 121;
      Edit4.Height := 21;
      Edit4.TabOrder := 9;
      Edit5 := TEdit.Create(frmDesign);
      Edit5.Parent := frmDesign;
      Edit5.Left := 120;
      Edit5.Top := 215;
      Edit5.Width := 121;
      Edit5.Height := 21;
      Edit5.TabOrder := 9;
      Edit6 := TEdit.Create(frmDesign);
      Edit6.Parent := frmDesign;
      Edit6.Left := 120;
      Edit6.Top := 236;
      Edit6.Width := 121;
      Edit6.Height := 21;
      Edit6.TabOrder := 9;
      Edit7 := TEdit.Create(frmDesign);
      Edit7.Parent := frmDesign;
      Edit7.Left := 120;
      Edit7.Top := 83;
      Edit7.Width := 121;
      Edit7.Height := 21;
      Edit7.TabOrder := 9;
      Edit7.Text := '0000';
      ComboBox1 := TComboBox.Create(frmDesign);
      ComboBox1.Parent := frmDesign;
      ComboBox1.Left := 120;
      ComboBox1.Top := 116;
      ComboBox1.Width := 121;
      ComboBox1.Height := 21;
      ComboBox1.ItemHeight := 13;
      ComboBox1.TabOrder := 11;
      ComboBox1.Text := 'Cut Logs?';
      ComboBox1.Items.Add('Shorts');
      ComboBox1.Items.Add('Longs');
      ComboBox1.Items.Add('Stocks');
      ComboBox1.Items.Add('False');
      ComboBox2 := TComboBox.Create(frmDesign);
      ComboBox2.Parent := frmDesign;
      ComboBox2.Left := 120;
      ComboBox2.Top := 138;
      ComboBox2.Width := 121;
      ComboBox2.Height := 21;
      ComboBox2.ItemHeight := 13;
      ComboBox2.TabOrder := 11;
      ComboBox2.Text := 'String Bows?';
      ComboBox2.Items.Add('True');
      ComboBox2.Items.Add('False');
      ComboBox3 := TComboBox.Create(frmDesign);
      ComboBox3.Parent := frmDesign;
      ComboBox3.Left := 120;
      ComboBox3.Top := 160;
      ComboBox3.Width := 121;
      ComboBox3.Height := 21;
      ComboBox3.ItemHeight := 13;
      ComboBox3.TabOrder := 11;
      ComboBox3.Text := 'Alch?';
      ComboBox3.Items.Add('True');
      ComboBox3.Items.Add('False');
      Button1 := TButton.Create(frmDesign);
      Button1.Parent := frmDesign;
      Button1.OnClick := @Setupmain;
      Button1.Left := 94;
      Button1.Top := 261;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Start!!';
      Button1.TabOrder := 10;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    begin
      SafeInitForm;
      SafeShowFormModal;
      FreeForm(frmDesign);
      LogOut;
      Writeln('I have cut ' + NumCut + ' ' + WhichType + ',');
      Writeln('I have strung' + NumStrung + ' ' + WhichType + );
      Writeln('and I have Alched' + NumAclhed + ' items.');
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  5. #5
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To all you really useful people who claim i have copied, i do computing as a subject (learning programming) and am pretty profficient in java, so can pick up a language pretty quickly especially an easy one like SCAR, why would i ask for help developing a script if i hadnt made it? surely i'd use my brain and steal a good script that works

    To santa thanks for looking at the script, and cheers for tips.

    P.S please do copy check this, i realise because this isnt an autotalking powerchopper, so its OBVIOUSLY not a first script by me, because im incapable of reading tutorials.........or you could just do it to prove me to be the author,

  6. #6
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Procedure FindRandoms;
    begin
    FindFastRandoms;
    FindNormalRandoms;
    end;
    dont do that, its useless and ive seen that mistake before...(findnormal randoms does everything that findfastrandoms does + some extra stuff)
    Infractions, reputation, reflection, the dark side of scripting, they are.

  7. #7
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh ok i just found that in a tutorial so assumed the did different things, thanks
    so im guessing the whole of FindFastRandoms is now redundant?

  8. #8
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    iloveit...I said the same thing to some other people and they kept bugging me about it.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  9. #9
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the contents of FindNormalRandom looks like it has more than findfast, maybe they just recently updated it? i havent been here long so wouldn't know.. but am now slightly confused

  10. #10
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Basically...FindNormalRandoms covers you against all randoms.

    FindFastRandoms only covers you for some, but is faster than FindNormalRandoms.

    There's no point in using both...

    Also, there's an error in the last couple of lines in your script:

    SCAR Code:
    Writeln('and I have Alched' + NumAclhed + ' items.');

    Should be Alched not Aclhed...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  11. #11
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok cheers, since im doing 3 different proccesses its worth just using findnormal you think?

    and typo has been changed thanks

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 5
    Last Post: 03-30-2008, 01:40 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •