Results 1 to 7 of 7

Thread: Help with my chicken Killer!

  1. #1
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with my chicken Killer!

    Hello, I made a quick chicken killer, and i need some help.
    SCAR Code:
    program KillChickens;
    {.include srl/srl.scar}

    var
      ChickensKilled,Tries : Integer;
      frmDesign : TForm;
      Image1 : TImage;
      Username : TEdit;
      Password : TEdit;
      NickName : TEdit;
      Start : TButton;
      C: Tcanvas;
      Chicken : Integer;

    const
    ChickenColor1 = 923759;
    ChickenColor2 = 1121669;
    ChickensToKill = 20;
    yourSRLID='4480';
    yourSRLPW='joejoe';

    Procedure SetupFormz(sender: tobject);
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := Username.text;
      Players[0].Pass := Password.text;
      Players[0].Nick := NickName.text;
      Players[0].Active :=True;
      FrmDesign.ModalResult := Mrok;
      ClearDebug;
     

    end;
    Procedure InitForm;

    begin
    frmDesign := CreateForm;
    frmDesign.Left := 1109;
    frmDesign.Top := 194;
    frmDesign.Width := 317;
    frmDesign.Height := 231;
    frmDesign.Caption := 'Wade007'#39's ChickenKiller';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -14;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 200;
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := 176;
    Image1.Top := 16;
    Image1.Width := 49;
    Image1.Height := 49;
      Chicken := BitmapFromString(49, 47, 'beNrlmN1LU3EYx72vTc3XT' +
         'ZNMo2QqWsO30WowG0zGYhmrGLJQMXuhIrOMJKEaQUQQRREhVBeBRQldeBFBZN' +
         '150W3/Td/xjaeHc87W2dp2Bh0+jE307LPv8/ye32/W1Py314UWF5hvdi15a0E' +
         '1KF1uddNKuOmtJU4pXfW4CVMCtKqKCk4e+EOL6057nWOFS/pvTI2ClekAwXOE' +
         'BitHfCgjPrdnD5KzicH7HfWgwj7XUsNkMekTlk71khedDaCSPgsnhyCDfKBx5' +
         'XgPuJjYB87F9/Llq67GrY1oxXxQFypJRPQB44P1yR3bAH7tzWNfZXxSER+AEp' +
         'GSpUItADNzpmk7qGTJpmP9WGUGH+STDrcCTE4Oz0JvOxcfSEd7QaF/iD9h1QA' +
         'bSXppNuJBSnZuciLYTNB4BMthOdXH1YrPiyoUF9Hy6TG91qCElGyVPtwpUEkv' +
         'VZkkNhNDvNJFunBgPuqFla2UQruEM7E9ACGLkrYS8m8WEpG+CTgfawM20zZYo' +
         'RX1rVBEkJkLClpP5iFAyQDHETAoXTraDuz3wGSwg6QjXUAHTiUtRhm8qfYRZB' +
         'MxKC0kdoKCFguVpK/MWwBYmeoHEpFuG5mNKFkW9UEIfOwXTltJBS2V5P7MwaB' +
         'EuL2WSkn3la6dQYxzhp2j+Z1P3pRsLjp9xUca2U58X4OY3q2AtY9JhrC9C+pw' +
         'XlF/A+AoMIAPKGS3BpOPobilUjrUVydguAn5fcz9Zv5J0Uq4cH4guZS0T65xY' +
         'bYSpSKsxnrcxByOzkfX1FwyyzkJimhvXT5s3Jb10h1uOSKAYVFwN+F9ij72QO' +
         'lYoAkwHCKnBe7Ofy1ZCX10U4kPN2XLiHKVjGXVDfDvR0SMKcAz6ky0W7DZ1Qa' +
         'fkijhQu2oxBGqB6mdiCTk0h6ns8dOdYDRHcWdQmDbEGiwG8t0yLdUwvvqaSND' +
         'jLFgF8AaKd/3DjlQATS59IYepzRhMlgXZf0eNDHSJsjXB6Dng8hgOVTgq1nE7' +
         'wFcfYTvDkQPseCxrJXKtRfzqECoBxkuSaf+XyQ7oI7I8f+nvX4U0GLlW+bFXX' +
         'cXd4OHt7odN1lfPUw+vgytPfV9/7Afz6shomf3hsGXd+Nf3x/5th7Bk89rYcF' +
         'xvZ+b8R+fJkCVdNTb50FUcGsjSqpBCWswc30AjwAlQx0dV1p9MKpfIjHgrNKT' +
         'zFAJ7vILZW33Lg==');
    C:= GetBitmapCanvas(Chicken);
    CopyCanvas(C, Image1.Canvas, 0, 0, 90, 90, 0, 0, 90, 90);
    Username := TEdit.Create(frmDesign);
    Username.Parent := frmDesign;
    Username.Left := 16;
    Username.Top := 16;
    Username.Width := 121;
    Username.Height := 24;
    Username.TabOrder := 8;
    Username.Text := 'Username';
    Password := TEdit.Create(frmDesign);
    Password.Parent := frmDesign;
    Password.Left := 16;
    Password.Top := 49;
    Password.Width := 121;
    Password.Height := 24;
    Password.TabOrder := 9;
    Password.Text := 'Password';
    NickName := TEdit.Create(frmDesign);
    NickName.Parent := frmDesign;
    NickName.Left := 16;
    NickName.Top := 81;
    NickName.Width := 121;
    NickName.Height := 24;
    NickName.TabOrder := 10;
    NickName.Text := 'NickName';
    Start := TButton.Create(frmDesign);
    Start.Parent := frmDesign;
    Start.Left := 16;
    Start.Top := 136;
    Start.Width := 113;
    Start.Height := 49;
    Start.Caption := 'Start';
    Start.TabOrder := 11;
    Start.OnClick := @SetupFormz;
    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;


    Procedure Setup;
    begin
      If (Not(LoggedIn)) Then Loginplayer;
      ScriptID := '685';
      if not(yourSRLID = '') then SRLID := yourSRLID;
      if not(yourSRLPW = '') then SRLPassword := yourSRLPW;
      ReportVars[1] := ChickensKilled;
    end;



    {****************************************************************************
    Procedure: KillDemChickens
    By: Wade007
    Description: This Kills Chickens (DUH!)
    *****************************************************************************}



    Procedure KillDemChickens;
     var
     Coord :Tpoint;
     Begin
       SetAngle(True)
       If (Not(LoggedIn)) Then Loginplayer;
       if FindObjCustom(coord.x, coord.y, ['hicken', 'Chicken'], [ChickenColor1, ChickenColor2], 3) then
         begin
         Status('Killing Chickens');
                case random(2) of
              0: begin
               mouse(coord.x,coord.y,2,2,false);
              chooseoption('tack');
              flag;
              Tries := 0;
              wait(1000+random(400))
              end;
              1: begin
               Mouse(coord.x,coord.y,2,2,true)
               Tries := 0;
               wait(1000+random(500))
              end;
           end;
         Wait(+random(800))
         ChickensKilled := ChickensKilled+1
         FindNormalRandoms;
     end else
      begin
        tries := tries+1;
        if (tries = 30)then
         begin
          Writeln('Could not find any Chickens :(')
          Writeln('Try changing the colors.')
         NextPlayer(false);
        end;
       end;
      end;

    Procedure AntiBan;
    Begin
     case random(15) of
              0: begin
                  RandomRClick;
                 end;
              1: begin
                  HoverSkill('Strength',false);
                 end;
              2: Begin
                  PickUpMouse;
                 end;
              3: Begin
                  BoredHuman;
                 end;
              4: Begin
                 HoverSkill('Attack',False)
                 end;
              5: HoverSkill('Defence',False)
              end;
    end;


    {************************************************************************
    Procedure : Randoms
    Description : This will solve Randoms.
    *************************************************************************}


    Procedure Randoms;
    begin
      SolvePinball;
      FindTalk;
      SolveSandWich;
    end;


    begin
    SetupSRL;
      SafeInitForm;
      SafeShowFormModal;
      repeat
      ActivateClient;
      Setup
     KillDemChickens;
     AntiBan;
     Randoms;
      Until(ChickensKilled = ChickensToKill)
      Setup;
    end.
    When I use it, it runs perfectly until it attacks the chicken, it will attack the chicken, and then try and log out! Any ideas why it is doing this?

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Any debug log?.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not yet, I built that in less than an hour... I hope to add one soon

  4. #4
    Join Date
    Mar 2007
    Location
    Ohio
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    end else
      begin
        tries := tries+1;
        if (tries = 30)then
         begin
          Writeln('Could not find any Chickens :(')
          Writeln('Try changing the colors.')
         NextPlayer(false);// heres your problem
        end;
       end;
      end;

    the only way its logging you out is this part. so maybe it kills a couple chickens and by the time it gets to like the tenth chicken tries = 30; so you might have to reset it sometime after it finds a chicken, so if it does mess up its because it couldnt find a chicken 30 times consecutively. if you know what i mean

    EDIT: You should just use FindNormalRandoms, that should cover all you put in there

  5. #5
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    case random(2) of
              0: begin
               Mouse(coord.x,coord.y,2,2,false);
              Chooseoption('tack');
              Flag;
              Tries := 0;
              Wait(1000+random(400))
              end;
    You mean that? I already did that!

  6. #6
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got a new error guys, when i was trying to make it multiplayer, i get this
    SCAR Code:
    program KillChickens;
    {.include srl/srl.scar}

    var
      ChickensKilled,Tries : Integer;
      frmDesign : TForm;
      Image : TImage;
      Username : TEdit;
      Password : TEdit;
      NickName : TEdit;
      Image1 : TImage;
      Username1 : TEdit;
      Password1 : TEdit;
      Nick1 : TEdit;
      Username2 : TEdit;
      Password2 : TEdit;
      Nick2 : TEdit;
      Start : TButton;
      C: Tcanvas;
      Chicken : Integer;
      AmountOfPlayers : TComboBox ;
      ChangeAmount : TButton;
      SecondForm : Boolean;

    const
    ChickenColor1 = 923759;
    ChickenColor2 = 1121669;
    ChickensToKill = 20;
    yourSRLID='4480';
    yourSRLPW='joejoe';

    Procedure InitForm2;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 423;
    frmDesign.Height := 285;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -14;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 120;
    Image := TImage.Create(frmDesign);
    Image.Parent := frmDesign;
    Image.Left := 48;
    Image.Top := 144;
    Image.Width := 73;
    Image.Height := 57;
    Username1 := TEdit.Create(frmDesign);
    Username1.Parent := frmDesign;
    Username1.Left := 8;
    Username1.Top := 16;
    Username1.Width := 153;
    Username1.Height := 24;
    Username1.TabOrder := 8;
    Username1.Text := 'Username1';
    Password1 := TEdit.Create(frmDesign);
    Password1.Parent := frmDesign;
    Password1.Left := 9;
    Password1.Top := 56;
    Password1.Width := 152;
    Password1.Height := 24;
    Password1.TabOrder := 9;
    Password1.Text := 'Password1';
    Nick1 := TEdit.Create(frmDesign);
    Nick1.Parent := frmDesign;
    Nick1.Left := 8;
    Nick1.Top := 96;
    Nick1.Width := 153;
    Nick1.Height := 24;
    Nick1.TabOrder := 10;
    Nick1.Text := 'Nick1';
    Username2 := TEdit.Create(frmDesign);
    Username2.Parent := frmDesign;
    Username2.Left := 184;
    Username2.Top := 16;
    Username2.Width := 145;
    Username2.Height := 24;
    Username2.TabOrder := 11;
    Username2.Text := 'Username2';
    Password2 := TEdit.Create(frmDesign);
    Password2.Parent := frmDesign;
    Password2.Left := 184;
    Password2.Top := 56;
    Password2.Width := 145;
    Password2.Height := 24;
    Password2.TabOrder := 12;
    Password2.Text := 'Password2';
    Nick2 := TEdit.Create(frmDesign);
    Nick2.Parent := frmDesign;
    Nick2.Left := 184;
    Nick2.Top := 96;
    Nick2.Width := 145;
    Nick2.Height := 24;
    Nick2.TabOrder := 13;
    Nick2.Text := 'Nick2';
    end;

    Procedure SetupFormz(sender: tobject);
    begin
      if (AmountOfPlayers = 1) then
      begin
        HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
        Players[0].Name := Username.text;
        Players[0].Pass := Password.text;
        Players[0].Nick := NickName.text;
        Players[0].Active :=True;
        FrmDesign.ModalResult := Mrok;
        ClearDebug;
      end;
      if (AmountOfPlayers = 2) then
      begin
        HowManyPlayers := 2;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
        Players[0].Name := Username1.text;
        Players[0].Pass := Password1.text;
        Players[0].Nick := NickName1.text;
        Players[0].Active :=True;
        Players[1].Name := Username2.text;
        Players[1].Pass := Password2.text;
        Players[1].Nick := NickName2.text;
        Players[1].Active :=True;
      end;

    end;
    Procedure Formz(sender : tobject);
    begin
    SecondForm := True;
    InitForm2;
    end;
    Procedure InitForm;

    begin
    frmDesign := CreateForm;
    frmDesign.Left := 1109;
    frmDesign.Top := 194;
    frmDesign.Width := 317;
    frmDesign.Height := 231;
    frmDesign.Caption := 'Wade007'#39's ChickenKiller';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -14;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 200;
    Image := TImage.Create(frmDesign);
    Image.Parent := frmDesign;
    Image.Left := 176;
    Image.Top := 16;
    Image.Width := 49;
    Image.Height := 49;
      Chicken := BitmapFromString(49, 47, 'beNrlmN1LU3EYx72vTc3XT' +
         'ZNMo2QqWsO30WowG0zGYhmrGLJQMXuhIrOMJKEaQUQQRREhVBeBRQldeBFBZN' +
         '150W3/Td/xjaeHc87W2dp2Bh0+jE307LPv8/ye32/W1Py314UWF5hvdi15a0E' +
         '1KF1uddNKuOmtJU4pXfW4CVMCtKqKCk4e+EOL6057nWOFS/pvTI2ClekAwXOE' +
         'BitHfCgjPrdnD5KzicH7HfWgwj7XUsNkMekTlk71khedDaCSPgsnhyCDfKBx5' +
         'XgPuJjYB87F9/Llq67GrY1oxXxQFypJRPQB44P1yR3bAH7tzWNfZXxSER+AEp' +
         'GSpUItADNzpmk7qGTJpmP9WGUGH+STDrcCTE4Oz0JvOxcfSEd7QaF/iD9h1QA' +
         'bSXppNuJBSnZuciLYTNB4BMthOdXH1YrPiyoUF9Hy6TG91qCElGyVPtwpUEkv' +
         'VZkkNhNDvNJFunBgPuqFla2UQruEM7E9ACGLkrYS8m8WEpG+CTgfawM20zZYo' +
         'RX1rVBEkJkLClpP5iFAyQDHETAoXTraDuz3wGSwg6QjXUAHTiUtRhm8qfYRZB' +
         'MxKC0kdoKCFguVpK/MWwBYmeoHEpFuG5mNKFkW9UEIfOwXTltJBS2V5P7MwaB' +
         'EuL2WSkn3la6dQYxzhp2j+Z1P3pRsLjp9xUca2U58X4OY3q2AtY9JhrC9C+pw' +
         'XlF/A+AoMIAPKGS3BpOPobilUjrUVydguAn5fcz9Zv5J0Uq4cH4guZS0T65xY' +
         'bYSpSKsxnrcxByOzkfX1FwyyzkJimhvXT5s3Jb10h1uOSKAYVFwN+F9ij72QO' +
         'lYoAkwHCKnBe7Ofy1ZCX10U4kPN2XLiHKVjGXVDfDvR0SMKcAz6ky0W7DZ1Qa' +
         'fkijhQu2oxBGqB6mdiCTk0h6ns8dOdYDRHcWdQmDbEGiwG8t0yLdUwvvqaSND' +
         'jLFgF8AaKd/3DjlQATS59IYepzRhMlgXZf0eNDHSJsjXB6Dng8hgOVTgq1nE7' +
         'wFcfYTvDkQPseCxrJXKtRfzqECoBxkuSaf+XyQ7oI7I8f+nvX4U0GLlW+bFXX' +
         'cXd4OHt7odN1lfPUw+vgytPfV9/7Afz6shomf3hsGXd+Nf3x/5th7Bk89rYcF' +
         'xvZ+b8R+fJkCVdNTb50FUcGsjSqpBCWswc30AjwAlQx0dV1p9MKpfIjHgrNKT' +
         'zFAJ7vILZW33Lg==');
    C:= GetBitmapCanvas(Chicken);
    CopyCanvas(C, Image.Canvas, 0, 0, 90, 90, 0, 0, 90, 90);
    Username := TEdit.Create(frmDesign);
    Username.Parent := frmDesign;
    Username.Left := 16;
    Username.Top := 16;
    Username.Width := 121;
    Username.Height := 24;
    Username.TabOrder := 8;
    Username.Text := 'Username';
    Password := TEdit.Create(frmDesign);
    Password.Parent := frmDesign;
    Password.Left := 16;
    Password.Top := 49;
    Password.Width := 121;
    Password.Height := 24;
    Password.TabOrder := 9;
    Password.Text := 'Password';
    NickName := TEdit.Create(frmDesign);
    NickName.Parent := frmDesign;
    NickName.Left := 16;
    NickName.Top := 81;
    NickName.Width := 121;
    NickName.Height := 24;
    NickName.TabOrder := 10;
    NickName.Text := 'NickName';
    Start := TButton.Create(frmDesign);
    Start.Parent := frmDesign;
    Start.Left := 16;
    Start.Top := 136;
    Start.Width := 113;
    Start.Height := 49;
    Start.Caption := 'Start';
    Start.TabOrder := 11;
    Start.OnClick := @SetupFormz;
    AmountOfPlayers := TComboBox.Create(frmDesign);
    AmountOfPlayers.Parent := frmDesign;
    AmountOfPlayers.Left := 160;
    AmountOfPlayers.Top := 104;
    AmountOfPlayers.Width := 137;
    AmountOfPlayers.Height := 24;
    AmountOfPlayers.ItemHeight := 16;
    AmountOfPlayers.TabOrder := 12;
    AmountOfPlayers.Text := 'AmountOfPlayers';
    AmountOfPlayers.Items.Add('1');
    AmountOfPlayers.Items.Add('2');
    ChangeAmount := TButton.Create(frmDesign);
    ChangeAmount.Parent := frmDesign;
    ChangeAmount.Left := 160;
    ChangeAmount.Top := 136;
    ChangeAmount.Width := 137;
    ChangeAmount.Height := 25;
    ChangeAmount.Caption := 'ChangeAmount';
    ChangeAmount.TabOrder := 13;
    ChangeAmount.OnClick := @Formz;
    end;

    Procedure SecondInitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 423;
    frmDesign.Height := 285;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -14;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 120;
    Image := TImage.Create(frmDesign);
    Image.Parent := frmDesign;
    Image.Left := 48;
    Image.Top := 144;
    Image.Width := 73;
    Image.Height := 57;
      Chicken := BitmapFromString(49, 47, 'beNrlmN1LU3EYx72vTc3XT' +
         'ZNMo2QqWsO30WowG0zGYhmrGLJQMXuhIrOMJKEaQUQQRREhVBeBRQldeBFBZN' +
         '150W3/Td/xjaeHc87W2dp2Bh0+jE307LPv8/ye32/W1Py314UWF5hvdi15a0E' +
         '1KF1uddNKuOmtJU4pXfW4CVMCtKqKCk4e+EOL6057nWOFS/pvTI2ClekAwXOE' +
         'BitHfCgjPrdnD5KzicH7HfWgwj7XUsNkMekTlk71khedDaCSPgsnhyCDfKBx5' +
         'XgPuJjYB87F9/Llq67GrY1oxXxQFypJRPQB44P1yR3bAH7tzWNfZXxSER+AEp' +
         'GSpUItADNzpmk7qGTJpmP9WGUGH+STDrcCTE4Oz0JvOxcfSEd7QaF/iD9h1QA' +
         'bSXppNuJBSnZuciLYTNB4BMthOdXH1YrPiyoUF9Hy6TG91qCElGyVPtwpUEkv' +
         'VZkkNhNDvNJFunBgPuqFla2UQruEM7E9ACGLkrYS8m8WEpG+CTgfawM20zZYo' +
         'RX1rVBEkJkLClpP5iFAyQDHETAoXTraDuz3wGSwg6QjXUAHTiUtRhm8qfYRZB' +
         'MxKC0kdoKCFguVpK/MWwBYmeoHEpFuG5mNKFkW9UEIfOwXTltJBS2V5P7MwaB' +
         'EuL2WSkn3la6dQYxzhp2j+Z1P3pRsLjp9xUca2U58X4OY3q2AtY9JhrC9C+pw' +
         'XlF/A+AoMIAPKGS3BpOPobilUjrUVydguAn5fcz9Zv5J0Uq4cH4guZS0T65xY' +
         'bYSpSKsxnrcxByOzkfX1FwyyzkJimhvXT5s3Jb10h1uOSKAYVFwN+F9ij72QO' +
         'lYoAkwHCKnBe7Ofy1ZCX10U4kPN2XLiHKVjGXVDfDvR0SMKcAz6ky0W7DZ1Qa' +
         'fkijhQu2oxBGqB6mdiCTk0h6ns8dOdYDRHcWdQmDbEGiwG8t0yLdUwvvqaSND' +
         'jLFgF8AaKd/3DjlQATS59IYepzRhMlgXZf0eNDHSJsjXB6Dng8hgOVTgq1nE7' +
         'wFcfYTvDkQPseCxrJXKtRfzqECoBxkuSaf+XyQ7oI7I8f+nvX4U0GLlW+bFXX' +
         'cXd4OHt7odN1lfPUw+vgytPfV9/7Afz6shomf3hsGXd+Nf3x/5th7Bk89rYcF' +
         'xvZ+b8R+fJkCVdNTb50FUcGsjSqpBCWswc30AjwAlQx0dV1p9MKpfIjHgrNKT' +
         'zFAJ7vILZW33Lg==');
    C:= GetBitmapCanvas(Chicken);
    CopyCanvas(C, Image.Canvas, 0, 0, 90, 90, 0, 0, 90, 90);
    Username1 := TEdit.Create(frmDesign);
    Username1.Parent := frmDesign;
    Username1.Left := 8;
    Username1.Top := 16;
    Username1.Width := 153;
    Username1.Height := 24;
    Username1.TabOrder := 8;
    Username1.Text := 'Username1';
    Password1 := TEdit.Create(frmDesign);
    Password1.Parent := frmDesign;
    Password1.Left := 9;
    Password1.Top := 56;
    Password1.Width := 152;
    Password1.Height := 24;
    Password1.TabOrder := 9;
    Password1.Text := 'Password1';
    Nick1 := TEdit.Create(frmDesign);
    Nick1.Parent := frmDesign;
    Nick1.Left := 8;
    Nick1.Top := 96;
    Nick1.Width := 153;
    Nick1.Height := 24;
    Nick1.TabOrder := 10;
    Nick1.Text := 'Nick1';
    Username2 := TEdit.Create(frmDesign);
    Username2.Parent := frmDesign;
    Username2.Left := 184;
    Username2.Top := 16;
    Username2.Width := 145;
    Username2.Height := 24;
    Username2.TabOrder := 11;
    Username2.Text := 'Username2';
    Password2 := TEdit.Create(frmDesign);
    Password2.Parent := frmDesign;
    Password2.Left := 184;
    Password2.Top := 56;
    Password2.Width := 145;
    Password2.Height := 24;
    Password2.TabOrder := 12;
    Password2.Text := 'Password2';
    Nick2 := TEdit.Create(frmDesign);
    Nick2.Parent := frmDesign;
    Nick2.Left := 184;
    Nick2.Top := 96;
    Nick2.Width := 145;
    Nick2.Height := 24;
    Nick2.TabOrder := 13;
    Nick2.Text := 'Nick2';
    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;


    Procedure Setup;
    begin
      If (Not(LoggedIn)) Then Loginplayer;
      ScriptID := '685';
      if not(yourSRLID = '') then SRLID := yourSRLID;
      if not(yourSRLPW = '') then SRLPassword := yourSRLPW;
      SRLRandomsReport;
      ReportVars[1] := ChickensKilled;
    end;



    {****************************************************************************
    Procedure: KillDemChickens
    By: Wade007
    Description: This Kills Chickens (DUH!)
    *****************************************************************************}



    Procedure KillDemChickens;
     var
     Coord :Tpoint;
     Begin
       SetAngle(True)
       If (Not(LoggedIn)) Then Loginplayer;
       if FindObjCustom(coord.x, coord.y, ['hicken', 'Chicken'], [ChickenColor1, ChickenColor2], 3) then
         begin
         Status('Killing Chickens');
                case random(2) of
              0: begin
               Mouse(coord.x,coord.y,2,2,false);
              Chooseoption('tack');
              Flag;
              Tries := 0;
              Wait(1000+random(400))
              end;
              1: begin
               Mouse(coord.x,coord.y,2,2,true)
               Tries := 0;
               Wait(1000+random(500))
              end;
           end;
         Wait(+random(800))
         ChickensKilled := ChickensKilled+1
         FindNormalRandoms;
     end else
      begin
        tries := tries+1;
        if (tries = 30)then
         begin
          Writeln('Could not find any Chickens :(')
          Writeln('Try changing the colors.')
         NextPlayer(false);
        end;
       end;
      end;

    Procedure AntiBan;
    Begin
     case random(15) of
              0: begin
                  RandomRClick;
                 end;
              1: begin
                  HoverSkill('Strength',false);
                 end;
              2: Begin
                  PickUpMouse;
                 end;
              3: Begin
                  BoredHuman;
                 end;
              4: Begin
                 HoverSkill('Attack',False)
                 end;
              5: HoverSkill('Defence',False)
              end;
    end;


    {************************************************************************
    Procedure : Randoms
    Description : This will solve Randoms.
    *************************************************************************}


    Procedure Randoms;
    begin
      SolvePinball;
      FindTalk;
      SolveSandWich;
    end;


    begin
    SetupSRL;
      SafeInitForm;
      SafeShowFormModal;
      repeat
      ActivateClient;
      Setup
     KillDemChickens;
     AntiBan;
     Randoms;
      Until(ChickensKilled = ChickensToKill)
      Setup;
    end.
    I get this
    SCAR Code:
    Line 108: [Error] (12687:35): Type mismatch in script
    (I know it is a huge block of code, but i try!)

  7. #7
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    please point out which is line 108. but that usually means that one of the parameters is wrong. like it-s an int instead of a string or something like that

    - RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with chicken killer
    By D1zl3 in forum OSR Help
    Replies: 2
    Last Post: 10-04-2008, 10:11 PM
  2. Chicken Killer (yet another one)
    By dontpanic in forum RS3 Outdated / Broken Scripts
    Replies: 122
    Last Post: 04-20-2008, 05:12 PM
  3. Chicken Killer
    By Electron Man in forum First Scripts
    Replies: 19
    Last Post: 11-19-2007, 12:32 PM
  4. Chicken killer
    By me_ntal in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-17-2007, 04:56 AM

Posting Permissions

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